2 space indentation
This commit is contained in:
parent
52ca7cc43c
commit
02774a89d9
|
@ -1457,9 +1457,10 @@ subroutine integrateStateRKCK45
|
|||
do g = 1,homogenization_Ngrains(material_homogenizationAt(e))
|
||||
if(crystallite_todo(g,i,e) .and. (.not. nonlocalBroken .or. crystallite_localPlasticity(g,i,e)) ) then
|
||||
|
||||
do stage = 1,5
|
||||
p = material_phaseAt(g,e); c = material_phaseMemberAt(g,i,e)
|
||||
|
||||
do stage = 1,5
|
||||
|
||||
plasticState(p)%RKCK45dotState(stage,:,c) = plasticState(p)%dotState(:,c)
|
||||
plasticState(p)%dotState(:,c) = A(1,stage) * plasticState(p)%RKCK45dotState(1,:,c)
|
||||
|
||||
|
@ -1511,6 +1512,7 @@ subroutine integrateStateRKCK45
|
|||
if(.not. crystallite_todo(g,i,e)) cycle
|
||||
|
||||
enddo
|
||||
|
||||
endif
|
||||
enddo; enddo; enddo
|
||||
!$OMP END PARALLEL DO
|
||||
|
|
Loading…
Reference in New Issue