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

@ -184,11 +184,10 @@ subroutine materialpoint_stressAndItsTangent(dt)
damageState(material_homogenizationAt(el))%subState0(:,material_homogenizationMemberAt(ip,el)) = & damageState(material_homogenizationAt(el))%subState0(:,material_homogenizationMemberAt(ip,el)) = &
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))
if (converged) then if (converged) then
subFrac = subFrac + subStep subFrac = subFrac + subStep
@ -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,15 +273,12 @@ subroutine materialpoint_stressAndItsTangent(dt)
endif endif
enddo convergenceLooping enddo convergenceLooping
NiterationHomog = NiterationHomog + 1
enddo cutBackLooping
NiterationHomog = NiterationHomog + 1
enddo cutBackLooping
enddo
enddo enddo
!$OMP END PARALLEL DO enddo
!$OMP END PARALLEL DO
if (.not. terminallyIll ) then if (.not. terminallyIll ) then
call crystallite_orientations() ! calculate crystal orientations call crystallite_orientations() ! calculate crystal orientations