proper indentation

This commit is contained in:
Martin Diehl 2020-12-24 12:44:26 +01:00
parent 4bd7aa9abb
commit edef98fd06
1 changed files with 7 additions and 12 deletions

View File

@ -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