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

corrected nStress and nState to reflect more general nInner and nOuter (now vompatible with changes in prec.f90)

This commit is contained in:
Denny Tjahjanto 2008-02-18 10:39:39 +00:00
parent cfaa0e696d
commit 9c9cdeb58b
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
trunk/debug.f90
View File

@ -6,8 +6,8 @@
implicit none implicit none
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution
integer(pInt), dimension(nStress) :: debug_stressLoopDistribution integer(pInt), dimension(nInner) :: debug_innerLoopDistribution
integer(pInt), dimension(nState) :: debug_stateLoopDistribution integer(pInt), dimension(nOuter) :: debug_outerLoopDistribution
CONTAINS CONTAINS
@ -30,18 +30,18 @@
write(6,*) 'total',sum(debug_cutbackDistribution) write(6,*) 'total',sum(debug_cutbackDistribution)
write(6,*) write(6,*)
write(6,*) 'distribution_stressLoop :' write(6,*) 'distribution_innerLoop :'
do i=1,nStress do i=1,nStress
if (debug_stressLoopDistribution(i) > 0) write(6,*) i,debug_stressLoopDistribution(i) if (debug_innerLoopDistribution(i) > 0) write(6,*) i,debug_innerLoopDistribution(i)
enddo enddo
write(6,*) 'total',sum(debug_stressLoopDistribution) write(6,*) 'total',sum(debug_innerLoopDistribution)
write(6,*) write(6,*)
write(6,*) 'distribution_stateLoop :' write(6,*) 'distribution_outerLoop :'
do i=1,nState do i=1,nState
if (debug_stateLoopDistribution(i) > 0) write(6,*) i,debug_stateLoopDistribution(i) if (debug_outerLoopDistribution(i) > 0) write(6,*) i,debug_outerLoopDistribution(i)
enddo enddo
write(6,*) 'total',sum(debug_stateLoopDistribution) write(6,*) 'total',sum(debug_outerLoopDistribution)
write(6,*) write(6,*)
END SUBROUTINE END SUBROUTINE