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

print aged state of 1 1 1, which always exists, to avoid segmentation fault

This commit is contained in:
Christoph Kords 2010-04-29 07:34:20 +00:00
parent 79f286f24c
commit 77dc16d15f
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
code/CPFEM.f90
View File

@ -241,8 +241,7 @@ subroutine CPFEM_general(mode, ffn, ffn1, Temperature, dt, element, IP, cauchySt
constitutive_state0(i,j,k)%p = constitutive_state(i,j,k)%p ! microstructure of crystallites
if (debugger) then
!$OMP CRITICAL (write2out)
write(6,'(a,3(x,i4),/,4(3(e20.8,x),/))') 'aged state at', debug_g, debug_i, debug_e, &
constitutive_state(debug_g,debug_i,debug_e)%p
write(6,'(a,/,4(3(e20.8,x),/))') 'aged state at 1 1 1', constitutive_state(1,1,1)%p
!$OMP END CRITICAL (write2out)
endif
do k = 1,mesh_NcpElems