Procedure

     DAFWFR ( DAF write file record )

     SUBROUTINE DAFWFR ( HANDLE, ND, NI, IFNAME, FWARD, BWARD, FREE )

Abstract

     Write or rewrite the contents of the file record of a DAF.

Required_Reading

     DAF

Keywords

     FILES

Declarations

     IMPLICIT NONE

     INTEGER               HANDLE
     INTEGER               ND
     INTEGER               NI
     CHARACTER*(*)         IFNAME
     INTEGER               FWARD
     INTEGER               BWARD
     INTEGER               FREE

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   Handle of an open DAF file.
     ND         I   Number of double precision components in summaries.
     NI         I   Number of integer components in summaries.
     IFNAME     I   Internal filename.
     FWARD      I   Forward list pointer.
     BWARD      I   Backward list pointer.
     FREE       I   Free address pointer.

Detailed_Input

     HANDLE   is the handle associated with a DAF file opened for
              writing.

     ND,
     NI       are the numbers of double precision and integer
              components, respectively, in each array summary
              in the specified file.

     IFNAME   is the internal file name to be stored in the first
              (or file) record of the specified file.

     FWARD    is the forward list pointer. This points to the
              first summary record in the file.

     BWARD    is the backward list pointer. This points to the
              final summary record in the file.

     FREE     is the free address pointer. This contains the
              first free address in the file.

Detailed_Output

     None.

Parameters

     None.

Exceptions

     1)  If the handle passed to this routine is not the handle of an
         open DAF file, an error is signaled by a routine in the call
         tree of this routine.

     2)  If the specified DAF file is not open for write access, an
         error is signaled by a routine in the call tree of this
         routine.

     3)  If the file record cannot (for some reason) be written,
         the error SPICE(DAFWRITEFAIL) is signaled.

     4)  If the attempt to read the file record fails, the error
         SPICE(DAFREADFAIL) is signaled.

Files

     None.

Particulars

     The file record of a DAF is the only record that contains
     any global information about the file. This record is created
     when the file is created, and is updated only when new arrays
     are added.

        DO NOT CHANGE THE CONTENTS OF THE FILE RECORD UNLESS
        YOU ARE ABSOLUTELY SURE YOU KNOW WHAT YOU ARE DOING.

     Like character records, file records are not buffered.

Examples

     None.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 4.1.0, 06-AUG-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard.

        Moved DAF required reading from $Literature_References to
        $Required_Reading section. Fixed typo in $Brief_I/O: ND
        argument was listed twice. Second should be NI. Removed
        unnecessary entries in $Revisions section.

    SPICELIB Version 4.0.0, 27-NOV-2001 (FST)

        Updated this routine to utilize new handle manager
        interfaces. Comments were expanded and clarified.

    SPICELIB Version 3.0.0, 21-MAR-1999 (FST)

        This routine was modified to accommodate the preservation
        of the FTP validation and binary file format strings that
        are now part of the DAF file record.

    SPICELIB Version 2.0.0, 05-OCT-1993 (KRG)

        The error SPICE(DAFNOIDWORD) is no longer signaled by this
        routine. The reason for this is that if DAFSIH returns OK then
        the handle passed to this routine is indeed a valid DAF file
        handle, otherwise the error is diagnosed by DAFSIH.

        Added two new exceptions to the $Exceptions section: 1 and 4.
        The remaining exceptions (2 and 3) were already present. The
        exceptions that were added are not new, but are being
        documented for the first time.

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

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

    SPICELIB Version 1.0.1, 22-MAR-1990 (HAN)

        Literature references added to the header.

    SPICELIB Version 1.0.0, 31-JAN-1990 (IMU)