Index of Functions: A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X 
Index Page
dasrdi

Table of contents
Procedure
Abstract
Required_Reading
Keywords
Declarations
Brief_I/O
Detailed_Input
Detailed_Output
Parameters
Exceptions
Files
Particulars
Examples
Restrictions
Literature_References
Author_and_Institution
Version

Procedure

     DASRDI ( DAS, read data, integer )

     SUBROUTINE DASRDI ( HANDLE, FIRST, LAST, DATA )

Abstract

     Read integer data from a range of DAS logical addresses.

Required_Reading

     DAS

Keywords

     ARRAY
     ASSIGNMENT
     DAS
     FILES

Declarations

     IMPLICIT NONE

     INTEGER               HANDLE
     INTEGER               FIRST
     INTEGER               LAST
     INTEGER               DATA   ( * )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   DAS file handle.
     FIRST,
     LAST       I   Bounds of range of DAS integer logical addresses.
     DATA       O   Data having addresses FIRST through LAST.

Detailed_Input

     HANDLE   is a file handle for an open DAS file.

     FIRST,
     LAST     are the lower and upper bounds of a range of DAS integer
              logical addresses. The range includes these bounds. FIRST
              and LAST must be greater than or equal to 1 and less than
              or equal to the highest integer DAS address in the DAS
              file designated by HANDLE.

Detailed_Output

     DATA     is an array of integers. DATA should have length
              at least LAST - FIRST + 1.

Parameters

     None.

Exceptions

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

     2)  If FIRST or LAST are out of range, an error is signaled
         by a routine in the call tree of this routine.

     3)  If FIRST is greater than LAST, DATA is left unchanged.

     4)  If DATA is declared with length less than FIRST - LAST + 1,
         the error cannot be diagnosed by this routine.

     5)  If a file read error occurs, the error is signaled by a
         routine in the call tree of this routine.

Files

     See the description of the argument HANDLE in $Detailed_Input.

Particulars

     This routine provides random read access to the integer data in
     a DAS file. This data are logically structured as a
     one-dimensional array of integers.

Examples

     The numerical results shown for this example may differ across
     platforms. The results depend on the SPICE kernels used as
     input, the compiler and supporting libraries, and the machine
     specific arithmetic implementation.

     1) Create a new DAS file and add 200 integers to it. Close the
        file, then re-open it and read the data back out.


        Example code begins here.


              PROGRAM DASRDI_EX1
              IMPLICIT NONE

        C
        C     Local parameters.
        C
              CHARACTER*(*)         FNAME
              PARAMETER           ( FNAME = 'dasrdi_ex1.das' )

              CHARACTER*(*)         TYPE
              PARAMETER           ( TYPE  = 'TEST' )

        C
        C     Local variables.
        C
              INTEGER               DATA   ( 200 )

              INTEGER               HANDLE
              INTEGER               I
              INTEGER               J

        C
        C     Open a new DAS file. Use the file name as the internal
        C     file name, and reserve no records for comments.
        C
              CALL DASONW ( FNAME, TYPE, FNAME, 0, HANDLE )

        C
        C     Fill the array DATA with the integers 1 through
        C     100, and add this array to the file.
        C
              DO I = 1, 100
                 DATA(I) = I
              END DO

              CALL DASADI ( HANDLE, 100, DATA )

        C
        C     Now append the array DATA to the file again.
        C
              CALL DASADI ( HANDLE, 100, DATA )

        C
        C     Close the file.
        C
              CALL DASCLS ( HANDLE )

        C
        C     Now verify the addition of data by opening the
        C     file for read access and retrieving the data.
        C
              CALL DASOPR ( FNAME, HANDLE )
              CALL DASRDI ( HANDLE, 1, 200, DATA )

        C
        C     Dump the data to the screen.  We should see the
        C     sequence  1, 2, ..., 100, 1, 2, ... , 100.
        C
              WRITE (*,*)
              WRITE (*,*) 'Data from "', FNAME, '":'
              WRITE (*,*)
              DO I = 1, 20
                 WRITE (*,'(10I5)') (DATA((I-1)*10+J), J = 1, 10)
              END DO

        C
        C     Close the file.
        C
              CALL DASCLS ( HANDLE )

              END


        When this program was executed on a Mac/Intel/gfortran/64-bit
        platform, the output was:


         Data from "dasrdi_ex1.das":

            1    2    3    4    5    6    7    8    9   10
           11   12   13   14   15   16   17   18   19   20
           21   22   23   24   25   26   27   28   29   30
           31   32   33   34   35   36   37   38   39   40
           41   42   43   44   45   46   47   48   49   50
           51   52   53   54   55   56   57   58   59   60
           61   62   63   64   65   66   67   68   69   70
           71   72   73   74   75   76   77   78   79   80
           81   82   83   84   85   86   87   88   89   90
           91   92   93   94   95   96   97   98   99  100
            1    2    3    4    5    6    7    8    9   10
           11   12   13   14   15   16   17   18   19   20
           21   22   23   24   25   26   27   28   29   30
           31   32   33   34   35   36   37   38   39   40
           41   42   43   44   45   46   47   48   49   50
           51   52   53   54   55   56   57   58   59   60
           61   62   63   64   65   66   67   68   69   70
           71   72   73   74   75   76   77   78   79   80
           81   82   83   84   85   86   87   88   89   90
           91   92   93   94   95   96   97   98   99  100


        Note that after run completion, a new DAS file exists in the
        output directory.

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

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

Version

    SPICELIB Version 1.3.0, 09-OCT-2021 (JDR) (NJB)

        Added IMPLICIT NONE statement.

        Added FAILED call following DASA2L call.

        Updated entries in $Revisions section.

        Edited the header to comply with NAIF standard. Fixed
        bugs in the code example and modified the output presentation
        to comply with the maximum line length for header comments.

        Added entry #5 to $Exceptions section.

    SPICELIB Version 1.2.1, 19-DEC-1995 (NJB)

        Corrected title of permuted index entry section.

    SPICELIB Version 1.2.0, 30-OCT-1995 (NJB)

        Routine now uses discovery check-in. FAILED test moved inside
        loop.

    SPICELIB Version 1.1.0, 12-MAY-1994 (KRG) (NJB)

        Test of FAILED() added to loop termination condition.

        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.

        Modified the $Examples section to demonstrate the new ID word
        format which includes a file type and to include a call to the
        new routine DASONW, open new for write, which makes use of the
        file type. Also,  a variable for the type of the file to be
        created was added.

    SPICELIB Version 1.0.0, 13-JUN-1992 (NJB) (WLT)
Fri Dec 31 18:36:11 2021