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

6
trunk/CPFEM.f90
View File

@ -489,7 +489,7 @@
logical integrateState logical integrateState
integer(pInt) tick,tock,tickrate,maxticks integer(8) tick,tock,tickrate,maxticks
integer(pInt) g,i,e,mySize integer(pInt) g,i,e,mySize
real(pReal), dimension(6) :: Tstar_v real(pReal), dimension(6) :: Tstar_v
real(pReal) dt real(pReal) dt
@ -659,7 +659,7 @@
logical failed logical failed
integer(pInt) cp_en, ip, grain integer(pInt) cp_en, ip, grain
integer(pInt) iInner,dummy, i,j,k,l,m,n 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) dt, Temperature, det, p_hydro, leapfrog,maxleap
real(pReal), dimension(6) :: Tstar_v real(pReal), dimension(6) :: Tstar_v
real(pReal), dimension(9,9) :: dLp,dTdLp,dRdLp,invdRdLp,eye2 real(pReal), dimension(9,9) :: dLp,dTdLp,dRdLp,invdRdLp,eye2
@ -729,7 +729,7 @@ Inner: do ! inner iteration: Lp
! check for acceleration/deceleration in Newton--Raphson correction ! check for acceleration/deceleration in Newton--Raphson correction
! !
if (any(Rinner/=Rinner) .and. & ! NaN occured at regular speed if (any(Rinner/=Rinner) .and. & ! NaN occured at regular speed
leapfrog == 1.0) then leapfrog == 1.0) then
Lpguess = Lpguess_old ! restore known good guess Lpguess = Lpguess_old ! restore known good guess
msg = 'NaN present' ! croak for cutback msg = 'NaN present' ! croak for cutback
return return

4
trunk/debug.f90
View File

@ -9,8 +9,8 @@
integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution = 0_pInt integer(pInt), dimension(nCutback+1) :: debug_cutbackDistribution = 0_pInt
integer(pInt), dimension(nInner) :: debug_InnerLoopDistribution = 0_pInt integer(pInt), dimension(nInner) :: debug_InnerLoopDistribution = 0_pInt
integer(pInt), dimension(nOuter) :: debug_OuterLoopDistribution = 0_pInt integer(pInt), dimension(nOuter) :: debug_OuterLoopDistribution = 0_pInt
integer(pInt) :: debug_cumLpTicks = 0_pInt integer(8) :: debug_cumLpTicks = 0_pInt
integer(pInt) :: debug_cumDotStateTicks = 0_pInt integer(8) :: debug_cumDotStateTicks = 0_pInt
integer(pInt) :: debug_cumLpCalls = 0_pInt integer(pInt) :: debug_cumLpCalls = 0_pInt
integer(pInt) :: debug_cumDotStateCalls = 0_pInt integer(pInt) :: debug_cumDotStateCalls = 0_pInt
logical :: debugger = .false. logical :: debugger = .false.