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

some comments, missing ierr

This commit is contained in:
Martin Diehl 2016-09-08 08:51:07 +02:00
parent 1e16ebe2ef
commit 59e8109ced
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/spectral_utilities.f90
View File

@ -957,7 +957,7 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,timeinc, &
age
integer(pInt) :: &
j,k
j,k,ierr
real(pReal), dimension(3,3,3,3) :: max_dPdF, min_dPdF
real(pReal) :: max_dPdF_norm, min_dPdF_norm, defgradDetMin, defgradDetMax, defgradDet
@ -969,12 +969,10 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,timeinc, &
age = .True.
materialpoint_F0 = reshape(F_lastInc, [3,3,1,product(grid(1:2))*grid3])
endif
if (cutBack) then ! restore saved variables
age = .False.
endif
if (cutBack) age = .False. ! restore saved variables
materialpoint_F = reshape(F,[3,3,1,product(grid(1:2))*grid3])
call debug_reset()
call debug_reset() ! this has no effect on rank >0
!--------------------------------------------------------------------------------------------------
! calculate bounds of det(F) and report
@ -1019,7 +1017,7 @@ subroutine utilities_constitutiveResponse(F_lastInc,F,timeinc, &
call MPI_Allreduce(MPI_IN_PLACE,C_volAvg,81,MPI_DOUBLE,MPI_SUM,PETSC_COMM_WORLD,ierr)
call debug_info()
call debug_info() ! this has no effect on rank >0
restartWrite = .false. ! reset restartWrite status
cutBack = .false. ! reset cutBack status