SUBROUTINE RECPUT(NF,IBUF)
C
C     * NOV 29/91 - M.LAZARE. REPLACEMENT OF BUFFER OUT BY UNFORMATTED
C     *                       WRITE. EMULATION OF "UNIT" FUNCTION DONE
C     *                       BY SETTING K=2 FOR POOR WRITE, ELSE K=-1. 
C     * FEB 11/81 - J.D.HENDERSON 
C     * WRITES RECORD IMAGE IN IBUF TO FILE NF. 
C     * LABEL IS IN IBUF(1-8) FOLLOWED BY THE DATA (POSSIBLY PACKED). 
C 
      INTEGER IBUF(9) 
C---------------------------------------------------------------------
C     * GET RECORD LENGTH.
C 
      CALL LBLCHK(LEN,NWDS,NPACK,IBUF)
C 
C     * WRITE THE LABEL AND DATA ONTO FILE NF.
C 
      WRITE(NF,ERR=901) (IBUF(I),I=1,LEN)
      K=-1
      RETURN
C
  901 K=2
      RETURN 
C
      END