Procedure

     EKNTAB  ( EK, return number of loaded tables )

     ENTRY EKNTAB ( N )

Abstract

     Return the number of loaded EK tables.

Required_Reading

     EK

Keywords

     EK
     FILES

Declarations

    INTEGER               N

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     N          O   Number of loaded tables.

Detailed_Input

     None.

Detailed_Output

     N        is the number of loaded tables. The count refers
              to the number of logical tables; if multiple
              segments contain data for the same table, these
              segments collectively contribute only one table
              to the count.

Parameters

     None.

Exceptions

     None.

Files

     The returned count is based on the currently loaded EK files.

Particulars

     This routine is a utility that provides the caller with the
     number of loaded tables. Callers of EKTNAM can use this count
     as the upper bound on set of table indices when looking up table
     names.

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) Suppose we have several EK files. Load one at a time and
        display, right after, the number of loaded EK tables in the
        system.

        Use the EK kernel below to load the Cassini Science Plan
        SPICE E-Kernel File based upon integrated science plan. This
        kernel contains 3 tables.

           S79_CIMSSSUPa.bep

        Use the EK kernel below to load the Cassini Spacecraft
        Sequence Status SPICE E-Kernel File based upon integrated
        Predicted Events File. This kernel contains 1 table.

           S79_status_pf.bes


        Example code begins here.


              PROGRAM EKNTAB_EX1
              IMPLICIT NONE

        C
        C     Local variables
        C
              INTEGER               N

        C
        C     Load the first EK.
        C
              CALL FURNSH ( 'S79_CIMSSSUPa.bep' )

        C
        C     Display the number of EK tables in the system after
        C     the first EK file is loaded.
        C
              CALL EKNTAB ( N )
              WRITE(*,'(A,I3)') 'EK tables in the system (1 EK):', N

        C
        C     Load the second EK.
        C
              CALL FURNSH ( 'S79_status_pf.bes' )

        C
        C     Display the number of EK tables in the system after
        C     the second EK file is loaded.
        C
              CALL EKNTAB ( N )
              WRITE(*,'(A,I3)') 'EK tables in the system (2 EK):', N

              END


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


        EK tables in the system (1 EK):  3
        EK tables in the system (2 EK):  4

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     N.J. Bachman       (JPL)
     J. Diaz del Rio    (ODC Space)

Version

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

        Added IMPLICIT NONE statement.

        Edited the header to comply with NAIF standard. Added complete
        code example based on existing fragments.

        Removed the requirement of loading the files via EKELF from the
        $Files section.

    SPICELIB Version 2.0.0, 16-NOV-2001 (NJB)

        Bug fix: When an already loaded kernel is opened with EKOPR,
        it now has its link count reset to 1 via a call to EKCLS.

    SPICELIB Version 1.0.1, 07-JUL-1996 (NJB)

        Previous version line was changed from "Beta" to "SPICELIB."

    SPICELIB Version 1.0.0, 23-OCT-1995 (NJB)