anchor.diff:      close(unit)
       units_uList(unit)%open = .false.
       if(units_uList(unit)%taken) then
  -      call f_writeLog("CLOSE","CLOSED",unit,units_uList(unit)%file)
  +      call f_writeLog("CLOSE",unit,"CLOSED",units_uList(unit)%file)
       else
  -      call f_writeLog("CLOSE","CLOSED",unit,"*** Unknown File ***")
  -    end if
  -  else
  -    call f_writeLog("CLOSE","NOTOPEN",unit,units_uList(unit)%file)
  +      call f_writeLog("CLOSE",unit,"CLOSED","*** Unknown File ***")
  +    end if
  +  else
  +    call f_writeLog("CLOSE",unit,"NOTOPEN",units_uList(unit)%file)
     end if
   
   end subroutine f_close
  
positive.code:   if(ioStat /= 0) then
      err = .true.
      write(error_unit,"(a,i0)") "UNITS> File '"//trim(file)//"' reported iostat = ",ioStat
      call f_writeLog("OPEN","ERROR",unit,file)
    end if
  
    if(units_uList(unit)%fixed) then
      call f_writeLog("OPEN","FiXED",unit,file)
    else
      call f_writeLog("OPEN","ASSIGNED",unit,file)
    end if
    return
  
  10 continue
    err = .true.
    write(error_unit,"(a)") "UNITS> File '"//trim(file)//"' reported an error"
    call f_writeLog("OPEN","ERROR",unit,file)
  
  end subroutine f_open
  
  
negative.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    Unit  Status    FileName"
    flush(units_logUnit)
    call f_writeLog("INIT",units_logUnit,"FIXED",units_logFile)
  
  end subroutine f_initUnits
  
  