2008-01-11 00:23:57 +05:30
|
|
|
|
|
|
|
!##############################################################
|
|
|
|
MODULE debug
|
|
|
|
!##############################################################
|
|
|
|
use prec
|
|
|
|
|
|
|
|
implicit none
|
2008-01-12 00:02:02 +05:30
|
|
|
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution
|
2008-02-18 16:09:39 +05:30
|
|
|
integer(pInt), dimension(nInner) :: debug_innerLoopDistribution
|
|
|
|
integer(pInt), dimension(nOuter) :: debug_outerLoopDistribution
|
2008-01-11 00:23:57 +05:30
|
|
|
|
|
|
|
CONTAINS
|
|
|
|
|
|
|
|
|
|
|
|
!********************************************************************
|
|
|
|
! write debug statements to standard out
|
|
|
|
!********************************************************************
|
|
|
|
SUBROUTINE debug_info()
|
|
|
|
|
|
|
|
use prec
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
integer(pInt) i
|
|
|
|
|
|
|
|
write(6,*) 'DEBUG Info'
|
|
|
|
write(6,*) 'distribution_cutback :'
|
2008-01-12 00:02:02 +05:30
|
|
|
do i=0,nCutback
|
|
|
|
if (debug_cutbackDistribution(i+1) > 0) write(6,*) i,debug_cutbackDistribution(i+1)
|
2008-01-11 00:23:57 +05:30
|
|
|
enddo
|
2008-01-12 00:02:02 +05:30
|
|
|
write(6,*) 'total',sum(debug_cutbackDistribution)
|
2008-01-11 00:23:57 +05:30
|
|
|
write(6,*)
|
|
|
|
|
2008-02-18 16:09:39 +05:30
|
|
|
write(6,*) 'distribution_innerLoop :'
|
2008-02-18 16:11:37 +05:30
|
|
|
do i=1,nInner
|
2008-02-18 16:09:39 +05:30
|
|
|
if (debug_innerLoopDistribution(i) > 0) write(6,*) i,debug_innerLoopDistribution(i)
|
2008-01-11 00:23:57 +05:30
|
|
|
enddo
|
2008-02-18 16:09:39 +05:30
|
|
|
write(6,*) 'total',sum(debug_innerLoopDistribution)
|
2008-01-11 00:23:57 +05:30
|
|
|
write(6,*)
|
|
|
|
|
2008-02-18 16:09:39 +05:30
|
|
|
write(6,*) 'distribution_outerLoop :'
|
2008-02-18 16:11:37 +05:30
|
|
|
do i=1,nOuter
|
2008-02-18 16:09:39 +05:30
|
|
|
if (debug_outerLoopDistribution(i) > 0) write(6,*) i,debug_outerLoopDistribution(i)
|
2008-01-11 00:23:57 +05:30
|
|
|
enddo
|
2008-02-18 16:09:39 +05:30
|
|
|
write(6,*) 'total',sum(debug_outerLoopDistribution)
|
2008-01-11 00:23:57 +05:30
|
|
|
write(6,*)
|
|
|
|
|
|
|
|
END SUBROUTINE
|
|
|
|
|
|
|
|
END MODULE debug
|