DAMASK_EICMD/trunk/debug.f90

50 lines
1.3 KiB
Fortran

!##############################################################
MODULE debug
!##############################################################
use prec
implicit none
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution
integer(pInt), dimension(nStress) :: debug_stressLoopDistribution
integer(pInt), dimension(nState) :: debug_stateLoopDistribution
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 :'
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
END MODULE debug