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

(re)introduced integer(8) types for clock_tick measurements

This commit is contained in:
Philip Eisenlohr 2009-03-20 15:19:58 +00:00
parent a57ce74e15
commit ac42e24252
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/CPFEM.f90
View File

@ -489,7 +489,7 @@
logical integrateState
integer(pInt) tick,tock,tickrate,maxticks
integer(8) tick,tock,tickrate,maxticks
integer(pInt) g,i,e,mySize
real(pReal), dimension(6) :: Tstar_v
real(pReal) dt
@ -659,7 +659,7 @@
logical failed
integer(pInt) cp_en, ip, grain
integer(pInt) iInner,dummy, i,j,k,l,m,n
integer(pInt) tick,tock,tickrate,maxticks
integer(8) tick,tock,tickrate,maxticks
real(pReal) dt, Temperature, det, p_hydro, leapfrog,maxleap
real(pReal), dimension(6) :: Tstar_v
real(pReal), dimension(9,9) :: dLp,dTdLp,dRdLp,invdRdLp,eye2

4
trunk/debug.f90
View File

@ -9,8 +9,8 @@
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
integer(pInt) :: debug_cumLpTicks = 0_pInt
integer(pInt) :: debug_cumDotStateTicks = 0_pInt
integer(8) :: debug_cumLpTicks = 0_pInt
integer(8) :: debug_cumDotStateTicks = 0_pInt
integer(pInt) :: debug_cumLpCalls = 0_pInt
integer(pInt) :: debug_cumDotStateCalls = 0_pInt
logical :: debugger = .false.