proper indentation
This commit is contained in:
parent
4bd7aa9abb
commit
edef98fd06
|
@ -185,7 +185,6 @@ subroutine materialpoint_stressAndItsTangent(dt)
|
||||||
damageState(material_homogenizationAt(el))%State0( :,material_homogenizationMemberAt(ip,el))
|
damageState(material_homogenizationAt(el))%State0( :,material_homogenizationMemberAt(ip,el))
|
||||||
|
|
||||||
NiterationHomog = 0
|
NiterationHomog = 0
|
||||||
|
|
||||||
cutBackLooping: do while (.not. terminallyIll .and. subStep > num%subStepMinHomog)
|
cutBackLooping: do while (.not. terminallyIll .and. subStep > num%subStepMinHomog)
|
||||||
|
|
||||||
myNgrains = homogenization_Nconstituents(material_homogenizationAt(el))
|
myNgrains = homogenization_Nconstituents(material_homogenizationAt(el))
|
||||||
|
@ -238,7 +237,6 @@ subroutine materialpoint_stressAndItsTangent(dt)
|
||||||
|
|
||||||
|
|
||||||
NiterationMPstate = 0
|
NiterationMPstate = 0
|
||||||
|
|
||||||
convergenceLooping: do while (.not. terminallyIll .and. requested &
|
convergenceLooping: do while (.not. terminallyIll .and. requested &
|
||||||
.and. .not. doneAndHappy(1) &
|
.and. .not. doneAndHappy(1) &
|
||||||
.and. NiterationMPstate < num%nMPstate)
|
.and. NiterationMPstate < num%nMPstate)
|
||||||
|
@ -275,12 +273,9 @@ subroutine materialpoint_stressAndItsTangent(dt)
|
||||||
endif
|
endif
|
||||||
|
|
||||||
enddo convergenceLooping
|
enddo convergenceLooping
|
||||||
|
|
||||||
|
|
||||||
NiterationHomog = NiterationHomog + 1
|
NiterationHomog = NiterationHomog + 1
|
||||||
|
|
||||||
enddo cutBackLooping
|
enddo cutBackLooping
|
||||||
|
|
||||||
enddo
|
enddo
|
||||||
enddo
|
enddo
|
||||||
!$OMP END PARALLEL DO
|
!$OMP END PARALLEL DO
|
||||||
|
|
Loading…
Reference in New Issue