From 6a3a9e8f98d50cf8fea1480d414c2eb552135bfc Mon Sep 17 00:00:00 2001 From: Hongmei Li Date: Fri, 11 Jan 2008 18:32:02 +0000 Subject: [PATCH] Added more detailed reporting --- trunk/debug.f90 | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/trunk/debug.f90 b/trunk/debug.f90 index 6bee01089..61983f1fe 100644 --- a/trunk/debug.f90 +++ b/trunk/debug.f90 @@ -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