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:   end do
  
    if(unit > 0) then
      call f_writeLog("REQUEST","NEW",unit,trim(file))
      units_uList(unit)%file  = trim(file)
      units_uList(unit)%mode  = ""
      units_uList(unit)%taken = .true.
  
negative.code:         units_uList(i)%taken = .true.
          units_uList(i)%open  = .false.
          units_uList(i)%fixed = .false.
          call f_writeLog("REQUEST",i,"TAKEN",trim(file))
        end if
      else
        unit = i
  