Procedure

     DAFCAD ( DAF, continue adding data )

     ENTRY DAFCAD ( HANDLE )

Abstract

     Select a DAF that already has a new array in progress as the
     one to continue adding data to.

Required_Reading

     DAF

Keywords

     FILES

Declarations

    IMPLICIT NONE

    INTEGER               HANDLE

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   Handle of DAF to continue adding data to.

Detailed_Input

     HANDLE   is the handle of a DAF that is open for write
              access and in which a new array has been
              started by a call to DAFBNA.

Detailed_Output

     None.

Parameters

     None.

Exceptions

     1)  If the input handle is not that of a DAF that is open for
         writing, an error is signaled by a routine in the call tree of
         this routine.

     2)  If no array is currently being added to in the file indicated
         by HANDLE, the error SPICE(NOARRAYSTARTED) is signaled.

Files

     None.

Particulars

     DAFCAD supports simultaneous addition of data to arrays in
     multiple DAFs. In applications that use this capability,
     DAFCAD should be called prior to each call to DAFADA or DAFENA
     to specify which DAF is to be acted upon.

     Here is a code fragment that adds a new array to each of N
     existing DAFs, simultaneously. The data to be added to each
     is broken up into M chunks; one chunk is written to each DAF
     at a time. The data is contained in the array CHUNK, dimensioned

         DOUBLE PRECISION      CHUNK ( MAXDAT, M, N )

     The actual amount of data in the Jth chunk for the Ith file is
     given by

         AMOUNT (J,I)



         DO I = 1, N
            CALL DAFOPW ( HANDLE(I) )
            CALL DAFBNA ( HANDLE(I) )
         END DO

         DO J = 1, M

            DO I = 1, N
               CALL DAFCAD  ( HANDLE(I)                  )
               CALL DAFADA  ( CHUNK(1,J,I),  AMOUNT(J,I) )
            END DO

         END DO

         DO I = 1, N
            CALL DAFCAD  ( HANDLE(I) )
            CALL DAFENA
         END DO


     Note that if we write all of the data for each array to just one
     DAF at a time, we don't need to use DAFCAD:

        DO I = 1, N

           CALL DAFOPW ( HANDLE(I) )
           CALL DAFBNA ( HANDLE(I) )

           DO J = 1, M
              CALL DAFADA ( CHUNK(1,J,I),  AMOUNT(J,I) )
           END DO

           CALL DAFENA

        END DO

Examples

     See $Examples in DAFANA.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)
     F.S. Turner        (JPL)

Version

    SPICELIB Version 3.1.0, 06-JUL-2021 (JDR)

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Edited entry #2
        in $Exceptions section: No write in progress is detected by
        this routine.

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

        Updated entry points to support changes made to the DAF
        system that utilize the new handle manager. See
        the $Revisions section of DAFANA for a detailed
        discussion of the changes.

    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, 04-SEP-1991 (NJB) (WLT)