Procedure

     DAFWCR ( DAF, write character record )

     SUBROUTINE DAFWCR ( HANDLE, RECNO, CREC )

Abstract

     Write or rewrite the contents of a character record to
     a DAF.

Required_Reading

     DAF

Keywords

     FILES

Declarations

     IMPLICIT NONE

     INTEGER               HANDLE
     INTEGER               RECNO
     CHARACTER*(*)         CREC

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   Handle of DAF.
     RECNO      I   Record number of character record.
     CREC       I   Character record.

Detailed_Input

     HANDLE   is the handle associated with a DAF.

     RECNO    is the record number of a character record within
              the file. If the record does not already exist, it
              is created. Otherwise its contents are overwritten.

     CREC     contains the first 1000 characters of the specified
              record.

Detailed_Output

     None.

Parameters

     None.

Exceptions

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

     2)  If the declared length of CREC is not 1000 characters,
         the error SPICE(DAFBADRECLEN) is signaled.

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

Files

     None.

Particulars

     Unlike double precision records, character records are
     not buffered.

Examples

     In the following example, matching summary and name records are
     written to a DAF:

        CALL DAFWDR ( HANDLE, NEXT,   DREC )
        CALL DAFWCR ( HANDLE, NEXT+1, CREC )

     Note that a character record always immediately follows a summary
     record.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 2.1.0, 14-APR-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.

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

        Updated this routine to utilize new handle manager
        interfaces. Replaced the check of the input handle's
        sign with the appropriate call to DAFSIH.

    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)