Procedure

     DAFRRR ( DAF, remove reserved records )

     SUBROUTINE DAFRRR ( HANDLE, RESV )

Abstract

     Remove a specified number of reserved records from 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   DAF, opened for writing.
     RESV       I   Number of records to remove.

Detailed_Input

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

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

Detailed_Output

     None.

Parameters

     None.

Exceptions

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

     2)  If RESV is greater than the number of reserved records in the
         file, all of the reserved records are removed.

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
     desirable to remove reserved records---when their contents are
     significantly reduced, for example.

     The records nearest the end of the file are removed. Note
     that the physical size of the file is not reduced when reserved
     records are removed.

Examples

     For the following call to DAFRRR, 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 DAFRRR ( HANDLE, 7 )

     After this call to DAFRRR, the number of reserved records has been
     decreased by 7, leaving only the first five of the original
     reserved records, physical records 2-6.

Restrictions

     1)  This routine will only remove reserve records from 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.3.0, 02-JUN-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

    SPICELIB Version 1.2.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.1.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.

    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, 18-JUL-1990 (IMU)