223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/homogenization.f90
View File

@ -184,11 +184,10 @@ subroutine materialpoint_stressAndItsTangent(dt)
damageState(material_homogenizationAt(el))%subState0(:,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
subFrac = subFrac + subStep
@ -238,7 +237,6 @@ subroutine materialpoint_stressAndItsTangent(dt)
NiterationMPstate = 0
convergenceLooping: do while (.not. terminallyIll .and. requested &
.and. .not. doneAndHappy(1) &
.and. NiterationMPstate < num%nMPstate)
@ -275,15 +273,12 @@ subroutine materialpoint_stressAndItsTangent(dt)
endif
enddo convergenceLooping
NiterationHomog = NiterationHomog + 1
NiterationHomog = NiterationHomog + 1
enddo cutBackLooping
enddo
enddo cutBackLooping
enddo
!$OMP END PARALLEL DO
enddo
!$OMP END PARALLEL DO
if (.not. terminallyIll ) then
call crystallite_orientations() ! calculate crystal orientations