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:   wFile   = file
  
    call cpu_time(cpuTime)
    write(units_logUnit,"(f10.3,2x,a8,2x,i4,2x,a8,2x,a64)") cpuTime,adjustl(wAction),unit,adjustl(wStatus),adjustl(wFile)
    flush(units_logUnit)
  
  end subroutine f_writeLog
  
negative.code:   integer i
    logical isOpen
  
    if(len_trim(file) > mFNameLen) then
      write(error_unit,"(2(a,i0))") "UNITS> ERROR Max length of file name in f_requestUnit is ",mFNameLen,&
        " characters, got ",len_trim(file)
      call prror
    end if
  
  