anchor.diff:      call f_close(fileUnit)
   
       ! Re-open for appending
  -    call f_open(unit=fileUnit,file=fileName,formatted=.true.,mode="w+",err=fErr,status="old")
  +    call f_open(unit=fileUnit,file=fileName,formatted=.true.,mode="w+",err=fErr,iostat=iError,status="old")
       if(fErr) goto 10
   #ifdef CR
       write(crlog,"(2(a,i0))") "UNITS> Sucessfully repositioned '"//trim(fileName)//"': "//&
  
positive.code:   if(present(err)) then
      err = .false.
    end if
    return
  
  10 continue
    call f_writeLog("OPEN",unit,"ERROR",file)
    if(present(err)) then
      err = .true.
      if(units_beQuiet .eqv. .false.) then
  
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
  