anchor.diff:  10 continue
   #ifdef CR
     write(crlog,"(a,i0)")    "UNITS> ERROR While reading '"//trim(fileName)//"', iostat = ",iError
  -  write(crlog,"(2(a,i0))") "UNITS>       Position: ",filePos,", Position C/R: ",newPos
  +  write(lerr, "(2(a,i0))") "UNITS>       Current position: ",filePos,", requested position: ",newPos
     flush(crlog)
   #endif
  -  write(lerr, "(a)")"UNITS> ERROR Failed to reposition file '"//trim(fileName)//"'"
  +  write(lerr, "(a,i0)")    "UNITS> ERROR While reading '"//trim(fileName)//"', iostat = ",iError
  +  write(lerr, "(2(a,i0))") "UNITS>       Current position: ",filePos,", requested position: ",newPos
     call prror
   
   end subroutine f_positionFile
  
positive.code:       "unit ",fileUnit," already in use"
      flush(crlog)
  #endif
      write(lerr,"(a)")"UNITS> ERROR Failed to reposition file '"//trim(fileName)//"'"
      call prror
    end if
  
    if(newPos /= -1) then
      call f_open(unit=fileUnit,file=fileName,formatted=.true.,mode="rw",err=fErr,status="old")
      if(fErr) goto 10
      filePos = 0
      do j=1,newPos
  
negative.code:     call f_close(fileUnit)
  
      ! Re-open for appending
      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)//"': "//&
  