anchor.diff:  
   10 continue
     writeErr = .true.
  -  write(lout,"(a,i0,a)") "SIXTRACR> ERROR Writing C/R file fort.",fileUnit," in TIME"
  -  write(crlog,  "(a,i0,a)") "SIXTRACR> ERROR Writing C/R file fort.",fileUnit," in TIME"
  +  write(lout, "(a,i0,a)") "SIXTRACR> ERROR Writing C/R file fort.",fileUnit," in TIME"
  +  write(crlog,"(a,i0,a)") "SIXTRACR> ERROR Writing C/R file fort.",fileUnit," in TIME"
     flush(crlog)
   
   end subroutine time_crpoint
  
positive.code:   integer, parameter :: time_afterZIPF           = 14
    integer, parameter :: time_beforeExit          = 15
  
    real(kind=fPrec), public,  save :: time_lastTick = 0.0
    real(kind=fPrec), private, save :: time_timeZero = 0.0
    real(kind=fPrec), private, save :: time_timeRecord(time_beforeExit)
  
    ! Constants for accumulated time
    integer, parameter :: time_nClocks   = 5
    integer, parameter :: time_clockCR   = 1
    integer, parameter :: time_clockDUMP = 2
    integer, parameter :: time_clockCOLL = 3
    integer, parameter :: time_clockSCAT = 4
    integer, parameter :: time_clockHDF5 = 5
  
    real(kind=fPrec), private, save :: time_clockStart(time_nClocks)
    real(kind=fPrec), private, save :: time_clockTotal(time_nClocks)
    integer,          private, save :: time_clockCount(time_nClocks)
    integer,          private, save :: time_clockStops(time_nClocks)
  
    real,             private, save :: time_timerRef     = 0.0
    logical,          private, save :: time_timerStarted = .false.
  
  #ifdef CR
    ! Additional variables for checkpoint/restart
  
negative.code:   integer,           private, save :: time_fileUnit
  
    ! Constants for determining timer checkpoints
    ! These are used when calling time_timeStamp() from main_cr and other relevant parts of the code.
    ! To add a new time stamp, add a parameter in the list below in the same order as simulation progress in main_cr,
    ! and if necessary, bump the following parameters so they are also in numerical order.
    ! Then add the corresponding log string to the select case in subroutine time_timeStamp.
    integer, parameter :: time_afterFileUnits      = 1
    integer, parameter :: time_afterDaten          = 2
    integer, parameter :: time_afterCRCheck        = 3
  