ekntab |
Table of contents
ProcedureEKNTAB ( EK, return number of loaded tables ) ENTRY EKNTAB ( N ) AbstractReturn the number of loaded EK tables. Required_ReadingEK KeywordsEK FILES DeclarationsINTEGER N Brief_I/OVARIABLE I/O DESCRIPTION -------- --- -------------------------------------------------- N O Number of loaded tables. Detailed_InputNone. Detailed_OutputN 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. ParametersNone. ExceptionsNone. FilesThe returned count is based on the currently loaded EK files. ParticularsThis 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. ExamplesThe 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 RestrictionsNone. Literature_ReferencesNone. Author_and_InstitutionN.J. Bachman (JPL) J. Diaz del Rio (ODC Space) VersionSPICELIB 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) |
Fri Dec 31 18:36:18 2021