anchor.diff:        action=fAction,access=fAccess,position=fPosition,err=10)
     endif
   
  +  if(present(iostat)) then
  +    iostat = fStat
  +  end if
  +
     if(fStat /= 0) then
       call f_writeLog("OPEN",unit,"ERROR",file)
  -    if(present(iostat)) then
  -      iostat = fStat
  -    end if
       if(present(err)) then
         err = .true.
         if(units_beQuiet .eqv. .false.) then
  
positive.code:     fAction   = "readwrite"
      fPosition = "append"
    case default
      fMode     = "r"
      fAction   = "read"
      fPosition = "asis"
  
negative.code:       "unit ",fileUnit," already in use"
      flush(crlog)
  #endif
      write(lerr, "(a,i0,a)") "UNITS> ERROR Failed while repositioning '"//trim(fileName)//"', "//&
        "unit ",fileUnit," already in use"
      call prror
    end if
  
    if(newPos /= -1) then
      call f_open(unit=fileUnit,file=fileName,formatted=.true.,mode="rw",err=fErr,iostat=iError,status="old")
      if(fErr) goto 10
      filePos = 0
      do j=1,newPos
  