anchor.diff:    character(len=14), parameter :: units_logFile  = "file_units.log"  ! File name for internal log file
   
     type, private :: unitRecord
  -    character(len=64), private :: file  = " "     ! The requested file name (not BOINC)
  -    character(len=3),  private :: mode  = " "     ! Read/write mode
  -    logical,           private :: taken = .false. ! Whether a unit is known to be taken or not
  -    logical,           private :: open  = .false. ! Whether file is opened by the module or not
  -    logical,           private :: fixed = .true.  ! Whether the unit was requested as a fixed unit or not
  +    character(len=mFNameLen), private :: file  = " "     ! The requested file name (not BOINC)
  +    character(len=3),         private :: mode  = " "     ! Read/write mode
  +    logical,                  private :: taken = .false. ! Whether a unit is known to be taken or not
  +    logical,                  private :: open  = .false. ! Whether file is opened by the module or not
  +    logical,                  private :: fixed = .true.  ! Whether the unit was requested as a fixed unit or not
     end type unitRecord
   
     ! Array to keep track of files
  
positive.code:     fAccess = "sequential"
    end if
  
    if(len_trim(file) > 64) then
      write(error_unit,"(a,i0)") "UNITS> ERROR Max length of file name in f_open is 64 characters, got ",len_trim(file)
      call prror
    end if
  
  
negative.code:   character(len=*), intent(in) :: status
    character(len=*), intent(in) :: file
  
    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
  
  