From ac42e242520e8ae202403c40227e98c33fbaefba Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Fri, 20 Mar 2009 15:19:58 +0000 Subject: [PATCH] (re)introduced integer(8) types for clock_tick measurements --- trunk/CPFEM.f90 | 6 +++--- trunk/debug.f90 | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/trunk/CPFEM.f90 b/trunk/CPFEM.f90 index ed7765b01..9df693af8 100644 --- a/trunk/CPFEM.f90 +++ b/trunk/CPFEM.f90 @@ -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 @@ -729,7 +729,7 @@ Inner: do ! inner iteration: Lp ! check for acceleration/deceleration in Newton--Raphson correction ! 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 msg = 'NaN present' ! croak for cutback return diff --git a/trunk/debug.f90 b/trunk/debug.f90 index 52db5d54e..5d06f2600 100644 --- a/trunk/debug.f90 +++ b/trunk/debug.f90 @@ -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.