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

changed "tickrate" to type integer(8) for microsecond resolution

This commit is contained in:
Christoph Kords 2009-03-30 14:54:05 +00:00
parent ee3fdcb2c4
commit 78eed33d6d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/debug.f90
View File

@ -28,7 +28,7 @@
implicit none implicit none
integer(pInt) i,integral integer(pInt) i,integral
integer(pInt) tickrate integer(8) tickrate
write(6,*) write(6,*)
write(6,*) 'DEBUG Info' write(6,*) 'DEBUG Info'
@ -56,7 +56,7 @@
write(6,*) write(6,*)
integral = 0_pInt integral = 0_pInt
write(6,*) 'distribution_InnerLoop :' write(6,*) 'distribution_InnerLoop :'
do i=1,nInner do i=1,nInner
if (debug_InnerLoopDistribution(i) /= 0) then if (debug_InnerLoopDistribution(i) /= 0) then
integral = integral + i*debug_InnerLoopDistribution(i) integral = integral + i*debug_InnerLoopDistribution(i)