Procedure

     DAFARR ( DAF, add reserved records )

     SUBROUTINE DAFARR ( HANDLE, RESV )

Abstract

     Add a specified number of reserved records to a Double Precision
     Array File (DAF).

Required_Reading

     DAF

Keywords

     FILES

Declarations

     IMPLICIT NONE

     INTEGER               HANDLE
     INTEGER               RESV

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   Handle of a DAF file opened for writing.
     RESV       I   Number of records to reserve.

Detailed_Input

     HANDLE   is the handle associated with a DAF file that has
              been opened with write access.

     RESV     is the number of reserved records to be added
              to the specified file.

Detailed_Output

     None.

Parameters

     None.

Exceptions

     1)  If RESV is less than one, the file is not changed.

Files

     See argument HANDLE.

Particulars

     Normally, the reserved records in an array file are reserved
     when the file is created. However, it may occasionally become
     necessary to add reserved records---when the contents of one
     file are appended to another, for example. (In this case, any
     information in the reserved records of either file should
     be included in the resulting file.)

     The new reserved records are appended to the old ones. The new
     reserved records are also NULL filled.

Examples

     In the following call to DAFARR, assume that HANDLE is the file
     handle for a DAF file that has been opened for write access, and
     that the DAF file already contains 12 reserved records (located in
     records 2-13 of the physical file).

        CALL DAFARR ( HANDLE, 7 )

     After this call, the DAF file attached to HANDLE will contain 19
     reserved records. The new reserved records are located in
     records 14-20 of the physical file.

Restrictions

     1)  This routine will only add reserved records to DAFs open for
         write. These files are implicitly of the native binary file
         format.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     K.R. Gehringer     (JPL)
     W.L. Taber         (JPL)
     F.S. Turner        (JPL)
     I.M. Underwood     (JPL)

Version

    SPICELIB Version 1.6.0, 13-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.5.0, 16-NOV-2001 (FST)

        Added a call to DAFSIH to prevent this routine from
        attempting to write to non-native binary file formats.
        This will provide a more useful error diagnostic with
        little impact on performance.

    SPICELIB Version 1.4.0, 08-MAR-1996 (KRG)

        Added code to write NULL filled records to the file for the
        new reserved records.

    SPICELIB Version 1.3.0, 12-MAY-1994 (KRG)

        Added a missing call to CHKOUT before the RETURN statement in
        the test

              IF ( RESV .LT. 1 ) THEN
                 RETURN
              END IF

    SPICELIB Version 1.2.0, 30-SEP-1993 (KRG)

        $Detailed_Input and $Examples section of the header were
        modified.

        Added calls to the FORTRAN intrinsic functions INT and
        DBLE in the code that updates the summary record.

        Modified an IF loop to make logic clearer.

    SPICELIB Version 1.0.1, 10-MAR-1992 (WLT)

        Comment section for permuted index source lines was added
        following the header.

    SPICELIB Version 1.0.0, 17-JUL-1990 (IMU)