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

Added more detailed reporting

This commit is contained in:
Hongmei Li 2008-01-11 18:32:02 +00:00
parent 720d8da82b
commit 6a3a9e8f98
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
trunk/debug.f90
View File

@ -5,7 +5,7 @@
use prec
implicit none
integer(pInt), dimension(nCutback) :: debug_cutbackDistribution
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution
integer(pInt), dimension(nStress) :: debug_stressLoopDistribution
integer(pInt), dimension(nState) :: debug_stateLoopDistribution
@ -24,21 +24,24 @@
write(6,*) 'DEBUG Info'
write(6,*) 'distribution_cutback :'
do i=1,nCutback
if (debug_cutbackDistribution(i) > 0) write(6,*) i,debug_cutbackDistribution(i)
do i=0,nCutback
if (debug_cutbackDistribution(i+1) > 0) write(6,*) i,debug_cutbackDistribution(i+1)
enddo
write(6,*) 'total',sum(debug_cutbackDistribution)
write(6,*)
write(6,*) 'distribution_stressLoop :'
do i=1,nStress
if (debug_stressLoopDistribution(i) > 0) write(6,*) i,debug_stressLoopDistribution(i)
enddo
write(6,*) 'total',sum(debug_stressLoopDistribution)
write(6,*)
write(6,*) 'distribution_stateLoop :'
do i=1,nState
if (debug_stateLoopDistribution(i) > 0) write(6,*) i,debug_stateLoopDistribution(i)
enddo
write(6,*) 'total',sum(debug_stateLoopDistribution)
write(6,*)
END SUBROUTINE