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

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

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.