anchor.diff:    end do
   
     if(unit > 0) then
  -    call f_writeLog("REQUEST","NEW",unit,trim(file))
  +    call f_writeLog("REQUEST",unit,"NEW",trim(file))
       units_uList(unit)%file  = trim(file)
       units_uList(unit)%mode  = ""
       units_uList(unit)%taken = .true.
  
positive.code:   open(units_logUnit,file=units_logFile,form="formatted",status="replace",action="write")
    write(units_logUnit,"(a)") "# File Units Log"
    write(units_logUnit,"(a)") repeat("#",100)
    write(units_logUnit,"(a)") "#   AtTime  Action      Status    Unit  FileName"
    flush(units_logUnit)
    call f_writeLog("ASSIGNED","OK",units_logUnit,units_logFile)
  
  end subroutine f_initUnits
  
  
negative.code:   if(ioStat /= 0) then
      err = .true.
      write(error_unit,"(a,i0)") "UNITS> File '"//trim(file)//"' reported iostat = ",ioStat
      call f_writeLog("OPEN",unit,"ERROR",file)
    end if
  
    if(units_uList(unit)%fixed) then
      call f_writeLog("OPEN",unit,"FiXED",file)
    else
      call f_writeLog("OPEN",unit,"ASSIGNED",file)
    end if
    return
  
  10 continue
    err = .true.
    write(error_unit,"(a)") "UNITS> File '"//trim(file)//"' reported an error"
    call f_writeLog("OPEN",unit,"ERROR",file)
  
  end subroutine f_open
  
  