1 /*
2 
3 -Procedure ekuef_c  ( EK, unload event file )
4 
5 -Abstract
6 
7    Unload an EK file, making its contents inaccessible to the
8    EK reader routines, and clearing space in order to allow other
9    EK files to be loaded.
10 
11 -Disclaimer
12 
13    THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE
14    CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S.
15    GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE
16    ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE
17    PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS"
18    TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY
19    WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A
20    PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC
21    SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE
22    SOFTWARE AND RELATED MATERIALS, HOWEVER USED.
23 
24    IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA
25    BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT
26    LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND,
27    INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS,
28    REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE
29    REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY.
30 
31    RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF
32    THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY
33    CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE
34    ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE.
35 
36 -Required_Reading
37 
38    EK
39 
40 -Keywords
41 
42    EK
43    FILES
44 
45 */
46 
47    #include "SpiceUsr.h"
48    #include "SpiceZfc.h"
49 
ekuef_c(SpiceInt handle)50    void ekuef_c ( SpiceInt handle )
51 
52 /*
53 
54 -Brief_I/O
55 
56    Variable  I/O  Description
57    --------  ---  --------------------------------------------------
58    handle     I   Handle of EK file.
59 
60 -Detailed_Input
61 
62    handle         is a file handle returned by eklef_c.
63 
64 -Detailed_Output
65 
66    None.  See $Particulars for a description of the effect of this
67    routine.
68 
69 -Parameters
70 
71    None.
72 
73 -Exceptions
74 
75    1)  Unloading a file that is not loaded has no effect.
76 
77 -Files
78 
79    This routine unloads a binary EK file from the EK query system.
80 
81 -Particulars
82 
83    This routine removes information about an EK file from the
84    EK system, freeing space to increase the number of other EK
85    files that can be loaded.  The file is also unloaded from
86    the DAS system and closed.
87 
88 -Examples
89 
90    1)  Load 25 EK files sequentially, unloading the previous file
91        before each new file is loaded.  Unloading files prevents
92        them from being searched during query execution.
93 
94           for ( i = 0;  i < 25;  i++ )
95           {
96              eklef_c ( ek[i], &handle );
97 
98              [Perform queries]
99 
100              ekuef_c ( handle );
101           }
102 
103 
104 -Restrictions
105 
106    None.
107 
108 -Literature_References
109 
110    None.
111 
112 -Author_and_Institution
113 
114    N.J. Bachman   (JPL)
115 
116 -Version
117 
118    -CSPICE Version 1.0.0, 26-JUL-1998 (NJB)
119 
120       Based on SPICELIB Version 1.0.1, 07-JUL-1996 (NJB)
121 
122 -Index_Entries
123 
124    unload EK file
125 
126 -&
127 */
128 
129 { /* Begin ekuef_c */
130 
131    /*
132    Participate in error tracing.
133    */
134    chkin_c ( "ekuef_c" );
135 
136 
137    /*
138    Call the f2c'd Fortran routine.
139    */
140    ekuef_ ( (integer *) &handle );
141 
142 
143    chkout_c ( "ekuef_c" );
144 
145 } /* End ekuef_c */
146