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