anchor.diff:    character(len=*), intent(in) :: status
     character(len=*), intent(in) :: file
   
  -  real(kind=fPrec) cpuTime
  -  character(len=8)  wAction
  -  character(len=8)  wStatus
  -  character(len=64) wFile
  +  real(kind=fPrec)         cpuTime
  +  character(len=8)         wAction
  +  character(len=8)         wStatus
  +  character(len=mFNameLen) wFile
   
     if(units_logUnit <= 0) return ! Only write if we have a log file
   
  
positive.code:   integer i
    logical isOpen
  
    if(len_trim(file) > 64) then
      write(error_unit,"(a,i0)") "UNITS> ERROR Max length of file name in f_requestUnit is 64 characters, got ",len_trim(file)
      call prror
    end if
  
  
negative.code:   wFile   = file
  
    call cpu_time(cpuTime)
    write(units_logUnit,"(f10.3,2x,a8,2x,i4,2x,a8,2x,a)") cpuTime,adjustl(wAction),unit,adjustl(wStatus),adjustl(wFile)
    flush(units_logUnit)
  
  end subroutine f_writeLog
  