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

83 lines
2.6 KiB
Fortran
Raw Normal View History

Introduce debug module, contains distributions of nCutback, nStressLoop, and nStateLoop
2008-01-11 00:23:57 +05:30
!##############################################################
MODULE debug
!##############################################################
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
use prec
Introduce debug module, contains distributions of nCutback, nStressLoop, and nStateLoop
2008-01-11 00:23:57 +05:30
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
implicit none
overhaul to allow for multiphase/homogenization setup.
2009-03-04 17:18:54 +05:30
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution = 0_pInt
integer(pInt), dimension(nInner) :: debug_InnerLoopDistribution = 0_pInt
integer(pInt), dimension(nOuter) :: debug_OuterLoopDistribution = 0_pInt
(re)introduced integer(8) types for clock_tick measurements
2009-03-20 20:49:58 +05:30
integer(8) :: debug_cumLpTicks = 0_pInt
integer(8) :: debug_cumDotStateTicks = 0_pInt
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
integer(pInt) :: debug_cumLpCalls = 0_pInt
Update in order to include the c/a-ratio as additional information about the structure (modules lattice, constitutive_ changed accordingly) Correction of the expression for the velocity of mobile dislocation densities in constitutive_dislobased.f90 Correction of some Fortran syntax, incompatible with Compaq Visual Fortran (e.g. integer(8))
2009-03-20 20:04:24 +05:30
integer(pInt) :: debug_cumDotStateCalls = 0_pInt
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
logical :: debugger = .false.
overhaul to allow for multiphase/homogenization setup.
2009-03-04 17:18:54 +05:30
logical :: distribution_init = .false.
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
CONTAINS
!********************************************************************
! write debug statements to standard out
!********************************************************************
SUBROUTINE debug_info()
use prec
Introduce debug module, contains distributions of nCutback, nStressLoop, and nStateLoop
2008-01-11 00:23:57 +05:30
implicit none
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
integer(pInt) i,integral
changed "tickrate" to type integer(8) for microsecond resolution
2009-03-30 20:24:05 +05:30
integer(8) tickrate
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
write(6,*)
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
write(6,*) 'DEBUG Info'
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
write(6,*)
Update in order to include the c/a-ratio as additional information about the structure (modules lattice, constitutive_ changed accordingly) Correction of the expression for the velocity of mobile dislocation densities in constitutive_dislobased.f90 Correction of some Fortran syntax, incompatible with Compaq Visual Fortran (e.g. integer(8))
2009-03-20 20:04:24 +05:30
write(6,'(a33,x,i12)') 'total calls to LpAndItsTangent :',debug_cumLpCalls
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
if (debug_cumLpCalls > 0_pInt) then
call system_clock(count_rate=tickrate)
Update in order to include the c/a-ratio as additional information about the structure (modules lattice, constitutive_ changed accordingly) Correction of the expression for the velocity of mobile dislocation densities in constitutive_dislobased.f90 Correction of some Fortran syntax, incompatible with Compaq Visual Fortran (e.g. integer(8))
2009-03-20 20:04:24 +05:30
write(6,'(a33,x,f12.6)') 'avg CPU time/microsecs per call :',dble(debug_cumLpTicks)/tickrate/1.0e-6_pReal/debug_cumLpCalls
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
write(6,'(a33,x,i12)') 'total CPU ticks :',debug_cumLpTicks
endif
write(6,*)
Update in order to include the c/a-ratio as additional information about the structure (modules lattice, constitutive_ changed accordingly) Correction of the expression for the velocity of mobile dislocation densities in constitutive_dislobased.f90 Correction of some Fortran syntax, incompatible with Compaq Visual Fortran (e.g. integer(8))
2009-03-20 20:04:24 +05:30
write(6,'(a33,x,i12)') 'total calls to dotState :',debug_cumDotStateCalls
if (debug_cumdotStateCalls > 0_pInt) then
call system_clock(count_rate=tickrate)
write(6,'(a33,x,f12.6)') 'avg CPU time/microsecs per call :',&
dble(debug_cumDotStateTicks)/tickrate/1.0e-6_pReal/debug_cumDotStateCalls
write(6,'(a33,x,i12)') 'total CPU ticks :',debug_cumDotStateTicks
endif
write(6,*)
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
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,*)
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
integral = 0_pInt
changed "tickrate" to type integer(8) for microsecond resolution
2009-03-30 20:24:05 +05:30
write(6,*) 'distribution_InnerLoop :'
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
do i=1,nInner
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
if (debug_InnerLoopDistribution(i) /= 0) then
integral = integral + i*debug_InnerLoopDistribution(i)
write(6,*) i,debug_InnerLoopDistribution(i)
endif
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
enddo
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
write(6,*) 'total',sum(debug_InnerLoopDistribution),integral
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
write(6,*)
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
integral = 0_pInt
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
write(6,*) 'distribution_OuterLoop :'
do i=1,nOuter
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
if (debug_OuterLoopDistribution(i) /= 0) then
integral = integral + i*debug_OuterLoopDistribution(i)
write(6,*) i,debug_OuterLoopDistribution(i)
endif
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
enddo
added timing facilities for LpAndItsTangent
2009-03-16 23:08:33 +05:30
write(6,*) 'total',sum(debug_OuterLoopDistribution),integral
full update, i.e. my development snapshot
2008-02-19 18:28:46 +05:30
write(6,*)
END SUBROUTINE
Introduce debug module, contains distributions of nCutback, nStressLoop, and nStateLoop
2008-01-11 00:23:57 +05:30
END MODULE debug