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

View File

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