Procedure

     DASWRD ( DAS, write record, double precision )

     ENTRY DASWRD ( HANDLE, RECNO, RECD )

Abstract

     Write DAS double precision physical records.

Required_Reading

     DAS

Keywords

     ASSIGNMENT
     DAS
     FILES

Declarations

    INTEGER               HANDLE
    INTEGER               RECNO
    DOUBLE PRECISION      RECD   ( NWD )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   Handle of DAS file.
     RECNO      I   Record number.
     RECD       I   Double precision data to be written to record.
     BUFSZD     P   Number of records in the DP record buffer.
     NWD        P   Number of DP in a single DAS DP record.

Detailed_Input

     HANDLE   is the handle of a DAS file opened for writing.

     RECNO    is the number of a record in a DAS file.

     RECD     is an array of NWD double precision numbers. The
              contents of this array are to be written to the
              physical file record having number RECNO.

Detailed_Output

     None. See $Particulars for a description of the action of this
     routine.

Parameters

     NWD      is the number of DPs in a single DAS record
              containing DPs.

     BUFSZD   is the number of records in the double precision
              record buffer.

Exceptions

     1)  If the input file handle is invalid, an error is signaled by a
         routine in the call tree of this routine. The DAS file
         designated by HANDLE will not be modified.

     2)  If a write operation attempted by this routine fails, an error
         is signaled by a routine in the call tree of this routine. The
         status of the DAS file written to is uncertain in this case.
         Note that the file written to may be different than the file
         designated by HANDLE if multiple DAS files are open for
         writing.

Files

     See the description of the argument HANDLE in $Detailed_Input.

Particulars

     Routines outside of SPICELIB will normally have no need to call
     this routine.

     This routine can be used to write to only DAS files that are open
     for writing. Records written via this routine will always be
     buffered immediately, but may not be written to the file until
     they are cleared from the double precision buffer to make room
     for other records, or until they are explicitly forced to to be
     written via a call to DASWBR. In any case, at the moment this
     routine returns, the data supplied on input may be read back by
     DASRRD or updated by DASURD.

     Closing a DAS file via DASCLS forces any remaining updated data
     records buffered by this routine to be written to the file.

Examples

     1)  Write an array of NWD double precision numbers to the 9th
         record in a DAS file designated by HANDLE.

            DOUBLE PRECISION        RECD

                         .
                         .
                         .

            DO I = 1, NWD
               RECD(I) = DBLE(I)
            END DO

            CALL DASWRD ( HANDLE, 9, RECD )

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     K.R. Gehringer     (JPL)
     B.V. Semenov       (JPL)
     W.L. Taber         (JPL)

Version

    SPICELIB Version 2.0.1, 22-FEB-2021 (JDR)

        Edited the header to comply with NAIF standard.

    SPICELIB Version 2.0.0, 30-JUL-2014 (NJB)

        Upgraded to support handle manager integration.

    SPICELIB Version 1.0.3, 10-FEB-2014 (BVS)

        Added description of NWD to the $Parameters and $Brief_I/O
        sections of the header.

    SPICELIB Version 1.0.2, 03-NOV-1995 (NJB)

        Removed weird spaces from ENTRY statement.

    SPICELIB Version 1.0.1, 28-OCT-1993 (KRG)

        Removed references to specific DAS file open routines in the
        $Detailed_Input section of the header. This was done in order
        to minimize documentation changes if the DAS open routines ever
        change.

    SPICELIB Version 1.0.0, 30-JUN-1992 (NJB) (WLT)