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

there was a lonesome endif that needed a comment

This commit is contained in:
Franz Roters 2009-08-13 12:56:07 +00:00
parent 93543c21e9
commit 0ef4ec27b3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/homogenization_RGC.f90
View File

@ -334,7 +334,7 @@ function homogenization_RGC_updateState(&
! '@ grain',stresLoc(3),'in component',stresLoc(1),stresLoc(2) ! '@ grain',stresLoc(3),'in component',stresLoc(1),stresLoc(2)
! write(1978,'(x,a15,x,e10.4,x,a7,i3,x,a12,i2)')'Max residual: ',residMax, & ! write(1978,'(x,a15,x,e10.4,x,a7,i3,x,a12,i2)')'Max residual: ',residMax, &
! '@ iface',residLoc(1),'in direction',residLoc(2) ! '@ iface',residLoc(1),'in direction',residLoc(2)
endif ! endif
homogenization_RGC_updateState = .false. homogenization_RGC_updateState = .false.
!* If convergence reached => done and happy !* If convergence reached => done and happy
if (residMax < relTol_RGC*stresMax .or. residMax < absTol_RGC) then if (residMax < relTol_RGC*stresMax .or. residMax < absTol_RGC) then