anchor.diff:    unit = -1
     call f_getUnit(file,unit)
     if(unit > 0) then
  -    call f_writeLog("REQUEST","EXISTS",unit,trim(file))
  +    call f_writeLog("REQUEST",unit,"EXISTS",trim(file))
       return
     end if
   
  
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: 
  end subroutine f_flush
  
  subroutine f_writeLog(action,unit,status,file)
  
    use floatPrecision
  
    character(len=*), intent(in) :: action
    integer,          intent(in) :: unit
    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
    
  