diff --git a/CMakeLists.txt b/CMakeLists.txt index c38001263..f92f11630 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -127,6 +127,7 @@ add_custom_target(CopyData ALL COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/Script/ ${CMAKE_BINARY_DIR}/Script COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/Config/ ${CMAKE_BINARY_DIR}/Config COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/GravityModels/ ${CMAKE_BINARY_DIR}/GravityModels + COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/Kernels/ ${CMAKE_BINARY_DIR}/Kernels COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_SOURCE_DIR}/Flights/ ${CMAKE_BINARY_DIR}/Flights COMMAND ${CMAKE_COMMAND} -E make_directory ${ORBITER_BINARY_SDK_DIR}/lib/Lua ) @@ -156,6 +157,12 @@ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/cmake/pdftex_fix.bat.in ${PDFTEX_CMD} set(OrbiterTgt Orbiter) set(ORBITER_LIB $) +# ===================================================================================== +# Build Spice module for celbodies. If false, build legacy (VSOP87/ELP82,etc) +set(SPICE_BUILD TRUE) + +# ===================================================================================== + # ===================================================================================== # Configure Orbiter.cfg for externally installed planet textures @@ -266,7 +273,7 @@ endfunction() # Installation -install(DIRECTORY Scenarios Textures Meshes Config GravityModels Script Flights BinAssets/ +install(DIRECTORY Scenarios Textures Meshes Config GravityModels Kernels Script Flights BinAssets/ DESTINATION ${ORBITER_INSTALL_ROOT_DIR} ) diff --git a/Kernels/codes_300ast_20100725.tf b/Kernels/codes_300ast_20100725.tf new file mode 100644 index 000000000..a4f5851ff --- /dev/null +++ b/Kernels/codes_300ast_20100725.tf @@ -0,0 +1,953 @@ +KPL/FK + + This text kernel accompanies the SPK file ``codes_300ast_20100725.bsp'', + containing asteroid ephemeris data generated by the Comet/asteroid + Orbit Determination and Ephemeris Software (CODES) developed by Jim + Baer. + + In the first section, this text kernel provides the definition of + the Ecliptic and Equinox of the J2000 frame, specified using the + DE405 obliquity angle value (84381.412 arcseconds). This frame is + used as the reference frame in the SPK file. The frame ID for this + frame is set to 1900017, an arbitrarily chosen number from the range + 1400000 to 2000000 set aside by NAIF for public use (see frames.req + document). + + In the second section, this file defines the NAIF name-ID mappings + for the 300 asteroids, ephemeris data for which is provided in the + SPK file. The names used in the mappings were extracted on 08/29/08 + from the DASCOM3 index table generated by the Solar System Dynamics + (SSD) group at JPL based on the asteroid NAIF IDs. For the + reference, this table is available from the SSD anonymous FTP site: + + ftp://ssd.jpl.nasa.gov/pub/xfr/DASTCOM3.IDX + + Contact Boris Semenov, NAIF (Boris.Semenov@jpl.nasa.gov) or Jim Baer + (jimbaer1@earthlink.net) if you have any questions about this kernel. + + +Definition of the ECLIPJ2000_DE405 Frame +---------------------------------------- + + \begindata + + FRAME_ECLIPJ2000_DE405 = 1900017 + FRAME_1900017_NAME = 'ECLIPJ2000_DE405' + FRAME_1900017_CLASS = 4 + FRAME_1900017_CLASS_ID = 1900017 + FRAME_1900017_CENTER = 0 + TKFRAME_1900017_SPEC = 'ANGLES' + TKFRAME_1900017_RELATIVE = 'J2000' + TKFRAME_1900017_ANGLES = ( 0.0, 0.0, -84381.412 ) + TKFRAME_1900017_AXES = ( 1, 3, 1 ) + TKFRAME_1900017_UNITS = 'ARCSECONDS' + + \begintext + + +Asteroid NAIF Name-ID Mapping Keywords +-------------------------------------- + + \begindata + + NAIF_BODY_NAME += ( '1 CERES' ) + NAIF_BODY_CODE += ( 2000001 ) + + NAIF_BODY_NAME += ( '2 PALLAS' ) + NAIF_BODY_CODE += ( 2000002 ) + + NAIF_BODY_NAME += ( '3 JUNO' ) + NAIF_BODY_CODE += ( 2000003 ) + + NAIF_BODY_NAME += ( '4 VESTA' ) + NAIF_BODY_CODE += ( 2000004 ) + + NAIF_BODY_NAME += ( '5 ASTRAEA' ) + NAIF_BODY_CODE += ( 2000005 ) + + NAIF_BODY_NAME += ( '6 HEBE' ) + NAIF_BODY_CODE += ( 2000006 ) + + NAIF_BODY_NAME += ( '7 IRIS' ) + NAIF_BODY_CODE += ( 2000007 ) + + NAIF_BODY_NAME += ( '8 FLORA' ) + NAIF_BODY_CODE += ( 2000008 ) + + NAIF_BODY_NAME += ( '9 METIS' ) + NAIF_BODY_CODE += ( 2000009 ) + + NAIF_BODY_NAME += ( '10 HYGIEA' ) + NAIF_BODY_CODE += ( 2000010 ) + + NAIF_BODY_NAME += ( '11 PARTHENOPE' ) + NAIF_BODY_CODE += ( 2000011 ) + + NAIF_BODY_NAME += ( '12 VICTORIA' ) + NAIF_BODY_CODE += ( 2000012 ) + + NAIF_BODY_NAME += ( '13 EGERIA' ) + NAIF_BODY_CODE += ( 2000013 ) + + NAIF_BODY_NAME += ( '14 IRENE' ) + NAIF_BODY_CODE += ( 2000014 ) + + NAIF_BODY_NAME += ( '15 EUNOMIA' ) + NAIF_BODY_CODE += ( 2000015 ) + + NAIF_BODY_NAME += ( '16 PSYCHE' ) + NAIF_BODY_CODE += ( 2000016 ) + + NAIF_BODY_NAME += ( '17 THETIS' ) + NAIF_BODY_CODE += ( 2000017 ) + + NAIF_BODY_NAME += ( '18 MELPOMENE' ) + NAIF_BODY_CODE += ( 2000018 ) + + NAIF_BODY_NAME += ( '19 FORTUNA' ) + NAIF_BODY_CODE += ( 2000019 ) + + NAIF_BODY_NAME += ( '20 MASSALIA' ) + NAIF_BODY_CODE += ( 2000020 ) + + NAIF_BODY_NAME += ( '21 LUTETIA' ) + NAIF_BODY_CODE += ( 2000021 ) + + NAIF_BODY_NAME += ( '22 KALLIOPE' ) + NAIF_BODY_CODE += ( 2000022 ) + + NAIF_BODY_NAME += ( '23 THALIA' ) + NAIF_BODY_CODE += ( 2000023 ) + + NAIF_BODY_NAME += ( '24 THEMIS' ) + NAIF_BODY_CODE += ( 2000024 ) + + NAIF_BODY_NAME += ( '25 PHOCAEA' ) + NAIF_BODY_CODE += ( 2000025 ) + + NAIF_BODY_NAME += ( '26 PROSERPINA' ) + NAIF_BODY_CODE += ( 2000026 ) + + NAIF_BODY_NAME += ( '27 EUTERPE' ) + NAIF_BODY_CODE += ( 2000027 ) + + NAIF_BODY_NAME += ( '28 BELLONA' ) + NAIF_BODY_CODE += ( 2000028 ) + + NAIF_BODY_NAME += ( '29 AMPHITRITE' ) + NAIF_BODY_CODE += ( 2000029 ) + + NAIF_BODY_NAME += ( '30 URANIA' ) + NAIF_BODY_CODE += ( 2000030 ) + + NAIF_BODY_NAME += ( '31 EUPHROSYNE' ) + NAIF_BODY_CODE += ( 2000031 ) + + NAIF_BODY_NAME += ( '32 POMONA' ) + NAIF_BODY_CODE += ( 2000032 ) + + NAIF_BODY_NAME += ( '34 CIRCE' ) + NAIF_BODY_CODE += ( 2000034 ) + + NAIF_BODY_NAME += ( '35 LEUKOTHEA' ) + NAIF_BODY_CODE += ( 2000035 ) + + NAIF_BODY_NAME += ( '36 ATALANTE' ) + NAIF_BODY_CODE += ( 2000036 ) + + NAIF_BODY_NAME += ( '37 FIDES' ) + NAIF_BODY_CODE += ( 2000037 ) + + NAIF_BODY_NAME += ( '38 LEDA' ) + NAIF_BODY_CODE += ( 2000038 ) + + NAIF_BODY_NAME += ( '39 LAETITIA' ) + NAIF_BODY_CODE += ( 2000039 ) + + NAIF_BODY_NAME += ( '40 HARMONIA' ) + NAIF_BODY_CODE += ( 2000040 ) + + NAIF_BODY_NAME += ( '41 DAPHNE' ) + NAIF_BODY_CODE += ( 2000041 ) + + NAIF_BODY_NAME += ( '42 ISIS' ) + NAIF_BODY_CODE += ( 2000042 ) + + NAIF_BODY_NAME += ( '43 ARIADNE' ) + NAIF_BODY_CODE += ( 2000043 ) + + NAIF_BODY_NAME += ( '44 NYSA' ) + NAIF_BODY_CODE += ( 2000044 ) + + NAIF_BODY_NAME += ( '45 EUGENIA' ) + NAIF_BODY_CODE += ( 2000045 ) + + NAIF_BODY_NAME += ( '46 HESTIA' ) + NAIF_BODY_CODE += ( 2000046 ) + + NAIF_BODY_NAME += ( '47 AGLAJA' ) + NAIF_BODY_CODE += ( 2000047 ) + + NAIF_BODY_NAME += ( '48 DORIS' ) + NAIF_BODY_CODE += ( 2000048 ) + + NAIF_BODY_NAME += ( '49 PALES' ) + NAIF_BODY_CODE += ( 2000049 ) + + NAIF_BODY_NAME += ( '50 VIRGINIA' ) + NAIF_BODY_CODE += ( 2000050 ) + + NAIF_BODY_NAME += ( '51 NEMAUSA' ) + NAIF_BODY_CODE += ( 2000051 ) + + NAIF_BODY_NAME += ( '52 EUROPA' ) + NAIF_BODY_CODE += ( 2000052 ) + + NAIF_BODY_NAME += ( '53 KALYPSO' ) + NAIF_BODY_CODE += ( 2000053 ) + + NAIF_BODY_NAME += ( '54 ALEXANDRA' ) + NAIF_BODY_CODE += ( 2000054 ) + + NAIF_BODY_NAME += ( '56 MELETE' ) + NAIF_BODY_CODE += ( 2000056 ) + + NAIF_BODY_NAME += ( '57 MNEMOSYNE' ) + NAIF_BODY_CODE += ( 2000057 ) + + NAIF_BODY_NAME += ( '58 CONCORDIA' ) + NAIF_BODY_CODE += ( 2000058 ) + + NAIF_BODY_NAME += ( '59 ELPIS' ) + NAIF_BODY_CODE += ( 2000059 ) + + NAIF_BODY_NAME += ( '62 ERATO' ) + NAIF_BODY_CODE += ( 2000062 ) + + NAIF_BODY_NAME += ( '63 AUSONIA' ) + NAIF_BODY_CODE += ( 2000063 ) + + NAIF_BODY_NAME += ( '65 CYBELE' ) + NAIF_BODY_CODE += ( 2000065 ) + + NAIF_BODY_NAME += ( '68 LETO' ) + NAIF_BODY_CODE += ( 2000068 ) + + NAIF_BODY_NAME += ( '69 HESPERIA' ) + NAIF_BODY_CODE += ( 2000069 ) + + NAIF_BODY_NAME += ( '70 PANOPAEA' ) + NAIF_BODY_CODE += ( 2000070 ) + + NAIF_BODY_NAME += ( '71 NIOBE' ) + NAIF_BODY_CODE += ( 2000071 ) + + NAIF_BODY_NAME += ( '72 FERONIA' ) + NAIF_BODY_CODE += ( 2000072 ) + + NAIF_BODY_NAME += ( '74 GALATEA' ) + NAIF_BODY_CODE += ( 2000074 ) + + NAIF_BODY_NAME += ( '75 EURYDIKE' ) + NAIF_BODY_CODE += ( 2000075 ) + + NAIF_BODY_NAME += ( '76 FREIA' ) + NAIF_BODY_CODE += ( 2000076 ) + + NAIF_BODY_NAME += ( '77 FRIGGA' ) + NAIF_BODY_CODE += ( 2000077 ) + + NAIF_BODY_NAME += ( '78 DIANA' ) + NAIF_BODY_CODE += ( 2000078 ) + + NAIF_BODY_NAME += ( '80 SAPPHO' ) + NAIF_BODY_CODE += ( 2000080 ) + + NAIF_BODY_NAME += ( '81 TERPSICHORE' ) + NAIF_BODY_CODE += ( 2000081 ) + + NAIF_BODY_NAME += ( '83 BEATRIX' ) + NAIF_BODY_CODE += ( 2000083 ) + + NAIF_BODY_NAME += ( '84 KLIO' ) + NAIF_BODY_CODE += ( 2000084 ) + + NAIF_BODY_NAME += ( '85 IO' ) + NAIF_BODY_CODE += ( 2000085 ) + + NAIF_BODY_NAME += ( '86 SEMELE' ) + NAIF_BODY_CODE += ( 2000086 ) + + NAIF_BODY_NAME += ( '87 SYLVIA' ) + NAIF_BODY_CODE += ( 2000087 ) + + NAIF_BODY_NAME += ( '88 THISBE' ) + NAIF_BODY_CODE += ( 2000088 ) + + NAIF_BODY_NAME += ( '89 JULIA' ) + NAIF_BODY_CODE += ( 2000089 ) + + NAIF_BODY_NAME += ( '90 ANTIOPE' ) + NAIF_BODY_CODE += ( 2000090 ) + + NAIF_BODY_NAME += ( '91 AEGINA' ) + NAIF_BODY_CODE += ( 2000091 ) + + NAIF_BODY_NAME += ( '92 UNDINA' ) + NAIF_BODY_CODE += ( 2000092 ) + + NAIF_BODY_NAME += ( '93 MINERVA' ) + NAIF_BODY_CODE += ( 2000093 ) + + NAIF_BODY_NAME += ( '94 AURORA' ) + NAIF_BODY_CODE += ( 2000094 ) + + NAIF_BODY_NAME += ( '95 ARETHUSA' ) + NAIF_BODY_CODE += ( 2000095 ) + + NAIF_BODY_NAME += ( '96 AEGLE' ) + NAIF_BODY_CODE += ( 2000096 ) + + NAIF_BODY_NAME += ( '97 KLOTHO' ) + NAIF_BODY_CODE += ( 2000097 ) + + NAIF_BODY_NAME += ( '98 IANTHE' ) + NAIF_BODY_CODE += ( 2000098 ) + + NAIF_BODY_NAME += ( '99 DIKE' ) + NAIF_BODY_CODE += ( 2000099 ) + + NAIF_BODY_NAME += ( '102 MIRIAM' ) + NAIF_BODY_CODE += ( 2000102 ) + + NAIF_BODY_NAME += ( '103 HERA' ) + NAIF_BODY_CODE += ( 2000103 ) + + NAIF_BODY_NAME += ( '104 KLYMENE' ) + NAIF_BODY_CODE += ( 2000104 ) + + NAIF_BODY_NAME += ( '105 ARTEMIS' ) + NAIF_BODY_CODE += ( 2000105 ) + + NAIF_BODY_NAME += ( '106 DIONE' ) + NAIF_BODY_CODE += ( 2000106 ) + + NAIF_BODY_NAME += ( '107 CAMILLA' ) + NAIF_BODY_CODE += ( 2000107 ) + + NAIF_BODY_NAME += ( '109 FELICITAS' ) + NAIF_BODY_CODE += ( 2000109 ) + + NAIF_BODY_NAME += ( '110 LYDIA' ) + NAIF_BODY_CODE += ( 2000110 ) + + NAIF_BODY_NAME += ( '111 ATE' ) + NAIF_BODY_CODE += ( 2000111 ) + + NAIF_BODY_NAME += ( '112 IPHIGENIA' ) + NAIF_BODY_CODE += ( 2000112 ) + + NAIF_BODY_NAME += ( '114 KASSANDRA' ) + NAIF_BODY_CODE += ( 2000114 ) + + NAIF_BODY_NAME += ( '115 THYRA' ) + NAIF_BODY_CODE += ( 2000115 ) + + NAIF_BODY_NAME += ( '117 LOMIA' ) + NAIF_BODY_CODE += ( 2000117 ) + + NAIF_BODY_NAME += ( '120 LACHESIS' ) + NAIF_BODY_CODE += ( 2000120 ) + + NAIF_BODY_NAME += ( '121 HERMIONE' ) + NAIF_BODY_CODE += ( 2000121 ) + + NAIF_BODY_NAME += ( '124 ALKESTE' ) + NAIF_BODY_CODE += ( 2000124 ) + + NAIF_BODY_NAME += ( '127 JOHANNA' ) + NAIF_BODY_CODE += ( 2000127 ) + + NAIF_BODY_NAME += ( '128 NEMESIS' ) + NAIF_BODY_CODE += ( 2000128 ) + + NAIF_BODY_NAME += ( '129 ANTIGONE' ) + NAIF_BODY_CODE += ( 2000129 ) + + NAIF_BODY_NAME += ( '130 ELEKTRA' ) + NAIF_BODY_CODE += ( 2000130 ) + + NAIF_BODY_NAME += ( '134 SOPHROSYNE' ) + NAIF_BODY_CODE += ( 2000134 ) + + NAIF_BODY_NAME += ( '135 HERTHA' ) + NAIF_BODY_CODE += ( 2000135 ) + + NAIF_BODY_NAME += ( '137 MELIBOEA' ) + NAIF_BODY_CODE += ( 2000137 ) + + NAIF_BODY_NAME += ( '139 JUEWA' ) + NAIF_BODY_CODE += ( 2000139 ) + + NAIF_BODY_NAME += ( '140 SIWA' ) + NAIF_BODY_CODE += ( 2000140 ) + + NAIF_BODY_NAME += ( '141 LUMEN' ) + NAIF_BODY_CODE += ( 2000141 ) + + NAIF_BODY_NAME += ( '143 ADRIA' ) + NAIF_BODY_CODE += ( 2000143 ) + + NAIF_BODY_NAME += ( '144 VIBILIA' ) + NAIF_BODY_CODE += ( 2000144 ) + + NAIF_BODY_NAME += ( '145 ADEONA' ) + NAIF_BODY_CODE += ( 2000145 ) + + NAIF_BODY_NAME += ( '146 LUCINA' ) + NAIF_BODY_CODE += ( 2000146 ) + + NAIF_BODY_NAME += ( '147 PROTOGENEIA' ) + NAIF_BODY_CODE += ( 2000147 ) + + NAIF_BODY_NAME += ( '148 GALLIA' ) + NAIF_BODY_CODE += ( 2000148 ) + + NAIF_BODY_NAME += ( '150 NUWA' ) + NAIF_BODY_CODE += ( 2000150 ) + + NAIF_BODY_NAME += ( '154 BERTHA' ) + NAIF_BODY_CODE += ( 2000154 ) + + NAIF_BODY_NAME += ( '156 XANTHIPPE' ) + NAIF_BODY_CODE += ( 2000156 ) + + NAIF_BODY_NAME += ( '159 AEMILIA' ) + NAIF_BODY_CODE += ( 2000159 ) + + NAIF_BODY_NAME += ( '160 UNA' ) + NAIF_BODY_CODE += ( 2000160 ) + + NAIF_BODY_NAME += ( '162 LAURENTIA' ) + NAIF_BODY_CODE += ( 2000162 ) + + NAIF_BODY_NAME += ( '163 ERIGONE' ) + NAIF_BODY_CODE += ( 2000163 ) + + NAIF_BODY_NAME += ( '164 EVA' ) + NAIF_BODY_CODE += ( 2000164 ) + + NAIF_BODY_NAME += ( '165 LORELEY' ) + NAIF_BODY_CODE += ( 2000165 ) + + NAIF_BODY_NAME += ( '168 SIBYLLA' ) + NAIF_BODY_CODE += ( 2000168 ) + + NAIF_BODY_NAME += ( '171 OPHELIA' ) + NAIF_BODY_CODE += ( 2000171 ) + + NAIF_BODY_NAME += ( '173 INO' ) + NAIF_BODY_CODE += ( 2000173 ) + + NAIF_BODY_NAME += ( '175 ANDROMACHE' ) + NAIF_BODY_CODE += ( 2000175 ) + + NAIF_BODY_NAME += ( '176 IDUNA' ) + NAIF_BODY_CODE += ( 2000176 ) + + NAIF_BODY_NAME += ( '181 EUCHARIS' ) + NAIF_BODY_CODE += ( 2000181 ) + + NAIF_BODY_NAME += ( '185 EUNIKE' ) + NAIF_BODY_CODE += ( 2000185 ) + + NAIF_BODY_NAME += ( '187 LAMBERTA' ) + NAIF_BODY_CODE += ( 2000187 ) + + NAIF_BODY_NAME += ( '191 KOLGA' ) + NAIF_BODY_CODE += ( 2000191 ) + + NAIF_BODY_NAME += ( '192 NAUSIKAA' ) + NAIF_BODY_CODE += ( 2000192 ) + + NAIF_BODY_NAME += ( '194 PROKNE' ) + NAIF_BODY_CODE += ( 2000194 ) + + NAIF_BODY_NAME += ( '195 EURYKLEIA' ) + NAIF_BODY_CODE += ( 2000195 ) + + NAIF_BODY_NAME += ( '196 PHILOMELA' ) + NAIF_BODY_CODE += ( 2000196 ) + + NAIF_BODY_NAME += ( '200 DYNAMENE' ) + NAIF_BODY_CODE += ( 2000200 ) + + NAIF_BODY_NAME += ( '201 PENELOPE' ) + NAIF_BODY_CODE += ( 2000201 ) + + NAIF_BODY_NAME += ( '203 POMPEJA' ) + NAIF_BODY_CODE += ( 2000203 ) + + NAIF_BODY_NAME += ( '205 MARTHA' ) + NAIF_BODY_CODE += ( 2000205 ) + + NAIF_BODY_NAME += ( '206 HERSILIA' ) + NAIF_BODY_CODE += ( 2000206 ) + + NAIF_BODY_NAME += ( '209 DIDO' ) + NAIF_BODY_CODE += ( 2000209 ) + + NAIF_BODY_NAME += ( '210 ISABELLA' ) + NAIF_BODY_CODE += ( 2000210 ) + + NAIF_BODY_NAME += ( '211 ISOLDA' ) + NAIF_BODY_CODE += ( 2000211 ) + + NAIF_BODY_NAME += ( '212 MEDEA' ) + NAIF_BODY_CODE += ( 2000212 ) + + NAIF_BODY_NAME += ( '213 LILAEA' ) + NAIF_BODY_CODE += ( 2000213 ) + + NAIF_BODY_NAME += ( '216 KLEOPATRA' ) + NAIF_BODY_CODE += ( 2000216 ) + + NAIF_BODY_NAME += ( '221 EOS' ) + NAIF_BODY_CODE += ( 2000221 ) + + NAIF_BODY_NAME += ( '224 OCEANA' ) + NAIF_BODY_CODE += ( 2000224 ) + + NAIF_BODY_NAME += ( '225 HENRIETTA' ) + NAIF_BODY_CODE += ( 2000225 ) + + NAIF_BODY_NAME += ( '230 ATHAMANTIS' ) + NAIF_BODY_CODE += ( 2000230 ) + + NAIF_BODY_NAME += ( '233 ASTEROPE' ) + NAIF_BODY_CODE += ( 2000233 ) + + NAIF_BODY_NAME += ( '236 HONORIA' ) + NAIF_BODY_CODE += ( 2000236 ) + + NAIF_BODY_NAME += ( '238 HYPATIA' ) + NAIF_BODY_CODE += ( 2000238 ) + + NAIF_BODY_NAME += ( '240 VANADIS' ) + NAIF_BODY_CODE += ( 2000240 ) + + NAIF_BODY_NAME += ( '241 GERMANIA' ) + NAIF_BODY_CODE += ( 2000241 ) + + NAIF_BODY_NAME += ( '247 EUKRATE' ) + NAIF_BODY_CODE += ( 2000247 ) + + NAIF_BODY_NAME += ( '250 BETTINA' ) + NAIF_BODY_CODE += ( 2000250 ) + + NAIF_BODY_NAME += ( '259 ALETHEIA' ) + NAIF_BODY_CODE += ( 2000259 ) + + NAIF_BODY_NAME += ( '266 ALINE' ) + NAIF_BODY_CODE += ( 2000266 ) + + NAIF_BODY_NAME += ( '268 ADOREA' ) + NAIF_BODY_CODE += ( 2000268 ) + + NAIF_BODY_NAME += ( '275 SAPIENTIA' ) + NAIF_BODY_CODE += ( 2000275 ) + + NAIF_BODY_NAME += ( '276 ADELHEID' ) + NAIF_BODY_CODE += ( 2000276 ) + + NAIF_BODY_NAME += ( '283 EMMA' ) + NAIF_BODY_CODE += ( 2000283 ) + + NAIF_BODY_NAME += ( '287 NEPHTHYS' ) + NAIF_BODY_CODE += ( 2000287 ) + + NAIF_BODY_NAME += ( '303 JOSEPHINA' ) + NAIF_BODY_CODE += ( 2000303 ) + + NAIF_BODY_NAME += ( '304 OLGA' ) + NAIF_BODY_CODE += ( 2000304 ) + + NAIF_BODY_NAME += ( '308 POLYXO' ) + NAIF_BODY_CODE += ( 2000308 ) + + NAIF_BODY_NAME += ( '313 CHALDAEA' ) + NAIF_BODY_CODE += ( 2000313 ) + + NAIF_BODY_NAME += ( '322 PHAEO' ) + NAIF_BODY_CODE += ( 2000322 ) + + NAIF_BODY_NAME += ( '324 BAMBERGA' ) + NAIF_BODY_CODE += ( 2000324 ) + + NAIF_BODY_NAME += ( '326 TAMARA' ) + NAIF_BODY_CODE += ( 2000326 ) + + NAIF_BODY_NAME += ( '328 GUDRUN' ) + NAIF_BODY_CODE += ( 2000328 ) + + NAIF_BODY_NAME += ( '329 SVEA' ) + NAIF_BODY_CODE += ( 2000329 ) + + NAIF_BODY_NAME += ( '334 CHICAGO' ) + NAIF_BODY_CODE += ( 2000334 ) + + NAIF_BODY_NAME += ( '335 ROBERTA' ) + NAIF_BODY_CODE += ( 2000335 ) + + NAIF_BODY_NAME += ( '336 LACADIERA' ) + NAIF_BODY_CODE += ( 2000336 ) + + NAIF_BODY_NAME += ( '337 DEVOSA' ) + NAIF_BODY_CODE += ( 2000337 ) + + NAIF_BODY_NAME += ( '338 BUDROSA' ) + NAIF_BODY_CODE += ( 2000338 ) + + NAIF_BODY_NAME += ( '344 DESIDERATA' ) + NAIF_BODY_CODE += ( 2000344 ) + + NAIF_BODY_NAME += ( '345 TERCIDINA' ) + NAIF_BODY_CODE += ( 2000345 ) + + NAIF_BODY_NAME += ( '346 HERMENTARIA' ) + NAIF_BODY_CODE += ( 2000346 ) + + NAIF_BODY_NAME += ( '347 PARIANA' ) + NAIF_BODY_CODE += ( 2000347 ) + + NAIF_BODY_NAME += ( '349 DEMBOWSKA' ) + NAIF_BODY_CODE += ( 2000349 ) + + NAIF_BODY_NAME += ( '350 ORNAMENTA' ) + NAIF_BODY_CODE += ( 2000350 ) + + NAIF_BODY_NAME += ( '354 ELEONORA' ) + NAIF_BODY_CODE += ( 2000354 ) + + NAIF_BODY_NAME += ( '356 LIGURIA' ) + NAIF_BODY_CODE += ( 2000356 ) + + NAIF_BODY_NAME += ( '357 NININA' ) + NAIF_BODY_CODE += ( 2000357 ) + + NAIF_BODY_NAME += ( '358 APOLLONIA' ) + NAIF_BODY_CODE += ( 2000358 ) + + NAIF_BODY_NAME += ( '360 CARLOVA' ) + NAIF_BODY_CODE += ( 2000360 ) + + NAIF_BODY_NAME += ( '362 HAVNIA' ) + NAIF_BODY_CODE += ( 2000362 ) + + NAIF_BODY_NAME += ( '363 PADUA' ) + NAIF_BODY_CODE += ( 2000363 ) + + NAIF_BODY_NAME += ( '365 CORDUBA' ) + NAIF_BODY_CODE += ( 2000365 ) + + NAIF_BODY_NAME += ( '366 VINCENTINA' ) + NAIF_BODY_CODE += ( 2000366 ) + + NAIF_BODY_NAME += ( '369 AERIA' ) + NAIF_BODY_CODE += ( 2000369 ) + + NAIF_BODY_NAME += ( '372 PALMA' ) + NAIF_BODY_CODE += ( 2000372 ) + + NAIF_BODY_NAME += ( '373 MELUSINA' ) + NAIF_BODY_CODE += ( 2000373 ) + + NAIF_BODY_NAME += ( '375 URSULA' ) + NAIF_BODY_CODE += ( 2000375 ) + + NAIF_BODY_NAME += ( '377 CAMPANIA' ) + NAIF_BODY_CODE += ( 2000377 ) + + NAIF_BODY_NAME += ( '381 MYRRHA' ) + NAIF_BODY_CODE += ( 2000381 ) + + NAIF_BODY_NAME += ( '385 ILMATAR' ) + NAIF_BODY_CODE += ( 2000385 ) + + NAIF_BODY_NAME += ( '386 SIEGENA' ) + NAIF_BODY_CODE += ( 2000386 ) + + NAIF_BODY_NAME += ( '387 AQUITANIA' ) + NAIF_BODY_CODE += ( 2000387 ) + + NAIF_BODY_NAME += ( '388 CHARYBDIS' ) + NAIF_BODY_CODE += ( 2000388 ) + + NAIF_BODY_NAME += ( '389 INDUSTRIA' ) + NAIF_BODY_CODE += ( 2000389 ) + + NAIF_BODY_NAME += ( '393 LAMPETIA' ) + NAIF_BODY_CODE += ( 2000393 ) + + NAIF_BODY_NAME += ( '404 ARSINOE' ) + NAIF_BODY_CODE += ( 2000404 ) + + NAIF_BODY_NAME += ( '405 THIA' ) + NAIF_BODY_CODE += ( 2000405 ) + + NAIF_BODY_NAME += ( '407 ARACHNE' ) + NAIF_BODY_CODE += ( 2000407 ) + + NAIF_BODY_NAME += ( '409 ASPASIA' ) + NAIF_BODY_CODE += ( 2000409 ) + + NAIF_BODY_NAME += ( '410 CHLORIS' ) + NAIF_BODY_CODE += ( 2000410 ) + + NAIF_BODY_NAME += ( '412 ELISABETHA' ) + NAIF_BODY_CODE += ( 2000412 ) + + NAIF_BODY_NAME += ( '416 VATICANA' ) + NAIF_BODY_CODE += ( 2000416 ) + + NAIF_BODY_NAME += ( '419 AURELIA' ) + NAIF_BODY_CODE += ( 2000419 ) + + NAIF_BODY_NAME += ( '420 BERTHOLDA' ) + NAIF_BODY_CODE += ( 2000420 ) + + NAIF_BODY_NAME += ( '423 DIOTIMA' ) + NAIF_BODY_CODE += ( 2000423 ) + + NAIF_BODY_NAME += ( '424 GRATIA' ) + NAIF_BODY_CODE += ( 2000424 ) + + NAIF_BODY_NAME += ( '426 HIPPO' ) + NAIF_BODY_CODE += ( 2000426 ) + + NAIF_BODY_NAME += ( '431 NEPHELE' ) + NAIF_BODY_CODE += ( 2000431 ) + + NAIF_BODY_NAME += ( '433 EROS' ) + NAIF_BODY_CODE += ( 2000433 ) + + NAIF_BODY_NAME += ( '442 EICHSFELDIA' ) + NAIF_BODY_CODE += ( 2000442 ) + + NAIF_BODY_NAME += ( '444 GYPTIS' ) + NAIF_BODY_CODE += ( 2000444 ) + + NAIF_BODY_NAME += ( '449 HAMBURGA' ) + NAIF_BODY_CODE += ( 2000449 ) + + NAIF_BODY_NAME += ( '451 PATIENTIA' ) + NAIF_BODY_CODE += ( 2000451 ) + + NAIF_BODY_NAME += ( '454 MATHESIS' ) + NAIF_BODY_CODE += ( 2000454 ) + + NAIF_BODY_NAME += ( '455 BRUCHSALIA' ) + NAIF_BODY_CODE += ( 2000455 ) + + NAIF_BODY_NAME += ( '466 TISIPHONE' ) + NAIF_BODY_CODE += ( 2000466 ) + + NAIF_BODY_NAME += ( '469 ARGENTINA' ) + NAIF_BODY_CODE += ( 2000469 ) + + NAIF_BODY_NAME += ( '471 PAPAGENA' ) + NAIF_BODY_CODE += ( 2000471 ) + + NAIF_BODY_NAME += ( '476 HEDWIG' ) + NAIF_BODY_CODE += ( 2000476 ) + + NAIF_BODY_NAME += ( '481 EMITA' ) + NAIF_BODY_CODE += ( 2000481 ) + + NAIF_BODY_NAME += ( '488 KREUSA' ) + NAIF_BODY_CODE += ( 2000488 ) + + NAIF_BODY_NAME += ( '489 COMACINA' ) + NAIF_BODY_CODE += ( 2000489 ) + + NAIF_BODY_NAME += ( '490 VERITAS' ) + NAIF_BODY_CODE += ( 2000490 ) + + NAIF_BODY_NAME += ( '491 CARINA' ) + NAIF_BODY_CODE += ( 2000491 ) + + NAIF_BODY_NAME += ( '498 TOKIO' ) + NAIF_BODY_CODE += ( 2000498 ) + + NAIF_BODY_NAME += ( '505 CAVA' ) + NAIF_BODY_CODE += ( 2000505 ) + + NAIF_BODY_NAME += ( '506 MARION' ) + NAIF_BODY_CODE += ( 2000506 ) + + NAIF_BODY_NAME += ( '508 PRINCETONIA' ) + NAIF_BODY_CODE += ( 2000508 ) + + NAIF_BODY_NAME += ( '511 DAVIDA' ) + NAIF_BODY_CODE += ( 2000511 ) + + NAIF_BODY_NAME += ( '514 ARMIDA' ) + NAIF_BODY_CODE += ( 2000514 ) + + NAIF_BODY_NAME += ( '521 BRIXIA' ) + NAIF_BODY_CODE += ( 2000521 ) + + NAIF_BODY_NAME += ( '532 HERCULINA' ) + NAIF_BODY_CODE += ( 2000532 ) + + NAIF_BODY_NAME += ( '535 MONTAGUE' ) + NAIF_BODY_CODE += ( 2000535 ) + + NAIF_BODY_NAME += ( '536 MERAPI' ) + NAIF_BODY_CODE += ( 2000536 ) + + NAIF_BODY_NAME += ( '545 MESSALINA' ) + NAIF_BODY_CODE += ( 2000545 ) + + NAIF_BODY_NAME += ( '554 PERAGA' ) + NAIF_BODY_CODE += ( 2000554 ) + + NAIF_BODY_NAME += ( '566 STEREOSKOPIA' ) + NAIF_BODY_CODE += ( 2000566 ) + + NAIF_BODY_NAME += ( '568 CHERUSKIA' ) + NAIF_BODY_CODE += ( 2000568 ) + + NAIF_BODY_NAME += ( '595 POLYXENA' ) + NAIF_BODY_CODE += ( 2000595 ) + + NAIF_BODY_NAME += ( '596 SCHEILA' ) + NAIF_BODY_CODE += ( 2000596 ) + + NAIF_BODY_NAME += ( '602 MARIANNA' ) + NAIF_BODY_CODE += ( 2000602 ) + + NAIF_BODY_NAME += ( '618 ELFRIEDE' ) + NAIF_BODY_CODE += ( 2000618 ) + + NAIF_BODY_NAME += ( '626 NOTBURGA' ) + NAIF_BODY_CODE += ( 2000626 ) + + NAIF_BODY_NAME += ( '635 VUNDTIA' ) + NAIF_BODY_CODE += ( 2000635 ) + + NAIF_BODY_NAME += ( '654 ZELINDA' ) + NAIF_BODY_CODE += ( 2000654 ) + + NAIF_BODY_NAME += ( '663 GERLINDE' ) + NAIF_BODY_CODE += ( 2000663 ) + + NAIF_BODY_NAME += ( '674 RACHELE' ) + NAIF_BODY_CODE += ( 2000674 ) + + NAIF_BODY_NAME += ( '683 LANZIA' ) + NAIF_BODY_CODE += ( 2000683 ) + + NAIF_BODY_NAME += ( '690 WRATISLAVIA' ) + NAIF_BODY_CODE += ( 2000690 ) + + NAIF_BODY_NAME += ( '691 LEHIGH' ) + NAIF_BODY_CODE += ( 2000691 ) + + NAIF_BODY_NAME += ( '694 EKARD' ) + NAIF_BODY_CODE += ( 2000694 ) + + NAIF_BODY_NAME += ( '702 ALAUDA' ) + NAIF_BODY_CODE += ( 2000702 ) + + NAIF_BODY_NAME += ( '704 INTERAMNIA' ) + NAIF_BODY_CODE += ( 2000704 ) + + NAIF_BODY_NAME += ( '705 ERMINIA' ) + NAIF_BODY_CODE += ( 2000705 ) + + NAIF_BODY_NAME += ( '709 FRINGILLA' ) + NAIF_BODY_CODE += ( 2000709 ) + + NAIF_BODY_NAME += ( '712 BOLIVIANA' ) + NAIF_BODY_CODE += ( 2000712 ) + + NAIF_BODY_NAME += ( '713 LUSCINIA' ) + NAIF_BODY_CODE += ( 2000713 ) + + NAIF_BODY_NAME += ( '739 MANDEVILLE' ) + NAIF_BODY_CODE += ( 2000739 ) + + NAIF_BODY_NAME += ( '740 CANTABIA' ) + NAIF_BODY_CODE += ( 2000740 ) + + NAIF_BODY_NAME += ( '747 WINCHESTER' ) + NAIF_BODY_CODE += ( 2000747 ) + + NAIF_BODY_NAME += ( '751 FAINA' ) + NAIF_BODY_CODE += ( 2000751 ) + + NAIF_BODY_NAME += ( '762 PULCOVA' ) + NAIF_BODY_CODE += ( 2000762 ) + + NAIF_BODY_NAME += ( '769 TATJANA' ) + NAIF_BODY_CODE += ( 2000769 ) + + NAIF_BODY_NAME += ( '772 TANETE' ) + NAIF_BODY_CODE += ( 2000772 ) + + NAIF_BODY_NAME += ( '773 IRMINTRAUD' ) + NAIF_BODY_CODE += ( 2000773 ) + + NAIF_BODY_NAME += ( '776 BERBERICIA' ) + NAIF_BODY_CODE += ( 2000776 ) + + NAIF_BODY_NAME += ( '780 ARMENIA' ) + NAIF_BODY_CODE += ( 2000780 ) + + NAIF_BODY_NAME += ( '788 HOHENSTEINA' ) + NAIF_BODY_CODE += ( 2000788 ) + + NAIF_BODY_NAME += ( '790 PRETORIA' ) + NAIF_BODY_CODE += ( 2000790 ) + + NAIF_BODY_NAME += ( '791 ANI' ) + NAIF_BODY_CODE += ( 2000791 ) + + NAIF_BODY_NAME += ( '804 HISPANIA' ) + NAIF_BODY_CODE += ( 2000804 ) + + NAIF_BODY_NAME += ( '814 TAURIS' ) + NAIF_BODY_CODE += ( 2000814 ) + + NAIF_BODY_NAME += ( '849 ARA' ) + NAIF_BODY_CODE += ( 2000849 ) + + NAIF_BODY_NAME += ( '895 HELIO' ) + NAIF_BODY_CODE += ( 2000895 ) + + NAIF_BODY_NAME += ( '909 ULLA' ) + NAIF_BODY_CODE += ( 2000909 ) + + NAIF_BODY_NAME += ( '914 PALISANA' ) + NAIF_BODY_CODE += ( 2000914 ) + + NAIF_BODY_NAME += ( '980 ANACOSTIA' ) + NAIF_BODY_CODE += ( 2000980 ) + + NAIF_BODY_NAME += ( '1015 CHRISTA' ) + NAIF_BODY_CODE += ( 2001015 ) + + NAIF_BODY_NAME += ( '1021 FLAMMARIO' ) + NAIF_BODY_CODE += ( 2001021 ) + + NAIF_BODY_NAME += ( '1036 GANYMED' ) + NAIF_BODY_CODE += ( 2001036 ) + + NAIF_BODY_NAME += ( '1093 FREDA' ) + NAIF_BODY_CODE += ( 2001093 ) + + NAIF_BODY_NAME += ( '1467 MASHONA' ) + NAIF_BODY_CODE += ( 2001467 ) + + \begintext diff --git a/Kernels/naif0012.tls b/Kernels/naif0012.tls new file mode 100644 index 000000000..e1afdee1b --- /dev/null +++ b/Kernels/naif0012.tls @@ -0,0 +1,152 @@ +KPL/LSK + + +LEAPSECONDS KERNEL FILE +=========================================================================== + +Modifications: +-------------- + +2016, Jul. 14 NJB Modified file to account for the leapsecond that + will occur on December 31, 2016. + +2015, Jan. 5 NJB Modified file to account for the leapsecond that + will occur on June 30, 2015. + +2012, Jan. 5 NJB Modified file to account for the leapsecond that + will occur on June 30, 2012. + +2008, Jul. 7 NJB Modified file to account for the leapsecond that + will occur on December 31, 2008. + +2005, Aug. 3 NJB Modified file to account for the leapsecond that + will occur on December 31, 2005. + +1998, Jul 17 WLT Modified file to account for the leapsecond that + will occur on December 31, 1998. + +1997, Feb 22 WLT Modified file to account for the leapsecond that + will occur on June 30, 1997. + +1995, Dec 14 KSZ Corrected date of last leapsecond from 1-1-95 + to 1-1-96. + +1995, Oct 25 WLT Modified file to account for the leapsecond that + will occur on Dec 31, 1995. + +1994, Jun 16 WLT Modified file to account for the leapsecond on + June 30, 1994. + +1993, Feb. 22 CHA Modified file to account for the leapsecond on + June 30, 1993. + +1992, Mar. 6 HAN Modified file to account for the leapsecond on + June 30, 1992. + +1990, Oct. 8 HAN Modified file to account for the leapsecond on + Dec. 31, 1990. + + +Explanation: +------------ + +The contents of this file are used by the routine DELTET to compute the +time difference + +[1] DELTA_ET = ET - UTC + +the increment to be applied to UTC to give ET. + +The difference between UTC and TAI, + +[2] DELTA_AT = TAI - UTC + +is always an integral number of seconds. The value of DELTA_AT was 10 +seconds in January 1972, and increases by one each time a leap second +is declared. Combining [1] and [2] gives + +[3] DELTA_ET = ET - (TAI - DELTA_AT) + + = (ET - TAI) + DELTA_AT + +The difference (ET - TAI) is periodic, and is given by + +[4] ET - TAI = DELTA_T_A + K sin E + +where DELTA_T_A and K are constant, and E is the eccentric anomaly of the +heliocentric orbit of the Earth-Moon barycenter. Equation [4], which ignores +small-period fluctuations, is accurate to about 0.000030 seconds. + +The eccentric anomaly E is given by + +[5] E = M + EB sin M + +where M is the mean anomaly, which in turn is given by + +[6] M = M + M t + 0 1 + +where t is the number of ephemeris seconds past J2000. + +Thus, in order to compute DELTA_ET, the following items are necessary. + + DELTA_TA + K + EB + M0 + M1 + DELTA_AT after each leap second. + +The numbers, and the formulation, are taken from the following sources. + + 1) Moyer, T.D., Transformation from Proper Time on Earth to + Coordinate Time in Solar System Barycentric Space-Time Frame + of Reference, Parts 1 and 2, Celestial Mechanics 23 (1981), + 33-56 and 57-68. + + 2) Moyer, T.D., Effects of Conversion to the J2000 Astronomical + Reference System on Algorithms for Computing Time Differences + and Clock Rates, JPL IOM 314.5--942, 1 October 1985. + +The variable names used above are consistent with those used in the +Astronomical Almanac. + +\begindata + +DELTET/DELTA_T_A = 32.184 +DELTET/K = 1.657D-3 +DELTET/EB = 1.671D-2 +DELTET/M = ( 6.239996D0 1.99096871D-7 ) + +DELTET/DELTA_AT = ( 10, @1972-JAN-1 + 11, @1972-JUL-1 + 12, @1973-JAN-1 + 13, @1974-JAN-1 + 14, @1975-JAN-1 + 15, @1976-JAN-1 + 16, @1977-JAN-1 + 17, @1978-JAN-1 + 18, @1979-JAN-1 + 19, @1980-JAN-1 + 20, @1981-JUL-1 + 21, @1982-JUL-1 + 22, @1983-JUL-1 + 23, @1985-JUL-1 + 24, @1988-JAN-1 + 25, @1990-JAN-1 + 26, @1991-JAN-1 + 27, @1992-JUL-1 + 28, @1993-JUL-1 + 29, @1994-JUL-1 + 30, @1996-JAN-1 + 31, @1997-JUL-1 + 32, @1999-JAN-1 + 33, @2006-JAN-1 + 34, @2009-JAN-1 + 35, @2012-JUL-1 + 36, @2015-JUL-1 + 37, @2017-JAN-1 ) + +\begintext + + diff --git a/Kernels/orbiter.bsp b/Kernels/orbiter.bsp new file mode 100644 index 000000000..080be4ea7 Binary files /dev/null and b/Kernels/orbiter.bsp differ diff --git a/Kernels/orbiter.mrg b/Kernels/orbiter.mrg new file mode 100644 index 000000000..f9bedcf55 --- /dev/null +++ b/Kernels/orbiter.mrg @@ -0,0 +1,41 @@ +LEAPSECONDS_KERNEL = naif0012.tls +SPK_KERNEL = orbiter.bsp + + BEGIN_TIME = 1950 JAN 01 00:00:00.000 TDB + END_TIME = 2050 JAN 01 00:00:00.000 TDB + +SOURCE_SPK_KERNEL = de442.bsp + INCLUDE_COMMENTS = yes + BODIES = 10, 1, 199, 2, 299, 3, 399, 301, 4, 5, 6, 7, 8, 9 + +SOURCE_SPK_KERNEL = mar097.bsp + INCLUDE_COMMENTS = yes + BODIES = 499, 401, 402 + +SOURCE_SPK_KERNEL = jup365.bsp + INCLUDE_COMMENTS = yes + BODIES = 599, 501, 502, 503, 504, 505 + +SOURCE_SPK_KERNEL = jup344.bsp + INCLUDE_COMMENTS = yes + BODIES = 506 + +SOURCE_SPK_KERNEL = sat441.bsp + INCLUDE_COMMENTS = yes + BODIES = 699, 601, 602, 603, 604, 605, 606, 607, 608, 609 + +SOURCE_SPK_KERNEL = ura182.bsp + INCLUDE_COMMENTS = yes + BODIES = 799, 701, 702, 703, 704, 705 + +SOURCE_SPK_KERNEL = nep095.bsp + INCLUDE_COMMENTS = yes + BODIES = 899, 801, 802, 808 + +SOURCE_SPK_KERNEL = plu058.bsp + INCLUDE_COMMENTS = yes + BODIES = 999, 901, 902, 903 + +SOURCE_SPK_KERNEL = codes_300ast_20100725.bsp + INCLUDE_COMMENTS = yes + BODIES = 2000004 diff --git a/Kernels/pck00010.tpc b/Kernels/pck00010.tpc new file mode 100644 index 000000000..efa020922 --- /dev/null +++ b/Kernels/pck00010.tpc @@ -0,0 +1,4061 @@ +KPL/PCK + + +P_constants (PcK) SPICE kernel file +=========================================================================== + + By: Nat Bachman (NAIF) 2011 October 21 + + +Purpose +-------------------------------------------------------- + + This file makes available for use in SPICE-based application + software orientation and size/shape data for natural bodies. The + principal source of the data is a published report by the IAU + Working Group on Cartographic Coordinates and Rotational Elements + [1]. + + Orientation and size/shape data not provided by this file may be + available in mission-specific PCK files. Such PCKs may be the + preferred data source for mission-related applications. + Mission-specific PCKs can be found in PDS archives or on the NAIF + web site at URL: + + http://naif.jpl.nasa.gov/naif/data + + +File Organization +-------------------------------------------------------- + + The contents of this file are as follows. + + Introductory Information: + + -- Purpose + + -- File Organization + + -- Version description + + -- Disclaimer + + -- Sources + + -- Explanatory notes + + -- Body numbers and names + + + PcK Data: + + + Orientation Data + ---------------- + + -- Orientation constants for the Sun, planets, and + Pluto. Additional items included in this section: + + - Earth north geomagnetic centered dipole value + for the epochs 2012 + + -- Orientation constants for satellites + + -- Orientation constants for asteroids + + Davida + Eros + Gaspra + Ida + Itokawa + Lutetia + Pallas + Steins + Vesta + + -- Orientation constants for comets + + 19P/Borrelly + 9P/Tempel 1 + + + Orientation data provided in this file are used + by the SPICE Toolkit to evaluate the orientation + of body-fixed, body-centered reference frames + with respect to the ICRF frame ("J2000" in + SPICE documentation). These body-fixed frames + have names of the form + + IAU_ + + for example + + IAU_JUPITER + + See the PCK Required Reading file pck.req for details. + + + + Radii of Bodies + --------------- + + -- Radii of Sun, planets, and Pluto + + -- Radii of satellites, where available + + -- Radii of asteroids + + Ceres + Davida + Eros + Gaspra + Ida + Itokawa + Lutetia + Mathilde + Steins + Toutatis + Vesta + + -- Radii of comets + + 19P/Borrelly + 81P/Wild 2 + 9P/Tempel 1 + Halley + + + +Version Description +-------------------------------------------------------- + + This file was created on October 21, 2011 at NASA's Navigation and + Ancillary Information Facility (NAIF), located at the Jet + Propulsion Laboratory, Pasadena, CA. + + The previous version of the file was + + pck00009.tpc + + That file was published March 3 2010. + + This version incorporates data from reference [1]. This file + contains size, shape, and orientation data for all objects covered + by the previous version of the file. + + New objects covered by this file but not the previous + version are: + + Anthe + Daphnis + Davida + Lutetia + Methone + Pallas + Pallene + Polydeuces + Steins + + + +Disclaimer +-------------------------------------------------------- + +Applicability of Data + + This P_constants file may not contain the parameter values that + you prefer. NAIF suggests that you inspect this file visually + before proceeding with any critical or extended data processing. + +File Modifications by Users + + Note that this file may be readily modified by you to change + values or add/delete parameters. NAIF requests that you update the + "by line," date, version description section, and file name + if you modify this file. + + A user-modified file should be thoroughly tested before + being published or otherwise distributed. + + P_constants files must conform to the standards described + in the two SPICE technical reference documents: + + PCK Required Reading + Kernel Required Reading + + +Known Limitations and Caveats + + Accuracy + -------- + + In general, the orientation models given here are claimed by the + IAU Working Group Report [1] to be accurate to 0.1 degree + ([1], p.158). However, NAIF notes that orientation models for + natural satellites and asteroids have in some cases changed + substantially with the availability of new observational data, so + users are urged to investigate the suitability for their + applications of the models presented here. + + Earth orientation + ----------------- + + NAIF strongly cautions against using the earth rotation model + (from [1]), corresponding to the SPICE reference frame name + IAU_EARTH, for work demanding high accuracy. This model has been + determined by NAIF to have an error in the prime meridian location + of magnitude at least 150 arcseconds, with a local minimum + occurring during the year 1999. Regarding availability of better + earth orientation data for use with the SPICE system: + + Earth orientation data are available from NAIF in the form of + binary earth PCK files. These files provide orientation data + for the ITRF93 (terrestrial) reference frame relative to the + ICRF. + + NAIF employs an automated process to create these files; each + time JPL's Tracking Systems and Applications Section produces a + new earth orientation parameter (EOP) file, a new PCK is + produced. These PCKs cover a roughly 10 year time span starting + at Jan. 1, 2000. In these PCK files, the following effects are + accounted for in modeling the earth's rotation: + + - Precession: 1976 IAU model + + - Nutation: 1980 IAU model, plus interpolated + EOP nutation corrections + + - Polar motion: interpolated from EOP file + + - True sidereal time: + + UT1 - UT1R (if needed): given by analytic formula + + TAI - UT1 (or UT1R): interpolated from EOP file + + UT1 - GMST: given by analytic formula + + equation of equinoxes: given by analytic formula + + where + + TAI = International Atomic Time + UT1 = Greenwich hour angle of computed mean sun - 12h + UT1R = Regularized UT1 + GMST = Greenwich mean sidereal time + + These kernels are available from the NAIF web site + + http://naif.jpl.nasa.gov + + (follow the links to Data, generic_kernels, and PCK data) or + + ftp://naif.jpl.nasa.gov/pub/naif/generic_kernels/pck + + or via anonymous ftp from the server + + naif.jpl.nasa.gov + + The kernels are in the path + + pub/naif/generic_kernels/pck + + At this time, these kernels have file names of the form + + earth_000101_yymmdd_yymmdd.bpc + + The first date in the file name, meaning 2000 January 1, is the + file's coverage begin time. The second and third dates are, + respectively, the file's coverage end time and the epoch of the + last datum. + + These binary PCK files are very accurate (error < 0.1 + microradian) for epochs preceding the epoch of the last datum. + For later epochs, the error rises to several microradians. + + Binary PCK files giving accurate earth orientation from 1972 to + 2007 and *low accuracy* predicted earth orientation from + 2007 to 2037 are also available in the same location. See the + aareadme.txt file at the "pck" URL above for details. + + Characteristics and names of the binary kernels described here + are subject to change. See the "pck" URL above for information + on current binary earth PCKs. + + + Lunar orientation + ----------------- + + The lunar orientation formula provided by this file is a + trigonometric polynomial approximation yielding the orientation of + the lunar "Mean Earth/Polar Axis" (ME) reference frame. The + SPICE reference frame name corresponding to this model is + IAU_MOON. + + A more accurate approximation can be obtained by using both the + NAIF lunar frame kernel and the binary lunar orientation PCK file. + These files provide orientation data for the both the Mean + Earth/Polar Axis frame, which has the SPICE name MOON_ME, and the + Lunar Principal Axes frame, which has the SPICE name MOON_PA. + + These files are available on the NAIF web site (see URLs above) + and in the NAIF server's ftp area. The lunar frame kernel is + located in the path + + pub/naif/generic_kernels/fk/satellites + + and has a name of the form + + moon_yymmdd.tf + + The binary lunar PCK is in the path + + pub/naif/generic_kernels/pck + + and has a name of the form + + moon_pa_dennn_yyyy-yyyy.bpc + + See the "aareadme.txt" files in the paths shown above for details + on file contents and versions. We also suggest you refer to the + SPICE tutorial named "lunar_earth_pck-fk," which is available from + the NAIF web site. + + + Earth geomagnetic dipole + ------------------------ + + The SPICE Toolkit doesn't currently contain software to model the + earth's north geomagnetic centered dipole as a function of time. + As a convenience for users, the north dipole location from the + epoch 2012.0 was selected as a representative datum, and the + planetocentric longitude and latitude of this location have been + associated with the keywords + + BODY399_N_GEOMAG_CTR_DIPOLE_LON + BODY399_N_GEOMAG_CTR_DIPOLE_LAT + + Values for the earth's north geomagnetic centered dipole are + presented in comments as a discrete time series for the time range + 1945-2000. For details concerning the geomagnetic field model from + which these values were derived, including a discussion of the + model's accuracy, see [9] and [11]. + + + Prime meridian offsets + ---------------------- + + Prime meridian offset kernel variables, which have names + of the form + + BODYnnn_LONG_AXIS + + are not used by SPICE geometry software. These variables should be + considered deprecated; however, they will be retained for + backwards compatibility. + + Users wishing to specify an offset reflecting the orientation of a + reference ellipsoid relative to a body-fixed reference frame + specified here should do so by creating a constant-offset frame + (also called a "TK" frame) specification. See the Frames Required + Reading frames.req for details. + + The Mars prime meridian offset given by [5] is provided for + informational purposes only. + + + Software limitations + -------------------- + + SPICE Toolkits prior to version N0057 cannot make use of + trigonometric polynomial terms in the formulas for orientation of + the planets. + + The second nutation precession angle (M2) for Mars is represented + by a quadratic polynomial in the 2006 IAU report. The SPICELIB + subroutine BODEUL can not handle this term (which is extremely + small), so we truncate the polynomial to a linear one. The + resulting orientation error has a maximum magnitude of less + than 0.0032 degrees over the time span 1996-2015 and less than + 0.0082 degrees over the time span 1986-2025. + + +Sources and References +-------------------------------------------------------- + + The sources for the constants listed in this file are: + + + [1] Archinal, B.A., A'Hearn, M.F., Bowell, E., Conrad, A., + Consolmagno, G.J., Courtin, R., Fukushima, T., + Hestroffer, D., Hilton, J.L., Krasinsky, G.A., + Neumann, G., Oberst, J., Seidelmann, P.K., Stooke, P., + Tholen, D.J., Thomas, P.C., and Williams, I.P. + "Report of the IAU Working Group on Cartographic Coordinates + and Rotational Elements: 2009." + + [2] Archinal, B.A., A'Hearn, M.F., Conrad, A., + Consolmagno, G.J., Courtin, R., Fukushima, T., + Hestroffer, D., Hilton, J.L., Krasinsky, G.A., + Neumann, G., Oberst, J., Seidelmann, P.K., Stooke, P., + Tholen, D.J., Thomas, P.C., and Williams, I.P. + "Erratum to: Reports of the IAU Working Group on + Cartographic Coordinates and Rotational Elements: 2006 & + 2009." + + [3] Seidelmann, P.K., Archinal, B.A., A'Hearn, M.F., + Conrad, A., Consolmagno, G.J., Hestroffer, D., + Hilton, J.L., Krasinsky, G.A., Neumann, G., + Oberst, J., Stooke, P., Tedesco, E.F., Tholen, D.J., + and Thomas, P.C. "Report of the IAU/IAG Working Group + on cartographic coordinates and rotational elements: 2006." + + [4] Nautical Almanac Office, United States Naval Observatory + and H.M. Nautical Almanac Office, Rutherford Appleton + Laboratory (2010). "The Astronomical Almanac for + the Year 2010," U.S. Government Printing Office, + Washington, D.C.: and The Stationary Office, London. + + [5] Duxbury, Thomas C. (2001). "IAU/IAG 2000 Mars Cartographic + Conventions," presentation to the Mars Express Data + Archive Working Group, Dec. 14, 2001. + + [6] Russell, C.T. and Luhmann, J.G. (1990). "Earth: Magnetic + Field and Magnetosphere." . Originally + published in "Encyclopedia of Planetary Sciences," J.H. + Shirley and R.W. Fainbridge, eds. Chapman and Hall, + New York, pp 208-211. + + [7] Russell, C.T. (1971). "Geophysical Coordinate + Transformations," Cosmic Electrodynamics 2 184-186. + NAIF document 181.0. + + [8] ESA/ESTEC Space Environment Information System (SPENVIS) + (2003). Web page: "Dipole approximations of the + geomagnetic field." . + + [9] International Association of Geomagnetism and Aeronomy + and International Union of Geodesy and Geophysics (2004). + Web page: "The 9th Generation International Geomagnetic + Reference Field." . + + [10] Davies, M.E., Abalakin, V.K., Bursa, M., Hunt, G.E., + and Lieske, J.H. (1989). "Report of the IAU/IAG/COSPAR + Working Group on Cartographic Coordinates and Rotational + Elements of the Planets and Satellites: 1988," Celestial + Mechanics and Dynamical Astronomy, v.46, no.2, pp. + 187-204. + + [11] International Association of Geomagnetism and Aeronomy + Web page: "International Geomagnetic Reference Field." + Discussion URL: + + http://www.ngdc.noaa.gov/IAGA/vmod/igrf.html + + Coefficients URL: + + http://www.ngdc.noaa.gov/IAGA/vmod/igrf11coeffs.txt + + + + Most values are from [1]. All exceptions are + commented where they occur in this file. The exceptions are: + + + -- Radii for the Sun are from [4]. + + -- Prime meridian constant (W0) terms for Pluto, Charon, + and Ida are from [2]. + + -- The second nutation precession angle (M2) for Mars is + represented by a quadratic polynomial in the 2000 + IAU report. The SPICELIB subroutine BODEUL can not + handle this term (which is extremely small), so we + truncate the polynomial to a linear one. + + -- Earth north geomagnetic centered dipole values are from + [11]. The values were also computed from the 11th + generation IGRF by Nat Bachman. + + + "Old values" listed are from the SPICE P_constants file + pck00009.tpc dated March 3, 2010. Most of these values came + from the 2006 IAU report [3]. + + + + +Explanatory Notes +-------------------------------------------------------- + + This file, which is logically part of the SPICE P-kernel, contains + constants used to model the orientation, size and shape of the + Sun, planets, natural satellites, and selected comets and + asteroids. The orientation models express the direction of the + pole and location of the prime meridian of a body as a function of + time. The size/shape models ("shape models" for short) represent + all bodies as ellipsoids, using two equatorial radii and a polar + radius. Spheroids and spheres are obtained when two or all three + radii are equal. + + The SPICE Toolkit routines that use this file are documented in + the SPICE "Required Reading" file pck.req. They are also + documented in the "PCK" SPICE tutorial, which is available on + the NAIF web site. + +File Format + + A terse description of the PCK file format is given here. See the + SPICE "Required Reading" files pck.req and kernel.req for a + detailed explanation of the SPICE text kernel file format. The + files pck.req and kernel.req are included in the documentation + provided with the SPICE Toolkit. + + The file starts out with the ``ID word'' string + + KPL/PCK + + This string identifies the file as a text kernel containing PCK + data. + + This file consists of a series of comment blocks and data blocks. + Comment blocks, which contain free-form descriptive or explanatory + text, are preceded by a \begintext token. Data blocks follow a + \begindata token. In order to be recognized, each of these tokens + must be placed on a line by itself. + + The portion of the file preceding the first data block is treated + as a comment block; it doesn't require an initial \begintext + token. + + This file identifies data using a series of + + KEYWORD = VALUE + + assignments. The left hand side of each assignment is a + "kernel variable" name; the right hand side is an associated value + or list of values. The SPICE subroutine API allows SPICE routines + and user applications to retrieve the set of values associated + with each kernel variable name. + + Kernel variable names are case-sensitive and are limited to + 32 characters in length. + + Numeric values may be integer or floating point. String values + are normally limited to 80 characters in length; however, SPICE + provides a mechanism for identifying longer, "continued" strings. + See the SPICE routine STPOOL for details. + + String values are single quoted. + + When the right hand side of an assignment is a list of values, + the list items may be separated by commas or simply by blanks. + The list must be bracketed by parentheses. Example: + + BODY399_RADII = ( 6378.1366 6378.1366 6356.7519 ) + + Any blanks preceding or following keyword names, values and equal + signs are ignored. + + Assignments may be spread over multiple lines, for example: + + BODY399_RADII = ( 6378.1366 + 6378.1366 + 6356.7519 ) + + This file may contain blank lines anywhere. Non-printing + characters including TAB should not be present in the file: the + presence of such characters may cause formatting errors when the + file is viewed. + +Time systems and reference frames + + The 2009 IAU Working Group Report [1] states the time scale used + as the independent variable for the rotation formulas is + Barycentric Dynamical Time (TDB) and that the epoch of variable + quantities is J2000 TDB (2000 Jan 1 12:00:00 TDB, Julian ephemeris + date 2451545.0 TDB). Throughout SPICE documentation and in this + file, we use the names "J2000 TDB" and "J2000" for this epoch. The + name "J2000.0" is equivalent. + + SPICE documentation refers to the time system used in this file + as either "ET" or "TDB." SPICE software makes no distinction + between TDB and the time system associated with the independent + variable of the JPL planetary ephemerides T_eph. + + The inertial reference frame used for the rotational elements in + this file is identified by [1] as the ICRF (International + Celestial Reference Frame). + + The SPICE PCK software that reads this file uses the label "J2000" + to refer to the ICRF; this is actually a mislabeling which has + been retained in the interest of backward compatibility. Using + data from this file, by means of calls to the SPICE frame + transformation routines, will actually compute orientation + relative to the ICRF. + + The difference between the J2000 frame and the ICRF is + on the order of tens of milliarcseconds and is well below the + accuracy level of the formulas in this file. + +Orientation models + + All of the orientation models use three Euler angles to describe + the orientation of the coordinate axes of the "Body Equator and + Prime Meridian" system with respect to an inertial system. By + default, the inertial system is the ICRF (labeled as "J2000"), but + other inertial frames can be specified in the file. See the PCK + Required Reading for details. + + The first two angles, in order, are the ICRF right ascension and + declination (henceforth RA and DEC) of the north pole of a body as + a function of time. The third angle is the prime meridian location + (represented by "W"), which is expressed as a rotation about the + north pole, and is also a function of time. + + For each body, the expressions for the north pole's right + ascension and declination, as well as prime meridian location, are + sums (as far as the models that appear in this file are concerned) + of quadratic polynomials and trigonometric polynomials, where the + independent variable is time. + + In this file, the time arguments in expressions always refer to + Barycentric Dynamical Time (TDB), measured in centuries or days + past a reference epoch. By default, the reference epoch is the + J2000 epoch, which is Julian ephemeris date 2451545.0 (2000 Jan 1 + 12:00:00 TDB), but other epochs can be specified in the file. See + the PCK Required Reading for details. + + Orientation models for satellites and some planets (including + Jupiter) involve both polynomial terms and trigonometric terms. + The arguments of the trigonometric terms are linear polynomials. + In this file, we call the arguments of these trigonometric terms + "nutation precession angles." + + Example: 2009 IAU Model for orientation of Jupiter. Note that + these values are used as an example only; see the data area below + for current values. + + Right ascension + --------------- + + alpha = 268.056595 - 0.006499 T + 0.000117 sin(Ja) + 0 + 0.000938 sin(Jb) + 0.001432 sin(Jc) + + 0.000030 sin(Jd) + 0.002150 sin(Je) + + Declination + ----------- + + delta = 64.495303 + 0.002413 T + 0.000050 cos(Ja) + 0 + 0.000404 cos(Jb) + 0.000617 cos(Jc) + - 0.000013 cos(Jd) + 0.000926 cos(Je) + + Prime meridian + -------------- + + W = 284.95 + 870.5366420 d + + + Here + + T represents centuries past J2000 ( TDB ), + + d represents days past J2000 ( TDB ). + + Ja-Je are nutation precession angles. + + In this file, the polynomials' coefficients above are assigned + to kernel variable names (left-hand-side symbols) as follows + + BODY599_POLE_RA = ( 268.056595 -0.006499 0. ) + BODY599_POLE_DEC = ( 64.495303 0.002413 0. ) + BODY599_PM = ( 284.95 870.5360000 0. ) + + and the trigonometric polynomials' coefficients are assigned + as follows + + BODY599_NUT_PREC_RA = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.000117 + 0.000938 + 0.001432 + 0.000030 + 0.002150 ) + + BODY599_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.000050 + 0.000404 + 0.000617 + -0.000013 + 0.000926 ) + + BODY599_NUT_PREC_PM = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.0 + 0.0 + 0.0 + 0.0 + 0.0 ) + + Note the number "599"; this is the NAIF ID code for Jupiter. + + In this file, the polynomial expressions for the nutation + precession angles are listed along with the planet's RA, DEC, and + prime meridian terms. Below are the 2006 IAU nutation precession + angles for the Jupiter system. + + J1 = 73.32 + 91472.9 T + J2 = 24.62 + 45137.2 T + J3 = 283.90 + 4850.7 T + J4 = 355.80 + 1191.3 T + J5 = 119.90 + 262.1 T + J6 = 229.80 + 64.3 T + J7 = 352.25 + 2382.6 T + J8 = 113.35 + 6070.0 T + + J9 = 146.64 + 182945.8 T + J10 = 49.24 + 90274.4 T + + Ja = 99.360714 + 4850.4046 T + Jb = 175.895369 + 1191.9605 T + Jc = 300.323162 + 262.5475 T + Jd = 114.012305 + 6070.2476 T + Je = 49.511251 + 64.3000 T + + Here + + T represents centuries past J2000 ( TDB ) + + J1-J10 and Ja-Je are the nutation precession angles. The angles + J9 and J10 are equal to 2*J1 and 2*J2, respectively. + + Angles J9 and J10 are not present in [1]; they have been added + to fit the terms 2*J1 and 2*J2, which appear in the orientation + models of several satellites, into a form that can be accepted + by the PCK system. + + The assignment of the nutation precession angles for the + Jupiter system is as follows: + + BODY5_NUT_PREC_ANGLES = ( 73.32 91472.9 + 24.62 45137.2 + 283.90 4850.7 + 355.80 1191.3 + 119.90 262.1 + 229.80 64.3 + 352.25 2382.6 + 113.35 6070.0 + 146.64 182945.8 + 49.24 90274.4 + 99.360714 4850.4046 + 175.895369 1191.9605 + 300.323162 262.5475 + 114.012305 6070.2476 + 49.511251 64.3000 ) + + You'll see an additional symbol grouped with the ones listed + above; it is + + BODY599_LONG_AXIS + + This is a deprecated feature; see the note on "Prime meridian + offsets" under "Known Limitations and Caveats" above. + + The pattern of the formulas for satellite orientation is similar + to that for Jupiter. Example: 2006 IAU values for Io. Again, these + values are used as an example only; see the data area below for + current values. + + Right ascension + --------------- + + alpha = 268.05 - 0.009 T + 0.094 sin(J3) + 0.024 sin(J4) + 0 + + Declination + ----------- + + delta = 64.50 + 0.003 T + 0.040 cos(J3) + 0.011 cos(J4) + 0 + + Prime meridian + -------------- + + W = 200.39 + 203.4889538 d - 0.085 sin(J3) - 0.022 sin(J4) + + + d represents days past J2000. + + J3 and J4 are nutation precession angles. + + The polynomial terms are assigned to symbols by the statements + + BODY501_POLE_RA = ( 268.05 -0.009 0. ) + BODY501_POLE_DEC = ( 64.50 0.003 0. ) + BODY501_PM = ( 200.39 203.4889538 0. ) + + The coefficients of the trigonometric terms are assigned to symbols by + the statements + + BODY501_NUT_PREC_RA = ( 0. 0. 0.094 0.024 ) + BODY501_NUT_PREC_DEC = ( 0. 0. 0.040 0.011 ) + BODY501_NUT_PREC_PM = ( 0. 0. -0.085 -0.022 ) + + 501 is the NAIF ID code for Io. + + SPICE software expects the models for satellite orientation to + follow the form of the model shown here: the polynomial portions of the + RA, DEC, and W expressions are expected to be quadratic, the + trigonometric terms for RA and W (satellite prime meridian) are expected + to be linear combinations of sines of nutation precession angles, the + trigonometric terms for DEC are expected to be linear combinations of + cosines of nutation precession angles, and the polynomials for the + nutation precession angles themselves are expected to be linear. + + Eventually, the software will handle more complex expressions, we + expect. + + +Shape models + + There is only one kind of shape model supported by the SPICE + Toolkit software at present: the triaxial ellipsoid. The 2009 IAU + report [1] does not use any other models, except in the case of + Mars, where separate values are given for the north and south + polar radii. In this file, we provide as a datum the mean Mars + polar radius provided by [1]. The North and South values are + included as comments. + + For each body, three radii are listed: The first number is + the largest equatorial radius (the length of the semi-axis + containing the prime meridian), the second number is the smaller + equatorial radius, and the third is the polar radius. + + Example: Radii of the Earth. + + BODY399_RADII = ( 6378.1366 6378.1366 6356.7519 ) + + + +Body Numbers and Names +-------------------------------------------------------- + + + The following NAIF body ID codes and body names appear in this + file. See the NAIF IDs Required Reading file naif_ids.req for + a detailed discussion and a complete list of ID codes and names. + + + 1 Mercury barycenter + 2 Venus barycenter + 3 Earth barycenter + 4 Mars barycenter + 5 Jupiter barycenter + 6 Saturn barycenter + 7 Uranus barycenter + 8 Neptune barycenter + 9 Pluto barycenter + 10 Sun + + + 199 Mercury + + + 299 Venus + + + 399 Earth + + 301 Moon + + + 499 Mars + + 401 Phobos 402 Deimos + + + 599 Jupiter + + 501 Io 502 Europa 503 Ganymede 504 Callisto + 505 Amalthea 506 Himalia 507 Elara 508 Pasiphae + 509 Sinope 510 Lysithea 511 Carme 512 Ananke + 513 Leda 514 Thebe 515 Adrastea 516 Metis + + + 699 Saturn + + 601 Mimas 602 Enceladus 603 Tethys 604 Dione + 605 Rhea 606 Titan 607 Hyperion 608 Iapetus + 609 Phoebe 610 Janus 611 Epimetheus 612 Helene + 613 Telesto 614 Calypso 615 Atlas 616 Prometheus + 617 Pandora 618 Pan 632 Methone 633 Pallene + 634 Polydeuces 635 Daphnis 649 Anthe + + + 799 Uranus + + 701 Ariel 702 Umbriel 703 Titania 704 Oberon + 705 Miranda 706 Cordelia 707 Ophelia 708 Bianca + 709 Cressida 710 Desdemona 711 Juliet 712 Portia + 713 Rosalind 714 Belinda 715 Puck + + + 899 Neptune + + 801 Triton 802 Nereid 803 Naiad 804 Thalassa + 805 Despina 806 Galatea 807 Larissa 808 Proteus + + + 999 Pluto + + 901 Charon + + + 1000005 Comet 19P/Borrelly + 1000036 Comet Halley + 1000093 Comet 9P/Tempel 1 + 1000107 Comet 81P/Wild 2 + + 2000001 Asteroid Ceres + 2000002 Asteroid Pallas + 2000004 Asteroid Vesta + 2000021 Asteroid Lutetia + 2000216 Asteroid Kleopatra + 2000253 Asteroid Mathilde + 2000433 Asteroid Eros + 2000511 Asteroid Davida + 2002867 Asteroid Steins + 2004179 Asteroid Toutatis + 2025143 Asteroid Itokawa + 2431010 Asteroid Ida + 9511010 Asteroid Gaspra + + +Orientation Constants for the Sun and Planets +-------------------------------------------------------- + + +Sun + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY10_POLE_RA = ( 286.13 0. 0. ) + BODY10_POLE_DEC = ( 63.87 0. 0. ) + BODY10_PM = ( 84.176 14.18440 0. ) + BODY10_LONG_AXIS = ( 0. ) + + \begintext + +Mercury + + Old values: + + Values are from the 2006 IAU report. + + body199_pole_ra = ( 281.01 -0.033 0. ) + body199_pole_dec = ( 61.45 -0.005 0. ) + body199_pm = ( 329.548 6.1385025 0. ) + + + Current values: + + \begindata + + BODY199_POLE_RA = ( 281.0097 -0.0328 0. ) + BODY199_POLE_DEC = ( 61.4143 -0.0049 0. ) + BODY199_PM = ( 329.5469 6.1385025 0. ) + + BODY199_LONG_AXIS = ( 0. ) + + BODY199_NUT_PREC_RA = ( 0. 0. 0. 0. 0. ) + + BODY199_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. ) + + BODY199_NUT_PREC_PM = ( 0.00993822 + -0.00104581 + -0.00010280 + -0.00002364 + -0.00000532 ) + \begintext + + The linear coefficients have been scaled up from degrees/day + to degrees/century, because the SPICELIB PCK reader expects + these units. The original constants were: + + 174.791086 4.092335 + 349.582171 8.184670 + 164.373257 12.277005 + 339.164343 16.369340 + 153.955429 20.461675 + + + \begindata + + BODY1_NUT_PREC_ANGLES = ( 174.791086 0.14947253587500003E+06 + 349.582171 0.29894507175000006E+06 + 164.373257 0.44841760762500006E+06 + 339.164343 0.59789014350000012E+06 + 153.955429 0.74736267937499995E+06 ) + \begintext + + +Venus + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY299_POLE_RA = ( 272.76 0. 0. ) + BODY299_POLE_DEC = ( 67.16 0. 0. ) + BODY299_PM = ( 160.20 -1.4813688 0. ) + + BODY299_LONG_AXIS = ( 0. ) + + \begintext + + +Earth + + Old values: + + Values are unchanged in the 2009 report. + + Current values: + + \begindata + + BODY399_POLE_RA = ( 0. -0.641 0. ) + BODY399_POLE_DEC = ( 90. -0.557 0. ) + BODY399_PM = ( 190.147 360.9856235 0. ) + BODY399_LONG_AXIS = ( 0. ) + + \begintext + + + Nutation precession angles for the Earth-Moon system: + + The linear coefficients have been scaled up from degrees/day + to degrees/century, because the SPICELIB PCK reader expects + these units. The original constants were: + + 125.045D0 -0.0529921D0 + 250.089D0 -0.1059842D0 + 260.008D0 13.0120009D0 + 176.625D0 13.3407154D0 + 357.529D0 0.9856003D0 + 311.589D0 26.4057084D0 + 134.963D0 13.0649930D0 + 276.617D0 0.3287146D0 + 34.226D0 1.7484877D0 + 15.134D0 -0.1589763D0 + 119.743D0 0.0036096D0 + 239.961D0 0.1643573D0 + 25.053D0 12.9590088D0 + + + \begindata + + + BODY3_NUT_PREC_ANGLES = ( 125.045 -1935.5364525000 + 250.089 -3871.0729050000 + 260.008 475263.3328725000 + 176.625 487269.6299850000 + 357.529 35999.0509575000 + 311.589 964468.4993100000 + 134.963 477198.8693250000 + 276.617 12006.3007650000 + 34.226 63863.5132425000 + 15.134 -5806.6093575000 + 119.743 131.8406400000 + 239.961 6003.1503825000 + 25.053 473327.7964200000 ) + + + \begintext + + + Earth north geomagnetic centered dipole: + + The north dipole location is time-varying. The values shown + below, taken from [8], represent a discrete sampling of the + north dipole location from 1945 to 2000. The terms DGRF and + IGRF refer to, respectively, "Definitive Geomagnetic + Reference Field" and "International Geomagnetic Reference + Field." See references [6], [8], and [9] for details. + + Coordinates are planetocentric. + + Data source Lat Lon + ----------- ----- ------ + DGRF 1945 78.47 291.47 + DGRF 1950 78.47 291.15 + DGRF 1955 78.46 290.84 + DGRF 1960 78.51 290.53 + DGRF 1965 78.53 290.15 + DGRF 1970 78.59 289.82 + DGRF 1975 78.69 289.53 + DGRF 1980 78.81 289.24 + DGRF 1985 78.97 289.10 + DGRF 1990 79.13 288.89 + IGRF 1995 79.30 288.59 + IGRF 2000 79.54 288.43 + + Original values: + + Values are from [7]. Note the year of publication was 1971. + + body399_mag_north_pole_lon = ( -69.761 ) + body399_mag_north_pole_lat = ( 78.565 ) + + Previous values: + + body399_n_geomag_ctr_dipole_lon = ( 288.43 ) + body399_n_geomag_ctr_dipole_lat = ( 79.54 ) + + + Current values: + + Values are given for the epoch 2012.0 and were derived + by Nat Bachman from constants provided by [11]. + + \begindata + + BODY399_N_GEOMAG_CTR_DIPOLE_LON = ( 287.62 ) + BODY399_N_GEOMAG_CTR_DIPOLE_LAT = ( 80.13 ) + + \begintext + + + + +Mars + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY499_POLE_RA = ( 317.68143 -0.1061 0. ) + BODY499_POLE_DEC = ( 52.88650 -0.0609 0. ) + BODY499_PM = ( 176.630 350.89198226 0. ) + + \begintext + + Source [5] specifies the following value for the lambda_a term + (BODY499_LONG_AXIS ) for Mars. This term is the POSITIVE EAST + LONGITUDE, measured from the prime meridian, of the meridian + containing the longest axis of the reference ellipsoid. + (CAUTION: previous values were POSITIVE WEST.) + + body499_long_axis = ( 252. ) + + We list this lambda_a value for completeness. The IAU report + [1] gives equal values for both equatorial radii, so the + lambda_a offset does not apply to the IAU model. + + The 2003 IAU report defines M2, the second nutation precession angle, + by: + + 2 + 192.93 + 1128.4096700 d + 8.864 T + + We truncate the M2 series to a linear expression, because the PCK + software cannot handle the quadratic term. + + Again, the linear terms are scaled by 36525.0: + + -0.4357640000000000 --> -15916.28010000000 + 1128.409670000000 --> 41215163.19675000 + -1.8151000000000000E-02 --> -662.9652750000000 + + We also introduce a fourth nutation precession angle, which + is the pi/2-complement of the third angle. This angle is used + in computing the prime meridian location for Deimos. See the + discussion of this angle below in the section containing orientation + constants for Deimos. + + \begindata + + BODY4_NUT_PREC_ANGLES = ( 169.51 -15916.2801 + 192.93 41215163.19675 + 53.47 -662.965275 + 36.53 662.965275 ) + + \begintext + + +Jupiter + + Old values: + + The rotation rate is from the 2006 IAU report; all other + values are unchanged in the 2009 report. + + body599_pm = ( 284.95 870.5366420 0. ) + + + Current values: + + The number of nutation precession angles is 15. The ninth and + tenth are twice the first and second, respectively. The + eleventh through fifteenth correspond to angles JA-JE in + the 2006 IAU report; angles JA-JE were not used prior to that + report. + + \begindata + + + BODY599_POLE_RA = ( 268.056595 -0.006499 0. ) + BODY599_POLE_DEC = ( 64.495303 0.002413 0. ) + BODY599_PM = ( 284.95 870.5360000 0. ) + BODY599_LONG_AXIS = ( 0. ) + + BODY599_NUT_PREC_RA = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.000117 + 0.000938 + 0.001432 + 0.000030 + 0.002150 ) + + BODY599_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.000050 + 0.000404 + 0.000617 + -0.000013 + 0.000926 ) + + BODY599_NUT_PREC_PM = ( 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.0 + 0.0 + 0.0 + 0.0 + 0.0 ) + + + BODY5_NUT_PREC_ANGLES = ( 73.32 91472.9 + 24.62 45137.2 + 283.90 4850.7 + 355.80 1191.3 + 119.90 262.1 + 229.80 64.3 + 352.25 2382.6 + 113.35 6070.0 + 146.64 182945.8 + 49.24 90274.4 + 99.360714 4850.4046 + 175.895369 1191.9605 + 300.323162 262.5475 + 114.012305 6070.2476 + 49.511251 64.3000 ) + \begintext + + +Saturn + + Old values: + + Values are from the 2006 IAU report. + + + body699_pole_ra = ( 40.589 -0.036 0. ) + body699_pole_dec = ( 83.537 -0.004 0. ) + body699_pm = ( 38.90 810.7939024 0. ) + body699_long_axis = ( 0. ) + + + The first seven angles given here are the angles S1 + through S7 from the 2000 report; the eighth and + ninth angles are 2*S1 and 2*S2, respectively. + + + body6_nut_prec_angles = ( 353.32 75706.7 + 28.72 75706.7 + 177.40 -36505.5 + 300.00 -7225.9 + 316.45 506.2 + 345.20 -1016.3 + 29.80 -52.1 + 706.64 151413.4 + 57.44 151413.4 ) + + + Current values: + + + The change from the previous set of values is the + removal of S7. This causes BODY6_NUT_PREC_ANGLES + elements that formerly corresponded to 2*S1 and 2*S1 + to be shifted toward the start of the array. + + \begindata + + BODY699_POLE_RA = ( 40.589 -0.036 0. ) + BODY699_POLE_DEC = ( 83.537 -0.004 0. ) + BODY699_PM = ( 38.90 810.7939024 0. ) + BODY699_LONG_AXIS = ( 0. ) + + \begintext + + The first six angles given here are the angles S1 + through S6 from the 2009 report; the seventh and + eigth angles are 2*S1 and 2*S2, respectively. + + + \begindata + + BODY6_NUT_PREC_ANGLES = ( 353.32 75706.7 + 28.72 75706.7 + 177.40 -36505.5 + 300.00 -7225.9 + 316.45 506.2 + 345.20 -1016.3 + 706.64 151413.4 + 57.44 151413.4 ) + \begintext + + +Uranus + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY799_POLE_RA = ( 257.311 0. 0. ) + BODY799_POLE_DEC = ( -15.175 0. 0. ) + BODY799_PM = ( 203.81 -501.1600928 0. ) + BODY799_LONG_AXIS = ( 0. ) + + \begintext + + The first 16 angles given here are the angles U1 + through U16 from the 2000 report; the 17th and + 18th angles are 2*U11 and 2*U12, respectively. + + \begindata + + BODY7_NUT_PREC_ANGLES = ( 115.75 54991.87 + 141.69 41887.66 + 135.03 29927.35 + 61.77 25733.59 + 249.32 24471.46 + 43.86 22278.41 + 77.66 20289.42 + 157.36 16652.76 + 101.81 12872.63 + 138.64 8061.81 + 102.23 -2024.22 + 316.41 2863.96 + 304.01 -51.94 + 308.71 -93.17 + 340.82 -75.32 + 259.14 -504.81 + 204.46 -4048.44 + 632.82 5727.92 ) + + \begintext + + + +Neptune + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY899_POLE_RA = ( 299.36 0. 0. ) + BODY899_POLE_DEC = ( 43.46 0. 0. ) + BODY899_PM = ( 253.18 536.3128492 0. ) + BODY899_LONG_AXIS = ( 0. ) + + + BODY899_NUT_PREC_RA = ( 0.70 0. 0. 0. 0. 0. 0. 0. ) + BODY899_NUT_PREC_DEC = ( -0.51 0. 0. 0. 0. 0. 0. 0. ) + BODY899_NUT_PREC_PM = ( -0.48 0. 0. 0. 0. 0. 0. 0. ) + + \begintext + + The 2000 report defines the nutation precession angles + + N, N1, N2, ... , N7 + + and also uses the multiples of N1 and N7 + + 2*N1 + + and + + 2*N7, 3*N7, ..., 9*N7 + + In this file, we treat the angles and their multiples as + separate angles. In the kernel variable + + BODY8_NUT_PREC_ANGLES + + the order of the angles is + + N, N1, N2, ... , N7, 2*N1, 2*N7, 3*N7, ..., 9*N7 + + Each angle is defined by a linear polynomial, so two + consecutive array elements are allocated for each + angle. The first term of each pair is the constant term, + the second is the linear term. + + \begindata + + BODY8_NUT_PREC_ANGLES = ( 357.85 52.316 + 323.92 62606.6 + 220.51 55064.2 + 354.27 46564.5 + 75.31 26109.4 + 35.36 14325.4 + 142.61 2824.6 + 177.85 52.316 + 647.840 125213.200 + 355.700 104.632 + 533.550 156.948 + 711.400 209.264 + 889.250 261.580 + 1067.100 313.896 + 1244.950 366.212 + 1422.800 418.528 + 1600.650 470.844 ) + + \begintext + + + + +Orientation Constants for the Dwarf Planet Pluto +-------------------------------------------------------- + +Pluto + + Old values: + + Values are from the 2006 IAU report. + + body999_pole_ra = ( 312.993 0. 0. ) + body999_pole_dec = ( 6.163 0. 0. ) + body999_pm = ( 237.305 -56.3625225 0. ) + body999_long_axis = ( 0. ) + + + Current values: + + Due to the new definition of planetocentric coordinates + for small bodies, and to the reclassification of Pluto + as a dwarf planet, Pluto's north pole direction has been + inverted. + + The PM constant W0 is from [2]. + + \begindata + + BODY999_POLE_RA = ( 132.993 0. 0. ) + BODY999_POLE_DEC = ( -6.163 0. 0. ) + BODY999_PM = ( 302.695 56.3625225 0. ) + BODY999_LONG_AXIS = ( 0. ) + + \begintext + + + + +Orientation constants for the satellites +-------------------------------------------------------- + + +Satellites of Earth + + Old values: + + Values are unchanged in the 2009 IAU report. + + New values: + + \begindata + + + BODY301_POLE_RA = ( 269.9949 0.0031 0. ) + BODY301_POLE_DEC = ( 66.5392 0.0130 0. ) + BODY301_PM = ( 38.3213 13.17635815 -1.4D-12 ) + BODY301_LONG_AXIS = ( 0. ) + + BODY301_NUT_PREC_RA = ( -3.8787 -0.1204 0.0700 -0.0172 + 0.0 0.0072 0.0 0.0 + 0.0 -0.0052 0.0 0.0 + 0.0043 ) + + BODY301_NUT_PREC_DEC = ( 1.5419 0.0239 -0.0278 0.0068 + 0.0 -0.0029 0.0009 0.0 + 0.0 0.0008 0.0 0.0 + -0.0009 ) + + BODY301_NUT_PREC_PM = ( 3.5610 0.1208 -0.0642 0.0158 + 0.0252 -0.0066 -0.0047 -0.0046 + 0.0028 0.0052 0.0040 0.0019 + -0.0044 ) + \begintext + + + +Satellites of Mars + + + Phobos + + Old values: + + Values are unchanged in the 2009 IAU report. + + + Current values: + + The quadratic prime meridian term is scaled by 1/36525**2: + + 8.864000000000000 ---> 6.6443009930565219E-09 + + \begindata + + BODY401_POLE_RA = ( 317.68 -0.108 0. ) + BODY401_POLE_DEC = ( 52.90 -0.061 0. ) + BODY401_PM = ( 35.06 1128.8445850 6.6443009930565219E-09 ) + + BODY401_LONG_AXIS = ( 0. ) + + BODY401_NUT_PREC_RA = ( 1.79 0. 0. 0. ) + BODY401_NUT_PREC_DEC = ( -1.08 0. 0. 0. ) + BODY401_NUT_PREC_PM = ( -1.42 -0.78 0. 0. ) + + + \begintext + + + Deimos + + Old values: + + Values are unchanged in the 2009 IAU report. + + New values: + + The Deimos prime meridian expression is: + + + 2 + W = 79.41 + 285.1618970 d - 0.520 T - 2.58 sin M + 3 + + + 0.19 cos M . + 3 + + + At the present time, the PCK kernel software (the routine + BODEUL in particular) cannot handle the cosine term directly, + but we can represent it as + + 0.19 sin M + 4 + + where + + M = 90.D0 - M + 4 3 + + Therefore, the nutation precession angle assignments for Phobos + and Deimos contain four coefficients rather than three. + + The quadratic prime meridian term is scaled by 1/36525**2: + + -0.5200000000000000 ---> -3.8978300049519307E-10 + + \begindata + + BODY402_POLE_RA = ( 316.65 -0.108 0. ) + BODY402_POLE_DEC = ( 53.52 -0.061 0. ) + BODY402_PM = ( 79.41 285.1618970 -3.897830D-10 ) + BODY402_LONG_AXIS = ( 0. ) + + BODY402_NUT_PREC_RA = ( 0. 0. 2.98 0. ) + BODY402_NUT_PREC_DEC = ( 0. 0. -1.78 0. ) + BODY402_NUT_PREC_PM = ( 0. 0. -2.58 0.19 ) + + \begintext + + + + +Satellites of Jupiter + + + Io + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY501_POLE_RA = ( 268.05 -0.009 0. ) + BODY501_POLE_DEC = ( 64.50 0.003 0. ) + BODY501_PM = ( 200.39 203.4889538 0. ) + BODY501_LONG_AXIS = ( 0. ) + + BODY501_NUT_PREC_RA = ( 0. 0. 0.094 0.024 ) + BODY501_NUT_PREC_DEC = ( 0. 0. 0.040 0.011 ) + BODY501_NUT_PREC_PM = ( 0. 0. -0.085 -0.022 ) + + \begintext + + + + Europa + + + Old values: + + Values are unchanged in the 2009 IAU report. + + + Current values: + + \begindata + + BODY502_POLE_RA = ( 268.08 -0.009 0. ) + BODY502_POLE_DEC = ( 64.51 0.003 0. ) + BODY502_PM = ( 36.022 101.3747235 0. ) + BODY502_LONG_AXIS = ( 0. ) + + BODY502_NUT_PREC_RA = ( 0. 0. 0. 1.086 0.060 0.015 0.009 ) + BODY502_NUT_PREC_DEC = ( 0. 0. 0. 0.468 0.026 0.007 0.002 ) + BODY502_NUT_PREC_PM = ( 0. 0. 0. -0.980 -0.054 -0.014 -0.008 ) + + \begintext + + + Ganymede + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY503_POLE_RA = ( 268.20 -0.009 0. ) + BODY503_POLE_DEC = ( 64.57 0.003 0. ) + BODY503_PM = ( 44.064 50.3176081 0. ) + BODY503_LONG_AXIS = ( 0. ) + + BODY503_NUT_PREC_RA = ( 0. 0. 0. -0.037 0.431 0.091 ) + BODY503_NUT_PREC_DEC = ( 0. 0. 0. -0.016 0.186 0.039 ) + BODY503_NUT_PREC_PM = ( 0. 0. 0. 0.033 -0.389 -0.082 ) + + \begintext + + + Callisto + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY504_POLE_RA = ( 268.72 -0.009 0. ) + BODY504_POLE_DEC = ( 64.83 0.003 0. ) + BODY504_PM = ( 259.51 21.5710715 0. ) + BODY504_LONG_AXIS = ( 0. ) + + BODY504_NUT_PREC_RA = ( 0. 0. 0. 0. -0.068 0.590 0. 0.010 ) + BODY504_NUT_PREC_DEC = ( 0. 0. 0. 0. -0.029 0.254 0. -0.004 ) + BODY504_NUT_PREC_PM = ( 0. 0. 0. 0. 0.061 -0.533 0. -0.009 ) + + \begintext + + + Amalthea + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY505_POLE_RA = ( 268.05 -0.009 0. ) + BODY505_POLE_DEC = ( 64.49 0.003 0. ) + BODY505_PM = ( 231.67 722.6314560 0. ) + BODY505_LONG_AXIS = ( 0. ) + + BODY505_NUT_PREC_RA = ( -0.84 0. 0. 0. 0. 0. 0. 0. 0.01 0. ) + BODY505_NUT_PREC_DEC = ( -0.36 0. 0. 0. 0. 0. 0. 0. 0. 0. ) + BODY505_NUT_PREC_PM = ( 0.76 0. 0. 0. 0. 0. 0. 0. -0.01 0. ) + + \begintext + + + Thebe + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY514_POLE_RA = ( 268.05 -0.009 0. ) + BODY514_POLE_DEC = ( 64.49 0.003 0. ) + BODY514_PM = ( 8.56 533.7004100 0. ) + BODY514_LONG_AXIS = ( 0. ) + + BODY514_NUT_PREC_RA = ( 0. -2.11 0. 0. 0. 0. 0. 0. 0. 0.04 ) + BODY514_NUT_PREC_DEC = ( 0. -0.91 0. 0. 0. 0. 0. 0. 0. 0.01 ) + BODY514_NUT_PREC_PM = ( 0. 1.91 0. 0. 0. 0. 0. 0. 0. -0.04 ) + + \begintext + + + Adrastea + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY515_POLE_RA = ( 268.05 -0.009 0. ) + BODY515_POLE_DEC = ( 64.49 0.003 0. ) + BODY515_PM = ( 33.29 1206.9986602 0. ) + BODY515_LONG_AXIS = ( 0. ) + + \begintext + + + Metis + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY516_POLE_RA = ( 268.05 -0.009 0. ) + BODY516_POLE_DEC = ( 64.49 0.003 0. ) + BODY516_PM = ( 346.09 1221.2547301 0. ) + BODY516_LONG_AXIS = ( 0. ) + + \begintext + + + +Satellites of Saturn + + + Mimas + + Old values: + + Values are from the 2006 IAU report. + + body601_pole_ra = ( 40.66 -0.036 0. ) + body601_pole_dec = ( 83.52 -0.004 0. ) + body601_pm = ( 337.46 381.9945550 0. ) + body601_long_axis = ( 0. ) + + body601_nut_prec_ra = ( 0. 0. 13.56 0. 0. 0. 0. 0. 0. ) + body601_nut_prec_dec = ( 0. 0. -1.53 0. 0. 0. 0. 0. 0. ) + body601_nut_prec_pm = ( 0. 0. -13.48 0. -44.85 0. 0. 0. 0. ) + + + Current values: + + \begindata + + BODY601_POLE_RA = ( 40.66 -0.036 0. ) + BODY601_POLE_DEC = ( 83.52 -0.004 0. ) + BODY601_PM = ( 333.46 381.9945550 0. ) + BODY601_LONG_AXIS = ( 0. ) + + BODY601_NUT_PREC_RA = ( 0. 0. 13.56 0. 0. 0. 0. 0. ) + BODY601_NUT_PREC_DEC = ( 0. 0. -1.53 0. 0. 0. 0. 0. ) + BODY601_NUT_PREC_PM = ( 0. 0. -13.48 0. -44.85 0. 0. 0. ) + + \begintext + + + Enceladus + + + Old values: + + Values are from the 2006 IAU report. + + body602_pole_ra = ( 40.66 -0.036 0. ) + body602_pole_dec = ( 83.52 -0.004 0. ) + body602_pm = ( 2.82 262.7318996 0. ) + body602_long_axis = ( 0. ) + + + Current values: + + \begindata + + BODY602_POLE_RA = ( 40.66 -0.036 0. ) + BODY602_POLE_DEC = ( 83.52 -0.004 0. ) + BODY602_PM = ( 6.32 262.7318996 0. ) + BODY602_LONG_AXIS = ( 0. ) + + \begintext + + + + Tethys + + + Old values: + + Values are from the 2006 IAU report. + + body603_pole_ra = ( 40.66 -0.036 0. ) + body603_pole_dec = ( 83.52 -0.004 0. ) + body603_pm = ( 10.45 190.6979085 0. ) + body603_long_axis = ( 0. ) + + body603_nut_prec_ra = ( 0. 0. 0. 9.66 0. 0. 0. 0. 0. ) + body603_nut_prec_dec = ( 0. 0. 0. -1.09 0. 0. 0. 0. 0. ) + body603_nut_prec_pm = ( 0. 0. 0. -9.60 2.23 0. 0. 0. 0. ) + + + Current values: + + \begindata + + BODY603_POLE_RA = ( 40.66 -0.036 0. ) + BODY603_POLE_DEC = ( 83.52 -0.004 0. ) + BODY603_PM = ( 8.95 190.6979085 0. ) + BODY603_LONG_AXIS = ( 0. ) + + BODY603_NUT_PREC_RA = ( 0. 0. 0. 9.66 0. 0. 0. 0. ) + BODY603_NUT_PREC_DEC = ( 0. 0. 0. -1.09 0. 0. 0. 0. ) + BODY603_NUT_PREC_PM = ( 0. 0. 0. -9.60 2.23 0. 0. 0. ) + + \begintext + + + Dione + + + Old values: + + Values are from the 2006 IAU report. + + body604_pole_ra = ( 40.66 -0.036 0. ) + body604_pole_dec = ( 83.52 -0.004 0. ) + body604_pm = ( 357.00 131.5349316 0. ) + body604_long_axis = ( 0. ) + + + Current values: + + \begindata + + BODY604_POLE_RA = ( 40.66 -0.036 0. ) + BODY604_POLE_DEC = ( 83.52 -0.004 0. ) + BODY604_PM = ( 357.6 131.5349316 0. ) + BODY604_LONG_AXIS = ( 0. ) + + \begintext + + + + Rhea + + + Old values: + + Values are from the 2009 IAU report. + + body605_pole_ra = ( 40.38 -0.036 0. ) + body605_pole_dec = ( 83.55 -0.004 0. ) + body605_pm = ( 235.16 79.6900478 0. ) + body605_long_axis = ( 0. ) + + body605_nut_prec_ra = ( 0. 0. 0. 0. 0. 3.10 0. 0. 0. ) + body605_nut_prec_dec = ( 0. 0. 0. 0. 0. -0.35 0. 0. 0. ) + body605_nut_prec_pm = ( 0. 0. 0. 0. 0. -3.08 0. 0. 0. ) + + + Current values: + + Data values are unchanged in the 2009 IAU report. However + the kernel variable contents have changed due to removal of + the angle S7. + + \begindata + + BODY605_POLE_RA = ( 40.38 -0.036 0. ) + BODY605_POLE_DEC = ( 83.55 -0.004 0. ) + BODY605_PM = ( 235.16 79.6900478 0. ) + BODY605_LONG_AXIS = ( 0. ) + + BODY605_NUT_PREC_RA = ( 0. 0. 0. 0. 0. 3.10 0. 0. ) + BODY605_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. -0.35 0. 0. ) + BODY605_NUT_PREC_PM = ( 0. 0. 0. 0. 0. -3.08 0. 0. ) + + \begintext + + + + Titan + + + Old values: + + Values are from the 2006 IAU report. + + BODY606_POLE_RA = ( 36.41 -0.036 0. ) + BODY606_POLE_DEC = ( 83.94 -0.004 0. ) + BODY606_PM = ( 189.64 22.5769768 0. ) + BODY606_LONG_AXIS = ( 0. ) + + BODY606_NUT_PREC_RA = ( 0. 0. 0. 0. 0. 0. 2.66 0. 0 ) + BODY606_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. 0. -0.30 0. 0 ) + BODY606_NUT_PREC_PM = ( 0. 0. 0. 0. 0. 0. -2.64 0. 0 ) + + + Current values: + + Note removal of dependence on the nutation precession + angles. + + \begindata + + BODY606_POLE_RA = ( 39.4827 0. 0. ) + BODY606_POLE_DEC = ( 83.4279 0. 0. ) + BODY606_PM = ( 186.5855 22.5769768 0. ) + BODY606_LONG_AXIS = ( 0. ) + + BODY606_NUT_PREC_RA = ( 0. 0. 0. 0. 0. 0. 0. 0 ) + BODY606_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. 0. 0. 0 ) + BODY606_NUT_PREC_PM = ( 0. 0. 0. 0. 0. 0. 0. 0 ) + + \begintext + + + + Hyperion + + The IAU report does not give an orientation model for Hyperion. + Hyperion's rotation is in chaotic and is not predictable for + long periods. + + + Iapetus + + + Old values: + + Values are from the 2006 IAU report. + + body608_pole_ra = ( 318.16 -3.949 0. ) + body608_pole_dec = ( 75.03 -1.143 0. ) + body608_pm = ( 350.20 4.5379572 0. ) + body608_long_axis = ( 0. ) + + + Current values: + + \begindata + + BODY608_POLE_RA = ( 318.16 -3.949 0. ) + BODY608_POLE_DEC = ( 75.03 -1.143 0. ) + BODY608_PM = ( 355.2 4.5379572 0. ) + BODY608_LONG_AXIS = ( 0. ) + + \begintext + + + + Phoebe + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY609_POLE_RA = ( 356.90 0. 0. ) + BODY609_POLE_DEC = ( 77.80 0. 0. ) + BODY609_PM = ( 178.58 931.639 0. ) + BODY609_LONG_AXIS = ( 0. ) + + \begintext + + + Janus + + + Old values: + + Values are unchanged in the 2009 IAU report. + + + Current values: + + Data values are unchanged in the 2009 IAU report. However + the kernel variable contents have changed due to removal of + the angle S7. + + \begindata + + BODY610_POLE_RA = ( 40.58 -0.036 0. ) + BODY610_POLE_DEC = ( 83.52 -0.004 0. ) + BODY610_PM = ( 58.83 518.2359876 0. ) + BODY610_LONG_AXIS = ( 0. ) + + BODY610_NUT_PREC_RA = ( 0. -1.623 0. 0. 0. 0. 0. 0.023 ) + BODY610_NUT_PREC_DEC = ( 0. -0.183 0. 0. 0. 0. 0. 0.001 ) + BODY610_NUT_PREC_PM = ( 0. 1.613 0. 0. 0. 0. 0. -0.023 ) + + \begintext + + + + Epimetheus + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + Data values are unchanged in the 2009 IAU report. However + the kernel variable contents have changed due to removal of + the angle S7. + + \begindata + + BODY611_POLE_RA = ( 40.58 -0.036 0. ) + BODY611_POLE_DEC = ( 83.52 -0.004 0. ) + BODY611_PM = ( 293.87 518.4907239 0. ) + BODY611_LONG_AXIS = ( 0. ) + + BODY611_NUT_PREC_RA = ( -3.153 0. 0. 0. 0. 0. 0.086 0. ) + BODY611_NUT_PREC_DEC = ( -0.356 0. 0. 0. 0. 0. 0.005 0. ) + BODY611_NUT_PREC_PM = ( 3.133 0. 0. 0. 0. 0. -0.086 0. ) + + \begintext + + + + Helene + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY612_POLE_RA = ( 40.85 -0.036 0. ) + BODY612_POLE_DEC = ( 83.34 -0.004 0. ) + BODY612_PM = ( 245.12 131.6174056 0. ) + BODY612_LONG_AXIS = ( 0. ) + + \begintext + + + + Telesto + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY613_POLE_RA = ( 50.51 -0.036 0. ) + BODY613_POLE_DEC = ( 84.06 -0.004 0. ) + BODY613_PM = ( 56.88 190.6979332 0. ) + BODY613_LONG_AXIS = ( 0. ) + + \begintext + + + + Calypso + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY614_POLE_RA = ( 36.41 -0.036 0. ) + BODY614_POLE_DEC = ( 85.04 -0.004 0. ) + BODY614_PM = ( 153.51 190.6742373 0. ) + BODY614_LONG_AXIS = ( 0. ) + + \begintext + + + + Atlas + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY615_POLE_RA = ( 40.58 -0.036 0. ) + BODY615_POLE_DEC = ( 83.53 -0.004 0. ) + BODY615_PM = ( 137.88 598.3060000 0. ) + BODY615_LONG_AXIS = ( 0. ) + + \begintext + + + + Prometheus + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY616_POLE_RA = ( 40.58 -0.036 ) + BODY616_POLE_DEC = ( 83.53 -0.004 ) + BODY616_PM = ( 296.14 587.289000 ) + BODY616_LONG_AXIS = ( 0. ) + + \begintext + + + + Pandora + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY617_POLE_RA = ( 40.58 -0.036 0. ) + BODY617_POLE_DEC = ( 83.53 -0.004 0. ) + BODY617_PM = ( 162.92 572.7891000 0. ) + BODY617_LONG_AXIS = ( 0. ) + + \begintext + + + + Pan + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY618_POLE_RA = ( 40.6 -0.036 0. ) + BODY618_POLE_DEC = ( 83.5 -0.004 0. ) + BODY618_PM = ( 48.8 626.0440000 0. ) + BODY618_LONG_AXIS = ( 0. ) + + \begintext + + + + + +Satellites of Uranus + + + + Ariel + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY701_POLE_RA = ( 257.43 0. 0. ) + BODY701_POLE_DEC = ( -15.10 0. 0. ) + BODY701_PM = ( 156.22 -142.8356681 0. ) + BODY701_LONG_AXIS = ( 0. ) + + BODY701_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0.29 ) + + BODY701_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0.28 ) + + BODY701_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0.05 0.08 ) + \begintext + + + + Umbriel + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY702_POLE_RA = ( 257.43 0. 0. ) + BODY702_POLE_DEC = ( -15.10 0. 0. ) + BODY702_PM = ( 108.05 -86.8688923 0. ) + BODY702_LONG_AXIS = ( 0. ) + + BODY702_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0. 0.21 ) + + BODY702_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0. 0.20 ) + + BODY702_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. -0.09 0. 0.06 ) + + \begintext + + + + Titania + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY703_POLE_RA = ( 257.43 0. 0. ) + BODY703_POLE_DEC = ( -15.10 0. 0. ) + BODY703_PM = ( 77.74 -41.3514316 0. ) + BODY703_LONG_AXIS = ( 0. ) + + BODY703_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.29 ) + + BODY703_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.28 ) + + BODY703_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.08 ) + \begintext + + + + Oberon + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY704_POLE_RA = ( 257.43 0. 0. ) + BODY704_POLE_DEC = ( -15.10 0. 0. ) + BODY704_PM = ( 6.77 -26.7394932 0. ) + BODY704_LONG_AXIS = ( 0. ) + + + BODY704_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0.16 ) + + BODY704_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0.16 ) + + BODY704_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. 0.04 ) + \begintext + + + + Miranda + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY705_POLE_RA = ( 257.43 0. 0. ) + BODY705_POLE_DEC = ( -15.08 0. 0. ) + BODY705_PM = ( 30.70 -254.6906892 0. ) + BODY705_LONG_AXIS = ( 0. ) + + BODY705_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 4.41 0. 0. 0. 0. + 0. -0.04 0. ) + + BODY705_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 4.25 0. 0. 0. 0. + 0. -0.02 0. ) + + BODY705_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 1.15 -1.27 0. 0. 0. + 0. -0.09 0.15 ) + \begintext + + + + Cordelia + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY706_POLE_RA = ( 257.31 0. 0. ) + BODY706_POLE_DEC = ( -15.18 0. 0. ) + BODY706_PM = ( 127.69 -1074.5205730 0. ) + BODY706_LONG_AXIS = ( 0. ) + + BODY706_NUT_PREC_RA = ( -0.15 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY706_NUT_PREC_DEC = ( 0.14 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY706_NUT_PREC_PM = ( -0.04 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Ophelia + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY707_POLE_RA = ( 257.31 0. 0. ) + BODY707_POLE_DEC = ( -15.18 0. 0. ) + BODY707_PM = ( 130.35 -956.4068150 0. ) + BODY707_LONG_AXIS = ( 0. ) + + BODY707_NUT_PREC_RA = ( 0. -0.09 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY707_NUT_PREC_DEC = ( 0. 0.09 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY707_NUT_PREC_PM = ( 0. -0.03 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Bianca + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY708_POLE_RA = ( 257.31 0. 0. ) + BODY708_POLE_DEC = ( -15.18 0. 0. ) + BODY708_PM = ( 105.46 -828.3914760 0. ) + BODY708_LONG_AXIS = ( 0. ) + + BODY708_NUT_PREC_RA = ( 0. 0. -0.16 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY708_NUT_PREC_DEC = ( 0. 0. 0.16 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY708_NUT_PREC_PM = ( 0. 0. -0.04 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Cressida + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + + BODY709_POLE_RA = ( 257.31 0. 0. ) + BODY709_POLE_DEC = ( -15.18 0. 0. ) + BODY709_PM = ( 59.16 -776.5816320 0. ) + BODY709_LONG_AXIS = ( 0. ) + + + BODY709_NUT_PREC_RA = ( 0. 0. 0. -0.04 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + + BODY709_NUT_PREC_DEC = ( 0. 0. 0. 0.04 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + + BODY709_NUT_PREC_PM = ( 0. 0. 0. -0.01 0. + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + + \begintext + + + + Desdemona + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY710_POLE_RA = ( 257.31 0. 0. ) + BODY710_POLE_DEC = ( -15.18 0. 0. ) + BODY710_PM = ( 95.08 -760.0531690 0. ) + BODY710_LONG_AXIS = ( 0. ) + + BODY710_NUT_PREC_RA = ( 0. 0. 0. 0. -0.17 + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY710_NUT_PREC_DEC = ( 0. 0. 0. 0. 0.16 + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY710_NUT_PREC_PM = ( 0. 0. 0. 0. -0.04 + 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Juliet + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY711_POLE_RA = ( 257.31 0. 0. ) + BODY711_POLE_DEC = ( -15.18 0. 0. ) + BODY711_PM = ( 302.56 -730.1253660 0. ) + BODY711_LONG_AXIS = ( 0. ) + + BODY711_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + -0.06 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY711_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0.06 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY711_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + -0.02 0. 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Portia + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY712_POLE_RA = ( 257.31 0. 0. ) + BODY712_POLE_DEC = ( -15.18 0. 0. ) + BODY712_PM = ( 25.03 -701.4865870 0. ) + BODY712_LONG_AXIS = ( 0. ) + + BODY712_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. -0.09 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY712_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0.09 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY712_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. -0.02 0. 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Rosalind + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY713_POLE_RA = ( 257.31 0. 0. ) + BODY713_POLE_DEC = ( -15.18 0. 0. ) + BODY713_PM = ( 314.90 -644.6311260 0. ) + BODY713_LONG_AXIS = ( 0. ) + + BODY713_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. -0.29 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY713_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0.28 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY713_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. -0.08 0. 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + Belinda + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY714_POLE_RA = ( 257.31 0. 0. ) + BODY714_POLE_DEC = ( -15.18 0. 0. ) + BODY714_PM = ( 297.46 -577.3628170 0. ) + BODY714_LONG_AXIS = ( 0. ) + + BODY714_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. -0.03 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY714_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0.03 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY714_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. -0.01 0. + 0. 0. 0. 0. 0. + 0. 0. 0. ) + \begintext + + + + Puck + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY715_POLE_RA = ( 257.31 0. 0. ) + BODY715_POLE_DEC = ( -15.18 0. 0. ) + BODY715_PM = ( 91.24 -472.5450690 0. ) + BODY715_LONG_AXIS = ( 0. ) + + BODY715_NUT_PREC_RA = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. -0.33 + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY715_NUT_PREC_DEC = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. 0.31 + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + BODY715_NUT_PREC_PM = ( 0. 0. 0. 0. 0. + 0. 0. 0. 0. -0.09 + 0. 0. 0. 0. 0. + 0. 0. 0. ) + + \begintext + + + + +Satellites of Neptune + + + Triton + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY801_POLE_RA = ( 299.36 0. 0. ) + BODY801_POLE_DEC = ( 41.17 0. 0. ) + BODY801_PM = ( 296.53 -61.2572637 0. ) + BODY801_LONG_AXIS = ( 0. ) + + + BODY801_NUT_PREC_RA = ( 0. 0. 0. 0. + 0. 0. 0. -32.35 + 0. -6.28 -2.08 -0.74 + -0.28 -0.11 -0.07 -0.02 + -0.01 ) + + + BODY801_NUT_PREC_DEC = ( 0. 0. 0. 0. + 0. 0. 0. 22.55 + 0. 2.10 0.55 0.16 + 0.05 0.02 0.01 0. + 0. ) + + + BODY801_NUT_PREC_PM = ( 0. 0. 0. 0. + 0. 0. 0. 22.25 + 0. 6.73 2.05 0.74 + 0.28 0.11 0.05 0.02 + 0.01 ) + + \begintext + + + + + Nereid + + Old values: + + Values are from the 1988 IAU report [10]. Note that this + rotation model pre-dated the 1989 Voyager 2 Neptune + encounter. + + + body802_pole_ra = ( 273.48 0. 0. ) + body802_pole_dec = ( 67.22 0. 0. ) + body802_pm = ( 237.22 0.9996465 0. ) + body802_long_axis = ( 0. ) + + + The report seems to have a typo: in the nut_prec_ra expression, + where the report gives -0.51 sin 3N3, we use -0.51 3N2. + + body802_nut_prec_ra = ( 0. -17.81 + 0. 0. 0. 0. + 0. 0. 0. + 2.56 -0.51 0.11 -0.03 ) + + body802_nut_prec_dec = ( 0. -6.67 + 0. 0. 0. 0. + 0. 0. 0. + 0.47 -0.07 0.01 ) + + body802_nut_prec_pm = ( 0. 16.48 + 0. 0. 0. 0. + 0. 0. 0. + -2.57 0.51 -0.11 0.02 ) + + + + Current values: + + The 2009 report [1] states that values for Nereid are not + given because Nereid is not in synchronous rotation with Neptune + (notes following table 2). + + + + Naiad + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY803_POLE_RA = ( 299.36 0. 0. ) + BODY803_POLE_DEC = ( 43.36 0. 0. ) + BODY803_PM = ( 254.06 +1222.8441209 0. ) + BODY803_LONG_AXIS = ( 0. ) + + + BODY803_NUT_PREC_RA = ( 0.70 -6.49 0. 0. + 0. 0. 0. 0. + 0.25 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY803_NUT_PREC_DEC = ( -0.51 -4.75 0. 0. + 0. 0. 0. 0. + 0.09 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY803_NUT_PREC_PM = ( -0.48 4.40 0. 0. + 0. 0. 0. 0. + -0.27 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + \begintext + + + + + Thalassa + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY804_POLE_RA = ( 299.36 0. 0. ) + BODY804_POLE_DEC = ( 43.45 0. 0. ) + BODY804_PM = ( 102.06 1155.7555612 0. ) + BODY804_LONG_AXIS = ( 0. ) + + + BODY804_NUT_PREC_RA = ( 0.70 0. -0.28 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + + BODY804_NUT_PREC_DEC = ( -0.51 0. -0.21 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY804_NUT_PREC_PM = ( -0.48 0. 0.19 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + \begintext + + + + Despina + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY805_POLE_RA = ( 299.36 0. 0. ) + BODY805_POLE_DEC = ( 43.45 0. 0. ) + BODY805_PM = ( 306.51 +1075.7341562 0. ) + BODY805_LONG_AXIS = ( 0. ) + + + BODY805_NUT_PREC_RA = ( 0.70 0. 0. -0.09 + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY805_NUT_PREC_DEC = ( -0.51 0. 0. -0.07 + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY805_NUT_PREC_PM = ( -0.49 0. 0. 0.06 + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + \begintext + + + + Galatea + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY806_POLE_RA = ( 299.36 0. 0. ) + BODY806_POLE_DEC = ( 43.43 0. 0. ) + BODY806_PM = ( 258.09 839.6597686 0. ) + BODY806_LONG_AXIS = ( 0. ) + + + BODY806_NUT_PREC_RA = ( 0.70 0. 0. 0. + -0.07 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY806_NUT_PREC_DEC = ( -0.51 0. 0. 0. + -0.05 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY806_NUT_PREC_PM = ( -0.48 0. 0. 0. + 0.05 0. 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + \begintext + + + Larissa + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY807_POLE_RA = ( 299.36 0. 0. ) + BODY807_POLE_DEC = ( 43.41 0. 0. ) + BODY807_PM = ( 179.41 +649.0534470 0. ) + BODY807_LONG_AXIS = ( 0. ) + + + BODY807_NUT_PREC_RA = ( 0.70 0. 0. 0. + 0. -0.27 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY807_NUT_PREC_DEC = ( -0.51 0. 0. 0. + 0. -0.20 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY807_NUT_PREC_PM = ( -0.48 0. 0. 0. + 0. 0.19 0. 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + \begintext + + + + Proteus + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY808_POLE_RA = ( 299.27 0. 0. ) + BODY808_POLE_DEC = ( 42.91 0. 0. ) + BODY808_PM = ( 93.38 +320.7654228 0. ) + BODY808_LONG_AXIS = ( 0. ) + + + BODY808_NUT_PREC_RA = ( 0.70 0. 0. 0. + 0. 0. -0.05 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY808_NUT_PREC_DEC = ( -0.51 0. 0. 0. + 0. 0. -0.04 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + BODY808_NUT_PREC_PM = ( -0.48 0. 0. 0. + 0. 0. 0.04 0. + 0. 0. 0. 0. + 0. 0. 0. 0. + 0. ) + + \begintext + + + + + +Satellites of Pluto + + Charon + + Old values: + + Values are from the 2006 IAU report. + + body901_pole_ra = ( 312.993 0. 0. ) + body901_pole_dec = ( 6.163 0. 0. ) + body901_pm = ( 57.305 -56.3625225 0. ) + body901_long_axis = ( 0. ) + + + Current values: + + Due to the new definition of planetocentric coordinates + for small bodies, and to the reclassification of Pluto + as a dwarf planet, Charon's north pole direction has been + inverted. + + The PM constant W0 is from [2]. + + \begindata + + BODY901_POLE_RA = ( 132.993 0. 0. ) + BODY901_POLE_DEC = ( -6.163 0. 0. ) + BODY901_PM = ( 122.695 56.3625225 0. ) + BODY901_LONG_AXIS = ( 0. ) + + \begintext + + + +Orientation constants for Selected Comets and Asteroids +-------------------------------------------------------- + + + +Ceres + + Current values: + + \begindata + + BODY2000001_POLE_RA = ( 291. 0. 0. ) + BODY2000001_POLE_DEC = ( 59. 0. 0. ) + BODY2000001_PM = ( 170.90 952.1532 0. ) + BODY2000001_LONG_AXIS = ( 0. ) + + \begintext + + + +Pallas + + Current values: + + \begindata + + BODY2000002_POLE_RA = ( 33. 0. 0. ) + BODY2000002_POLE_DEC = ( -3. 0. 0. ) + BODY2000002_PM = ( 38. 1105.8036 0. ) + BODY2000002_LONG_AXIS = ( 0. ) + + \begintext + + + +Vesta + + Old values: + + Values are from the 2009 IAU report. + + body2000004_pole_ra = ( 301. 0. 0. ) + body2000004_pole_dec = ( 41. 0. 0. ) + body2000004_pm = ( 292. 1617.332776 0. ) + body2000004_long_axis = ( 0. ) + + Current values: + + \begindata + + BODY2000004_POLE_RA = ( 305.8 0. 0. ) + BODY2000004_POLE_DEC = ( 41.4 0. 0. ) + BODY2000004_PM = ( 292. 1617.332776 0. ) + BODY2000004_LONG_AXIS = ( 0. ) + + \begintext + + + +Lutetia + + Current values: + + \begindata + + BODY2000021_POLE_RA = ( 52. 0. 0. ) + BODY2000021_POLE_DEC = ( 12. 0. 0. ) + BODY2000021_PM = ( 94. 1057.7515 0. ) + BODY2000021_LONG_AXIS = ( 0. ) + + \begintext + + + +Ida + + Old values: + + BODY2431010_POLE_RA = ( 168.76 0. 0. ) + BODY2431010_POLE_DEC = ( -2.88 0. 0. ) + BODY2431010_PM = ( 265.95 +1864.6280070 0. ) + BODY2431010_LONG_AXIS = ( 0. ) + + Current values: + + The PM constant W0 is from [2]. + + \begindata + + BODY2431010_POLE_RA = ( 168.76 0. 0. ) + BODY2431010_POLE_DEC = ( -2.88 0. 0. ) + BODY2431010_PM = ( 274.05 +1864.6280070 0. ) + BODY2431010_LONG_AXIS = ( 0. ) + + \begintext + + + +Eros + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY2000433_POLE_RA = ( 11.35 0. 0. ) + BODY2000433_POLE_DEC = ( 17.22 0. 0. ) + BODY2000433_PM = ( 326.07 1639.38864745 0. ) + BODY2000433_LONG_AXIS = ( 0. ) + + \begintext + + + +Davida + + Current values: + + \begindata + + BODY2000511_POLE_RA = ( 297. 0. 0. ) + BODY2000511_POLE_DEC = ( 5. 0. 0. ) + BODY2000511_PM = ( 268.1 1684.4193549 0. ) + BODY2000511_LONG_AXIS = ( 0. ) + + \begintext + + + +Gaspra + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY9511010_POLE_RA = ( 9.47 0. 0. ) + BODY9511010_POLE_DEC = ( 26.70 0. 0. ) + BODY9511010_PM = ( 83.67 1226.9114850 0. ) + BODY9511010_LONG_AXIS = ( 0. ) + + \begintext + + + +Steins + + Current values: + + \begindata + + BODY2002867_POLE_RA = ( 90. 0. 0. ) + BODY2002867_POLE_DEC = ( -62. 0. 0. ) + BODY2002867_PM = ( 93.94 1428.852332 0. ) + BODY2002867_LONG_AXIS = ( 0. ) + + \begintext + + + +Itokawa + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY2025143_POLE_RA = ( 90.53 0. 0. ) + BODY2025143_POLE_DEC = ( -66.30 0. 0. ) + BODY2025143_PM = ( 000.0 712.143 0. ) + BODY2025143_LONG_AXIS = ( 0. ) + + \begintext + + + +9P/Tempel 1 + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY1000093_POLE_RA = ( 294. 0. 0. ) + BODY1000093_POLE_DEC = ( 73. 0. 0. ) + BODY1000093_PM = ( 252.63 212.064 0. ) + BODY1000093_LONG_AXIS = ( 0. ) + + \begintext + + + +19P/Borrelly + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY1000005_POLE_RA = ( 218.5 0. 0. ) + BODY1000005_POLE_DEC = ( -12.5 0. 0. ) + BODY1000005_PM = ( 000. 390.0 0. ) + BODY1000005_LONG_AXIS = ( 0. ) + + \begintext + + + + + + + +Radii of Sun and Planets +-------------------------------------------------------- + + +Sun + + \begindata + + BODY10_RADII = ( 696000. 696000. 696000. ) + + \begintext + + +Mercury + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY199_RADII = ( 2439.7 2439.7 2439.7 ) + + \begintext + + +Venus + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY299_RADII = ( 6051.8 6051.8 6051.8 ) + + \begintext + + +Earth + + Old values: + + Values are from the 2006 IAU report. + + body399_radii = ( 6378.14 6378.14 6356.75 ) + + + Current values: + + + \begindata + + BODY399_RADII = ( 6378.1366 6378.1366 6356.7519 ) + + \begintext + + +Mars + + + Old values: + + Values are from the 2006 IAU report. + + body499_radii = ( 3397. 3397. 3375. ) + + + Current values: + + The 2009 IAU report gives separate values for the north and + south polar radii: + + north: 3373.19 + south: 3379.21 + + The report provides the average of these values as well, + which we use as the polar radius for the triaxial model. + + \begindata + + BODY499_RADII = ( 3396.19 3396.19 3376.20 ) + + \begintext + + + +Jupiter + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY599_RADII = ( 71492 71492 66854 ) + + \begintext + + + +Saturn + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY699_RADII = ( 60268 60268 54364 ) + + \begintext + + + +Uranus + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY799_RADII = ( 25559 25559 24973 ) + + \begintext + + + +Neptune + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + (Values are for the 1 bar pressure level.) + + \begindata + + BODY899_RADII = ( 24764 24764 24341 ) + + \begintext + + + +Radii of the Dwarf Planet Pluto +-------------------------------------------------------- + + +Pluto + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY999_RADII = ( 1195 1195 1195 ) + + \begintext + + + + +Radii of Satellites +-------------------------------------------------------- + + +Moon + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY301_RADII = ( 1737.4 1737.4 1737.4 ) + + \begintext + + + +Satellites of Mars + + Old values: + + Values are from the 2006 IAU report. + + body401_radii = ( 13.4 11.2 9.2 ) + body402_radii = ( 7.5 6.1 5.2 ) + + Current values: + + \begindata + + BODY401_RADII = ( 13.0 11.4 9.1 ) + BODY402_RADII = ( 7.8 6.0 5.1 ) + + \begintext + + + +Satellites of Jupiter + + Old values: + + Values are unchanged in the 2009 IAU report, + except for those of Europa, Ganymede, Callisto, + and Metis. For Metis, now all three radii are + provided. + + body502_radii = ( 1564.13 1561.23 1560.93 ) + body503_radii = ( 2632.4 2632.29 2632.35 ) + body504_radii = ( 2409.4 2409.2 2409.3 ) + + The value for the second radius for body 516 is not given in + 2003 IAU report. The values given are: + + body516_radii = ( 30 --- 20 ) + + For use within the SPICE system, we use only the mean radius. + + body516_radii = ( 21.5 21.5 21.5 ) + + + + + Current values: + + Note that for Ganymede and Callisto only mean radii + are provided. + + \begindata + + BODY501_RADII = ( 1829.4 1819.4 1815.7 ) + BODY502_RADII = ( 1562.6 1560.3 1559.5 ) + BODY503_RADII = ( 2631.2 2631.2 2631.2 ) + BODY504_RADII = ( 2410.3 2410.3 2410.3 ) + BODY505_RADII = ( 125 73 64 ) + + \begintext + + Only mean radii are available in the 2003 IAU report for bodies + 506-513. + + \begindata + + BODY506_RADII = ( 85 85 85 ) + BODY507_RADII = ( 40 40 40 ) + BODY508_RADII = ( 18 18 18 ) + BODY509_RADII = ( 14 14 14 ) + BODY510_RADII = ( 12 12 12 ) + BODY511_RADII = ( 15 15 15 ) + BODY512_RADII = ( 10 10 10 ) + BODY513_RADII = ( 5 5 5 ) + BODY514_RADII = ( 58 49 42 ) + BODY515_RADII = ( 10 8 7 ) + BODY516_RADII = ( 30 20 17 ) + + \begintext + + + +Satellites of Saturn + + + Old values: + + Values are from the 2006 IAU report. + + body601_radii = ( 207.4 196.8 190.6 ) + body602_radii = ( 256.6 251.4 248.3 ) + body603_radii = ( 540.4 531.1 527.5 ) + body604_radii = ( 563.8 561.0 560.3 ) + body605_radii = ( 767.2 762.5 763.1 ) + body606_radii = ( 2575 2575 2575 ) + body607_radii = ( 164 130 107 ) + body608_radii = ( 747.4 747.4 712.4 ) + body609_radii = ( 108.6 107.7 101.5 ) + body610_radii = ( 97.0 95.0 77.0 ) + body611_radii = ( 69.0 55.0 55.0 ) + + + Only the first equatorial radius for Helene (body 612) is given in the + 2006 IAU report: + + body612_radii = ( 17.5 --- --- ) + + The mean radius is 16km; we use this radius for all three axes, as + we do for the satellites for which only the mean radius is available. + + body612_radii = ( 17.5 17.5 17.5 ) + body613_radii = ( 15 12.5 7.5 ) + body614_radii = ( 15.0 8.0 8.0 ) + body615_radii = ( 18.5 17.2 13.5 ) + body616_radii = ( 74.0 50.0 34.0 ) + body617_radii = ( 55.0 44.0 31.0 ) + + For Pan, only a mean radius is given in the 2006 report. + + body618_radii = ( 10 10 10 ) + + + + Current values: + + \begindata + + BODY601_RADII = ( 207.8 196.7 190.6 ) + BODY602_RADII = ( 256.6 251.4 248.3 ) + BODY603_RADII = ( 538.4 528.3 526.3 ) + BODY604_RADII = ( 563.4 561.3 559.6 ) + BODY605_RADII = ( 765.0 763.1 762.4 ) + BODY606_RADII = ( 2575.15 2574.78 2574.47 ) + BODY607_RADII = ( 180.1 133.0 102.7 ) + BODY608_RADII = ( 745.7 745.7 712.1 ) + BODY609_RADII = ( 109.4 108.5 101.8 ) + BODY610_RADII = ( 101.5 92.5 76.3 ) + BODY611_RADII = ( 64.9 57.0 53.1 ) + BODY612_RADII = ( 21.7 19.1 13.0 ) + BODY613_RADII = ( 16.3 11.8 10.0 ) + BODY614_RADII = ( 15.1 11.5 7.0 ) + BODY615_RADII = ( 20.4 17.7 9.4 ) + BODY616_RADII = ( 67.8 39.7 29.7 ) + BODY617_RADII = ( 52.0 40.5 32.0 ) + BODY618_RADII = ( 17.2 15.7 10.4 ) + + BODY632_RADII = ( 1.6 1.6 1.6 ) + BODY633_RADII = ( 2.9 2.8 2.0 ) + BODY634_RADII = ( 1.5 1.2 1.0 ) + BODY635_RADII = ( 4.3 4.1 3.2 ) + BODY649_RADII = ( 1 1 1 ) + + \begintext + + + +Satellites of Uranus + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY701_RADII = ( 581.1 577.9 577.7 ) + BODY702_RADII = ( 584.7 584.7 584.7 ) + BODY703_RADII = ( 788.9 788.9 788.9 ) + BODY704_RADII = ( 761.4 761.4 761.4 ) + BODY705_RADII = ( 240.4 234.2 232.9 ) + + \begintext + + The 2000 report gives only mean radii for satellites 706--715. + + \begindata + + BODY706_RADII = ( 13 13 13 ) + BODY707_RADII = ( 15 15 15 ) + BODY708_RADII = ( 21 21 21 ) + BODY709_RADII = ( 31 31 31 ) + BODY710_RADII = ( 27 27 27 ) + BODY711_RADII = ( 42 42 42 ) + BODY712_RADII = ( 54 54 54 ) + BODY713_RADII = ( 27 27 27 ) + BODY714_RADII = ( 33 33 33 ) + BODY715_RADII = ( 77 77 77 ) + + \begintext + + + + +Satellites of Neptune + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + The 2009 report gives mean radii only for bodies 801-806. + + \begindata + + BODY801_RADII = ( 1352.6 1352.6 1352.6 ) + BODY802_RADII = ( 170 170 170 ) + BODY803_RADII = ( 29 29 29 ) + BODY804_RADII = ( 40 40 40 ) + BODY805_RADII = ( 74 74 74 ) + BODY806_RADII = ( 79 79 79 ) + + \begintext + + The second equatorial radius for Larissa is not given in the 2009 + report. The available values are: + + BODY807_RADII = ( 104 --- 89 ) + + For use within the SPICE system, we use only the mean radius. + + \begindata + + BODY807_RADII = ( 96 96 96 ) + BODY808_RADII = ( 218 208 201 ) + + \begintext + + + + +Satellites of Pluto + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY901_RADII = ( 605 605 605 ) + + \begintext + + + +Radii for Selected Comets and Asteroids +-------------------------------------------------------- + + + + + +Ceres + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2000001_RADII = ( 487.3 487.3 454.7 ) + + \begintext + + + +Vesta + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2000004_RADII = ( 289. 280. 229. ) + + \begintext + + + +Lutetia + + + Current values: + + + \begindata + + BODY2000021_RADII = ( 62.0 50.5 46.5 ) + + \begintext + + + +Ida + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2431010_RADII = ( 26.8 12.0 7.6 ) + + \begintext + + + +Mathilde + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2000253_RADII = ( 33. 24. 23. ) + + \begintext + + + +Eros + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2000433_RADII = ( 17.0 5.5 5.5 ) + + \begintext + + + +Davida + + + Current values: + + + \begindata + + BODY2000511_RADII = ( 180. 147. 127. ) + + \begintext + + + +Gaspra + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY9511010_RADII = ( 9.1 5.2 4.4 ) + + \begintext + + + +Steins + + + Current values: + + + \begindata + + BODY2002867_RADII = ( 3.24 2.73 2.04 ) + + \begintext + + + +Toutatis + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2004179_RADII = ( 2.13 1.015 0.85 ) + + \begintext + + + +Itokawa + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + + \begindata + + BODY2025143_RADII = ( 0.535 0.294 0.209 ) + + \begintext + + +Kleopatra + + + Old values: + + Values are from the 2003 report. + + + body2000216_radii = ( 108.5 47 40.5 ) + + + Current values: + + + No values are provided in the 2009 report. + + + + + +Halley + + + Old values: + + Values are unchanged in the 2009 IAU report. + + Current values: + + \begindata + + BODY1000036_RADII = ( 8.0 4.0 4.0 ) + + \begintext + + + +9P/Tempel 1 + + + Old values: + + The effective radius is unchanged in the 2009 IAU report. + + Current values: + + + The value in the data assignment below is the + "effective radius." + + According to [1]: + + The maximum and minimum radii are not properly + the values of the principal semi-axes, they + are half the maximum and minimum values of the + diameter. Due to the large deviations from a + simple ellipsoid, they may not correspond with + measurements along the principal axes, or be + orthogonal to each other. + + \begindata + + BODY1000093_RADII = ( 3.0 3.0 3.0 ) + + \begintext + + +19P/Borrelly + + + Old values: + + Values are unchanged in the 2009 report. + + Current values: + + + The value in the data assignment below is the + "effective radius." + + The first principal axis length is + + 3.5 km + + The lengths of the other semi-axes are not provided + by [1]. + + \begindata + + BODY1000005_RADII = ( 4.22 4.22 4.22 ) + + \begintext + + + +81P/Wild 2 + + + Old values: + + Values are unchanged in the 2009 report. + + Current values: + + + \begindata + + BODY1000107_RADII = ( 2.7 1.9 1.5 ) + + \begintext + + + +=========================================================================== +End of file pck00010.tpc +=========================================================================== + + + diff --git a/Src/Celbody/Atmosphere/CMakeLists.txt b/Src/Celbody/Atmosphere/CMakeLists.txt new file mode 100644 index 000000000..1d7b45e47 --- /dev/null +++ b/Src/Celbody/Atmosphere/CMakeLists.txt @@ -0,0 +1,18 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +add_subdirectory( + EarthAtm2006 +) +add_subdirectory( + EarthAtmJ71G +) +add_subdirectory( + EarthAtmNRLMSISE00 +) +add_subdirectory( + MarsAtm2006 +) +add_subdirectory( + VenusAtm2006 +) \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtm2006/CMakeLists.txt b/Src/Celbody/Atmosphere/EarthAtm2006/CMakeLists.txt new file mode 100644 index 000000000..a5ff9082c --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtm2006/CMakeLists.txt @@ -0,0 +1,35 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +set(ATM_TARGET EarthAtm2006) + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${ORBITER_BINARY_CELBODY_DIR}${CELBODY}/Atmosphere) + +add_library(${ATM_TARGET} SHARED + EarthAtm2006.cpp +) + +add_dependencies(${ATM_TARGET} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${ATM_TARGET} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include +) + +target_link_libraries(${ATM_TARGET} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} +) + +set_target_properties(${ATM_TARGET} + PROPERTIES + FOLDER Celbody/Atmospheres +) + +# Installation +install(TARGETS ${ATM_TARGET} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR}/Earth/Atmosphere +) diff --git a/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.cpp b/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.cpp new file mode 100644 index 000000000..143a9c714 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.cpp @@ -0,0 +1,125 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +// ====================================================================== +// class EarthAtmosphere_2006 +// Legacy atmospheric model +// ====================================================================== + +#define ORBITER_MODULE +#include "EarthAtm2006.h" + +bool EarthAtmosphere_2006::clbkConstants (ATMCONST *atmc) const +{ + atmc->p0 = 101325; + atmc->rho0 = 1.2250; + atmc->R = 286.91; + atmc->gamma = 1.4; + atmc->altlimit = 200e3; + return true; +} + +const char *EarthAtmosphere_2006::clbkName () const +{ + return "2006 Edition model"; +} + +bool EarthAtmosphere_2006::clbkParams (const PRM_IN *prm_in, PRM_OUT *prm) +{ + double alt = (prm_in->flag & PRM_ALT ? prm_in->alt : 0.0); + + const double g0R = 0.0341643; + // g0/R, where g0 is gravitational acceleration at sea level, + // and R is specific gas constant for air + + // convert geometric to geopotential altitude + const double rad = 6.37101e6; + alt *= rad/(rad+alt); + + double e, t; + + if (alt > 105e3) { + prm->T = 225.66; + e = exp (-g0R/225.66*(alt-105e3)); + prm->p = 0.007454273 * e; + prm->rho = 1.15082e-7 * e; + } else if (alt > 47e3) { + if (alt > 79e3) { + if (alt > 90e3) { + prm->T = (alt-90e3)*4e-3+165.66; + e = pow (t = prm->T/165.66, -g0R/4e-3); + prm->p = 0.1044559 * e; + prm->rho = 2.19671e-6 *e / t; + } else { + prm->T = 165.66; + e = exp (-g0R/165.66*(alt-79e3)); + prm->p = 1.009601 * e; + prm->rho = 2.12319e-5 * e; + } + } else { + if (alt > 53e3) { + prm->T = (alt-53e3)*(-4.5e-3)+282.66; + e = pow (t = prm->T/282.66, -g0R/(-4.5e-3)); + prm->p = 58.32623 * e; + prm->rho = 0.000718878 * e / t; + } else { + prm->T = 282.66; + e = exp (-g0R/282.66*(alt-47e3)); + prm->p = 120.4524 * e; + prm->rho = 0.00148459 * e; + } + } + } else { + if (alt > 11e3) { + if (alt > 25e3) { + prm->T = (alt-25e3)*3e-3+216.66; + e = pow (t = prm->T/216.66, -g0R/3e-3); + prm->p = 2488.726 * e; + prm->rho = 0.0400179 * e / t; + } else { + prm->T = 216.66; + e = exp (-g0R/216.66*(alt-11e3)); + prm->p = 2.26323e4 * e; + prm->rho = 0.36392 * e; + } + } else { + prm->T = alt*(-6.5e-3)+288.16; + e = pow (t = prm->T/288.16, -g0R/(-6.5e-3)); + prm->p = 1.01325e5 * e; + prm->rho = 1.2250 * e / t; + } + } + + return true; +} + + +// ====================================================================== +// API interface +// ====================================================================== + +DLLCLBK void InitModule (HINSTANCE hModule) +{} + +DLLCLBK void ExitModule (HINSTANCE hModule) +{} + +DLLCLBK ATMOSPHERE *CreateAtmosphere (CELBODY2 *cbody) +{ + return new EarthAtmosphere_2006 (cbody); +} + +DLLCLBK void DeleteAtmosphere (ATMOSPHERE *atm) +{ + delete (EarthAtmosphere_2006*)atm; +} + +DLLCLBK char *ModelName () +{ + return (char*)"Orbiter 2006 Legacy Model"; +} + +DLLCLBK char *ModelDesc () +{ + return (char*)"A simple static atmosphere model. This model was used in Orbiter 2006. It underestimates atmospheric density and pressure above ~120km and terminates at 200km, which simplifies orbit-keeping for LEO objects."; +} \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.h b/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.h new file mode 100644 index 000000000..60d64c1c1 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtm2006/EarthAtm2006.h @@ -0,0 +1,23 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +#ifndef __EARTHATM2006_H +#define __EARTHATM2006_H + +#include "OrbiterAPI.h" +#include "CelbodyAPI.h" + +// ====================================================================== +// class EarthAtmosphere_2006 +// Legacy atmospheric model +// ====================================================================== + +class EarthAtmosphere_2006: public ATMOSPHERE { +public: + EarthAtmosphere_2006 (CELBODY2 *body): ATMOSPHERE (body) {} + const char *clbkName () const; + bool clbkConstants (ATMCONST *atmc) const; + bool clbkParams (const PRM_IN *prm_in, PRM_OUT *prm); +}; + +#endif // !__EARTHATM2006_H \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtmJ71G/CMakeLists.txt b/Src/Celbody/Atmosphere/EarthAtmJ71G/CMakeLists.txt new file mode 100644 index 000000000..0bfa28c3d --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmJ71G/CMakeLists.txt @@ -0,0 +1,35 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +set(ATM_TARGET EarthAtmJ71G) + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${ORBITER_BINARY_CELBODY_DIR}/${CELBODY}/Atmosphere) + +add_library(${ATM_TARGET} SHARED + EarthAtmJ71G.cpp +) + +add_dependencies(${ATM_TARGET} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${ATM_TARGET} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include +) + +target_link_libraries(${ATM_TARGET} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} +) + +set_target_properties(${ATM_TARGET} + PROPERTIES + FOLDER Celbody/Atmospheres +) + +# Installation +install(TARGETS ${ATM_TARGET} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR}/Earth/Atmosphere +) diff --git a/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.cpp b/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.cpp new file mode 100644 index 000000000..c63e2b943 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.cpp @@ -0,0 +1,842 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +// ====================================================================== +// class EarthAtmosphere_J71G +// Implementation of Jacchia71-Gill atmosphere model +// ====================================================================== + +#define ORBITER_MODULE +#include "EarthAtmJ71G.h" + +#define pow10(x) (pow(10.0,(x))) // VC++ doesn't seem to support this directly + +// =========================================================================== +// Local prototypes + +double J77_Temp (double Z, double Tinf); +double J77_Dens_low (double Z); +double J77_MW_low (double Z); +double dens_fit (double Z, double Tinf); +double helium_fit (double Z, double Tinf); +double molweight_fit (double Z, double Tinf); + + +// =========================================================================== +// Constructor + +EarthAtmosphere_J71G::EarthAtmosphere_J71G (CELBODY2 *body): ATMOSPHERE (body) +{ + hBody = body->GetHandle(); + atmprm.mjd = -1e10; // invalidate +} + +// =========================================================================== +// Model identifier + +const char *EarthAtmosphere_J71G::clbkName () const +{ + return "J71G"; +} + +// =========================================================================== +// Some constants of the atmospheric model + +bool EarthAtmosphere_J71G::clbkConstants (ATMCONST *atmc) const +{ + atmc->p0 = 101325; + atmc->rho0 = 1.2247; + atmc->R = 286.91; + atmc->gamma = 1.4; + atmc->altlimit = 2500e3; + return true; +} + +// =========================================================================== +// Implementation of Jacchia-71 atmospheric model (see "Earth Atmosphere Model" +// in "Orbiter Technical Reference") + +bool EarthAtmosphere_J71G::clbkParams (const PRM_IN *prm_in, PRM_OUT *prm) +{ + const double c = 6.02257e26; // Avogadro constant + const double k = 1.38066e-23; // Boltzmann constant + const double ck = c*k; + const double m_He = 4.002; // Helium mass + + double Z = (prm_in->flag & PRM_ALT ? prm_in->alt*1e-3 : 0.0); + double lng = (prm_in->flag & PRM_LNG ? prm_in->lng : 0.0); lng=0; + double lat = (prm_in->flag & PRM_LAT ? prm_in->lat : 0.0); lat=0; + double Fbar = (prm_in->flag & PRM_FBR ? prm_in->f107bar : 140.0); + double Kp = (prm_in->flag & PRM_AP ? prm_in->ap : 3.0); + + double mjd = oapiGetSimMJD(); + if (fabs (mjd - atmprm.mjd) > 0.0417) { + // Update sun's geographic position once an hour + VECTOR3 gsun; + double r; + oapiGetGlobalPos (hBody, &gsun); + oapiGlobalToEqu (hBody, -gsun, &atmprm.Slng, &atmprm.Slat, &r); + atmprm.mjd = mjd; + } + double Slat = atmprm.Slat; + double Slng = atmprm.Slng - PI2*(mjd-atmprm.mjd)*86400.0/cbody->SidRotPeriod(); + if (Slng < -PI) Slng += PI2; + + double mw; + + if (Z < 90.0) { + + // use US standard atmosphere + prm->T = J77_Temp (Z, 0); + prm->rho = J77_Dens_low (Z); + mw = J77_MW_low (Z); + + } else { + + // night-time global exospheric temperature + double Tc = 379.0 + 3.24*Fbar; + + // modified hour angle of the sun + double H = lng - Slng; + double tau = H - 0.64577 + 0.10472*sin (H+0.7505) + 3.0*PI; + + tau = fmod (tau, PI2) - PI; // tau in [-pi,+pi] + + // daily varying temperature + double R = 0.3; + double stheta = pow((0.5*(1.0-cos(Slat+lat))),1.1); + double ceta = pow((0.5*(1.0+cos(Slat-lat))),1.1); + double TL = Tc*(1.0+R*(stheta+(ceta-stheta)*pow(cos(0.5*tau),3.0))); + + // temperature delta from geomagnetic activity + double expKp = exp(Kp); + double d_Tg18 = 28.0*Kp + 0.03*expKp; + + // temperature and density delta from geomagnetic activity + double d_Tg20 = 14.0*Kp + 0.02*expKp; + double d_Gm20 = 0.012*Kp + 1.2e-5*expKp; + + // continuous transition at height 350km + double F = 0.5*(tanh(0.04*(Z-350.0))+1.0); + double d_Gm = d_Gm20*(1.0-F); + double d_Tg = d_Tg20*(1.0-F) + d_Tg18*F; + + // exospheric temp [K] + double Tinf = TL+d_Tg; + + // phase of semi-annual variation + double phi = fmod ((mjd-36204.0)/365.2422, 1.0); + + // corrected phase, time and altitude contributions of semi-annual + // variation + double tauc = phi + + 0.09544*(pow(0.5+0.5*sin(PI2*phi+6.035),1.65)-0.5); + double gt = 0.02835 + 0.3817*(1.0+ + 0.4671*sin(PI2*Tc+4.137))*sin(4.0*PI*Tc+4.259); + double fz = (5.876e-7*pow(Z,2.33) + 0.06328)*exp(-2.868e-3*Z); + + // semi-annual density correction + double d_Sa = fz*gt; + + // seasonal-latitudinal correction + double d_Sl = 0.014*(Z-90)*exp(-0.0013*pow(Z-90,2)) * + (lat>=0?1:-1)*sin(PI2*phi+1.72)*pow(sin(lat),2); + + // Seasonal-latitudinal Helium correction + double d_He = 0.65*fabs(Slat)/0.4091609 * + (pow(sin(0.25*PI-0.5*lat*(Slat>=0?1:-1)),3) - 0.3535534); + d_He = pow10(helium_fit(Z,Tinf) + (d_He-1.0)) * m_He/c; + + prm->T = J77_Temp (Z, Tinf); // temperature at altitude + prm->rho = pow10(dens_fit (Z, Tinf)+d_Gm+d_Sa+d_Sl) + d_He; + // density at altitude + + mw = molweight_fit (Z, Tinf); + } + + prm->p = prm->rho*ck/mw*prm->T; + + return true; +} + + + +// =========================================================================== +// Atmospheric temperature [K] as a function of altitude z [km] and exospheric +// temperature Tinf [K] +// Extracted from Jacchia-77 code (j77sri.for) and converted from Fortran. +// This function strips out everything from j77sri that is not required for +// temperature calculation. This allows calculating the temperature at a +// given altitude directly, rather than using the integration approach of +// j77sri required for the density calculations +// +// Range limits: 0 <= z <= 2500 +// =========================================================================== + +double J77_Temp (double Z, double Tinf) +{ + double h, x, hbase, tbase, tgrad, Tx, Gx; + int flag; + + // For z < 86km, use US Standard Atmosphere 1976 + + if (Z < 86.0) { + h = Z*6369.0/(Z+6369.0); + if (Z < 33) { + if (Z < 12) { + hbase = 0.0; + tbase = 288.15; + tgrad = -6.5; + flag = 0; + } else if (Z < 21) { + hbase = 11.0; + tbase = 216.65; + tgrad = 0; + flag = 1; + } else { + hbase = 20.0; + tbase = 216.65; + tgrad = 1; + flag = 0; + } + } else if (Z < 52) { + if (Z < 48) { + hbase = 32.0; + tbase = 228.65; + tgrad = 2.8; + flag = 0; + } else { + hbase = 47.0; + tbase = 270.65; + tgrad = 0.0; + flag = 1; + } + } else if (Z < 72) { + hbase = 51.0; + tbase = 270.65; + tgrad = -2.8; + flag = 0; + } else { + hbase = 71.0; + tbase = 214.65; + tgrad = -2.0; + flag = 0; + } + + if (!flag) { + return tbase + tgrad*(h-hbase); + } else { + return tbase; + } + + // For 85km < Z < 90, integrate barometric equation with + // fudged molecular weight + + } else if (Z < 90) { + return 188.0; + + // For Z > 89, use Jacchia 1977 + + } else { + + if (Z < 91) { + return 188.0; + } else if (Tinf < 188.1) { + return 188.0; + } else { + x = 0.0045 * (Tinf-188.0); + Tx = 188.0 + 110.5 * log (x + sqrt(x*x+1.0)); + Gx = PI05*1.9*(Tx - 188.0)/(125.0-90.0); + if (Z < 126) + return Tx + ((Tx-188.0)/PI05) + * atan ((Gx/(Tx-188.0))*(Z-125.0) + * (1.0 + 1.7*pow((Z-125.0)/(Z-90.0),2))); + else + return Tx + ((Tinf-Tx)/PI05) + * atan ((Gx/(Tinf-Tx))*(Z-125.0) + * (1.0 + 5.5e-5*pow(Z-125.0,2))); + } + } +} + + +// =========================================================================== +// Return log of mass density [kg/m^3] below 90km. +// This is taken from Jacchia-77 (j77sri) which uses the US Standard +// Atmosphere 1976 in this altitude range +// =========================================================================== + +double J77_Dens_low (double Z) +{ + const double wm0 = 28.96; + + double h, hbase, pbase, tbase, tgrad, T, CM = 0.0, WM, x, y; + int flag; + + // For Z < 86km, use US Standard Atmosphere 1976 + if (Z <= 85.0) { + h = Z*6369.0/(Z+6369.0); + if (Z <= 32) { + if (Z <= 11) { + hbase = 0.0; + pbase = 1.0; + tbase = 288.15; + tgrad = -6.5; + flag = 0; + } else if (Z <= 20) { + hbase = 11.0; + pbase = 2.233611e-1; + tbase = 216.65; + tgrad = 0; + flag = 1; + } else { + hbase = 20.0; + pbase = 5.403295e-2; + tbase = 216.65; + tgrad = 1; + flag = 0; + } + } else if (Z <= 51) { + if (Z <= 47) { + hbase = 32.0; + pbase = 8.5666784e-3; + tbase = 228.65; + tgrad = 2.8; + flag = 0; + } else { + hbase = 47.0; + pbase = 1.0945601e-3; + tbase = 270.65; + tgrad = 0.0; + flag = 1; + } + } else if (Z <= 71) { + hbase = 51.0; + pbase = 6.6063531e-4; + tbase = 270.65; + tgrad = -2.8; + flag = 0; + } else { + hbase = 71.0; + pbase = 3.9046834e-5; + tbase = 214.65; + tgrad = -2.0; + flag = 0; + } + + if (!flag) { + T = tbase + tgrad*(h-hbase); + x = pow (tbase/T, 34.163195/tgrad); + } else { + T = tbase; + x = exp(-34.163195*(h-hbase)/tbase); + } + CM = 2.547E19*(288.15/T)*pbase*x; + + // For 85km < Z < 90, integrate barometric equation with + // fudged molecular weight + + } else if (Z < 90) { + + double pT, pCM, pWM, pZ, sZ, hZ; // state variables at previous step + + // initialise integration from z=85km + pZ = 85.0; + pT = 188.8889; + x = 0.11260416; + pCM = 1.7083677e14; + y = 1.7910182e-4; + pWM = 28.954813; + + // perform integration at 1-km steps + hZ = ceil(Z); + for (sZ = 86.0; sZ <= hZ+0.5; sZ += 1.0) { + T = 188.0; + y = pow (10.0, (-3.7469+(sZ-85)*(0.226434-(sZ-85)*5.945e-3))); + WM = wm0*(1-y); + + CM = pCM*(pT/T)*(WM/pWM) * exp( - 0.5897446*( + (pWM/pT)*pow ((1+pZ/6356.766),-2) + + (WM/T)*pow((1+sZ/6356.766),-2) )); + + if (sZ <= hZ-0.5) { + x = 1-y; + WM =wm0*x; + + pZ = sZ; + pT = T; + pCM = CM; + pWM = WM; + } + } + // now do a linear interpolation for CM + CM = (Z-pZ)*(CM-pCM)+pCM; + } + + y = pow10 ((-3.7469+(Z-85)*(0.226434-(Z-85)*5.945e-3))); + x = 1 - y; + WM = wm0*x; + + // convert from particle density to mass density, [kg/m^3] + const double iN = 1e3/6.02257e23; + return WM*CM*iN; +} + + +// =========================================================================== +// Return molecular weight [g] of atmospheric gas mixture below 90km +// This is taken from Jacchia-77 (j77sri) which uses the US Standard +// Atmosphere 1976 in this altitude range +// =========================================================================== + +double J77_MW_low (double Z) +{ + const double wm0 = 28.96; + + double x, y; + + if (Z > 90) return 0.0; // argument out of range + + y = pow10 (-3.7469+(Z-85.0)*(0.226434-(Z-85.0)*5.945e-3)); + x = 1 - y; + return wm0*x; +} + + +// ----------------------------------------------------------------- +// +// Function DENS_FIT +// +// Purpose: +// +// Evaluation of density polynomials +// +// Input: +// +// Z Satellite height [km] +// Tinf Exospheric temperature [K] +// +// Output: +// +// DENS_FIT Logarithm of density value [cg/m^3] +// +// Note: +// +// The density values from the Jacchia 1971 atmospheric model +// have been fitted in the height regime [90km,2500km) and the +// temperature regime [500K,1900K] using a polynomial approach. +// The regimes have been divided in 8 separate sections, where +// coefficients of order 5 in temperature and 6 in height have been +// obtained using a constrained least squares fit that assures +// a smooth variation of the density with varying height. +// The different sections along with the maximum encountered +// density differences [%] are given in the sequel. +// +// ____________________________________ +// | | | +// | 500 - 850 K | 850 - 1900 K | +// | 90 - 180 km | 90 - 500 km | +// | 1.6% | 3.1% | +// | | | +// ____________________________________ +// | | | +// | 500 - 850 K | 850 - 1900 K | +// | 180 - 500 km | 180 - 500 km | +// | 3.8% | 1.6% | +// | | | +// ____________________________________ +// | | | +// | 500 - 850 K | 850 - 1900 K | +// | 500 - 1000 km | 500 - 1000 km | +// | 6.5% | 3.3% | +// | | | +// ____________________________________ +// | | | +// | 500 - 850 K | 850 - 1900 K | +// | 1000 - 2500 km | 1000 - 2500 km | +// | 2.1% | 7.7% | +// | | | +// ____________________________________ +// +// +// ----------------------------------------------------------------- + +double dens_fit (double Z, double Tinf) +{ + const int nT = 4; // temperature basis order + const int nZ = 5; // height basis order + + int i, n, m; // loop variables + int it, ith; // temperature height indices + double sum; // local variable + double pow_Tm, pow_Zn; // powers of Tinf and Z + + const double Zlimit[5] = { // height boundaries + 0.09e0, 0.18e0, 0.50e0, 1.00e0, 2.50e0 + }; + const double Tlimit = // temperature boundary + 0.85e0; + static const double c[8*(nT+1)][nZ+1] = { // density coefficients + // H: [ 90km, 180km], T: [ 500K, 850K] + { -0.352085629e+02, 0.112921028e+04, -0.152747516e+05, // (0-2,0) + 0.930204177e+05, -0.273439442e+06, 0.314969634e+06}, // (3-5,0) + { 0.391262208e+01, 0.119815810e+04, -0.355848094e+05, // (0-2,1) + 0.364655435e+06, -0.157609709e+07, 0.248772280e+07}, // (3-5,1) + { -0.864925858e+02, 0.863379360e+03, 0.189924264e+05, // (0-2,2) + -0.329036395e+06, 0.168583089e+07, -0.289912393e+07}, // (3-5,2) + { 0.150411921e+03, -0.357709109e+04, 0.250824047e+05, // (0-2,3) + -0.120963117e+05, -0.428294274e+06, 0.111190398e+07}, // (3-5,3) + { -0.710942779e+02, 0.197055758e+04, -0.196825320e+05, // (0-2,4) + 0.843813722e+05, -0.134559332e+06, 0.329409498e+04}, // (3-5,4) + // H: [ 90km, 180km], T: [ 850K,1900K] + { -0.533541178e+02, 0.197753256e+04, -0.299362006e+05, // (0-2,0) + 0.211206780e+06, -0.720972149e+06, 0.962596639e+06}, // (3-5,0) + { 0.290055675e+02, -0.709147804e+03, 0.518728595e+04, // (0-2,1) + -0.448302904e+04, -0.768410087e+05, 0.212312699e+06}, // (3-5,1) + { -0.204643854e+02, 0.439853751e+03, -0.198979486e+04, // (0-2,2) + -0.134997048e+05, 0.125623620e+06, -0.262279285e+06}, // (3-5,2) + { 0.797714877e+01, -0.156871952e+03, 0.364316576e+03, // (0-2,3) + 0.951001182e+04, -0.680569856e+05, 0.133712984e+06}, // (3-5,3) + { -0.133585294e+01, 0.261546624e+02, -0.570066884e+02, // (0-2,4) + -0.165372508e+04, 0.118125702e+05, -0.232999509e+05}, // (3-5,4) + // H: [ 180km, 500km], T: [ 500K, 850K] + { 0.231191014e+02, -0.105777591e+04, 0.117722961e+05, // (0-2,0) + -0.582766334e+05, 0.125458876e+06, -0.945292227e+05}, // (3-5,0) + { 0.135529793e+03, 0.608797320e+03, -0.316413234e+05, // (0-2,1) + 0.218816743e+06, -0.543470990e+06, 0.440802570e+06}, // (3-5,1) + { -0.842431012e+03, 0.869056563e+04, -0.107632268e+04, // (0-2,2) + -0.242291149e+06, 0.812301589e+06, -0.737940971e+06}, // (3-5,2) + { 0.128733075e+04, -0.171592213e+05, 0.630262927e+05, // (0-2,3) + 0.246128588e+05, -0.449043841e+06, 0.509527260e+06}, // (3-5,3) + { -0.618120934e+03, 0.905267060e+04, -0.431245935e+05, // (0-2,4) + 0.604409552e+05, 0.500745829e+05, -0.115419197e+06}, // (3-5,4) + // H: [ 180km, 500km], T: [ 850K,1900K] + { 0.404176122e+02, -0.812772013e+03, 0.513004248e+04, // (0-2,0) + -0.160017007e+05, 0.238471768e+05, -0.136310388e+05}, // (3-5,0) + { -0.130571901e+03, 0.227356511e+04, -0.150130763e+05, // (0-2,1) + 0.477046885e+05, -0.719906407e+05, 0.415349930e+05}, // (3-5,1) + { 0.146680893e+03, -0.257726141e+04, 0.171714170e+05, // (0-2,2) + -0.547349228e+05, 0.828465304e+05, -0.479358081e+05}, // (3-5,2) + { -0.712029554e+02, 0.125904483e+04, -0.844169798e+04, // (0-2,3) + 0.269966778e+05, -0.409835788e+05, 0.237785404e+05}, // (3-5,3) + { 0.126960539e+02, -0.225497799e+03, 0.151879634e+04, // (0-2,4) + -0.487030568e+04, 0.741192600e+04, -0.431023262e+04}, // (3-5,4) + // H: [ 500km,1000km], T: [ 500K, 850K] + { -0.181572147e+04, 0.985122122e+04, -0.182293162e+05, // (0-2,0) + 0.129811344e+05, -0.153350954e+04, -0.126367969e+04}, // (3-5,0) + { 0.979297163e+04, -0.539752453e+05, 0.100242982e+06, // (0-2,1) + -0.711343013e+05, 0.781553694e+04, 0.726579206e+04}, // (3-5,1) + { -0.183137427e+05, 0.999316898e+05, -0.178448116e+06, // (0-2,2) + 0.110637478e+06, 0.703756219e+04, -0.209290906e+05}, // (3-5,2) + { 0.138525479e+05, -0.725945601e+05, 0.114517833e+06, // (0-2,3) + -0.382577652e+05, -0.467463592e+05, 0.293609410e+05}, // (3-5,3) + { -0.345123396e+04, 0.162255300e+05, -0.164193391e+05, // (0-2,4) + -0.166691482e+05, 0.351694860e+05, -0.149167582e+05}, // (3-5,4) + // H: [ 500km,1000km], T: [ 850K,1900K] + { -0.402133495e+02, 0.425578905e+03, -0.182166204e+04, // (0-2,0) + 0.307023080e+04, -0.219684753e+04, 0.549495863e+03}, // (3-5,0) + { -0.132698258e+03, 0.352812623e+03, 0.790535705e+03, // (0-2,1) + -0.294154027e+04, 0.258511809e+04, -0.660422507e+03}, // (3-5,1) + { 0.377886396e+03, -0.207788843e+04, 0.393427057e+04, // (0-2,2) + -0.327663903e+04, 0.138277623e+04, -0.332807663e+03}, // (3-5,2) + { -0.280866017e+03, 0.172654309e+04, -0.396933359e+04, // (0-2,3) + 0.442021654e+04, -0.253300602e+04, 0.633570336e+03}, // (3-5,3) + { 0.651353118e+02, -0.419147661e+03, 0.102799073e+04, // (0-2,4) + -0.123077830e+04, 0.745138710e+03, -0.187981171e+03}, // (3-5,4) + // H: [1000km,2500km], T: [ 500K, 850K] + { 0.354869756e+03, -0.537085151e+03, -0.234958642e+02, // (0-2,0) + 0.340707342e+03, -0.169847098e+03, 0.249797337e+02}, // (3-5,0) + { -0.250868544e+04, 0.418258598e+04, -0.894184106e+03, // (0-2,1) + -0.153158821e+04, 0.898569661e+03, -0.138961772e+03}, // (3-5,1) + { 0.625274219e+04, -0.115111424e+05, 0.441792700e+04, // (0-2,2) + 0.217904521e+04, -0.170479728e+04, 0.282005813e+03}, // (3-5,2) + { -0.675537591e+04, 0.133891525e+05, -0.673281743e+04, // (0-2,3) + -0.884134055e+03, 0.136309843e+04, -0.247286186e+03}, // (3-5,3) + { 0.267576301e+04, -0.561058041e+04, 0.331260819e+04, // (0-2,4) + -0.136976861e+03, -0.381241735e+03, 0.789643901e+02}, // (3-5,4) + // H: [1000km,2500km], T: [ 850K,1900K] + { 0.128106144e+02, 0.202425105e+03, -0.575074276e+03, // (0-2,0) + 0.510620714e+03, -0.189895280e+03, 0.256957682e+02}, // (3-5,0) + { -0.338917904e+03, 0.166830201e+03, 0.825982311e+03, // (0-2,1) + -0.103201223e+04, 0.434750107e+03, -0.628271027e+02}, // (3-5,1) + { 0.686193462e+03, -0.114787559e+04, 0.232983196e+03, // (0-2,2) + 0.485187352e+03, -0.298601120e+03, 0.497107699e+02}, // (3-5,2) + { -0.466762722e+03, 0.991894020e+03, -0.650335882e+03, // (0-2,3) + 0.821409740e+02, 0.542317977e+02, -0.140438474e+02}, // (3-5,3) + { 0.102966235e+03, -0.243021528e+03, 0.199798890e+03, // (0-2,4) + -0.652704815e+02, 0.503945902e+01, 0.845050002e+00} // (3-5,4) + }; + + Tinf *= 1e-3; // scale to units close to 1 + Z *= 1e-3; // scale to units close to 1 + + it = (Tinf > Tlimit ? 1:0); // temperature section index + + if (Z >= Zlimit[0]) { // check lower bounds + for (i = 0; i <= 3; i++) { // loop over four height regimes + if (Z <= Zlimit[i+1]) { + ith = 2*i+it; // ith identifies one out of 8 sections + + // compute density + sum = 0.0; + pow_Tm = 1.0; + for (m = 0; m <= nT; m++) { + pow_Zn = 1.0; + for (n = 0; n <= nZ; n++) { + sum += c[5*ith+m][n] * pow_Tm * pow_Zn; + pow_Zn *= Z; + } + pow_Tm *= Tinf; + } + return sum; + } + } + } + + return 0; // height out of bounds +} + + +// ----------------------------------------------------------------- +// +// Function HELIUM_FIT +// +// Purpose: +// +// Evaluation of Helium number density polynomials +// +// Input: +// +// HEIGHT Satellite height [km] +// TEMPER Exospheric temperature [K] +// +// Output: +// +// HELIUM_FIT Logarithm of Helium number density value [1/m^3] +// +// Note: +// +// The Helium number density values from the Jacchia 1971 +// atmospheric model have been fitted in the height regime +// [90km,2500km) and the temperature regime [500K,1900K] using a +// polynomial approach. The regimes have been divided in 3 +// separate sections in height, where coefficients of order 5 +// in temperature and 6 in height have been obtained using a +// constrained least squares fit that assures a smooth variation +// of the density with varying height. +// +// The Helium number density is required to compute the +// seasonal-latitudinal density variation of Helium. The fit +// has been performed with the constraints that any deviations +// in the fit error should produce an error less than 5% in the +// total density. This leads to a2-dim. constraints pattern +// in height and temperature. +// +// ________________________________________ +// | | +// | 500 - 1900 K | +// | 90 - 500 km | +// | 66% @ 100 km 500 K | +// | | +// ________________________________________ +// | | +// | 500 - 1900 K | +// | 500 - 1000 km | +// | 7% @ 1000 km 605 K | +// | | +// ________________________________________ +// | | +// | 500 - 1900 K | +// | 1000 - 2500 km | +// | 13% @ 2369 km 500 K | +// | | +// ________________________________________ +// +// +// ----------------------------------------------------------------- + +double helium_fit (double Z, double Tinf) +{ + const int nT = 4; // matrix dimension + const int nZ = 5; // matrix dimension + + int i, n, m; // loop variables + int ith; // height index + double sum; // local variable + double pow_Tm, pow_Zn; // powers of Tinf and Z + const double Zlimit[4] = { // height boundaries + 90.0, 500.0, 1000.0, 2500.0 + }; + static const double he[3*(nT+1)][nZ+1] = { // density coefficients + // H: [ 90km, 500km], T: [ 500K,1900K] + { 0.183154936e+02, -0.737400840e-01, 0.438416419e-03, // (0-2,0) + -0.141119464e-05, 0.215363863e-08, -0.125513854e-11}, // (3-5,0) + { 0.588755629e-02, -0.125107697e-03, 0.865702730e-06, // (0-2,1) + -0.248383435e-08, 0.342194382e-11, -0.182725298e-14}, // (3-5,1) + {-0.481325706e-05, 0.103926920e-06, -0.721694577e-09, // (0-2,2) + 0.200410722e-11, -0.262896070e-14, 0.132158108e-17}, // (3-5,2) + { 0.170173800e-08, -0.367927971e-10, 0.248153370e-12, // (0-2,3) + -0.624498540e-15, 0.708565525e-18, -0.288739764e-21}, // (3-5,3) + {-0.212837367e-12, 0.455525822e-14, -0.285907444e-16, // (0-2,4) + 0.556100355e-19, -0.327980417e-22, -0.782717842e-26}, // (3-5,4) + // H: [ 500km,1000km], T: [ 500K,1900K] + { 0.162708865e+02, -0.195829652e-01, 0.251425106e-04, // (0-2,0) + -0.298331353e-07, 0.180202809e-10, -0.424306744e-14}, // (3-5,0) + {-0.178681641e-01, 0.138612645e-03, -0.380633890e-06, // (0-2,1) + 0.585585083e-09, -0.438287770e-12, 0.126883016e-15}, // (3-5,1) + { 0.307907898e-04, -0.253246272e-06, 0.769237606e-09, // (0-2,2) + -0.121066317e-11, 0.920153031e-15, -0.269580744e-18}, // (3-5,2) + {-0.204343061e-07, 0.171418298e-09, -0.539476570e-12, // (0-2,3) + 0.856163162e-15, -0.654393514e-18, 0.192546917e-21}, // (3-5,3) + { 0.464341888e-11, -0.393423008e-13, 0.126030389e-15, // (0-2,4) + -0.200903018e-18, 0.154021961e-21, -0.454232921e-25}, // (3-5,4) + // H: [1000km,2500km], T: [ 500K,1900K] + { 0.187334592e+02, -0.236253018e-01, 0.189389910e-04, // (0-2,0) + -0.113219809e-07, 0.346501347e-11, -0.415670958e-15}, // (3-5,0) + { 0.228568321e-01, -0.690761294e-04, 0.114595980e-06, // (0-2,1) + -0.743832646e-10, 0.230894316e-13, -0.279192982e-17}, // (3-5,1) + {-0.686077568e-04, 0.225167974e-06, -0.318325867e-09, // (0-2,2) + 0.204028767e-12, -0.632046641e-16, 0.763279237e-20}, // (3-5,2) + { 0.537962260e-07, -0.179593742e-09, 0.246107555e-12, // (0-2,3) + -0.157319125e-15, 0.487141850e-19, -0.588111152e-23}, // (3-5,3) + {-0.132755885e-10, 0.446365926e-13, -0.604042307e-16, // (0-2,4) + 0.385703179e-19, -0.119413886e-22, 0.144145505e-26} // (3-5,4) + }; + + if (Z >= Zlimit[0]) { // check lower bounds + for (i = 0; i <= 2; i++) { // loop over three height regimes + if (Z <= Zlimit[i+1]) { + ith = i; // ith identifies one of 3 sections + + // compute Helium number density + sum = 0.0; + pow_Tm = 1.0; + for (m = 0; m <= nT; m++) { + pow_Zn = 1.0; + for (n = 0; n <= nZ; n++) { + sum += he[nZ*ith+m][n] * pow_Tm * pow_Zn; + pow_Zn *= Z; + } + pow_Tm *= Tinf; + } + return sum; + } + } + } + + return 0; // height out of bounds +} + + +// ----------------------------------------------------------------- +// Polynomial series expansion of molecular weight of the atmospheric gas +// mixture as a function of altitude Z [km] and exospheric temperature +// Tinf [K] +// The coefficients were obtained by a least squares fit (see atm_interp.m) +// (My own work) +// ----------------------------------------------------------------- + +double molweight_fit (double Z, double Tinf) +{ + const int nT = 4; // Tinf polynomial basis order + const int nZ = 8; // Z polynomial basis order + + const double Zmin = 90, Zmax = 2500; // altitude boundaries [km] + const double Tmin = 500, Tmax = 1900; // Tinf boundaries [K] + + static const double cm[nZ+1][nT+1] = { // molecular weight coefficients + // H: [ 90km, 2500km], T: [ 500K,1900K] + { 3.60906627e+00, -1.35761290e+01, 2.55465982e+01, + -1.77204699e+01, 4.07696683e+00}, + {-1.35606636e+01, 1.29084956e+02, -2.84612534e+02, + 2.12822504e+02, -5.11308350e+01}, + {-1.25207810e+01, -3.19579690e+02, 9.77718751e+02, + -8.21851276e+02, 2.09837747e+02}, + { 6.98268484e+01, 4.02801988e+02, -1.69988881e+03, + 1.57164796e+03, -4.21561534e+02}, + {-8.44186988e+01, -2.88755547e+02, 1.67090876e+03, + -1.67274401e+03, 4.67667119e+02}, + { 4.42735679e+01, 1.24592950e+02, -9.68963604e+02, + 1.03850337e+03, -3.01006087e+02}, + {-7.92712088e+00, -3.81200493e+01, 3.34875778e+02, + -3.77385160e+02, 1.12634338e+02}, + {-1.14988223e+00, 9.20028301e+00, -6.52157331e+01, + 7.51024325e+01, -2.28683127e+01}, + { 4.13670214e-01, -1.18725773e+00, 5.60433585e+00, + -6.36983671e+00, 1.95706136e+00} +#ifdef UNDEF + // the following coefficients are for obtaining the direct + // molecular weight, rather than log10. They model the low + // altitudes better, but have oscillations at high altitudes + { 1.1136902e+02, -3.6215096e+02, 5.8123604e+02, + -3.6329018e+02, 7.6964932e+01}, + {-8.5176459e+02, 4.0863758e+03, -7.1253841e+03, + 4.6760493e+03, -1.0221502e+03}, + { 1.7269742e+03, -1.2696361e+04, 2.6494601e+04, + -1.8929680e+04, 4.3448337e+03}, + {-5.8939237e+02, 1.6695342e+04, -4.5304699e+04, + 3.5791361e+04, -8.6649227e+03}, + {-1.9544251e+03, -9.4459009e+03, 4.1231507e+04, + -3.6709602e+04, 9.4007782e+03}, + { 2.6867110e+03, 7.1716825e+02, -2.0935963e+04, + 2.1655261e+04, -5.8866818e+03}, + {-1.4653863e+03, 1.5761202e+03, 5.8160872e+03, + -7.3486844e+03, 2.1296772e+03}, + { 3.7530698e+02, -6.5664109e+02, -7.9065303e+02, + 1.3344823e+03, -4.1430779e+02}, + {-3.7286733e+01, 8.0961751e+01, 3.6774271e+01, + -1.0057393e+02, 3.3620454e+01} +#endif + }; + + double sum, pow_Tm, pow_Zn; + int m, n; + + Tinf *= 1e-3; // scale to units close to 1 + Z *= 1e-3; // scale to units close to 1 + + sum = 0.0; + + pow_Zn = 1.0; + for (n = 0; n <= nZ; n++) { + pow_Tm = 1.0; + for (m = 0; m <= nT; m++) { + sum += cm[n][m] * pow_Tm * pow_Zn; + pow_Tm *= Tinf; + } + pow_Zn *= Z; + } + + return pow10(sum); +} + + +// ====================================================================== +// API interface +// ====================================================================== + +DLLCLBK void InitModule (HINSTANCE hModule) +{} + +DLLCLBK void ExitModule (HINSTANCE hModule) +{} + +DLLCLBK ATMOSPHERE *CreateAtmosphere (CELBODY2 *cbody) +{ + return new EarthAtmosphere_J71G (cbody); +} + +DLLCLBK void DeleteAtmosphere (ATMOSPHERE *atm) +{ + delete (EarthAtmosphere_J71G*)atm; +} + +DLLCLBK char *ModelName () +{ + return (char*)"Jacchia71-Gill Atmospheric Model"; +} + +DLLCLBK char *ModelDesc () +{ + return (char*)"An implementation of the Jacchia71-Gill (J71C) atmospheric model. This uses a static US Standard Atmosphere model up to 90km, and a diffusion-equilibrium solution from 90 to 2500km altitude.\r\n\r\nSee \"Earth Atmosphere Model\" in \"Orbiter Technical Reference\" for details."; +} \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.h b/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.h new file mode 100644 index 000000000..008b346a8 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmJ71G/EarthAtmJ71G.h @@ -0,0 +1,32 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +#ifndef __EARTHATMJ71G_H +#define __EARTHATMJ71G_H + +#include "OrbiterAPI.h" +#include "CelbodyAPI.h" + +// ====================================================================== +// class EarthAtmosphere_J71G +// Implementation of Jacchia71-Gill atmosphere model +// ====================================================================== + +class EarthAtmosphere_J71G: public ATMOSPHERE { +public: + EarthAtmosphere_J71G (CELBODY2 *body); + const char *clbkName () const; + bool clbkConstants (ATMCONST *atmc) const; + bool clbkParams (const PRM_IN *prm_in, PRM_OUT *prm); + +private: + OBJHANDLE hBody; // handle for the associated celestial body + + // Time-dependent atmospheric parameters at last evaluation + struct { + double mjd; // evaluation time + double Slng, Slat; // sun's equatorial position in rotating Earth frame + } atmprm; +}; + +#endif // !__EARTHATMJ71G_H \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/CMakeLists.txt b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/CMakeLists.txt new file mode 100644 index 000000000..037e396d3 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/CMakeLists.txt @@ -0,0 +1,37 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +set(ATM_TARGET EarthAtmNRLMSISE00) + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${ORBITER_BINARY_CELBODY_DIR}${CELBODY}/Atmosphere) + +add_library(${ATM_TARGET} SHARED + EarthAtmNRLMSISE00.cpp + nrlmsise-00.c + nrlmsise-00_data.c +) + +add_dependencies(${ATM_TARGET} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${ATM_TARGET} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include +) + +target_link_libraries(${ATM_TARGET} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} +) + +set_target_properties(${ATM_TARGET} + PROPERTIES + FOLDER Celbody/Atmospheres +) + +# Installation +install(TARGETS ${ATM_TARGET} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR}/Earth/Atmosphere +) diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.cpp b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.cpp new file mode 100644 index 000000000..23ca0f7cc --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.cpp @@ -0,0 +1,131 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +// ====================================================================== +// class EarthAtmosphere_NRLMSISE00 +// MSIS atmosphere model implementation +// ====================================================================== + +#define ORBITER_MODULE +#include "EarthAtmNRLMSISE00.h" +#include "nrlmsise-00.h" + +EarthAtmosphere_NRLMSISE00::EarthAtmosphere_NRLMSISE00 (CELBODY2 *body): ATMOSPHERE (body) +{ + pmjd = -1000000; // invalidate + doy = 0; +} + +const char *EarthAtmosphere_NRLMSISE00::clbkName () const +{ + return "NRLMSISE00"; +} + +bool EarthAtmosphere_NRLMSISE00::clbkConstants (ATMCONST *atmc) const +{ + atmc->p0 = 101325; + atmc->rho0 = 1.2250; + atmc->R = 286.91; + atmc->gamma = 1.4; + atmc->altlimit = 2500e3; + return true; +} + +bool EarthAtmosphere_NRLMSISE00::clbkParams (const PRM_IN *prm_in, PRM_OUT *prm) +{ + static struct nrlmsise_output output = {0}; + static struct nrlmsise_input input = { + 0, // year, currently ignored + 172, // day of year + 29000,// second in day + 0, // altitude [km] + 0, // geodetic latitude [deg] + 0, // geodetic longitude [deg] + 0, // local apparent solar time (hours) + 140, // 81 day average of F10.7 flux (centered on doy) + 140, // daily F10.7 flux for previous day + 3.0, // magnetic index(daily) + NULL // pointer to detailed magnetic values + }; + static struct nrlmsise_flags flags = {0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}; + + double mjd = oapiGetSimMJD(); + + // second in the day calculation + double h, ijd; + h = 24.0 * modf (mjd, &ijd); // hour in the day + + // day in year calculation + if ((int)mjd != pmjd) { // do this only when the day number changes + double c, e, mjd2; + int a, b, f, m, y; + if (ijd < -100840) { + c = ijd + 2401525.0; + } else { + b = (int)((ijd + 532784.75) / 36524.25); + c = ijd + 2401526.0 + (b - b/4); + } + a = (int)((c-122.1)/365.25); + e = 365.0 * a + a/4; + f = (int)((c-e)/30.6001); + m = f-1 - 12 * (f/14); + y = a-4715 - ((7 + m)/10) - 1; + double a2 = (double)(10000*y + 1231); + if (a2 <= 15821004.1) b = (y+4716)/4 - 1181; + else b = y/400 - y/100 + y/4; + mjd2 = 365.0*y + b - 678576.0; + doy = (int)(mjd-mjd2); + pmjd = (int)mjd; + } + + input.doy = doy; + input.sec = h*3600.0; + + input.alt = (prm_in->flag & PRM_ALT ? prm_in->alt*1e-3 : 0.0); + input.g_long = (prm_in->flag & PRM_LNG ? prm_in->lng*DEG : 0.0); + input.g_lat = (prm_in->flag & PRM_LAT ? prm_in->lat*DEG : 0.0); + input.lst = h+input.g_long/15.0; + input.f107A = (prm_in->flag & PRM_FBR ? prm_in->f107bar : 140.0); + input.f107 = (prm_in->flag & PRM_F ? prm_in->f107 : input.f107A); + input.ap = (prm_in->flag & PRM_AP ? prm_in->ap : 3.0); + + gtd7 (&input, &flags, &output); + double n = output.d[0]+output.d[1]+output.d[2]+output.d[3]+output.d[4]+output.d[6]+output.d[7]; // total number density [1/cm^3] + static double k = 1.38066e-23*1e6; // Boltzmann constant and scale from cm^-3 to m^-3 + prm->T = output.t[1]; + prm->p = n*k*prm->T; + prm->rho = output.d[5]*1e3; + + return true; +} + + +// ====================================================================== +// API interface +// ====================================================================== + +DLLCLBK void InitModule (HINSTANCE hModule) +{} + +DLLCLBK void ExitModule (HINSTANCE hModule) +{} + +DLLCLBK ATMOSPHERE *CreateAtmosphere (CELBODY2 *cbody) +{ + return new EarthAtmosphere_NRLMSISE00 (cbody); +} + +DLLCLBK void DeleteAtmosphere (ATMOSPHERE *atm) +{ + delete (EarthAtmosphere_NRLMSISE00*)atm; +} + +DLLCLBK char *ModelName () +{ + return (char*)"NRLMSIS-00 atmosphere model"; +} + +DLLCLBK char *ModelDesc () +{ + return (char*)"An empirical atmosphere model developed by Mike Picone, Alan Hedin, and Doug Drob based on the MSISE90 model. The MSISE90 model describes the neutral temperature and densities in Earth's atmosphere from ground to thermospheric heights.\r\n\r\nSee \"Earth Atmosphere Model\" in \"Orbiter Technical Reference\" for details."; +} \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.h b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.h new file mode 100644 index 000000000..82da32ede --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/EarthAtmNRLMSISE00.h @@ -0,0 +1,27 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +#ifndef __EARTHATMNRLMSISE00 +#define __EARTHATMNRLMSISE00 + +#include "OrbiterAPI.h" +#include "CelbodyAPI.h" + +// ====================================================================== +// class EarthAtmosphere_NRLMSISE00 +// MSIS atmosphere model implementation +// ====================================================================== + +class EarthAtmosphere_NRLMSISE00: public ATMOSPHERE { +public: + EarthAtmosphere_NRLMSISE00 (CELBODY2 *body); + const char *clbkName () const; + bool clbkConstants (ATMCONST *atmc) const; + bool clbkParams (const PRM_IN *prm_in, PRM_OUT *prm); + +private: + int pmjd; // date of previous day-of-year calculation + int doy; // current day-of-year value +}; + +#endif // !__EARTHATMNRLMSISE00 \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.c b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.c new file mode 100644 index 000000000..a42d676dd --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.c @@ -0,0 +1,1516 @@ +/* -------------------------------------------------------------------- */ +/* --------- N R L M S I S E - 0 0 M O D E L 2 0 0 1 ---------- */ +/* -------------------------------------------------------------------- */ + +/* This file is part of the NRLMSISE-00 C source code package - release + * 20020503 (with fixes from 20041227) + * + * The NRLMSISE-00 model was developed by Mike Picone, Alan Hedin, and + * Doug Drob. They also wrote a NRLMSISE-00 distribution package in + * FORTRAN which is available at + * http://uap-www.nrl.navy.mil/models_web/msis/msis_home.htm + * + * Dominik Brodowski implemented and maintains this C version. You can + * reach him at devel@brodo.de. See the file "DOCUMENTATION" for details, + * and check http://www.brodo.de/english/pub/nrlmsise/index.html for + * updated releases of this package. + */ + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ INCLUDES --------------------------- */ +/* ------------------------------------------------------------------- */ +#define NRLMSISE00_IMPLEMENTATION + +#include "nrlmsise-00.h" /* header for nrlmsise-00.h */ +#include /* maths functions */ +#include /* for error messages. TBD: remove this */ +#include /* for malloc/free */ + + + +/* ------------------------------------------------------------------- */ +/* ------------------------- SHARED VARIABLES ------------------------ */ +/* ------------------------------------------------------------------- */ + +/* PARMB */ +static double gsurf; +static double re; + +/* GTS3C */ +static double dd; + +/* DMIX */ +static double dm04, dm16, dm28, dm32, dm40, dm01, dm14; + +/* MESO7 */ +static double meso_tn1[5]; +static double meso_tn2[4]; +static double meso_tn3[5]; +static double meso_tgn1[2]; +static double meso_tgn2[2]; +static double meso_tgn3[2]; + +/* POWER7 */ +extern double pt[150]; +extern double pd[9][150]; +extern double ps[150]; +extern double pdl[2][25]; +extern double ptl[4][100]; +extern double pma[10][100]; +extern double sam[100]; + +/* LOWER7 */ +extern double ptm[10]; +extern double pdm[8][10]; +extern double pavgm[10]; + +/* LPOLY */ +static double dfa; +static double plg[4][9]; +static double ctloc, stloc; +static double c2tloc, s2tloc; +static double s3tloc, c3tloc; +static double apdf, apt[4]; + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ TSELEC ----------------------------- */ +/* ------------------------------------------------------------------- */ + +void tselec(struct nrlmsise_flags *flags) { + int i; + for (i=0;i<24;i++) { + if (i!=9) { + if (flags->switches[i]==1) + flags->sw[i]=1; + else + flags->sw[i]=0; + if (flags->switches[i]>0) + flags->swc[i]=1; + else + flags->swc[i]=0; + } else { + flags->sw[i]=flags->switches[i]; + flags->swc[i]=flags->switches[i]; + } + } +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ GLATF ------------------------------ */ +/* ------------------------------------------------------------------- */ + +void glatf(double lat, double *gv, double *reff) { + double dgtr = 1.74533E-2; + double c2; + c2 = cos(2.0*dgtr*lat); + *gv = 980.616 * (1.0 - 0.0026373 * c2); + *reff = 2.0 * (*gv) / (3.085462E-6 + 2.27E-9 * c2) * 1.0E-5; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ CCOR ------------------------------- */ +/* ------------------------------------------------------------------- */ + +double ccor(double alt, double r, double h1, double zh) { +/* CHEMISTRY/DISSOCIATION CORRECTION FOR MSIS MODELS + * ALT - altitude + * R - target ratio + * H1 - transition scale length + * ZH - altitude of 1/2 R + */ + double e; + double ex; + e = (alt - zh) / h1; + if (e>70) + return exp(0); + if (e<-70) + return exp(r); + ex = exp(e); + e = r / (1.0 + ex); + return exp(e); +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ CCOR ------------------------------- */ +/* ------------------------------------------------------------------- */ + +double ccor2(double alt, double r, double h1, double zh, double h2) { +/* CHEMISTRY/DISSOCIATION CORRECTION FOR MSIS MODELS + * ALT - altitude + * R - target ratio + * H1 - transition scale length + * ZH - altitude of 1/2 R + * H2 - transition scale length #2 ? + */ + double e1, e2; + double ex1, ex2; + double ccor2v; + e1 = (alt - zh) / h1; + e2 = (alt - zh) / h2; + if ((e1 > 70) || (e2 > 70)) + return exp(0); + if ((e1 < -70) && (e2 < -70)) + return exp(r); + ex1 = exp(e1); + ex2 = exp(e2); + ccor2v = r / (1.0 + 0.5 * (ex1 + ex2)); + return exp(ccor2v); +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- SCALH ----------------------------- */ +/* ------------------------------------------------------------------- */ + +double scalh(double alt, double xm, double temp) { + double g; + double rgas=831.4; + // MS 090305: replaced pow function call + //g = gsurf / (pow((1.0 + alt/re),2.0)); + double arg = (1.0 + alt/re); + g = gsurf / (arg*arg); + g = rgas * temp / (g * xm); + return g; +} + + + +/* ------------------------------------------------------------------- */ +/* -------------------------------- DNET ----------------------------- */ +/* ------------------------------------------------------------------- */ + +double dnet (double dd, double dm, double zhm, double xmm, double xm) { +/* TURBOPAUSE CORRECTION FOR MSIS MODELS + * Root mean density + * DD - diffusive density + * DM - full mixed density + * ZHM - transition scale length + * XMM - full mixed molecular weight + * XM - species molecular weight + * DNET - combined density + */ + double a; + double ylog; + a = zhm / (xmm-xm); + if (!((dm>0) && (dd>0))) { + printf("dnet log error %e %e %e\n",dm,dd,xm); + if ((dd==0) && (dm==0)) + dd=1; + if (dm==0) + return dd; + if (dd==0) + return dm; + } + ylog = a * log(dm/dd); + if (ylog<-10) + return dd; + if (ylog>10) + return dm; + a = dd*pow((1.0 + exp(ylog)),(1.0/a)); + return a; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- SPLINI ---------------------------- */ +/* ------------------------------------------------------------------- */ + +void splini (double *xa, double *ya, double *y2a, int n, double x, double *y) { +/* INTEGRATE CUBIC SPLINE FUNCTION FROM XA(1) TO X + * XA,YA: ARRAYS OF TABULATED FUNCTION IN ASCENDING ORDER BY X + * Y2A: ARRAY OF SECOND DERIVATIVES + * N: SIZE OF ARRAYS XA,YA,Y2A + * X: ABSCISSA ENDPOINT FOR INTEGRATION + * Y: OUTPUT VALUE + */ + double yi=0; + int klo=0; + int khi=1; + double xx, h, a, b, a2, b2; + while ((x>xa[klo]) && (khi1) { + k=(khi+klo)/2; + if (xa[k]>x) + khi=k; + else + klo=k; + } + h = xa[khi] - xa[klo]; + if (h==0.0) + printf("bad XA input to splint"); + a = (xa[khi] - x)/h; + b = (x - xa[klo])/h; + yi = a * ya[klo] + b * ya[khi] + ((a*a*a - a) * y2a[klo] + (b*b*b - b) * y2a[khi]) * h * h/6.0; + *y = yi; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- SPLINE ---------------------------- */ +/* ------------------------------------------------------------------- */ + +void spline (double *x, double *y, int n, double yp1, double ypn, double *y2) { +/* CALCULATE 2ND DERIVATIVES OF CUBIC SPLINE INTERP FUNCTION + * ADAPTED FROM NUMERICAL RECIPES BY PRESS ET AL + * X,Y: ARRAYS OF TABULATED FUNCTION IN ASCENDING ORDER BY X + * N: SIZE OF ARRAYS X,Y + * YP1,YPN: SPECIFIED DERIVATIVES AT X[0] AND X[N-1]; VALUES + * >= 1E30 SIGNAL SIGNAL SECOND DERIVATIVE ZERO + * Y2: OUTPUT ARRAY OF SECOND DERIVATIVES + */ + double *u; + double sig, p, qn, un; + int i, k; + u=malloc(sizeof(double)*(unsigned int)n); + if (u==NULL) { + printf("Out Of Memory in spline - ERROR"); + return; + } + if (yp1>0.99E30) { + y2[0]=0; + u[0]=0; + } else { + y2[0]=-0.5; + u[0]=(3.0/(x[1]-x[0]))*((y[1]-y[0])/(x[1]-x[0])-yp1); + } + for (i=1;i<(n-1);i++) { + sig = (x[i]-x[i-1])/(x[i+1] - x[i-1]); + p = sig * y2[i-1] + 2.0; + y2[i] = (sig - 1.0) / p; + u[i] = (6.0 * ((y[i+1] - y[i])/(x[i+1] - x[i]) -(y[i] - y[i-1]) / (x[i] - x[i-1]))/(x[i+1] - x[i-1]) - sig * u[i-1])/p; + } + if (ypn>0.99E30) { + qn = 0; + un = 0; + } else { + qn = 0.5; + un = (3.0 / (x[n-1] - x[n-2])) * (ypn - (y[n-1] - y[n-2])/(x[n-1] - x[n-2])); + } + y2[n-1] = (un - qn * u[n-2]) / (qn * y2[n-2] + 1.0); + for (k=n-2;k>=0;k--) + y2[k] = y2[k] * y2[k+1] + u[k]; + + free(u); +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- DENSM ----------------------------- */ +/* ------------------------------------------------------------------- */ + +__inline_double zeta(double zz, double zl) { + return ((zz-zl)*(re+zl)/(re+zz)); +} + +double densm (double alt, double d0, double xm, double *tz, int mn3, double *zn3, double *tn3, double *tgn3, int mn2, double *zn2, double *tn2, double *tgn2) { +/* Calculate Temperature and Density Profiles for lower atmos. */ + double xs[10], ys[10], y2out[10]; + double rgas = 831.4; + double z, z1, z2, t1, t2, zg, zgdif; + double yd1, yd2; + double x, y, yi; + double expl, gamm, glb; + double densm_tmp; + double arg; // MS 090305 + int mn; + int k; + densm_tmp=d0; + if (alt>zn2[0]) { + if (xm==0.0) + return *tz; + else + return d0; + } + + /* STRATOSPHERE/MESOSPHERE TEMPERATURE */ + if (alt>zn2[mn2-1]) + z=alt; + else + z=zn2[mn2-1]; + mn=mn2; + z1=zn2[0]; + z2=zn2[mn-1]; + t1=tn2[0]; + t2=tn2[mn-1]; + zg = zeta(z, z1); + zgdif = zeta(z2, z1); + + /* set up spline nodes */ + for (k=0;k50.0) + expl=50.0; + + /* Density at altitude */ + densm_tmp = densm_tmp * (t1 / *tz) * exp(-expl); + } + + if (alt>zn3[0]) { + if (xm==0.0) + return *tz; + else + return densm_tmp; + } + + /* troposhere / stratosphere temperature */ + z = alt; + mn = mn3; + z1=zn3[0]; + z2=zn3[mn-1]; + t1=tn3[0]; + t2=tn3[mn-1]; + zg=zeta(z,z1); + zgdif=zeta(z2,z1); + + /* set up spline nodes */ + for (k=0;k50.0) + expl=50.0; + + /* Density at altitude */ + densm_tmp = densm_tmp * (t1 / *tz) * exp(-expl); + } + if (xm==0.0) + return *tz; + else + return densm_tmp; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- DENSU ----------------------------- */ +/* ------------------------------------------------------------------- */ + +double densu (double alt, double dlb, double tinf, double tlb, double xm, double alpha, double *tz, double zlb, double s2, int mn1, double *zn1, double *tn1, double *tgn1) { +/* Calculate Temperature and Density Profiles for MSIS models + * New lower thermo polynomial + */ + double yd2, yd1, x=0, y; + double rgas=831.4; + double densu_temp=1.0; + double za, z, zg2, tt, ta; + double dta, z1=0, z2, t1=0, t2, zg, zgdif=0; + int mn=0; + int k; + double glb; + double expl; + double yi; + double densa; + double gamma, gamm; + double xs[5], ys[5], y2out[5]; + double arg; // MS 090305 + /* joining altitudes of Bates and spline */ + za=zn1[0]; + if (alt>za) + z=alt; + else + z=za; + + /* geopotential altitude difference from ZLB */ + zg2 = zeta(z, zlb); + + /* Bates temperature */ + tt = tinf - (tinf - tlb) * exp(-s2*zg2); + ta = tt; + *tz = tt; + densu_temp = *tz; + + if (altzn1[mn1-1]) + z=alt; + else + z=zn1[mn1-1]; + mn=mn1; + z1=zn1[0]; + z2=zn1[mn-1]; + t1=tn1[0]; + t2=tn1[mn-1]; + /* geopotental difference from z1 */ + zg = zeta (z, z1); + zgdif = zeta(z2, z1); + /* set up spline nodes */ + for (k=0;k50.0) + expl=50.0; + if (tt<=0) + expl=50.0; + + /* density at altitude */ + densa = dlb * pow((tlb/tt),((1.0+alpha+gamma))) * expl; + densu_temp=densa; + if (alt>=za) + return densu_temp; + + /* calculate density below za */ + // MS 090305: replaced pow function call + //glb = gsurf / pow((1.0 + z1/re),2.0); + arg = (1.0 + z1/re); + glb = gsurf / (arg*arg); + gamm = xm * glb * zgdif / rgas; + + /* integrate spline temperatures */ + splini (xs, ys, y2out, mn, x, &yi); + expl = gamm * yi; + if (expl>50.0) + expl=50.0; + if (*tz<=0) + expl=50.0; + + /* density at altitude */ + densu_temp = densu_temp * pow ((t1 / *tz),(1.0 + alpha)) * exp(-expl); + return densu_temp; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- GLOBE7 ---------------------------- */ +/* ------------------------------------------------------------------- */ + +/* 3hr Magnetic activity functions */ +/* Eq. A24d */ +__inline_double g0(double a, double *p) { + return (a - 4.0 + (p[25] - 1.0) * (a - 4.0 + (exp(-sqrt(p[24]*p[24]) * (a - 4.0)) - 1.0) / sqrt(p[24]*p[24]))); +} + +/* Eq. A24c */ +__inline_double sumex(double ex) { + return (1.0 + (1.0 - pow(ex,19.0)) / (1.0 - ex) * pow(ex,0.5)); +} + +/* Eq. A24a */ +__inline_double sg0(double ex, double *p, double *ap) { + return (g0(ap[1],p) + (g0(ap[2],p)*ex + g0(ap[3],p)*ex*ex + \ + g0(ap[4],p)*pow(ex,3.0) + (g0(ap[5],p)*pow(ex,4.0) + \ + g0(ap[6],p)*pow(ex,12.0))*(1.0-pow(ex,8.0))/(1.0-ex)))/sumex(ex); +} + +double globe7(double *p, struct nrlmsise_input *input, struct nrlmsise_flags *flags) { +/* CALCULATE G(L) FUNCTION + * Upper Thermosphere Parameters */ + double t[15]; + int i,j; + int sw9=1; + double apd; + double xlong; + double tloc; + double c, s, c2, c4, s2; + double sr = 7.2722E-5; + double dgtr = 1.74533E-2; + double dr = 1.72142E-2; + double hr = 0.2618; + double cd32, cd18, cd14, cd39; + double df, dfa; + double f1, f2; + double tinf; + struct ap_array *ap; + + tloc=input->lst; + for (j=0;j<14;j++) + t[j]=0; + if (flags->sw[9]>0) + sw9=1; + else if (flags->sw[9]<0) + sw9=-1; + xlong = input->g_long; + + /* calculate legendre polynomials */ + c = sin(input->g_lat * dgtr); + s = cos(input->g_lat * dgtr); + c2 = c*c; + c4 = c2*c2; + s2 = s*s; + + plg[0][1] = c; + plg[0][2] = 0.5*(3.0*c2 -1.0); + plg[0][3] = 0.5*(5.0*c*c2-3.0*c); + plg[0][4] = (35.0*c4 - 30.0*c2 + 3.0)/8.0; + plg[0][5] = (63.0*c2*c2*c - 70.0*c2*c + 15.0*c)/8.0; + plg[0][6] = (11.0*c*plg[0][5] - 5.0*plg[0][4])/6.0; +/* plg[0][7] = (13.0*c*plg[0][6] - 6.0*plg[0][5])/7.0; */ + plg[1][1] = s; + plg[1][2] = 3.0*c*s; + plg[1][3] = 1.5*(5.0*c2-1.0)*s; + plg[1][4] = 2.5*(7.0*c2*c-3.0*c)*s; + plg[1][5] = 1.875*(21.0*c4 - 14.0*c2 +1.0)*s; + plg[1][6] = (11.0*c*plg[1][5]-6.0*plg[1][4])/5.0; +/* plg[1][7] = (13.0*c*plg[1][6]-7.0*plg[1][5])/6.0; */ +/* plg[1][8] = (15.0*c*plg[1][7]-8.0*plg[1][6])/7.0; */ + plg[2][2] = 3.0*s2; + plg[2][3] = 15.0*s2*c; + plg[2][4] = 7.5*(7.0*c2 -1.0)*s2; + plg[2][5] = 3.0*c*plg[2][4]-2.0*plg[2][3]; + plg[2][6] =(11.0*c*plg[2][5]-7.0*plg[2][4])/4.0; + plg[2][7] =(13.0*c*plg[2][6]-8.0*plg[2][5])/5.0; + plg[3][3] = 15.0*s2*s; + plg[3][4] = 105.0*s2*s*c; + plg[3][5] =(9.0*c*plg[3][4]-7.*plg[3][3])/2.0; + plg[3][6] =(11.0*c*plg[3][5]-8.*plg[3][4])/3.0; + + if (!(((flags->sw[7]==0)&&(flags->sw[8]==0))&&(flags->sw[14]==0))) { + stloc = sin(hr*tloc); + ctloc = cos(hr*tloc); + s2tloc = sin(2.0*hr*tloc); + c2tloc = cos(2.0*hr*tloc); + s3tloc = sin(3.0*hr*tloc); + c3tloc = cos(3.0*hr*tloc); + } + + cd32 = cos(dr*(input->doy-p[31])); + cd18 = cos(2.0*dr*(input->doy-p[17])); + cd14 = cos(dr*(input->doy-p[13])); + cd39 = cos(2.0*dr*(input->doy-p[38])); + + /* F10.7 EFFECT */ + df = input->f107 - input->f107A; + dfa = input->f107A - 150.0; + t[0] = p[19]*df*(1.0+p[59]*dfa) + p[20]*df*df + p[21]*dfa + p[29]*pow(dfa,2.0); + f1 = 1.0 + (p[47]*dfa +p[19]*df+p[20]*df*df)*flags->swc[1]; + f2 = 1.0 + (p[49]*dfa+p[19]*df+p[20]*df*df)*flags->swc[1]; + + /* TIME INDEPENDENT */ + t[1] = (p[1]*plg[0][2]+ p[2]*plg[0][4]+p[22]*plg[0][6]) + \ + (p[14]*plg[0][2])*dfa*flags->swc[1] +p[26]*plg[0][1]; + + /* SYMMETRICAL ANNUAL */ + t[2] = p[18]*cd32; + + /* SYMMETRICAL SEMIANNUAL */ + t[3] = (p[15]+p[16]*plg[0][2])*cd18; + + /* ASYMMETRICAL ANNUAL */ + t[4] = f1*(p[9]*plg[0][1]+p[10]*plg[0][3])*cd14; + + /* ASYMMETRICAL SEMIANNUAL */ + t[5] = p[37]*plg[0][1]*cd39; + + /* DIURNAL */ + if (flags->sw[7]) { + double t71, t72; + t71 = (p[11]*plg[1][2])*cd14*flags->swc[5]; + t72 = (p[12]*plg[1][2])*cd14*flags->swc[5]; + t[6] = f2*((p[3]*plg[1][1] + p[4]*plg[1][3] + p[27]*plg[1][5] + t71) * \ + ctloc + (p[6]*plg[1][1] + p[7]*plg[1][3] + p[28]*plg[1][5] \ + + t72)*stloc); +} + + /* SEMIDIURNAL */ + if (flags->sw[8]) { + double t81, t82; + t81 = (p[23]*plg[2][3]+p[35]*plg[2][5])*cd14*flags->swc[5]; + t82 = (p[33]*plg[2][3]+p[36]*plg[2][5])*cd14*flags->swc[5]; + t[7] = f2*((p[5]*plg[2][2]+ p[41]*plg[2][4] + t81)*c2tloc +(p[8]*plg[2][2] + p[42]*plg[2][4] + t82)*s2tloc); + } + + /* TERDIURNAL */ + if (flags->sw[14]) { + t[13] = f2 * ((p[39]*plg[3][3]+(p[93]*plg[3][4]+p[46]*plg[3][6])*cd14*flags->swc[5])* s3tloc +(p[40]*plg[3][3]+(p[94]*plg[3][4]+p[48]*plg[3][6])*cd14*flags->swc[5])* c3tloc); +} + + /* magnetic activity based on daily ap */ + if (flags->sw[9]==-1) { + ap = input->ap_a; + if (p[51]!=0) { + double exp1; + exp1 = exp(-10800.0*sqrt(p[51]*p[51])/(1.0+p[138]*(45.0-sqrt(input->g_lat*input->g_lat)))); + if (exp1>0.99999) + exp1=0.99999; + if (p[24]<1.0E-4) + p[24]=1.0E-4; + apt[0]=sg0(exp1,p,ap->a); + /* apt[1]=sg2(exp1,p,ap->a); + apt[2]=sg0(exp2,p,ap->a); + apt[3]=sg2(exp2,p,ap->a); + */ + if (flags->sw[9]) { + t[8] = apt[0]*(p[50]+p[96]*plg[0][2]+p[54]*plg[0][4]+ \ + (p[125]*plg[0][1]+p[126]*plg[0][3]+p[127]*plg[0][5])*cd14*flags->swc[5]+ \ + (p[128]*plg[1][1]+p[129]*plg[1][3]+p[130]*plg[1][5])*flags->swc[7]* \ + cos(hr*(tloc-p[131]))); + } + } + } else { + double p44, p45; + apd=input->ap-4.0; + p44=p[43]; + p45=p[44]; + if (p44<0) + p44 = 1.0E-5; + apdf = apd + (p45-1.0)*(apd + (exp(-p44 * apd) - 1.0)/p44); + if (flags->sw[9]) { + t[8]=apdf*(p[32]+p[45]*plg[0][2]+p[34]*plg[0][4]+ \ + (p[100]*plg[0][1]+p[101]*plg[0][3]+p[102]*plg[0][5])*cd14*flags->swc[5]+ + (p[121]*plg[1][1]+p[122]*plg[1][3]+p[123]*plg[1][5])*flags->swc[7]* + cos(hr*(tloc-p[124]))); + } + } + + if ((flags->sw[10])&&(input->g_long>-1000.0)) { + + /* longitudinal */ + if (flags->sw[11]) { + t[10] = (1.0 + p[80]*dfa*flags->swc[1])* \ + ((p[64]*plg[1][2]+p[65]*plg[1][4]+p[66]*plg[1][6]\ + +p[103]*plg[1][1]+p[104]*plg[1][3]+p[105]*plg[1][5]\ + +flags->swc[5]*(p[109]*plg[1][1]+p[110]*plg[1][3]+p[111]*plg[1][5])*cd14)* \ + cos(dgtr*input->g_long) \ + +(p[90]*plg[1][2]+p[91]*plg[1][4]+p[92]*plg[1][6]\ + +p[106]*plg[1][1]+p[107]*plg[1][3]+p[108]*plg[1][5]\ + +flags->swc[5]*(p[112]*plg[1][1]+p[113]*plg[1][3]+p[114]*plg[1][5])*cd14)* \ + sin(dgtr*input->g_long)); + } + + /* ut and mixed ut, longitude */ + if (flags->sw[12]){ + t[11]=(1.0+p[95]*plg[0][1])*(1.0+p[81]*dfa*flags->swc[1])*\ + (1.0+p[119]*plg[0][1]*flags->swc[5]*cd14)*\ + ((p[68]*plg[0][1]+p[69]*plg[0][3]+p[70]*plg[0][5])*\ + cos(sr*(input->sec-p[71]))); + t[11]+=flags->swc[11]*\ + (p[76]*plg[2][3]+p[77]*plg[2][5]+p[78]*plg[2][7])*\ + cos(sr*(input->sec-p[79])+2.0*dgtr*input->g_long)*(1.0+p[137]*dfa*flags->swc[1]); + } + + /* ut, longitude magnetic activity */ + if (flags->sw[13]) { + if (flags->sw[9]==-1) { + if (p[51]) { + t[12]=apt[0]*flags->swc[11]*(1.+p[132]*plg[0][1])*\ + ((p[52]*plg[1][2]+p[98]*plg[1][4]+p[67]*plg[1][6])*\ + cos(dgtr*(input->g_long-p[97])))\ + +apt[0]*flags->swc[11]*flags->swc[5]*\ + (p[133]*plg[1][1]+p[134]*plg[1][3]+p[135]*plg[1][5])*\ + cd14*cos(dgtr*(input->g_long-p[136])) \ + +apt[0]*flags->swc[12]* \ + (p[55]*plg[0][1]+p[56]*plg[0][3]+p[57]*plg[0][5])*\ + cos(sr*(input->sec-p[58])); + } + } else { + t[12] = apdf*flags->swc[11]*(1.0+p[120]*plg[0][1])*\ + ((p[60]*plg[1][2]+p[61]*plg[1][4]+p[62]*plg[1][6])*\ + cos(dgtr*(input->g_long-p[63])))\ + +apdf*flags->swc[11]*flags->swc[5]* \ + (p[115]*plg[1][1]+p[116]*plg[1][3]+p[117]*plg[1][5])* \ + cd14*cos(dgtr*(input->g_long-p[118])) \ + + apdf*flags->swc[12]* \ + (p[83]*plg[0][1]+p[84]*plg[0][3]+p[85]*plg[0][5])* \ + cos(sr*(input->sec-p[75])); + } + } + } + + /* parms not used: 82, 89, 99, 139-149 */ + tinf = p[30]; + for (i=0;i<14;i++) + tinf = tinf + fabs(flags->sw[i+1])*t[i]; + return tinf; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- GLOB7S ---------------------------- */ +/* ------------------------------------------------------------------- */ + +double glob7s(double *p, struct nrlmsise_input *input, struct nrlmsise_flags *flags) { +/* VERSION OF GLOBE FOR LOWER ATMOSPHERE 10/26/99 + */ + double pset=2.0; + double t[14]; + double tt; + double cd32, cd18, cd14, cd39; + int i,j; + double dr=1.72142E-2; + double dgtr=1.74533E-2; + /* confirm parameter set */ + if (p[99]==0) + p[99]=pset; + if (p[99]!=pset) { + printf("Wrong parameter set for glob7s\n"); + return -1; + } + for (j=0;j<14;j++) + t[j]=0.0; + cd32 = cos(dr*(input->doy-p[31])); + cd18 = cos(2.0*dr*(input->doy-p[17])); + cd14 = cos(dr*(input->doy-p[13])); + cd39 = cos(2.0*dr*(input->doy-p[38])); + + /* F10.7 */ + t[0] = p[21]*dfa; + + /* time independent */ + t[1]=p[1]*plg[0][2] + p[2]*plg[0][4] + p[22]*plg[0][6] + p[26]*plg[0][1] + p[14]*plg[0][3] + p[59]*plg[0][5]; + + /* SYMMETRICAL ANNUAL */ + t[2]=(p[18]+p[47]*plg[0][2]+p[29]*plg[0][4])*cd32; + + /* SYMMETRICAL SEMIANNUAL */ + t[3]=(p[15]+p[16]*plg[0][2]+p[30]*plg[0][4])*cd18; + + /* ASYMMETRICAL ANNUAL */ + t[4]=(p[9]*plg[0][1]+p[10]*plg[0][3]+p[20]*plg[0][5])*cd14; + + /* ASYMMETRICAL SEMIANNUAL */ + t[5]=(p[37]*plg[0][1])*cd39; + + /* DIURNAL */ + if (flags->sw[7]) { + double t71, t72; + t71 = p[11]*plg[1][2]*cd14*flags->swc[5]; + t72 = p[12]*plg[1][2]*cd14*flags->swc[5]; + t[6] = ((p[3]*plg[1][1] + p[4]*plg[1][3] + t71) * ctloc + (p[6]*plg[1][1] + p[7]*plg[1][3] + t72) * stloc) ; + } + + /* SEMIDIURNAL */ + if (flags->sw[8]) { + double t81, t82; + t81 = (p[23]*plg[2][3]+p[35]*plg[2][5])*cd14*flags->swc[5]; + t82 = (p[33]*plg[2][3]+p[36]*plg[2][5])*cd14*flags->swc[5]; + t[7] = ((p[5]*plg[2][2] + p[41]*plg[2][4] + t81) * c2tloc + (p[8]*plg[2][2] + p[42]*plg[2][4] + t82) * s2tloc); + } + + /* TERDIURNAL */ + if (flags->sw[14]) { + t[13] = p[39] * plg[3][3] * s3tloc + p[40] * plg[3][3] * c3tloc; + } + + /* MAGNETIC ACTIVITY */ + if (flags->sw[9]) { + if (flags->sw[9]==1) + t[8] = apdf * (p[32] + p[45] * plg[0][2] * flags->swc[2]); + if (flags->sw[9]==-1) + t[8]=(p[50]*apt[0] + p[96]*plg[0][2] * apt[0]*flags->swc[2]); + } + + /* LONGITUDINAL */ + if (!((flags->sw[10]==0) || (flags->sw[11]==0) || (input->g_long<=-1000.0))) { + t[10] = (1.0 + plg[0][1]*(p[80]*flags->swc[5]*cos(dr*(input->doy-p[81]))\ + +p[85]*flags->swc[6]*cos(2.0*dr*(input->doy-p[86])))\ + +p[83]*flags->swc[3]*cos(dr*(input->doy-p[84]))\ + +p[87]*flags->swc[4]*cos(2.0*dr*(input->doy-p[88])))\ + *((p[64]*plg[1][2]+p[65]*plg[1][4]+p[66]*plg[1][6]\ + +p[74]*plg[1][1]+p[75]*plg[1][3]+p[76]*plg[1][5]\ + )*cos(dgtr*input->g_long)\ + +(p[90]*plg[1][2]+p[91]*plg[1][4]+p[92]*plg[1][6]\ + +p[77]*plg[1][1]+p[78]*plg[1][3]+p[79]*plg[1][5]\ + )*sin(dgtr*input->g_long)); + } + tt=0; + for (i=0;i<14;i++) + tt+=fabs(flags->sw[i+1])*t[i]; + return tt; +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- GTD7 ------------------------------ */ +/* ------------------------------------------------------------------- */ + +void gtd7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output) { + double xlat; + double xmm; + int mn3 = 5; + double zn3[5]={32.5,20.0,15.0,10.0,0.0}; + int mn2 = 4; + double zn2[4]={72.5,55.0,45.0,32.5}; + double altt; + double zmix=62.5; + double tmp; + double dm28m; + double tz; + double dmc; + double dmr; + double dz28; + struct nrlmsise_output soutput; + int i; + + tselec(flags); + + /* Latitude variation of gravity (none for sw[2]=0) */ + xlat=input->g_lat; + if (flags->sw[2]==0) + xlat=45.0; + glatf(xlat, &gsurf, &re); + + xmm = pdm[2][4]; + + /* THERMOSPHERE / MESOSPHERE (above zn2[0]) */ + if (input->alt>zn2[0]) + altt=input->alt; + else + altt=zn2[0]; + + tmp=input->alt; + input->alt=altt; + gts7(input, flags, &soutput); + altt=input->alt; + input->alt=tmp; + if (flags->sw[0]) /* metric adjustment */ + dm28m=dm28*1.0E6; + else + dm28m=dm28; + output->t[0]=soutput.t[0]; + output->t[1]=soutput.t[1]; + if (input->alt>=zn2[0]) { + for (i=0;i<9;i++) + output->d[i]=soutput.d[i]; + return; + } + +/* LOWER MESOSPHERE/UPPER STRATOSPHERE (between zn3[0] and zn2[0]) + * Temperature at nodes and gradients at end nodes + * Inverse temperature a linear function of spherical harmonics + */ + meso_tgn2[0]=meso_tgn1[1]; + meso_tn2[0]=meso_tn1[4]; + meso_tn2[1]=pma[0][0]*pavgm[0]/(1.0-flags->sw[20]*glob7s(pma[0], input, flags)); + meso_tn2[2]=pma[1][0]*pavgm[1]/(1.0-flags->sw[20]*glob7s(pma[1], input, flags)); + meso_tn2[3]=pma[2][0]*pavgm[2]/(1.0-flags->sw[20]*flags->sw[22]*glob7s(pma[2], input, flags)); + meso_tgn2[1]=pavgm[8]*pma[9][0]*(1.0+flags->sw[20]*flags->sw[22]*glob7s(pma[9], input, flags))*meso_tn2[3]*meso_tn2[3]/(pow((pma[2][0]*pavgm[2]),2.0)); + meso_tn3[0]=meso_tn2[3]; + + if (input->alt<=zn3[0]) { +/* LOWER STRATOSPHERE AND TROPOSPHERE (below zn3[0]) + * Temperature at nodes and gradients at end nodes + * Inverse temperature a linear function of spherical harmonics + */ + meso_tgn3[0]=meso_tgn2[1]; + meso_tn3[1]=pma[3][0]*pavgm[3]/(1.0-flags->sw[22]*glob7s(pma[3], input, flags)); + meso_tn3[2]=pma[4][0]*pavgm[4]/(1.0-flags->sw[22]*glob7s(pma[4], input, flags)); + meso_tn3[3]=pma[5][0]*pavgm[5]/(1.0-flags->sw[22]*glob7s(pma[5], input, flags)); + meso_tn3[4]=pma[6][0]*pavgm[6]/(1.0-flags->sw[22]*glob7s(pma[6], input, flags)); + meso_tgn3[1]=pma[7][0]*pavgm[7]*(1.0+flags->sw[22]*glob7s(pma[7], input, flags)) *meso_tn3[4]*meso_tn3[4]/(pow((pma[6][0]*pavgm[6]),2.0)); + } + + /* LINEAR TRANSITION TO FULL MIXING BELOW zn2[0] */ + + dmc=0; + if (input->alt>zmix) + dmc = 1.0 - (zn2[0]-input->alt)/(zn2[0] - zmix); + dz28=soutput.d[2]; + + /**** N2 density ****/ + dmr=soutput.d[2] / dm28m - 1.0; + output->d[2]=densm(input->alt,dm28m,xmm, &tz, mn3, zn3, meso_tn3, meso_tgn3, mn2, zn2, meso_tn2, meso_tgn2); + output->d[2]=output->d[2] * (1.0 + dmr*dmc); + + /**** HE density ****/ + dmr = soutput.d[0] / (dz28 * pdm[0][1]) - 1.0; + output->d[0] = output->d[2] * pdm[0][1] * (1.0 + dmr*dmc); + + /**** O density ****/ + output->d[1] = 0; + output->d[8] = 0; + + /**** O2 density ****/ + dmr = soutput.d[3] / (dz28 * pdm[3][1]) - 1.0; + output->d[3] = output->d[2] * pdm[3][1] * (1.0 + dmr*dmc); + + /**** AR density ***/ + dmr = soutput.d[4] / (dz28 * pdm[4][1]) - 1.0; + output->d[4] = output->d[2] * pdm[4][1] * (1.0 + dmr*dmc); + + /**** Hydrogen density ****/ + output->d[6] = 0; + + /**** Atomic nitrogen density ****/ + output->d[7] = 0; + + /**** Total mass density */ + output->d[5] = 1.66E-24 * (4.0 * output->d[0] + 16.0 * output->d[1] + 28.0 * output->d[2] + 32.0 * output->d[3] + 40.0 * output->d[4] + output->d[6] + 14.0 * output->d[7]); + + if (flags->sw[0]) + output->d[5]=output->d[5]/1000; + + /**** temperature at altitude ****/ + dd = densm(input->alt, 1.0, 0, &tz, mn3, zn3, meso_tn3, meso_tgn3, mn2, zn2, meso_tn2, meso_tgn2); + output->t[1]=tz; + +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- GTD7D ----------------------------- */ +/* ------------------------------------------------------------------- */ + +void gtd7d(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output) { + gtd7(input, flags, output); + output->d[5] = 1.66E-24 * (4.0 * output->d[0] + 16.0 * output->d[1] + 28.0 * output->d[2] + 32.0 * output->d[3] + 40.0 * output->d[4] + output->d[6] + 14.0 * output->d[7] + 16.0 * output->d[8]); +} + + + +/* ------------------------------------------------------------------- */ +/* -------------------------------- GHP7 ----------------------------- */ +/* ------------------------------------------------------------------- */ + +void ghp7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output, double press) { + double bm = 1.3806E-19; + double rgas = 831.4; + double test = 0.00043; + double ltest = 12; + double pl, p; + double zi; + double z; + double cl, cl2; + double ca, cd; + double xn, xm, diff; + double g, sh; + double arg; // MS090305 + int l; + pl = log10(press); + if (pl >= -5.0) { + if (pl>2.5) + zi = 18.06 * (3.00 - pl); + else if ((pl>0.075) && (pl<=2.5)) + zi = 14.98 * (3.08 - pl); + else if ((pl>-1) && (pl<=0.075)) + zi = 17.80 * (2.72 - pl); + else if ((pl>-2) && (pl<=-1)) + zi = 14.28 * (3.64 - pl); + else if ((pl>-4) && (pl<=-2)) + zi = 12.72 * (4.32 -pl); + else + zi = 25.3 * (0.11 - pl); + cl = input->g_lat/90.0; + cl2 = cl*cl; + if (input->doy<182) + cd = (1.0 - (double) input->doy) / 91.25; + else + cd = ((double) input->doy) / 91.25 - 3.0; + ca = 0; + if ((pl > -1.11) && (pl<=-0.23)) + ca = 1.0; + if (pl > -0.23) + ca = (2.79 - pl) / (2.79 + 0.23); + if ((pl <= -1.11) && (pl>-3)) + ca = (-2.93 - pl)/(-2.93 + 1.11); + z = zi - 4.87 * cl * cd * ca - 1.64 * cl2 * ca + 0.31 * ca * cl; + } else { + // MS090305 + //z = 22.0 * pow((pl + 4.0),2.0) + 110.0; + arg = (pl + 4.0); + z = 22.0 * (arg*arg) + 110.0; + } + + /* iteration loop */ + l = 0; + do { + l++; + input->alt = z; + gtd7(input, flags, output); + z = input->alt; + xn = output->d[0] + output->d[1] + output->d[2] + output->d[3] + output->d[4] + output->d[6] + output->d[7]; + p = bm * xn * output->t[1]; + if (flags->sw[0]) + p = p*1.0E-6; + diff = pl - log10(p); + // MS090305 + //if (sqrt(diff*diff)d[5] / xn / 1.66E-24; + if (flags->sw[0]) + xm = xm * 1.0E3; + // MS090305 + //g = gsurf / (pow((1.0 + z/re),2.0)); + arg = (1.0 + z/re); + g = gsurf / (arg*arg); + sh = rgas * output->t[1] / (xm * g); + + /* new altitude estimate using scale height */ + if (l < 6) + z = z - sh * diff * 2.302; + else + z = z - sh * diff; + } while (1==1); +} + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- GTS7 ------------------------------ */ +/* ------------------------------------------------------------------- */ + +void gts7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output) { +/* Thermospheric portion of NRLMSISE-00 + * See GTD7 for more extensive comments + * alt > 72.5 km! + */ + double za; + int i, j; + double ddum, z; + double zn1[5] = {120.0, 110.0, 100.0, 90.0, 72.5}; + double tinf; + int mn1 = 5; + double g0; + double tlb; + double s, z0, t0, tr12; + double db01, db04, db14, db16, db28, db32, db40, db48; + double zh28, zh04, zh16, zh32, zh40, zh01, zh14; + double zhm28, zhm04, zhm16, zhm32, zhm40, zhm01, zhm14; + double xmd; + double b28, b04, b16, b32, b40, b01, b14; + double tz; + double g28, g4, g16, g32, g40, g1, g14; + double zhf, xmm; + double zc04, zc16, zc32, zc40, zc01, zc14; + double hc04, hc16, hc32, hc40, hc01, hc14; + double hcc16, hcc32, hcc01, hcc14; + double zcc16, zcc32, zcc01, zcc14; + double rc16, rc32, rc01, rc14; + double rl; + double g16h, db16h, tho, zsht, zmho, zsho; + double dgtr=1.74533E-2; + double dr=1.72142E-2; + double alpha[9]={-0.38, 0.0, 0.0, 0.0, 0.17, 0.0, -0.38, 0.0, 0.0}; + double altl[8]={200.0, 300.0, 160.0, 250.0, 240.0, 450.0, 320.0, 450.0}; + double dd; + double hc216, hcc232; + double arg; // MS090305 + za = pdl[1][15]; + zn1[0] = za; + for (j=0;j<9;j++) + output->d[j]=0; + + /* TINF VARIATIONS NOT IMPORTANT BELOW ZA OR ZN1(1) */ + if (input->alt>zn1[0]) + tinf = ptm[0]*pt[0] * \ + (1.0+flags->sw[16]*globe7(pt,input,flags)); + else + tinf = ptm[0]*pt[0]; + output->t[0]=tinf; + + /* GRADIENT VARIATIONS NOT IMPORTANT BELOW ZN1(5) */ + if (input->alt>zn1[4]) + g0 = ptm[3]*ps[0] * \ + (1.0+flags->sw[19]*globe7(ps,input,flags)); + else + g0 = ptm[3]*ps[0]; + tlb = ptm[1] * (1.0 + flags->sw[17]*globe7(pd[3],input,flags))*pd[3][0]; + s = g0 / (tinf - tlb); + +/* Lower thermosphere temp variations not significant for + * density above 300 km */ + if (input->alt<300.0) { + meso_tn1[1]=ptm[6]*ptl[0][0]/(1.0-flags->sw[18]*glob7s(ptl[0], input, flags)); + meso_tn1[2]=ptm[2]*ptl[1][0]/(1.0-flags->sw[18]*glob7s(ptl[1], input, flags)); + meso_tn1[3]=ptm[7]*ptl[2][0]/(1.0-flags->sw[18]*glob7s(ptl[2], input, flags)); + meso_tn1[4]=ptm[4]*ptl[3][0]/(1.0-flags->sw[18]*flags->sw[20]*glob7s(ptl[3], input, flags)); + // MS090305 + //meso_tgn1[1]=ptm[8]*pma[8][0]*(1.0+flags->sw[18]*flags->sw[20]*glob7s(pma[8], input, flags))*meso_tn1[4]*meso_tn1[4]/(pow((ptm[4]*ptl[3][0]),2.0)); + arg = (ptm[4]*ptl[3][0]); + meso_tgn1[1]=ptm[8]*pma[8][0]*(1.0+flags->sw[18]*flags->sw[20]*glob7s(pma[8], input, flags))*meso_tn1[4]*meso_tn1[4]/(arg*arg); + } else { + meso_tn1[1]=ptm[6]*ptl[0][0]; + meso_tn1[2]=ptm[2]*ptl[1][0]; + meso_tn1[3]=ptm[7]*ptl[2][0]; + meso_tn1[4]=ptm[4]*ptl[3][0]; + // MS090305 + //meso_tgn1[1]=ptm[8]*pma[8][0]*meso_tn1[4]*meso_tn1[4]/(pow((ptm[4]*ptl[3][0]),2.0)); + arg = (ptm[4]*ptl[3][0]); + meso_tgn1[1]=ptm[8]*pma[8][0]*meso_tn1[4]*meso_tn1[4]/(arg*arg); + } + + z0 = zn1[3]; + t0 = meso_tn1[3]; + tr12 = 1.0; + + /* N2 variation factor at Zlb */ + g28=flags->sw[21]*globe7(pd[2], input, flags); + + /* VARIATION OF TURBOPAUSE HEIGHT */ + zhf=pdl[1][24]*(1.0+flags->sw[5]*pdl[0][24]*sin(dgtr*input->g_lat)*cos(dr*(input->doy-pt[13]))); + output->t[0]=tinf; + xmm = pdm[2][4]; + z = input->alt; + + + /**** N2 DENSITY ****/ + + /* Diffusive density at Zlb */ + db28 = pdm[2][0]*exp(g28)*pd[2][0]; + /* Diffusive density at Alt */ + output->d[2]=densu(z,db28,tinf,tlb,28.0,alpha[2],&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + dd=output->d[2]; + /* Turbopause */ + zh28=pdm[2][2]*zhf; + zhm28=pdm[2][3]*pdl[1][5]; + xmd=28.0-xmm; + /* Mixed density at Zlb */ + b28=densu(zh28,db28,tinf,tlb,xmd,(alpha[2]-1.0),&tz,ptm[5],s,mn1, zn1,meso_tn1,meso_tgn1); + if ((flags->sw[15])&&(z<=altl[2])) { + /* Mixed density at Alt */ + dm28=densu(z,b28,tinf,tlb,xmm,alpha[2],&tz,ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Net density at Alt */ + output->d[2]=dnet(output->d[2],dm28,zhm28,xmm,28.0); + } + + + /**** HE DENSITY ****/ + + /* Density variation factor at Zlb */ + g4 = flags->sw[21]*globe7(pd[0], input, flags); + /* Diffusive density at Zlb */ + db04 = pdm[0][0]*exp(g4)*pd[0][0]; + /* Diffusive density at Alt */ + output->d[0]=densu(z,db04,tinf,tlb, 4.,alpha[0],&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + dd=output->d[0]; + if ((flags->sw[15]) && (zt[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm04=densu(z,b04,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm04=zhm28; + /* Net density at Alt */ + output->d[0]=dnet(output->d[0],dm04,zhm04,xmm,4.); + /* Correction to specified mixing ratio at ground */ + rl=log(b28*pdm[0][1]/b04); + zc04=pdm[0][4]*pdl[1][0]; + hc04=pdm[0][5]*pdl[1][1]; + /* Net density corrected at Alt */ + output->d[0]=output->d[0]*ccor(z,rl,hc04,zc04); + } + + + /**** O DENSITY ****/ + + /* Density variation factor at Zlb */ + g16= flags->sw[21]*globe7(pd[1],input,flags); + /* Diffusive density at Zlb */ + db16 = pdm[1][0]*exp(g16)*pd[1][0]; + /* Diffusive density at Alt */ + output->d[1]=densu(z,db16,tinf,tlb, 16.,alpha[1],&output->t[1],ptm[5],s,mn1, zn1,meso_tn1,meso_tgn1); + dd=output->d[1]; + if ((flags->sw[15]) && (z<=altl[1])) { + /* Turbopause */ + zh16=pdm[1][2]; + /* Mixed density at Zlb */ + b16=densu(zh16,db16,tinf,tlb,16.0-xmm,(alpha[1]-1.0), &output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm16=densu(z,b16,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm16=zhm28; + /* Net density at Alt */ + output->d[1]=dnet(output->d[1],dm16,zhm16,xmm,16.); + rl=pdm[1][1]*pdl[1][16]*(1.0+flags->sw[1]*pdl[0][23]*(input->f107A-150.0)); + hc16=pdm[1][5]*pdl[1][3]; + zc16=pdm[1][4]*pdl[1][2]; + hc216=pdm[1][5]*pdl[1][4]; + output->d[1]=output->d[1]*ccor2(z,rl,hc16,zc16,hc216); + /* Chemistry correction */ + hcc16=pdm[1][7]*pdl[1][13]; + zcc16=pdm[1][6]*pdl[1][12]; + rc16=pdm[1][3]*pdl[1][14]; + /* Net density corrected at Alt */ + output->d[1]=output->d[1]*ccor(z,rc16,hcc16,zcc16); + } + + + /**** O2 DENSITY ****/ + + /* Density variation factor at Zlb */ + g32= flags->sw[21]*globe7(pd[4], input, flags); + /* Diffusive density at Zlb */ + db32 = pdm[3][0]*exp(g32)*pd[4][0]; + /* Diffusive density at Alt */ + output->d[3]=densu(z,db32,tinf,tlb, 32.,alpha[3],&output->t[1],ptm[5],s,mn1, zn1,meso_tn1,meso_tgn1); + dd=output->d[3]; + if (flags->sw[15]) { + if (z<=altl[3]) { + /* Turbopause */ + zh32=pdm[3][2]; + /* Mixed density at Zlb */ + b32=densu(zh32,db32,tinf,tlb,32.-xmm,alpha[3]-1., &output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm32=densu(z,b32,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm32=zhm28; + /* Net density at Alt */ + output->d[3]=dnet(output->d[3],dm32,zhm32,xmm,32.); + /* Correction to specified mixing ratio at ground */ + rl=log(b28*pdm[3][1]/b32); + hc32=pdm[3][5]*pdl[1][7]; + zc32=pdm[3][4]*pdl[1][6]; + output->d[3]=output->d[3]*ccor(z,rl,hc32,zc32); + } + /* Correction for general departure from diffusive equilibrium above Zlb */ + hcc32=pdm[3][7]*pdl[1][22]; + hcc232=pdm[3][7]*pdl[0][22]; + zcc32=pdm[3][6]*pdl[1][21]; + rc32=pdm[3][3]*pdl[1][23]*(1.+flags->sw[1]*pdl[0][23]*(input->f107A-150.)); + /* Net density corrected at Alt */ + output->d[3]=output->d[3]*ccor2(z,rc32,hcc32,zcc32,hcc232); + } + + + /**** AR DENSITY ****/ + + /* Density variation factor at Zlb */ + g40= flags->sw[21]*globe7(pd[5],input,flags); + /* Diffusive density at Zlb */ + db40 = pdm[4][0]*exp(g40)*pd[5][0]; + /* Diffusive density at Alt */ + output->d[4]=densu(z,db40,tinf,tlb, 40.,alpha[4],&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + dd=output->d[4]; + if ((flags->sw[15]) && (z<=altl[4])) { + /* Turbopause */ + zh40=pdm[4][2]; + /* Mixed density at Zlb */ + b40=densu(zh40,db40,tinf,tlb,40.-xmm,alpha[4]-1.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm40=densu(z,b40,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm40=zhm28; + /* Net density at Alt */ + output->d[4]=dnet(output->d[4],dm40,zhm40,xmm,40.); + /* Correction to specified mixing ratio at ground */ + rl=log(b28*pdm[4][1]/b40); + hc40=pdm[4][5]*pdl[1][9]; + zc40=pdm[4][4]*pdl[1][8]; + /* Net density corrected at Alt */ + output->d[4]=output->d[4]*ccor(z,rl,hc40,zc40); + } + + + /**** HYDROGEN DENSITY ****/ + + /* Density variation factor at Zlb */ + g1 = flags->sw[21]*globe7(pd[6], input, flags); + /* Diffusive density at Zlb */ + db01 = pdm[5][0]*exp(g1)*pd[6][0]; + /* Diffusive density at Alt */ + output->d[6]=densu(z,db01,tinf,tlb,1.,alpha[6],&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + dd=output->d[6]; + if ((flags->sw[15]) && (z<=altl[6])) { + /* Turbopause */ + zh01=pdm[5][2]; + /* Mixed density at Zlb */ + b01=densu(zh01,db01,tinf,tlb,1.-xmm,alpha[6]-1., &output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm01=densu(z,b01,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm01=zhm28; + /* Net density at Alt */ + output->d[6]=dnet(output->d[6],dm01,zhm01,xmm,1.); + /* Correction to specified mixing ratio at ground */ + rl=log(b28*pdm[5][1]*sqrt(pdl[1][17]*pdl[1][17])/b01); + hc01=pdm[5][5]*pdl[1][11]; + zc01=pdm[5][4]*pdl[1][10]; + output->d[6]=output->d[6]*ccor(z,rl,hc01,zc01); + /* Chemistry correction */ + hcc01=pdm[5][7]*pdl[1][19]; + zcc01=pdm[5][6]*pdl[1][18]; + rc01=pdm[5][3]*pdl[1][20]; + /* Net density corrected at Alt */ + output->d[6]=output->d[6]*ccor(z,rc01,hcc01,zcc01); +} + + + /**** ATOMIC NITROGEN DENSITY ****/ + + /* Density variation factor at Zlb */ + g14 = flags->sw[21]*globe7(pd[7],input,flags); + /* Diffusive density at Zlb */ + db14 = pdm[6][0]*exp(g14)*pd[7][0]; + /* Diffusive density at Alt */ + output->d[7]=densu(z,db14,tinf,tlb,14.,alpha[7],&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + dd=output->d[7]; + if ((flags->sw[15]) && (z<=altl[7])) { + /* Turbopause */ + zh14=pdm[6][2]; + /* Mixed density at Zlb */ + b14=densu(zh14,db14,tinf,tlb,14.-xmm,alpha[7]-1., &output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + /* Mixed density at Alt */ + dm14=densu(z,b14,tinf,tlb,xmm,0.,&output->t[1],ptm[5],s,mn1,zn1,meso_tn1,meso_tgn1); + zhm14=zhm28; + /* Net density at Alt */ + output->d[7]=dnet(output->d[7],dm14,zhm14,xmm,14.); + /* Correction to specified mixing ratio at ground */ + rl=log(b28*pdm[6][1]*sqrt(pdl[0][2]*pdl[0][2])/b14); + hc14=pdm[6][5]*pdl[0][1]; + zc14=pdm[6][4]*pdl[0][0]; + output->d[7]=output->d[7]*ccor(z,rl,hc14,zc14); + /* Chemistry correction */ + hcc14=pdm[6][7]*pdl[0][4]; + zcc14=pdm[6][6]*pdl[0][3]; + rc14=pdm[6][3]*pdl[0][5]; + /* Net density corrected at Alt */ + output->d[7]=output->d[7]*ccor(z,rc14,hcc14,zcc14); + } + + + /**** Anomalous OXYGEN DENSITY ****/ + + g16h = flags->sw[21]*globe7(pd[8],input,flags); + db16h = pdm[7][0]*exp(g16h)*pd[8][0]; + tho = pdm[7][9]*pdl[0][6]; + dd=densu(z,db16h,tho,tho,16.,alpha[8],&output->t[1],ptm[5],s,mn1, zn1,meso_tn1,meso_tgn1); + zsht=pdm[7][5]; + zmho=pdm[7][4]; + zsho=scalh(zmho,16.0,tho); + output->d[8]=dd*exp(-zsht/zsho*(exp(-(z-zmho)/zsht)-1.)); + + + /* total mass density */ + output->d[5] = 1.66E-24*(4.0*output->d[0]+16.0*output->d[1]+28.0*output->d[2]+32.0*output->d[3]+40.0*output->d[4]+ output->d[6]+14.0*output->d[7]); + db48=1.66E-24*(4.0*db04+16.0*db16+28.0*db28+32.0*db32+40.0*db40+db01+14.0*db14); + + + + /* temperature */ + z = sqrt(input->alt*input->alt); + ddum = densu(z,1.0, tinf, tlb, 0.0, 0.0, &output->t[1], ptm[5], s, mn1, zn1, meso_tn1, meso_tgn1); + if (flags->sw[0]) { + for(i=0;i<9;i++) + output->d[i]=output->d[i]*1.0E6; + output->d[5]=output->d[5]/1000; + } +} diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.h b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.h new file mode 100644 index 000000000..345cb660e --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00.h @@ -0,0 +1,228 @@ +/* -------------------------------------------------------------------- */ +/* --------- N R L M S I S E - 0 0 M O D E L 2 0 0 1 ---------- */ +/* -------------------------------------------------------------------- */ + +/* This file is part of the NRLMSISE-00 C source code package - release + * 20020503 (with fixes from 20041227) + * + * The NRLMSISE-00 model was developed by Mike Picone, Alan Hedin, and + * Doug Drob. They also wrote a NRLMSISE-00 distribution package in + * FORTRAN which is available at + * http://uap-www.nrl.navy.mil/models_web/msis/msis_home.htm + * + * Dominik Brodowski implemented and maintains this C version. You can + * reach him at devel@brodo.de. See the file "DOCUMENTATION" for details, + * and check http://www.brodo.de/english/pub/nrlmsise/index.html for + * updated releases of this package. + */ + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------- INPUT ----------------------------- */ +/* ------------------------------------------------------------------- */ + +struct nrlmsise_flags { + int switches[24]; + double sw[24]; + double swc[24]; +}; +/* + * Switches: to turn on and off particular variations use these switches. + * 0 is off, 1 is on, and 2 is main effects off but cross terms on. + * + * Standard values are 0 for switch 0 and 1 for switches 1 to 23. The + * array "switches" needs to be set accordingly by the calling program. + * The arrays sw and swc are set internally. + * + * switches[i]: + * i - explanation + * ----------------- + * 0 - output in centimeters instead of meters + * 1 - F10.7 effect on mean + * 2 - time independent + * 3 - symmetrical annual + * 4 - symmetrical semiannual + * 5 - asymmetrical annual + * 6 - asymmetrical semiannual + * 7 - diurnal + * 8 - semidiurnal + * 9 - daily ap [when this is set to -1 (!) the pointer + * ap_a in struct nrlmsise_input must + * point to a struct ap_array] + * 10 - all UT/long effects + * 11 - longitudinal + * 12 - UT and mixed UT/long + * 13 - mixed AP/UT/LONG + * 14 - terdiurnal + * 15 - departures from diffusive equilibrium + * 16 - all TINF var + * 17 - all TLB var + * 18 - all TN1 var + * 19 - all S var + * 20 - all TN2 var + * 21 - all NLB var + * 22 - all TN3 var + * 23 - turbo scale height var + */ + +struct ap_array { + double a[7]; +}; +/* Array containing the following magnetic values: + * 0 : daily AP + * 1 : 3 hr AP index for current time + * 2 : 3 hr AP index for 3 hrs before current time + * 3 : 3 hr AP index for 6 hrs before current time + * 4 : 3 hr AP index for 9 hrs before current time + * 5 : Average of eight 3 hr AP indicies from 12 to 33 hrs + * prior to current time + * 6 : Average of eight 3 hr AP indicies from 36 to 57 hrs + * prior to current time + */ + + +struct nrlmsise_input { + int year; /* year, currently ignored */ + int doy; /* day of year */ + double sec; /* seconds in day (UT) */ + double alt; /* altitude in kilometers */ + double g_lat; /* geodetic latitude */ + double g_long; /* geodetic longitude */ + double lst; /* local apparent solar time (hours), see note below */ + double f107A; /* 81 day average of F10.7 flux (centered on doy) */ + double f107; /* daily F10.7 flux for previous day */ + double ap; /* magnetic index(daily) */ + struct ap_array *ap_a; /* see above */ +}; +/* + * NOTES ON INPUT VARIABLES: + * UT, Local Time, and Longitude are used independently in the + * model and are not of equal importance for every situation. + * For the most physically realistic calculation these three + * variables should be consistent (lst=sec/3600 + g_long/15). + * The Equation of Time departures from the above formula + * for apparent local time can be included if available but + * are of minor importance. + * + * f107 and f107A values used to generate the model correspond + * to the 10.7 cm radio flux at the actual distance of the Earth + * from the Sun rather than the radio flux at 1 AU. The following + * site provides both classes of values: + * ftp://ftp.ngdc.noaa.gov/STP/SOLAR_DATA/SOLAR_RADIO/FLUX/ + * + * f107, f107A, and ap effects are neither large nor well + * established below 80 km and these parameters should be set to + * 150., 150., and 4. respectively. + */ + + + +/* ------------------------------------------------------------------- */ +/* ------------------------------ OUTPUT ----------------------------- */ +/* ------------------------------------------------------------------- */ + +struct nrlmsise_output { + double d[9]; /* densities */ + double t[2]; /* temperatures */ +}; +/* + * OUTPUT VARIABLES: + * d[0] - HE NUMBER DENSITY(CM-3) + * d[1] - O NUMBER DENSITY(CM-3) + * d[2] - N2 NUMBER DENSITY(CM-3) + * d[3] - O2 NUMBER DENSITY(CM-3) + * d[4] - AR NUMBER DENSITY(CM-3) + * d[5] - TOTAL MASS DENSITY(GM/CM3) [includes d[8] in td7d] + * d[6] - H NUMBER DENSITY(CM-3) + * d[7] - N NUMBER DENSITY(CM-3) + * d[8] - Anomalous oxygen NUMBER DENSITY(CM-3) + * t[0] - EXOSPHERIC TEMPERATURE + * t[1] - TEMPERATURE AT ALT + * + * + * O, H, and N are set to zero below 72.5 km + * + * t[0], Exospheric temperature, is set to global average for + * altitudes below 120 km. The 120 km gradient is left at global + * average value for altitudes below 72 km. + * + * d[5], TOTAL MASS DENSITY, is NOT the same for subroutines GTD7 + * and GTD7D + * + * SUBROUTINE GTD7 -- d[5] is the sum of the mass densities of the + * species labeled by indices 0-4 and 6-7 in output variable d. + * This includes He, O, N2, O2, Ar, H, and N but does NOT include + * anomalous oxygen (species index 8). + * + * SUBROUTINE GTD7D -- d[5] is the "effective total mass density + * for drag" and is the sum of the mass densities of all species + * in this model, INCLUDING anomalous oxygen. + */ + + + +/* ------------------------------------------------------------------- */ +/* --------------------------- PROTOTYPES ---------------------------- */ +/* ------------------------------------------------------------------- */ + +/* GTD7 */ +/* Neutral Atmosphere Empircial Model from the surface to lower + * exosphere. + */ +#ifndef NRLMSISE00_IMPLEMENTATION +extern "C" { +#endif +void gtd7 (struct nrlmsise_input *input, \ + struct nrlmsise_flags *flags, \ + struct nrlmsise_output *output); + + +/* GTD7D */ +/* This subroutine provides Effective Total Mass Density for output + * d[5] which includes contributions from "anomalous oxygen" which can + * affect satellite drag above 500 km. See the section "output" for + * additional details. + */ +void gtd7d(struct nrlmsise_input *input, \ + struct nrlmsise_flags *flags, \ + struct nrlmsise_output *output); + + +/* GTS7 */ +/* Thermospheric portion of NRLMSISE-00 + */ +void gts7 (struct nrlmsise_input *input, \ + struct nrlmsise_flags *flags, \ + struct nrlmsise_output *output); + + +/* GHP7 */ +/* To specify outputs at a pressure level (press) rather than at + * an altitude. + */ +void ghp7 (struct nrlmsise_input *input, \ + struct nrlmsise_flags *flags, \ + struct nrlmsise_output *output, \ + double press); + +#ifndef NRLMSISE00_IMPLEMENTATION +} +#endif + + +/* ------------------------------------------------------------------- */ +/* ----------------------- COMPILATION TWEAKS ------------------------ */ +/* ------------------------------------------------------------------- */ + +/* "inlining" of functions */ +/* Some compilers (e.g. gcc) allow the inlining of functions into the + * calling routine. This means a lot of overhead can be removed, and + * the execution of the program runs much faster. However, the filesize + * and thus the loading time is increased. + */ +#ifdef INLINE +#define __inline_double static inline double +#else +#define __inline_double double +#endif diff --git a/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00_data.c b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00_data.c new file mode 100644 index 000000000..694399211 --- /dev/null +++ b/Src/Celbody/Atmosphere/EarthAtmNRLMSISE00/nrlmsise-00_data.c @@ -0,0 +1,740 @@ +/* -------------------------------------------------------------------- */ +/* --------- N R L M S I S E - 0 0 M O D E L 2 0 0 1 ---------- */ +/* -------------------------------------------------------------------- */ + +/* This file is part of the NRLMSISE-00 C source code package - release + * 20020503 + * + * The NRLMSISE-00 model was developed by Mike Picone, Alan Hedin, and + * Doug Drob. They also wrote a NRLMSISE-00 distribution package in + * FORTRAN which is available at + * http://uap-www.nrl.navy.mil/models_web/msis/msis_home.htm + * + * Dominik Brodowski implemented and maintains this C version. You can + * reach him at devel@brodo.de. See the file "DOCUMENTATION" for details, + * and check http://www.brodo.de/english/pub/nrlmsise/index.html for + * updated releases of this package. + */ + + + +/* ------------------------------------------------------------------- */ +/* ------------------------ BLOCK DATA GTD7BK ------------------------ */ +/* ------------------------------------------------------------------- */ + +/* TEMPERATURE */ +double pt[150] = { + 9.86573E-01, 1.62228E-02, 1.55270E-02,-1.04323E-01,-3.75801E-03, + -1.18538E-03,-1.24043E-01, 4.56820E-03, 8.76018E-03,-1.36235E-01, + -3.52427E-02, 8.84181E-03,-5.92127E-03,-8.61650E+00, 0.00000E+00, + 1.28492E-02, 0.00000E+00, 1.30096E+02, 1.04567E-02, 1.65686E-03, + -5.53887E-06, 2.97810E-03, 0.00000E+00, 5.13122E-03, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.27026E-06, + 0.00000E+00, 6.74494E+00, 4.93933E-03, 2.21656E-03, 2.50802E-03, + 0.00000E+00, 0.00000E+00,-2.08841E-02,-1.79873E+00, 1.45103E-03, + 2.81769E-04,-1.44703E-03,-5.16394E-05, 8.47001E-02, 1.70147E-01, + 5.72562E-03, 5.07493E-05, 4.36148E-03, 1.17863E-04, 4.74364E-03, + 6.61278E-03, 4.34292E-05, 1.44373E-03, 2.41470E-05, 2.84426E-03, + 8.56560E-04, 2.04028E-03, 0.00000E+00,-3.15994E+03,-2.46423E-03, + 1.13843E-03, 4.20512E-04, 0.00000E+00,-9.77214E+01, 6.77794E-03, + 5.27499E-03, 1.14936E-03, 0.00000E+00,-6.61311E-03,-1.84255E-02, + -1.96259E-02, 2.98618E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 6.44574E+02, 8.84668E-04, 5.05066E-04, 0.00000E+00, 4.02881E+03, + -1.89503E-03, 0.00000E+00, 0.00000E+00, 8.21407E-04, 2.06780E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -1.20410E-02,-3.63963E-03, 9.92070E-05,-1.15284E-04,-6.33059E-05, + -6.05545E-01, 8.34218E-03,-9.13036E+01, 3.71042E-04, 0.00000E+00, + 4.19000E-04, 2.70928E-03, 3.31507E-03,-4.44508E-03,-4.96334E-03, + -1.60449E-03, 3.95119E-03, 2.48924E-03, 5.09815E-04, 4.05302E-03, + 2.24076E-03, 0.00000E+00, 6.84256E-03, 4.66354E-04, 0.00000E+00, + -3.68328E-04, 0.00000E+00, 0.00000E+00,-1.46870E+02, 0.00000E+00, + 0.00000E+00, 1.09501E-03, 4.65156E-04, 5.62583E-04, 3.21596E+00, + 6.43168E-04, 3.14860E-03, 3.40738E-03, 1.78481E-03, 9.62532E-04, + 5.58171E-04, 3.43731E+00,-2.33195E-01, 5.10289E-04, 0.00000E+00, + 0.00000E+00,-9.25347E+04, 0.00000E+00,-1.99639E-03, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}; + +double pd[9][150] = { +/* HE DENSITY */ { + 1.09979E+00,-4.88060E-02,-1.97501E-01,-9.10280E-02,-6.96558E-03, + 2.42136E-02, 3.91333E-01,-7.20068E-03,-3.22718E-02, 1.41508E+00, + 1.68194E-01, 1.85282E-02, 1.09384E-01,-7.24282E+00, 0.00000E+00, + 2.96377E-01,-4.97210E-02, 1.04114E+02,-8.61108E-02,-7.29177E-04, + 1.48998E-06, 1.08629E-03, 0.00000E+00, 0.00000E+00, 8.31090E-02, + 1.12818E-01,-5.75005E-02,-1.29919E-02,-1.78849E-02,-2.86343E-06, + 0.00000E+00,-1.51187E+02,-6.65902E-03, 0.00000E+00,-2.02069E-03, + 0.00000E+00, 0.00000E+00, 4.32264E-02,-2.80444E+01,-3.26789E-03, + 2.47461E-03, 0.00000E+00, 0.00000E+00, 9.82100E-02, 1.22714E-01, + -3.96450E-02, 0.00000E+00,-2.76489E-03, 0.00000E+00, 1.87723E-03, + -8.09813E-03, 4.34428E-05,-7.70932E-03, 0.00000E+00,-2.28894E-03, + -5.69070E-03,-5.22193E-03, 6.00692E-03,-7.80434E+03,-3.48336E-03, + -6.38362E-03,-1.82190E-03, 0.00000E+00,-7.58976E+01,-2.17875E-02, + -1.72524E-02,-9.06287E-03, 0.00000E+00, 2.44725E-02, 8.66040E-02, + 1.05712E-01, 3.02543E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -6.01364E+03,-5.64668E-03,-2.54157E-03, 0.00000E+00, 3.15611E+02, + -5.69158E-03, 0.00000E+00, 0.00000E+00,-4.47216E-03,-4.49523E-03, + 4.64428E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 4.51236E-02, 2.46520E-02, 6.17794E-03, 0.00000E+00, 0.00000E+00, + -3.62944E-01,-4.80022E-02,-7.57230E+01,-1.99656E-03, 0.00000E+00, + -5.18780E-03,-1.73990E-02,-9.03485E-03, 7.48465E-03, 1.53267E-02, + 1.06296E-02, 1.18655E-02, 2.55569E-03, 1.69020E-03, 3.51936E-02, + -1.81242E-02, 0.00000E+00,-1.00529E-01,-5.10574E-03, 0.00000E+00, + 2.10228E-03, 0.00000E+00, 0.00000E+00,-1.73255E+02, 5.07833E-01, + -2.41408E-01, 8.75414E-03, 2.77527E-03,-8.90353E-05,-5.25148E+00, + -5.83899E-03,-2.09122E-02,-9.63530E-03, 9.77164E-03, 4.07051E-03, + 2.53555E-04,-5.52875E+00,-3.55993E-01,-2.49231E-03, 0.00000E+00, + 0.00000E+00, 2.86026E+01, 0.00000E+00, 3.42722E-04, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* O DENSITY */ { + 1.02315E+00,-1.59710E-01,-1.06630E-01,-1.77074E-02,-4.42726E-03, + 3.44803E-02, 4.45613E-02,-3.33751E-02,-5.73598E-02, 3.50360E-01, + 6.33053E-02, 2.16221E-02, 5.42577E-02,-5.74193E+00, 0.00000E+00, + 1.90891E-01,-1.39194E-02, 1.01102E+02, 8.16363E-02, 1.33717E-04, + 6.54403E-06, 3.10295E-03, 0.00000E+00, 0.00000E+00, 5.38205E-02, + 1.23910E-01,-1.39831E-02, 0.00000E+00, 0.00000E+00,-3.95915E-06, + 0.00000E+00,-7.14651E-01,-5.01027E-03, 0.00000E+00,-3.24756E-03, + 0.00000E+00, 0.00000E+00, 4.42173E-02,-1.31598E+01,-3.15626E-03, + 1.24574E-03,-1.47626E-03,-1.55461E-03, 6.40682E-02, 1.34898E-01, + -2.42415E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 6.13666E-04, + -5.40373E-03, 2.61635E-05,-3.33012E-03, 0.00000E+00,-3.08101E-03, + -2.42679E-03,-3.36086E-03, 0.00000E+00,-1.18979E+03,-5.04738E-02, + -2.61547E-03,-1.03132E-03, 1.91583E-04,-8.38132E+01,-1.40517E-02, + -1.14167E-02,-4.08012E-03, 1.73522E-04,-1.39644E-02,-6.64128E-02, + -6.85152E-02,-1.34414E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 6.07916E+02,-4.12220E-03,-2.20996E-03, 0.00000E+00, 1.70277E+03, + -4.63015E-03, 0.00000E+00, 0.00000E+00,-2.25360E-03,-2.96204E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 3.92786E-02, 1.31186E-02,-1.78086E-03, 0.00000E+00, 0.00000E+00, + -3.90083E-01,-2.84741E-02,-7.78400E+01,-1.02601E-03, 0.00000E+00, + -7.26485E-04,-5.42181E-03,-5.59305E-03, 1.22825E-02, 1.23868E-02, + 6.68835E-03,-1.03303E-02,-9.51903E-03, 2.70021E-04,-2.57084E-02, + -1.32430E-02, 0.00000E+00,-3.81000E-02,-3.16810E-03, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-9.05762E-04,-2.14590E-03,-1.17824E-03, 3.66732E+00, + -3.79729E-04,-6.13966E-03,-5.09082E-03,-1.96332E-03,-3.08280E-03, + -9.75222E-04, 4.03315E+00,-2.52710E-01, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* N2 DENSITY */ { + 1.16112E+00, 0.00000E+00, 0.00000E+00, 3.33725E-02, 0.00000E+00, + 3.48637E-02,-5.44368E-03, 0.00000E+00,-6.73940E-02, 1.74754E-01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00, + 1.26733E-01, 0.00000E+00, 1.03154E+02, 5.52075E-02, 0.00000E+00, + 0.00000E+00, 8.13525E-04, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-2.50482E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.48894E-03, + 6.16053E-04,-5.79716E-04, 2.95482E-03, 8.47001E-02, 1.70147E-01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* TLB */ { + 9.44846E-01, 0.00000E+00, 0.00000E+00,-3.08617E-02, 0.00000E+00, + -2.44019E-02, 6.48607E-03, 0.00000E+00, 3.08181E-02, 4.59392E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00, + 2.13260E-02, 0.00000E+00,-3.56958E+02, 0.00000E+00, 1.82278E-04, + 0.00000E+00, 3.07472E-04, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 3.83054E-03, 0.00000E+00, 0.00000E+00, + -1.93065E-03,-1.45090E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.23493E-03, 1.36736E-03, 8.47001E-02, 1.70147E-01, + 3.71469E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 5.10250E-03, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 3.68756E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* O2 DENSITY */ { + 1.35580E+00, 1.44816E-01, 0.00000E+00, 6.07767E-02, 0.00000E+00, + 2.94777E-02, 7.46900E-02, 0.00000E+00,-9.23822E-02, 8.57342E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.38636E+01, 0.00000E+00, + 7.71653E-02, 0.00000E+00, 8.18751E+01, 1.87736E-02, 0.00000E+00, + 0.00000E+00, 1.49667E-02, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-3.67874E+02, 5.48158E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01, + 1.22631E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 8.17187E-03, 3.71617E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.10826E-03, + -3.13640E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -7.35742E-02,-5.00266E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 1.94965E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* AR DENSITY */ { + 1.04761E+00, 2.00165E-01, 2.37697E-01, 3.68552E-02, 0.00000E+00, + 3.57202E-02,-2.14075E-01, 0.00000E+00,-1.08018E-01,-3.73981E-01, + 0.00000E+00, 3.10022E-02,-1.16305E-03,-2.07596E+01, 0.00000E+00, + 8.64502E-02, 0.00000E+00, 9.74908E+01, 5.16707E-02, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 3.46193E+02, 1.34297E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.48509E-03, + -1.54689E-04, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01, + 1.47753E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 1.89320E-02, 3.68181E-05, 1.32570E-02, 0.00000E+00, 0.00000E+00, + 3.59719E-03, 7.44328E-03,-1.00023E-03,-6.50528E+03, 0.00000E+00, + 1.03485E-02,-1.00983E-03,-4.06916E-03,-6.60864E+01,-1.71533E-02, + 1.10605E-02, 1.20300E-02,-5.20034E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -2.62769E+03, 7.13755E-03, 4.17999E-03, 0.00000E+00, 1.25910E+04, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.23595E-03, 4.60217E-03, + 5.71794E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -3.18353E-02,-2.35526E-02,-1.36189E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.03522E-02,-6.67837E+01,-1.09724E-03, 0.00000E+00, + -1.38821E-02, 1.60468E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.51574E-02, + -5.44470E-04, 0.00000E+00, 7.28224E-02, 6.59413E-02, 0.00000E+00, + -5.15692E-03, 0.00000E+00, 0.00000E+00,-3.70367E+03, 0.00000E+00, + 0.00000E+00, 1.36131E-02, 5.38153E-03, 0.00000E+00, 4.76285E+00, + -1.75677E-02, 2.26301E-02, 0.00000E+00, 1.76631E-02, 4.77162E-03, + 0.00000E+00, 5.39354E+00, 0.00000E+00,-7.51710E-03, 0.00000E+00, + 0.00000E+00,-8.82736E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* H DENSITY */ { + 1.26376E+00,-2.14304E-01,-1.49984E-01, 2.30404E-01, 2.98237E-02, + 2.68673E-02, 2.96228E-01, 2.21900E-02,-2.07655E-02, 4.52506E-01, + 1.20105E-01, 3.24420E-02, 4.24816E-02,-9.14313E+00, 0.00000E+00, + 2.47178E-02,-2.88229E-02, 8.12805E+01, 5.10380E-02,-5.80611E-03, + 2.51236E-05,-1.24083E-02, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01,-3.48190E-02, 0.00000E+00, 0.00000E+00, 2.89885E-05, + 0.00000E+00, 1.53595E+02,-1.68604E-02, 0.00000E+00, 1.01015E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.84552E-04, + -1.22181E-03, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01, + -1.04927E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.91313E-03, + -2.30501E-02, 3.14758E-05, 0.00000E+00, 0.00000E+00, 1.26956E-02, + 8.35489E-03, 3.10513E-04, 0.00000E+00, 3.42119E+03,-2.45017E-03, + -4.27154E-04, 5.45152E-04, 1.89896E-03, 2.89121E+01,-6.49973E-03, + -1.93855E-02,-1.48492E-02, 0.00000E+00,-5.10576E-02, 7.87306E-02, + 9.51981E-02,-1.49422E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 2.65503E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 6.37110E-03, 3.24789E-04, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 6.14274E-02, 1.00376E-02,-8.41083E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.27099E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -3.94077E-03,-1.28601E-02,-7.97616E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-6.71465E-03,-1.69799E-03, 1.93772E-03, 3.81140E+00, + -7.79290E-03,-1.82589E-02,-1.25860E-02,-1.04311E-02,-3.02465E-03, + 2.43063E-03, 3.63237E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* N DENSITY */ { + 7.09557E+01,-3.26740E-01, 0.00000E+00,-5.16829E-01,-1.71664E-03, + 9.09310E-02,-6.71500E-01,-1.47771E-01,-9.27471E-02,-2.30862E-01, + -1.56410E-01, 1.34455E-02,-1.19717E-01, 2.52151E+00, 0.00000E+00, + -2.41582E-01, 5.92939E-02, 4.39756E+00, 9.15280E-02, 4.41292E-03, + 0.00000E+00, 8.66807E-03, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 9.74701E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 6.70217E+01,-1.31660E-03, 0.00000E+00,-1.65317E-02, + 0.00000E+00, 0.00000E+00, 8.50247E-02, 2.77428E+01, 4.98658E-03, + 6.15115E-03, 9.50156E-03,-2.12723E-02, 8.47001E-02, 1.70147E-01, + -2.38645E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.37380E-03, + -8.41918E-03, 2.80145E-05, 7.12383E-03, 0.00000E+00,-1.66209E-02, + 1.03533E-04,-1.68898E-02, 0.00000E+00, 3.64526E+03, 0.00000E+00, + 6.54077E-03, 3.69130E-04, 9.94419E-04, 8.42803E+01,-1.16124E-02, + -7.74414E-03,-1.68844E-03, 1.42809E-03,-1.92955E-03, 1.17225E-01, + -2.41512E-02, 1.50521E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 1.60261E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.54403E-04,-1.87270E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 2.76439E-02, 6.43207E-03,-3.54300E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-2.80221E-02, 8.11228E+01,-6.75255E-04, 0.00000E+00, + -1.05162E-02,-3.48292E-03,-6.97321E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.45546E-03,-1.31970E-02,-3.57751E-03,-1.09021E+00, + -1.50181E-02,-7.12841E-03,-6.64590E-03,-3.52610E-03,-1.87773E-02, + -2.22432E-03,-3.93895E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}, /* HOT O DENSITY */ { + 6.04050E-02, 1.57034E+00, 2.99387E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.51018E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.61650E+00, 1.26454E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 5.50878E-03, 0.00000E+00, 0.00000E+00, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 6.23881E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 8.47001E-02, 1.70147E-01, + -9.45934E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}}; +/* S PARAM */ +double ps[150] = { + 9.56827E-01, 6.20637E-02, 3.18433E-02, 0.00000E+00, 0.00000E+00, + 3.94900E-02, 0.00000E+00, 0.00000E+00,-9.24882E-03,-7.94023E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.74712E+02, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.74677E-03, 0.00000E+00, 1.54951E-02, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-6.99007E-04, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 1.24362E-02,-5.28756E-03, 8.47001E-02, 1.70147E-01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.47425E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}; + +/* TURBO */ +double pdl[2][25] = { + { 1.09930E+00, 3.90631E+00, 3.07165E+00, 9.86161E-01, 1.63536E+01, + 4.63830E+00, 1.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 1.28840E+00, 3.10302E-02, 1.18339E-01 }, + { 1.00000E+00, 7.00000E-01, 1.15020E+00, 3.44689E+00, 1.28840E+00, + 1.00000E+00, 1.08738E+00, 1.22947E+00, 1.10016E+00, 7.34129E-01, + 1.15241E+00, 2.22784E+00, 7.95046E-01, 4.01612E+00, 4.47749E+00, + 1.23435E+02,-7.60535E-02, 1.68986E-06, 7.44294E-01, 1.03604E+00, + 1.72783E+02, 1.15020E+00, 3.44689E+00,-7.46230E-01, 9.49154E-01 } +}; +/* LOWER BOUNDARY */ +double ptm[50] = { + 1.04130E+03, 3.86000E+02, 1.95000E+02, 1.66728E+01, 2.13000E+02, + 1.20000E+02, 2.40000E+02, 1.87000E+02,-2.00000E+00, 0.00000E+00 +}; +double pdm[8][10] = { +{ 2.45600E+07, 6.71072E-06, 1.00000E+02, 0.00000E+00, 1.10000E+02, + 1.00000E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 },\ +{ 8.59400E+10, 1.00000E+00, 1.05000E+02,-8.00000E+00, 1.10000E+02, + 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00 },\ +{ 2.81000E+11, 0.00000E+00, 1.05000E+02, 2.80000E+01, 2.89500E+01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 }, +{ 3.30000E+10, 2.68270E-01, 1.05000E+02, 1.00000E+00, 1.10000E+02, + 1.00000E+01, 1.10000E+02,-1.00000E+01, 0.00000E+00, 0.00000E+00 }, +{ 1.33000E+09, 1.19615E-02, 1.05000E+02, 0.00000E+00, 1.10000E+02, + 1.00000E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 }, +{ 1.76100E+05, 1.00000E+00, 9.50000E+01,-8.00000E+00, 1.10000E+02, + 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00, }, +{ 1.00000E+07, 1.00000E+00, 1.05000E+02,-8.00000E+00, 1.10000E+02, + 1.00000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 0.00000E+00 }, +{ 1.00000E+06, 1.00000E+00, 1.05000E+02,-8.00000E+00, 5.50000E+02, + 7.60000E+01, 9.00000E+01, 2.00000E+00, 0.00000E+00, 4.00000E+03 }}; + + +double ptl[4][100] = { +/* TN1(2) */ { + 1.00858E+00, 4.56011E-02,-2.22972E-02,-5.44388E-02, 5.23136E-04, + -1.88849E-02, 5.23707E-02,-9.43646E-03, 6.31707E-03,-7.80460E-02, + -4.88430E-02, 0.00000E+00, 0.00000E+00,-7.60250E+00, 0.00000E+00, + -1.44635E-02,-1.76843E-02,-1.21517E+02, 2.85647E-02, 0.00000E+00, + 0.00000E+00, 6.31792E-04, 0.00000E+00, 5.77197E-03, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-8.90272E+03, 3.30611E-03, 3.02172E-03, 0.00000E+00, + -2.13673E-03,-3.20910E-04, 0.00000E+00, 0.00000E+00, 2.76034E-03, + 2.82487E-03,-2.97592E-04,-4.21534E-03, 8.47001E-02, 1.70147E-01, + 8.96456E-03, 0.00000E+00,-1.08596E-02, 0.00000E+00, 0.00000E+00, + 5.57917E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 9.65405E-03, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN1(3) */ { + 9.39664E-01, 8.56514E-02,-6.79989E-03, 2.65929E-02,-4.74283E-03, + 1.21855E-02,-2.14905E-02, 6.49651E-03,-2.05477E-02,-4.24952E-02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.19148E+01, 0.00000E+00, + 1.18777E-02,-7.28230E-02,-8.15965E+01, 1.73887E-02, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-1.44691E-02, 2.80259E-04, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.16584E+02, 3.18713E-03, 7.37479E-03, 0.00000E+00, + -2.55018E-03,-3.92806E-03, 0.00000E+00, 0.00000E+00,-2.89757E-03, + -1.33549E-03, 1.02661E-03, 3.53775E-04, 8.47001E-02, 1.70147E-01, + -9.17497E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 3.56082E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.00902E-02, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN1(4) */ { + 9.85982E-01,-4.55435E-02, 1.21106E-02, 2.04127E-02,-2.40836E-03, + 1.11383E-02,-4.51926E-02, 1.35074E-02,-6.54139E-03, 1.15275E-01, + 1.28247E-01, 0.00000E+00, 0.00000E+00,-5.30705E+00, 0.00000E+00, + -3.79332E-02,-6.24741E-02, 7.71062E-01, 2.96315E-02, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 6.81051E-03,-4.34767E-03, 8.66784E-02, + 1.58727E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 1.07003E+01,-2.76907E-03, 4.32474E-04, 0.00000E+00, + 1.31497E-03,-6.47517E-04, 0.00000E+00,-2.20621E+01,-1.10804E-03, + -8.09338E-04, 4.18184E-04, 4.29650E-03, 8.47001E-02, 1.70147E-01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -4.04337E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-9.52550E-04, + 8.56253E-04, 4.33114E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.21223E-03, + 2.38694E-04, 9.15245E-04, 1.28385E-03, 8.67668E-04,-5.61425E-06, + 1.04445E+00, 3.41112E+01, 0.00000E+00,-8.40704E-01,-2.39639E+02, + 7.06668E-01,-2.05873E+01,-3.63696E-01, 2.39245E+01, 0.00000E+00, + -1.06657E-03,-7.67292E-04, 1.54534E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN1(5) TN2(1) */ { + 1.00320E+00, 3.83501E-02,-2.38983E-03, 2.83950E-03, 4.20956E-03, + 5.86619E-04, 2.19054E-02,-1.00946E-02,-3.50259E-03, 4.17392E-02, + -8.44404E-03, 0.00000E+00, 0.00000E+00, 4.96949E+00, 0.00000E+00, + -7.06478E-03,-1.46494E-02, 3.13258E+01,-1.86493E-03, 0.00000E+00, + -1.67499E-02, 0.00000E+00, 0.00000E+00, 5.12686E-04, 8.66784E-02, + 1.58727E-01,-4.64167E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 4.37353E-03,-1.99069E+02, 0.00000E+00,-5.34884E-03, 0.00000E+00, + 1.62458E-03, 2.93016E-03, 2.67926E-03, 5.90449E+02, 0.00000E+00, + 0.00000E+00,-1.17266E-03,-3.58890E-04, 8.47001E-02, 1.70147E-01, + 0.00000E+00, 0.00000E+00, 1.38673E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.60571E-03, + 6.28078E-04, 5.05469E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.57829E-03, + -4.00855E-04, 5.04077E-05,-1.39001E-03,-2.33406E-03,-4.81197E-04, + 1.46758E+00, 6.20332E+00, 0.00000E+00, 3.66476E-01,-6.19760E+01, + 3.09198E-01,-1.98999E+01, 0.00000E+00,-3.29933E+02, 0.00000E+00, + -1.10080E-03,-9.39310E-05, 1.39638E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +} }; + +double pma[10][100] = { +/* TN2(2) */ { + 9.81637E-01,-1.41317E-03, 3.87323E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.58707E-02, + -8.63658E-03, 0.00000E+00, 0.00000E+00,-2.02226E+00, 0.00000E+00, + -8.69424E-03,-1.91397E-02, 8.76779E+01, 4.52188E-03, 0.00000E+00, + 2.23760E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-7.07572E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + -4.11210E-03, 3.50060E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-8.36657E-03, 1.61347E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-1.45130E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.24152E-03, + 6.43365E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.33255E-03, + 2.42657E-03, 1.60666E-03,-1.85728E-03,-1.46874E-03,-4.79163E-06, + 1.22464E+00, 3.53510E+01, 0.00000E+00, 4.49223E-01,-4.77466E+01, + 4.70681E-01, 8.41861E+00,-2.88198E-01, 1.67854E+02, 0.00000E+00, + 7.11493E-04, 6.05601E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN2(3) */ { + 1.00422E+00,-7.11212E-03, 5.24480E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.28914E-02, + -2.41301E-02, 0.00000E+00, 0.00000E+00,-2.12219E+01,-1.03830E-02, + -3.28077E-03, 1.65727E-02, 1.68564E+00,-6.68154E-03, 0.00000E+00, + 1.45155E-02, 0.00000E+00, 8.42365E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-4.34645E-03, 0.00000E+00, 0.00000E+00, 2.16780E-02, + 0.00000E+00,-1.38459E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 7.04573E-03,-4.73204E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 1.08767E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.08279E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.21769E-04, + -2.27387E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.26769E-03, + 3.16901E-03, 4.60316E-04,-1.01431E-04, 1.02131E-03, 9.96601E-04, + 1.25707E+00, 2.50114E+01, 0.00000E+00, 4.24472E-01,-2.77655E+01, + 3.44625E-01, 2.75412E+01, 0.00000E+00, 7.94251E+02, 0.00000E+00, + 2.45835E-03, 1.38871E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN2(4) TN3(1) */ { + 1.01890E+00,-2.46603E-02, 1.00078E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-6.70977E-02, + -4.02286E-02, 0.00000E+00, 0.00000E+00,-2.29466E+01,-7.47019E-03, + 2.26580E-03, 2.63931E-02, 3.72625E+01,-6.39041E-03, 0.00000E+00, + 9.58383E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.85291E-03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 1.39717E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 9.19771E-03,-3.69121E+02, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-1.57067E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.07265E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.92953E-03, + -2.77739E-03,-4.40092E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.47280E-03, + 2.95035E-04,-1.81246E-03, 2.81945E-03, 4.27296E-03, 9.78863E-04, + 1.40545E+00,-6.19173E+00, 0.00000E+00, 0.00000E+00,-7.93632E+01, + 4.44643E-01,-4.03085E+02, 0.00000E+00, 1.15603E+01, 0.00000E+00, + 2.25068E-03, 8.48557E-04,-2.98493E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN3(2) */ { + 9.75801E-01, 3.80680E-02,-3.05198E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.85575E-02, + 5.04057E-02, 0.00000E+00, 0.00000E+00,-1.76046E+02, 1.44594E-02, + -1.48297E-03,-3.68560E-03, 3.02185E+01,-3.23338E-03, 0.00000E+00, + 1.53569E-02, 0.00000E+00,-1.15558E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 4.89620E-03, 0.00000E+00, 0.00000E+00,-1.00616E-02, + -8.21324E-03,-1.57757E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 6.63564E-03, 4.58410E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-2.51280E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 9.91215E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-8.73148E-04, + -1.29648E-03,-7.32026E-05, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.68110E-03, + -4.66003E-03,-1.31567E-03,-7.39390E-04, 6.32499E-04,-4.65588E-04, + -1.29785E+00,-1.57139E+02, 0.00000E+00, 2.58350E-01,-3.69453E+01, + 4.10672E-01, 9.78196E+00,-1.52064E-01,-3.85084E+03, 0.00000E+00, + -8.52706E-04,-1.40945E-03,-7.26786E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN3(3) */ { + 9.60722E-01, 7.03757E-02,-3.00266E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.22671E-02, + 4.10423E-02, 0.00000E+00, 0.00000E+00,-1.63070E+02, 1.06073E-02, + 5.40747E-04, 7.79481E-03, 1.44908E+02, 1.51484E-04, 0.00000E+00, + 1.97547E-02, 0.00000E+00,-1.41844E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 5.77884E-03, 0.00000E+00, 0.00000E+00, 9.74319E-03, + 0.00000E+00,-2.88015E+03, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-4.44902E-03,-2.92760E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 2.34419E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.36685E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.65325E-04, + -5.50628E-04, 3.31465E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.06179E-03, + -3.08575E-03,-7.93589E-04,-1.08629E-04, 5.95511E-04,-9.05050E-04, + 1.18997E+00, 4.15924E+01, 0.00000E+00,-4.72064E-01,-9.47150E+02, + 3.98723E-01, 1.98304E+01, 0.00000E+00, 3.73219E+03, 0.00000E+00, + -1.50040E-03,-1.14933E-03,-1.56769E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN3(4) */ { + 1.03123E+00,-7.05124E-02, 8.71615E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-3.82621E-02, + -9.80975E-03, 0.00000E+00, 0.00000E+00, 2.89286E+01, 9.57341E-03, + 0.00000E+00, 0.00000E+00, 8.66153E+01, 7.91938E-04, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 4.68917E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 7.86638E-03, 0.00000E+00, 0.00000E+00, 9.90827E-03, + 0.00000E+00, 6.55573E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-4.00200E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 7.07457E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.72268E-03, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.04970E-04, + 1.21560E-03,-8.05579E-06, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.49941E-03, + -4.57256E-04,-1.59311E-04, 2.96481E-04,-1.77318E-03,-6.37918E-04, + 1.02395E+00, 1.28172E+01, 0.00000E+00, 1.49903E-01,-2.63818E+01, + 0.00000E+00, 4.70628E+01,-2.22139E-01, 4.82292E-02, 0.00000E+00, + -8.67075E-04,-5.86479E-04, 5.32462E-04, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TN3(5) SURFACE TEMP TSL */ { + 1.00828E+00,-9.10404E-02,-2.26549E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-2.32420E-02, + -9.08925E-03, 0.00000E+00, 0.00000E+00, 3.36105E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-1.24957E+01,-5.87939E-03, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.79765E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.01237E+03, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-1.75553E-02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.29699E-03, + 1.26659E-03, 2.68402E-04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 1.17894E-03, + 1.48746E-03, 1.06478E-04, 1.34743E-04,-2.20939E-03,-6.23523E-04, + 6.36539E-01, 1.13621E+01, 0.00000E+00,-3.93777E-01, 2.38687E+03, + 0.00000E+00, 6.61865E+02,-1.21434E-01, 9.27608E+00, 0.00000E+00, + 1.68478E-04, 1.24892E-03, 1.71345E-03, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TGN3(2) SURFACE GRAD TSLG */ { + 1.57293E+00,-6.78400E-01, 6.47500E-01, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-7.62974E-02, + -3.60423E-01, 0.00000E+00, 0.00000E+00, 1.28358E+02, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 4.68038E+01, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.67898E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.90994E+04, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.15706E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TGN2(1) TGN1(2) */ { + 8.60028E-01, 3.77052E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.17570E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 7.77757E-03, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 1.01024E+02, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 6.54251E+02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00,-1.56959E-02, + 1.91001E-02, 3.15971E-02, 1.00982E-02,-6.71565E-03, 2.57693E-03, + 1.38692E+00, 2.82132E-01, 0.00000E+00, 0.00000E+00, 3.81511E+02, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +}, /* TGN3(1) TGN2(2) */ { + 1.06029E+00,-5.25231E-02, 3.73034E-01, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.31072E-02, + -3.88409E-01, 0.00000E+00, 0.00000E+00,-1.65295E+02,-2.13801E-01, + -4.38916E-02,-3.22716E-01,-8.82393E+01, 1.18458E-01, 0.00000E+00, + -4.35863E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00,-1.19782E-01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 2.62229E+01, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00,-5.37443E+01, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00,-4.55788E-01, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 3.84009E-02, + 3.96733E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 5.05494E-02, + 7.39617E-02, 1.92200E-02,-8.46151E-03,-1.34244E-02, 1.96338E-02, + 1.50421E+00, 1.88368E+01, 0.00000E+00, 0.00000E+00,-5.13114E+01, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 5.11923E-02, 3.61225E-02, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 2.00000E+00 +} }; + +/* SEMIANNUAL MULT SAM */ +double sam[100] = { + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, 1.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, + 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00, 0.00000E+00 +}; + + +/* MIDDLE ATMOSPHERE AVERAGES */ +double pavgm[10] = { + 2.61000E+02, 2.64000E+02, 2.29000E+02, 2.17000E+02, 2.17000E+02, + 2.23000E+02, 2.86760E+02,-2.93940E+00, 2.50000E+00, 0.00000E+00 }; + diff --git a/Src/Celbody/Atmosphere/MarsAtm2006/CMakeLists.txt b/Src/Celbody/Atmosphere/MarsAtm2006/CMakeLists.txt new file mode 100644 index 000000000..6135b2482 --- /dev/null +++ b/Src/Celbody/Atmosphere/MarsAtm2006/CMakeLists.txt @@ -0,0 +1,35 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +set(ATM_TARGET MarsAtm2006) + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${ORBITER_BINARY_CELBODY_DIR}/${CELBODY}/Atmosphere) + +add_library(${ATM_TARGET} SHARED + MarsAtm2006.cpp +) + +add_dependencies(${ATM_TARGET} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${ATM_TARGET} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include +) + +target_link_libraries(${ATM_TARGET} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} +) + +set_target_properties(${ATM_TARGET} + PROPERTIES + FOLDER Celbody/Atmospheres +) + +# Installation +install(TARGETS ${ATM_TARGET} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR}/Mars/Atmosphere +) diff --git a/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.cpp b/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.cpp new file mode 100644 index 000000000..bad16ad91 --- /dev/null +++ b/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.cpp @@ -0,0 +1,109 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +// ====================================================================== +// class MarsAtmosphere_2006 +// Mars atmosphere model, as used in Orbiter 2006 +// ====================================================================== + +#define ORBITER_MODULE +#include "MarsAtm2006.h" + +bool MarsAtmosphere_2006::clbkConstants (ATMCONST *atmc) const +{ + atmc->p0 = 0.61e3; + atmc->rho0 = 0.02; + atmc->R = 188.92; + atmc->gamma = 1.2941; + atmc->altlimit = 100e3; + return true; +} + +const char *MarsAtmosphere_2006::clbkName () const +{ + return "2006 Edition model"; +} + +bool MarsAtmosphere_2006::clbkParams (const PRM_IN *prm_in, PRM_OUT *prm) +{ + double alt = (prm_in->flag & PRM_ALT ? prm_in->alt : 0.0); + + const double g0R = 0.0197275; + // g0/R, where g0 is gravitational acceleration at sea level, + // and R is specific gas constant + + // convert geometric to geopotential altitude + const double rad = 3.38992e6; + alt *= rad/(rad+alt); + + double e, t; + + if (alt > 14e3) { + if (alt > 30e3) { + prm->T = 165.0; + e = exp (-g0R/165.0*(alt-30e3)); + prm->p = 2.39322e1 * e; + prm->rho = 9.27323e-4 * e; + } else if (alt > 20e3) { + prm->T = (alt-20e3)*(-1.5e-3)+180.0; + e = pow (t = prm->T/180.0, -g0R/(-1.5e-3)); + prm->p = 7.51564e1 * e; + prm->rho = 2.66947e-3 * e / t; + } else { + prm->T = 180.0; + e = exp (-g0R/180.0*(alt-14e3)); + prm->p = 1.45061e2 * e; + prm->rho = 5.1524e-3 * e; + } + } else { + if (alt > 4e3) { + prm->T = (alt-4e3)*(-2e-3)+200.0; + e = pow (t = prm->T/200.0, -g0R/(-2e-3)); + prm->p = 4.101e2 * e; + prm->rho = 1.31097e-2 * e / t; + } else if (alt > 2e3) { + prm->T = 200.0; + e = exp (-g0R/200.0*(alt-2e3)); + prm->p = 4.99534e2 * e; + prm->rho = 1.59687e-2 * e; + } else { + prm->T = alt*2.5e-3+195.0; + e = pow (t = prm->T/195.0, -g0R/2.5e-3); + prm->p = 610.0 * e; + prm->rho = 0.02 * e / t; + } + } + + return true; +} + + +// ====================================================================== +// API interface +// ====================================================================== + +DLLCLBK void InitModule (HINSTANCE hModule) +{} + +DLLCLBK void ExitModule (HINSTANCE hModule) +{} + +DLLCLBK ATMOSPHERE *CreateAtmosphere (CELBODY2 *cbody) +{ + return new MarsAtmosphere_2006 (cbody); +} + +DLLCLBK void DeleteAtmosphere (ATMOSPHERE *atm) +{ + delete (MarsAtmosphere_2006*)atm; +} + +DLLCLBK char *ModelName () +{ + return (char*)"Orbiter 2006 Mars atmosphere model"; +} + +DLLCLBK char *ModelDesc () +{ + return (char*)"A simple static Mars atmosphere model. This is the model used in Orbiter 2006."; +} \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.h b/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.h new file mode 100644 index 000000000..a0293d33d --- /dev/null +++ b/Src/Celbody/Atmosphere/MarsAtm2006/MarsAtm2006.h @@ -0,0 +1,23 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +#ifndef __MARSATM2006_H +#define __MARSATM2006_H + +#include "OrbiterAPI.h" +#include "CelbodyAPI.h" + +// ====================================================================== +// class MarsAtmosphere_2006 +// Mars atmosphere model, as used in Orbiter 2006 +// ====================================================================== + +class MarsAtmosphere_2006: public ATMOSPHERE { +public: + MarsAtmosphere_2006 (CELBODY2 *body): ATMOSPHERE (body) {} + const char *clbkName () const; + bool clbkConstants (ATMCONST *atmc) const; + bool clbkParams (const PRM_IN *prm_in, PRM_OUT *prm); +}; + +#endif // !__MARSATM2006_H \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/VenusAtm2006/CMakeLists.txt b/Src/Celbody/Atmosphere/VenusAtm2006/CMakeLists.txt new file mode 100644 index 000000000..e54ffb3be --- /dev/null +++ b/Src/Celbody/Atmosphere/VenusAtm2006/CMakeLists.txt @@ -0,0 +1,35 @@ +# Copyright (c) Martin Schweiger +# Licensed under the MIT License + +set(ATM_TARGET VenusAtm2006) + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${ORBITER_BINARY_CELBODY_DIR}/${CELBODY}/Atmosphere) + +add_library(${ATM_TARGET} SHARED + VenusAtm2006.cpp +) + +add_dependencies(${ATM_TARGET} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${ATM_TARGET} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include +) + +target_link_libraries(${ATM_TARGET} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} +) + +set_target_properties(${ATM_TARGET} + PROPERTIES + FOLDER Celbody/Atmospheres +) + +# Installation +install(TARGETS ${ATM_TARGET} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR}/Venus/Atmosphere +) diff --git a/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.cpp b/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.cpp new file mode 100644 index 000000000..5a1d78124 --- /dev/null +++ b/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.cpp @@ -0,0 +1,100 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +// ====================================================================== +// class VenusAtmosphere_2006 +// Venus atmosphere model, as used in Orbiter 2006 +// ====================================================================== + +#define ORBITER_MODULE +#include "VenusAtm2006.h" + +bool VenusAtmosphere_2006::clbkConstants (ATMCONST *atmc) const +{ + atmc->p0 = 9200e3; + atmc->rho0 = 65; + atmc->R = 188.92; + atmc->gamma = 1.2857; + atmc->altlimit = 200e3; + return true; +} + +const char *VenusAtmosphere_2006::clbkName () const +{ + return "2006 Edition model"; +} + +bool VenusAtmosphere_2006::clbkParams (const PRM_IN *prm_in, PRM_OUT *prm) +{ + double alt = (prm_in->flag & PRM_ALT ? prm_in->alt : 0.0); + + const double g0R = 0.0469506; + // g0/R, where g0 is gravitational acceleration at sea level, + // and R is specific gas constant for air + + // convert geometric to geopotential altitude + const double rad = 6.05184e6; + alt *= rad/(rad+alt); + + double e, t; + + if (alt > 90e3) { + prm->T = 180.0; + e = exp (-g0R/180.0*(alt-90e3)); + prm->p = 1.849556e1 * e; + prm->rho = 5.442431e-4 * e; + } else if (alt > 70e3) { + prm->T = 230.0 - (alt-70e3)*0.0025; + e = pow (t = prm->T/230.0, -g0R/(-0.0025)); + prm->p = 1.846393e3 * e; + prm->rho = 4.252010e-2 * e / t; + } else if (alt > 60e3) { + prm->T = 230.0; + e = exp (-g0R/230.0*(alt-60e3)); + prm->p = 1.421879e4 * e; + prm->rho = 3.274408e-1 * e; + } else if (alt > 30e3) { + prm->T = 480.0 - (alt-30e3)*0.00833; + e = pow (t = prm->T/480.0, -g0R/(-0.00833)); + prm->p = 8.967687e5 * e; + prm->rho = 9.89979 * e / t; + } else { + prm->T = 750.0 - alt*0.009; + e = pow (t = prm->T/750.0, -g0R/(-0.009)); + prm->p = 9.2e6 * e; + prm->rho = 65 * e / t; + } + + return true; +} + + +// ====================================================================== +// API interface +// ====================================================================== + +DLLCLBK void InitModule (HINSTANCE hModule) +{} + +DLLCLBK void ExitModule (HINSTANCE hModule) +{} + +DLLCLBK ATMOSPHERE *CreateAtmosphere (CELBODY2 *cbody) +{ + return new VenusAtmosphere_2006 (cbody); +} + +DLLCLBK void DeleteAtmosphere (ATMOSPHERE *atm) +{ + delete (VenusAtmosphere_2006*)atm; +} + +DLLCLBK char *ModelName () +{ + return (char*)"Orbiter 2006 Venus atmosphere model"; +} + +DLLCLBK char *ModelDesc () +{ + return (char*)"A simple static Venus atmosphere model. This is the model used in Orbiter 2006."; +} \ No newline at end of file diff --git a/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.h b/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.h new file mode 100644 index 000000000..28835a271 --- /dev/null +++ b/Src/Celbody/Atmosphere/VenusAtm2006/VenusAtm2006.h @@ -0,0 +1,23 @@ +// Copyright (c) Martin Schweiger +// Licensed under the MIT License + +#ifndef __VENUSATM2006_H +#define __VENUSATM2006_H + +#include "OrbiterAPI.h" +#include "CelbodyAPI.h" + +// ====================================================================== +// class VenusAtmosphere_2006 +// Venus atmosphere model, as used in Orbiter 2006 +// ====================================================================== + +class VenusAtmosphere_2006: public ATMOSPHERE { +public: + VenusAtmosphere_2006 (CELBODY2 *body): ATMOSPHERE (body) {} + const char *clbkName () const; + bool clbkConstants (ATMCONST *atmc) const; + bool clbkParams (const PRM_IN *prm_in, PRM_OUT *prm); +}; + +#endif // !__VENUSATM2006_H \ No newline at end of file diff --git a/Src/Celbody/CMakeLists.txt b/Src/Celbody/CMakeLists.txt index b364525fc..118e2155e 100644 --- a/Src/Celbody/CMakeLists.txt +++ b/Src/Celbody/CMakeLists.txt @@ -1,19 +1,27 @@ # Copyright (c) Martin Schweiger # Licensed under the MIT License -add_subdirectory(Sol) -add_subdirectory(Vsop87) -add_subdirectory(Moon) -add_subdirectory(Phobos) -add_subdirectory(Deimos) -add_subdirectory(Vesta) -add_subdirectory(Galsat) -add_subdirectory(Satsat) -add_subdirectory(Miranda) -add_subdirectory(Ariel) -add_subdirectory(Umbriel) -add_subdirectory(Titania) -add_subdirectory(Oberon) -add_subdirectory(Triton) -add_subdirectory(Proteus) -add_subdirectory(Nereid) + +if(SPICE_BUILD) + add_subdirectory(SPICE) + add_subdirectory(Atmosphere) +else() + add_subdirectory(Sol) + add_subdirectory(Vsop87) + add_subdirectory(Moon) + add_subdirectory(Phobos) + add_subdirectory(Deimos) + add_subdirectory(Vesta) + add_subdirectory(Galsat) + add_subdirectory(Satsat) + add_subdirectory(Miranda) + add_subdirectory(Ariel) + add_subdirectory(Umbriel) + add_subdirectory(Titania) + add_subdirectory(Oberon) + add_subdirectory(Triton) + add_subdirectory(Proteus) + add_subdirectory(Nereid) +endif() + + diff --git a/Src/Celbody/SPICE/CMakeLists.txt b/Src/Celbody/SPICE/CMakeLists.txt new file mode 100644 index 000000000..35880ed0a --- /dev/null +++ b/Src/Celbody/SPICE/CMakeLists.txt @@ -0,0 +1,65 @@ +# Copyright (c) Matthew Hume +# Licensed under the MIT License + +#add_subdirectory(cspice) + +set(CELBODY "spice") + +set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${CMAKE_BINARY_DIR}/Modules/Celbody) + +if(NOT BUILD64 AND CMAKE_CXX_COMPILER_ID STREQUAL "MSVC") + set(SPICE_PLATFORM "cspice/win_x86/") + set(SPICE_LIB_EXTENSION ".lib") +endif() +if(NOT BUILD64 AND CMAKE_CXX_COMPILER_ID STREQUAL "GNUCXX") + set(SPICE_PLATFORM "cspice/linux_x86/") + set(SPICE_LIB_EXTENSION ".a") +endif() +if(BUILD64 AND CMAKE_CXX_COMPILER_ID STREQUAL "MSVC") + set(SPICE_PLATFORM "cspice/win_x64/") + set(SPICE_LIB_EXTENSION ".lib") +endif() +if(BUILD64 AND CMAKE_CXX_COMPILER_ID STREQUAL "GNUCXX") + set(SPICE_PLATFORM "cspice/linux_x64/") + set(SPICE_LIB_EXTENSION ".a") +endif() + +add_library(${CELBODY} SHARED + spice.cpp +) + +add_dependencies(${CELBODY} + ${OrbiterTgt} + Orbitersdk +) + +target_include_directories(${CELBODY} + PUBLIC ${CMAKE_SOURCE_DIR}/Orbitersdk/include/ + ${CMAKE_SOURCE_DIR}/Src/Celbody/SPICE/${SPICE_PLATFORM}/include/ +) + +target_link_libraries(${CELBODY} + ${ORBITER_LIB} + ${ORBITER_SDK_LIB} + ${CMAKE_SOURCE_DIR}/Src/Celbody/SPICE/${SPICE_PLATFORM}/lib/cspice${SPICE_LIB_EXTENSION} +) + +add_custom_command( + TARGET ${CELBODY} PRE_BUILD + COMMAND ${CMAKE_COMMAND} -E copy_directory ${CMAKE_CURRENT_SOURCE_DIR}/Config/ ${CMAKE_BINARY_DIR}/Config +) + +set_target_properties(${CELBODY} + PROPERTIES + FOLDER Celbody +) + +#Installation +install(TARGETS + ${CELBODY} + RUNTIME + DESTINATION ${ORBITER_INSTALL_CELBODY_DIR} +) +install(DIRECTORY Config + DESTINATION ${ORBITER_INSTALL_ROOT_DIR} +) diff --git a/Src/Celbody/SPICE/Config/Amalthea.cfg b/Src/Celbody/SPICE/Config/Amalthea.cfg new file mode 100644 index 000000000..29e13d049 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Amalthea.cfg @@ -0,0 +1,25 @@ +; === Configuration file for moon Amalthea(Jupiter) === +Name = Amalthea +Module = spice +Kernel = Kernels\orbiter.bsp +Body = AMALTHEA +Origin = JUPITER +Barycenter = AMALTHEA +ParentBarycenter = JUPITER BARYCENTER +Interval = 200 ; Error < 0.5m + +; === Physical Parameters === +Mass = 2.2294261709535e18 ; JUP310 GM=1.487604677404272E-01 km^3/s^2 +Size = 83.45e3 ; mean radius [m] + +; === Rotation and precession parameters === +;IAU_AMALTHEA +SidRotPeriod = 43042.68760404124 +SidRotOffset = 1.2580504244749462 +Obliquity = 0.03877820951989607 +LAN = 2.7543739406345957 +LAN_MJD = 51544.5 + +; === Visualisation Parameters === +AlbedoRGB = 0.09 0.09 0.09 +MaxPatchResolution = 8 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Ariel.cfg b/Src/Celbody/SPICE/Config/Ariel.cfg new file mode 100644 index 000000000..c73b59781 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ariel.cfg @@ -0,0 +1,37 @@ +; === Configuration file for moon Ariel(Uranus) === +Name = Ariel +Module = spice +Kernel = Kernels\orbiter.bsp +Body = ARIEL +Origin = URANUS +Barycenter = ARIEL +ParentBarycenter = URANUS BARYCENTER +Interval = 1070 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.27e21 +Mass = 1.250840293165e21 ; URA111 GM=8.346344431770477E+01 km^3/s^2 +Size = 578.9e3 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 2.927971096 +PrecessionObliquity = 1.434574403 +PrecessionPeriod = 257654.6889 +LAN = 4.210000234 +LAN_MJD = 51544.5 +Obliquity = 0.004973358248 +SidRotOffset = 1.745551793 +SidRotPeriod = -217760.7347 +;SidRotPeriod (days): -2.520378873 +;SidRotPeriod (days - node to node): -2.520354219 +;Precession Period (years): 705.4200929 +;Obliquity (deg): 0.2849524376 +;Ecliptic LAN (rad): 2.923570062 +;Ecliptic Obliquity (rad): 1.432180939 +;Ecliptic SidRotOffset (rad): 5.928964569 +;Axis RMS Error (deg): 0.003100267543 + +; === Visualisation Parameters === +AlbedoRGB = 0.25 0.19 0.19 ; by VF2_Rolf +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Callisto.cfg b/Src/Celbody/SPICE/Config/Callisto.cfg new file mode 100644 index 000000000..73c887676 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Callisto.cfg @@ -0,0 +1,31 @@ +; === Configuration file for moon Callisto(Jupiter) === +Name = Callisto +Module = spice +Kernel = Kernels\orbiter.bsp +Body = CALLISTO +Origin = JUPITER +Barycenter = CALLISTO +ParentBarycenter = JUPITER BARYCENTER +Interval = 4000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.076e23 ; mass [kg] +Mass = 1.07593975766697e23 ; JUP310 GM=7.179304867611079E+03 km^3/s^2 +Size = 2.403e6 ; mean radius [m] + +; === Rotation and precession parameters === +; IAU_CALLISTO +SidRotPeriod=1441931.164699689 +SidRotOffset=2.5720003983359656 +Obliquity=0.003664185793567811 +LAN=5.382318038834317 +LAN_MJD=51544.5 +PrecessionPeriod=-146001.3551012368 +PrecessionObliquity=0.03294830421154768 +PrecessionLAN=-3.445390059577569 + + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.38 0.35 0.35 +MaxPatchResolution = 9 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Callisto/Marker/Catenae.mkr b/Src/Celbody/SPICE/Config/Callisto/Marker/Catenae.mkr new file mode 100644 index 000000000..944f2a600 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Callisto/Marker/Catenae.mkr @@ -0,0 +1,14 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++344.50 -8.90 : Eikin Catena ++295.20 +8.20 : Fimbulthul Catena ++12.80 +48.90 : Geirvimul Catena ++305.80 +68.50 : Gipul Catena ++312.90 +35.50 : Gomul Catena ++16.90 -19.50 : Gunntro Catena ++256.10 +49.20 : Sid Catena ++322.80 +10.60 : Svol Catena diff --git a/Src/Celbody/SPICE/Config/Callisto/Marker/Craters.mkr b/Src/Celbody/SPICE/Config/Callisto/Marker/Craters.mkr new file mode 100644 index 000000000..968e1681e --- /dev/null +++ b/Src/Celbody/SPICE/Config/Callisto/Marker/Craters.mkr @@ -0,0 +1,148 @@ +BEGIN_HEADER +InitialState on +ColourIdx 1 +ShapeIdx 1 +END_HEADER + +BEGIN_DATA ++280.30 +75.50 : Adal ++256.20 -45.80 : Aegir ++277.60 -47.70 : Agloolik ++349.10 +43.20 : Ägröi ++257.60 +41.40 : Ahti ++258.60 +22.70 : Ajleke ++41.30 +72.60 : Akycha ++137.30 -9.90 : Alfr ++304.10 +59.00 : Áli ++359.50 +44.00 : Ánarr ++351.80 +50.50 : [Aningan] ++292.50 -85.60 : Arcas ++35.90 +51.80 : Askr ++279.40 -30.90 : Audr ++295.50 -80.90 : Austri ++181.80 +35.40 : Aziren ++348.30 +28.90 : Balkr ++289.50 -31.50 : Barri ++340.00 +49.10 : Bavörr ++279.80 +62.60 : Beli ++285.90 -53.60 : Biflindi ++299.30 +75.50 : Bragi ++341.00 +28.80 : Brami ++154.40 -24.20 : Bran ++36.10 +22.30 : Buga ++314.50 -37.50 : Buri ++225.50 +42.70 : Burr ++286.70 +58.50 : Dag ++283.10 +62.50 : Danr ++193.80 +10.20 : Debegey ++309.50 +73.00 : Dia ++218.60 +30.60 : Doh ++325.20 +80.00 : Dryops ++270.90 +67.00 : Durinn ++324.10 +33.90 : Egdir ++183.40 +42.50 : Egres ++358.70 +66.80 : Erlik ++347.40 +56.60 : Fadir ++10.30 +64.20 : Fili ++355.70 +15.50 : Finnr ++8.30 +79.80 : Freki ++220.10 +68.40 : Frodi ++251.90 +74.00 : Fulla ++324.70 +60.10 : Fulnir ++296.40 -80.50 : Gandalfr ++6.20 +66.70 : Geri ++307.90 -85.30 : Ginandi ++325.40 +57.20 : Gisl ++115.00 +49.00 : Gloi ++40.30 +57.30 : Göll ++245.90 +60.00 : Göndul ++145.40 +41.50 : Grimr ++255.30 +64.60 : Gunnr ++311.20 +63.70 : Gymir ++228.10 +76.20 : Hábrok ++44.90 +25.00 : Haki ++2.00 -3.50 : Hár ++3.00 -63.50 : Heimdall ++336.60 +64.50 : Hepti ++188.50 +63.10 : Hijsi ++270.80 +69.10 : Hödr ++99.10 -33.70 : Hoenir ++355.20 -11.80 : Högni ++251.80 +43.90 : Höldr ++44.00 +5.60 : Igaluk ++192.80 -29.90 : Ilma ++38.60 -5.80 : Ivarr ++277.30 -38.60 : Jalkr ++242.00 +58.90 : Jumal ++348.20 +65.70 : Jumo ++243.70 +48.20 : Kári ++29.40 +56.40 : Karl ++269.10 -76.80 : Keelut ++238.10 +62.90 : Kul' ++40.10 -25.20 : Lempo ++197.70 +49.10 : Ljekio ++89.90 -50.80 : Lodurr ++337.70 -56.50 : Lofn ++145.70 -3.60 : Loni ++36.70 +65.30 : Losy ++354.10 -45.40 : Lycaon ++264.70 +30.70 : Maderatcha ++284.80 +64.10 : Mera ++306.80 +32.60 : Mimir ++256.30 +57.50 : Mitsina ++240.70 +66.40 : Modi ++290.30 -56.40 : Nakki ++29.00 +57.00 : Nama ++314.00 -1.50 : Nár ++303.60 -16.90 : Nerrivik ++265.10 +66.40 : Nidi ++195.70 +31.40 : Nirkes ++227.40 +16.70 : Njord ++16.40 +45.20 : Nori ++247.20 +54.60 : Norov-Ava ++87.50 +62.30 : Nuada ++267.10 -50.10 : Numi-Torum ++356.10 -62.80 : Nyctimus ++296.50 -47.80 : Oluksak ++243.10 +42.30 : Omol' ++312.30 -46.70 : Orestheus ++91.00 +57.50 : Oski ++256.10 +61.50 : Ottar ++354.60 +18.30 : Pekko ++306.10 -71.90 : Randver ++263.50 -66.00 : Reginleif ++269.90 +39.80 : Reginn ++305.70 -50.80 : Reifnir ++115.40 +70.80 : Rigr ++253.90 +53.60 : Rongoteus ++251.60 +27.20 : Rota ++34.10 +0.60 : Saga ++306.50 -3.30 : Sarakka ++334.60 +55.50 : Seqinek ++343.80 +53.70 : Sholmo ++331.00 +35.90 : Sigyn ++328.10 -49.70 : Skeggold ++44.40 +55.60 : Sköll ++322.10 +10.00 : Skuld ++224.40 +55.90 : Sudri ++34.80 +67.10 : Sumbur ++251.40 +30.10 : Tapio ++298.00 -80.30 : Thekkr ++293.30 -31.90 : Thorir ++4.50 -2.30 : Tindr ++259.70 +27.60 : Tontu ++232.40 +28.80 : Tornarsuk ++193.50 +44.80 : Tyll ++127.50 +71.10 : Tyn ++317.80 -49.50 : Uksakka ++113.00 -1.30 : Valfödr ++34.70 +9.70 : Vali ++201.50 +39.50 : Vanapagan ++264.50 +33.30 : Veralden ++307.50 +45.30 : Vestri ++166.60 +12.10 : Vidarr ++10.60 -22.10 : Vitr ++189.70 +21.50 : Vu-Murt ++257.70 +31.60 : Vutash ++260.30 +51.50 : Ymir ++274.30 -54.70 : Yuryung diff --git a/Src/Celbody/SPICE/Config/Callisto/Marker/Faculae.mkr b/Src/Celbody/SPICE/Config/Callisto/Marker/Faculae.mkr new file mode 100644 index 000000000..f8f26e088 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Callisto/Marker/Faculae.mkr @@ -0,0 +1,7 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++77.30 +4.50 : Kol Facula diff --git a/Src/Celbody/SPICE/Config/Callisto/Marker/Large Ringed Features.mkr b/Src/Celbody/SPICE/Config/Callisto/Marker/Large Ringed Features.mkr new file mode 100644 index 000000000..3e1ffb705 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Callisto/Marker/Large Ringed Features.mkr @@ -0,0 +1,10 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++324.40 -48.50 : Adlinda ++220.10 +32.20 : Asgard ++226.00 +45.00 : Utgard ++304.00 +14.70 : Valhalla diff --git a/Src/Celbody/SPICE/Config/Charon.cfg b/Src/Celbody/SPICE/Config/Charon.cfg new file mode 100644 index 000000000..a25484c25 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Charon.cfg @@ -0,0 +1,32 @@ +; === Configuration file for Charon === +Name = Charon +Module = spice +Kernel = Kernels\orbiter.bsp +Body = CHARON +Origin = PLUTO +Barycenter = CHARON +ParentBarycenter = PLUTO BARYCENTER +Interval = 4755 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + + +; === Physical Parameters === +;Mass = 1.58678997001446e21 ; PLU043 GM=1.058799888601881E+02 km^3/s^2 +Mass = 1.5912025658393922e21 ; PLU058 GM=1.061744232879427E+02 km^3/s^2 +Size = 605e3 ; mean radius + +; === Rotation and precession parameters === +;IAU_CHARON +LAN = 0.826428321774908 +Obliquity = 1.9690028654425586 +SidRotOffset = 5.581718395629297 +SidRotPeriod = 551856.0671233265 + +; === Visualisation Parameters === +AlbedoRGB = 0.35 0.35 0.34 + +; === Data for the Visual === +MaxPatchResolution = 8 ; highest sphere patch level + diff --git a/Src/Celbody/SPICE/Config/Deimos.cfg b/Src/Celbody/SPICE/Config/Deimos.cfg new file mode 100644 index 000000000..7bdab3873 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Deimos.cfg @@ -0,0 +1,32 @@ +; === Configuration file for moon Deimos(Mars) === +Name = Deimos +Module = spice +Kernel = Kernels\orbiter.bsp +Body = DEIMOS +Origin = MARS +Barycenter = DEIMOS +ParentBarycenter = MARS BARYCENTER +Interval = 900 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.8e15 +Mass = 1.4410550697885e15 ; MAR097 GM=9.615569648120313E-05 km^3/s^2 +Size = 6.5e3 ; mean radius (5..8km) + +; === Rotation and precession parameters === +; IAU_DEIMOS +SidRotPeriod = 109074.88310610062 +SidRotOffset = 3.598714257912722 +Obliquity = 0.030641719302179994 +LAN = 0.20130397456433077 +LAN_MJD = 51544.5 +PrecessionPeriod = -19899.940859955346 +PrecessionObliquity = 0.450723731002081 +PrecessionLAN = 4.587284204550034 + +; === Visualisation Parameters === +AlbedoRGB = 0.31 0.30 0.32 +TileFormat = 2 +MaxPatchResolution = 7 ; use explicit mesh +HorizonExcess = 15 +BBExcess = 0.4 \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Dione.cfg b/Src/Celbody/SPICE/Config/Dione.cfg new file mode 100644 index 000000000..4eb857dd4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Dione.cfg @@ -0,0 +1,39 @@ +; === Configuration file for moon Dione(Saturn) === +Name = Dione +Module = spice +Kernel = Kernels\orbiter.bsp +Body = DIONE +Origin = SATURN +Barycenter = DIONE +ParentBarycenter = SATURN BARYCENTER +Interval = 970 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.05e21 +Mass = 1.09577723867126e21 ; SAT375 GM=7.311672244985478E+01 km^3/s^2 +Size = 5.60e5 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 6.099400119 +PrecessionObliquity = 0.4894221523 +PrecessionPeriod = -1715867.804 +LAN = 0.663789478 +LAN_MJD = 51544.5 +Obliquity = 0.0006272896786 +SidRotOffset = 1.730032333 +SidRotPeriod = 236469.5055 +;SidRotPeriod (days): 2.736915573 +;SidRotPeriod (days - node to node): 2.736911207 +;Precession Period (years): -4697.790017 +;Obliquity (deg): 0.03594105111 +;Ecliptic LAN (rad): 6.100221446 +;Ecliptic Obliquity (rad): 0.4899163853 +;Ecliptic SidRotOffset (rad): 1.922800588 +;Axis RMS Error (deg): 0.03442147822 +;Lat/Lon RMS Error (deg): 0.0006284636585 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.24 0.22 0.23 ; by VF2_Rolf +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Earth.cfg b/Src/Celbody/SPICE/Config/Earth.cfg new file mode 100644 index 000000000..fdd85593a --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth.cfg @@ -0,0 +1,3344 @@ +; === Configuration file for planet Earth === +Name = Earth +Module = spice +Kernel = Kernels\orbiter.bsp +Body = EARTH +Origin = SUN +Barycenter = EARTH BARYCENTER +ParentBarycenter = SSB +Interval = 25000 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +;Module_Atm = EarthAtmJ71G ; default atmosphere model if no user selection + +; === Physical Parameters === +;Mass = 5.973698968e+24 +Mass = 5.97369890113e24 ; DE440 GM=398600.435507 km^3/s^2 +;Size = 6.378165e6 ; equatorial radius +Size = 6.37101e6 ; mean radius +JCoeff = 1082.6269e-6 -2.51e-6 -1.60e-6 -0.15e-6 + ; harmonic coefficients for shape description +AlbedoRGB = 0.7 0.85 1.0 + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = egm96_to360.tab ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + + +; === Rotation and precession parameters === +; ITRF93 +SidRotPeriod = 86164.09983257859 +SidRotOffset = 4.890655342075297 +Obliquity = 0.40910170503368837 +LAN = 0 +LAN_MJD = 51544.5 +PrecessionPeriod = -9413040.4 +PrecessionObliquity = 0 +PrecessionLAN = 0 + +; === Atmospheric Parameters === +;AtmPressure0 = 101.4e3 ; pressure at zero altitude [Pa] (defined via module) +AtmDensity0 = 1.293 ; density at zero altitude [kg/m^3] +AtmGasConstant = 286.91 ; specific gas constant [J/(K kg)] +AtmGamma = 1.4 ; specific heat ratio c_p/c_v +;AtmAltLimit = 200e3 ; cutoff altitude [m] +AtmAttenuationAlt = 100e3; ; cutoff altitude for light attenuation +AtmHorizonAlt = 80e3 ; horizon rendering altitude [m] +AtmHazeExtent = 0.14 ; horizon haze extent +;AtmColor0 = 0.55 0.75 1.04 +AtmColor0 = 0.42 0.72 1.02 +AtmHazeColor = 0.55 0.75 1.0 +AtmFogParam = 3.7e-5 2.0e-5 5e3 ; 4.0e-5 2.2e-5 5e3 +AtmFogColor = 0.57 0.80 0.92 +AtmTintColor = 0.04 0.05 0.20 ; additive tint to surfaces from high altitude +ShadowDepth = 0.65 + +; === Cloud parameters === +CloudAlt = 7e3 ; altitude of cloud layer +CloudRotPeriod = 2e6 +CloudShadowDepth = 0.3 +BrightenClouds = TRUE +CloudMicrotextureAlt = 35e3 300e3 + +; === Visualisation Parameters === +TileFormat = 2 +CloudFormat = 2 +LabelFormat = 2 +MaxPatchResolution = 19 ; surface texture resolution limit (1-19) +MinCloudResolution = 1 ; cloud layer from this resolution +MaxCloudResolution = 9 ; highest cloud resolution level +ElevationResolution = 0.5 ; target resolution of elevation data [m] +SpecularRipple = TRUE ; enable specular water microtexture + +; === Surface Bases === +; place additional bases or +; base directories in this list +BEGIN_SURFBASE +DIR Earth\Base +END_SURFBASE + +; === Fixed surface observation points === +BEGIN_OBSERVER +KSC:VAB: -80.6487 +28.5836 20 +KSC:Pad 39B: -80.6209 +28.6235 5 +KSC:Pad 39B Tower: -80.62115 +28.62692 110 +KSC:SLF: -80.68247 +28.59677 2.8 +Habana:Tower: -82.39882 +23.0004 35 +END_OBSERVER + +; === VOR transmitters === +BEGIN_NAVBEACON +VOR VNE +4.8833 +45.5564 108.20 130 ; VIENNE +VOR KSC +21.2482 +48.6831 108.20 270 ; KOSICE +VOR GLT +27.9277 +45.4163 108.20 270 ; GALATI +VOR WKL +30.6083 +56.3783 108.20 270 ; VELIKIYE LUKI +VOR ESR +30.5097 +39.8131 108.20 270 ; ESKISEHIR +VOR ECS -104.3078 +43.8812 108.20 130 ; NEWCASTLE +VOR MYS -86.2445 +37.8941 108.20 130 ; MYSTIC +VOR DDC -100.0056 +37.8506 108.20 130 ; DODGE CITY +VOR FDY -83.7560 +40.9553 108.20 130 ; FINDLAY +VOR IHD -79.3584 +39.9742 108.20 130 ; INDIAN HEAD +VOR LLO -98.7874 +30.7963 108.20 130 ; LLANO +VOR ARD -74.9076 +40.2533 108.20 130 ; YARDLEY +VOR BMI -88.9312 +40.4808 108.20 130 ; BLOOMINGTON +VOR CTF -80.2749 +34.6504 108.20 130 ; CHESTERFIELD +VOR DRO -107.7496 +37.1533 108.20 130 ; DURANGO +VOR FLG -111.6741 +35.1472 108.20 130 ; FLAGSTAFF +VOR GEE -77.7328 +42.8344 108.20 130 ; GENESEO +VOR MQG -116.8695 +46.3816 108.20 130 ; NEZ PERCE +VOR OLS -110.8489 +31.4150 108.20 130 ; NOGALES +VOR RBA -95.4231 +39.8508 108.20 130 ; ROBINSON +VOR RBG -123.3522 +43.1824 108.20 130 ; ROSEBURG +VOR VEL -109.4933 +40.3790 108.20 130 ; VERNAL +VOR VTU -119.0495 +34.1151 108.20 130 ; VENTURA +VOR COY -64.7007 +17.7344 108.20 130 ; ST CROIX +VOR TSU +2.1025 +48.7536 108.25 270 ; TOUSSUS +VOR LHS -118.5769 +34.6830 108.40 130 ; LAKE HUGHES +VOR SAT +22.8939 +47.7274 108.40 270 ; SATU MARE +VOR JAC -110.7347 +43.6083 108.40 130 ; JACKSON +VOR LVT -85.1666 +36.5846 108.40 130 ; LIVINGSTON +VOR SSF -98.4435 +29.2584 108.40 130 ; STINSON +VOR PHP -101.6642 +44.0582 108.40 130 ; PHILIP +VOR PSC -119.1157 +46.2630 108.40 130 ; PASCO +VOR MAH +11.3119 +48.2634 108.40 270 ; MAISACH +VOR CEZ -108.5618 +37.3898 108.40 130 ; CORTEZ +VOR SHY -92.6024 +38.0406 108.40 130 ; SUNSHINE +VOR TVF -96.1865 +48.0693 108.40 130 ; THIEF RIVER FALLS +VOR SPL +4.7499 +52.3321 108.40 130 ; SCHIPHOL +VOR DPA -88.3502 +41.8904 108.40 130 ; DU PAGE +VOR KTE +134.0226 +34.2125 108.40 270 ; KAGAWA +VOR TRT +13.2489 +54.5110 108.45 270 ; TRENT +VOR DGW -105.2262 +42.6761 108.60 130 ; DOUGLAS +VOR YNN +20.8203 +39.7011 108.60 270 ; YIANNENA +VOR DMN -107.6055 +32.2756 108.60 130 ; DEMING +VOR FBR -110.4241 +41.3785 108.60 130 ; FORT BRIDGER +VOR ELW -82.7847 +34.4192 108.60 130 ; ELECTRIC CITY +VOR FAI -148.0120 +64.8001 108.60 270 ; FAIRBANKS +VOR ZDA +15.3642 +44.0953 108.60 270 ; ZADAR +VOR LPD +12.6308 +35.4997 108.60 270 ; LAMPEDUSA +VOR MZZ -85.6792 +40.4934 108.60 130 ; MARION +VOR JPU -81.3748 +39.4412 108.60 130 ; PARKERSBURG +VOR YBW -114.3731 +51.1067 108.60 130 ; CALGARY SPRINGBANK +VOR PAR +28.0653 +36.4000 108.60 130 ; PARADISI +VOR MAS +5.9604 +50.9719 108.60 270 ; MAASTRICHT +VOR MSN -89.3397 +43.1448 108.60 130 ; MADISON +VOR SFK -77.4199 +41.6953 108.60 130 ; STONYFORK +VOR SUD +24.1750 +35.5231 108.60 270 ; SOUDA +VOR TDD -100.7190 +41.9817 108.60 130 ; THEDFORD +VOR ACY -74.5763 +39.4559 108.60 130 ; ATLANTIC CITY +VOR BWD -98.9575 +31.8926 108.60 130 ; BROWNWOOD +VOR BGD -101.3821 +35.8071 108.60 130 ; BORGER +VOR BJI -95.0248 +47.5759 108.60 130 ; BEMIDJI +VOR STT -65.0246 +18.3558 108.60 270 ; ST THOMAS +VOR DOR +7.6311 +51.5253 108.65 270 ; WICKEDE +VOR IRA +25.1850 +35.3408 108.80 270 ; IRAKLION +VOR WP +174.6311 -36.7867 108.80 270 ; WHENUAPAI +VOR GNL -96.5492 +31.5814 108.80 130 ; GROESBECK +VOR HSI -98.4296 +40.6045 108.80 130 ; HASTINGS +VOR IGM -113.9341 +35.2605 108.80 130 ; KINGMAN +VOR APN -83.5570 +45.0829 108.80 130 ; ALPENA +VOR MGR -83.8042 +31.0823 108.80 130 ; MOULTRIE +VOR TRP +12.5132 +37.8960 108.80 270 ; TRAPANI BIRGI +VOR MFD -82.5910 +40.8686 108.80 130 ; MANSFIELD +VOR KPL +24.6147 +40.9125 108.80 270 ; CHRISOUPOLIS +VOR SOT -83.0524 +35.7901 108.80 130 ; SNOWBIRD +VOR BT +2.4553 +48.9747 108.80 270 ; LE BOURGET +VOR BDR -73.1245 +41.1607 108.80 130 ; BRIDGEPORT +VOR MGE +141.7966 +45.4048 108.80 270 ; MEGUMA +VOR RIW -108.4555 +43.0657 108.80 130 ; RIVERTON +VOR ROX -95.6950 +48.8547 108.80 130 ; ROSEAU +VOR DUG -109.6021 +31.4727 108.80 130 ; DOUGLAS +VOR SBH +29.3203 +40.8994 108.80 130 ; SABIHA GOKCEN +VOR MRM +5.3264 +43.3772 108.80 270 ; MARSEILLE/PROVENCE +VOR TDG -86.0426 +33.5751 108.80 130 ; TALLADEGA +VOR COL +7.5942 +50.7835 108.80 270 ; COLA +VOR HCM -76.7114 +37.4487 108.80 130 ; HARCUM +VOR NUN -87.3359 +30.4721 108.80 130 ; SAUFLEY +VOR FAY -78.8751 +34.9855 108.80 130 ; FAYETTEVILLE +VOR IWD -90.1258 +46.5323 108.80 130 ; IRONWOOD +VOR SAR +18.3342 +43.8248 108.85 270 ; SARAJEVO +VOR THR +3.5536 +45.8819 109.00 270 ; THIERS +VOR MJE +139.4985 +34.1190 109.00 270 ; MIYAKEJIMA +VOR PSE -66.5192 +17.9925 109.00 130 ; PONCE +VOR PUW -117.2235 +46.6743 109.00 130 ; PULLMAN +VOR DWN -94.4538 +45.0875 109.00 130 ; DARWIN +VOR OH +175.3839 -40.2075 109.00 270 ; OHAKEA +VOR LEQ +3.0892 +50.5617 109.00 270 ; LESQUIN +VOR FNC -79.8657 +9.3623 109.00 270 ; FRANCE +VOR SYA +174.0621 +52.7183 109.00 270 ; SHEMYA +VOR YNG -80.6747 +41.3310 109.00 130 ; YOUNGSTOWN +VOR SLR -95.5426 +33.1986 109.00 130 ; SULPHUR SPRINGS +VOR SYI -86.4392 +35.5620 109.00 130 ; SHELBYVILLE +VOR GEF -83.7831 +30.5513 109.00 130 ; GREENVILLE +VOR IDA -112.0639 +43.5190 109.00 130 ; IDAHO FALLS +VOR AZO -85.5531 +42.2370 109.00 130 ; KALAMAZOO +VOR VCT -96.9789 +28.9003 109.00 130 ; VICTORIA +VOR GPT -89.0768 +30.4068 109.00 130 ; GULFPORT +VOR BIB -88.4818 +38.9203 109.00 130 ; BIBLE GROVE +VOR ARD +21.1436 +46.1841 109.00 270 ; ARAD +VOR CEC -124.2409 +41.7796 109.00 130 ; CRESCENT CITY +VOR NKE +135.3594 +33.6613 109.05 270 ; NANKI +VOR GLR -84.7040 +45.0126 109.20 130 ; GAYLORD +VOR UPB -82.5817 +23.0239 109.20 270 ; PLAYA BARACOA +VOR CGS +7.1458 +43.6453 109.20 130 ; CAGNES SUR MER +VOR LYH -79.2365 +37.2546 109.20 130 ; LYNCHBURG +VOR CRL +2.5147 +49.2553 109.20 270 ; CREIL +VOR SKY -82.6548 +41.4345 109.20 130 ; SANDUSKY +VOR SLK -74.2045 +44.3846 109.20 130 ; SARANAC LAKE +VOR CNU -95.5935 +37.6261 109.20 130 ; CHANUTE +VOR SXW -106.9911 +39.6295 109.20 130 ; SNOW +VOR MIP -76.6653 +41.0234 109.20 130 ; MILTON +VOR MHE -98.0376 +43.7770 109.20 130 ; MITCHELL +VOR LBA +63.6117 +39.0900 109.20 270 ; TURKMENABAT +VOR TTE -119.0208 +35.9131 109.20 130 ; TULE +VOR RHI -89.4578 +45.6338 109.20 130 ; RHINELANDER +VOR INS -4.0417 +57.5425 109.20 130 ; INVERNESS +VOR LBU +9.3400 +48.9131 109.20 130 ; LUBURG +VOR EUF -85.1305 +31.9502 109.20 130 ; EUFAULA +VOR LBB -101.9140 +33.7050 109.20 130 ; LUBBOCK +VOR LMO +25.2369 +39.9192 109.20 270 ; LIMNOS +VOR OIE +133.3315 +36.1793 109.25 270 ; OKI +VOR EEN -72.2918 +42.7943 109.40 130 ; KEENE +VOR BCU +26.8255 +46.5109 109.40 270 ; BACAU +VOR ERI -80.2927 +42.0174 109.40 130 ; ERIE +VOR MTO -88.2861 +39.4780 109.40 130 ; MATTOON +VOR JKS -88.3589 +35.5990 109.40 130 ; JACKS CREEK +VOR EDR +27.0083 +39.5536 109.40 270 ; EDREMIT +VOR ROA -80.0705 +37.3434 109.40 130 ; ROANOKE +VOR HDO -99.1778 +29.3492 109.40 130 ; HONDO +VOR DGD -92.8769 +37.0235 109.40 130 ; DOGWOOD +VOR MMD +5.1244 +49.3912 109.40 270 ; MONTMEDY +VOR GUR -2.6038 +49.4371 109.40 270 ; GUERNSEY +VOR PRU +12.5119 +43.1017 109.40 270 ; PERUGIA +VOR JWJ -92.9089 +42.1114 109.40 130 ; ELMWOOD +VOR RZN -92.3745 +45.8204 109.40 130 ; SIREN +VOR LAW -98.4131 +34.4962 109.40 130 ; LAWTON +VOR KQE +130.8525 +33.8352 109.45 270 ; KITAKYUSHU +VOR HIE +130.8469 +32.8313 109.60 270 ; HIGO +VOR MNM -87.6472 +45.1801 109.60 130 ; MENOMINEE +VOR BWS -106.0132 +32.8213 109.60 130 ; BOLES +VOR AHN -83.3248 +33.9476 109.60 130 ; ATHENS +VOR KPT +10.3498 +47.7458 109.60 270 ; KEMPTEN +VOR STW -74.8690 +40.9958 109.60 130 ; STILLWATER +VOR OFK -97.4346 +41.9879 109.60 130 ; NORFOLK +VOR YSE +139.7993 +38.8108 109.60 270 ; SHONAI +VOR FKL -79.8568 +41.4386 109.60 130 ; FRANKLIN +VOR PNT -88.7335 +40.8212 109.60 130 ; PONTIAC +VOR MBY +3.4994 +46.5414 109.60 130 ; MOULINS/MONTBEUGNY +VOR ISO -77.5584 +35.3709 109.60 130 ; KINSTON +VOR UJM -90.6744 +34.5750 109.60 130 ; MARVELL +VOR ELO -91.8301 +47.8219 109.60 130 ; ELY +VOR KOZ +21.8406 +40.2850 109.60 130 ; KOZANI +VOR JXN -84.4585 +42.2592 109.60 130 ; JACKSON +VOR WYP +7.2800 +51.0483 109.60 270 ; WIPPER +VOR FJS -122.8064 +41.4497 109.60 130 ; FORT JONES +VOR OBE +143.2205 +42.7340 109.65 270 ; OBIHIRO +VOR CPE +2.7994 +49.4328 109.65 270 ; COMPIEGNE +VOR ULW -77.0249 +42.0943 109.65 130 ; ELMIRA +VOR AZR +7.2244 +43.6597 109.65 270 ; NICE COTE D AZUR +VOR DVA +22.9689 +45.8280 109.80 270 ; DEVA +VOR LFT -91.9926 +30.1938 109.80 130 ; LAFAYETTE +VOR SSI -81.4460 +31.0505 109.80 130 ; BRUNSWICK +VOR MHV +6.4902 +51.2373 109.80 270 ; MONCHENGLADBACH +VOR TKO -98.2600 +39.8064 109.80 130 ; MANKATO +VOR CGG -84.7289 +44.6816 109.80 130 ; GRAYLING +VOR TUP -88.7973 +34.2239 109.80 130 ; TUPELO +VOR LTS -99.2712 +34.6629 109.80 130 ; ALTUS +VOR HRS -83.9157 +34.9430 109.80 130 ; HARRIS +VOR CCT -87.2637 +37.3824 109.80 130 ; CENTRAL CITY +VOR SFC +2.9908 +45.0664 109.80 270 ; SAINT FLOUR/COLTINES +VOR MEL +2.8133 +48.4558 109.80 270 ; MELUN +VOR HGR -77.8557 +39.6977 109.80 130 ; HAGERSTOWN +VOR PGY -116.9791 +32.6103 109.80 130 ; POGGI +VOR ART -76.0646 +43.9520 109.80 130 ; WATERTOWN +VOR AGC -80.0409 +40.2787 110.00 130 ; ALLEGHENY +VOR MLB -80.6353 +28.1053 110.00 130 ; MELBOURNE +VOR MTR +8.8486 +50.2763 110.00 270 ; METRO +VOR MKN +25.3444 +37.4403 110.00 270 ; MIKONOS +VOR SPW -95.2010 +43.1622 110.00 130 ; SPENCER +VOR BFV -99.2062 +35.2369 110.00 130 ; BURNS FLAT +VOR LHE +137.6807 +34.7479 110.00 270 ; HAMAMATSU +VOR MXW -122.2215 +39.3176 110.00 130 ; MAXWELL +VOR CPN +99.3650 +10.7117 110.00 270 ; CHUMPHON +VOR ORW -71.9994 +41.5564 110.00 130 ; NORWICH +VOR HEZ -91.2996 +31.6182 110.00 130 ; NATCHEZ +VOR HOT -93.0906 +34.4786 110.00 130 ; HOT SPRINGS +VOR ROM -120.6649 +36.1404 110.00 130 ; PRIEST +VOR BLF -81.1943 +37.3064 110.00 130 ; BLUEFIELD +VOR ROC -77.6736 +43.1208 110.00 270 ; ROCHESTER +VOR DIY +40.2085 +37.8700 110.00 270 ; DIYARBAKIR +VOR TBN -92.1390 +37.7424 110.00 130 ; FORNEY +VOR CMI -88.2761 +40.0345 110.00 130 ; CHAMPAIGN +VOR TBG -79.5621 +8.7878 110.00 270 ; TABOGA ISLAND +VOR FAH -87.8488 +43.7688 110.00 130 ; FALLS +VOR COA +3.3553 +51.3481 110.05 270 ; COSTA +VOR ZUE +8.8177 +47.5922 110.05 270 ; ZURICH EAST +VOR AYS -82.5564 +31.2694 110.20 130 ; WAYCROSS +VOR DVL +0.3128 +49.3108 110.20 270 ; DEAUVILLE +VOR SIE +11.2531 +43.2528 110.20 270 ; SIENA +VOR GFL -73.6118 +43.3417 110.20 130 ; GLENS FALLS +VOR FRM -94.4226 +43.6460 110.20 130 ; FAIRMONT +VOR WUR +9.9470 +49.7175 110.20 270 ; WURZBURG +VOR GLH -90.9829 +33.5235 110.20 130 ; GREENVILLE +VOR COU -92.2183 +38.8108 110.20 130 ; COLUMBIA +VOR HGS +127.9750 +37.4758 110.20 270 ; WONJU +VOR GZG -82.0790 +36.8251 110.20 130 ; GLADE SPRING +VOR OOM -86.6130 +39.1438 110.20 130 ; HOOSIER +VOR ETX -75.6840 +40.5810 110.20 130 ; EAST TEXAS +VOR IDU -96.5622 +29.9561 110.20 130 ; INDUSTRY +VOR NKR +102.3106 +14.9463 110.20 270 ; NAKHON RATCHASIMA +VOR ETL -108.2586 +38.0403 110.20 130 ; CONES +VOR SBV -79.0145 +36.6750 110.40 130 ; SOUTH BOSTON +VOR SEG -76.8840 +40.7908 110.40 130 ; SELINSGROVE +VOR MWA -89.0117 +37.7542 110.40 130 ; MARION +VOR HYS -99.2768 +38.8477 110.40 130 ; HAYS +VOR FMD +16.6293 +48.1051 110.40 270 ; FISCHAMEND +VOR SKR +9.2141 +55.2289 110.40 270 ; SKRYDSTRUP +VOR OLK -85.4974 +41.2469 110.40 130 ; WOLF LAKE +VOR VAN -80.4486 +33.4748 110.40 130 ; VANCE +VOR PIO -105.3052 +32.5292 110.40 130 ; PINON +VOR TPL -97.4250 +31.2093 110.40 130 ; TEMPLE +VOR FSM -94.2715 +35.3883 110.40 130 ; FORT SMITH +VOR ECB -82.9101 +38.1584 110.40 130 ; NEWCOMBE +VOR AGH +22.7919 +39.2161 110.40 130 ; NEA ANCHIALOS +VOR SNI +25.4825 +36.3950 110.40 270 ; SANTORINI +VOR LBV -81.3914 +26.8282 110.40 130 ; LA BELLE +VOR MAD -72.6922 +41.3138 110.40 130 ; MADISON +VOR POM -117.7871 +34.0784 110.40 130 ; POMONA +VOR HAB -88.0125 +34.1951 110.40 130 ; HAMILTON +VOR RTM +4.4810 +51.9737 110.40 270 ; ROTTERDAM +VOR PTH -3.3686 +56.4425 110.40 270 ; PERTH +VOR MAG +11.7943 +51.9950 110.45 270 ; MAGDEBURG +VOR THE +134.7915 +35.5180 110.45 270 ; TAJIMA +VOR LUB +10.6678 +53.9407 110.60 270 ; LUBECK +VOR ELY -114.8483 +39.2981 110.60 270 ; ELY +VOR RID -84.8388 +39.7551 110.60 130 ; RICHMOND +VOR GDM -72.0582 +42.5460 110.60 130 ; GARDNER +VOR TDP +5.4392 +45.4889 110.60 270 ; TOUR DU PIN +VOR OTG -95.5819 +43.6469 110.60 130 ; WORTHINGTON +VOR PAE -122.2778 +47.9198 110.60 130 ; PAINE +VOR SAF -106.0649 +35.5405 110.60 130 ; SANTA FE +VOR CRO +17.0815 +39.0011 110.60 270 ; CROTONE +VOR PKD -95.0706 +46.8979 110.60 130 ; PARK RAPIDS +VOR BAY +11.6367 +49.9852 110.60 130 ; BAYREUTH +VOR GXU -74.5963 +40.0096 110.60 130 ; MC GUIRE +VOR BXK -112.8246 +33.4535 110.60 130 ; BUCKEYE +VOR STE -89.5306 +44.5432 110.60 130 ; STEVENS POINT +VOR MAZ -67.1510 +18.2565 110.60 130 ; MAYAGUEZ +VOR REC -78.7470 +40.5465 110.60 130 ; REVLOC +VOR RIL -107.7162 +39.5281 110.60 130 ; RIFLE +VOR LBY -89.3376 +31.4186 110.60 130 ; EATON +VOR MOP -84.7373 +43.6228 110.60 130 ; MT PLEASANT +VOR STN +99.1347 +9.1295 110.60 270 ; SURAT THANI +VOR FKN -77.0123 +36.7142 110.60 130 ; FRANKLIN +VOR ANC +13.4711 +43.5864 110.65 270 ; ANCONA +VOR RME +124.7034 +24.6398 110.65 270 ; TARAMA +VOR SVC -108.1611 +32.6377 110.80 130 ; SILVER CITY +VOR ZAK +20.8850 +37.7458 110.80 270 ; ZAKINTHOS +VOR ROM +12.5881 +41.8044 110.80 130 ; CIAMPINO +VOR HIB -92.7041 +47.3015 110.80 130 ; HIBBING +VOR FTZ -90.9712 +38.6945 110.80 130 ; FORISTELL +VOR SMO -118.4567 +34.0103 110.80 130 ; SANTA MONICA +VOR RFD -89.1993 +42.2256 110.80 130 ; ROCKFORD +VOR LHY -75.4826 +41.4758 110.80 130 ; LAKE HENRY +VOR ESL -78.9895 +39.2255 110.80 130 ; KESSEL +VOR UBE +131.2835 +33.9356 110.80 270 ; UBE +VOR EWO -85.6759 +37.6318 110.80 130 ; NEW HOPE +VOR LOA -95.9680 +31.1240 110.80 130 ; LEONA +VOR HOS +26.1428 +38.3494 110.80 270 ; CHIOS +VOR ESC -87.0896 +45.7226 110.80 130 ; ESCANABA +VOR GED +9.2492 +50.4119 110.80 270 ; GEDERN +VOR BUT +100.9967 +12.6684 110.80 270 ; U-TAPHAO +VOR MKT -93.9124 +44.2199 110.80 130 ; MANKATO +VOR BZM -81.2405 +35.8689 110.80 130 ; BARRETTS MOUNTAIN +VOR LAN -84.6977 +42.7174 110.80 130 ; LANSING +VOR URF +38.8442 +37.0954 110.80 270 ; SANLIURFA +VOR MPV -72.4494 +44.0855 110.80 130 ; MONTPELIER +VOR RQR -90.5886 +30.0875 110.80 130 ; RESERVE +VOR JAN +17.5447 +48.1786 110.80 270 ; JANOVCE +VOR FRI +7.2235 +46.7776 110.85 270 ; FRIBOURG +VOR TBE +144.1662 +43.8849 110.85 270 ; MEMANBETSU +VOR TOE +137.1911 +36.6522 110.85 270 ; TOYAMA +VOR INL -93.4057 +48.5658 111.00 130 ; INTERNATIONAL FALLS +VOR DUC -97.9168 +34.3845 111.00 130 ; DUNCAN +VOR DVL -98.9125 +48.1152 111.00 130 ; DEVILS LAKE +VOR EAT -120.2108 +47.3997 111.00 130 ; WENATCHEE +VOR KBI +98.9777 +8.1075 111.00 270 ; KRABI +VOR RCA +15.6455 +38.0758 111.00 130 ; REGGIO CALABRIA +VOR HOB -103.2693 +32.6382 111.00 130 ; HOBBS +VOR KFL +20.5058 +38.1117 111.00 270 ; KEFALLINIA +VOR OKW -87.2500 +33.2396 111.00 130 ; BROOKWOOD +VOR THT -68.2392 +76.5424 111.00 270 ; THULE +VOR DNV -87.5572 +40.2938 111.00 130 ; DANVILLE +VOR DCA -77.0364 +38.8595 111.00 130 ; WASHINGTON +VOR OYE +133.8351 +34.7504 111.00 270 ; KIBI +VOR PSI -83.5326 +42.7003 111.00 130 ; PONTIAC +VOR TBE -103.6001 +37.2587 111.20 130 ; TOBE +VOR EMG -93.5951 +32.4002 111.20 130 ; ELM GROVE +VOR UCA -75.1645 +43.0265 111.20 130 ; UTICA +VOR LAT +12.9181 +41.5411 111.20 270 ; LATINA +VOR CLJ +23.7873 +46.8001 111.20 270 ; CLUJ NAPOCA +VOR ROT +103.7672 +16.1183 111.20 270 ; ROI ET +VOR OZR -85.7263 +31.2690 111.20 130 ; CAIRNS +VOR OL +2.3864 +48.7300 111.20 270 ; ORLY +VOR MAW -89.9114 +36.5551 111.20 130 ; MALDEN +VOR AZQ -83.2630 +37.3913 111.20 130 ; HAZARD +VOR RSG -100.2999 +30.0146 111.20 130 ; ROCKSPRINGS +VOR PLL -89.5242 +41.9656 111.20 130 ; POLO +VOR MAL +8.7347 +45.6419 111.20 270 ; MALPENSA +VOR BQS -93.8753 +39.6306 111.20 270 ; BRAYMER +VOR CNK +26.4319 +40.1400 111.20 270 ; CANAKKALE +VOR SBY -75.5106 +38.3450 111.20 130 ; SALISBURY +VOR EAR -99.0051 +40.7256 111.20 130 ; KEARNEY +VOR ALB +11.2214 +49.2144 111.20 270 ; ALLERSBERG +VOR LFD -84.7651 +42.0625 111.20 270 ; LITCHFIELD +VOR MKP +126.3788 +34.7598 111.20 270 ; MOKPO +VOR MUS +41.6623 +38.7496 111.20 270 ; MUS +VOR CUS -107.5745 +31.8191 111.20 130 ; COLUMBUS +VOR IMT -88.1120 +45.8161 111.20 130 ; IRON MOUNTAIN +VOR PUL +13.9181 +44.8924 111.25 270 ; PULA +VOR GTQ +6.7161 +48.9864 111.25 270 ; GROSTENQUIN +VOR THX -98.1511 +28.5053 111.40 130 ; THREE RIVERS +VOR BGA +1.3856 +46.0760 111.40 270 ; BELLEGARDE +VOR FZT -95.5308 +32.0746 111.40 130 ; FRANKSTON +VOR GK +125.6597 +39.2325 111.40 270 ; PYONGYANG +VOR CMP +12.3815 +42.1238 111.40 270 ; CAMPAGNANO +VOR ELZ -77.9996 +42.0896 111.40 130 ; WELLSVILLE +VOR LLA -92.3736 +29.6632 111.40 270 ; WHITE LAKE +VOR BRL -90.9259 +40.7234 111.40 130 ; BURLINGTON +VOR MBL -86.2296 +44.2721 111.40 130 ; MANISTEE +VOR GPZ -93.4886 +47.1636 111.40 130 ; GRAND RAPIDS +VOR ENO -75.5159 +39.2317 111.40 130 ; SMYRNA +VOR AUG -69.7966 +44.3200 111.40 130 ; AUGUSTA +VOR CNM +6.8708 +43.5603 111.40 270 ; CANNES +VOR SXC -118.4199 +33.3751 111.40 130 ; SANTA CATALINA +VOR YKN -97.3850 +42.9184 111.40 130 ; YANKTON +VOR ZZV -81.8926 +39.9409 111.40 130 ; ZANESVILLE +VOR USN +129.3471 +35.5883 111.40 270 ; ULSAN +VOR TUN +15.9808 +48.3097 111.40 270 ; TULLN +VOR VCE +129.3370 +34.2815 111.45 270 ; TSUSHIMA +VOR SIN +22.3656 +41.9808 111.45 270 ; SKOPJE +VOR RRS -85.4312 +31.2844 111.60 130 ; WIREGRASS +VOR LVZ -75.6895 +41.2728 111.60 130 ; WILKES-BARRE +VOR CPN -112.7475 +46.0320 111.60 130 ; COPPERTOWN +VOR GHM -87.4518 +35.8341 111.60 130 ; GRAHAM +VOR BDE -94.6073 +48.7228 111.60 130 ; BAUDETTE +VOR TQA -99.8168 +32.2357 111.60 130 ; TUSCOLA +VOR AUW -89.5866 +44.8468 111.60 130 ; WAUSAU +VOR NKP +104.6345 +17.3898 111.60 270 ; NAKHON PHANOM +VOR MBW -106.0043 +41.8455 111.60 130 ; MEDICINE BOW +VOR OTM -92.3259 +41.0291 111.60 130 ; OTTUMWA +VOR MGW -79.8604 +39.5567 111.60 130 ; MORGANTOWN +VOR PON +2.0358 +49.0961 111.60 270 ; PONTOISE +VOR SAM +26.9069 +37.6864 111.60 270 ; SAMOS +VOR HUW -91.9000 +36.8714 111.60 130 ; HUTTON +VOR KAL +16.2842 +56.6854 111.60 270 ; KALMAR +VOR MON -91.7157 +33.5621 111.60 130 ; MONTICELLO +VOR UN -111.2261 +65.8053 111.60 130 ; LUPIN +VOR IKK -87.8498 +41.0744 111.60 130 ; KANKAKEE +VOR CAV +4.1469 +48.7811 111.65 130 ; VATRY +VOR TAQ +11.7325 +42.2150 111.80 270 ; TARQUINIA +VOR HVR -109.7700 +48.5405 111.80 130 ; HAVRE +VOR GOJ -89.9411 +35.9510 111.80 130 ; GOSNELL +VOR SDZ -79.5880 +35.2154 111.80 130 ; SANDHILLS +VOR TZO +9.5072 +45.5593 111.80 270 ; TREZZO +VOR ITH -76.4597 +42.4950 111.80 130 ; ITHACA +VOR TAN -0.0183 +43.4667 111.80 270 ; TARBES-LAHITTE +VOR PAE +100.1650 +18.1400 111.80 270 ; PHRAE +VOR AIA -102.8044 +42.0556 111.80 130 ; ALLIANCE +VOR OSH -88.5559 +43.9904 111.80 130 ; OSHKOSH +VOR COD -108.9647 +44.6204 111.80 130 ; CODY +VOR OLU -97.3408 +41.4500 111.80 130 ; COLUMBUS +VOR HBR -99.0634 +34.8666 111.80 130 ; HOBART +VOR PLN -84.6641 +45.6306 111.80 130 ; PELLSTON +VOR RSW -81.7758 +26.5299 111.80 130 ; LEE CO +VOR CTW -81.4765 +40.2292 111.80 130 ; NEWCOMERSTOWN +VOR KNE +135.2518 +34.4301 111.80 130 ; KANSAI +VOR PDX -122.6063 +45.5937 111.80 130 ; PORTLAND +VOR PEQ -103.5748 +31.4693 111.80 130 ; PECOS +VOR FCM -93.4568 +44.8257 111.80 130 ; FLYING CLOUD +VOR ROE +14.7586 +55.0656 112.00 270 ; RONNE +VOR MLC -95.7823 +34.8495 112.00 130 ; MC ALESTER +VOR MMJ -80.1939 +40.4882 112.00 130 ; MONTOUR +VOR GRI -98.3148 +40.9840 112.00 130 ; GRAND ISLAND +VOR KIK +29.8691 +69.7238 112.00 270 ; KIRKENES +VOR STO +12.4694 +65.9604 112.00 270 ; STOKKA +VOR ACJ -37.0713 -10.9817 112.00 270 ; ARACAJU +VOR BHO -71.1297 +18.2550 112.00 270 ; BARAHONA +VOR PGS -113.5445 +35.6247 112.00 270 ; PEACH SPRINGS +VOR CPN -47.1292 -23.0087 112.00 270 ; CAMPINAS +VOR HPW -77.1159 +37.3289 112.00 130 ; HOPEWELL +VOR CTY -83.0487 +29.5990 112.00 130 ; CROSS CITY +VOR KEF -22.6144 +63.9869 112.00 270 ; KEFLAVIK +VOR NKW +72.4120 -7.3168 112.00 270 ; DIEGO GARCIA +VOR DHT -102.5446 +36.0915 112.00 130 ; DALHART +VOR RST -92.5969 +43.7829 112.00 130 ; ROCHESTER +VOR TBZ +46.2308 +38.1392 112.00 270 ; TABRIZ +VOR LOT +34.9747 +29.6072 112.00 270 ; EILOT +VOR CZS -72.7735 -7.6068 112.00 270 ; CRUZEIRO DO SUL +VOR MCP -51.0732 +0.0522 112.00 130 ; MACAPA +VOR BGS +27.5206 +42.5714 112.00 270 ; BURGAS +VOR BRU +114.8818 +4.8751 112.00 270 ; BRUNEI +VOR YZT -127.3653 +50.6842 112.00 270 ; PORT HARDY +VOR KB +69.1522 +34.5186 112.00 270 ; KABUL +VOR MGA -4.3695 +36.8143 112.00 270 ; MALAGA +VOR ARP +8.3057 +51.0160 112.00 130 ; ARPE +VOR JNB +115.0539 -30.3133 112.00 270 ; JURIEN BAY +VOR SHB -85.8243 +39.6326 112.00 130 ; SHELBYVILLE +VOR YGR -61.7741 +47.4303 112.00 270 ; GRINDSTONE +VOR YMM -111.1222 +56.6472 112.00 270 ; FORT MCMURRAY +VOR GLN +114.0350 +22.7100 112.00 270 ; GUANLAN +VOR LKV -120.5071 +42.4929 112.00 270 ; LAKEVIEW +VOR HYN +109.4500 +28.5833 112.00 270 ; HUAYUAN +VOR KFR +47.9582 +28.6208 112.00 270 ; WAFRA +VOR TBD -90.8291 +29.6643 112.00 130 ; TIBBY +VOR NSE +118.8633 +31.7450 112.00 270 ; NANJING +VOR KAD +127.7683 +26.3568 112.00 270 ; KADENA +VOR KMC +136.4043 +36.3965 112.00 270 ; KOMATSU +VOR LWT -109.6062 +47.0530 112.00 270 ; LEWISTOWN +VOR OAX -96.7314 +16.9721 112.00 270 ; OAXACA +VOR IBG -75.1073 +4.3965 112.00 270 ; IBAGUE +VOR DWI +98.2036 +14.0981 112.00 270 ; DAWEI +VOR CRD +29.7043 +37.7901 112.00 270 ; CARDAK +VOR BHD -3.4936 +50.3986 112.05 270 ; BERRY HEAD +VOR FLO +5.1344 +50.8767 112.05 270 ; FLORA +VOR PPE -113.5194 +31.3543 112.10 270 ; PENASCO +VOR SMO -99.2284 +19.5573 112.10 270 ; MATEO +VOR MGM -86.3197 +32.2223 112.10 270 ; MONTGOMERY +VOR IB +3.9653 +7.3481 112.10 270 ; IBADAN +VOR PO +11.0378 +11.7050 112.10 270 ; POTISKUM +VOR FUL +9.5722 +50.5925 112.10 270 ; FULDA +VOR MLF -113.0132 +38.3604 112.10 270 ; MILFORD +VOR MLS -105.9535 +46.3822 112.10 270 ; MILES CITY +VOR FRH -10.7600 +10.0509 112.10 270 ; FARANAH +VOR MRB -77.8484 +39.3856 112.10 130 ; MARTINSBURG +VOR LCA +2.1664 +46.6914 112.10 270 ; LA CHATRE +VOR CBA -66.1791 -17.4215 112.10 270 ; COCHABAMBA +VOR KOW +114.9150 +25.8217 112.10 270 ; GANZHOU +VOR DNY -74.9569 +42.1783 112.10 130 ; DE LANCEY +VOR POL -2.1033 +53.7439 112.10 270 ; POLE HILL +VOR SVA +7.9083 +58.0845 112.10 270 ; SVENSHEIA +VOR OTH -124.1684 +43.4155 112.10 130 ; NORTH BEND +VOR MGA -86.1750 +12.1383 112.10 270 ; MANAGUA +VOR BDM +114.7100 -3.4367 112.10 270 ; BANJARMASIN +VOR PKU +101.4415 +0.4256 112.10 270 ; PEKANBARU +VOR RO +176.3139 -38.1081 112.10 270 ; ROTORUA +VOR KC +67.1767 +24.9103 112.10 270 ; KARACHI +VOR PMM -86.1058 +42.4655 112.10 270 ; PULLMAN +VOR RN +73.1258 +33.6058 112.10 270 ; ISLAMABAD +VOR BBM +74.6169 +15.8562 112.10 270 ; BELGAUM +VOR JHT +94.1487 +26.7019 112.10 270 ; JORHAT +VOR SRA -9.3401 +38.8292 112.10 270 ; SINTRA +VOR PPT +85.0927 +25.5915 112.10 270 ; PATNA +VOR SY +151.1808 -33.9428 112.10 270 ; SYDNEY +VOR HGO -103.6261 +38.8150 112.10 270 ; HUGO +VOR LV +9.4020 +0.4798 112.10 270 ; LIBREVILLE LEON M BA +VOR MAL +48.7520 +34.3419 112.10 270 ; MALAYER +VOR TAJ +117.3583 +39.1067 112.10 270 ; TIANJIN +VOR TAE +131.7032 +33.2203 112.10 270 ; OITA +VOR DAO +125.6540 +7.1312 112.10 270 ; DAVAO +VOR TUG +121.7364 +17.6333 112.10 270 ; TUGUEGARAO +VOR SGD -122.3731 +38.1793 112.10 130 ; SCAGGS ISLAND +VOR WQG +129.7833 +43.2950 112.10 270 ; WANGQING +VOR INK -103.2438 +31.8748 112.10 270 ; WINK +VOR ZYG +104.6767 +30.1150 112.10 270 ; ZIYANG +VOR FOZ -54.5035 -25.5833 112.10 270 ; FOZ +VOR HBV +27.8325 -25.6758 112.10 270 ; HARTEBEESPOORTDAM +VOR ABV +16.5339 -28.5706 112.10 270 ; ALEXANDER BAY +VOR CAT +14.9693 +37.4562 112.10 270 ; CATANIA +VOR MLA +0.1652 +41.1296 112.10 270 ; MAELLA +VOR KTM +32.5561 +15.5859 112.10 270 ; KHARTOUM +VOR MNA +2.8617 +30.5583 112.10 270 ; EL GOLEA +VOR UCL -81.5327 +21.6050 112.10 270 ; CAYO LARGO DEL SUR +VOR PTL -40.5633 -9.3640 112.10 270 ; PETROLINA +VOR LFK -94.7170 +31.1624 112.10 270 ; LUFKIN +VOR VLH -60.0953 -12.6937 112.10 270 ; VILHENA +VOR PIS +10.3906 +43.6772 112.10 270 ; PISA +VOR YRB -94.9228 +74.7281 112.10 270 ; RESOLUTE BAY +VOR MHV -79.9452 -3.2987 112.10 270 ; MACHALA +VOR YXC -116.0883 +49.5550 112.10 270 ; CRANBROOK +VOR BLT +20.9664 +4.2469 112.10 270 ; GBADOLITE +VOR PPD +20.3500 +49.0648 112.10 270 ; TATRY +VOR MG +46.3407 -15.6575 112.10 270 ; MAHAJANGA/PHILIBERT TSIRANANA +VOR TSL +22.9886 +40.4550 112.10 270 ; THESSALONIKI +VOR SFD -67.4373 +7.8856 112.10 270 ; SAN FERNANDO DE APURE +VOR CUL -107.4761 +24.7651 112.10 270 ; CULIACAN +VOR ADA -42.0955 -22.8128 112.10 270 ; ALDEIA +VOR LAY -13.1969 +27.1428 112.10 270 ; LAAYOUNE +VOR VND +28.6667 -12.9997 112.10 270 ; NDOLA +VOR YYZ -79.6317 +43.6581 112.15 270 ; TORONTO +VOR KBO +7.1455 +50.8617 112.15 130 ; KOLN/BONN +VOR IZT -95.0960 +16.4652 112.20 270 ; IXTEPEC +VOR TOU -124.6270 +48.2999 112.20 270 ; TATOOSH +VOR TXO -102.8397 +34.4951 112.20 270 ; TEXICO +VOR CCV -75.9977 +37.3475 112.20 130 ; CAPE CHARLES +VOR WGM +16.4910 +48.3239 112.20 270 ; WAGRAM +VOR CFB -76.1365 +42.1575 112.20 130 ; BINGHAMTON +VOR MOS +0.1364 +35.8986 112.20 270 ; MOSTAGANEM +VOR LP +123.7281 +13.1503 112.20 270 ; LEGASPI +VOR MDG +149.5936 -32.5608 112.20 270 ; MUDGEE +VOR ORL -81.3350 +28.5427 112.20 270 ; ORLANDO +VOR MTU -70.2370 +1.2422 112.20 270 ; MITU +VOR KPG +123.6769 -10.1732 112.20 270 ; KUPANG +VOR PCU -89.7305 +30.5612 112.20 130 ; PICAYUNE +VOR PDZ -117.5300 +33.9183 112.20 270 ; PARADISE +VOR GPI -63.7508 -35.6928 112.20 270 ; GENERAL PICO +VOR IOM -4.7636 +54.0669 112.20 270 ; ISLE OF MAN +VOR BQZ -106.8722 +40.4637 112.20 130 ; ROBERT +VOR VLR -98.7237 +50.4222 112.20 270 ; LANGRUTH +VOR ASI -14.3967 -7.9697 112.20 270 ; ASCENSION AUX AF +VOR BBI -5.4564 +41.0168 112.20 270 ; SALAMANCA +VOR BGR +3.2089 +41.9477 112.20 270 ; BAGUR +VOR AND +16.1414 +69.2878 112.20 270 ; ANDOYA +VOR ITA -60.5439 -24.7361 112.20 270 ; LAS LOMITAS +VOR SOR +14.3353 +40.5825 112.20 270 ; SORRENTO +VOR JAC -57.7707 -6.2357 112.20 270 ; JACAREACANGA +VOR RQZ -86.6339 +34.7971 112.20 130 ; ROCKET +VOR JSY -2.0461 +49.2211 112.20 270 ; JERSEY +VOR CSV +147.7850 -20.5914 112.20 270 ; COLLINSVILLE +VOR TGU +128.5908 +35.8100 112.20 270 ; TALSUNG +VOR BUZ +50.8208 +28.9553 112.20 270 ; BUSHEHR +VOR YGL -77.7164 +53.6256 112.20 270 ; LA GRANDE RIVIERE +VOR TLL +24.8384 +59.4113 112.20 270 ; TALLINN +VOR ALO -92.3989 +42.5565 112.20 270 ; WATERLOO +VOR MSD +59.6489 +36.2337 112.20 270 ; MASHHAD +VOR NA +178.5650 -18.0417 112.20 270 ; NAUSORI +VOR NUQ -40.3607 -17.8855 112.20 270 ; NANUQUE +VOR FUN -16.7055 +32.7472 112.20 270 ; MADEIRA +VOR BAM -116.9223 +40.5692 112.20 270 ; BATTLE MOUNTAIN +VOR SSM -84.3149 +46.4120 112.20 270 ; SAULT STE MARIE +VOR JBA +10.7726 +33.8780 112.20 270 ; DJERBA +VOR SUG -82.2686 +35.4065 112.20 130 ; SUGARLOAF MT +VOR WHA +114.2050 +30.7850 112.20 270 ; WUHAN +VOR BRM -69.3534 +10.0446 112.20 270 ; BARQUISIMETO +VOR RID +8.5415 +49.7817 112.20 130 ; RIED +VOR BOA +11.2907 +44.5370 112.20 270 ; BOLOGNA +VOR MIC +11.0052 +54.3055 112.20 270 ; MICHAELSDORF +VOR FLR +25.7082 +44.5008 112.20 270 ; FLORESTI +VOR KFK +30.5466 +38.8043 112.20 270 ; AFYON +VOR YRE +128.3980 +27.0444 112.25 270 ; YORON +VOR BJA +29.3220 -3.3463 112.30 270 ; BUJUMBURA +VOR SJN -109.1435 +34.4241 112.30 270 ; ST JOHNS +VOR HSN +122.3617 +29.9317 112.30 270 ; ZHOUSHAN +VOR KTM +85.3492 +27.6747 112.30 270 ; KATHMANDU +VOR TN +132.3711 -14.5192 112.30 270 ; TINDAL +VOR CG +153.5039 -28.1689 112.30 270 ; COOLANGATTA +VOR LXI +103.7433 +24.5383 112.30 270 ; LUXI +VOR LTJ -121.1008 +45.7136 112.30 270 ; KLICKITAT +VOR BIB +145.4117 -16.9167 112.30 270 ; BIBOOHRA +VOR WN +174.8170 -41.3372 112.30 270 ; WELLINGTON +VOR VUB +13.6000 -14.9167 112.30 270 ; LUBANGO +VOR YGH -128.6228 +66.2361 112.30 270 ; FORT GOOD HOPE +VOR JJO +73.0493 +26.2336 112.30 270 ; JODHPUR +VOR SKE +135.4483 +34.4919 112.30 270 ; SHINODA +VOR HGU +96.2481 +17.0847 112.30 270 ; YANGON +VOR ELW +145.8350 -37.2064 112.30 270 ; EILDON WEIR +VOR SCL -70.7029 -33.5022 112.30 270 ; LOS CERRILLOS +VOR JOT -88.3184 +41.5464 112.30 270 ; JOLIET +VOR UPP -155.8433 +20.2005 112.30 270 ; UPOLU POINT +VOR TJR +13.3446 +9.3344 112.30 270 ; GAROUA +VOR CTG -75.5097 +10.2102 112.30 270 ; CARTAGENA +VOR STM -54.8175 -2.4265 112.30 130 ; SANTAREM +VOR LBL -100.9712 +37.0444 112.30 270 ; LIBERAL +VOR MUN +11.8160 +48.1804 112.30 270 ; MUNCHEN +VOR TRS -42.8250 -5.0662 112.30 270 ; TERESINA +VOR TGL +13.2876 +52.5615 112.30 270 ; TEGEL +VOR SCV +26.3608 +47.6723 112.30 270 ; SUCEAVA +VOR MOV +39.6453 -3.9497 112.30 270 ; MOMBASA +VOR REM +4.0454 +49.3116 112.30 270 ; REIMS +VOR YSB -80.7981 +46.6292 112.30 270 ; SUDBURY +VOR UCF -80.4061 +22.1547 112.30 270 ; CIENFUEGOS +VOR YVC -105.2667 +55.1583 112.30 270 ; LA RONGE +VOR RAM +8.1874 +56.4784 112.30 270 ; RAMME +VOR ZBK +117.3333 +49.6467 112.30 270 ; ZABAYKALSK +VOR ENS +92.1183 +58.4667 112.30 270 ; YENISEYSK +VOR IGR +86.6417 +67.4300 112.30 270 ; IGARKA +VOR IRK +104.3883 +52.2700 112.30 270 ; IRKUTSK +VOR BVL -113.7574 +40.7261 112.30 270 ; BONNEVILLE +VOR KZL +94.2067 +51.5900 112.30 270 ; KYZYL +VOR NJC +76.4683 +60.9433 112.30 270 ; NIZHNEVARTOVSK +VOR BSH +42.6248 +19.9777 112.30 270 ; BISHA +VOR ASH +38.7981 +30.1227 112.30 270 ; AL SHIGAR +VOR YWK -66.8535 +52.9601 112.30 270 ; WABUSH +VOR ALM +77.0867 +43.3750 112.30 270 ; ALMATY +VOR ATR +51.8417 +47.1017 112.30 270 ; ATYRAU +VOR LIE +21.0920 +56.5185 112.30 270 ; LIEPAJA +VOR SHJ +55.5206 +25.3303 112.30 270 ; SHARJAH +VOR PAL +13.1774 +38.0340 112.30 270 ; PALERMO +VOR YXS -122.4556 +53.8942 112.30 270 ; PRINCE GEORGE +VOR PPN -1.7021 +42.7337 112.30 270 ; PAMPLONA +VOR BEO +20.3349 +44.8070 112.30 270 ; BEOGRAD +VOR GLV -90.2847 -0.4320 112.30 270 ; GALAPAGOS +VOR LAV -76.8569 +0.1019 112.30 270 ; LAGO AGRIO +VOR GAO -0.0265 +16.2379 112.30 270 ; GAO +VOR TAN -11.1749 +28.4255 112.30 270 ; TAN TAN +VOR SLL +54.0942 +17.0444 112.30 270 ; SALALAH +VOR PG +8.7475 -0.7288 112.30 270 ; PORT GENTIL +VOR ENI -123.2742 +39.0532 112.30 270 ; MENDOCINO +VOR ZVR +44.3683 +40.1483 112.30 270 ; YEREVAN +VOR LAP -110.3587 +24.0854 112.30 270 ; LA PAZ +VOR NAU -96.7480 +20.1989 112.30 270 ; NAUTLA +VOR ASN +32.8167 +23.9714 112.30 270 ; ASWAN +VOR RAP -103.0123 +43.9760 112.30 270 ; RAPID CITY +VOR GAD -86.0836 +33.9764 112.30 130 ; GADSDEN +VOR CXS -51.1887 -29.1980 112.30 270 ; DO SUL +VOR LNE +25.6233 +62.4208 112.30 270 ; LUONET +VOR VQL +36.8667 -17.8511 112.30 270 ; QUELIMANE +VOR BAV +47.6867 +30.5257 112.30 270 ; BASRAH +VOR IL +4.4309 +8.3857 112.30 270 ; ILORIN +VOR GRV -79.0505 +39.6350 112.30 130 ; GRANTSVILLE +VOR DLC +121.5133 +38.9600 112.30 270 ; DALIAN +VOR RAN -147.6736 -14.9504 112.30 270 ; RANGIROA +VOR CH +114.0301 +22.2195 112.30 270 ; CHEUNG CHAU +VOR HWE +140.8322 +41.7740 112.30 270 ; HAKODATE +VOR GGG -94.7531 +32.4177 112.30 130 ; GREGG CO +VOR CDO -66.1578 +7.6283 112.30 270 ; CAICARA DE ORINOCO +VOR TNT -87.2291 +14.0288 112.30 270 ; TONCONTIN +VOR MUT +33.2917 +36.8631 112.30 270 ; MUT +VOR FLO +5.0202 +61.5816 112.30 270 ; FLORO +VOR AVN +4.7464 +43.9953 112.30 270 ; AVIGNON +VOR VMS +31.3236 -26.5125 112.30 270 ; MATSAPHA +VOR KRS +53.0017 +40.0850 112.30 130 ; TURKMENBASHI +VOR EVX +1.2208 +49.0317 112.40 270 ; EVREUX +VOR FML -80.9548 +34.9891 112.40 130 ; FORT MILL +VOR NAT +34.9677 +32.3323 112.40 270 ; NATANIA +VOR BSV -81.4321 +40.7407 112.40 130 ; BRIGGS +VOR MSS -37.3645 -5.1972 112.40 270 ; MOSSORO +VOR YRT -92.1172 +62.8139 112.40 270 ; RANKIN INLET +VOR LDZ +19.6561 +51.8001 112.40 270 ; LODZ +VOR BZN -111.1555 +45.7839 112.40 270 ; BOZEMAN +VOR LIG +113.5267 +27.6267 112.40 270 ; LILING +VOR AVS -6.0307 +43.5646 112.40 270 ; ASTURIAS +VOR YPK -122.7150 +49.2158 112.40 130 ; PITT MEADOWS, BC +VOR REX -98.2325 +26.0106 112.40 270 ; REYNOSA +VOR CDB -4.8450 +37.8459 112.40 270 ; CORDOBA +VOR ING -16.6381 +63.8031 112.40 270 ; INGO +VOR DOH +51.5772 +25.2336 112.40 270 ; DOHA +VOR VMI +113.9942 +4.3378 112.40 270 ; MIRI +VOR YSM -111.9694 +60.0203 112.40 270 ; FORT SMITH +VOR BNE -60.9755 +13.7328 112.40 270 ; HEWANORRA +VOR HLI -89.4965 +34.7703 112.40 130 ; HOLLY SPRINGS +VOR HML -97.1171 +48.8692 112.40 270 ; HUMBOLDT +VOR NF +167.9322 -29.0472 112.40 270 ; NORFOLK ISLAND +VOR CRJ -50.0028 -6.1192 112.40 270 ; CARAJAS +VOR HUG +144.2231 -20.8142 112.40 270 ; HUGHENDEN +VOR SWL -75.4639 +38.0566 112.40 130 ; SNOW HILL +VOR MQO -120.7596 +35.2523 112.40 130 ; MORRO BAY +VOR XMX +105.6900 -10.4303 112.40 270 ; CHRISTMAS ISLAND +VOR EEL +6.6667 +53.1639 112.40 270 ; EELDE +VOR MZE +131.4375 +31.8787 112.40 270 ; MIYAZAKI +VOR LM +114.0942 -22.2347 112.40 270 ; LEARMONTH +VOR YAN -84.5911 +49.7781 112.40 270 ; AMESON +VOR NIZ +7.2544 +43.7706 112.40 270 ; NICE +VOR CWR +148.6456 -33.8478 112.40 270 ; COWRA +VOR ABB -85.6360 +38.5888 112.40 130 ; NABB +VOR UKW -97.8213 +33.5359 112.40 270 ; BOWIE +VOR DER +17.9750 +44.9850 112.40 270 ; DERVENTA +VOR JNC -108.7926 +39.0596 112.40 270 ; GRAND JUNCTION +VOR SSB +77.7062 +28.3842 112.40 270 ; SIKANDRABAD +VOR KRS +22.5153 +58.2283 112.40 270 ; KURESSAARE +VOR LON -51.1127 -23.3395 112.40 270 ; LONDRINA +VOR FLA -75.4891 +1.4863 112.40 270 ; FLORENCIA +VOR WRN +27.8164 +43.2306 112.40 270 ; VARNA +VOR PWE -96.2063 +40.2004 112.40 270 ; PAWNEE CITY +VOR EWM -106.2724 +31.9517 112.40 130 ; NEWMAN +VOR FTV +27.4739 -21.1636 112.40 270 ; FRANCISTOWN +VOR ERZ +41.2070 +39.9566 112.40 270 ; ERZURUM +VOR MMV +80.1707 +12.9931 112.50 270 ; CHENNAI +VOR GGV +22.3776 -34.0073 112.50 270 ; GEORGE +VOR SAB -2.2064 +55.9075 112.50 270 ; ST. ABBS +VOR ECG -76.1756 +36.2575 112.50 130 ; ELIZABETH CITY +VOR DNP +35.1042 +48.3592 112.50 270 ; DNEPROPETROVSK +VOR ZG -16.2726 +12.5575 112.50 270 ; ZIGUINCHOR +VOR RY +170.2806 -44.1351 112.50 270 ; MOUNT MARY +VOR FHD +56.4854 +22.3487 112.50 270 ; FAHUD +VOR BTE -78.5205 -9.1471 112.50 270 ; CHIMBOTE +VOR CF +15.5792 -0.0215 112.50 270 ; MAKOUA +VOR NN +177.4000 -17.6532 112.50 270 ; NADI +VOR YEV -133.5483 +68.3081 112.50 270 ; INUVIK +VOR ARE -3.6025 +48.3326 112.50 270 ; MONTS D'ARREE +VOR TMS +5.4647 +22.8428 112.50 270 ; TAMANRASSET +VOR FIM -118.8813 +34.3567 112.50 130 ; FILLMORE +VOR LZZ -98.1419 +31.1855 112.50 270 ; LAMPASAS +VOR TFN -16.2691 +28.5366 112.50 270 ; TENERIFE NORTE +VOR ESP -9.1861 +38.4250 112.50 270 ; ESPICHEL +VOR CAG +125.4956 -32.2633 112.50 270 ; CAIGUNA +VOR KAS +12.6136 +55.5905 112.50 270 ; KASTRUP +VOR PXM -97.0864 +15.8733 112.50 270 ; ESCONDIDO +VOR HRB +126.2600 +45.6233 112.50 270 ; HARBIN +VOR YVP -68.4273 +58.0963 112.50 270 ; KUJACK +VOR WAV +40.0822 +1.7469 112.50 270 ; WAJIR +VOR MNR +19.4055 +47.3347 112.50 270 ; MONOR +VOR KPO +129.4743 +35.9775 112.50 270 ; POHANG +VOR ABA -69.9407 +12.5098 112.50 270 ; ARUBA +VOR OSA -64.2731 -36.5839 112.50 270 ; SANTA ROSA +VOR HRO -93.2133 +36.3183 112.50 130 ; HARRISON +VOR KA +8.4958 +12.0367 112.50 270 ; KANO +VOR HAR -77.0696 +40.3022 112.50 130 ; HARRISBURG +VOR BN +125.4854 +8.9493 112.50 270 ; BUTUAN +VOR RYN +101.6817 +12.7783 112.50 270 ; RAYONG +VOR BGQ -149.9671 +61.5695 112.50 270 ; BIG LAKE +VOR KSE +144.2041 +43.0338 112.50 270 ; KUSHIRO +VOR TGO +9.2592 +48.6184 112.50 270 ; TANGO +VOR BIK +136.0862 -1.1825 112.50 270 ; BIAK +VOR BRK -104.6335 +38.9445 112.50 130 ; BLACK FOREST +VOR IST +28.8097 +40.9625 112.50 270 ; ISTANBUL +VOR TNU -93.1090 +41.7838 112.50 130 ; NEWTON +VOR PIR -100.1629 +44.3945 112.50 130 ; PIERRE +VOR LJT -88.0373 +43.1098 112.50 130 ; TIMMERMAN +VOR ALR +3.2156 +36.6911 112.50 270 ; ALGER +VOR CAI +31.4239 +30.1519 112.50 270 ; CAIRO +VOR LWM -71.0948 +42.7404 112.50 130 ; LAWRENCE +VOR LMT +16.2650 +38.9028 112.50 130 ; LAMEZIA TERME +VOR TUT -170.7083 -14.3326 112.50 270 ; PAGO PAGO +VOR YZU -115.7972 +54.1456 112.50 270 ; WHITECOURT +VOR REO -117.8682 +42.5906 112.50 270 ; ROME +VOR CEA +88.4529 +22.6452 112.50 270 ; CALCUTTA +VOR SYX +109.1733 +18.3067 112.50 270 ; NANSHAN +VOR TRM +10.8901 +63.5259 112.50 270 ; TRONDHEIM +VOR PQE +139.8955 +34.9464 112.50 270 ; TATEYAMA +VOR OHR +20.7364 +41.1724 112.50 270 ; OHRID +VOR APU +121.5222 +25.1769 112.50 270 ; ANPU +VOR KFA +49.8195 +26.3648 112.50 270 ; KING FAHD +VOR PRT +11.2014 +43.8106 112.50 270 ; PERETOLA +VOR SV +33.5589 +1.7260 112.50 270 ; SOROTI +VOR VIL +28.1180 +61.0391 112.50 270 ; VILMAS +VOR KRA +45.0242 +12.8297 112.50 270 ; ADEN +VOR VLI +25.8194 -17.8128 112.50 270 ; LIVINGSTONE +VOR DNV +30.9515 -29.9723 112.50 270 ; DURBAN +VOR RKA -75.2392 +42.4663 112.60 130 ; ROCKDALE +VOR LT +147.2131 -41.5439 112.60 270 ; LAUNCESTON +VOR PXN -120.7787 +36.7155 112.60 130 ; PANOCHE +VOR HMR +18.3916 +60.2793 112.60 270 ; HAMMAR +VOR RST +49.6157 +37.3263 112.60 270 ; RASHT +VOR HN +160.0167 -9.4367 112.60 270 ; HONIARA +VOR BBJ +69.6679 +23.2711 112.60 270 ; BHUJ +VOR BFF -103.4820 +41.8942 112.60 270 ; SCOTTSBLUFF +VOR ATR -75.2113 +38.8098 112.60 130 ; WATERLOO +VOR KAM +22.0247 +37.0631 112.60 130 ; KALAMATA +VOR DN +130.9061 -12.4231 112.60 270 ; DARWIN +VOR HYK -84.4725 +37.9663 112.60 130 ; LEXINGTON +VOR EPH -119.4240 +47.3779 112.60 270 ; EPHRATA +VOR NOA +12.2415 +56.1056 112.60 270 ; NORA +VOR CZM -86.9293 +20.5221 112.60 270 ; COZUMEL +VOR BGO +96.5217 +17.3167 112.60 270 ; BAGO +VOR VIE +16.0494 +41.9131 112.60 270 ; VIESTE +VOR SWA +116.7700 +23.4400 112.60 270 ; SHANTOU +VOR INW -110.7950 +35.0616 112.60 270 ; WINSLOW +VOR PNV +27.1227 -25.3958 112.60 270 ; PILANESBERG +VOR NLD -99.5651 +27.4398 112.60 270 ; NEWLA +VOR JAN -90.1676 +32.5075 112.60 270 ; JACKSON +VOR CMB +3.1514 +50.2281 112.60 270 ; CAMBRAI +VOR CKB -80.2679 +39.2532 112.60 130 ; CLARKSBURG +VOR OKL +14.2628 +50.0964 112.60 270 ; PRAHA +VOR YYL -101.0753 +56.8642 112.60 270 ; LYNN LAKE +VOR OMN -81.1127 +29.3033 112.60 270 ; ORMOND BEACH +VOR CDB -162.7742 +55.2674 112.60 270 ; COLD BAY +VOR SOF +23.3892 +42.6978 112.60 270 ; SOFIA +VOR KAD +35.4847 +33.8056 112.60 270 ; KHALDEH +VOR TMB -55.9239 -31.7503 112.60 270 ; TACUAREMBO +VOR DGO -2.8809 +42.4536 112.60 270 ; DOMINGO +VOR SRL -112.2815 +27.3036 112.60 270 ; ROSALIA +VOR MHN +4.2172 +39.8635 112.60 270 ; MENORCA +VOR LCE -76.7211 +7.8160 112.60 270 ; LOS CEDROS +VOR ORI +9.7072 +45.6700 112.60 130 ; ORIO AL SERIO +VOR PIH -112.6522 +42.8704 112.60 270 ; POCATELLO +VOR DLH -92.2029 +46.8022 112.60 270 ; DULUTH +VOR ILM +46.4154 +33.5784 112.60 270 ; ILAM +VOR YME +135.1370 +35.4807 112.60 270 ; MIYAZU +VOR ALN +55.6064 +24.2597 112.60 270 ; AL AIN +VOR NNP +79.0199 +21.1116 112.70 270 ; NAGPUR +VOR YVQ -126.7253 +65.2642 112.70 270 ; NORMAN WELLS +VOR QJG +106.6533 +29.0467 112.70 270 ; QIJIANG +VOR VMA +32.6050 -25.8689 112.70 270 ; MAPUTO +VOR PNA -68.3611 +18.5659 112.70 270 ; PUNTA CANA +VOR BOS -70.9895 +42.3575 112.70 270 ; BOSTON +VOR BD +6.0992 +9.0503 112.70 130 ; BIDA +VOR CXR -81.1632 +41.5169 112.70 270 ; CHARDON +VOR CAB +120.9744 +15.4676 112.70 270 ; CABANATUAN +VOR PVH -63.9032 -8.7138 112.70 270 ; PORTO VELHO +VOR UBL +104.8778 +15.2466 112.70 270 ; UBON +VOR CAP -89.6254 +39.8922 112.70 270 ; CAPITAL +VOR CBN +11.0883 +36.8956 112.70 270 ; CAP BON +VOR AMV -78.5461 -1.2854 112.70 270 ; AMBATO +VOR ANK +53.7297 +33.5375 112.70 270 ; ANARAK +VOR MNV +23.3889 -19.9903 112.70 270 ; MAUN +VOR ADA +35.2099 +36.9404 112.70 270 ; ADANA +VOR VNA +13.2477 -8.8453 112.70 270 ; LUANDA +VOR SAV -81.1125 +32.1606 112.70 270 ; SAVANNAH +VOR NVD +99.0667 +54.8833 112.70 270 ; NIZHNEUDINSK +VOR VYK +116.5833 +39.1833 112.70 270 ; DAWANGZHUANG +VOR YXZ -84.8233 +47.9500 112.70 270 ; WAWA +VOR ADL +39.9483 +43.4017 112.70 270 ; SOCHI +VOR AM +49.2717 +55.6050 112.70 270 ; KAZAN +VOR KZO +65.6000 +44.7067 112.70 270 ; KYZYL ORDA +VOR YCB -105.1728 +69.1178 112.70 270 ; CAMBRIDGE BAY +VOR PSD +32.2378 +31.2788 112.70 270 ; PORT SAID +VOR SPS -98.5936 +33.9872 112.70 270 ; WICHITA FALLS +VOR BOR +140.7419 -36.3928 112.70 270 ; BORDERTOWN +VOR RVK +11.1468 +64.8375 112.70 270 ; ROERVIK +VOR DOM +7.5871 +51.7095 112.70 270 ; DORTMUND +VOR YTZ -47.4498 -5.5238 112.70 270 ; IMPERATRIZ +VOR DV +39.1939 -6.8867 112.70 270 ; DAR ES SALAAM +VOR TIF +40.5473 +21.4865 112.70 270 ; TAIF +VOR TJN +13.5482 +7.3301 112.70 270 ; NGAOUNDERE +VOR KAT +79.8686 +7.1614 112.70 270 ; COLOMBO/KATUNAYAKE +VOR GOI -49.2155 -16.6325 112.70 270 ; GOIANIA +VOR VTB +30.3533 +55.1250 112.70 270 ; VITEBSK +VOR TCS -107.2805 +33.2825 112.70 270 ; TRUTH OR CONSEQUENCES +VOR BOV +27.2694 -32.9072 112.70 270 ; BISHO +VOR YKL -66.7548 +54.8146 112.70 270 ; SCHEFFERVILLE +VOR ESS -9.6904 +31.4036 112.70 270 ; ESSAOUIRA +VOR ZRT -12.4616 +22.7585 112.70 270 ; ZOUERAT +VOR SW +170.4772 -45.7945 112.70 270 ; SWAMPY +VOR DOL +14.7786 +46.0841 112.70 270 ; DOLSKO +VOR ZQA -77.4500 +25.0281 112.70 270 ; NASSAU +VOR HHN -151.0105 -16.6854 112.70 270 ; HUAHINE +VOR JI +61.7958 +25.0636 112.70 270 ; JIWANI +VOR MAC -41.7690 -22.3448 112.70 270 ; MACAE +VOR LA +74.4000 +31.4997 112.70 270 ; LAHORE +VOR ANW -99.9897 +42.5691 112.70 130 ; AINSWORTH +VOR DAC +90.4125 +23.8247 112.70 270 ; DHAKA +VOR TMK +136.8673 -4.5171 112.70 270 ; TIMIKA +VOR TYE +140.2630 +35.7836 112.70 270 ; SAKURA +VOR MTU -110.1277 +40.1450 112.70 270 ; MYTON +VOR MK +149.1872 -21.1728 112.70 270 ; MACKAY +VOR LR +10.2408 -0.7072 112.70 270 ; LAMBARENE +VOR VTB -3.4637 +39.7811 112.70 270 ; VILLATOBAS +VOR ARA +21.4228 +38.1075 112.70 270 ; ARAXOS +VOR VFL -28.6233 +38.5195 112.70 270 ; HORTA +VOR COR -70.0655 +10.1791 112.70 270 ; CARORA +VOR PCA -98.6811 +20.1439 112.70 270 ; PACHUCA +VOR BAK +11.9769 +57.5552 112.70 270 ; BACKA +VOR BGI -59.4839 +13.0750 112.70 270 ; ADAMS +VOR YQX -54.5349 +48.8997 112.70 270 ; GANDER +VOR HEC -116.4629 +34.7970 112.70 270 ; HECTOR +VOR HB +147.5267 -42.8472 112.70 270 ; HOBART +VOR MLT +110.6733 +20.1517 112.70 270 ; DONGMULANTOU +VOR CND +28.4795 +44.2945 112.70 270 ; CONSTANTA +VOR BBU +10.3389 +60.4718 112.75 270 ; BRANDBU +VOR BCE -112.3039 +37.6892 112.80 270 ; BRYCE CANYON +VOR KUE +130.8415 +32.8348 112.80 270 ; KUMAMOTO +VOR BFM -88.0555 +30.6127 112.80 130 ; BROOKLEY +VOR MDY +96.0885 +21.9410 112.80 270 ; CHANMYA +VOR OOD -75.3030 +39.6360 112.80 130 ; WOODSTOWN +VOR PA +2.6191 +9.3701 112.80 130 ; PARAKOU +VOR VFA -7.9750 +37.0135 112.80 270 ; FARO +VOR KUZ +126.6114 +35.9104 112.80 270 ; KUNSAN +VOR HMO -111.0496 +29.0955 112.80 270 ; HERMOSILLO +VOR DCU -86.9395 +34.6483 112.80 130 ; DECATUR +VOR GAM -0.9472 +53.2814 112.80 270 ; GAMSTON +VOR LCA +33.6267 +34.8733 112.80 270 ; LARNACA +VOR YQB -71.6266 +46.7053 112.80 270 ; QUEBEC +VOR SKG +15.0349 +68.5784 112.80 270 ; SKAGEN +VOR YZD +54.3008 +31.8853 112.80 270 ; YAZD SHAHID SADOOGHI +VOR WP +141.9225 -12.6733 112.80 270 ; WEIPA +VOR JOG +110.3093 -7.8003 112.80 270 ; YOGYAKARTA +VOR LNO +5.7103 +50.5858 112.80 270 ; OLNO +VOR TIO +0.2439 +29.2178 112.80 270 ; TIMIMOUN +VOR NYA +143.2328 -34.9689 112.80 270 ; NATYA +VOR PVO +25.5885 +60.2944 112.80 270 ; PORVOO +VOR BAN -2.6298 +41.3236 112.80 270 ; BARAHONA +VOR YRK -82.9783 +38.6441 112.80 130 ; YORK +VOR LNR -90.1331 +43.2944 112.80 130 ; LONE ROCK +VOR ISD -99.7614 +43.4879 112.80 130 ; WINNER +VOR MSO -114.0837 +46.9080 112.80 130 ; MISSOULA +VOR BBI +76.8805 +15.1651 112.80 270 ; BELLARY +VOR CWK -97.5298 +30.3786 112.80 270 ; CENTEX +VOR RNE -1.7372 +48.0703 112.80 270 ; RENNES +VOR FLP -92.4584 +36.2996 112.80 130 ; FLIPPIN +VOR KOR +11.6315 +55.4394 112.80 270 ; KORSA +VOR AXN -95.2326 +45.9584 112.80 130 ; ALEXANDRIA +VOR WLD +11.1294 +48.5794 112.80 270 ; WALDA +VOR GWA +78.2169 +26.2856 112.80 270 ; GWALIOR +VOR CRM +36.5492 +41.2656 112.80 130 ; CARSAMBA +VOR SJC -45.8542 -23.2469 112.80 270 ; SAO JOSE +VOR PAY -67.6090 +5.6189 112.80 270 ; PUERTO AYACUCHO +VOR HPE +141.1396 +39.4332 112.80 270 ; HANAMAKI +VOR TAM +149.8967 -25.8033 112.80 270 ; TAROOM +VOR AKN -156.7521 +58.7247 112.80 270 ; KING SALMON +VOR SKJ +21.6306 +41.9350 112.80 270 ; SKOPJE +VOR GEN +9.0821 +44.4244 112.80 270 ; GENOVA SESTRI +VOR PLG -74.7754 -0.1789 112.80 270 ; PUERTO LEGUIZAMO +VOR LIB -85.5467 +10.5933 112.80 270 ; LIBERIA +VOR EMP -96.1381 +38.2911 112.80 130 ; EMPORIA +VOR YEE -79.7931 +44.5817 112.80 270 ; MIDLAND +VOR ARS +16.6492 +59.5858 112.80 270 ; AROS +VOR CMX -88.4854 +47.1703 112.80 130 ; HOUGHTON +VOR KMG +102.7333 +25.0167 112.90 270 ; KUNMING +VOR CLM +3.0139 +48.8446 112.90 270 ; COULOMMIERS +VOR DLA +9.7435 +3.9939 112.90 270 ; DOUALA +VOR LAO +120.5307 +18.1818 112.90 270 ; LAOAG +VOR YMO -80.6074 +51.2915 112.90 270 ; MOOSONEE +VOR BUN -76.9954 +3.8255 112.90 270 ; BUENAVENTURA +VOR YYE -123.0161 +58.8917 112.90 270 ; FORT NELSON +VOR LVL -77.9030 +36.8180 112.90 130 ; LAWRENCEVILLE +VOR TNK +134.1814 -19.6344 112.90 270 ; TENNANT CREEK +VOR EUG -123.2228 +44.1209 112.90 270 ; EUGENE +VOR CMP +101.9847 +16.6364 112.90 270 ; CHUM PHAE +VOR TEA +13.9707 +41.2968 112.90 270 ; TEANO +VOR SMR +84.9822 +27.1642 112.90 270 ; SIMARA +VOR PZA -83.3883 +14.0450 112.90 270 ; PUERTO CABEZAS +VOR ANY -98.1707 +37.1589 112.90 130 ; ANTHONY +VOR TAY -82.5529 +30.5046 112.90 270 ; TAYLOR +VOR JUJ -65.0908 -24.4003 112.90 270 ; JUJUY +VOR DGO -104.5169 +24.1382 112.90 270 ; DURANGO +VOR ZAH +60.9045 +29.4635 112.90 270 ; ZAHEDAN +VOR PVW -101.7902 +34.0862 112.90 130 ; PLAINVIEW +VOR BJ -16.5750 +13.2718 112.90 270 ; BANJUL +VOR SDA +44.2228 +33.3045 112.90 270 ; SADDAM +VOR QTR +36.0592 +31.2486 112.90 270 ; QATRANEH +VOR TXC -103.2149 +39.6983 112.90 130 ; THURMAN +VOR NDG +123.9200 +47.2400 112.90 270 ; QIQIHAR +VOR JBL +49.4076 +27.0389 112.90 270 ; JUBAIL +VOR ABH +42.6589 +18.2402 112.90 270 ; ABHA +VOR BES -80.3890 -3.5443 112.90 270 ; TUMBES +VOR KEC +135.7945 +33.4477 112.90 270 ; KUSHIMOTO +VOR MEK +118.5325 -26.6069 112.90 270 ; MEEKATHARRA +VOR SBJ -74.7417 +40.5830 112.90 130 ; SOLBERG +VOR IMN +9.6653 +28.0700 112.90 270 ; IN AMENAS +VOR YEN +38.0656 +24.1471 112.90 270 ; YENBO +VOR PTC -67.4960 +6.1817 112.90 270 ; PUERTO CARRENO +VOR NH +68.3867 +26.2169 112.90 270 ; NAWABSHAH +VOR PEV +25.6058 -33.9924 112.90 270 ; PORT ELIZABETH +VOR YTH -97.8253 +55.8112 112.90 270 ; THOMPSON +VOR PPR -61.5401 +16.2652 112.90 270 ; LE RAIZET +VOR ADS +38.7994 +8.9750 112.90 270 ; ADDIS +VOR MMV +25.5351 -25.8259 112.90 270 ; MAFIKENG +VOR TFE -64.7280 -3.3878 112.90 270 ; TEFE +VOR MBY +23.5997 -6.1189 112.90 270 ; MBUJI MAYI +VOR VIW +13.9146 +46.6964 112.90 270 ; VILLACH +VOR LTO +166.2118 -22.0051 112.90 270 ; LA TONTOUTA +VOR TUI -49.7213 -3.8013 112.90 270 ; TUCURUI +VOR CON -71.5755 +43.2198 112.90 130 ; CONCORD +VOR JJP +75.8003 +26.8252 112.90 270 ; JAIPUR +VOR LHO -112.0098 +41.7928 112.90 130 ; BRIGHAM CITY +VOR WSR +8.8754 +53.3476 112.90 270 ; WESER +VOR CZQ -119.8151 +36.8843 112.90 270 ; CLOVIS +VOR SDG +55.5098 -20.8848 112.90 270 ; ST DENIS GILLOT +VOR MVE +143.3951 +44.3053 112.90 270 ; MONBETSU +VOR CDP +3.4344 +39.6977 112.90 270 ; CAPDEPERA +VOR CGI -89.5724 +37.2275 112.90 130 ; CAPE GIRARDEAU +VOR MBS -84.0772 +43.5316 112.90 130 ; SAGINAW +VOR CIP -79.4580 +41.1463 112.90 130 ; CLARION +VOR OG -1.5128 +12.3463 112.90 270 ; OUAGADOUGOU +VOR MCM -92.4822 +39.6541 112.90 130 ; MACON +VOR DIK -102.7735 +46.8600 112.90 270 ; DICKINSON +VOR LBN +26.3521 +56.7734 112.90 270 ; TRAKSHI +VOR GDV -15.4290 +28.0771 112.90 270 ; GRAN CANARIA +VOR OK +151.7375 -27.4000 112.90 270 ; OAKEY +VOR PNA -68.4154 +11.1697 112.90 270 ; PUNTA SAN JUAN +VOR YNC +106.3967 +38.3233 112.90 270 ; YINCHUAN +VOR CCB +77.0472 +11.0238 112.90 270 ; COIMBATORE +VOR EAU -91.4785 +44.8977 112.90 130 ; EAU CLAIRE +VOR KTV +18.1133 -26.5372 112.90 270 ; KEETMANSHOOP +VOR ZTC -77.3792 +26.7348 112.90 270 ; TREASURE CAY +VOR MAD -72.4247 -37.4067 112.90 270 ; LOS ANGELES +VOR TAF -149.6015 -17.5471 112.90 270 ; TAHITI +VOR ENO -58.7906 -34.5628 112.90 270 ; MARIANO MORENO +VOR VMF +31.9000 -13.2683 112.90 270 ; MFUWE +VOR ROX +122.7547 +11.5953 112.90 270 ; ROXAS +VOR OR +174.8066 -38.8266 113.00 270 ; OHURA +VOR NAT +21.3224 +66.7465 113.00 270 ; NATTA +VOR ABR -98.3687 +45.4174 113.00 270 ; ABERDEEN +VOR SUP +13.3795 +55.5345 113.00 270 ; STURUP +VOR HUH -122.5793 +48.9453 113.00 270 ; WHATCOM +VOR AUH +54.6465 +24.4433 113.00 270 ; ABU DHABI +VOR HGH +120.2233 +30.3267 113.00 270 ; HANGZHOU +VOR OE +11.5757 +1.5357 113.00 270 ; OYEM +VOR CAR +113.6728 -24.8819 113.00 270 ; CARNARVON +VOR PNC -48.4017 -10.7192 113.00 270 ; PORTO NACIONAL +VOR KL +122.3809 +11.6855 113.00 270 ; KALIBO +VOR STS -122.8106 +38.5081 113.00 130 ; SANTA ROSA +VOR RBV +32.0935 -28.7407 113.00 270 ; RICHARDS BAY +VOR ANG -0.8519 +47.5369 113.00 270 ; ANGERS +VOR POD +19.2546 +42.3862 113.00 270 ; PODGORICA +VOR SFL -105.0868 +31.7481 113.00 130 ; SALT FLAT +VOR CME -91.8057 +18.6548 113.00 270 ; CARMEN +VOR YIJ +109.1017 +35.3750 113.00 270 ; YIJUN +VOR YPA -105.6667 +53.2167 113.00 270 ; PRINCE ALBERT +VOR AZ +42.6002 +36.7354 113.00 270 ; AIN ZALAH +VOR OBK -87.9516 +42.2238 113.00 270 ; NORTHBROOK +VOR MOK +0.9521 +21.3808 113.00 270 ; BORDJ MOKHTAR +VOR CS +145.7442 -16.8500 113.00 270 ; CAIRNS +VOR JST -78.8342 +40.3167 113.00 130 ; JOHNSTOWN +VOR GQE -90.4782 +35.3470 113.00 130 ; GILMORE +VOR WLE +149.1775 -35.5642 113.00 270 ; WILLIAMSDALE +VOR EPL +6.0594 +48.3178 113.00 270 ; EPINAL +VOR CAX -43.3332 -22.7763 113.00 270 ; CAXIAS +VOR JSR +89.1631 +23.1769 113.00 270 ; JESSORE +VOR YTS -81.3700 +48.5719 113.00 270 ; TIMMINS +VOR MCO -35.7922 -9.5127 113.00 270 ; MACEIO +VOR YFC -66.4188 +45.8948 113.00 270 ; FREDERICTON +VOR LUC +6.2558 +43.3828 113.00 270 ; LE LUC +VOR VSJ -0.8128 +37.7798 113.00 270 ; MURCIA/SAN JAVIER +VOR VEH +27.8138 +62.9798 113.00 270 ; VEHKAA +VOR LIB -79.6126 +35.8116 113.00 130 ; LIBERTY +VOR LFA -72.2700 +8.2418 113.00 270 ; LA FRIA +VOR ZZA -1.0309 +41.6579 113.00 270 ; ZARAGOZA +VOR NI +166.9208 -0.5439 113.00 270 ; NAURU +VOR DBL -106.8947 +39.4393 113.00 270 ; RED TABLE +VOR PJM -63.1183 +18.0379 113.00 270 ; ST MAARTEN +VOR CAN +113.2600 +23.1733 113.00 270 ; GUANGZHOU +VOR HOI -176.2018 -13.2396 113.00 270 ; WALLIS +VOR YTE +140.3580 +38.3886 113.00 270 ; YAMAGATA +VOR DLN -112.5471 +45.2486 113.00 270 ; DILLON +VOR BAF -72.7162 +42.1620 113.00 130 ; BARNES +VOR STO +16.0186 +48.4171 113.00 270 ; STOCKERAU +VOR MDN +98.6077 +3.5049 113.00 270 ; MEDAN +VOR VUH -94.8677 +29.2693 113.00 130 ; SCHOLES +VOR BDV +26.3227 -30.9650 113.10 270 ; BURGERSDORP +VOR DBN -82.8332 +32.5607 113.10 130 ; DUBLIN +VOR TYN +112.6200 +37.7517 113.10 270 ; TAIYUAN +VOR SBY +112.7945 -7.3787 113.10 270 ; SURABAYA +VOR LGA -73.8686 +40.7837 113.10 130 ; LA GUARDIA +VOR DNZ +53.1904 +36.6446 113.10 270 ; DASHT-E-NAZ +VOR HTN +79.8717 +37.0367 113.10 270 ; HOTAN +VOR GRS +0.1489 +35.2094 113.10 270 ; GHRISS +VOR BVI -60.6870 +2.8522 113.10 270 ; BOA VISTA +VOR AAE +72.6250 +23.0722 113.10 270 ; AHMEDABAD +VOR KFT +14.5623 +46.5976 113.10 270 ; KLAGENFURT +VOR BZ +15.2638 -4.2456 113.10 270 ; BRAZZAVILLE MAYA MAYA +VOR YQU -119.0303 +55.1742 113.10 270 ; GRANDE PRAIRIE +VOR YF -17.4748 +14.7448 113.10 270 ; DAKAR +VOR ADW -76.8662 +38.8072 113.10 130 ; ANDREWS +VOR TEQ -99.2550 +18.6832 113.10 270 ; TEQUIS +VOR MON +10.7481 +35.7549 113.10 270 ; MONASTIR +VOR VJN +116.0322 +5.8989 113.10 270 ; KINABALU +VOR CIA +120.5606 +15.1868 113.10 270 ; CLARK +VOR PAV -78.0447 -1.5134 113.10 270 ; PASTAZA +VOR LMS -87.9086 +15.4692 113.10 270 ; LA MESA +VOR MT +49.3942 -18.1242 113.10 270 ; TOAMASINA +VOR SCV -89.6194 -0.9061 113.10 270 ; SAN CRISTOBAL +VOR ONC +128.6990 +27.4329 113.10 270 ; ERABU +VOR TTT -97.0405 +32.8692 113.10 270 ; MAVERICK +VOR XAC +139.4140 +34.7123 113.10 270 ; OSHIMA +VOR HAM +10.2050 +53.6856 113.10 270 ; HAMBURG +VOR YWY -123.3622 +63.1839 113.10 270 ; WRIGLEY +VOR JO +8.8432 +9.6443 113.10 270 ; JOS +VOR LLK +80.8805 +26.7622 113.10 270 ; LUCKNOW +VOR GOL +31.0521 +52.5194 113.10 270 ; GOMEL +VOR VNY -118.4916 +34.2234 113.10 130 ; VAN NUYS +VOR YJT -58.6692 +48.5825 113.10 270 ; STEPHENVILLE +VOR VWV -83.6387 +41.4515 113.10 130 ; WATERVILLE +VOR GCN -112.1461 +35.9603 113.10 130 ; GRAND CANYON +VOR LIN +21.1585 +51.9329 113.10 270 ; LININ +VOR PML -78.1386 +8.4053 113.10 270 ; LA PALMA +VOR LUZ -47.9710 -16.2608 113.10 270 ; LUZIANIA +VOR NV +36.9544 -1.3000 113.10 270 ; NAIROBI +VOR QNX +106.0300 +27.0417 113.10 270 ; QIANXI +VOR TTR +78.7134 +10.7624 113.10 270 ; TIRUCHIRAPPALLI +VOR PSD +37.2417 +19.4011 113.10 270 ; PORT SUDAN NEW +VOR ACC -0.1550 +5.6333 113.10 270 ; ACCRA +VOR LRS -66.6695 +11.9478 113.10 270 ; GRAN ROQUE +VOR BND +56.3810 +27.2165 113.10 270 ; BANDAR ABBASS +VOR HFR +46.1294 +28.3303 113.10 270 ; HAFR AL-BATIN +VOR JUA -68.4214 -31.5639 113.10 270 ; SAN JUAN +VOR STU -5.0403 +51.9947 113.10 270 ; STRUMBLE +VOR VIS -7.8858 +40.7234 113.10 270 ; VISEU +VOR SUN +17.4487 +62.5284 113.10 270 ; SUNDSVALL +VOR DAN -79.3367 +36.5689 113.10 130 ; DANVILLE +VOR CNG -88.8369 +37.0086 113.10 130 ; CUNNINGHAM +VOR NSL +2.4939 +27.2289 113.10 270 ; IN SALAH +VOR SPI +5.6233 +50.5147 113.10 270 ; SPRIMONT +VOR SEY +55.5331 -4.6769 113.10 270 ; SEYCHELLES +VOR CYS -104.7729 +41.2110 113.10 270 ; CHEYENNE +VOR VSB +31.1186 -17.9072 113.10 270 ; HARARE +VOR OKF +15.5456 +48.9692 113.15 270 ; DESNA +VOR NT +1.0827 +9.7473 113.20 270 ; NIAMTOUGOU +VOR DAG -116.5782 +34.9625 113.20 130 ; DAGGETT +VOR FCA -114.1759 +48.2141 113.20 130 ; KALISPELL +VOR TGU +6.0888 +33.0572 113.20 130 ; TOUGGOURT +VOR ATM -52.2477 -3.2493 113.20 270 ; ALTAMIRA +VOR MNG +145.1942 -36.8861 113.20 270 ; MANGALORE +VOR GUA -58.6139 -33.0111 113.20 270 ; GUALEGUAYCHU +VOR BRD +18.0028 +40.6108 113.20 270 ; BRINDISI +VOR NOL +11.8229 +57.7733 113.20 270 ; NOLVIK +VOR OBN -72.2743 +18.4378 113.20 270 ; OBLEON +VOR ZFP -78.6983 +26.5552 113.20 270 ; FREEPORT +VOR KRS +92.5083 +56.1700 113.20 270 ; KRASNOYARSK +VOR LKC +113.8838 +22.3789 113.20 270 ; LUNG KWU CHAU +VOR CIV +3.8331 +50.5744 113.20 270 ; CHIEVRES +VOR KRT +18.2080 +54.2997 113.20 270 ; KARTUZY +VOR MXE -75.6708 +39.9181 113.20 130 ; MODENA +VOR STJ +25.9770 +44.9186 113.20 270 ; STREJNIC +VOR TKT +69.2900 +41.2600 113.20 270 ; TASHKENT +VOR BDA +85.2894 +27.5356 113.20 270 ; BHATTEDANDA +VOR HOC +7.6655 +47.4665 113.20 270 ; HOCHWALD +VOR IKE +129.7769 +33.7475 113.20 270 ; IKI +VOR HUX -96.2616 +15.7772 113.20 270 ; ATULCO +VOR KFR +23.3075 +24.1525 113.20 270 ; KUFRA +VOR ABQ -106.8163 +35.0438 113.20 270 ; ALBUQUERQUE +VOR HRL -97.7933 +26.2912 113.20 130 ; HARLINGEN +VOR EON -87.7911 +41.2696 113.20 130 ; PEOTONE +VOR PNK +109.3751 -0.0792 113.20 270 ; PONTIANAK +VOR LTO -111.3490 +25.9820 113.20 270 ; LORETO +VOR PER -97.1601 +36.7465 113.20 270 ; PIONEER +VOR PRI +21.7959 +61.4646 113.20 270 ; PREVIK +VOR UIB -76.6413 +5.6923 113.20 270 ; QUIBDO +VOR SWR -120.2696 +39.1803 113.20 130 ; SQUAW VALLEY +VOR ISN +51.8280 +32.7470 113.20 270 ; ESFAHAN +VOR YSC -71.7882 +45.3164 113.20 270 ; SHERBROOKE +VOR TLD -4.3375 +39.9695 113.20 270 ; TOLEDO +VOR BN +153.1392 -27.3661 113.20 270 ; BRISBANE +VOR HW +43.9376 +35.2777 113.20 270 ; HAWIJA +VOR MCI -94.7371 +39.2853 113.25 270 ; KANSAS CITY +VOR FOF -61.0228 +14.5907 113.30 270 ; FORT DE FRANCE +VOR BI +71.0311 +29.6800 113.30 270 ; BINDO +VOR VCL +34.9164 -15.6739 113.30 270 ; CHILEKA +VOR VAD -83.1934 +30.9601 113.30 270 ; MOODY +VOR JJU +74.8362 +32.6768 113.30 270 ; JAMMU +VOR TNN +120.2064 +23.1356 113.30 270 ; SHIKANG +VOR YAK -139.6481 +59.5108 113.30 270 ; YAKUTAT +VOR MJV +2.7583 +39.4352 113.30 270 ; PALMA DE MALLORCA +VOR SPP -81.7056 +12.5822 113.30 270 ; SAN ANDRES +VOR ABK +91.3850 +53.7450 113.30 270 ; ABAKAN +VOR PSN -47.3442 -21.9845 113.30 270 ; PIRACUNUNGA +VOR CLL -96.4207 +30.6050 113.30 130 ; COLLEGE STATION +VOR ERO -71.5172 -32.7949 113.30 270 ; QUINTERO +VOR IQQ -70.1726 -20.3746 113.30 270 ; IQUIQUE +VOR MLD +40.1017 -3.2335 113.30 270 ; MALINDI +VOR MAK -8.0984 +31.6142 113.30 270 ; MARRAKECH +VOR SHA -8.8859 +52.7214 113.30 270 ; SHANNON +VOR PRT +21.0314 +42.5725 113.30 270 ; PRISTINA +VOR PTS -52.3280 -31.7188 113.30 270 ; PELOTAS +VOR JUB +31.5929 +4.8786 113.30 270 ; JUBA +VOR LBN +61.5200 +55.3067 113.30 270 ; BALANDINO +VOR HAI +56.2808 +19.9703 113.30 270 ; HAIMA +VOR NSK +82.6367 +55.0083 113.30 270 ; TOLMACHEVO +VOR IWA -111.6514 +33.3032 113.30 130 ; WILLIE +VOR SH +66.6067 +66.5883 113.30 270 ; SALEKHARD +VOR PXV -87.7624 +37.9283 113.30 270 ; POCKET CITY +VOR UCU -75.8227 +19.9778 113.30 270 ; SANTIAGO DE CUBA +VOR AAR +41.1421 +30.9082 113.30 270 ; ARAR +VOR SCH +77.2400 +38.4283 113.30 270 ; SHACHE +VOR SPY +4.8538 +52.5403 113.30 270 ; SPIJKERBOOR +VOR FRS -31.2104 +39.4536 113.30 270 ; FLORES +VOR HLM +106.8870 -6.2719 113.30 270 ; HALIM PERDANAKUSUMA +VOR KIA +46.7594 +24.8860 113.30 270 ; KING KHALID +VOR IRJ -58.9825 -62.1908 113.30 270 ; ISLA REY JORGE +VOR YOJ -117.0931 +58.5544 113.30 270 ; HIGH LEVEL +VOR QUN +41.0748 +19.3698 113.30 270 ; QUNFIDAH +VOR POI +0.2983 +46.5811 113.30 270 ; POITIERS +VOR RWF -95.1283 +44.4672 113.30 270 ; REDWOOD FALLS +VOR YDF -57.2133 +49.2325 113.30 270 ; DEER LAKE +VOR HHN +99.9517 +12.6367 113.30 270 ; HUA HIN +VOR OUK +25.3593 +64.9316 113.30 270 ; OULU +VOR TMR +113.1500 +41.8450 113.30 270 ; TUMURTAI +VOR SLV +20.6225 -32.4500 113.30 270 ; SUTHERLAND +VOR WIV +29.1948 -25.8295 113.30 270 ; WITBANK +VOR SIT +26.1947 +35.0661 113.30 270 ; SITIA +VOR AKT +51.1017 +43.8583 113.30 270 ; AKTAU +VOR FWE +14.1306 +52.4113 113.30 270 ; FURSTENWALDE +VOR YQI -66.0825 +43.8251 113.30 270 ; YARMOUTH +VOR CUC -72.5135 +7.9335 113.30 270 ; CUCUTA +VOR KSV +25.1700 -17.8328 113.30 270 ; KASANE +VOR MUE -155.6699 +19.9981 113.30 270 ; KAMUELA +VOR BAG -52.3957 -15.8535 113.30 270 ; GARCAS +VOR FAK -77.8282 +37.5285 113.30 270 ; FLAT ROCK +VOR CUM -64.1397 +10.4444 113.30 270 ; CUMANA +VOR TIK -89.8759 +16.9183 113.30 270 ; TIKAL +VOR TBK +8.8833 +36.9781 113.30 270 ; TABARKA +VOR HKC +130.5829 +31.6972 113.30 270 ; KAGOSHIMA +VOR VHU +15.7500 -12.8000 113.30 270 ; HUAMBO +VOR SQN -115.9508 +30.4940 113.30 270 ; QUINTIN +VOR CGO +124.6131 +8.4206 113.30 270 ; CAGAYAN DE ORO +VOR GCK -100.7251 +37.9191 113.30 270 ; GARDEN CITY +VOR CSX +113.2167 +28.2033 113.30 270 ; CHANGSHA +VOR TYE +2.3933 +6.3621 113.30 270 ; COTONOU CADJEHOUN +VOR TMN -98.8086 +22.0413 113.30 270 ; TAMUIN +VOR VBT +100.3950 +5.4767 113.30 270 ; BUTTERWORTH +VOR PAF -38.2555 -9.4027 113.30 270 ; PAULO AFONSO +VOR BOI -116.1921 +43.5528 113.30 270 ; BOISE +VOR INB +33.7058 +41.9506 113.30 270 ; INEBOLU +VOR SJE -72.6365 +2.5727 113.30 270 ; SAN JOSE DEL GUAVIARE +VOR SAM -1.3450 +50.9553 113.35 270 ; SOUTHAMPTON +VOR GZA +34.2713 +31.2456 113.35 270 ; GAZA +VOR RAN +98.5833 +9.7783 113.40 270 ; RANONG +VOR IGZ +5.7344 +19.5625 113.40 270 ; IN GUEZZAM +VOR YMJ -105.5633 +50.3311 113.40 270 ; MOOSE JAW +VOR CTG +91.8275 +22.2578 113.40 270 ; CHITTAGONG +VOR AKB +57.1833 +50.2500 113.40 270 ; AKTYUBINSK +VOR SM +44.0142 +34.1883 113.40 270 ; SAMARRA +VOR BAC +95.4222 +5.5226 113.40 270 ; BANDA ACEH +VOR PKS +148.2372 -33.1311 113.40 270 ; PARKES +VOR HYR -91.4464 +46.0190 113.40 130 ; HAYWARD +VOR ZUN -109.1545 +34.9658 113.40 270 ; ZUNI +VOR KRG +73.3667 +49.6933 113.40 270 ; KARAGANDA +VOR PSO -77.2899 +1.3980 113.40 270 ; PASTO +VOR DIL +125.5277 -8.5440 113.40 270 ; DILI +VOR PNK +26.1318 +52.1539 113.40 130 ; PINSK +VOR DXO -83.3667 +42.2132 113.40 270 ; DETROIT +VOR ODF -83.2977 +34.6959 113.40 270 ; FOOTHILLS +VOR ZAP -103.4627 +20.7492 113.40 270 ; ZAPOPAN +VOR OLM -122.9018 +46.9716 113.40 270 ; OLYMPIA +VOR LCH -93.1056 +30.1415 113.40 270 ; LAKE CHARLES +VOR PTG +89.9900 +61.5983 113.40 270 ; PODKAMENNAYA TUNGUSKA +VOR STD +5.3443 +59.7871 113.40 270 ; STORD +VOR SPB +30.2850 +59.8067 113.40 270 ; SANKT-PETERBURG +VOR TRZ +67.3069 +37.2844 113.40 270 ; TERMEZ +VOR HDF -117.1853 +33.7764 113.40 130 ; HOMELAND +VOR AGV -69.2363 +9.5547 113.40 270 ; ACARIGUA +VOR CJN -72.4929 +11.2312 113.40 270 ; CERREJON +VOR OEL -65.6100 -39.2825 113.40 270 ; CHOELE CHOEL +VOR SKA +21.0793 +64.6266 113.40 270 ; SKELLEFTEA +VOR SKP +23.6158 +39.1808 113.40 270 ; SKOPELOS +VOR CUN -86.8592 +21.0253 113.40 270 ; CANCUN +VOR CAG +9.0541 +39.2490 113.40 130 ; CAGLIARI +VOR MNS +74.5217 +43.0683 113.40 270 ; BISHKEK +VOR MTG +13.2517 +32.9094 113.40 270 ; MITIGA +VOR CDR -103.3121 +42.5588 113.40 130 ; CHADRON +VOR GDA -3.9909 +37.1832 113.40 270 ; GRANADA +VOR ATF -56.1050 -9.8683 113.40 270 ; ALTA FLORESTA +VOR NEV +2.9294 +47.1531 113.40 270 ; NEVERS +VOR GRM +43.8489 +40.7300 113.40 270 ; GYUMRI/SHIRAK +VOR VIC +11.6764 +45.6372 113.40 270 ; VICENZA +VOR MAP -91.7886 +37.5908 113.40 130 ; MAPLES +VOR BUG +19.6817 +46.6778 113.40 270 ; BUGAC +VOR KHG +50.3172 +29.2647 113.40 130 ; KHARK ISLAND +VOR PM +175.6380 -40.3185 113.40 270 ; PALMERSTON NORTH +VOR CYN -74.4316 +39.8173 113.40 270 ; COYLE +VOR MVM +2.4878 +49.5525 113.45 270 ; MONTDIDIER +VOR SBA +120.2264 +14.7686 113.50 270 ; SUBIC BAY +VOR TBC -111.2696 +36.1213 113.50 270 ; TUBA CITY +VOR DEL -105.4486 +28.2142 113.50 270 ; DELICIAS +VOR LKT -114.0842 +45.0213 113.50 270 ; SALMON +VOR BQN -67.1084 +18.4980 113.50 270 ; BORINQUEN +VOR SAV +104.7628 +16.5567 113.50 270 ; SAVANNAKHET +VOR XMC +136.9579 +34.7046 113.50 270 ; KOWA +VOR AWE +142.4568 +43.6673 113.50 270 ; ASAHIKAWA +VOR YNT +121.3567 +37.3867 113.50 270 ; YANTAI +VOR RG -159.8150 -21.2017 113.50 270 ; RAROTONGA +VOR EYW -81.8005 +24.5859 113.50 270 ; KEY WEST +VOR BJD +59.2001 +32.9724 113.50 270 ; BIRJAND +VOR PGO -94.6090 +34.6805 113.50 130 ; RICH MOUNTAIN +VOR MIL +24.5178 +36.7444 113.50 270 ; MILOS +VOR SJ +103.8542 +1.2225 113.50 270 ; SINJON +VOR FRE +14.1298 +48.4318 113.50 270 ; FREISTADT +VOR LEV -90.1040 +29.1752 113.50 270 ; LEEVILLE +VOR RS +12.1005 +67.5276 113.50 270 ; ROEST +VOR BBS +85.8113 +20.2448 113.50 270 ; BHUBANESHWAR +VOR FOD -94.2948 +42.6112 113.50 270 ; FORT DODGE +VOR GES +11.9325 +54.6175 113.50 270 ; GEDSER +VOR JMU +130.4617 +46.8383 113.50 270 ; JIAMUSI +VOR SKL +100.6010 +7.1909 113.50 270 ; SONGKHLA +VOR LIH -159.3381 +21.9653 113.50 270 ; LIHUE +VOR CHS -80.0378 +32.8943 113.50 270 ; CHARLESTON +VOR FTM -8.4927 +39.6657 113.50 270 ; FATIMA +VOR CIA +76.3726 +10.1505 113.50 270 ; COCHIN INTL +VOR DZP +45.2809 -12.8110 113.50 270 ; DZAOUDZI PAMANZI +VOR SML +31.6219 +22.3550 113.50 270 ; ABU SIMBEL +VOR UMH +45.0844 +37.6872 113.50 270 ; UROMIYEH +VOR BGN +34.8752 +32.0131 113.50 270 ; BEN GURION +VOR ANB +7.8000 +36.8167 113.50 270 ; ANNABA +VOR YYT -52.8522 +47.4853 113.50 270 ; TORBAY +VOR DKO +107.0000 +40.3150 113.50 270 ; DENGKOU +VOR ERH +38.1120 +38.4624 113.50 270 ; MALATYA +VOR SLI -44.2400 -2.5892 113.50 270 ; SAO LUIS +VOR BHA +41.6291 +20.2925 113.50 270 ; AL BAHA +VOR BVR -103.9280 +39.7658 113.50 270 ; BYERS +VOR CBC -66.0484 +10.5770 113.50 270 ; CABO CODERA +VOR PRR -51.4225 -22.1757 113.50 270 ; PRUDENTE +VOR YSJ -65.8708 +45.4072 113.50 270 ; SAINT JOHN +VOR HIL +41.6838 +27.4250 113.50 270 ; HAIL +VOR PE -17.0350 +20.9144 113.50 270 ; NOUADHIBOU +VOR YCF -77.7047 +44.3331 113.50 270 ; CAMPBELLFORD/ONT +VOR AML -77.4667 +38.9346 113.50 130 ; ARMEL +VOR DIJ +5.0973 +47.2708 113.50 270 ; DIJON +VOR IZK +57.7619 +22.8885 113.50 270 ; IZKI +VOR AS +8.0154 +16.9720 113.50 270 ; AGADES +VOR TIM -58.2577 +6.4922 113.50 270 ; TIMEHRI +VOR LAR -66.8036 -29.3894 113.50 270 ; LA RIOJA +VOR BGA -73.1844 +7.1316 113.50 270 ; BUCARAMANGA +VOR AWK +166.6283 +19.2853 113.50 270 ; WAKE ISLAND +VOR YIN +113.4000 +24.1833 113.50 270 ; YINGDE +VOR UAS -72.1205 -16.3687 113.50 270 ; SIHUAS +VOR NOR -32.4483 -3.8657 113.50 270 ; NORONHA +VOR VLS +28.4209 -15.3280 113.50 270 ; LUSAKA +VOR BTO -86.8633 +15.7350 113.50 270 ; BONITO +VOR OKK -86.0580 +40.5278 113.50 130 ; KOKOMO +VOR POT +6.9600 +5.0339 113.50 270 ; PORT HARCOURT +VOR PAP -1.6608 +42.6884 113.55 130 ; PAMPLONA +VOR MCT -2.2622 +53.3569 113.55 270 ; MANCHESTER +VOR SHY +121.8617 +30.9500 113.60 270 ; SHUYUAN +VOR AGU -102.3198 +21.7105 113.60 270 ; AGUASCALIENTES +VOR BAM +7.1770 +51.3278 113.60 270 ; BARMEN +VOR PMA +128.0871 -3.7148 113.60 270 ; PATTIMURA +VOR VAS +100.4019 +6.1914 113.60 270 ; ALOR SETAR +VOR TCC -103.5985 +35.1821 113.60 270 ; TUCUMCARI +VOR SDA +28.0702 +70.2343 113.60 270 ; SEIDA +VOR HTO -72.3167 +40.9190 113.60 270 ; HAMPTON +VOR KTS +42.4567 +42.1733 113.60 270 ; KUTAISI +VOR SKI +9.5703 +59.1880 113.60 270 ; SKIEN +VOR ARH +33.8319 +31.0731 113.60 270 ; EL ARISH +VOR MNS +28.0217 +53.8850 113.60 270 ; MINSK-2 +VOR YQD -101.1000 +53.9736 113.60 270 ; THE PAS +VOR UIN -91.2788 +39.8479 113.60 270 ; QUINCY +VOR AKI -18.0042 +65.7597 113.60 270 ; AKUREYRI +VOR KHD +38.4592 +37.7242 113.60 270 ; ADIYAMAN +VOR TRZ +17.1143 +51.3082 113.60 270 ; TRZEBNICA +VOR NKZ +62.1283 +45.8308 113.60 130 ; NOVOKAZALINSK +VOR QK +61.7667 +45.2667 113.60 270 ; KAUKEY +VOR CVC +140.7994 +35.7265 113.60 270 ; CHOSHI +VOR SCR -43.7275 -22.9497 113.60 270 ; SANTA CRUZ +VOR IPI -77.6733 +0.8592 113.60 270 ; IPIALES +VOR HUR +116.7483 +40.3300 113.60 270 ; HUAIROU +VOR PRX -95.4483 +33.5424 113.60 130 ; PARIS +VOR GRN +25.7103 +43.1531 113.60 270 ; GORNA ORYAHOVITSA +VOR JYU -86.9913 +32.3446 113.60 270 ; JUNIOR +VOR CKG +106.5299 -6.1879 113.60 270 ; CENGKARENG +VOR PNG -100.5384 +28.6319 113.60 270 ; PIEDRAS +VOR OMD +49.5056 +30.8519 113.60 270 ; OMIDIYEH +VOR RAV +55.9583 +25.5492 113.60 270 ; RAS AL KHAIMAH +VOR LAX -118.4320 +33.9331 113.60 270 ; LOS ANGELES +VOR VGO -8.6016 +42.3213 113.60 270 ; VIGO +VOR TOK +152.3976 -4.3465 113.60 270 ; TOKUA +VOR EWN -77.0451 +35.0731 113.60 130 ; NEW BERN +VOR PRG -70.1353 +11.7807 113.60 270 ; PARAGUANA +VOR OED -122.9130 +42.4796 113.60 270 ; ROGUE VALLEY +VOR LON -0.4667 +51.4872 113.60 270 ; LONDON +VOR YNA -61.7811 +50.1836 113.60 270 ; NATASH +VOR DJB -82.1620 +41.3581 113.60 270 ; DRYER +VOR WBV +14.6453 -22.9819 113.60 270 ; WALVIS BAY +VOR LCU -113.8406 +41.3630 113.60 270 ; LUCIN +VOR DNB +68.8100 +38.5417 113.60 270 ; DUSHANBE +VOR YWL -122.1697 +52.2369 113.60 270 ; WILLIAMS LAKE +VOR MHF -94.7475 +29.5463 113.60 130 ; TRINITY +VOR BLG +127.4267 +50.3933 113.60 270 ; BLAGOVESCHENSK +VOR TAZ +44.1375 +13.6994 113.60 270 ; TAIZ +VOR BRT +101.6867 +56.3717 113.60 270 ; BRATSK +VOR WIK -3.1003 +58.4589 113.60 270 ; WICK +VOR SH +168.7826 -44.9841 113.60 270 ; SLOPE HILL +VOR VNT +21.5562 +57.3669 113.60 270 ; VENTSPILS +VOR GGO +73.8126 +15.3798 113.60 270 ; GOA +VOR MTD +2.4894 +49.5528 113.65 270 ; MONTDIDIER +VOR HON -1.6636 +52.3567 113.65 270 ; HONILEY +VOR MTL +4.7800 +44.5550 113.65 270 ; MONTELIMAR +VOR BPN +45.4453 +27.0540 113.70 270 ; BOPAN +VOR YMR -76.1408 -5.8922 113.70 270 ; YURIMAGUAS +VOR EQU -71.5955 -16.3354 113.70 270 ; AREQUIPA +VOR COT +124.2097 +7.1656 113.70 270 ; COTABATO +VOR YYJ -123.4844 +48.7269 113.70 270 ; VICTORIA +VOR HCN +120.8439 +21.9281 113.70 270 ; HENGCHUN +VOR PH +115.9592 -31.9450 113.70 270 ; PERTH +VOR PTA -57.8983 -34.9758 113.70 270 ; LA PLATA +VOR VWV +23.1089 -31.3969 113.70 270 ; VICTORIA WEST +VOR PN +148.5528 -20.4967 113.70 270 ; PROSERPINE +VOR OTT -76.7447 +38.7059 113.70 130 ; NOTTINGHAM +VOR YQG +117.2167 +36.8300 113.70 270 ; JINAN +VOR RK +70.2726 +28.3658 113.70 270 ; RAHIM YAR KHAN +VOR YVO -77.8203 +48.1753 113.70 270 ; VAL D OR +VOR MRB -49.1352 -5.3681 113.70 270 ; MARABA +VOR ASM +38.9008 +15.2842 113.70 270 ; ASMARA +VOR BKO -7.9305 +12.5461 113.70 270 ; BAMAKO/SENOU +VOR UWS +48.8150 +54.4033 113.70 270 ; VOSTOCHNY +VOR ZAG +16.3067 +45.8956 113.70 270 ; ZAGREB +VOR SNO -71.6194 -33.6658 113.70 270 ; SANTO DOMINGO +VOR DAR +56.9946 +31.7832 113.70 270 ; DARBAND +VOR PLS +57.6625 -20.4200 113.70 270 ; PLAISANCE +VOR KRT +102.1365 +14.9183 113.70 270 ; KHORAT +VOR SLT +28.2302 +71.0790 113.70 270 ; SLETTNES +VOR MIA +142.0858 -34.2267 113.70 270 ; MILDURA +VOR PYE -122.8678 +38.0798 113.70 270 ; POINT REYES +VOR TBS +44.9750 +41.6500 113.70 270 ; TBILISI +VOR GBV +25.8325 -24.5978 113.70 270 ; GABORONE +VOR VKN +103.2117 +3.7764 113.70 270 ; KUANTAN +VOR BLH +74.9817 +46.8817 113.70 270 ; BALKHASH +VOR AMB +1.0644 +47.4289 113.70 270 ; AMBOISE +VOR ANT +25.1269 +60.8631 113.70 270 ; ANTON +VOR VSM -25.1664 +36.9629 113.70 270 ; SANTA MARIA +VOR GSH -86.0280 +41.5252 113.70 270 ; GOSHEN +VOR JIG +105.7200 +35.5283 113.70 270 ; JINGNING +VOR VBR +34.8717 -19.7878 113.70 270 ; BEIRA +VOR LT -13.6164 +28.9419 113.70 270 ; LANZAROTE +VOR USU -68.2842 -54.8381 113.70 270 ; USHUAIA +VOR LAP -43.4082 -13.2647 113.70 270 ; LAPA +VOR KRE +133.6802 +33.5418 113.70 270 ; KOCHI +VOR THN +87.9333 +65.7833 113.70 270 ; TURUKHARNSK +VOR HIA -112.1696 +45.8618 113.70 270 ; WHITEHALL +VOR HLC -100.2259 +39.2587 113.70 270 ; HILL CITY +VOR RIX +23.9670 +56.8974 113.70 270 ; RIGA +VOR CVM -98.9595 +23.7052 113.70 270 ; VICTORIA +VOR SVL -5.7622 +37.4279 113.70 270 ; SEVILLA +VOR SRN +9.0229 +45.6468 113.70 270 ; SARONNO +VOR ABI -99.8635 +32.4813 113.70 270 ; ABILENE +VOR CIA -56.1120 -15.6560 113.70 270 ; CUIABA +VOR LBN +109.2333 +23.7333 113.70 270 ; LAIBIN +VOR VUE +19.8667 -11.7833 113.70 270 ; LUENA +VOR LAG +3.3265 +6.7070 113.70 270 ; LAGOS +VOR MU +13.1102 +11.8817 113.70 270 ; MAIDUGURI +VOR YAY -56.0839 +51.3939 113.70 270 ; ST. ANTHONY, NFLD +VOR IMR +27.0067 +38.3162 113.70 270 ; IZMIR +VOR WRB +9.1109 +51.5057 113.70 270 ; WARBURG +VOR LEB -72.2161 +43.6789 113.70 130 ; LEBANON +VOR OCF -82.2263 +29.1775 113.70 130 ; OCALA +VOR VGO +28.9700 -18.2458 113.70 270 ; GOKWE +VOR BAQ -74.8586 +10.7952 113.70 270 ; BARRANQUILLA +VOR BNN -0.5497 +51.7261 113.75 270 ; BOVINGDON +VOR NRG +124.8833 +56.9000 113.80 270 ; CHULMAN +VOR MIA +121.0217 +14.5079 113.80 270 ; MANILA +VOR VNN -88.8073 +38.3620 113.80 130 ; MOUNT VERNON +VOR YBR -99.9457 +49.9100 113.80 270 ; BRANDON +VOR KVB +7.8107 +63.1182 113.80 270 ; KVERNBERGET +VOR RLG -106.4425 +40.0026 113.80 270 ; KREMMLING +VOR NWV +30.5908 +25.4531 113.80 270 ; EL KHARGA +VOR NR +176.8689 -39.4538 113.80 270 ; NAPIER +VOR UHT +53.7950 +63.5600 113.80 270 ; UKHTA +VOR TLA -3.3528 +55.4992 113.80 270 ; TALLA +VOR ZJ +69.1333 +61.0333 113.80 270 ; KHANTY MANSIYSK +VOR CVA -90.4835 +41.7084 113.80 130 ; DAVENPORT +VOR EWA -88.4584 +32.3668 113.80 130 ; KEWANEE +VOR ZY +45.3582 +32.8256 113.80 270 ; ZUBEIDIYA +VOR YYG -63.1197 +46.2975 113.80 270 ; CHARLOTTETOWN +VOR KAR +43.1240 +40.5677 113.80 270 ; KARS +VOR MRH +58.8961 +20.6744 113.80 270 ; MASIRAH ISLAND +VOR ZIH -101.4776 +17.6043 113.80 270 ; ZITANEJO +VOR ICT -97.5838 +37.7452 113.80 270 ; WICHITA +VOR SRE +103.8250 +13.4136 113.80 270 ; SIEM REAP +VOR YQG -82.8288 +42.2498 113.80 270 ; WINDSOR +VOR ALG +8.2439 +40.6281 113.80 270 ; ALGHERO +VOR ALT -0.5701 +38.2683 113.80 270 ; ALICANTE +VOR ROA -86.5317 +16.3150 113.80 270 ; ROATAN +VOR SBG +12.8928 +48.0026 113.80 270 ; SALZBURG +VOR BKA -135.5513 +56.8594 113.80 270 ; BIORKA ISLAND +VOR TRO +18.9968 +69.7028 113.80 270 ; TROMSO +VOR DEM +114.0200 +62.5400 113.80 130 ; MIRNY +VOR ILR -118.9550 +43.5931 113.80 130 ; WILDHORSE +VOR STV -98.7058 +30.2068 113.80 270 ; STONEWALL +VOR ALX +25.9567 +40.8539 113.80 270 ; ALEXANDROUPOLIS +VOR EBA +9.2547 +31.7059 113.80 130 ; EL BORMA +VOR BNE +1.9072 +50.6247 113.80 270 ; BOULOGNE SUR MER +VOR LIM -77.1229 -12.0085 113.80 270 ; LIMA +VOR VNO +25.2936 +54.6361 113.80 270 ; VILNIUS +VOR ROB -10.3583 +6.2395 113.80 270 ; MONROVIA ROBERTS +VOR GVO -120.0911 +34.5313 113.80 130 ; GAVIOTA +VOR VIR -63.1488 -17.6251 113.80 270 ; VIRU VIRU +VOR HAO -140.9408 -18.0819 113.80 270 ; HAO +VOR RBV -74.4950 +40.2024 113.80 270 ; ROBBINSVILLE +VOR TOR +10.2593 +59.1691 113.85 270 ; TORP +VOR DGN +6.1008 +43.9914 113.85 270 ; DIGNE +VOR NZ +146.7089 -6.5683 113.90 270 ; NADZAB +VOR BCR -2.2564 +31.6850 113.90 270 ; BECHAR +VOR KLA +21.2438 +55.7156 113.90 130 ; KLAIPEDA +VOR TGZ -93.3501 +16.7690 113.90 270 ; TUXTLA +VOR TBO +0.1458 +43.3322 113.90 270 ; TARBES +VOR TNY -104.8369 +21.4222 113.90 270 ; TEPIC +VOR YHY -115.8033 +60.8361 113.90 270 ; HAY RIVER +VOR AOR +12.9612 +56.1205 113.90 270 ; ASTOR +VOR IRQ -82.1621 +33.7074 113.90 270 ; COLLIERS +VOR PZA -70.7051 -9.7691 113.90 270 ; PUERTO ESPERANZA +VOR BNO +16.6923 +49.1484 113.90 270 ; BRNO +VOR SCC -148.4162 +70.1992 113.90 270 ; DEADHORSE +VOR GGW -106.6255 +48.2153 113.90 270 ; GLASGOW +VOR BT +15.7838 +4.2294 113.90 270 ; BERBERATI +VOR OWE +135.4516 +34.7760 113.90 270 ; OSAKA +VOR YRI -69.5898 +47.7575 113.90 270 ; RIVIERE DU LOUP +VOR BOG -74.3250 +4.8460 113.90 270 ; BOGOTA +VOR GML +27.5511 +37.2761 113.90 130 ; MILAS BODRUM +VOR ORD -87.9049 +41.9877 113.90 130 ; CHICAGO O'HARE +VOR CKH -157.7030 +21.2652 113.90 270 ; KOKO HEAD +VOR SLT -77.9701 +41.5128 113.90 270 ; SLATE RUN +VOR GEL +114.7061 -28.7903 113.90 270 ; GERALDTON +VOR VSB +111.9969 +2.2483 113.90 270 ; SIBU +VOR MNV -80.6646 -0.9364 113.90 270 ; MANTA +VOR SPE +141.3024 +43.1746 113.90 270 ; SAPPORO +VOR ONL -98.6869 +42.4705 113.90 270 ; O'NEILL +VOR HCN -72.1968 +19.7278 113.90 270 ; CAP HAITIEN +VOR KHM +36.9536 +37.5381 113.90 270 ; KAHRAMANMARAS +VOR BAL -67.5470 +10.1861 113.90 270 ; EL LIBERTADOR +VOR SPR +6.4481 +46.4687 113.90 270 ; ST. PREX +VOR VNP +39.3006 -15.0850 113.90 270 ; NAMPULA +VOR OSI -122.2813 +37.3925 113.90 130 ; WOODSIDE +VOR VMB +120.3333 +31.5833 113.90 270 ; WUXI +VOR MCS -57.6383 -30.2667 113.90 270 ; MONTE CASEROS +VOR SME +9.5012 +40.8900 113.90 270 ; OLBIA COSTA SMERALDA +VOR DIR +12.8805 +18.9815 113.90 270 ; DIRKOU +VOR ISP -74.9183 -47.7150 113.90 270 ; ISLOTE SAN PEDRO +VOR ALS -105.8155 +37.3492 113.90 270 ; ALAMOSA +VOR DHP -80.3490 +25.8000 113.90 270 ; DOLPHIN +VOR ARG +128.4489 -16.6317 113.90 270 ; ARGYLE +VOR KSI -1.5906 +6.7083 113.90 270 ; KUMASI +VOR LIT -92.1805 +34.6777 113.90 270 ; LITTLE ROCK +VOR TBN -70.8372 -32.9183 113.90 270 ; TABON +VOR ZAM +122.0563 +6.9217 113.90 270 ; ZAMBOANGA +VOR YDC -120.3739 +49.3817 113.90 270 ; PRINCETON +VOR WEJ +36.4881 +26.1791 113.90 270 ; WEJH +VOR DDG +124.2883 +40.2600 113.90 270 ; DANDONG +VOR FA -171.9929 -13.8287 113.90 270 ; FALEOLO +VOR BDA -64.6896 +32.3644 113.90 270 ; BERMUDA +VOR SDM +2.9750 +36.6306 113.90 130 ; ALGER +VOR FJC +104.3050 +29.9283 113.90 270 ; FUJIACHANG +VOR SGR -8.9464 +37.0838 113.90 270 ; SAGRES +VOR SK +5.2492 +12.9183 113.90 270 ; SOKOTO +VOR OTR -0.1036 +53.6983 113.90 270 ; OTTRINGHAM +VOR DTI +43.0932 +11.5488 113.90 270 ; DJIBOUTI/AMBOULI +VOR BBN +82.8593 +25.4540 113.90 270 ; VARANASI +VOR SFM +10.6900 +34.7142 113.90 270 ; SFAX +VOR BEN -7.3653 +57.4779 113.95 270 ; BENBECULA +VOR RBO -3.2466 +40.8539 113.95 270 ; ROBLEDILLO +VOR ODS +30.6708 +46.4292 113.95 270 ; ODESA +VOR AYT +30.7946 +36.9210 114.00 270 ; ANTALYA +VOR MRC -42.8915 -22.9677 114.00 270 ; MARICA +VOR YRL -93.7619 +51.0714 114.00 270 ; RED LAKE +VOR VAD +54.4652 +24.4274 114.00 270 ; BATEEN +VOR AUC -70.7321 +7.0675 114.00 270 ; ARAUCA +VOR OTO -105.9360 +35.0722 114.00 130 ; OTTO +VOR HSV +31.0476 -24.3472 114.00 270 ; HOEDSPRUIT +VOR MNT +15.2796 +58.3870 114.00 270 ; MANTOR +VOR AWZ +48.7643 +31.3376 114.00 270 ; AHWAZ +VOR TMD +64.6333 +41.7500 114.00 130 ; TAMDYBULAK +VOR FOT -124.2345 +40.6713 114.00 130 ; FORTUNA +VOR VER -96.1894 +19.1431 114.00 270 ; VERACRUZ +VOR MID -0.6250 +51.0539 114.00 270 ; MIDHURST +VOR BSR -121.6421 +36.1813 114.00 130 ; BIG SUR +VOR DQO -75.6071 +39.6781 114.00 130 ; DUPONT +VOR SHR +117.9667 +28.4167 114.00 270 ; SHANGRAO +VOR VVZ +83.2528 +17.6677 114.00 270 ; VISHAKHAPATNAM +VOR HN +175.3385 -37.8493 114.00 270 ; HAMILTON +VOR MAI -85.1245 +30.7862 114.00 130 ; MARIANNA +VOR TCO -78.7480 +1.8147 114.00 270 ; TUMACO +VOR AST -123.8804 +46.1617 114.00 130 ; ASTORIA +VOR ECK -82.7179 +43.2559 114.00 270 ; PECK +VOR JLI -116.5859 +33.1405 114.00 130 ; JULIAN +VOR PSN +128.9997 +35.1234 114.00 270 ; PUSAN +VOR SSR -135.2589 +58.1777 114.00 270 ; SISTERS ISLAND +VOR ORA -0.6550 +35.6128 114.00 270 ; ORAN +VOR BRC -7.5573 +33.2782 114.00 270 ; CASABLANCA +VOR TAN +38.6534 +33.4856 114.00 270 ; TANF +VOR ANX -94.1288 +39.0954 114.00 130 ; NAPOLEON +VOR SIN +35.0753 +42.0213 114.00 270 ; SINOP +VOR CEF -72.5263 +42.1975 114.00 130 ; WESTOVER +VOR SLC +19.1158 +48.4533 114.00 270 ; SLIAC +VOR VPT +104.1108 +2.9164 114.00 270 ; PULAU TIOMAN +VOR SNE +139.9815 +35.9348 114.00 270 ; MORIYA +VOR VSN +118.0719 +5.9064 114.00 270 ; SANDAKAN +VOR SJU -65.9895 +18.4463 114.00 270 ; SAN JUAN +VOR UIM -95.3668 +32.8804 114.00 130 ; QUITMAN +VOR SJD -109.7220 +23.1454 114.00 270 ; CABOS +VOR LKA +74.1092 +28.1795 114.00 270 ; ESDEM +VOR NGP -97.2947 +27.6863 114.00 130 ; TRUAX +VOR BUN +30.2167 +1.5639 114.00 270 ; BUNIA +VOR LYD +0.8786 +50.9997 114.05 270 ; LYDD +VOR VRD +31.0472 +70.3576 114.10 270 ; VARDOE +VOR SJC -121.9446 +37.3747 114.10 130 ; SAN JOSE +VOR HRV -90.0030 +29.8502 114.10 130 ; HARVEY +VOR BAK +50.0506 +40.4725 114.10 270 ; BAKU/BINA +VOR BRT +87.2631 +26.4808 114.10 270 ; BIRATNAGAR +VOR DRK -112.4804 +34.7026 114.10 270 ; DRAKE +VOR UME +20.2852 +63.7886 114.10 270 ; UMEA +VOR HZN -118.9977 +39.5164 114.10 130 ; HAZEN +VOR MSS -74.7227 +44.9144 114.10 270 ; MASSENA +VOR ZAJ +48.6906 +36.5914 114.10 270 ; ZANJAN +VOR PRT -8.6878 +41.2730 114.10 270 ; PORTO +VOR HLN +121.6403 +24.0185 114.10 270 ; HUALIEN +VOR BRY +3.2948 +48.4070 114.10 270 ; BRAY SUR SEINE +VOR KIV +34.7119 -0.0952 114.10 270 ; KISUMU +VOR GOL +24.2036 +43.0975 114.10 270 ; GOLYAMA +VOR VMO +12.1667 -15.2667 114.10 270 ; NAMIBE +VOR NY +2.2064 +13.4833 114.10 270 ; NIAMEY +VOR IRW -97.6092 +35.3586 114.10 270 ; WILL ROGERS +VOR ML +144.8419 -37.6600 114.10 270 ; MELBOURNE +VOR BET -161.8243 +60.7848 114.10 270 ; BETHEL +VOR AMR -2.2594 +36.8332 114.10 270 ; ALMERIA +VOR CL +8.3201 +4.9211 114.10 270 ; CALABAR +VOR MGR +58.7567 +53.4033 114.10 130 ; MAGNITIGORSK +VOR POU +113.1833 +23.0333 114.10 270 ; PINGZHOU +VOR YQT -89.4376 +48.2539 114.10 270 ; THUNDER BAY +VOR BVR +72.1889 +21.7501 114.10 270 ; BHAVNAGAR +VOR PSL +100.2914 +16.7697 114.10 270 ; PHITSANULOK +VOR YYQ -94.1353 +58.7417 114.10 270 ; CHURCHILL +VOR GV +136.8161 -12.2650 114.10 270 ; GOVE +VOR BNA -86.6848 +36.1370 114.10 270 ; NASHVILLE +VOR FTV -13.8623 +28.4503 114.10 270 ; FUERTEVENTURA +VOR MRE +140.7053 +40.7388 114.10 270 ; AOMORI +VOR SEY +123.4800 +41.6383 114.10 270 ; SHENYANG +VOR GRN +2.7720 +41.9312 114.10 270 ; GIRONA +VOR MGN -74.8472 +9.2874 114.10 270 ; MAGANGUE +VOR PD +118.6228 -20.3783 114.10 270 ; PORT HEDLAND +VOR WAL -3.1344 +53.3919 114.10 270 ; WALLASEY +VOR DJA +9.4533 +24.2878 114.10 270 ; DJANET +VOR NAS -70.8536 -53.0036 114.10 270 ; PUNTA ARENAS +VOR DG +123.3064 +9.3339 114.10 270 ; DUMAGUETE +VOR YZP -131.8069 +53.2522 114.10 270 ; SANDSPIT +VOR OVD +34.9469 +29.9656 114.10 270 ; OVDA +VOR KG +121.4528 -30.7897 114.10 270 ; KALGOORLIE +VOR TCO -72.6308 -38.7664 114.10 270 ; TEMUCO +VOR CC +96.8408 -12.2006 114.10 270 ; COCOS (KEELING) ISLAND INTL +VOR SCO -76.2130 -13.7390 114.10 130 ; PISCO +VOR SAV -80.9949 -2.2050 114.10 270 ; SALINAS +VOR MTA -63.9632 +10.9176 114.10 270 ; MARGARITA +VOR CAL -68.0819 -16.8797 114.10 270 ; CALAMARCA +VOR RIC -77.3203 +37.5023 114.10 270 ; RICHMOND +VOR IT +11.8891 -4.8262 114.10 270 ; POINTE NOIRE +VOR PTH +108.0704 +10.9277 114.10 270 ; PHANTHIET +VOR LSY +6.8800 +59.1318 114.10 270 ; LYSE +VOR PMA +39.7049 +24.5475 114.10 270 ; PRINCE MOHAMMAD BIN ABDULAZIZ +VOR PDI -57.2750 -35.3456 114.10 270 ; PUNTA INDIO +VOR TUC -65.1086 -26.8457 114.10 270 ; TUCUMAN +VOR CHI +12.2814 +45.0711 114.10 270 ; CHIOGGIA +VOR SJO -90.8517 +13.9343 114.10 270 ; SAN JOSE +VOR DGP +26.6755 +55.9473 114.10 270 ; DAUGAVPILS +VOR TL +146.7583 -19.2450 114.10 270 ; TOWNSVILLE +VOR UCM -77.8008 +21.4374 114.10 270 ; CAMAGUEY +VOR TOF +13.4054 +52.4731 114.10 270 ; TEMPELHOF +VOR BYI -113.8659 +42.5802 114.10 130 ; BURLEY +VOR BLV +26.3007 -29.1005 114.10 270 ; BLOEMFONTEIN +VOR FLZ -38.5478 -3.7722 114.10 270 ; FORTALEZA +VOR CUU -105.9547 +28.7969 114.10 270 ; CHIHUAHUA +VOR VTZ +33.6400 -16.1264 114.10 270 ; TETE CHINGOZI +VOR IGU -54.4856 -25.7345 114.10 270 ; CATARATAS DEL IGUAZU +VOR CID -91.7857 +41.8875 114.10 270 ; CEDAR RAPIDS +VOR BTZ -1.5103 +43.4667 114.15 270 ; BIARRITZ +VOR BTA +9.4747 +42.5736 114.15 270 ; BASTIA +VOR HSD +3.8582 +51.7227 114.15 270 ; HAAMSTEDE +VOR TDF -8.1308 +27.7101 114.20 270 ; TINDOUF +VOR HYP -120.4003 +37.2194 114.20 130 ; EL NIDO +VOR URL +51.5417 +51.1450 114.20 270 ; URALSK +VOR GLL -104.5530 +40.5039 114.20 270 ; GILL +VOR SHM +34.4133 +27.9981 114.20 270 ; SHARM EL SHEIKH +VOR TRC -64.2658 -33.0928 114.20 270 ; RIO CUARTO +VOR SIV +36.8932 +39.7896 114.20 270 ; SIVAS +VOR VBS -71.2672 +48.0172 114.20 270 ; SAGUENAY +VOR SKN +104.1328 +17.2147 114.20 270 ; SAKON NAKHON +VOR LLP +92.6229 +23.8304 114.20 270 ; LENGPUI +VOR ST +46.2233 +31.5217 114.20 270 ; SHATRA +VOR LWL -114.9775 +41.1448 114.20 130 ; WELLS +VOR MML +74.9216 +12.9619 114.20 270 ; MANGALORE +VOR EKN -80.0993 +38.9144 114.20 130 ; ELKINS +VOR GTK -71.1357 +21.4297 114.20 270 ; GRAND TURK +VOR YGQ -86.9845 +49.7698 114.20 270 ; GERALDTON +VOR URG +60.6500 +41.5833 114.20 270 ; URGENCH +VOR VLN -104.8897 +50.6670 114.20 270 ; LUMSDEN +VOR TQS -75.2334 +0.7420 114.20 130 ; TRES ESQUINAS +VOR HLV -92.1282 +39.1135 114.20 130 ; HALLSVILLE +VOR KCC +136.9149 +35.2653 114.20 270 ; NAGOYA +VOR CCS -6.4347 +39.5245 114.20 270 ; CACERES +VOR YQO -80.8879 +42.7067 114.20 270 ; AYLMER +VOR RBC -67.8953 -9.8718 114.20 270 ; BRANCO +VOR MC +153.0903 -26.5978 114.20 270 ; MAROOCHYDORE +VOR CGT -87.5715 +41.5100 114.20 130 ; CHICAGO HEIGHTS +VOR UPN -102.0406 +19.3958 114.20 270 ; URUAPAN +VOR TIC +127.8008 +26.1609 114.20 270 ; CHINEN +VOR LND -5.6369 +50.1364 114.20 270 ; LANDS END +VOR URP -51.5588 -20.7765 114.20 270 ; URUBUPUNGA +VOR BWZ -74.8218 +40.7984 114.20 130 ; BROADWAY +VOR XIC +102.1800 +27.9983 114.20 270 ; XICHANG +VOR DAR +16.3881 +54.4102 114.20 270 ; DARLOWO +VOR RON +13.4802 +45.8297 114.20 270 ; RONCHI DEI LEGIONARI +VOR HEL +24.9537 +60.3378 114.20 270 ; HELSINKI +VOR FOG +15.5314 +41.4294 114.20 130 ; FOGGIA +VOR LSV +26.4244 +39.2317 114.20 270 ; LESVOS +VOR BHI +141.4797 -32.0006 114.20 270 ; BROKEN HILL +VOR MCN -83.6472 +32.6912 114.20 270 ; MACON +VOR FFM +8.6371 +50.0538 114.20 270 ; FRANKFURT +VOR GS +177.9776 -38.6605 114.20 270 ; GISBORNE +VOR HDH +42.9881 +14.7736 114.20 270 ; HODEIDAH +VOR RES +1.1711 +41.1497 114.20 270 ; REUS +VOR TNP -115.7699 +34.1122 114.20 130 ; TWENTYNINE PALMS +VOR ESP +121.8239 -33.6806 114.20 270 ; ESPERANCE +VOR YXJ -120.8956 +56.2842 114.20 270 ; FORT ST. JOHN +VOR IVF +24.6917 +48.8850 114.20 270 ; IVANO FRANKOVSK +VOR BDF +18.4662 +69.0649 114.20 270 ; BARDUFOSS +VOR MNO +124.9278 +1.5552 114.20 270 ; MANADO +VOR PKP +106.1403 -2.1568 114.20 270 ; PANGKAL PINANG +VOR NEW -1.6984 +55.0384 114.25 270 ; NEWCASTLE +VOR BIU +116.7797 -30.5942 114.30 270 ; BALLIDU +VOR YRM -115.3236 +52.5022 114.30 270 ; ROCKY MTN HOUSE +VOR BGS -101.4837 +32.3856 114.30 130 ; BIG SPRING +VOR VLI +168.2367 -17.6667 114.30 270 ; BAUERFIELD +VOR BKL +102.3350 -3.8606 114.30 270 ; BENGKULU +VOR VLA -89.1625 +39.0937 114.30 130 ; VANDALIA +VOR BUK +33.1044 +40.2408 114.30 270 ; CUBUK +VOR VLM +15.0667 +49.7043 114.30 270 ; VLASIM +VOR GW +3.5106 +9.4802 114.30 270 ; GWASERO +VOR PG +64.1238 +26.9599 114.30 270 ; PANJGUR +VOR PS +71.5178 +33.9761 114.30 270 ; PESHAWAR +VOR BCA -62.1583 -38.7200 114.30 270 ; BAHIA BLANCA +VOR ELB -73.9699 +9.0477 114.30 270 ; EL BANCO +VOR TRS +17.5022 +58.9379 114.30 270 ; TROSA +VOR ANC -150.2066 +61.1508 114.30 270 ; ANCHORAGE +VOR JUV +27.6316 +61.9215 114.30 270 ; JUVA +VOR URH -96.3918 +33.9442 114.30 130 ; TEXOMA +VOR NTL -35.2487 -5.9083 114.30 270 ; NATAL +VOR MRL +55.1779 +18.1422 114.30 270 ; MARMUL +VOR TLC -99.5714 +19.3509 114.30 270 ; TOLUCA +VOR ZY -55.1844 +5.4505 114.30 270 ; ZANDERY +VOR TRA +8.4369 +47.6894 114.30 270 ; TRASADINGEN +VOR MMM -114.2775 +36.7693 114.30 130 ; MORMON MESA +VOR GFK -97.1854 +47.9548 114.30 270 ; GRAND FORKS +VOR IWC +132.1473 +34.0795 114.30 270 ; KUGA +VOR MCT +123.9883 +10.3135 114.30 270 ; MACTAN +VOR MLO -54.2220 -32.3424 114.30 270 ; MELO +VOR DAV -82.4378 +8.3858 114.30 270 ; DAVID +VOR STN -46.9233 -23.4875 114.30 270 ; SANTANA +VOR SDO -118.0332 +41.4105 114.30 130 ; SOD HOUSE +VOR SHA +47.1340 +17.4703 114.30 270 ; SHARURAH +VOR SRT +41.8812 +37.9107 114.30 270 ; SIIRT +VOR CIN +123.8517 -17.5886 114.30 270 ; CURTIN +VOR YWE +143.7550 -37.7383 114.30 270 ; YARROWEE +VOR PKY +113.9491 -2.2435 114.30 270 ; TJILIK RIWUT +VOR BRR -45.0072 -12.0800 114.30 270 ; BARREIRAS +VOR JVL -89.1053 +42.5580 114.30 130 ; JANESVILLE +VOR BSA +34.7213 +31.2862 114.30 270 ; BEER-SHEBA +VOR PNN -67.7042 +45.3292 114.30 130 ; PRINCETON +VOR BZE -88.3154 +17.5401 114.30 270 ; BELIZE +VOR CAT -65.7467 -28.5836 114.30 270 ; CATAMARCA +VOR QUV +2.0852 +41.2953 114.30 270 ; BARCELONA +VOR ZGC +103.6250 +36.5150 114.30 270 ; LANZHOU +VOR CV +146.2661 -26.4211 114.30 130 ; CHARLEVILLE +VOR PWL -73.6006 +41.7698 114.30 130 ; PAWLING +VOR ADN -2.2672 +57.3106 114.30 270 ; ABERDEEN +VOR KWE +106.7950 +26.5200 114.30 270 ; GUIYANG +VOR LDN -78.2056 +38.8544 114.30 130 ; LINDEN +VOR SVM -83.5941 +42.4089 114.30 130 ; SALEM +VOR BOD +6.8392 +28.1331 114.30 270 ; BORDJ OMAR DRISS +VOR DIN -2.0823 +48.5861 114.30 270 ; DINARD +VOR UDN +102.7747 +17.3847 114.30 270 ; UDON +VOR CAR -73.0531 -36.7555 114.30 270 ; CONCEPCION +VOR AND -73.3788 -13.7137 114.30 270 ; ANDAHUAYLAS +VOR BIS -15.6446 +11.9368 114.30 270 ; BISSAU/OSWALDO VIEIRA +VOR PFN -85.6809 +30.2162 114.30 130 ; PANAMA CITY +VOR OSN +8.2855 +52.2001 114.30 270 ; OSNABRUCK +VOR MEV +28.5613 -25.7909 114.30 270 ; BRONKHORSTSPRUIT +VOR MAM -97.5242 +25.7714 114.30 270 ; MATAMOROS +VOR CRO -71.6483 +17.9316 114.30 270 ; CABO ROJO +VOR GLM -10.0650 +29.0144 114.30 270 ; GOULIMINE +VOR VCA +12.2000 -5.6167 114.30 270 ; CABINDA +VOR AD -3.9190 +5.2775 114.30 270 ; ABIDJAN FELIX HOUPHOUET BOIGNY +VOR PRB -120.6271 +35.6724 114.30 130 ; PASO ROBLES +VOR PNH +104.8382 +11.5413 114.30 270 ; PHNOM PENH +VOR CFA +3.1922 +45.7875 114.35 270 ; CLERMONT +VOR CPT -1.2197 +51.4917 114.35 270 ; COMPTON +VOR DRN +13.5989 +51.0156 114.35 270 ; DRESDEN +VOR ACO -81.2015 +41.1079 114.40 130 ; AKRON +VOR FLL -80.1525 +26.0747 114.40 270 ; FORT LAUDERDALE +VOR TTM -99.7692 +22.9677 114.40 270 ; NORIA +VOR FQM -76.7749 +41.3386 114.40 130 ; WILLIAMSPORT +VOR NP +174.1839 -39.0072 114.40 270 ; NEW PLYMOUTH +VOR DU +148.5778 -32.2194 114.40 270 ; DUBBO +VOR KNA +24.0653 +54.9598 114.40 270 ; KAUNAS +VOR ILA -122.0272 +39.0711 114.40 130 ; WILLIAMS +VOR SWV +20.5431 -34.0772 114.40 270 ; SWELLENDAM +VOR BOL +12.0486 +42.6183 114.40 270 ; BOLSENA +VOR MTR -75.8197 +8.8189 114.40 270 ; MONTERIA +VOR DLF -100.7717 +29.3609 114.40 270 ; LAUGHLIN +VOR HSH +121.8433 +31.3683 114.40 270 ; HENGSHA +VOR CNF -44.0485 -19.5582 114.40 270 ; CONFINS +VOR SOG +131.1203 -0.9231 114.40 270 ; SORONG +VOR LXR +32.7686 +25.7494 114.40 270 ; LUXOR +VOR BNA +24.9484 +70.1763 114.40 270 ; BANAK +VOR TMO -61.5191 +7.2524 114.40 270 ; TUMEREMO +VOR VRA -70.5570 +9.4275 114.40 270 ; VALERA +VOR DAN +108.1982 +16.0528 114.40 270 ; DANANG +VOR TUL -95.7881 +36.1963 114.40 270 ; TULSA +VOR DIK +6.1297 +49.8614 114.40 270 ; DIEKIRCH +VOR HM +148.9558 -20.3511 114.40 270 ; HAMILTON ISLAND +VOR MZV -90.6381 +41.3211 114.40 130 ; MOLINE +VOR MHT -71.3695 +42.8685 114.40 130 ; MANCHESTER +VOR MIE -85.3940 +40.2373 114.40 130 ; MUNCIE +VOR KWA +126.8006 +35.1097 114.40 270 ; KWANGJU +VOR SAG +20.9964 +48.0081 114.40 270 ; SAJOHIDVEG +VOR CTB -112.3432 +48.5649 114.40 130 ; CUT BANK +VOR MES +10.6428 +61.0998 114.40 270 ; MESNALI +VOR AKO -103.1797 +40.1556 114.40 270 ; AKRON +VOR HA +44.6670 +32.3689 114.40 270 ; HASHIMIYAH +VOR FYU -145.2767 +66.5743 114.40 270 ; FORT YUKON +VOR VUZ -86.8998 +33.6702 114.40 270 ; VULCAN +VOR BDX -0.7211 +44.8269 114.40 270 ; BORDEAUX +VOR FDO -58.5841 -34.4514 114.40 270 ; SAN FERNANDO +VOR ATH +23.7285 +37.9009 114.40 270 ; ATHINAI +VOR KLA +29.2358 +65.9917 114.40 270 ; KANTOLA +VOR GFS -115.1764 +35.1311 114.40 130 ; GOFFS +VOR FJR +3.9747 +43.5783 114.45 270 ; MEDITERRANEE +VOR VKG +110.3083 +1.4733 114.50 270 ; KUCHING +VOR PMD -118.0638 +34.6314 114.50 270 ; PALMDALE +VOR NNG +108.1967 +22.6250 114.50 270 ; NANNING +VOR GTH -100.3362 +33.7783 114.50 130 ; GUTHRIE +VOR XMN +118.1217 +24.5417 114.50 270 ; XIAMEN +VOR BND +10.1161 +6.0506 114.50 270 ; BAMENDA +VOR KPS +99.9508 +14.1672 114.50 270 ; KAMPHAENG SAEN +VOR ASB +58.3517 +37.9850 114.50 270 ; ASHGABAT +VOR SAN +120.3581 +16.7283 114.50 270 ; SAN FERNANDO +VOR YZV -66.2739 +50.2321 114.50 270 ; SEPT ILES +VOR DHN +52.7203 +35.2539 114.50 270 ; DEHNAMAK +VOR KOK +2.6517 +51.0947 114.50 270 ; KOKSY +VOR LOV +35.6125 +3.1076 114.50 270 ; LODWAR +VOR YMS -80.1462 +44.1431 114.50 270 ; MANS +VOR CUV -78.9154 -2.8354 114.50 270 ; CUENCA +VOR GSA +125.0920 +6.0756 114.50 130 ; TAMBLER +VOR ARG -90.9537 +36.1100 114.50 270 ; WALNUT RIDGE +VOR CZE +16.7271 +52.1306 114.50 270 ; CZEMPIN +VOR KGI +25.3133 +0.4925 114.50 270 ; KISANGANI BANGOKA +VOR MVY -70.6127 +41.3962 114.50 130 ; MARTHA'S VINEYARD +VOR YWV -110.8333 +52.9814 114.50 270 ; WAINWRIGHT +VOR DMR +93.7816 +25.8808 114.50 270 ; DIMAPUR +VOR CBA -64.2039 -31.3133 114.50 270 ; CORDOBA +VOR TPI +13.1556 +32.6625 114.50 270 ; TRIPOLI +VOR CGO +113.8433 +34.5150 114.50 270 ; ZHENGZHOU +VOR TBU -175.1472 -21.2463 114.50 270 ; FUA AMOTU +VOR STG -80.9383 +8.0889 114.50 270 ; SANTIAGO +VOR CHG +120.4333 +41.5367 114.50 270 ; CHAOYANG +VOR TNV +47.5187 -18.8033 114.50 270 ; ANTANANARIVO IVATO +VOR TOP +7.8617 +44.9254 114.50 270 ; TORINO +VOR KCA +83.0000 +41.7167 114.50 270 ; KUQA +VOR BPT -94.0162 +29.9460 114.50 130 ; BEAUMONT +VOR TOC -70.0550 -22.1400 114.50 270 ; TOCOPILLA +VOR BQU -115.7614 +40.7597 114.50 130 ; BULLION +VOR BIL -108.6246 +45.8085 114.50 270 ; BILLINGS +VOR AUR -90.5263 +14.5911 114.50 270 ; LA AURORA +VOR VMG -25.7581 +37.8460 114.50 270 ; SAO MIGUEL +VOR PTJ -99.7978 +19.6459 114.50 270 ; PASTEJE +VOR ELV +27.8230 -33.0370 114.50 270 ; EAST LONDON +VOR CHW +98.3500 +39.8500 114.50 270 ; JIAYUGUAN +VOR X7 -73.3172 +61.6606 114.50 270 ; DONALDSON +VOR VAS +21.7649 +63.0414 114.50 270 ; VAASA +VOR MOF +122.2419 -8.6456 114.50 130 ; MAUMERE +VOR BRV -77.3528 +38.3363 114.50 130 ; BROOKE +VOR ALI -98.0213 +27.7398 114.50 130 ; ALICE +VOR MTM +116.0807 -8.5605 114.50 270 ; MATARAM +VOR ANU -61.7974 +17.1275 114.50 270 ; V.C. BIRD +VOR LAV +27.9212 -25.9438 114.50 270 ; LANSERIA +VOR TBS +8.0686 +35.4567 114.50 270 ; TEBESSA +VOR AE +20.8450 +13.8450 114.50 270 ; ABECHE +VOR LMG +1.0256 +45.8158 114.50 270 ; LIMOGES +VOR TD -13.6640 +13.7277 114.50 270 ; TAMBACOUNDA +VOR YBK -96.1047 +64.3181 114.50 270 ; BAKER LAKE +VOR WHV +17.4706 -22.4775 114.50 270 ; WINDHOEK +VOR JMS -98.6788 +46.9329 114.50 130 ; JAMESTOWN +VOR DGC +130.3896 +33.6762 114.50 270 ; FUKUOKA +VOR PAG -51.1635 -29.9912 114.50 270 ; PORTO ALEGRE +VOR KAL +22.8750 +42.9483 114.50 270 ; KALOTINA +VOR ALE +37.2099 +36.1754 114.50 270 ; ALEPPO +VOR TBA +34.7974 +29.6067 114.50 130 ; TABA +VOR KAS +21.2753 +40.4511 114.50 270 ; KASTORIA +VOR VLD -73.0856 -39.6386 114.50 270 ; VALDIVIA +VOR CRG -81.5100 +30.3389 114.50 270 ; CRAIG +VOR MCT +58.2601 +23.5911 114.50 270 ; SEEB +VOR WSM +77.1655 +20.1175 114.50 270 ; WASHIM +VOR MBO +8.7203 +3.7682 114.50 270 ; MALABO +VOR ABD +48.2175 +30.3869 114.50 270 ; ABADAN +VOR DQN -84.3969 +40.0164 114.50 130 ; DAYTON +VOR CLN +1.1475 +51.8486 114.55 270 ; CLACTON +VOR LWB +13.1346 +52.9103 114.55 270 ; LOWENBERG +VOR DKI +107.0381 -5.9648 114.60 270 ; JAKARTA +VOR RSE +141.1868 +45.2457 114.60 270 ; RISHIRI +VOR CCN +76.2729 +9.9447 114.60 270 ; COCHIN +VOR VVP -73.2625 +10.3375 114.60 270 ; VALLEDUPAR +VOR TVC -85.5500 +44.6679 114.60 270 ; TRAVERSE CITY +VOR YPG -98.2670 +49.8997 114.60 270 ; PORTAGE +VOR YOW -75.8970 +45.4417 114.60 270 ; OTTAWA +VOR BYP -96.2341 +33.5375 114.60 270 ; BONHAM +VOR NBW -75.1988 +19.9045 114.60 270 ; GUANTANAMO BAY NS +VOR MR +37.3483 +55.9617 114.60 270 ; SHEREMETYEVO +VOR IRK -92.5917 +40.1350 114.60 270 ; KIRKSVILLE +VOR WMD +151.5319 -32.7550 114.60 270 ; WEST MAITLAND +VOR NHW +121.5733 +31.0817 114.60 270 ; NANHUI +VOR RAJ +88.6150 +24.4400 114.60 270 ; RAJSHAHI +VOR PCX -42.8575 -22.7153 114.60 270 ; PORTO +VOR LAV +12.2899 +57.6561 114.60 270 ; LANDVETTER +VOR MOD -120.9578 +37.6273 114.60 270 ; MODESTO +VOR PNZ +12.9575 +40.9119 114.60 270 ; PONZA +VOR RAV -76.5994 +40.5534 114.60 130 ; RAVINE +VOR KMS +47.1692 +34.3397 114.60 270 ; KERMANSHAH +VOR MLM -101.0375 +19.8428 114.60 270 ; MORELIA +VOR DVC -108.9313 +37.8087 114.60 270 ; DOVE CREEK +VOR YOE +135.5937 +34.5985 114.60 270 ; YAO +VOR BUB +4.5381 +50.9022 114.60 270 ; BRUSSELS NATL +VOR HMV -82.1296 +36.4371 114.60 130 ; HOLSTON MOUNTAIN +VOR BOS -59.1439 -35.2111 114.60 270 ; LOBOS +VOR HOM -151.4567 +59.7095 114.60 270 ; HOMER +VOR CRK -8.4942 +51.8406 114.60 270 ; CORK +VOR TR +174.3624 -41.1858 114.60 270 ; TORY +VOR GRU +18.7806 +53.5219 114.60 270 ; GRUDA +VOR GCC -105.5435 +44.3478 114.60 270 ; GILLETTE +VOR GVA +6.1322 +46.2539 114.60 270 ; GENEVA COINTRIN +VOR CVI -76.8716 +36.3729 114.60 130 ; COFIELD +VOR SRJ +55.6600 +29.5568 114.60 270 ; SIRJAN +VOR PLH +23.6828 +35.2239 114.60 270 ; PALEOCHORA +VOR OSS +14.4876 +63.1996 114.65 270 ; OSTERSUND +VOR SQS -90.2773 +33.4639 114.70 270 ; SIDON +VOR FJR +56.3519 +25.1017 114.70 270 ; FUJAIRAH +VOR BDF -89.5879 +41.1597 114.70 270 ; BRADFORD +VOR IFI -98.0039 +35.8053 114.70 270 ; KINGFISHER +VOR ELB +10.3958 +42.7306 114.70 270 ; ELBA +VOR LFV -70.0373 +42.0172 114.70 270 ; MARCONI +VOR BD -4.3509 +11.1450 114.70 270 ; BOBO DIOULASSO +VOR QT +66.8889 +30.2964 114.70 270 ; QUETTA +VOR SEB +14.4936 +26.9696 114.70 270 ; SEBHA +VOR MAR +19.9144 +60.1410 114.70 270 ; MARIE +VOR MLE +73.5307 +4.1934 114.70 270 ; MALE +VOR HME +6.1362 +31.6643 114.70 270 ; HASSI MESSAOUD +VOR ELD +35.2311 +0.4064 114.70 270 ; ELDORET +VOR KRK +20.0700 +39.4419 114.70 270 ; KERKIRA +VOR ICO -71.2158 -34.9678 114.70 270 ; CURICO +VOR KIA +20.3123 +67.8081 114.70 270 ; KIRUNA +VOR GNA -62.7530 +8.2933 114.70 270 ; GUAYANA +VOR HAI +43.2676 -11.5133 114.70 270 ; MORONI HAHAIA +VOR SIE +22.2008 +52.1554 114.70 270 ; SIEDLCE +VOR GMA +99.4000 +23.5333 114.70 270 ; GENGMA +VOR MJZ -62.1608 -32.6878 114.70 270 ; MARCOS JUAREZ +VOR RDG +12.5265 +49.0403 114.70 270 ; RODING +VOR PEK +116.6000 +40.0500 114.70 270 ; BEIJING +VOR HIJ -5.0997 +38.5081 114.70 270 ; HINOJOSA +VOR UCV +24.4025 -28.4622 114.70 270 ; ULCO +VOR DVV -104.6243 +39.8947 114.70 270 ; MILE HIGH +VOR TRM -45.4572 -18.2032 114.70 270 ; TRES MARIAS +VOR BTY -116.7476 +36.8006 114.70 270 ; BEATTY +VOR MKS +119.5262 -5.0378 114.70 270 ; HASANUDDIN +VOR KMB +25.2481 -8.6286 114.70 270 ; KAMINA BASE +VOR KU +7.4547 +10.5917 114.70 270 ; KADUNA +VOR VTV +107.0995 +10.3705 114.70 270 ; VUNGTAU +VOR CAE -81.0539 +33.8573 114.70 270 ; COLUMBIA +VOR OSN +127.0297 +37.0919 114.70 270 ; OSAN +VOR MTP -58.4197 -51.8261 114.70 130 ; MOUNT PLEASANT +VOR ECA -72.0456 -50.2783 114.70 270 ; EL CALAFATE +VOR CDO -69.6670 +18.4336 114.70 270 ; PUNTA CAUCEDO +VOR TD +16.0802 +8.6371 114.70 270 ; MOUNDOU +VOR DAL +28.7819 +36.6896 114.70 270 ; DALAMAN +VOR MTY -100.1040 +25.7729 114.70 270 ; MONTERREY +VOR BWA +83.4328 +27.5033 114.70 270 ; BHAIRAHAWA +VOR NG +123.2681 +13.5886 114.70 270 ; NAGA +VOR EZS +39.2238 +38.7082 114.70 270 ; ELAZIG +VOR SLS -77.5688 -11.2937 114.70 270 ; SALINAS +VOR YYD -126.6508 +54.4522 114.70 270 ; HOUSTON +VOR ENH +109.5983 +30.2917 114.70 270 ; ENSHI +VOR LPN +99.4983 +18.2781 114.70 270 ; LAMPANG +VOR HHY +78.4618 +17.4511 114.70 270 ; HYDERABAD +VOR ALS +9.9934 +54.9054 114.70 270 ; ALSIE +VOR GRY +37.2862 +31.4126 114.70 270 ; GURIAT +VOR PDT -118.9387 +45.6984 114.70 270 ; PENDLETON +VOR JHW -79.1213 +42.1886 114.70 270 ; JAMESTOWN +VOR RBT +1.9942 +48.6539 114.70 270 ; RAMBOUILLET +VOR LSA +5.0906 +45.7247 114.75 270 ; LYON/SAINT EXUPERY +VOR GWC -0.7567 +50.8553 114.75 270 ; GOODWOOD +VOR SGE +130.2929 +33.1486 114.75 130 ; SAGA +VOR AND +121.2183 +30.2533 114.80 270 ; ANDONG +VOR SDE -64.3181 -27.7794 114.80 270 ; SANTIAGO DEL ESTERO +VOR BAY +0.9503 +33.7053 114.80 270 ; EL BAYADH +VOR TFD -111.9087 +32.8859 114.80 270 ; STANFIELD +VOR GTH +146.0653 -34.2494 114.80 270 ; GRIFFITH +VOR MIQ -66.9894 +10.6093 114.80 270 ; MAIQUETIA +VOR WDV +28.9839 -27.8347 114.80 270 ; WARDEN +VOR LIS -9.1627 +38.8877 114.80 270 ; LISBOA +VOR OBH -98.3536 +41.3757 114.80 270 ; WOLBACH +VOR CQY -96.2181 +32.1857 114.80 130 ; CEDAR CREEK +VOR UVA -81.4536 +23.0247 114.80 270 ; VARDER +VOR ILB +14.1709 +45.5656 114.80 270 ; BISTRICA +VOR SIE -74.8003 +39.0955 114.80 270 ; SEA ISLE +VOR RLY -107.9508 +43.9641 114.80 130 ; WORLAND +VOR NZE +140.0358 +36.7827 114.80 270 ; NASU +VOR MAF -102.1904 +32.0093 114.80 130 ; MIDLAND +VOR KSL +36.3175 +15.3756 114.80 270 ; KASSALA +VOR LTK +35.9482 +35.4127 114.80 270 ; LATAKIA +VOR TPG +104.5146 +0.9035 114.80 270 ; TANJUNG PINANG +VOR IIU -85.5774 +38.1035 114.80 270 ; LOUISVILLE +VOR LEN +54.8512 +26.5361 114.80 270 ; BANDAR LENGEH +VOR SMT +113.9821 +22.3376 114.80 270 ; SIU MO TO +VOR OTK -83.2797 +30.7804 114.80 270 ; VALDOSTA +VOR CUN +128.3254 +36.6320 114.80 270 ; YECHON +VOR APN -98.3986 +19.6365 114.80 270 ; APAN +VOR AA +174.8136 -37.0046 114.80 270 ; AUCKLAND +VOR CRL +27.9383 +41.1522 114.80 270 ; CORLU +VOR BGR -68.8740 +44.8418 114.80 270 ; BANGOR +VOR GAL -156.7771 +64.7382 114.80 270 ; GALENA +VOR AGN +0.8728 +43.8881 114.80 270 ; AGEN +VOR AJO +8.7747 +41.7706 114.80 270 ; AJACCIO +VOR LIN -121.0038 +38.0746 114.80 270 ; LINDEN +VOR HNL -157.9304 +21.3083 114.80 270 ; HONOLULU +VOR ZWN +7.4179 +49.2291 114.80 270 ; ZWEIBRUCKEN +VOR KLO +8.5456 +47.4572 114.85 130 ; KLOTEN +VOR OKX +15.0319 +50.9027 114.85 270 ; FRYDLANT +VOR BSN +3.0565 +49.1883 114.85 270 ; BOURSONNE +VOR MWE +141.1574 +40.8089 114.90 270 ; TOHOKU +VOR DOZ -68.7908 -32.8318 114.90 270 ; MENDOZA +VOR OST +12.2375 +41.8039 114.90 270 ; OSTIA +VOR MZT -106.2711 +23.1607 114.90 270 ; MAZATLAN +VOR PRA +74.7508 +24.0299 114.90 270 ; PRATAPGARH +VOR YQY -60.0559 +46.1534 114.90 270 ; SYDNEY +VOR ERL +11.1508 +49.6554 114.90 270 ; ERLANGEN +VOR KWL +110.0383 +25.2100 114.90 270 ; GUILIN +VOR GIA -13.6195 +9.5679 114.90 270 ; CONAKRY +VOR WAR +20.6571 +52.2591 114.90 270 ; ZABOROWEK +VOR KNI +27.6558 +64.2825 114.90 270 ; KAINUU +VOR CLP +109.0356 -7.6447 114.90 270 ; CILACAP +VOR BDT -82.2531 +9.3392 114.90 270 ; BOCAS DEL TORO +VOR KYU +124.0083 +42.6333 114.90 270 ; KAIYUAN +VOR TSC +134.6089 +34.1297 114.90 270 ; TOKUSHIMA +VOR TON -78.3313 +40.7351 114.90 130 ; TYRONE +VOR PDV +24.8761 +42.0525 114.90 270 ; PLOVDIV +VOR FAG -70.4478 -23.4669 114.90 270 ; ANTOFAGASTA +VOR DUB -6.3072 +53.4994 114.90 270 ; DUBLIN +VOR KKN +102.7881 +16.4714 114.90 270 ; KHON KAEN +VOR ERE +111.9533 +43.6383 114.90 270 ; EREN +VOR KNM +30.1474 -1.9692 114.90 270 ; KIGALI +VOR YQH -128.8578 +60.0864 114.90 270 ; WATSON LAKE +VOR ESC -87.6221 +14.3919 114.90 270 ; SOTO CANO +VOR RZS -119.7710 +34.5095 114.90 270 ; SAN MARCUS +VOR HBU -107.0398 +38.4522 114.90 270 ; BLUE MESA +VOR YJU +126.9883 +37.7480 114.90 270 ; YANGJU +VOR STB -71.9384 +8.9836 114.90 270 ; SANTA BARBARA DEL ZULIA +VOR ZCO -72.0086 -13.5162 114.90 130 ; VELAZCO ASTETE +VOR HFD -72.5476 +41.6411 114.90 130 ; HARTFORD +VOR CLA -79.8191 -6.7171 114.90 270 ; CHICLAYO +VOR PDA -67.9038 +3.8526 114.90 270 ; PUERTO INIRIDA +VOR GHA +3.7778 +32.3931 114.90 130 ; GHARDAIA +VOR SNT -16.3506 +33.0904 114.90 270 ; PORTO SANTO +VOR JDW +39.1660 +21.6790 114.90 270 ; KING ABDULAZIZ +VOR ATN +4.2591 +46.8059 114.90 270 ; AUTUN +VOR OKM -95.8660 +35.6931 114.90 270 ; OKMULGEE +VOR VI +25.5747 +58.6558 114.90 270 ; VOHMA +VOR TBN +39.7950 +40.9955 114.90 270 ; TRABZON +VOR POS -55.9691 -27.3856 114.90 270 ; POSADAS +VOR PAR -73.5225 -45.1592 114.90 270 ; PUERTO AGUIRRE +VOR HLG +120.7833 +24.6400 114.90 270 ; HOULUNG +VOR DVL +33.8078 -13.8125 114.90 270 ; LILONGWE +VOR BIG -145.7172 +64.0044 114.90 270 ; BIG DELTA +VOR PWL -67.6208 -54.9294 114.90 270 ; PUERTO WILLIAMS +VOR JTA +104.0800 +37.1950 114.90 270 ; JINGTAI +VOR NKG +118.8117 +31.9950 114.90 270 ; NANJING +VOR CDA +12.3792 +55.0015 114.90 270 ; CODAN +VOR AFI +4.1389 +50.9078 114.90 270 ; AFFLIGEM +VOR MUO -115.7743 +42.9827 114.90 130 ; MOUNTAIN HOME +VOR VFY +29.9883 -18.1747 114.90 270 ; FYLDE/CHEGUTU/KADOMA +VOR MA +54.5456 +24.2458 114.90 270 ; AL DHAFRA +VOR MCW -93.3299 +43.0947 114.90 270 ; MASON CITY +VOR NVS -4.2494 +40.3687 114.95 270 ; NAVAS +VOR DVR +1.3592 +51.1625 114.95 270 ; DOVER +VOR MWH -119.3168 +47.2109 115.00 270 ; MOSES LAKE +VOR PAK +105.7339 +15.1983 115.00 270 ; PAKSE +VOR CAM -73.3440 +42.9943 115.00 130 ; CAMBRIDGE +VOR OME -165.2532 +64.4851 115.00 270 ; NOME +VOR PAI -43.8405 -22.4540 115.00 270 ; PIRAI +VOR KER +56.9584 +30.2645 115.00 270 ; KERMAN +VOR THS -77.9509 +39.9332 115.00 130 ; ST THOMAS +VOR WG +147.4689 -35.1656 115.00 270 ; WAGGA WAGGA +VOR MZD +35.3900 +31.3308 115.00 270 ; METZADA +VOR CKW -107.5820 +41.7557 115.00 270 ; CHEROKEE +VOR CLT -80.9517 +35.1903 115.00 130 ; CHARLOTTE +VOR GGC +84.9438 +24.7419 115.00 270 ; GAYA +VOR JEN -97.8777 +32.1596 115.00 130 ; GLEN ROSE +VOR KEA +24.2989 +37.5573 115.00 270 ; KEA +VOR ALM -3.8414 +35.1917 115.00 270 ; AL HOCEIMA +VOR BIS +5.7583 +34.7750 115.00 130 ; BISKRA +VOR HUP -105.3763 +31.5687 115.00 130 ; HUDSPETH +VOR TKG +105.1867 -5.2602 115.00 270 ; BANDAR LAMPUNG +VOR KSA +15.4228 -4.4039 115.00 270 ; KINSHASA NDJILI +VOR OSK +18.9936 +63.4061 115.00 270 ; ORNSKOLDSVIK +VOR MXL -115.2375 +32.6306 115.00 270 ; MEXICALI +VOR YWT -80.3793 +43.4587 115.00 270 ; WATERLOO +VOR LPC -15.4322 +27.8285 115.00 270 ; GRAN CANARIA +VOR LGL +0.5303 +48.7906 115.00 270 ; L'AIGLE +VOR FSD -96.7812 +43.6495 115.00 270 ; SIOUX FALLS +VOR HDO +14.3688 +50.9282 115.00 270 ; HERMSDORF +VOR FSR +25.3292 +13.6106 115.00 270 ; EL FASHER +VOR ENL -89.1590 +38.4200 115.00 270 ; CENTRALIA +VOR KDI +122.4530 -4.0756 115.00 270 ; KENDARI +VOR OTU -98.7711 +19.6890 115.00 270 ; OTUMBA +VOR LTV +29.6864 -23.1590 115.00 270 ; LOUIS TRICHARDT +VOR LVM +5.0889 +45.7382 115.05 130 ; LYON/SATOLAS +VOR IME +131.7799 +34.6762 115.05 270 ; IWAMI +VOR PU +103.9333 +1.4233 115.10 270 ; PAPA UNIFORM +VOR JNV -48.7980 -26.2223 115.10 270 ; JOINVILLE +VOR CEN -109.8353 +27.3931 115.10 270 ; OBREGON +VOR GLD -101.6923 +39.3879 115.10 270 ; GOODLAND +VOR BKY -5.0747 +7.7472 115.10 270 ; BOUAKE +VOR KIN +25.8997 -2.9192 115.10 270 ; KINDU +VOR CTR -72.9494 +42.2913 115.10 130 ; CHESTER +VOR VIE -77.8881 +44.6609 115.10 270 ; COEHILL +VOR KGV +22.8200 -23.6797 115.10 270 ; KANG +VOR GTF -111.4122 +47.4500 115.10 270 ; GREAT FALLS +VOR SJT -100.4549 +31.3750 115.10 270 ; SAN ANGELO +VOR CBL -63.5314 +8.1242 115.10 270 ; CIUDAD BOLIVAR +VOR CXB -54.9678 -9.3352 115.10 270 ; CACHIMBO +VOR GUP -108.8726 +35.4760 115.10 270 ; GALLUP +VOR PTA -70.5707 +19.7595 115.10 270 ; PUERTO PLATA +VOR BAL -76.6612 +39.1711 115.10 130 ; BALTIMORE +VOR POY -77.8506 -6.2003 115.10 270 ; CHACHAPOYAS +VOR TVM +76.9253 +8.4754 115.10 270 ; TRIVANDRUM +VOR NGJ +81.6508 +28.1014 115.10 270 ; NEPALGUNJ +VOR MF +9.3039 +5.7057 115.10 270 ; MAMFE +VOR YHZ -63.4018 +44.9231 115.10 270 ; HALIFAX +VOR HLD +119.8233 +49.2017 115.10 270 ; HAILAR +VOR HMI +93.6500 +42.8333 115.10 270 ; HAMI +VOR BIG +0.0347 +51.3308 115.10 270 ; BIGGIN +VOR NAK +36.1553 -0.3044 115.10 270 ; NAKURU +VOR ABU +13.1700 +32.4647 115.10 270 ; ABU ARGUB +VOR LRA -8.3068 +43.3962 115.10 270 ; LA CORUNA +VOR SIS -59.0571 -27.4469 115.10 270 ; RESISTENCIA +VOR LIP +121.1267 +13.9562 115.10 270 ; LIPA +VOR GEM +36.0288 +39.1544 115.10 270 ; GEMEREK +VOR MVA -118.0329 +38.5653 115.10 270 ; MINA +VOR TCA -70.3019 -18.1237 115.10 270 ; TACNA +VOR TRE -65.2473 -43.2025 115.10 270 ; TRELEW +VOR CAR +9.5081 +39.1114 115.10 270 ; CARBONARA +VOR GYR +17.7244 +47.6592 115.10 270 ; GYOR +VOR LB +179.3148 -16.4183 115.10 270 ; LABASA +VOR SLU +22.1343 +65.5402 115.10 270 ; LULEA +VOR CYR -52.3684 +4.8136 115.10 270 ; ROCHAMBEAU +VOR LBE +9.5951 +53.6542 115.10 270 ; ELBE +VOR OGG -156.4210 +20.9064 115.10 270 ; MAUI +VOR BDB +41.8231 +24.3319 115.10 270 ; BIR DARB +VOR RNG -75.4222 +5.9841 115.10 270 ; RIONEGRO +VOR VSB +18.3469 +57.6595 115.10 270 ; VISBY +VOR SEL +126.9286 +37.4139 115.10 270 ; ANYANG +VOR BVT -87.0693 +40.5561 115.10 270 ; BOILER +VOR STN -6.1831 +58.2069 115.10 270 ; STORNOWAY +VOR NMA +118.6833 -8.5328 115.10 130 ; BIMA +VOR VMV +30.8536 -20.0578 115.10 270 ; MASVINGO +VOR AMG -82.5081 +31.5365 115.10 270 ; ALMA +VOR KRM +5.2017 +59.3465 115.15 270 ; KARMOEY +VOR DUS +6.7537 +51.2832 115.15 270 ; DUSSELDORF +VOR KLF +13.5638 +52.0197 115.15 270 ; KLASDORF +VOR QAA +36.1581 +31.7408 115.20 270 ; QUEEN ALIA +VOR BUI +20.4958 +42.6330 115.20 270 ; BUDISAVCI +VOR DLE +9.8835 +52.2503 115.20 270 ; LEINE +VOR KRG -5.6440 +9.3724 115.20 270 ; KORHOGO +VOR DCS -3.3406 +54.7219 115.20 270 ; DEAN CROSS +VOR LZR -13.5107 +29.1660 115.20 270 ; LANZAROTE +VOR ANY +110.3800 -6.9745 115.20 270 ; ACHMAD YANI +VOR WDR +45.2056 +20.5053 115.20 270 ; WADI AL DAWASIR +VOR FRZ +11.0033 +44.0272 115.20 270 ; FIRENZE +VOR SRQ -82.5543 +27.3978 115.20 270 ; SARASOTA +VOR EKR -107.9249 +40.0675 115.20 270 ; MEEKER +VOR HPB -166.1345 +61.5145 115.20 270 ; HOOPER BAY +VOR YNY -118.9389 +50.6778 115.20 270 ; ENDERBY +VOR TUY -66.7973 +10.2950 115.20 270 ; CHARALLAVE +VOR VCN -74.9671 +39.5377 115.20 130 ; CEDAR LAKE +VOR VAN +43.3251 +38.4662 115.20 270 ; VAN +VOR CVO +31.3883 +30.0922 115.20 270 ; CAIRO +VOR MKG -86.0393 +43.1693 115.20 130 ; MUSKEGON +VOR FLO -79.6571 +34.2329 115.20 270 ; FLORENCE +VOR PAL -58.6139 -34.6117 115.20 270 ; EL PALOMAR +VOR ORE +139.4434 +42.0703 115.20 270 ; OKUSHIRI +VOR EED -114.4741 +34.7660 115.20 270 ; NEEDLES +VOR SUC +132.9966 +32.7560 115.20 270 ; SHIMIZU +VOR CHW +0.9869 +48.4800 115.20 270 ; CHARTRES +VOR ELP -106.2819 +31.8159 115.20 270 ; EL PASO +VOR SYO -99.6353 +35.3452 115.20 130 ; SAYRE +VOR JFN -80.7481 +41.7602 115.20 130 ; JEFFERSON +VOR MKG +119.6373 +23.5954 115.20 270 ; MAKUNG +VOR JSV +28.2310 -26.1571 115.20 270 ; JOHANNESBURG +VOR SAC -121.5516 +38.4436 115.20 270 ; SACRAMENTO +VOR SCB -47.3783 -23.5070 115.20 270 ; SOROCABA +VOR EUR +11.2494 +47.7350 115.20 270 ; EURACH +VOR PIA -89.7928 +40.6801 115.20 130 ; PEORIA +VOR VBI -94.0467 +49.4769 115.20 270 ; SIOUX NARROWS +VOR PBC -98.3711 +19.1604 115.20 270 ; PUEBLA +VOR SAU +23.4164 +55.8790 115.20 270 ; SIAULIAI +VOR MAN -60.1250 -3.0367 115.20 270 ; MANAUS +VOR YES -2.3528 +38.3608 115.20 270 ; YESTE +VOR HAL +24.8026 +61.8547 115.20 130 ; HALLI +VOR VSN +15.7098 +58.3031 115.25 270 ; VASSEN +VOR GOT +11.5975 +51.3431 115.25 270 ; GOTEM +VOR FMN -108.0989 +36.7484 115.30 270 ; FARMINGTON +VOR OCN -117.4177 +33.2406 115.30 270 ; OCEANSIDE +VOR YNE +122.9977 +24.4649 115.30 270 ; YONAGUNI +VOR BBS -2.2306 +30.0239 115.30 270 ; BENI ABBES +VOR BAH +50.6543 +26.2589 115.30 270 ; BAHRAIN +VOR CGQ +125.1900 +43.8967 115.30 270 ; CHANGCHUN +VOR KMV +24.7651 -28.8362 115.30 270 ; KIMBERLEY +VOR ROP +35.5733 +32.9822 115.30 130 ; ROSH PINA +VOR TTH -87.2490 +39.4890 115.30 270 ; TERRE HAUTE +VOR UNZ +144.7333 +13.4545 115.30 270 ; NIMITZ +VOR MCK -100.5942 +40.2038 115.30 270 ; MC COOK +VOR ACT -97.2690 +31.6623 115.30 270 ; WACO +VOR MDO -146.3500 +59.4218 115.30 270 ; MIDDLETON ISLAND +VOR TGJ +23.3341 +45.0608 115.30 270 ; TARGU JIU +VOR ASI -76.6072 -12.7604 115.30 270 ; ASIA +VOR PAP -72.3042 +18.5765 115.30 270 ; PORT AU PRINCE +VOR QIT -78.5113 -0.0386 115.30 270 ; CONDORCOCHA +VOR OCK -0.4472 +51.3050 115.30 270 ; OCKHAM +VOR ALB -73.8032 +42.7472 115.30 130 ; ALBANY +VOR BNN +12.2143 +65.4571 115.30 270 ; BROENNOEY +VOR SNR -3.9024 +43.4498 115.30 270 ; SANTANDER +VOR TAP -92.3758 +14.7922 115.30 270 ; TAPACHULA +VOR MUN -63.1523 +9.7470 115.30 270 ; MATURIN +VOR MOL -79.1069 +37.9005 115.30 130 ; MONTEBELLO +VOR LM +1.2688 +6.1841 115.30 270 ; LOME/TOKOIN +VOR NTM +6.5319 +50.0159 115.30 270 ; NATTENHEIM +VOR SHR -107.0611 +44.8423 115.30 130 ; SHERIDAN +VOR TZK +34.5408 +38.7675 115.30 270 ; TUZKOY +VOR SJI -88.3593 +30.7260 115.30 270 ; SEMMES +VOR BAN +9.1678 +34.8633 115.30 270 ; SIDI BEN AOUN +VOR BGE -54.1098 -31.3907 115.30 270 ; BAGE +VOR MEN +3.1625 +44.6083 115.30 270 ; MENDE +VOR KIT +12.4269 -5.9078 115.30 130 ; KITONA BASE +VOR CH +172.5146 -43.5041 115.30 270 ; CHRISTCHURCH +VOR NM -7.2971 +16.6238 115.30 270 ; NEMA +VOR SIA +108.7550 +34.4417 115.30 270 ; XIANYANG +VOR PHV +31.1520 -23.9008 115.30 270 ; PHALABORWA +VOR CVS -22.9508 +16.7359 115.30 270 ; SAL +VOR FTH +144.8058 -37.4986 115.30 270 ; FENTONS HILL +VOR CNA -47.4548 -7.3188 115.30 270 ; CAROLINA +VOR GOC +140.3499 +36.7444 115.30 270 ; DAIGO +VOR KV +37.1067 -3.4278 115.30 270 ; KILIMANJARO +VOR SZX +113.8033 +22.6450 115.30 270 ; SHENZHEN +VOR TRN +51.2839 +35.6969 115.30 270 ; TEHRAN +VOR MSP -93.2436 +44.8715 115.30 270 ; MINNEAPOLIS +VOR FL +15.0383 +12.1417 115.30 270 ; NDJAMENA +VOR BKE -117.8079 +44.8406 115.30 270 ; BAKER +VOR HTY +100.3879 +6.9341 115.30 270 ; HAT YAI +VOR DRE +15.8325 +52.8169 115.30 270 ; DREZDENKO +VOR YKJ -105.8411 +57.1672 115.30 270 ; KEY LAKE +VOR TES +12.3682 +45.5192 115.30 270 ; VENEZIA TESSERA +VOR GOR -66.2950 -30.3400 115.30 270 ; GOBERNADOR GORDILLO +VOR MSO +151.4108 -31.3875 115.30 270 ; MOUNT SANDON +VOR VKA +33.8911 -9.9558 115.30 270 ; KARONGA +VOR CGN +2.5000 +49.0200 115.35 270 ; CHARLES DE GAULLE +VOR PHK -80.6914 +26.7827 115.40 270 ; PAHOKEE +VOR END -97.9183 +36.3450 115.40 270 ; VANCE +VOR SIE -3.6047 +41.1517 115.40 270 ; SOMOSIERRA +VOR JJS +86.1676 +22.8124 115.40 270 ; JAMSHEDPUR +VOR GMH +7.8920 +51.1705 115.40 270 ; GERMINGHAUSEN +VOR ANP -48.9922 -16.2607 115.40 270 ; ANAPOLIS +VOR ADN -100.2390 +25.8654 115.40 270 ; ROBERTO +VOR JTG +104.3933 +30.8717 115.40 270 ; JINTANG +VOR SGC -66.9852 -0.1507 115.40 270 ; GABRIEL +VOR CBY +5.7572 +45.8819 115.40 130 ; CHAMBERY +VOR KOE +130.9557 +33.8298 115.40 270 ; KOKURA +VOR VKT +103.1033 +5.3858 115.40 270 ; KUALA TRENGGANU +VOR SBI -94.0380 +29.6867 115.40 130 ; SABINE PASS +VOR GIJ -86.3184 +41.7686 115.40 270 ; GIPPER +VOR OBV +20.2471 -34.5561 115.40 270 ; OVERBERG +VOR MIS +141.3811 +40.7038 115.40 270 ; MISAWA +VOR GOW -4.4457 +55.8705 115.40 270 ; GLASGOW +VOR CAN -0.4557 +49.1717 115.40 270 ; CAEN +VOR DBK +18.2775 +42.5539 115.40 270 ; DUBROVNIK +VOR OTU -74.7098 +7.0199 115.40 270 ; OTU +VOR YYB -79.4364 +46.3639 115.40 270 ; NORTH BAY +VOR EHF -119.0973 +35.4846 115.40 270 ; SHAFTER +VOR SOK -159.5289 +21.9004 115.40 270 ; SOUTH KAUAI +VOR COL -74.1598 +40.3117 115.40 130 ; COLTS NECK +VOR KNN +32.9142 +13.0242 115.40 270 ; KENANA +VOR RMG -85.1194 +34.1626 115.40 270 ; ROME +VOR RKT +70.7783 +22.3131 115.40 270 ; RAJKOT +VOR YGP -64.4047 +48.7631 115.40 270 ; GASPE +VOR BJC -105.1390 +39.9130 115.40 270 ; JEFFCO +VOR CRR -58.7617 -27.4373 115.40 270 ; CORRIENTES +VOR CVO -123.2937 +44.4996 115.40 270 ; CORVALLIS +VOR TRB +17.0733 +54.2106 115.40 270 ; TREBLO +VOR SSO -109.2631 +32.2692 115.40 270 ; SAN SIMON +VOR PCB +101.1967 +16.6760 115.40 270 ; PHETCHABUN +VOR SNU +16.2884 +47.8749 115.50 270 ; SOLLENAU +VOR PUC -110.7535 +39.6032 115.50 270 ; CARBON +VOR PAZ -97.4550 +20.6006 115.50 270 ; POZA RICA +VOR RUS +22.2565 +60.5152 115.50 270 ; RUSKO +VOR AMN +128.1861 -3.6149 115.50 130 ; AMBON +VOR PLM -48.3503 -10.2032 115.50 270 ; PALMAS +VOR CLO -76.4064 +3.4063 115.50 270 ; CALI +VOR TAC +125.0281 +11.2336 115.50 270 ; TACLOBAN +VOR ALC +129.5841 +28.4437 115.50 270 ; AMAMI +VOR PLB +104.6532 -2.8786 115.50 270 ; PALEMBANG +VOR CML +91.1900 +23.4339 115.50 270 ; COMILLA +VOR CSO +6.6056 +36.2925 115.50 270 ; CONSTANTINE +VOR GEG -117.6269 +47.5649 115.50 270 ; SPOKANE +VOR GTC +139.1149 +37.9583 115.50 270 ; NIIGATA +VOR ERE -61.8722 -29.8644 115.50 270 ; CERES +VOR FNP -48.4982 -27.6917 115.50 270 ; FLORIANOPOLIS +VOR ZHO +114.6417 +33.6617 115.50 270 ; ZHOUKOU +VOR MTI -4.0647 +14.5261 115.50 270 ; MOPTI/BARBE +VOR NTS -1.6131 +47.1608 115.50 270 ; NANTES +VOR MCG -155.6114 +62.9510 115.50 270 ; MCGRATH +VOR ELD -92.7439 +33.2562 115.50 270 ; EL DORADO +VOR YWG -97.2392 +49.9278 115.50 270 ; WINNIPEG +VOR GRB -88.1949 +44.5552 115.50 270 ; GREEN BAY +VOR HNW -120.7493 +38.7247 115.50 130 ; HANGTOWN +VOR GRD -82.1541 +34.2516 115.50 130 ; GREENWOOD +VOR CMU +145.6236 -28.0389 115.50 270 ; CUNNAMULLA +VOR YZF -114.4367 +62.4644 115.50 270 ; YELLOWKNIFE +VOR VTR -40.2828 -20.2497 115.50 270 ; VITORIA +VOR SAC +128.0766 +35.0980 115.50 270 ; SACHON +VOR CNX -105.6780 +34.3670 115.50 270 ; CORONA +VOR VOG +8.9703 +44.9644 115.50 270 ; VOGHERA +VOR NAH +106.1177 +20.3872 115.50 270 ; NAMHA +VOR LGI -13.1911 +8.6172 115.50 270 ; FREETOWN LUNGI +VOR PSB -77.9927 +40.9163 115.50 270 ; PHILIPSBURG +VOR LMM -109.0728 +25.6831 115.50 270 ; MOCHIS +VOR PSP -116.4298 +33.8700 115.50 130 ; PALM SPRINGS +VOR STJ -94.9252 +39.9606 115.50 270 ; ST. JOSEPH +VOR CRP -97.4449 +27.9038 115.50 270 ; CORPUS CHRISTI +VOR SMN -6.0506 +34.2325 115.50 270 ; SIDI SLIMANE +VOR RGB +44.5965 +23.9268 115.50 270 ; RAGHBA +VOR ODN +10.6530 +55.5810 115.50 270 ; ODIN +VOR AAR +74.8007 +31.7069 115.50 270 ; AMRITSAR +VOR YO +12.4311 +9.2919 115.50 270 ; YOLA +VOR GAV +27.6765 -26.5148 115.50 270 ; GRASMERE +VOR GYV +30.5861 -29.1235 115.50 270 ; GREYTOWN +VOR MLY -76.7777 +17.9270 115.50 270 ; MANLEY +VOR NSA -7.9146 +39.5647 115.50 270 ; NISA +VOR KUA +47.9676 +29.2184 115.50 270 ; KUWAIT +VOR MHS +97.9086 +19.3211 115.50 270 ; MAE HONG SON +VOR BBG +77.6810 +12.9500 115.50 270 ; BANGALORE +VOR TOY -71.4736 -30.2764 115.50 270 ; TONGOY +VOR BAL -71.7128 -45.9131 115.50 270 ; BALMACEDA +VOR TAP -76.3512 -6.6581 115.50 270 ; TARAPOTO +VOR KNG +22.4497 -5.9022 115.50 270 ; KANANGA +VOR FLS +5.2122 +60.3113 115.55 270 ; FLESLAND +VOR JUL -70.1513 -15.4685 115.55 270 ; JULIACA +VOR HDR +4.7657 +52.9069 115.55 270 ; DEN HELDER +VOR ILZ +8.6544 +26.7233 115.60 270 ; ILLIZI +VOR LAM +0.1517 +51.6461 115.60 270 ; LAMBOURNE +VOR URC -71.5855 -13.6471 115.60 270 ; URCOS +VOR VTW +117.8872 +4.2557 115.60 270 ; TAWAU +VOR RPR -47.7767 -21.1360 115.60 270 ; RIBEIRAO +VOR FSA -58.2247 -26.2103 115.60 270 ; FORMOSA +VOR AY +146.9661 -36.0681 115.60 270 ; ALBURY +VOR GVE -78.1529 +38.0136 115.60 270 ; GORDONSVILLE +VOR FRA -119.5954 +37.1044 115.60 130 ; FRIANT +VOR CJN -2.5457 +40.3718 115.60 270 ; CASTEJON +VOR CHE -107.3049 +40.5201 115.60 270 ; HAYDEN +VOR GCM -81.3720 +19.2894 115.60 270 ; GRAND CAYMAN +VOR PVD -71.4296 +41.7243 115.60 270 ; PROVIDENCE +VOR GNY +150.3617 -10.3158 115.60 270 ; GURNEY +VOR IMB -119.7116 +44.6484 115.60 270 ; KIMBERLY +VOR PXR -111.9702 +33.4330 115.60 270 ; PHOENIX +VOR OXI -86.6493 +41.3220 115.60 270 ; KNOX +VOR NTG +120.9817 +32.0667 115.60 270 ; NANTONG +VOR GAG -99.8801 +36.3437 115.60 270 ; GAGE +VOR ZFR +35.1608 +30.5573 115.60 270 ; ZOFAR +VOR LGC -85.2062 +33.0491 115.60 270 ; LAGRANGE +VOR MEX -99.0668 +19.4393 115.60 270 ; MEXICO CITY +VOR GBE -58.4639 -35.7511 115.60 270 ; GENERAL BELGRANO +VOR STR +7.5719 +48.5053 115.60 270 ; STRASBOURG +VOR KAE +128.7536 +37.7006 115.60 270 ; KANGWON +VOR PTN +94.7772 +16.8144 115.60 270 ; PATHEIN +VOR NSE +144.9505 +43.5774 115.60 270 ; NAKASHIBETSU +VOR EYP -72.4302 +5.2791 115.60 270 ; EL YOPAL +VOR FRS +13.2950 +41.6422 115.60 270 ; FROSINONE +VOR PVN -72.2661 +21.7718 115.60 270 ; PROVIDENCIALES +VOR GKN -145.4503 +62.1524 115.60 270 ; GULKANA +VOR JED +20.2512 +50.6473 115.60 270 ; JEDOW +VOR ERN +39.5292 +39.7088 115.60 270 ; ERZINCAN +VOR YXI -77.6028 +45.6631 115.60 270 ; KILLALOE +VOR EPR +1.6566 +48.6257 115.65 270 ; EPERNON +VOR HMM +7.7083 +51.8569 115.65 270 ; HAMM +VOR BRA +13.9110 +59.6070 115.70 270 ; BRATTFORS +VOR NAN +100.7783 +18.8114 115.70 270 ; NAN +VOR FAM -90.2340 +37.6734 115.70 270 ; FARMINGTON +VOR KKU +92.9775 +24.9137 115.70 270 ; SILCHAR +VOR FGT -93.1821 +44.6309 115.70 270 ; FARMINGTON +VOR CTV +18.6050 -33.9695 115.70 270 ; CAPE TOWN +VOR RBL -122.2364 +40.0989 115.70 270 ; RED BLUFF +VOR KGE +130.7261 +31.7975 115.70 270 ; KAJIKI +VOR MBA +18.2831 +0.0472 115.70 270 ; MBANDAKA +VOR ARB +48.4410 +38.3031 115.70 270 ; ARDABIL +VOR ZB +69.4597 +31.3554 115.70 270 ; ZHOB +VOR SPL +16.3047 +43.4967 115.70 270 ; SPLIT +VOR MAR -71.7129 +10.5842 115.70 270 ; MARACAIBO +VOR SHL +113.8533 +23.0900 115.70 270 ; SHILONG +VOR EU +7.6011 +6.4797 115.70 270 ; ENUGU +VOR GSY +4.4411 +50.4539 115.70 270 ; CHARLEROI +VOR OGD -112.0982 +41.2241 115.70 130 ; OGDEN +VOR CTU +103.9433 +30.5750 115.70 270 ; CHENGDU +VOR WXI +114.9167 +36.3633 115.70 270 ; WEIXIAN +VOR FUZ -97.1794 +32.8895 115.70 270 ; RANGER +VOR PPB +92.7459 +11.6497 115.70 270 ; PORT BLAIR +VOR OKG +12.4057 +50.0651 115.70 270 ; CHEB +VOR FES -5.0151 +33.9307 115.70 270 ; FES/SAISS +VOR IAI -156.0248 +19.6545 115.70 270 ; KONA +VOR TBK +36.6069 +28.3674 115.70 270 ; TABUK +VOR GCV -88.4861 +31.0980 115.70 270 ; GREENE COUNTY +VOR PAZ -68.2322 -16.5087 115.70 270 ; LA PAZ +VOR SAX -74.5383 +41.0675 115.70 270 ; SPARTA +VOR DBA +28.4669 +31.0114 115.70 270 ; EL DABA +VOR YQL -112.6678 +49.6344 115.70 270 ; LETHBRIDGE +VOR TTP +79.5391 +13.6344 115.70 270 ; TIRUPATI +VOR CLD -70.8064 -27.1250 115.70 270 ; CALDERA +VOR PBI -80.0865 +26.6801 115.70 270 ; PALM BEACH +VOR TNT -1.6700 +53.0539 115.70 270 ; TRENT +VOR OJC +140.3708 +35.1835 115.70 270 ; ONJUKU +VOR GZO +14.2053 +36.0372 115.70 270 ; GOZO +VOR MBJ -77.9239 +18.5004 115.70 270 ; MONTEGO BAY +VOR MBT +123.6314 +12.3686 115.70 270 ; MASBATE +VOR HLH +122.0100 +46.1950 115.70 270 ; ULANHOT +VOR PRA +55.7072 -4.3083 115.70 270 ; PRASLIN +VOR DUB +55.3657 +25.2545 115.70 270 ; DUBAI +VOR RYD -65.3803 -33.7292 115.70 270 ; VILLA REYNOLDS +VOR SLI -118.0548 +33.7833 115.70 130 ; SEAL BEACH +VOR MZ +32.9222 -2.4383 115.70 270 ; MWANZA +VOR CRL -83.4576 +42.0481 115.70 270 ; CARLETON +VOR JNS +29.6105 +62.6605 115.70 270 ; JOSIE +VOR SPA -81.9271 +35.0337 115.70 270 ; SPARTANBURG +VOR GAR +39.6500 -0.4725 115.70 270 ; GARISSA +VOR OTZ -162.5399 +66.8857 115.70 270 ; KOTZEBUE +VOR ESV -79.6266 +0.9890 115.70 270 ; ESMERALDAS +VOR CGR -54.6705 -20.4688 115.70 270 ; CAMPO GRANDE +VOR KHG +76.0233 +39.5467 115.70 270 ; KASHI +VOR NLY +11.5565 +3.7258 115.70 270 ; YAOUNDE NSIMALEN +VOR VBU +28.6442 -20.0292 115.70 270 ; BULAWAYO +VOR MON -73.0919 -41.4293 115.70 270 ; PUERTO MONTT +VOR TIO -84.2367 +9.9850 115.70 270 ; EL COCO +VOR QET -100.3762 +20.6217 115.70 270 ; QUERETARO +VOR URC +87.4750 +43.9067 115.70 270 ; URUMQI +VOR JON +14.0654 +57.7604 115.80 270 ; JONKOPING +VOR RDS +28.0819 +36.3400 115.80 270 ; RODOS +VOR BJX -101.4826 +20.9978 115.80 270 ; LEON +VOR TWF -114.4895 +42.4799 115.80 130 ; TWIN FALLS +VOR VAB -2.0027 +38.9438 115.80 270 ; ALBACETE +VOR BEJ -7.9267 +38.1284 115.80 270 ; BEJA +VOR FUE +128.8267 +32.6686 115.80 270 ; FUKUE +VOR DBQ -90.7091 +42.4015 115.80 270 ; DUBUQUE +VOR PSV +27.0858 -26.6692 115.80 270 ; POTCHEFSTROOM +VOR DPE +1.1706 +49.9254 115.80 270 ; DIEPPE +VOR ENN -149.0729 +64.5900 115.80 270 ; NENANA +VOR YJN -73.3213 +45.2558 115.80 270 ; ST JEAN +VOR KNS +27.4515 +68.4540 115.80 270 ; KAUNIS +VOR VIL +10.9061 +45.4081 115.80 270 ; VILLAFRANCA +VOR MKE +140.4171 -8.5226 115.80 270 ; MERAUKE +VOR BAL -6.4478 +53.2999 115.80 270 ; BALDONNEL +VOR CIE -109.7582 +32.0334 115.80 270 ; COCHISE +VOR SFO -122.3739 +37.6195 115.80 130 ; SAN FRANCISCO +VOR GAI +1.8242 +43.9542 115.80 270 ; GAILLAC +VOR YAM -5.3789 +6.8889 115.80 270 ; YAMOUSSOUKRO +VOR DKH -15.9261 +23.7397 115.80 270 ; DAKHLA +VOR ARS +137.8933 -34.4167 115.80 270 ; ARDROSSAN +VOR EWC -80.2116 +40.8252 115.80 270 ; ELLWOOD CITY +VOR LKO +113.6967 +29.9167 115.80 270 ; LONGKOU +VOR BKS +21.0739 +46.8000 115.80 270 ; BEKES +VOR OBD +30.2334 +13.1477 115.80 270 ; EL OBEID +VOR COT -99.1185 +28.4620 115.80 270 ; COTULLA +VOR GQO -85.1534 +34.9613 115.80 270 ; CHOO CHOO +VOR CMA -119.0943 +34.2125 115.80 130 ; CAMARILLO +VOR VIG +6.0344 +62.5521 115.80 270 ; VIGRA +VOR NVA -75.2586 +3.0655 115.80 270 ; NEIVA +VOR SDP +88.9100 +25.7544 115.80 270 ; SAIDPUR +VOR MAH +49.1494 +30.5563 115.80 270 ; MAHSHAHR +VOR WYY +145.7264 -40.9992 115.80 270 ; WYNYARD +VOR YQV -102.4686 +51.2642 115.80 270 ; YORKTON +VOR GAD +9.7422 +30.1650 115.80 270 ; GHADAMES +VOR JAL +79.6556 +27.6943 115.80 270 ; JALALABAD +VOR LEG +12.4732 +51.4360 115.85 270 ; LEIPZIG +VOR BNA -64.7071 +10.1303 115.90 270 ; BARCELONA +VOR BSA +4.4017 +35.5153 115.90 270 ; BOU SAADA +VOR MRF -103.9548 +30.2984 115.90 130 ; MARFA +VOR YEA -109.9892 +50.9264 115.90 270 ; EMPRESS +VOR AS +133.8782 -23.7929 115.90 270 ; ALICE SPRINGS +VOR GAZ +37.4727 +36.9515 115.90 270 ; GAZIANTEP +VOR BVS +2.1533 +49.4364 115.90 270 ; BEAUVAIS +VOR TOL +119.6583 +29.7633 115.90 270 ; TONGLU +VOR TNV -96.0582 +30.2885 115.90 270 ; NAVASOTA +VOR YYY -68.2090 +48.6121 115.90 270 ; MONT JOLI +VOR HNN -82.0262 +38.7541 115.90 270 ; HENDERSON +VOR OKC +134.0151 +34.6714 115.90 270 ; OKAYAMA +VOR JFK -73.7714 +40.6329 115.90 270 ; KENNEDY +VOR PNT -72.4481 -51.7350 115.90 270 ; PUERTO NATALES +VOR AXD +29.9503 +31.1869 115.90 270 ; ALEXANDRIA +VOR BSE +106.6500 +23.9000 115.90 270 ; BOSE +VOR BTO +116.5783 +38.1083 115.90 270 ; POTOU +VOR WON +145.6233 -38.4711 115.90 270 ; WONTHAGGI +VOR SHK +113.9017 +22.4983 115.90 270 ; SHEKOU +VOR TRI -64.9371 -14.7960 115.90 270 ; TRINIDAD +VOR HVE -110.6997 +38.4168 115.90 270 ; HANKSVILLE +VOR GB +9.0015 +7.2506 115.90 270 ; GBOKO +VOR GV +36.6380 -1.3965 115.90 270 ; NGONG +VOR SNY -102.9830 +41.0967 115.90 270 ; SIDNEY +VOR TNG -5.8906 +35.7286 115.90 270 ; TANGER +VOR BLV -2.9359 +43.3044 115.90 270 ; BILBAO +VOR BRS -48.0213 -15.8737 115.90 270 ; BRASILIA +VOR PR +118.7531 +9.7414 115.90 270 ; PUERTO PRINCESA +VOR PES +14.1844 +42.4361 115.90 270 ; PESCARA +VOR CHI -72.0358 -36.5831 115.90 270 ; CHILLAN +VOR KC -15.9483 +18.0916 115.90 270 ; NOUAKCHOTT +VOR VAS -57.5217 -25.2433 115.90 270 ; ASUNCION +VOR LMT -121.7275 +42.1531 115.90 270 ; KLAMATH FALLS +VOR PRF +55.4111 -21.3289 115.90 130 ; ST.PIERRE/PIERREFONDS +VOR BUM -94.4882 +38.2721 115.90 270 ; BUTLER +VOR DIL -59.2293 -37.2249 115.90 270 ; TANDIL +VOR TPS +19.4461 +47.4933 115.90 270 ; TAPIOSAP +VOR PAM +0.5614 +8.0147 115.90 270 ; PAMPA +VOR IPL -115.5086 +32.7489 115.90 270 ; IMPERIAL +VOR WLD +14.0167 +31.7333 115.90 270 ; BENI WALID +VOR YVR -123.1492 +49.0772 115.90 270 ; VANCOUVER +VOR SNG +74.7554 +34.0028 115.90 270 ; SRINAGAR +VOR GYV -79.8669 -2.1283 115.90 270 ; GUAYAQUIL +VOR MLY +152.7614 -26.7447 115.90 270 ; MALENY +VOR YSP -86.3275 +48.7434 115.90 270 ; MARATHON +VOR EJA -73.8055 +7.0285 115.90 270 ; BARRANCABERMEJA +VOR CEW -86.6791 +30.8262 115.90 270 ; CRESTVIEW +VOR UUD +73.8941 +24.6130 115.90 270 ; UDAIPUR +VOR ACA -99.7537 +16.7581 115.90 270 ; ACAPULCO +VOR KRH +8.5842 +48.9930 115.95 270 ; KARLSRUHE +VOR GRR -85.4971 +42.7867 115.95 270 ; GRAND RAPIDS +VOR GRM +11.0744 +60.1918 115.95 270 ; GARDERMOEN +VOR UDA +106.7336 +47.8677 116.00 270 ; ULAANBAATAR +VOR ETG -78.1428 +41.2150 116.00 270 ; KEATING +VOR PBF -91.9262 +34.2468 116.00 130 ; PINE BLUFF +VOR UMZ -77.0994 +20.3028 116.00 270 ; MANZANILLO +VOR ECA -121.1714 +37.8336 116.00 270 ; MANTECA +VOR JCT -99.8175 +30.5980 116.00 270 ; JUNCTION +VOR BTM +104.1326 +1.1369 116.00 270 ; BATAM +VOR BCO -46.3855 -23.4063 116.00 270 ; BONSUCESSO +VOR TW +150.8300 -31.0661 116.00 270 ; TAMWORTH +VOR MRW +31.8225 +18.4003 116.00 270 ; MEROWE +VOR TOY -89.9186 +38.7392 116.00 130 ; TROY +VOR SWN -3.0375 +34.9897 116.00 270 ; NADOR ARWI +VOR BDU -2.7543 +8.0365 116.00 270 ; BONDOUKOU/SOKO +VOR TUS -110.9149 +32.0952 116.00 270 ; TUCSON +VOR SNC -92.5221 +16.6843 116.00 130 ; SAN CRISTOBAL +VOR MAC -5.6503 +55.4300 116.00 270 ; MACHRIHANISH +VOR LAL -82.0139 +27.9862 116.00 270 ; LAKELAND +VOR GGB +76.8030 +17.3135 116.00 130 ; GULBARGA +VOR BTT -151.5359 +66.9050 116.00 270 ; BETTLES +VOR TRO +3.9631 +48.2511 116.00 270 ; TROYES +VOR CVL -39.2557 -17.6485 116.00 270 ; CARAVELAS +VOR ARL +17.9144 +59.6534 116.00 270 ; ARLANDA +VOR RIN +49.4000 +14.6667 116.00 270 ; RIYAN +VOR DAM +36.4677 +33.3672 116.00 270 ; DAMASCUS +VOR CTN -71.4460 +7.5166 116.00 270 ; EL CANTON +VOR STA -74.2384 +10.9645 116.00 270 ; SANTA MARTA +VOR LIN +9.2753 +45.4611 116.00 270 ; LINATE +VOR DRV +28.4639 -26.3683 116.00 270 ; DUNNOTTAR +VOR UIS -66.3608 -33.2694 116.00 270 ; SAN LUIS +VOR CMA -1.2981 +40.8673 116.00 270 ; CALAMOCHA +VOR TLE +140.2055 +36.0212 116.00 270 ; AMI +VOR YKM -120.4446 +46.5703 116.00 270 ; YAKIMA +VOR OCS -109.0153 +41.5902 116.00 270 ; ROCK SPRINGS +VOR LWB -80.3920 +37.8638 116.05 130 ; GREENBRIER +VOR DPN +77.0949 +28.5667 116.10 270 ; DELHI +VOR LNK -96.7420 +40.9238 116.10 270 ; LINCOLN +VOR HUL -67.8341 +46.0395 116.10 270 ; HOULTON +VOR HUO -74.5916 +41.4097 116.10 270 ; HUGUENOT +VOR PAN +11.9653 +36.8142 116.10 270 ; PANTELLERIA +VOR NOL -67.1590 +10.4398 116.10 270 ; NO LEON +VOR MDI +78.0890 +9.8311 116.10 270 ; MADURAI +VOR LOZ -84.1101 +37.0331 116.10 130 ; LONDON +VOR ATE +140.0623 +39.7116 116.10 270 ; AKITA +VOR VMZ +34.0000 -11.4153 116.10 270 ; MZUZU +VOR LVM -110.4425 +45.7025 116.10 130 ; LIVINGSTON +VOR GMN -118.8614 +34.8040 116.10 130 ; GORMAN +VOR TRF +38.7345 +31.6933 116.10 270 ; TURAIF +VOR AAT +91.2397 +23.8896 116.10 270 ; AGARTALA +VOR AV +144.4589 -38.0489 116.10 270 ; AVALON +VOR ASP -83.3943 +44.4491 116.10 270 ; AU SABLE +VOR NOB +105.8349 +21.2130 116.10 270 ; NOIBAI +VOR CDN +1.3870 +48.0590 116.10 270 ; CHATEAUDUN +VOR STG -8.4254 +42.9269 116.10 270 ; SANTIAGO +VOR NIN -60.9339 -34.5411 116.10 270 ; JUNIN +VOR RAB -90.4700 +15.0092 116.10 270 ; RABINAL +VOR YDN -100.0525 +51.1050 116.10 270 ; DAUPHIN +VOR TAL -81.2505 -4.5782 116.10 270 ; TALARA +VOR PZD -84.2931 +31.6552 116.10 270 ; PECAN +VOR SUL +8.6448 +48.3816 116.10 270 ; SULZ +VOR VLC -0.4830 +39.4856 116.10 270 ; VALENCIA +VOR NVV +19.0711 -31.3800 116.10 270 ; NIEUWOUDTVILLE +VOR RRP +81.7409 +21.1810 116.10 270 ; RAIPUR +VOR MTQ -62.8675 -25.7494 116.10 270 ; MONTE QUEMADO +VOR AMB -70.7844 -33.4197 116.10 270 ; SANTIAGO +VOR MQU -74.9247 +5.2113 116.10 270 ; MARIQUITA +VOR BLC +21.3616 +43.2487 116.10 130 ; BLACE +VOR SAA +44.2200 +15.5000 116.10 270 ; SANAA +VOR MKK -157.1674 +21.1381 116.10 270 ; MOLOKAI +VOR AEX -92.5007 +31.2566 116.10 270 ; ALEXANDRIA +VOR SLW -100.9300 +25.5461 116.10 270 ; SALTILLO +VOR CKG +106.6433 +29.7217 116.10 270 ; CHONGQING +VOR UHA -82.4266 +22.9788 116.10 270 ; HAVANA +VOR CME -104.6212 +33.3375 116.10 270 ; CHISUM +VOR PDO -69.2255 -12.6054 116.10 270 ; PUERTO MALDONADO +VOR FRV +13.4439 -1.6531 116.10 270 ; FRANCEVILLE MVENGUE +VOR DTA -112.5056 +39.3023 116.10 270 ; DELTA +VOR CJU +126.6297 +33.3894 116.10 270 ; CHEJU +VOR WIL +7.9059 +47.1783 116.15 270 ; WILLISAU +VOR DNJ -116.2063 +44.7671 116.20 270 ; DONNELLY +VOR YXE -106.7197 +52.1811 116.20 270 ; SASKATOON +VOR BGC -46.5698 -22.9513 116.20 270 ; BRAGANCA +VOR PIR +23.5777 +61.4099 116.20 270 ; PIRKKA +VOR SAU -122.5227 +37.8553 116.20 130 ; SAUSALITO +VOR CPE -90.5043 +19.8306 116.20 270 ; CAMPECHE +VOR BRW -156.7881 +71.2734 116.20 270 ; BARROW +VOR TRL +22.3403 +37.4036 116.20 270 ; TRIPOLIS +VOR ACK -70.0267 +41.2818 116.20 270 ; NANTUCKET +VOR BLI +115.1633 -8.7506 116.20 270 ; BALI +VOR PAL +119.8947 -0.8850 116.20 270 ; PALU +VOR ZR +8.9724 +13.7706 116.20 270 ; ZINDER +VOR RBE +141.0390 +45.4511 116.20 270 ; REBUN +VOR MDP -57.5764 -37.9298 116.20 270 ; MAR DEL PLATA +VOR GNV -82.3626 +29.5722 116.20 130 ; GAINESVILLE +VOR FAR -96.8513 +46.7534 116.20 270 ; FARGO +VOR NOR +6.6938 +50.8411 116.20 270 ; NORVENICH +VOR SVD +12.5738 +56.1689 116.20 270 ; SVEDA +VOR XJD +120.2267 +35.9500 116.20 270 ; XUEJIADAO +VOR RIM +12.6167 +44.0153 116.20 270 ; RIMINI +VOR RZE +22.0988 +50.1098 116.20 270 ; RZESZOW +VOR CVE -96.9040 +32.8903 116.20 270 ; COWBOY +VOR GSO -79.9764 +36.0457 116.20 270 ; GREENSBORO +VOR BRN +26.0056 +31.5756 116.20 270 ; SIDI BARRANI +VOR TRM -116.1602 +33.6281 116.20 270 ; THERMAL +VOR GRZ +15.4494 +46.9554 116.20 270 ; GRAZ +VOR IGB -88.5136 +33.4855 116.20 130 ; BIGBEE +VOR LRN -68.9124 +18.4522 116.20 270 ; LA ROMANA +VOR BLN -3.6250 +38.1525 116.20 270 ; BAILEN +VOR DDY -106.2770 +43.0909 116.20 270 ; MUDDY MOUNTAIN +VOR JPA +140.5308 -2.5877 116.20 270 ; JAYAPURA +VOR CAK +35.7000 +34.3000 116.20 270 ; CHEKKA +VOR CGC -0.3117 +45.6594 116.20 270 ; COGNAC +VOR TJE +130.9543 +30.5388 116.20 270 ; TANEGASHIMA +VOR BUV -73.8633 +5.5322 116.20 270 ; BUVIS +VOR IOW -91.6132 +41.5190 116.20 270 ; IOWA CITY +VOR DKK -79.2741 +42.4906 116.20 270 ; DUNKIRK +VOR PLO +152.3592 -30.4925 116.20 270 ; POINT LOOKOUT +VOR NSV +30.9157 -25.4982 116.20 270 ; NELSPRUIT +VOR TKA -150.1056 +62.2986 116.20 270 ; TALKEETNA +VOR LLC +112.2117 +28.0683 116.20 270 ; LAOLIANGCANG +VOR PPG +2.8671 +42.7505 116.25 270 ; PERPIGNAN +VOR BKY +0.0619 +51.9897 116.25 270 ; BARKWAY +VOR VES -54.8501 -25.4600 116.30 270 ; CIUDAD DEL ESTE +VOR NAR +146.5169 -34.7019 116.30 270 ; NARRANDERA +VOR AAU +75.3940 +19.8647 116.30 270 ; AURANGABAD +VOR UNV -77.2308 +21.3950 116.30 270 ; NUEVAS +VOR MIA +95.9748 +21.7126 116.30 270 ; MANDALAY +VOR CZO -67.4092 +8.9267 116.30 270 ; CALABOZO +VOR CNM -104.2261 +32.2566 116.30 130 ; CARLSBAD +VOR YUL -73.9711 +45.6156 116.30 270 ; MONTREAL +VOR DPO +146.4342 -41.1700 116.30 270 ; DEVONPORT +VOR VHP -86.3676 +39.8147 116.30 270 ; BRICKYARD +VOR ISN -103.7508 +48.2533 116.30 130 ; WILLISTON +VOR NSH +108.3117 +33.3183 116.30 270 ; NINGSHAN +VOR FQF -104.6210 +39.6901 116.30 270 ; FALCON +VOR VLB +115.2580 +5.2894 116.30 270 ; LABUAN +VOR LYE -63.3625 -34.1411 116.30 270 ; LABOULAYE +VOR SDE +140.9215 +38.1386 116.30 270 ; SENDAI +VOR KSR +35.5266 +38.7785 116.30 270 ; KAYSERI +VOR CSN -77.8655 +38.6412 116.30 270 ; CASANOVA +VOR VOZ +14.8747 +49.5323 116.30 270 ; VOZICE +VOR FKG +87.9833 +44.1667 116.30 270 ; FUKANG +VOR NTL +18.7656 +59.7495 116.30 270 ; NORTEL +VOR ORT -141.9128 +62.9472 116.30 270 ; NORTHWAY +VOR MAG +145.7768 -5.2116 116.30 270 ; MADANG +VOR PCA +109.0425 +13.9572 116.30 270 ; PHUCAT +VOR BRO -97.3753 +25.9241 116.30 270 ; BROWNSVILLE +VOR IOO +122.5481 +10.7171 116.30 270 ; ILOILO +VOR MKS -5.5153 +33.8781 116.30 270 ; MEKNES +VOR OVR -95.7367 +41.1673 116.30 270 ; OMAHA +VOR KMI +29.2500 -5.8689 116.30 270 ; KALEMIE +VOR NTW +101.7416 +6.5289 116.30 270 ; NARATHIWAT +VOR SUM +17.7078 +64.9555 116.30 270 ; STORUMAN +VOR MGA +47.2761 +26.2311 116.30 270 ; MAGALA +VOR EKI +27.4259 +40.9510 116.30 270 ; TEKIRDAG +VOR ERV +27.9644 -23.6252 116.30 270 ; ELLISRAS +VOR MPE +132.7176 +33.8130 116.30 270 ; MATSUYAMA +VOR LOA -68.8769 -22.5003 116.30 270 ; CALAMA +VOR MER -77.1549 +1.7910 116.30 270 ; MERCADERES +VOR TRB +1.5150 +35.3478 116.30 270 ; TIARET +VOR GLA +151.2044 -23.8653 116.30 270 ; GLADSTONE +VOR TRU -79.1123 -8.0872 116.30 270 ; TRUJILLO +VOR MOS -162.0712 +64.6965 116.30 130 ; MOSES POINT +VOR LIO -83.0200 +9.9600 116.30 270 ; LIMON +VOR TGO +122.1983 +43.5600 116.30 270 ; TONGLIAO +VOR NGB +121.4600 +29.8267 116.30 270 ; NINGBO +VOR DHE +7.9107 +54.1857 116.30 270 ; HELGOLAND +VOR CTM -88.3233 +18.5041 116.30 270 ; CHETUMAL +VOR ILC -114.3942 +38.2502 116.30 270 ; WILSON CREEK +VOR CUA -98.9011 +18.7834 116.30 270 ; CUAUTLA +VOR AU +7.2841 +9.0381 116.30 130 ; ABUJA +VOR TXK -94.0732 +33.5139 116.30 270 ; TEXARKANA +VOR NS +173.2225 -41.3017 116.40 270 ; NELSON +VOR ALM +13.5575 +55.4113 116.40 270 ; ALMA +VOR BAR +16.7764 +41.1442 116.40 270 ; BARI +VOR ELA -96.3172 +29.6625 116.40 270 ; EAGLE LAKE +VOR EDW -117.7326 +34.9824 116.40 130 ; EDWARDS +VOR FAG +9.3990 +61.0744 116.40 270 ; FAGERNES +VOR PQI -68.0945 +46.7742 116.40 270 ; PRESQUE ISLE +VOR MCU +113.5978 +22.1356 116.40 270 ; MACAU +VOR TRC -103.4093 +25.5631 116.40 270 ; TORREON +VOR POS +3.1146 +39.9274 116.40 270 ; POLLENSA +VOR DTY -1.1139 +52.1803 116.40 270 ; DAVENTRY +VOR RZC -94.1214 +36.2464 116.40 270 ; RAZORBACK +VOR VXV -83.8947 +35.9048 116.40 270 ; VOLUNTEER +VOR KKJ +79.9187 +24.8149 116.40 270 ; KHAJURAHO +VOR MTT -94.5821 +18.1035 116.40 270 ; MINATITLAN +VOR FSK +22.9917 +41.0989 116.40 270 ; FISKA +VOR BUF -78.6463 +42.9290 116.40 270 ; BUFFALO +VOR SYT +91.8669 +24.9608 116.40 270 ; SYLHET +VOR JAB +19.6786 +49.4829 116.40 270 ; JABLONKA +VOR IMU +108.3390 -6.3042 116.40 270 ; INDRAMAYU +VOR PDG +100.3533 -0.8711 116.40 270 ; PADANG +VOR AD +138.5244 -34.9469 116.40 270 ; ADELAIDE +VOR KAV +150.8368 -2.6039 116.40 270 ; KAVIENG +VOR DLG -158.5522 +58.9942 116.40 270 ; DILLINGHAM +VOR TZZ -121.8107 +38.3442 116.40 130 ; TRAVIS +VOR ALW -118.2925 +46.0870 116.40 130 ; WALLA WALLA +VOR TFS -16.6879 +28.0024 116.40 270 ; TENERIFE SUR +VOR BAE -88.2843 +43.1169 116.40 270 ; BADGER +VOR WMV +26.6611 -28.0014 116.40 270 ; WELKOM +VOR KRD +48.2891 +33.4351 116.40 270 ; KHORAM ABAD +VOR CIM -104.8720 +36.4914 116.40 270 ; CIMARRON +VOR PIE -82.6843 +27.9078 116.40 270 ; ST. PETERSBURG +VOR BRA -3.5575 +40.4691 116.45 270 ; BARAJAS +VOR LLC -118.5777 +40.1249 116.50 130 ; LOVELOCK +VOR BPI -110.1092 +42.5794 116.50 270 ; BIG PINEY +VOR SER -71.1970 -29.9155 116.50 270 ; LA SERENA +VOR UPV +21.2604 -28.4017 116.50 270 ; UPINGTON +VOR PSM -70.8320 +43.0845 116.50 130 ; PEASE +VOR GOM +29.2333 -1.6858 116.50 270 ; GOMA +VOR PTW -75.5603 +40.2223 116.50 130 ; POTTSTOWN +VOR TLM -1.3833 +35.0333 116.50 270 ; TLEMCEN +VOR TIJ -116.9554 +32.5409 116.50 270 ; TIJUANA +VOR CHD +76.8057 +30.6676 116.50 270 ; CHANDIGARH +VOR LYV +29.6942 -28.6045 116.50 270 ; LADYSMITH +VOR IQT -73.3174 -3.7923 116.50 270 ; IQUITOS +VOR YBN +104.5567 +28.7983 116.50 270 ; YIBIN +VOR TUC +10.2303 +36.8516 116.50 270 ; TUNIS +VOR CTR +99.8834 +19.9482 116.50 270 ; CHIANG RAI +VOR CLC +75.9548 +11.1351 116.50 270 ; CALICUT +VOR BC +5.5836 +6.2986 116.50 130 ; BENIN +VOR SUR -65.2866 -19.0076 116.50 270 ; SUCRE +VOR VTK +104.0221 +1.4154 116.50 270 ; TEKONG +VOR VNA -83.4973 +32.2135 116.50 130 ; VIENNA +VOR PSN +117.9667 +34.3000 116.50 270 ; PIXIAN +VOR NHL +141.6456 -36.3158 116.50 270 ; NHILL +VOR GYA +112.4867 +23.0700 116.50 270 ; GAOYAO +VOR BTR -91.2941 +30.4851 116.50 270 ; BATON ROUGE +VOR EZE -58.5354 -34.8240 116.50 270 ; EZEIZA +VOR BF +10.3697 +5.5083 116.50 270 ; BAFOUSSAM +VOR TVT -82.1268 +40.4580 116.50 130 ; TIVERTON +VOR SUX -96.3236 +42.3445 116.50 130 ; SIOUX CITY +VOR LVD -133.0832 +56.4677 116.50 270 ; LEVEL ISLAND +VOR CTB -49.1682 -25.5320 116.50 270 ; CURITIBA +VOR PTV +2.2647 +48.1556 116.50 270 ; PITHIVIERS +VOR NIT +18.0506 +48.2904 116.50 270 ; NITRA +VOR KHR +36.2858 +49.9258 116.50 270 ; KHARKIV +VOR CFD -0.6108 +52.0742 116.50 270 ; CRANFIELD +VOR YSV -89.1163 +13.6900 116.50 270 ; ILOPANGO +VOR SVD -38.3210 -12.9060 116.50 270 ; SALVADOR +VOR DHN +122.1167 +41.6417 116.50 270 ; DAHUSHAN +VOR KU +128.7089 -15.7756 116.50 270 ; KUNUNURRA +VOR KIH +54.0100 +26.5233 116.50 270 ; KISH ISLAND +VOR HGD +33.8136 +27.1764 116.50 270 ; HURGHADA +VOR ITO -67.4425 -29.2111 116.50 270 ; CHILECITO +VOR RBT -6.7461 +34.0497 116.50 270 ; RABAT +VOR JCW +153.3344 -27.7614 116.50 270 ; JACOBS WELL +VOR MSL -87.4915 +34.7069 116.50 130 ; MUSCLE SHOALS +VOR DDD -91.1491 +41.3664 116.50 130 ; PORT CITY +VOR NIE +9.3720 +52.6259 116.50 130 ; NIENBURG +VOR NHC +127.6429 +26.2085 116.50 270 ; NAHA +VOR DI +49.2811 -12.3400 116.50 270 ; ANTSIRANANA ARRACHART +VOR SOM -64.1564 +8.9439 116.50 270 ; SAN TOME +VOR YXH -110.8144 +49.9647 116.50 270 ; MEDICINE HAT +VOR BIS -100.6654 +46.7618 116.50 130 ; BISMARCK +VOR ARI -70.3458 -18.3681 116.50 270 ; ARICA +VOR STP +6.6019 +43.2194 116.50 270 ; ST. TROPEZ +VOR YTP -79.6642 +43.6717 116.55 270 ; PEARSON (TORONTO/LBP) +VOR BFD -78.6194 +41.7864 116.60 130 ; BRADFORD +VOR PAS +6.0012 +46.1637 116.60 270 ; PASSEIRY +VOR GBN -112.6743 +32.9563 116.60 270 ; GILA BEND +VOR SAM -88.0858 +38.4852 116.60 130 ; SAMSVILLE +VOR BBD +88.3260 +26.6876 116.60 270 ; BAGHDOGRA +VOR WK +143.6760 -3.5835 116.60 270 ; WEWAK +VOR LNZ +14.1032 +48.2297 116.60 270 ; LINZ +VOR RNL -80.8065 +37.9753 116.60 130 ; RAINELLE +VOR ATY -97.1417 +44.9797 116.60 130 ; WATERTOWN +VOR MQE +141.9511 +39.8656 116.60 270 ; MIYAKO +VOR TRK +117.5616 +3.3256 116.60 270 ; TARAKAN +VOR PDK -84.2988 +33.8757 116.60 130 ; PEACHTREE +VOR ABB +1.8547 +50.1353 116.60 270 ; ABBEVILLE +VOR VES +8.3000 +55.6031 116.60 270 ; VESTA +VOR SMF +33.9808 +45.0508 116.60 270 ; SIMFEROPOL +VOR FFU -111.9405 +40.2749 116.60 270 ; FAIRFIELD +VOR ZEM +3.6378 +36.8056 116.60 270 ; ZEMMOURI +VOR ELX -86.1226 +42.1444 116.60 130 ; KEELER +VOR BTG -122.5915 +45.7478 116.60 270 ; BATTLE GROUND +VOR TRN +99.6260 +7.5089 116.60 270 ; TRANG +VOR TAL -152.1776 +65.1771 116.60 270 ; TANANA +VOR LPB +102.1603 +19.8994 116.60 270 ; LUANG PRABANG +VOR PNH -101.6990 +35.2351 116.60 270 ; PANHANDLE +VOR HSA +49.4840 +25.2791 116.60 270 ; AL AHSA +VOR PVR -105.2580 +20.6731 116.60 270 ; VARTA +VOR YW +172.3853 -43.3988 116.60 270 ; EYREWELL +VOR SUA +22.5370 +60.1001 116.60 270 ; SUNNA +VOR TBD +139.5103 -35.2433 116.60 270 ; TAILEM BEND +VOR SNT -23.4892 +14.9316 116.60 270 ; PRAIA +VOR VAL +19.8747 +44.3239 116.60 270 ; VALJEVO +VOR YXY -135.1389 +60.6189 116.60 270 ; WHITEHORSE +VOR SLM -99.0306 +19.7367 116.60 270 ; LUCIA +VOR IAH -95.3457 +29.9569 116.60 270 ; HUMBLE +VOR CMK -73.5813 +41.2801 116.60 130 ; CARMEL +VOR UKN -91.5374 +43.2801 116.60 130 ; WAUKON +VOR BBB +72.8741 +19.0864 116.60 270 ; MUMBAI +VOR OLE +129.9180 +32.9052 116.60 270 ; NAGASAKI +VOR HCE +139.7885 +33.1144 116.65 270 ; HACHIJOJIMA +VOR IID +75.8067 +22.7228 116.70 270 ; INDORE +VOR FGI +9.0833 +41.5022 116.70 130 ; FIGARI +VOR IRO +27.6014 +2.8103 116.70 270 ; ISIRO MATARI +VOR AGV +18.5625 -29.4811 116.70 270 ; AGGENEYS +VOR JEC +133.0939 +35.5311 116.70 270 ; MIHO +VOR HLF +39.2690 +26.4340 116.70 270 ; HALAIFA +VOR ALD -81.2922 +33.0125 116.70 130 ; ALLENDALE +VOR APE -82.5883 +40.1511 116.70 270 ; APPLETON +VOR JOM +122.3283 +14.7033 116.70 270 ; JOMALIG +VOR CB +149.1950 -35.2817 116.70 270 ; CANBERRA +VOR SAL -65.4745 -24.8526 116.70 270 ; SALTA +VOR PUL -74.5723 -8.3760 116.70 270 ; PUCALLPA +VOR SUI +14.5856 +52.3797 116.70 270 ; SLUBICE +VOR KEB +18.4500 +43.9339 116.70 270 ; SARAJEVO +VOR AAL +9.9956 +57.1037 116.70 270 ; AALBORG +VOR KXC +126.7221 +26.3719 116.70 270 ; KUMEJIMA +VOR OZT -6.9044 +30.9400 116.70 270 ; OUARZAZATE +VOR CJS -106.4269 +31.6363 116.70 270 ; JUAREZ +VOR LUB +27.5067 -11.6033 116.70 270 ; LUBUMBASHI +VOR XYO +105.4233 +28.1700 116.70 270 ; XUYONG +VOR MT +71.4167 +30.2000 116.70 270 ; MULTAN +VOR LMN -93.9676 +40.5968 116.70 270 ; LAMONI +VOR TSN +106.6456 +10.8164 116.70 270 ; TANSONNHAT +VOR PUB -104.4294 +38.2943 116.70 270 ; PUEBLO +VOR HGV +28.2832 -26.6968 116.70 270 ; HEIDELBERG +VOR HFE +117.3017 +31.7800 116.70 270 ; HEFEI +VOR MOU +3.6317 +46.7068 116.70 270 ; MOULINS +VOR VSA -92.8132 +17.9965 116.70 270 ; VILLAHERMOSA +VOR YYC -113.8821 +51.1151 116.70 270 ; CALGARY +VOR TPN +107.7532 -2.7245 116.70 270 ; TANJUNG PANDAN +VOR GAL -69.3302 -51.6109 116.70 270 ; RIO GALLEGOS +VOR ZBV -79.2944 +25.7042 116.70 270 ; BIMINI +VOR RDE -46.5298 -23.8947 116.70 270 ; REDE +VOR TAU +8.1625 +50.2505 116.70 270 ; TAUNUS +VOR PJG -69.0095 +12.2012 116.70 270 ; CURACAO +VOR YMX -74.3757 +45.8881 116.70 270 ; MIRABEL +VOR BLD -114.8636 +35.9958 116.70 270 ; BOULDER CITY +VOR NEJ +44.4178 +17.6081 116.70 270 ; NEJRAN +VOR VVC -73.3866 +4.0602 116.70 270 ; VILLAVICENCIO +VOR JOH -146.5993 +60.4810 116.70 270 ; JOHNSTONE POINT +VOR NEU -68.1899 -38.9195 116.70 270 ; NEUQUEN +VOR MCB -90.2582 +31.3045 116.70 270 ; MC COMB +VOR ADM -97.1683 +34.2116 116.70 270 ; ARDMORE +VOR ARI +43.0206 +39.6717 116.70 130 ; AGRI +VOR MST +98.5386 +16.6997 116.70 270 ; MAE SOT +VOR BDR +27.6692 +37.2533 116.70 270 ; MILAS BODRUM +VOR RML +79.8897 +6.8269 116.70 270 ; COLOMBO/RATMALANA +VOR ZUH +113.4667 +22.2217 116.70 270 ; LIANSHENGWEI +VOR CSL +7.6496 +45.2197 116.75 270 ; CASELLE +VOR NEA -4.1091 +42.0276 116.75 270 ; TABANERA +VOR OAK -122.2235 +37.7259 116.80 270 ; OAKLAND +VOR BIK +150.1067 -34.1786 116.80 270 ; BINDOOK +VOR RKN +6.7639 +52.1332 116.80 270 ; REKKEN +VOR VBZ -6.8157 +38.8899 116.80 270 ; BADAJOZ +VOR KNG +52.3431 +27.8206 116.80 270 ; TOHID +VOR SEA -122.3096 +47.4354 116.80 270 ; SEATTLE +VOR LSO +97.7517 +22.9778 116.80 270 ; LASHIO +VOR RAF +43.4989 +29.6201 116.80 270 ; RAFHA +VOR RBG +39.0973 +22.7920 116.80 270 ; RABIGH +VOR FOC +119.6617 +25.9400 116.80 270 ; FUZHOU +VOR BZA -114.6028 +32.7681 116.80 270 ; BARD +VOR DKR +17.0121 +59.2072 116.80 270 ; DUNKER +VOR AEN -72.7797 -5.5925 116.80 270 ; JAEN +VOR HNK -75.3163 +42.0631 116.80 270 ; HANCOCK +VOR ROU +1.2806 +49.4656 116.80 130 ; ROUEN +VOR NV +168.3176 -46.4116 116.80 270 ; INVERCARGILL +VOR SLC -111.9819 +40.8502 116.80 270 ; SALT LAKE CITY +VOR RBS -88.1643 +40.5817 116.80 130 ; ROBERTS +VOR SAU -0.1531 +44.6769 116.80 270 ; SAUVETERRE +VOR ONM -106.8205 +34.3389 116.80 270 ; SOCORRO +VOR VMR +103.8717 +2.3883 116.80 270 ; MERSING +VOR DPR -101.7151 +45.0781 116.80 270 ; DUPREE +VOR TPL +20.7444 +44.1435 116.80 270 ; TOPOLA +VOR HUT -97.9341 +37.9969 116.80 130 ; HUTCHINSON +VOR PSK -80.7129 +37.0877 116.80 270 ; PULASKI +VOR SWB -2.6625 +52.7981 116.80 130 ; SHAWBURY +VOR UHG -76.3030 +20.7981 116.80 270 ; HOLGUIN +VOR ZLO -104.5730 +19.1506 116.80 270 ; MANZANILLO +VOR MVC -87.3528 +31.4604 116.80 130 ; MONROEVILLE +VOR CHI +76.6650 +28.3506 116.80 270 ; CHILLERKI +VOR SAT -98.4613 +29.6440 116.80 270 ; SAN ANTONIO +VOR KMI +19.1451 +54.2013 116.80 270 ; KMIECIN +VOR PAR -60.4867 -31.8083 116.80 270 ; PARANA +VOR DYR -89.3176 +36.0186 116.80 130 ; DYERSBURG +VOR ZOL +5.6402 +58.8751 116.85 270 ; SOLA +VOR WKV +28.2226 -25.8407 116.90 270 ; WATERKLOOF +VOR FNT -83.7410 +42.9661 116.90 270 ; FLINT +VOR CHE +141.6862 +42.6999 116.90 270 ; CHITOSE +VOR BLT +31.1225 +31.5289 116.90 270 ; BALTIM +VOR SGF -93.3341 +37.3560 116.90 270 ; SPRINGFIELD +VOR VEY +13.2164 +56.1483 116.90 270 ; VEDBY +VOR CBA -7.6769 +33.5211 116.90 270 ; CASABLANCA +VOR GBE +135.1062 +33.9101 116.90 270 ; GOBOH +VOR BIG +27.3651 +40.2843 116.90 270 ; BIGA +VOR FST -102.9757 +30.9521 116.90 270 ; FORT STOCKTON +VOR REC -34.9273 -8.1365 116.90 270 ; RECIFE +VOR CGO -46.6547 -23.6275 116.90 270 ; CONGONHAS +VOR LAA -102.6875 +38.1971 116.90 270 ; LAMAR +VOR CRR -56.0251 -34.8327 116.90 270 ; CARRASCO +VOR PEI -75.8259 +4.7842 116.90 270 ; PEREIRA +VOR SRA -68.3947 -34.5889 116.90 270 ; SAN RAFAEL +VOR LAS -115.1598 +36.0797 116.90 270 ; LAS VEGAS +VOR PBO +117.7369 -23.1725 116.90 270 ; PARABURDOO +VOR MSR +17.8558 +43.2611 116.90 270 ; MOSTAR +VOR BUT +24.8103 +2.8183 116.90 270 ; BUTA ZEGA +VOR GID +121.4858 +22.6728 116.90 270 ; GREEN ISLAND +VOR TLE -0.8475 +9.5736 116.90 270 ; TAMALE +VOR CBH +60.4214 +25.4453 116.90 270 ; CHAH BAHAR +VOR PLB -73.5227 +44.6850 116.90 270 ; PLATTSBURGH +VOR DAS -94.6450 +30.1897 116.90 270 ; DAISETTA +VOR ATL -84.4351 +33.6291 116.90 270 ; ATLANTA +VOR RK +150.4717 -23.3828 116.90 270 ; ROCKHAMPTON +VOR DBS -112.2093 +44.0889 116.90 270 ; DUBOIS +VOR UNK -160.6843 +63.8919 116.90 270 ; UNALAKLEET +VOR BRD -94.0260 +46.3483 116.90 270 ; BRAINERD +VOR PUD +121.7800 +31.1683 116.90 270 ; PUDONG +VOR RRC +85.3288 +23.3070 116.90 270 ; RANCHI +VOR HET +111.8200 +40.8500 116.90 270 ; HOHHOT +VOR PUT +98.3063 +8.1152 116.90 270 ; PHUKET +VOR POS -61.3920 +10.4662 116.90 270 ; PIARCO +VOR ITO -155.0110 +19.7214 116.90 270 ; HILO +VOR YIH +111.4783 +30.5633 116.90 270 ; YICHANG +VOR CMA +98.9613 +18.7661 116.90 270 ; CHIANG MAI +VOR ORF -76.2003 +36.8919 116.90 270 ; NORFOLK +VOR PDT -3.3480 +40.2529 116.95 270 ; PERALES +VOR SYR -76.2046 +43.1605 117.00 270 ; SYRACUSE +VOR ILM -77.8744 +34.3517 117.00 270 ; WILMINGTON +VOR MTG +140.7853 -37.7514 117.00 270 ; MOUNT GAMBIER +VOR SMI +19.4308 +45.0095 117.00 270 ; MITROVICA +VOR VFL +13.3080 +65.8794 117.00 270 ; VARDEFJELL +VOR CHP -71.0953 -40.0489 117.00 270 ; SAN MARTIN DE LOS ANDES +VOR FLM -84.3106 +38.6495 117.00 270 ; FALMOUTH +VOR TON +8.1004 +33.9410 117.00 270 ; TOZEUR +VOR MDF +12.3374 +48.2347 117.00 270 ; MILLDORF +VOR YKE +130.6624 +30.3797 117.00 270 ; YAKUSHIMA +VOR SFD +0.1219 +50.7606 117.00 270 ; SEAFORD +VOR LWV +18.1639 -32.9829 117.00 270 ; LANGEBAANWEG +VOR BND +107.5123 -6.8821 117.00 270 ; BANDUNG +VOR SBZ +57.5711 +36.1697 117.00 270 ; SABZEVAR +VOR SYE +139.8392 +36.0109 117.00 270 ; SEKIYADO +VOR TAR -64.7116 -21.5426 117.00 270 ; TARIJA +VOR VTI +24.2441 +60.4592 117.00 270 ; VIHTI +VOR SAM +76.8238 +28.8225 117.00 270 ; SAMPLA +VOR MEI -88.8043 +32.3785 117.00 270 ; MERIDIAN +VOR ARX -47.0605 -19.6890 117.00 270 ; ARAXA +VOR DLL -89.7636 +43.5509 117.00 270 ; DELLS +VOR CH +153.1161 -30.3192 117.00 270 ; COFFS HARBOUR +VOR OAS -51.1872 -29.9350 117.00 270 ; CANOAS +VOR OZE +11.2928 +46.4047 117.05 130 ; BOLZANO +VOR PGS +2.6239 +48.9994 117.05 270 ; CHARLES DE GAULLE +VOR ERA -4.3589 +31.9175 117.10 270 ; ERRACHIDIA +VOR NIS +97.7033 +1.0203 117.10 270 ; PULAU NIAS +VOR SLN -97.6214 +38.9251 117.10 270 ; SALINA +VOR PTB +18.7423 +47.1522 117.10 270 ; PUSTASZABOLCS +VOR VKZ -80.1544 +25.7519 117.10 270 ; VIRGINIA KEY +VOR AIR -80.8173 +40.0170 117.10 270 ; BELLAIRE +VOR MIS +15.0667 +32.3167 117.10 270 ; MISURATA +VOR GAS +43.7796 +26.2981 117.10 270 ; GASSIM +VOR ANN -131.5784 +55.0604 117.10 270 ; ANNETTE ISLAND +VOR SAW -87.3972 +46.3589 117.10 270 ; SAWYER +VOR RTA -59.6908 -29.2103 117.10 270 ; RECONQUISTA +VOR ODK -152.3398 +57.7750 117.10 270 ; KODIAK +VOR LUX +118.7283 +39.7383 117.10 270 ; LUANXIAN +VOR SAJ +121.0431 +12.3603 117.10 270 ; SAN JOSE +VOR IPA -109.4058 -27.1639 117.10 270 ; ISLA DE PASCUA +VOR VLC +35.2208 -13.2850 117.10 270 ; LICHINGA +VOR TEB +18.2033 +59.5317 117.10 270 ; TEBBY +VOR PBV +29.4568 -23.8450 117.10 270 ; PIETERSBURG +VOR VIE -63.0008 -40.8672 117.10 270 ; VIEDMA +VOR AUS -97.7033 +30.2975 117.10 270 ; AUSTIN +VOR ENO +23.4618 +68.3813 117.10 270 ; ENODAK +VOR AVE -119.9786 +35.6470 117.10 270 ; AVENAL +VOR ONP -124.0606 +44.5754 117.10 270 ; NEWPORT +VOR ENE -70.6135 +43.4257 117.10 270 ; KENNEBUNK +VOR TUM -79.4001 +9.0511 117.10 270 ; TOCUMEN +VOR CUE +135.8260 +35.0170 117.10 270 ; OTSU +VOR MOT -101.2871 +48.2603 117.10 270 ; MINOT +VOR LTV -78.6175 -0.9242 117.10 130 ; LATACUNGA +VOR SJE +125.1438 +24.8219 117.10 270 ; SHIMOJI SHIMA +VOR ZMR -5.6397 +41.5302 117.10 270 ; ZAMORA +VOR VKE +103.4233 +4.5481 117.10 270 ; KERTEH +VOR WFX +104.4917 +30.6033 117.10 270 ; WUFENGXI +VOR CSG -85.0176 +32.6153 117.10 130 ; COLUMBUS +VOR CDR -101.4837 +24.1588 117.10 270 ; CONCEPCION +VOR MTJ -107.8993 +38.5064 117.10 270 ; MONTROSE +VOR GND -61.7854 +12.0013 117.10 270 ; POINT SALINES +VOR DRU -113.1866 +46.6361 117.10 130 ; DRUMMOND +VOR SJN -75.1088 -15.2454 117.10 270 ; SAN JUAN +VOR BPL +77.3358 +23.2828 117.10 270 ; BHOPAL +VOR LUL +6.2956 +47.6883 117.10 270 ; LUXEUIL +VOR MBG +12.2610 +48.5734 117.15 270 ; MOOSBURG +VOR FLD +13.5631 +53.7627 117.15 270 ; FRIEDLAND +VOR YXU -81.1484 +43.0381 117.20 270 ; LONDON +VOR RDU -78.7833 +35.8725 117.20 270 ; RALEIGH-DURHAM +VOR CVV -122.7244 +48.2447 117.20 130 ; PENN COVE +VOR MZV +27.5408 -29.5003 117.20 270 ; MAZENOD +VOR BRL +30.8867 +50.3283 117.20 130 ; BORYSPIL +VOR CCC -72.7989 +40.9296 117.20 130 ; CALVERTON +VOR MLG -69.5786 -35.4861 117.20 270 ; MALARGUE +VOR BEL -6.2300 +54.6611 117.20 270 ; BELFAST +VOR ZAO +113.6150 +22.2453 117.20 270 ; JIUZHOU +VOR SHA +121.3317 +31.2000 117.20 270 ; SHANGHAI +VOR SKA +77.0082 +27.8484 117.20 270 ; SAKRAS +VOR DNW -110.3355 +43.8283 117.20 130 ; DUNOIR +VOR BRM +103.2553 +15.2411 117.20 270 ; BURI RAM +VOR TPH -117.0335 +38.0307 117.20 130 ; TONOPAH +VOR ADM -9.3833 +30.3211 117.20 270 ; AGADIR +VOR MLU -92.0360 +32.5169 117.20 130 ; MONROE +VOR SLP -100.9318 +22.2552 117.20 270 ; POTOSI +VOR BPN +116.9403 -1.2457 117.20 270 ; BALIKPAPAN +VOR LVG +147.5522 -37.1411 117.20 270 ; MOUNT LIVINGSTONE +VOR NWN +119.8031 -23.4208 117.20 270 ; NEWMAN +VOR VLV -70.8459 +45.9250 117.20 270 ; BEAUCE (ST GEORGES) +VOR DDM +23.2172 +37.4778 117.20 270 ; DIDIMON +VOR MFE -98.2408 +26.1739 117.20 270 ; MC ALLEN +VOR ELB -117.7311 +33.6760 117.20 130 ; EL TORO +VOR TTE +131.0162 +34.1907 117.20 270 ; TOYOTA +VOR ODN -7.5736 +9.5300 117.20 270 ; ODIENNE +VOR YPE -117.5119 +56.2069 117.20 270 ; PEACE RIVER +VOR DEC -88.8564 +39.7375 117.20 270 ; DECATUR +VOR DHA +50.1401 +26.2606 117.20 270 ; DHAHRAN +VOR CDC +16.3703 +38.7556 117.30 270 ; CARAFFA +VOR VIH +101.0939 +4.5736 117.30 270 ; IPOH +VOR BUD +19.2494 +47.4504 117.30 270 ; BUDAPEST +VOR HLZ +10.7952 +52.3634 117.30 270 ; HEHLINGEN +VOR MQD +151.1394 -33.1083 117.30 270 ; MOUNT MCQUOID +VOR CZI -106.4357 +43.9997 117.30 270 ; CRAZY WOMAN +VOR MPK +18.5254 +4.3761 117.30 270 ; BANGUI M POKO +VOR LRP -76.2913 +40.1200 117.30 130 ; LANCASTER +VOR VRB -80.4896 +27.6784 117.30 270 ; VERO BEACH +VOR SMA -53.7125 -29.7102 117.30 270 ; SANTA MARIA +VOR GRA -67.7456 -53.7750 117.30 270 ; RIO GRANDE +VOR TTN -5.3244 +35.5950 117.30 270 ; TETOUAN +VOR LVS -105.1356 +35.6576 117.30 270 ; LAS VEGAS +VOR DET +0.5972 +51.3039 117.30 270 ; DETLING +VOR SPN +100.6433 +14.9533 117.30 270 ; SA PRAN NAK +VOR KA +116.7739 -20.7150 117.30 270 ; KARRATHA +VOR BKZ +29.1428 +41.1269 117.30 270 ; BEYKOZ +VOR RLP +5.2492 +47.9063 117.30 270 ; ROLAMPONT +VOR YQM -64.5707 +46.1890 117.30 270 ; MONCTON +VOR CDC -113.0682 +37.7873 117.30 270 ; CEDAR CITY +VOR CVG -84.7034 +39.0160 117.30 130 ; CINCINNATI +VOR YYR -60.2946 +53.3198 117.30 270 ; GOOSE +VOR BEL -48.4787 -1.3843 117.30 270 ; BELEM +VOR SNS -121.6031 +36.6638 117.30 270 ; SALINAS +VOR DRG +95.0211 +27.4871 117.30 270 ; DIBRUGARH +VOR GEP -93.3732 +45.1457 117.30 270 ; GOPHER +VOR YUX -81.2394 +68.7783 117.30 270 ; HALL BEACH +VOR EOS -94.4357 +36.8424 117.30 270 ; NEOSHO +VOR NRE +140.3740 +35.7619 117.30 270 ; NARITA +VOR CNR -3.7358 +40.6460 117.30 270 ; COLMENAR +VOR FYM +30.3931 +29.3975 117.30 270 ; FAYOUM +VOR STM +6.7171 +0.3784 117.30 270 ; SAO TOME +VOR ROS -60.7812 -32.9050 117.30 270 ; ROSARIO +VOR KBE +130.8421 +31.6439 117.30 270 ; KOKUBU +VOR GDL -103.3118 +20.5234 117.30 270 ; GUADALAJARA +VOR TGE -85.6693 +32.4849 117.30 130 ; TUSKEGEE +VOR MTG +5.0869 +43.3864 117.30 270 ; MARTIGUES +VOR CRO -69.6924 +11.4141 117.30 270 ; CORO +VOR GIR -74.8705 +4.1946 117.30 270 ; GIRARDOT +VOR AKJ +47.4076 +24.0682 117.30 270 ; AL KHARJ +VOR QQZ +73.2240 +22.3309 117.30 270 ; VADODARA +VOR BAV +109.9950 +40.5600 117.30 270 ; BAOTOU +VOR PSX -96.3062 +28.7644 117.30 270 ; PALACIOS +VOR SUM -1.2867 +59.8789 117.35 270 ; SUMBURGH +VOR YSO -79.1717 +44.2386 117.35 270 ; SIMCOE +VOR EVD +16.6817 +68.4573 117.35 270 ; EVENES +VOR TGA +10.8788 +62.4616 117.40 270 ; TOLGA +VOR YYN -107.6908 +50.2969 117.40 270 ; SWIFT CURRENT +VOR TNO +11.4392 +55.7741 117.40 270 ; TRANO +VOR KIS +53.9619 +26.5258 117.40 270 ; KISH ISLAND +VOR STL -90.4824 +38.8607 117.40 270 ; ST LOUIS +VOR ATA +23.3718 +69.9776 117.40 270 ; ALTA +VOR LBF -100.7472 +41.0486 117.40 130 ; NORTH PLATTE +VOR UCA -78.8158 +22.0151 117.40 270 ; CIEGO DE AVILA +VOR MLD -112.4512 +42.1999 117.40 270 ; MALAD CITY +VOR VMK +102.2506 +2.2564 117.40 270 ; MALACCA +VOR FQG +119.3833 +25.7400 117.40 270 ; FUQING +VOR PUT -71.8441 +41.9555 117.40 270 ; PUTNAM +VOR UBG -122.9782 +45.3532 117.40 270 ; NEWBERG +VOR NIK +4.1839 +51.1650 117.40 270 ; NICKY +VOR EIC -93.8099 +32.7714 117.40 270 ; BELCHER +VOR VBA +17.1467 +45.7478 117.40 270 ; BARNA +VOR NKS +99.9465 +8.5417 117.40 270 ; NAKHON SI THAMMARAT +VOR LRD -99.4177 +27.4787 117.40 270 ; LAREDO +VOR HVQ -81.7699 +38.3497 117.40 270 ; CHARLESTON +VOR BLH -114.7612 +33.5961 117.40 270 ; BLYTHE +VOR CON -8.8178 +53.9131 117.40 270 ; CONNAUGHT +VOR YFB -68.4733 +63.7417 117.40 270 ; FROBAY +VOR BNA +20.2536 +32.1244 117.40 270 ; BENINA +VOR BAR -71.1910 -41.1443 117.40 270 ; SAN CARLOS DE BARILOCHE +VOR BLM +7.4994 +47.6328 117.45 270 ; BALE MULHOUSE +VOR BCN -3.2631 +51.7256 117.45 270 ; BRECON +VOR ZAB +18.0524 +49.9309 117.45 270 ; ZABREH +VOR BMN +8.7821 +53.0440 117.45 270 ; BREMEN +VOR MEM -89.9832 +35.0151 117.50 270 ; MEMPHIS +VOR JMB +103.6450 -1.6360 117.50 270 ; JAMBI +VOR BTV -73.1826 +44.3971 117.50 130 ; BURLINGTON +VOR BPK -0.1067 +51.7497 117.50 270 ; BROOKMANS PARK +VOR TZC +133.9535 +34.3264 117.50 270 ; TAKAMATSU +VOR YDR -102.5405 +50.3631 117.50 270 ; BROADVIEW +VOR DFN +41.7195 +23.2827 117.50 270 ; DAFINAH +VOR MA +139.4858 -20.6647 117.50 270 ; MOUNT ISA +VOR LBG +120.1071 +13.8541 117.50 270 ; LUBANG +VOR TB +10.9529 -2.8823 117.50 270 ; TCHIBANGA +VOR BNS -70.2188 +8.6144 117.50 270 ; BARINAS +VOR MYC +125.3012 +24.7860 117.50 270 ; MIYAKO JIMA +VOR OJD -1.9504 +34.7731 117.50 270 ; OUJDA +VOR NN +32.4380 +0.0530 117.50 270 ; ENTEBBE +VOR CSI -99.2145 +29.9223 117.50 270 ; CENTER POINT +VOR CMA -62.8505 +6.1997 117.50 270 ; CANAIMA +VOR CAT -89.0477 +13.4415 117.50 270 ; EL SALVADOR +VOR TRN -4.7839 +55.3133 117.50 270 ; TURNBERRY +VOR CRV -67.3716 -45.7733 117.50 270 ; COMODORO RIVADAVIA +VOR MCO +149.7183 -37.5961 117.50 270 ; MALLACOOTA +VOR TAM -97.8631 +22.2897 117.50 270 ; TAMPICO +VOR BLO +23.8122 +42.6667 117.50 270 ; BAILOVO +VOR ROD -84.0431 +40.2878 117.50 270 ; ROSEWOOD +VOR SZW -84.3740 +30.5562 117.50 270 ; SEMINOLE +VOR KIR +7.3696 +49.8502 117.50 270 ; KIRN +VOR HAR +12.6936 +57.8250 117.50 130 ; HARRY +VOR SUR +59.4748 +22.5331 117.50 270 ; SUR +VOR FJC -75.4547 +40.7267 117.50 130 ; ALLENTOWN +VOR DSM -93.6486 +41.4376 117.50 270 ; DES MOINES +VOR LET -69.9397 -4.1950 117.50 270 ; LETICIA +VOR FLW -119.8656 +35.0931 117.50 130 ; FELLOWS +VOR DUR -56.4961 -33.3563 117.50 270 ; DURAZNO +VOR VTN +102.5456 +18.0067 117.50 270 ; VIENTIANE +VOR BDO +14.3649 +67.2666 117.55 270 ; BODO +VOR CLS -0.9863 +39.7072 117.55 270 ; CALLES +VOR HUL +4.6417 +50.7494 117.55 270 ; HULDENBERG +VOR ENA -151.1952 +60.6147 117.60 270 ; KENAI +VOR CTL +3.5777 +49.1377 117.60 270 ; CHATILLON SUR MARNE +VOR ZCL -102.6949 +22.8849 117.60 270 ; ZACATECAS +VOR MES +25.9056 +38.2517 117.60 270 ; MESTA +VOR HIC -85.7162 +43.5749 117.60 130 ; WHITE CLOUD +VOR LUN +73.7842 +28.5703 117.60 270 ; MABOR +VOR WLG +148.1283 -30.0286 117.60 270 ; WALGETT +VOR TDT -79.4173 +41.7130 117.60 130 ; TIDIOUTE +VOR ELO +6.7806 +33.5106 117.60 270 ; EL OUED +VOR CDS -100.2890 +34.3691 117.60 130 ; CHILDRESS +VOR CRE -78.7245 +33.8138 117.60 130 ; GRAND STRAND +VOR PGA -111.4475 +36.9311 117.60 130 ; PAGE +VOR CWS +145.2136 -38.5078 117.60 270 ; COWES +VOR OSW -95.2036 +37.1575 117.60 130 ; OSWEGO +VOR LJG +119.5467 +26.2200 117.60 270 ; LIANJIANG +VOR DSD -121.3035 +44.2528 117.60 270 ; DESCHUTES +VOR GGT +91.5857 +26.1019 117.60 270 ; GUWAHATI +VOR HUB -95.2790 +29.6502 117.60 270 ; HOBBY +VOR HON -98.3111 +44.4401 117.60 130 ; HURON +VOR BOR +15.5192 +60.4215 117.60 270 ; BORLANGE +VOR MBE +137.9198 +36.1560 117.60 270 ; MATSUMOTO +VOR BRV +25.5647 +45.5675 117.60 270 ; BRASOV +VOR SIA +50.5905 +25.9218 117.60 270 ; SHAIKH ISA +VOR RIV +18.3645 -33.7996 117.60 270 ; ROBBEN ISLAND +VOR SMU +100.0622 +9.5472 117.60 270 ; SAMUI +VOR HCH -84.9785 +35.7810 117.60 130 ; HINCH MOUNTAIN +VOR PXT -76.4002 +38.2878 117.60 130 ; PATUXENT +VOR IGN -73.8223 +41.6655 117.60 130 ; KINGSTON +VOR LDS -55.0917 -34.8583 117.60 270 ; CAPT CORBETA C A CURBELO +VOR LAR -105.7209 +41.3379 117.60 130 ; LARAMIE +VOR YEG -113.8669 +53.1856 117.60 270 ; EDMONTON +VOR TAS -105.9063 +36.6088 117.60 130 ; TAOS +VOR MQP -97.9974 +32.7262 117.70 270 ; MILLSAP +VOR PBL -68.0778 +10.4841 117.70 270 ; PUERTO CABELLO +VOR GIZ +42.5778 +16.9078 117.70 270 ; JAZAN +VOR TIR -6.8756 +56.4933 117.70 270 ; TIREE +VOR HCT -100.9236 +40.4541 117.70 270 ; HAYES CENTER +VOR YVV -81.1054 +44.7448 117.70 270 ; WIARTON +VOR YBC -68.2222 +49.1340 117.70 270 ; BAIE-COMEAU +VOR YAA +29.3713 +40.5652 117.70 270 ; YALOVA +VOR MID -89.6551 +20.9397 117.70 270 ; MERIDA +VOR COL -103.5789 +19.2751 117.70 270 ; COLIMA +VOR SJW +114.7017 +38.2800 117.70 270 ; ZHENGDING +VOR HLN -111.9535 +46.6068 117.70 270 ; HELENA +VOR SUW +22.8968 +54.0683 117.70 270 ; SUWALKI +VOR IXE +140.9757 +37.1489 117.70 270 ; IWAKI +VOR KTN +37.2631 +34.2123 117.70 270 ; KARIATAIN +VOR OAL -117.7704 +38.0033 117.70 270 ; COALDALE +VOR BOR -66.7421 -14.9424 117.70 270 ; SAN BORJA +VOR ULQ -76.2233 +4.0916 117.70 270 ; TULUA +VOR URA -80.6155 -5.2087 117.70 270 ; PIURA +VOR SNT -59.4356 -34.2194 117.70 270 ; SAN ANTONIO DE ARECO +VOR DPK -73.3037 +40.7918 117.70 130 ; DEER PARK +VOR TOU +1.3097 +43.6808 117.70 270 ; TOULOUSE +VOR NLG +113.5633 +22.5317 117.70 270 ; NANLANG +VOR HQM -124.1493 +46.9470 117.70 270 ; HOQUIAM +VOR MBA -11.6681 +26.7367 117.70 270 ; SMARA +VOR DWA +41.8489 +9.6378 117.70 270 ; DIRE DAWA +VOR BKD +11.5462 +53.0345 117.70 270 ; BRUNKENDORF +VOR BHZ -44.0037 -19.8357 117.70 270 ; BELO HORIZONTE +VOR TFE +131.7288 +33.4897 117.70 270 ; MUSASHI +VOR RAV +28.1545 -26.2454 117.70 270 ; RAND +VOR SJU -67.8128 -49.3108 117.70 270 ; SAN JULIAN +VOR GKE +124.1857 +24.3410 117.70 270 ; ISHIGAKI +VOR BKK +100.5962 +13.8936 117.70 270 ; BANGKOK +VOR SIG +9.6301 +60.0151 117.70 270 ; SIGDAL +VOR ZAW +12.6472 +32.8133 117.70 270 ; ZAWIA +VOR BKW -81.1235 +37.7803 117.70 270 ; BECKLEY +VOR LDP -61.0276 +4.6928 117.70 270 ; LA DIVINA PASTORA +VOR LNY -156.9689 +20.7645 117.70 270 ; LANAI +VOR ROI +25.8204 +66.5625 117.70 270 ; ROVANI +VOR VIH -91.7068 +38.1541 117.70 130 ; VICHY +VOR AST +31.0324 +27.0311 117.70 270 ; ASYUT +VOR SVR +18.1178 +46.8281 117.70 270 ; SAGVAR +VOR GGT -75.8267 +42.7890 117.80 130 ; GEORGETOWN +VOR SEY -71.5761 +41.1674 117.80 130 ; SANDY POINT +VOR QPR -4.1847 +47.9572 117.80 270 ; QUIMPER +VOR MLP -115.6460 +47.4569 117.80 270 ; MULLAN PASS +VOR PAM +5.0922 +52.3348 117.80 270 ; PAMPUS +VOR MZB -117.2254 +32.7822 117.80 270 ; MISSION BAY +VOR FWA -85.1880 +40.9791 117.80 270 ; FORT WAYNE +VOR VJF -5.9719 +36.2472 117.80 270 ; VEJER +VOR LEC +138.4289 -30.5964 117.80 270 ; LEIGH CREEK +VOR BOY -108.2997 +43.4632 117.80 270 ; BOYSEN RESERVOIR +VOR TCL -87.5369 +33.2589 117.80 130 ; TUSCALOOSA +VOR ESQ -71.1053 -42.8828 117.80 270 ; ESQUEL +VOR KSD +13.3316 +59.4424 117.80 270 ; KARLSTAD +VOR TYI -77.7038 +35.9767 117.80 130 ; TAR RIVER +VOR RJK +14.5670 +45.2241 117.80 270 ; RIJEKA +VOR VPA -65.9839 +9.2289 117.80 270 ; VALLE DE LA PASCUA +VOR ACH -105.0399 +35.1117 117.80 270 ; ANTON CHICO +VOR LAV +152.9247 -28.0897 117.80 270 ; LARAVALE +VOR SYZ +52.5888 +29.5402 117.80 270 ; SHIRAZ SHAHID DASTGHAIB +VOR AJF +40.0763 +29.7921 117.80 270 ; AL JOUF +VOR DKB +10.2383 +49.1428 117.80 270 ; DINKELSBUHL +VOR ENM -164.4877 +62.7834 117.80 270 ; EMMONAK +VOR KRN +20.4446 +51.9462 117.80 270 ; KARNICE +VOR TOP -95.5491 +39.1371 117.80 130 ; TOPEKA +VOR KTL +46.7133 +61.2417 117.80 270 ; KOTLAS +VOR POM +14.3833 +40.9283 117.85 270 ; POMIGLIANO +VOR BVO -96.0183 +36.8342 117.90 130 ; BARTLESVILLE +VOR ESF -92.3219 +31.4475 117.90 270 ; ESLER +VOR PMV +30.4001 -29.6477 117.90 270 ; PIETERMARITZBURG +VOR ALI +78.2286 +27.8179 117.90 270 ; ALIGARH +VOR PKE -114.6821 +34.1020 117.90 270 ; PARKER +VOR MEN +27.1586 +38.2953 117.90 130 ; MENDERES +VOR VQQ -81.8909 +30.2130 117.90 270 ; CECIL +VOR ELN -120.4585 +47.0244 117.90 270 ; ELLENSBURG +VOR MOV -101.4740 +26.9539 117.90 270 ; MONCLOVA +VOR WJS +148.6675 -35.2606 117.90 270 ; WEE JASPER +VOR MAY +0.1161 +51.0172 117.90 270 ; MAYFIELD +VOR MBI -56.6200 -64.2350 117.90 270 ; MARAMBIO +VOR PHA +32.5067 +34.7117 117.90 270 ; PAFOS +VOR EMI -76.9786 +39.4950 117.90 270 ; WESTMINSTER +VOR DEN -104.6607 +39.8125 117.90 270 ; DENVER +VOR MAU -71.0401 +10.6909 117.90 270 ; MENE MAUROA +VOR STO -57.9843 -31.4347 117.90 270 ; SALTO +VOR BHS +104.2033 +30.5083 117.90 270 ; BAIHESI +VOR SVL +28.9141 +61.9527 117.90 270 ; LINNA +VOR MLT -68.5155 +45.5867 117.90 270 ; MILLINOCKET +VOR GWV +29.4103 -22.2456 117.90 270 ; GREEFSWALD +VOR ODI -91.4676 +43.9124 117.90 270 ; NODINE +VOR MTP +135.3397 -34.1350 117.90 270 ; MOUNT HOPE +VOR OMA +16.8081 +44.9572 117.90 270 ; OMARSKA +VOR LRE +144.2822 -23.4244 117.90 270 ; LONGREACH +VOR TEZ +92.7995 +26.7108 117.90 270 ; TEZPUR +VOR JIL +5.8771 +36.7766 117.90 270 ; JIJEL +VOR SSN -1.8304 +43.3112 117.90 130 ; SAN SEBASTIAN +VOR FMG -119.6561 +39.5313 117.90 270 ; MUSTANG +VOR YFS -121.2986 +61.7739 117.90 270 ; FORT SIMPSON +VOR BWG -86.4434 +36.9287 117.90 270 ; BOWLING GREEN +END_NAVBEACON diff --git a/Src/Celbody/SPICE/Config/Earth/Atmosphere.cfg b/Src/Celbody/SPICE/Config/Earth/Atmosphere.cfg new file mode 100644 index 000000000..83bd21e93 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Atmosphere.cfg @@ -0,0 +1 @@ +MODULE_ATM = EarthAtmJ71G diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Al_Anbar.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Al_Anbar.cfg new file mode 100644 index 000000000..7e9201e99 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Al_Anbar.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Al Anbar +Location = +43.0 +33.5 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 132.20 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Alcantara.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Alcantara.cfg new file mode 100644 index 000000000..a95e372d7 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Alcantara.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Alcantara +Location = -44.38 -2.28 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 127.85 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Baikonur.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Baikonur.cfg new file mode 100644 index 000000000..5696678c1 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Baikonur.cfg @@ -0,0 +1,591 @@ +BASE-V2.0 +Name = Baikonur +Location = 63.330002 45.919998 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + +BEGIN_NAVBEACON +END_NAVBEACON + +BEGIN_OBJECTLIST + +RUNWAY + END1 -15614.291 0 -4181.363 + END2 -13793.709 0 -8296.637 + WIDTH 84 + ILS1 124.0 + ILS2 124.1 + NRWSEG 9 + RWSEG1 1 0.018 0.25 0.5 1 0.875 + RWSEG2 1 0.088 0 0.25 0.5 0 + RWSEG3 1 0.018 0.25 0.5 0.75 0.625 + RWSEG4 1 0.088 0 0.25 0.5 0 + RWSEG5 5 0.576 0 0.25 1 0.5 + RWSEG6 1 0.088 0 0.25 0.5 0 + RWSEG7 1 0.02 0.25 0.5 0.625 0.75 + RWSEG8 1 0.088 0 0.25 0 0.5 + RWSEG9 1 0.02 0.25 0.5 0.875 1 + RWTEX Runway2 +END +RUNWAYLIGHTS + END1 -15614.291 -19.51 -4181.363 + END2 -13793.709 -19.33 -8296.637 + WIDTH 84 + COUNT1 40 +END +LPAD2 + POS -2 0.94 903 + SCALE 1 + ROT 0.000 + TEX Lpad02 + NAV 127.1 +END +LPAD2 + POS -8441 -30.45 18150 + SCALE 1 + ROT 135.000 + TEX Lpad02 +END +LPAD2 + POS -17095 -79.79 -27151 + SCALE 1 + ROT 60.000 + TEX Lpad02 +END +LPAD2 + POS -16772 -76.89 -26668 + SCALE 1 + ROT 60.000 + TEX Lpad02 +END +LPAD2 + POS -4960 -1.22 -1916 + SCALE 1 + ROT 57.000 + TEX Lpad02 +END +LPAD2 + POS -4694 -0.91 -1502 + SCALE 1 + ROT 59.000 + TEX Lpad02 +END +LPAD2 + POS -14858 -20.75 -7508 + SCALE 1 + ROT 117.000 + TEX Lpad02 +END +BLOCK + POS -15165 0 -7278 + SCALE 10 6 8 + ROT 240 + TEX3 Roof02 2 2 +END +BLOCK + POS -15642 0 -6267 + SCALE 29 9 33 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -15714 0 -6149 + SCALE 29 9 16 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -8025 0 18578 + SCALE 33 9 16 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -17078 0 -27065 + SCALE 71 9 13 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -17155 0 -26929 + SCALE 14 9 13 + ROT 330 + TEX3 Wall01 2 2 +END +BLOCK + POS -17025 0 -26653 + SCALE 14 9 13 + ROT 330 + TEX3 Wall01 2 2 +END +BLOCK + POS -16823 0 -26448 + SCALE 14 9 13 + ROT 330 + TEX3 Wall01 2 2 +END +BLOCK + POS -16771 0 -26570 + SCALE 71 9 13 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16470 0 -26894 + SCALE 14 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16755 0 -27303 + SCALE 14 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16716 0 -26918 + SCALE 36 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16604 0 -26994 + SCALE 36 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16620 0 -27021 + SCALE 36 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16645 0 -27067 + SCALE 36 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16659 0 -27090 + SCALE 36 9 23 + ROT 330 + TEX3 Roof02 2 2 +END +BLOCK + POS -16620 0 -27428 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16802 0 -27409 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16770 0 -27470 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16719 0 -27440 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16736 0 -27412 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16753 0 -27381 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16637 0 -27398 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16578 0 -27363 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -16565 0 -27396 + SCALE 14 9 41 + ROT 301 + TEX3 Roof02 2 2 +END +BLOCK + POS -8432 0 18575 + SCALE 56 12 21 + ROT 225 + TEX3 Wall01 2 2 +END +BLOCK + POS -8485 0 18487 + SCALE 21 12 21 + ROT 225 + TEX3 Wall01 2 2 +END +BLOCK + POS -8455 0 18226 + SCALE 21 12 21 + ROT 225 + TEX3 Wall01 2 2 +END +HANGAR3 + POS -4903 0 -2144 + SCALE 12 12 37 + ROT 142 + TEX3 Wall01 2 1 +END +HANGAR3 + POS -4924 0 -2072 + SCALE 12 12 37 + ROT 142 + TEX3 Wall01 2 1 +END +HANGAR3 + POS -4716 0 -2156 + SCALE 12 12 37 + ROT 231 + TEX3 Wall01 2 1 +END +BLOCK + POS -5614 0 -1516 + SCALE 26 12 25 + ROT 321 + TEX3 Wall01 2 2 +END +BLOCK + POS -5682 0 -1618 + SCALE 26 12 25 + ROT 321 + TEX3 Wall01 2 2 +END +BLOCK + POS -5473 0 -1272 + SCALE 26 12 25 + ROT 321 + TEX3 Wall01 2 2 +END +BLOCK + POS -4246 0 -2044 + SCALE 19 24 63 + ROT 321 + TEX3 Wall01 2 2 +END +HANGAR2 + POS -4965 0 -2253 + SCALE 22 18 88 + ROT 265 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5087 0 -2239 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5120 0 -2233 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5153 0 -2229 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5190 0 -2225 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5228 0 -2219 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5239 0 -2308 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5201 0 -2312 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5163 0 -2316 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5127 0 -2320 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -5094 0 -2323 + SCALE 12 18 37 + ROT 174 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR3 + POS -4868 0 -2172 + SCALE 12 12 37 + ROT 142 + TEX3 Wall01 2 1 +END +BLOCK + POS -8123 0 18601 + SCALE 33 24 22 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -14863 0 -7974 + SCALE 75 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -14919 0 -8009 + SCALE 75 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -14867 0 -8100 + SCALE 75 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -14948 0 -7865 + SCALE 19 12 40 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -14924 0 -7657 + SCALE 19 12 40 + ROT 210 + TEX3 Roof02 2 2 +END +BLOCK + POS -15173 0 -7145 + SCALE 10 6 20 + ROT 240 + TEX3 Roof02 2 2 +END +BLOCK + POS -15649 0 -7995 + SCALE 19 12 40 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -15323 0 -6499 + SCALE 131 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -16017 0 -5524 + SCALE 58 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -16072 0 -5540 + SCALE 54 12 32 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -72 0 825 + SCALE 42 12 30 + ROT 0 + TEX3 Wall01 2 2 +END +BLOCK + POS 71 0 812 + SCALE 56 12 30 + ROT 345 + TEX3 Wall01 2 2 +END +BLOCK + POS -204 0 756 + SCALE 15 12 47 + ROT 0 + TEX3 Wall01 2 2 +END +BLOCK + POS -204 0 682 + SCALE 15 12 47 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS -272 0 756 + SCALE 15 12 47 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS -300 0 679 + SCALE 15 12 47 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS -204 0 621 + SCALE 15 12 47 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS -8243 0 18096 + SCALE 56 12 30 + ROT 315 + TEX3 Wall01 2 2 +END +BLOCK + POS -8280 0 18260 + SCALE 56 12 21 + ROT 225 + TEX3 Wall01 2 2 +END +BLOCK + POS -8107 0 18340 + SCALE 56 24 21 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -15322 0 -6499 + SCALE 29 24 52 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -15620 0 -6422 + SCALE 29 9 20 + ROT 300 + TEX3 Roof02 2 2 +END +BLOCK + POS -7936 0 18598 + SCALE 80 24 28 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -7989 0 18653 + SCALE 80 24 28 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -7954 0 18507 + SCALE 33 9 16 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8163 0 18692 + SCALE 33 24 17 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8127 0 18727 + SCALE 33 24 17 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8093 0 18763 + SCALE 33 24 17 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8058 0 18798 + SCALE 33 24 17 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8386 0 18542 + SCALE 80 24 28 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -8316 0 18776 + SCALE 80 24 28 + ROT 225 + TEX3 Roof02 2 2 +END +BLOCK + POS -4366 0 -1973 + SCALE 21 12 63 + ROT 234 + TEX3 Wall01 2 2 +END +BLOCK + POS -8113 0 18814 + SCALE 133 36 52 + ROT 225 + TEX3 Wall01 2 2 +END +HANGAR2 + POS -8274 0 18129 + SCALE 34 40 78 + ROT 315 + TEX3 Roof02 2 1 + ROOFH 6 +END +HANGAR2 + POS -8257 0 18707 + SCALE 34 40 78 + ROT 315 + TEX3 Roof02 2 1 + ROOFH 6 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Barent_Sea.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Barent_Sea.cfg new file mode 100644 index 000000000..fe2b5d229 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Barent_Sea.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Barent Sea +Location = +35.30 +69.30 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 129.30 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Canaveral.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Canaveral.cfg new file mode 100644 index 000000000..0b3f83968 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Canaveral.cfg @@ -0,0 +1,1042 @@ +BASE-V2.0 +Name = Cape Canaveral +Location = -80.65165 +28.58438 +Size = 1000 +MapObjectsToSphere = TRUE + +BEGIN_NAVBEACON +VOR KSCX -80.53835 28.43352 112.70 500 +END_NAVBEACON + +BEGIN_OBJECTLIST +BLOCK + POS 6985 0 -2252.5 + SCALE 30 20 15 + TEX1 Fcd07 1 1 + TEX2 Fcd07 1 1 + TEX3 Roof01 2 1 +END +BLOCK + POS 6985 0 -2222.5 + SCALE 30 20 15 + TEX1 Fcd07 1 1 + TEX2 Fcd07 1 1 + TEX3 Roof01 2 1 +END +BLOCK + POS 6957 0 -2411 + SCALE 80 15 60 + ROT 45 + TEX1 Fcd11 7.5 1.5 + TEX2 Fcd11 7.5 1.5 + TEX3 Roof01 4 3 +END +BLOCK + POS 6963 15 -2405 + SCALE 40 5 40 + ROT 45 + TEX1 Fcd06 3.05 0.333 + TEX2 Fcd06 3.05 0.333 + TEX3 Roof01 2.5 0.333 +END +BLOCK + POS 7460 0 -1994 + SCALE 40 15 30 + ROT 30 + TEX1 Fcd04 2 1 + TEX2 Fcd04 2 1 + TEX3 Roof01 2 3 +END +BLOCK + POS 7470 0 -2011.5 + SCALE 80 7 40 + ROT 30 + TEX1 Fcd05 3 0.5 + TEX2 Fcd05 3 0.5 + TEX3 Roof01 4 2 +END +BLOCK + POS 7085 0 -2395 + SCALE 20 7 30 + ROT 45 + TEX1 Roof01 3 0.5 + TEX2 Roof01 4 0.5 + TEX3 Roof01 3 4 +END +BLOCK + POS 7077 0 -2422 + SCALE 30 20 40 + ROT 45 + TEX1 Fcd04 3.1 2 + TEX2 Fcd04 4.1 2 + TEX3 Roof01 3 4 +END +HANGAR + POS 7180 0 -2180 + SCALE 24 8 30 +END +HANGAR + POS 7220 0 -2180 + SCALE 24 8 30 +END +HANGAR2 + POS 6870 0 -2260 + SCALE 30 10 30 + ROT 45 + TEX1 Wall01 6 1 + TEX2 Wall01 6 1 + TEX3 Roof02 2 1 +END +HANGAR2 + POS 6845 0 -2285 + SCALE 30 10 30 + ROT 45 + TEX1 Wall01 6 1 + TEX2 Wall01 6 1 + TEX3 Roof02 2 1 +END +HANGAR2 + POS 6820 0 -2310 + SCALE 30 10 30 + ROT 45 + TEX1 Wall01 6 1 + TEX2 Wall01 6 1 + TEX3 Roof02 2 1 +END +LPAD2A + POS 6851.61 0 -2367.58 + ROT 45 + TEX Lpad02a + NAV 128.10 +END +LPAD2A + POS 6908.18 0 -2311.01 + ROT 45 + TEX Lpad02a + NAV 128.20 +END +LPAD2A + POS 7070 0 -2234 + SCALE 0.75 + TEX Lpad02a + NAV 132.05 +END +LPAD2A + POS 7130 0 -2234 + SCALE 0.75 + TEX Lpad02a + NAV 132.15 +END +LPAD2A + POS 7190 0 -2234 + SCALE 0.75 + TEX Lpad02a + NAV 132.25 +END +LPAD2A + POS 7250 0 -2234 + SCALE 0.75 + TEX Lpad02a + NAV 132.35 +END +LPAD2A + POS 7100 0 -2326 + SCALE 0.75 + TEX Lpad02a + NAV 132.45 +END +LPAD2A + POS 7160 0 -2326 + SCALE 0.75 + TEX Lpad02a + NAV 132.55 +END +LPAD2A + POS 7220 0 -2326 + SCALE 0.75 + TEX Lpad02a + NAV 132.65 +END +LPAD2A + POS 7280 0 -2326 + SCALE 0.75 + TEX Lpad02a + NAV 132.75 +END +MESH + FILE Tarmac2 + POS 7070 0 -2280 + TEX taxiway2 + WRAPTOSURFACE + UNDERSHADOWS + PRELOAD +END +MESH + FILE vab + OWNMATERIAL + POS 0 0 0 + ROT 10 + SHADOW + PRELOAD +END +BLOCK + POS -170 0 -267 + SCALE 55 32 42 + ROT 30 + TEX1 Fcd07 1.5 1.5 + TEX2 Fcd07 1.5 1.5 + TEX3 Roof01 4 4 +END +BLOCK + POS -133 0 -333 + SCALE 55 32 42 + ROT 30 + TEX1 Fcd07 1.5 1.5 + TEX2 Fcd07 1.5 1.5 + TEX3 Roof01 4 4 +END +BLOCK + POS 843 0 -56 + SCALE 150 20 137 + ROT 1 +END +BLOCK + POS 852.2 0 19 + SCALE 129 10 13 + ROT 1 +END +BLOCK + POS -213 0 -335 + SCALE 27 12.5 37 + ROT 30 +END +BLOCK + POS -165 0 -307.5 + SCALE 90 6 34 + ROT 30 +END +BLOCK + POS -210 0 -250 + SCALE 12 10 20 + ROT 300 +END +BLOCK + POS -127 0 -197 + SCALE 15 12 26 + ROT 322 +END +BLOCK + POS -288 0 -330 + SCALE 102 10 30 + ROT 102 +END +BLOCK + POS -723 0 -220 + SCALE 57 33 27 + ROT 105 +END +BLOCK + POS -780 0 10 + SCALE 22 25 22 + ROT 105 +END +HANGAR2 + POS -800 0 -120 + SCALE 12 10 46 + ROOFH 2.5 + ROT 10 +END +HANGAR3 + POS -640 0 -110 + SCALE 20 10 50 + ROT 330 +END +BLOCK + POS -667 0 2 + SCALE 40 17 50 + ROT 330 +END +BLOCK + POS -843 0 -173 + SCALE 15 7 9 + ROT 8 +END +BLOCK + POS -795 0 -198 + SCALE 15 7 9 + ROT 98 +END +BLOCK + POS -977 0 -175 + SCALE 22 13 12 + ROT 95 +END +BLOCK + POS -960 0 -173 + SCALE 22 7 7 + ROT 95 +END +BLOCK + POS -416 0 -181 + SCALE 43 30 60 + ROT 103 +END +BLOCK + POS -433 0 -124 + SCALE 50 11 50 + ROT 103 +END +BLOCK + POS -469 0 -132 + SCALE 50 9 10 + ROT 103 +END +BLOCK + POS -460 0 -85 + SCALE 22 13 42 + ROT 103 +END +BLOCK + POS -446 0 -64 + SCALE 22 18 22 + ROT 103 +END +HANGAR2 + POS 345 0 30 + SCALE 22 10 35 + ROT 103 + ROOFH 3 +END +HANGAR2 + POS 355 0 10 + SCALE 18 10 30 + ROT 103 + ROOFH 3 +END +BLOCK + POS 405 0 -70 + SCALE 65 12 35 + ROT 103 +END +BLOCK + POS 383 0 -75 + SCALE 63 8 10 + ROT 103 +END +BLOCK + POS 424 0 -53 + SCALE 40 8 12 + ROT 103 +END +BLOCK + POS 379 0 -90 + SCALE 11 4 6 + ROT 103 +END +BLOCK + POS 360 0 -40 + SCALE 13 4.5 6 + ROT 103 +END +BLOCK + POS 375 0 -180 + SCALE 20 10 15 + ROT 13 +END +BLOCK + POS 380 0 -200 + SCALE 20 10 15 + ROT 13 +END +HANGAR2 + POS 502 0 -128 + SCALE 17 8 35 + ROT 13 + ROOFH 1.5 +END +BLOCK + POS 492 0 -128 + SCALE 12 4 5 + ROT 103 +END +BLOCK + POS 440 0 -160 + SCALE 18 6 18 + ROT 103 +END +BLOCK + POS 455 0 -156.5 + SCALE 18 5.5 5 + ROT 103 +END +BLOCK + POS 471 0 -153 + SCALE 18 7 12 + ROT 103 +END +BLOCK + POS 476 0 -176 + SCALE 18 7 12 + ROT 103 +END +BLOCK + POS 458 0 -180 + SCALE 18 5.5 5 + ROT 103 +END +BLOCK + POS 440 0 -184 + SCALE 18 6 15 + ROT 103 +END +HANGAR2 + POS 420 0 -188 + SCALE 5 5 16 + ROT 13 + ROOFH 1 +END +BLOCK + POS 407 0 -190 + SCALE 12 4 4 + ROT 103 +END +HANGAR2 + POS 418 0 -164 + SCALE 7 6.5 16 + ROT 13 + ROOFH 2 +END +HANGAR2 + POS 410.5 0 -165.8 + SCALE 7 6.5 16 + ROT 13 + ROOFH 2 +END +HANGAR + POS 679 0 95 + SCALE 22 20 50 + ROT 112 +END +BLOCK + POS 626 0 -154 + SCALE 35 15 20 + ROT 90 +END +BLOCK + POS 623 0 -180 + SCALE 25 11 17 + ROT 90 +END +HANGAR2 + POS 668.5 0 -155 + SCALE 18 5.5 28 + ROT 0 + ROOFH 1 +END +BLOCK + POS 668 0 -111 + SCALE 19 6.5 31 + ROT 0 +END +BLOCK + POS 709 0 -62 + SCALE 9 6.5 37 + ROT 0 +END +BLOCK + POS 323 0 215 + SCALE 40 7 61 + ROT 103 +END +BLOCK + POS 295 0 255.5 + SCALE 31 6 21 + ROT 103 +END +BLOCK + POS 332 0 264 + SCALE 31 6 33 + ROT 103 +END +BLOCK + POS 308 0 301 + SCALE 26 5.5 50 + ROT 103 +END +BLOCK + POS 315 0 337 + SCALE 27 6 38 + ROT 103 +END +BLOCK + POS 319 0 359.5 + SCALE 16 6 20 + ROT 103 +END +BLOCK + POS 358 0 392 + SCALE 55 6 18 + ROT 106 +END +BLOCK + POS 473 0 262 + SCALE 36 6.5 55 + ROT 105 +END +BLOCK + POS 310 0 485 + SCALE 30 5 22 + ROT 80 +END +BLOCK + POS 320 0 490 + SCALE 27 9 12 + ROT 80 +END +HANGAR2 + POS 310 0 533 + SCALE 20 6 32 + ROT 146 + ROOFH 2 +END +BLOCK + POS 298 0 555 + SCALE 13 14 28 + ROT 140 +END +BLOCK + POS 311.4 0 571 + SCALE 13 4 14 + ROT 140 +END +BLOCK + POS 304 0 612 + SCALE 7 4 20 + ROT 21 +END +BLOCK + POS 295 0 635 + SCALE 7 4 12 + ROT 21 +END +BLOCK + POS 809 0 92 + SCALE 22 8 28 + ROT 90 +END +BLOCK + POS 842 0 82 + SCALE 14 8 20 + ROT 90 +END +BLOCK + POS 883 0 95 + SCALE 40 7 11 + ROT 90 +END +BLOCK + POS 858 0 109 + SCALE 12 7 40 + ROT 90 +END +BLOCK + POS 1072 0 -127 + SCALE 40 8 76 + ROT 0 +END +BLOCK + POS 1104 0 -141 + SCALE 36 12 25 + ROT 0 +END +BLOCK + POS 1104 0 -118.5 + SCALE 36 17 20 + ROT 0 +END +BLOCK + POS 1124 0 -110 + SCALE 30 11 36 + ROT 0 +END +BLOCK + POS 1105 0 -68 + SCALE 8 7 8 + ROT 0 +END +BLOCK + POS 1068 0 12 + SCALE 20 7 20 + ROT 0 +END +HANGAR2 + POS 1130 0 1 + SCALE 14 7 20 + ROOFH 1.5 + ROT 0 +END +HANGAR2 + POS 1127 0 19 + SCALE 7 4.5 9 + ROOFH 0.5 + ROT 0 +END +BLOCK + POS 1101 0 13 + SCALE 4 3.5 13 + ROT 0 +END +BLOCK + POS 1110 0 15 + SCALE 2.5 3 11 + ROT 0 +END +BLOCK + POS 1192.5 0 30 + SCALE 12 6 12 + ROT 0 +END +BLOCK + POS 1238 0 32.5 + SCALE 14 3.5 8 + ROT 0 +END +BLOCK + POS 1194 0 -121 + SCALE 4 4 11 + ROT 0 +END +HANGAR2 + POS 1192 0 -130 + SCALE 5 3.5 8 + ROOFH 0.5 + ROT 0 +END +BLOCK + POS 1289 0 -5 + SCALE 17 7.5 36 + ROT 0 +END +BLOCK + POS 1344 0 29 + SCALE 60 6.5 7 + ROT 0 +END +BLOCK + POS 1360 0 1 + SCALE 13 5.5 14 + ROT 0 +END +BLOCK + POS 1363 0 -25 + SCALE 18 5.5 12 + ROT 0 +END +BLOCK + POS 1384 0 17 + SCALE 8 5 16 + ROT 0 +END +BLOCK + POS 1239 0 -237 + SCALE 16 10 10 + ROT 0 +END +BLOCK + POS 1299 0 -238 + SCALE 13 7.5 5.5 + ROT 0 +END +BLOCK + POS 1332 0 -223 + SCALE 28 9.5 22 + ROT 0 +END + + +BLOCK + POS -306 0 -498 + SCALE 17 7 35 + ROT 301 +END +BLOCK + POS -312 0 -362 + SCALE 13 6 19 + ROT 102 +END +HANGAR2 + POS -60 0 -250 + SCALE 14 6 30 + ROOFH 2 + ROT 33 +END +BLOCK + POS 99 0 -209 + SCALE 40 16 78 + ROT 15 + TEX1 Fcd15 2 1.7 + TEX2 Fcd15 4 1.7 +END +BLOCK + POS 22 0 -195 + SCALE 23 3 14 + ROT 105 +END +TANK + POS -42 0 -150 + SCALE 12 15 12 +END +TANK + POS -14 0 -145 + SCALE 12 15 12 +END +BLOCK + POS 267 0 -170 + SCALE 70 29 60 + ROT 104 + TEX1 Fcd14 3 3 + TEX2 Fcd14 3 3 +END +BLOCK + POS 192 0 -121 + SCALE 40 10 38 + ROT 104 +END +BLOCK + POS 210 0 -140 + SCALE 15 9 20 + ROT 104 +END +BLOCK + POS -119 0 421 + SCALE 29 9 29 + ROT 55 +END +HANGAR3 + POS 42 0 576 + SCALE 17 9 65 + ROT 191 +END +BLOCK + POS -3485 0 -3935 + SCALE 25 7 20 + ROT 30 + TEX1 Fcd11 4.5 1 + TEX2 Fcd11 4.5 1 + TEX3 Roof01 4 3 +END +BLOCK + POS -3520 0 -3765 + SCALE 10 28.5 10 + ROT 30 +END +BLOCK + POS -1650 0 -2660 + SCALE 35 12 30 + ROT 30 + TEX1 Fcd04 2 1 + TEX2 Fcd04 2 1 + TEX3 Roof01 2 3 +END +BLOCK + POS -1723 0 -2641 + SCALE 30 8 18 + TEX1 Fcd05 2 0.5 + TEX2 Fcd05 1 0.5 + ROT 30 +END +BLOCK + POS -1438 0 -2450 + SCALE 40 12 54 + ROT 80 + TEX1 Fcd04 2 1 + TEX2 Fcd04 2 1 + TEX3 Roof01 2 3 +END +BLOCK + POS -1487 0 -2457 + SCALE 10 7 20 + ROT 169 + TEX3 Roof01 2 2 +END +HANGAR2 + POS -1516 0 -2470 + SCALE 25 10 55 + ROOFH 3 + ROT 169 + TEX2 Fcd07 4 1 + TEX3 Roof01 4 2 +END +HANGAR2 + POS -1513 0 -2440 + SCALE 40 12 40 + ROOFH 5 + ROT 169 + TEX2 Fcd07 3 1 + TEX3 Roof01 3 3 +END +HANGAR3 + POS -1490 0 -2363 + SCALE 75 20 65 + ROT 258 + TEX3 Roof02 6 4 +END +BLOCK + POS -1401 0 -2354 + SCALE 17 6 9 + ROT 80 +END +BLOCK + POS -882 0 658.5 + SCALE 12 6.8 16 + ROT 13 +END +BLOCK + POS -951 0 642.5 + SCALE 14 6.8 16 + ROT 13 +END +BLOCK + POS -1049 0 619 + SCALE 14 6.8 16 + ROT 13 +END +BLOCK + POS -701 0 696 + SCALE 12 7.8 20 + ROT 13 +END +BLOCK + POS -580 0 769 + SCALE 14 5.8 22 + ROT 103 +END +TANK + POS -3206 0 3094 + SCALE 15 11 15 + NSTEP 16 +END +TANK + POS -3174 0 3088 + SCALE 15 11 15 + NSTEP 16 +END +BLOCK + POS -3210 0 3052 + SCALE 41 9 18 +END +HANGAR2 + POS -3277 0 3103 + SCALE 22 7 25 + ROT 65 + ROOFH 1 +END +BLOCK + POS -3294 0 3076 + SCALE 19 4.2 37 + ROT 65 +END +BLOCK + POS -3718 0 2964.5 + SCALE 4 2.5 3 +END +BLOCK + POS -4252 0 3193 + SCALE 92 5 32 + ROT -0.1 + TEX1 Fcd06 3.05 0.333 +END +HANGAR2 + POS -4295 0 3075 + SCALE 17 4.5 32 + ROOFH 0.8 + ROT 31 +END +BLOCK + POS -4315 0 3040 + SCALE 5 3.5 12 +END +BLOCK + POS -4321 0 3051.5 + SCALE 6 3 9 +END +HANGAR2 + POS -4477 0 2804 + SCALE 20 8 14 + ROOFH 3.5 + ROT 148 +END +BLOCK + POS -4485 0 2839 + SCALE 8 3.5 6 + ROT 148 +END +BLOCK + POS -4469.5 0 2821 + SCALE 14 4.5 4 + ROT 148 +END +HANGAR2 + POS -4560 0 3245 + SCALE 20 8 14 + ROOFH 3.5 + ROT 59 +END +BLOCK + POS -4595 0 3234 + SCALE 8 3.5 6 + ROT 59 +END +BLOCK + POS -4578 0 3251 + SCALE 14 4.5 4 + ROT 59 +END +BLOCK + POS -4687 0 2816 + SCALE 24 4.5 16 + ROT 300 + TEX3 Roof01 3 3 +END +BLOCK + POS -4738 0 2806 + SCALE 44 4 16 + ROT 210 + TEX3 Roof01 4 2 +END +BLOCK + POS -4750 0 2826.5 + SCALE 44 4 16 + ROT 210 + TEX3 Roof01 4 2 +END +BLOCK + POS -2015 0 4654.5 + SCALE 92 6 32 + ROT 325 +END +HANGAR2 + POS -2230.5 0 4707 + SCALE 17 4.5 34 + ROOFH 0.8 + ROT 0 +END +BLOCK + POS -2239.5 0 4675 + SCALE 6 3 9 +END +BLOCK + POS -2244.5 0 4684.5 + SCALE 5 2.5 8 +END +HANGAR2 + POS -2376 0 4439 + SCALE 20 8 14 + ROOFH 3.5 + ROT 148 +END +BLOCK + POS -2388 0 4474 + SCALE 6 3.5 6 + ROT 148 +END +HANGAR2 + POS -2462 0 4880 + SCALE 20 8 14 + ROOFH 3.5 + ROT 59 +END +BLOCK + POS -2495.5 0 4867.5 + SCALE 6 3.5 6 + ROT 59 +END +MESH ; Pad 39B + FILE KLC39B + POS -4759.2 0 3001 + ROT 0 + SHADOW + OWNMATERIAL + PRELOAD +END +MESH ; Pad 39B ground textures + FILE KLC39Bground + POS -4759.2 0 3001 + ROT 0 + UNDERSHADOWS + OWNMATERIAL + PRELOAD +END +MESH ; Pad 39A + FILE KLC39B + POS -2659 0 4635 + ROT 0 + SHADOW + OWNMATERIAL + PRELOAD +END +MESH ; Pad 39A ground textures + FILE KLC39Bground + POS -2659 0 4635 + ROT 0 + UNDERSHADOWS + OWNMATERIAL + PRELOAD +END +RUNWAY + END1 -1150 0 -2880 + END2 -5600 0 -5435 + WIDTH 100 + ILS1 134.2 + ILS2 134.2 + RWTEX Runway2 + NRWSEG 0 +; NRWSEG 15 +; RWSEG1 1 0.025 0.5 0.75 1 0.852 +; RWSEG2 1 0.025 0.5 0.75 1 0.852 +; RWSEG3 1 0.007 0.5 0.75 0.852 0.7305 +; RWSEG4 1 0.06 0.5 0.75 0.5 0.03125 +; RWSEG5 1 0.007 0.5 0.75 0.7305 0.6133 +; RWSEG6 1 0.1 0.5 0.75 0.5 0.03125 +; RWSEG7 1 0.007 0.5 0.75 0.6133 0.5 +; RWSEG8 6 0.538 0.5 0.75 0.5 0.03125 +; RWSEG9 1 0.007 0.5 0.75 0.5 0.6133 +; RWSEG10 1 0.1 0.5 0.75 0.03125 0.5 +; RWSEG11 1 0.007 0.5 0.75 0.6133 0.7305 +; RWSEG12 1 0.06 0.5 0.75 0.03125 0.5 +; RWSEG13 1 0.007 0.5 0.75 0.7305 0.852 +; RWSEG14 1 0.025 0.5 0.75 0.852 1 +; RWSEG15 1 0.025 0.5 0.75 0.852 1 +END +RUNWAYLIGHTS + END1 -1150 -5 -2880 + END2 -5600 -5 -5435 + WIDTH 100 + PAPI 20.0 3.0 -2000 + VASI 1.5 152 671 +END +RUNWAY + END1 13930 0 9525 + END2 12048 0 7118 + WIDTH 100 + ILS1 132.6 + ILS2 132.6 + RWTEX Runway2 + NRWSEG 0 +; NRWSEG 9 +; RWSEG1 1 0.018 0.25 0.5 1 0.875 +; RWSEG2 1 0.088 0 0.25 0.5 0 +; RWSEG3 1 0.018 0.25 0.5 0.75 0.625 +; RWSEG4 1 0.088 0 0.25 0.5 0 +; RWSEG5 5 0.576 0 0.25 1 0.5 +; RWSEG6 1 0.088 0 0.25 0.5 0 +; RWSEG7 1 0.02 0.25 0.5 0.625 0.75 +; RWSEG8 1 0.088 0 0.25 0 0.5 +; RWSEG9 1 0.02 0.25 0.5 0.875 1 +END +RUNWAYLIGHTS + END1 13930 -5 9525 + END2 12048 -5 7118 + WIDTH 100 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/China_Lake.cfg b/Src/Celbody/SPICE/Config/Earth/Base/China_Lake.cfg new file mode 100644 index 000000000..55ce3b668 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/China_Lake.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = China Lake +Location = -117.69 +35.69 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.25 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Doberai.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Doberai.cfg new file mode 100644 index 000000000..442a4ccac --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Doberai.cfg @@ -0,0 +1,72 @@ +BASE-V2.0 +Name = Doberai +Location = +132.5 -1.0 +Size = 500 + +; === List of visuals === +BEGIN_OBJECTLIST +TANK + POS 0 0 0 + SCALE 25 100 25 + TEX1 Fcd04 8 5 + TEX2 Roof01 4 4 +END +BLOCK + POS 0 100 5 + SCALE 20 5 20 + TEX1 Fcd05 1 0.5 + TEX2 Fcd05 1 0.5 + TEX3 Roof01 1 1 +END +BLOCK + POS 20 0 -40 + SCALE 40 20 80 + TEX1 Fcd07 2 1 + TEX2 Fcd07 4 1 + TEX3 Roof01 2 4 +END +TRAIN2 + END1 -10 0 -30 + END2 -10 0 -2000 + HEIGHT 12 + MAXSPEED 50 + SLOWZONE 200 + TEX Hangrail 100 +END +LPAD1 + POS 200 0 0 + ROT 90 + TEX Lpad01 + NAV 128.40 +END +LPAD1 + POS 100 0 -173.21 + ROT 30 + TEX Lpad01 + NAV 128.60 +END +LPAD1 + POS -100 0 -173.21 + ROT 330 + TEX Lpad01 + NAV 128.80 +END +LPAD1 + POS -200 0 0 + ROT 270 + TEX Lpad01 + NAV 129.00 +END +LPAD1 + POS -100 0 173.21 + ROT 210 + TEX Lpad01 + NAV 129.20 +END +LPAD1 + POS 100 0 173.21 + ROT 150 + TEX Lpad01 + NAV 129.40 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Edwards.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Edwards.cfg new file mode 100644 index 000000000..eda125728 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Edwards.cfg @@ -0,0 +1,661 @@ +BASE-V2.0 +Name = Edwards +Location = -117.889999 34.919998 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + +BEGIN_NAVBEACON +END_NAVBEACON + +BEGIN_OBJECTLIST + +;RUNWAY +; END1 -15 0 1749 +; END2 1933 0 -1355 +; WIDTH 61 +; NRWSEG 9 +; RWSEG1 1 0.018 0.25 0.5 1 0.875 +; RWSEG2 1 0.088 0 0.25 0.5 0 +; RWSEG3 1 0.018 0.25 0.5 0.75 0.625 +; RWSEG4 1 0.088 0 0.25 0.5 0 +; RWSEG5 5 0.576 0 0.25 1 0.5 +; RWSEG6 1 0.088 0 0.25 0.5 0 +; RWSEG7 1 0.02 0.25 0.5 0.625 0.75 +; RWSEG8 1 0.088 0 0.25 0 0.5 +; RWSEG9 1 0.02 0.25 0.5 0.875 1 +; RWTEX Runway2 +;END +RUNWAY + END1 400 0 2524 + END2 2843 0 -1367 +; WIDTH 91 + ILS1 110.1 +; ILS2 116.5 +; NRWSEG 9 +; RWSEG1 1 0.018 0.25 0.5 1 0.875 +; RWSEG2 1 0.088 0 0.25 0.5 0 +; RWSEG3 1 0.018 0.25 0.5 0.75 0.625 +; RWSEG4 1 0.088 0 0.25 0.5 0 +; RWSEG5 5 0.576 0 0.25 1 0.5 +; RWSEG6 1 0.088 0 0.25 0.5 0 +; RWSEG7 1 0.02 0.25 0.5 0.625 0.75 +; RWSEG8 1 0.088 0 0.25 0 0.5 +; RWSEG9 1 0.02 0.25 0.5 0.875 1 +; RWTEX Runway2 +END +RUNWAYLIGHTS + END1 400 0 2524 + END2 2843 0 -1367 + WIDTH 91 + COUNT1 40 +END +;RUNWAY +; END1 2293 0 3113 +; END2 2811 0 770 +; WIDTH 64 +; NRWSEG 9 +; RWSEG1 1 0.018 0.25 0.5 1 0.875 +; RWSEG2 1 0.088 0 0.25 0.5 0 +; RWSEG3 1 0.018 0.25 0.5 0.75 0.625 +; RWSEG4 1 0.088 0 0.25 0.5 0 +; RWSEG5 5 0.576 0 0.25 1 0.5 +; RWSEG6 1 0.088 0 0.25 0.5 0 +; RWSEG7 1 0.02 0.25 0.5 0.625 0.75 +; RWSEG8 1 0.088 0 0.25 0 0.5 +; RWSEG9 1 0.02 0.25 0.5 0.875 1 +; RWTEX Runway2 +;END +LPAD2 + POS 1074 0 -794 + SCALE 1 + ROT 119.000 + TEX Lpad02 + NAV 108.1 +END +LPAD2 + POS 2306 0 1374 + SCALE 1 + ROT 101.000 + TEX Lpad02 + NAV 108.2 +END +BLOCK + POS -770 0 51 + SCALE 24 4 74 + ROT 11 + TEX3 Wall01 2 2 +END +BLOCK + POS -831 0 111 + SCALE 24 4 74 + ROT 280 + TEX3 Wall01 2 2 +END +BLOCK + POS -945 0 301 + SCALE 30 4 38 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -853 0 149 + SCALE 21 4 36 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -1063 0 126 + SCALE 21 4 36 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -1518 0 157 + SCALE 24 4 74 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -1337 0 253 + SCALE 24 4 74 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -1392 0 148 + SCALE 21 4 83 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -1471 0 99 + SCALE 19 4 53 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -1650 0 99 + SCALE 55 4 35 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -1597 0 8 + SCALE 19 4 53 + ROT 303 + TEX3 Wall01 2 2 +END +BLOCK + POS -1571 0 -42 + SCALE 19 4 53 + ROT 269 + TEX3 Wall01 2 2 +END +BLOCK + POS -1826 0 -56 + SCALE 46 4 70 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -3021 0 145 + SCALE 19 4 53 + ROT 269 + TEX3 Wall01 2 2 +END +BLOCK + POS -3072 0 92 + SCALE 19 4 75 + ROT 269 + TEX3 Wall01 2 2 +END +BLOCK + POS -3187 0 -40 + SCALE 54 4 21 + ROT 269 + TEX3 Wall01 2 2 +END +BLOCK + POS -3640 0 160 + SCALE 54 4 21 + ROT 299 + TEX3 Wall01 2 2 +END +BLOCK + POS -4057 0 572 + SCALE 54 4 37 + ROT 252 + TEX3 Wall01 2 2 +END +BLOCK + POS -302 0 181 + SCALE 33 4 101 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -270 0 -45 + SCALE 51 4 101 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS 2101 0 1068 + SCALE 86 6 25 + ROT 331 + TEX3 Wall01 2 2 +END +BLOCK + POS 2171 0 951 + SCALE 79 6 37 + ROT 345 + TEX3 Wall01 2 2 +END +BLOCK + POS 2191 0 1271 + SCALE 68 12 37 + ROT 10 + TEX3 Wall01 2 2 +END +HANGAR3 + POS 2000 0 1784 + SCALE 42 12 57 + ROT 283 + + + TEX3 Wall01 2 1 +END +HANGAR3 + POS 1974 0 1914 + SCALE 42 12 57 + ROT 283 + + + TEX3 Wall01 2 1 +END +BLOCK + POS -179 0 261 + SCALE 144 12 137 + ROT 34 + TEX3 Wall01 2 2 +END +BLOCK + POS 2142 0 1567 + SCALE 56 15 62 + ROT 10 + TEX3 Wall01 2 2 +END +BLOCK + POS -1555 0 -200 + SCALE 38 9 130 + ROT 278 + TEX3 Wall01 2 2 +END +BLOCK + POS -1545 0 -236 + SCALE 27 4 102 + ROT 278 + TEX3 Wall01 2 2 +END +BLOCK + POS -2147 0 -4 + SCALE 39 9 82 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -2176 0 -112 + SCALE 51 9 108 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -2269 0 52 + SCALE 51 9 108 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -2465 0 45 + SCALE 51 9 108 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -2351 0 -128 + SCALE 51 9 108 + ROT 33 + TEX3 Wall01 2 2 +END +BLOCK + POS -1850 0 -244 + SCALE 38 9 114 + ROT 278 + TEX3 Wall01 2 2 +END +BLOCK + POS -2015 0 -347 + SCALE 54 9 85 + ROT 233 + TEX3 Wall01 2 2 +END +BLOCK + POS -3599 0 459 + SCALE 51 9 82 + ROT 343 + TEX3 Wall01 2 2 +END +BLOCK + POS -3369 0 260 + SCALE 59 9 79 + ROT 29 + TEX3 Wall01 2 2 +END +BLOCK + POS -3168 0 104 + SCALE 77 9 51 + ROT 34 + TEX3 Wall01 2 2 +END +BLOCK + POS -1082 0 -474 + SCALE 73 9 189 + ROT 270 + TEX3 Wall01 2 2 +END +BLOCK + POS -1051 0 -569 + SCALE 73 9 122 + ROT 270 + TEX3 Wall01 2 2 +END +BLOCK + POS -1375 0 -879 + SCALE 47 9 142 + ROT 228 + TEX3 Wall01 2 2 +END +BLOCK + POS -1174 0 -819 + SCALE 78 9 68 + ROT 274 + TEX3 Wall01 2 2 +END +BLOCK + POS -1248 0 -478 + SCALE 72 9 29 + ROT 270 + TEX3 Wall01 2 2 +END +BLOCK + POS -3878 0 570 + SCALE 79 12 53 + ROT 343 + TEX3 Wall01 2 2 +END +BLOCK + POS 2092 0 1971 + SCALE 68 12 46 + ROT 10 + TEX3 Wall01 2 2 +END +BLOCK + POS 2075 0 1314 + SCALE 123 20 198 + ROT 10 + TEX3 Wall01 2 2 +END +BLOCK + POS -4132 0 595 + SCALE 62 32 59 + ROT 343 + TEX3 Wall01 2 2 +END +BLOCK + POS -3451 0 385 + SCALE 54 14 63 + ROT 343 + TEX3 Wall01 2 2 +END +BLOCK + POS -3673 0 483 + SCALE 62 12 82 + ROT 343 + TEX3 Wall01 2 2 +END +BLOCK + POS -2346 0 -708 + SCALE 24 12 62 + ROT 2 + TEX3 Wall01 2 2 +END +BLOCK + POS 1460 0 -2170 + SCALE 63 6 25 + ROT 298 + TEX3 Wall01 2 2 +END +BLOCK + POS 1347 0 -2149 + SCALE 23 6 15 + ROT 307 + TEX3 Wall01 2 2 +END +BLOCK + POS 1365 0 -2136 + SCALE 23 6 15 + ROT 307 + TEX3 Wall01 2 2 +END +BLOCK + POS 691 0 -758 + SCALE 153 6 25 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 656 0 -706 + SCALE 153 6 25 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 111 0 -127 + SCALE 28 6 77 + ROT 300 + TEX3 Wall01 2 2 +END +BLOCK + POS -583 0 311 + SCALE 39 6 92 + ROT 300 + TEX3 Wall01 2 2 +END +BLOCK + POS -685 0 87 + SCALE 39 6 92 + ROT 300 + TEX3 Wall01 2 2 +END +BLOCK + POS -555 0 131 + SCALE 24 4 74 + ROT 359 + TEX3 Wall01 2 2 +END +BLOCK + POS 1305 0 -1898 + SCALE 113 12 104 + ROT 350 + TEX3 Wall01 2 2 +END +BLOCK + POS 1506 0 -1945 + SCALE 73 12 28 + ROT 350 + TEX3 Wall01 2 2 +END +BLOCK + POS 1557 0 -2002 + SCALE 28 12 24 + ROT 356 + TEX3 Wall01 2 2 +END +BLOCK + POS 1496 0 -2071 + SCALE 54 6 15 + ROT 356 + TEX3 Wall01 2 2 +END +BLOCK + POS 633 0 -953 + SCALE 90 12 33 + ROT 29 + TEX3 Wall01 2 2 +END +BLOCK + POS 701 0 -1012 + SCALE 24 12 52 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 754 0 -1120 + SCALE 29 12 69 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 723 0 -806 + SCALE 153 6 25 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 514 0 -827 + SCALE 26 12 18 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 563 0 -796 + SCALE 26 12 18 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 75 0 -69 + SCALE 84 12 69 + ROT 32 + TEX3 Wall01 2 2 +END +BLOCK + POS 130 0 -201 + SCALE 40 6 69 + ROT 32 + TEX3 Wall01 2 2 +END +HANGAR2 + POS -917 0 253 + SCALE 53 12 40 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR2 + POS -1090 0 171 + SCALE 53 12 40 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR2 + POS -1125 0 226 + SCALE 53 12 40 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR2 + POS -1428 0 196 + SCALE 72 12 89 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR2 + POS -1686 0 138 + SCALE 54 12 78 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR2 + POS -1627 0 52 + SCALE 54 12 78 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +BLOCK + POS -3376 0 354 + SCALE 54 9 63 + ROT 343 + TEX3 Wall01 2 2 +END +HANGAR3 + POS 581 0 -884 + SCALE 101 24 104 + ROT 303 + + + TEX3 Wall01 2 1 +END +HANGAR3 + POS 487 0 -746 + SCALE 101 24 104 + ROT 303 + + + TEX3 Wall01 2 1 +END +HANGAR3 + POS -392 0 383 + SCALE 80 24 104 + ROT 303 + + + TEX3 Wall01 2 1 +END +HANGAR2 + POS -268 0 340 + SCALE 102 24 205 + ROT 304 + + + TEX3 Roof02 2 1 + ROOFH 9 +END +HANGAR2 + POS -441 0 149 + SCALE 79 24 80 + ROT 304 + + + TEX3 Roof02 2 1 + ROOFH 9 +END +HANGAR2 + POS -627 0 380 + SCALE 102 24 101 + ROT 301 + + + TEX3 Roof02 2 1 + ROOFH 9 +END +HANGAR2 + POS -881 0 193 + SCALE 53 12 40 + ROT 303 + TEX3 Roof02 2 1 + ROOFH 5 +END +HANGAR3 + POS -1885 0 52 + SCALE 105 24 129 + ROT 303 + + + TEX3 Wall01 2 1 +END +HANGAR3 + POS -3273 0 160 + SCALE 62 24 117 + ROT 300 + + + TEX3 Wall01 2 1 +END +HANGAR3 + POS -3232 0 -128 + SCALE 47 24 72 + ROT 271 + + + TEX3 Wall01 2 1 +END +TANK + POS -302 0 691 + SCALE 12.5 40 12.5 + ROT 0 + NSTEP 12 +END +TANK + POS 2161 0 1319 + SCALE 12.5 16 12.5 + ROT 0 + NSTEP 12 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Gran_canaria.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Gran_canaria.cfg new file mode 100644 index 000000000..9bec419d5 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Gran_canaria.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Gran Canaria +Location = -15.20 +27.6 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 131.10 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Habana.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Habana.cfg new file mode 100644 index 000000000..c0474c201 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Habana.cfg @@ -0,0 +1,330 @@ +BASE-V2.0 +Name = Habana +Location = -82.40 +23.00 +Size = 1000 +MapObjectsToSphere = TRUE + +; === List of VOR beacons === +BEGIN_NAVBEACON +VOR UHA -82.5 +23.0 116.1 400 ; Havana +END_NAVBEACON + +; === List of visuals === +BEGIN_OBJECTLIST +BLOCK + POS 40 0 220 + SCALE 60 25 40 + TEX1 Fcd02 4.125 2 + TEX2 Fcd02 4.125 2 + TEX3 Roof01 3 2 +END +BLOCK + POS 80 0 290 + SCALE 60 25 40 + TEX1 Fcd02 4.125 2 + TEX2 Fcd02 4.125 2 + TEX3 Roof01 3 2 +END +BLOCK + POS -985 0 115 + SCALE 100 60 40 + TEX1 Fcd05 5 3 + TEX2 Fcd05 2 3 + TEX3 Roof02 5 2 +END +BLOCK + POS -985 0 0 + SCALE 100 60 40 + TEX1 Fcd05 5 3 + TEX2 Fcd05 2 3 + TEX3 Roof02 5 2 +END +BLOCK + POS 324 0 -70 + SCALE 70 30 320 + ROT 30 + TEX1 Fcd06 4 2 + TEX2 Fcd06 16 2 + TEX3 Roof01 6 6 +END +BLOCK + POS 302 0 100 + SCALE 150 20 30 + ROT 30 + TEX1 Fcd06 10 2 + TEX2 Fcd06 3 2 + TEX3 Roof01 10 4 +END +BLOCK + POS 459 0 -173 + SCALE 150 20 30 + ROT 30 + TEX1 Fcd06 10 2 + TEX2 Fcd06 3 2 + TEX3 Roof01 10 4 +END +BLOCK + POS -70.5 0 120 + SCALE 101 18 20 + TEX1 Fcd06 5 1 + TEX2 Fcd06 5 1 + TEX3 Roof01 5 1 +END +BLOCK + POS -135 0 120 + SCALE 30 25 120 + TEX1 Fcd06 3 1 + TEX2 Fcd06 5 1 + TEX3 Roof01 1 4 +END +BLOCK + POS -760 0 -80 + SCALE 40 120 40 + TEX1 Fcd03 2.125 7 + TEX2 Fcd03 2.125 7 + TEX3 Roof01 2 2 +END +BLOCK + POS -700 0 0 + SCALE 40 120 40 + TEX1 Fcd03 2.125 7 + TEX2 Fcd03 2.125 7 + TEX3 Roof01 2 2 +END +BLOCK + POS -370 0 200 + SCALE 50 100 35 + TEX1 Fcd07 2 4 + TEX2 Fcd07 2 4 + TEX3 Roof01 2 1 +END +BLOCK + POS -250 0 300 + SCALE 40 80 120 + TEX1 Fcd08 4 2 + TEX2 Fcd08 4 2 + TEX3 Roof01 2 6 +END +BLOCK + POS -250 0 265 + SCALE 100 70 30 + TEX1 Fcd10 3 2 + TEX2 Fcd10 1 2 + TEX3 Roof01 3 1 +END +BLOCK + POS -250 0 335 + SCALE 100 70 30 + TEX1 Fcd10 3 2 + TEX2 Fcd10 1 2 + TEX3 Roof01 3 1 +END +BLOCK + POS -210 0 -950 + SCALE 25 60 90 + TEX1 Fcd11 4 6 + TEX2 Fcd11 4 6 + TEX3 Roof01 1 3 +END +BLOCK + POS -350 0 120 + SCALE 60 50 50 + TEX1 Fcd02 4 4.7 + TEX2 Fcd02 4 4.7 + TEX3 Roof01 2 2 +END +BLOCK + POS -470 0 120 + SCALE 60 70 50 + TEX1 Fcd02 4 4.7 + TEX2 Fcd02 4 4.7 + TEX3 Roof01 2 2 +END +BLOCK + POS -50 0 -200 + SCALE 30 30 80 + ROT 71 + TEX1 Fcd12 6.1 6.2 + TEX2 Fcd12 16.1 6.2 + TEX3 Roof01 2 5 +END +BLOCK + POS -50 30 -200 + SCALE 20 3 70 + ROT 71 + TEX1 Fcd06 2.05 0.1667 + TEX2 Fcd06 7.05 0.1667 + TEX3 Roof01 1.5 4 +END +BLOCK + POS -1025 0 280 + SCALE 30 30 80 + TEX1 Fcd12 6.1 6.2 + TEX2 Fcd12 16.1 6.2 + TEX3 Roof01 2 5 +END +BLOCK + POS -960 0 255 + SCALE 60 35 30 + TEX1 Fcd13 12.1 7.1 + TEX2 Fcd13 6.1 7.1 + TEX3 Roof02 2 1 +END +HANGAR2 + POS -1170 0 405 + SCALE 30 100 40 + ROOFH 10 + ROT 90 + TEX1 Wall01 3 9 + TEX2 Fcd13 8 18 + TEX3 Roof01 4 2 +END +BLOCK + POS -1125 0 405 + SCALE 50 40 30 + TEX1 Fcd11 5 4 + TEX2 Fcd11 3 4 + TEX3 Roof02 5 3 +END +BLOCK + POS -1105 0 473 + SCALE 50 30 54 + TEX1 Fcd06 4 2 + TEX2 Fcd06 4 2 + TEX3 Roof02 2 2 +END +HANGAR2 + POS -1090 0 415 + SCALE 20 50 50 + ROOFH 5 + TEX1 Wall01 1 2.5 + TEX2 Fcd12 10 10 + TEX3 Roof01 5 1 +END +HANGAR + POS 0 0 -70 + SCALE 30 15 50 + ROT 225 + TEX1 Wall01 3 2 + TEX2 Door01 4 2 + TEX3 Roof01 4 2 +END +HANGAR + POS -30 0 -100 + SCALE 30 15 50 + ROT 225 + TEX1 Wall01 3 2 + TEX2 Door01 4 2 + TEX3 Roof01 4 2 +END +HANGAR + POS 219 0 260 + SCALE 24 10 30 + ROT 30 + TEX1 Wall01 3 2 + TEX2 Door01 4 2 + TEX3 Roof01 4 2 +END +HANGAR + POS 262 0 285 + SCALE 24 10 30 + ROT 30 + TEX1 Wall01 3 2 + TEX2 Door01 4 2 + TEX3 Roof01 4 2 +END +TANK + POS 30 0 60 + SCALE 10 20 10 + TEX1 Roof01 2 1 +END +TANK + POS 60 0 60 + SCALE 10 20 10 + TEX1 Roof01 2 1 +END +TRAIN1 + END1 -1200 0 380 + END2 300 0 380 + TEX Monorail 100 +END +TRAIN2 + END1 -170 0 -1000 + END2 -170 0 1000 + HEIGHT 11 + MAXSPEED 50 + SLOWZONE 200 + TEX Hangrail 100 +END +TRAIN2 + END1 -1700 0 430 + END2 300 0 -270 + HEIGHT 20 + MAXSPEED 40 + SLOWZONE 200 + TEX Hangrail 100 +END +LPAD1 + POS 60 0 0 + SCALE 0.924 + ROT 270 + TEX Lpad01 + NAV 136.00 +END +LPAD1 + POS 60 0 120 + SCALE 0.924 + ROT 270 + TEX Lpad01 + NAV 136.10 +END +LPAD1 + POS -60 0 60 + SCALE 0.924 + ROT 90 + TEX Lpad01 + NAV 136.20 +END +LPAD1 + POS -60 0 180 + SCALE 0.924 + ROT 90 + TEX Lpad01 + NAV 136.30 +END +MESH + FILE Taxiway1 + TEX Taxiway1 + SCALE 2.217 1 2.217 + POS 1239.85 0.15 -912.5 + ROT 120 + UNDERSHADOWS +END +RUNWAY + END1 2370 0 -2820 + END2 153 0 1020 + WIDTH 50 + ILS1 110.50 + RWTEX Runway2 + NRWSEG 7 + RWSEG1 1 0.01 0.25 0.5 1 0.875 + RWSEG2 1 0.1 0 0.25 0.5 0 + RWSEG3 1 0.01 0.25 0.5 0.75 0.625 + RWSEG4 4 0.76 0 0.25 1 0.5 + RWSEG5 1 0.01 0.25 0.5 0.625 0.75 + RWSEG6 1 0.1 0 0.25 0 0.5 + RWSEG7 1 0.01 0.25 0.5 0.875 1 +END +RUNWAYLIGHTS + END1 2370 0 -2820 + END2 153 0 1020 + PAPI 4.0 1.0 150 + WIDTH 50 +END +MESH + FILE Habana_taxiway + OWNMATERIAL + POS 0 0 0 + UNDERSHADOWS +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Hammaguira.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Hammaguira.cfg new file mode 100644 index 000000000..69e2654e2 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Hammaguira.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Hammaguira +Location = -3.08 +34.0 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 129.60 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Inyokern.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Inyokern.cfg new file mode 100644 index 000000000..3ebef6f46 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Inyokern.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Inyokern +Location = -117.83 +35.66 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 132.80 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Jingyu.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Jingyu.cfg new file mode 100644 index 000000000..85596a106 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Jingyu.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Jingyu +Location = +126.5 +42.2 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 127.95 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Jiuquan.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Jiuquan.cfg new file mode 100644 index 000000000..a5908d0b9 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Jiuquan.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Jiuquan +Location = +100.30 +41.10 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 131.45 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Kagoshima.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Kagoshima.cfg new file mode 100644 index 000000000..1c0a8e0ca --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Kagoshima.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Kagoshima +Location = +131.1 +31.25 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.70 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Kapustin_Yar.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Kapustin_Yar.cfg new file mode 100644 index 000000000..d360de256 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Kapustin_Yar.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Kapustin Yar +Location = +45.8 +48.51 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.25 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Kourou.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Kourou.cfg new file mode 100644 index 000000000..4b7ec3a53 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Kourou.cfg @@ -0,0 +1,467 @@ +BASE-V2.0 +Name = Kourou +Location = -52.73 5.2 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + +BEGIN_NAVBEACON +END_NAVBEACON + +BEGIN_OBJECTLIST + +LPAD2 + POS -3588 -1.97 -4998 + SCALE 0.5 + ROT 68.000 + TEX Lpad02 + NAV 108.2 +END +LPAD2 + POS -4421 -1.92 -4203 + SCALE 0.5 + ROT 50.000 + TEX Lpad02 + NAV 108.3 +END +LPAD2 + POS -4046 -2.19 -4923 + SCALE 0.5 + ROT 89.000 + TEX Lpad02 + NAV 108.1 +END +LPAD2 + POS -11105 -18.94 -11437 + SCALE 0.5 + ROT 89.000 + TEX Lpad02 + NAV 108.4 +END +BLOCK + POS -4222 -0 -4171 + SCALE 33 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4231 0 -4178 + SCALE 33 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4239 0 -4183 + SCALE 33 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4246 0 -4189 + SCALE 33 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4147 0 -4117 + SCALE 9 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4221 0 -4411 + SCALE 9 4 5 + ROT 235 + TEX3 Wall01 2 2 +END +BLOCK + POS -4346 0 -4542 + SCALE 33 4 5 + ROT 346 + TEX3 Wall01 2 2 +END +BLOCK + POS -4338 0 -4506 + SCALE 33 4 5 + ROT 346 + TEX3 Wall01 2 2 +END +BLOCK + POS -4340 0 -4515 + SCALE 33 4 5 + ROT 346 + TEX3 Wall01 2 2 +END +BLOCK + POS -4342 0 -4524 + SCALE 33 4 5 + ROT 346 + TEX3 Wall01 2 2 +END +BLOCK + POS -4345 0 -4533 + SCALE 33 4 5 + ROT 346 + TEX3 Wall01 2 2 +END +BLOCK + POS -4599 0 -3934 + SCALE 10 6 21 + ROT 314 + TEX3 Roof02 2 2 +END +BLOCK + POS -4327 0 -4110 + SCALE 11 6 30 + ROT 314 + TEX3 Wall01 2 2 +END +BLOCK + POS -4347 0 -4118 + SCALE 28 6 11 + ROT 314 + TEX3 Wall01 2 2 +END +BLOCK + POS -4237 0 -4182 + SCALE 11 6 42 + ROT 307 + TEX3 Wall01 2 2 +END +BLOCK + POS -4252 0 -4194 + SCALE 33 4 5 + ROT 306 + TEX3 Wall01 2 2 +END +BLOCK + POS -4342 0 -4524 + SCALE 11 6 42 + ROT 347 + TEX3 Wall01 2 2 +END +BLOCK + POS -4161 0 -4971 + SCALE 11 6 27 + ROT 266 + TEX3 Wall01 2 2 +END +BLOCK + POS -3896 0 -4890 + SCALE 11 6 27 + ROT 326 + TEX3 Roof02 2 2 +END +BLOCK + POS -3469 0 -5116 + SCALE 11 6 27 + ROT 340 + TEX3 Roof02 2 2 +END +BLOCK + POS -2766 0 -5306 + SCALE 25 12 56 + ROT 180 + TEX3 Wall01 2 2 +END +BLOCK + POS -2874 0 -5257 + SCALE 25 12 78 + ROT 180 + TEX3 Wall01 2 2 +END +BLOCK + POS -2913 0 -5192 + SCALE 25 12 41 + ROT 180 + TEX3 Wall01 2 2 +END +BLOCK + POS -2849 0 -5136 + SCALE 25 12 19 + ROT 180 + TEX3 Wall01 2 2 +END +BLOCK + POS -2742 0 -5077 + SCALE 25 12 19 + ROT 155 + TEX3 Wall01 2 2 +END +BLOCK + POS -2587 0 -5170 + SCALE 32 12 15 + ROT 180 + TEX3 Wall01 2 2 +END +BLOCK + POS -2691 0 -5243 + SCALE 32 12 15 + ROT 193 + TEX3 Wall01 2 2 +END +BLOCK + POS -2681 0 -5274 + SCALE 32 12 15 + ROT 193 + TEX3 Wall01 2 2 +END +BLOCK + POS -2621 0 -5303 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2619 0 -5274 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2638 0 -5332 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2832 0 -5300 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2767 0 -5107 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2803 0 -5154 + SCALE 27 12 15 + ROT 162 + TEX3 Wall01 2 2 +END +BLOCK + POS -2674 0 -5301 + SCALE 32 12 15 + ROT 193 + TEX3 Wall01 2 2 +END +BLOCK + POS -2590 0 -5588 + SCALE 20 12 78 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2732 0 -5520 + SCALE 20 12 78 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2650 0 -5577 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2657 0 -5527 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2709 0 -5556 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2778 0 -5428 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2638 0 -5682 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2649 0 -5717 + SCALE 37 12 17 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2969 0 -5764 + SCALE 41 12 17 + ROT 142 + TEX3 Wall01 2 2 +END +BLOCK + POS -2885 0 -5690 + SCALE 19 12 17 + ROT 142 + TEX3 Wall01 2 2 +END +BLOCK + POS -3291 0 -5417 + SCALE 73 12 28 + ROT 151 + TEX3 Wall01 2 2 +END +BLOCK + POS -3379 0 -5612 + SCALE 73 12 18 + ROT 152 + TEX3 Wall01 2 2 +END +BLOCK + POS -3316 0 -5479 + SCALE 73 12 18 + ROT 152 + TEX3 Wall01 2 2 +END +BLOCK + POS -3348 0 -5538 + SCALE 73 12 18 + ROT 152 + TEX3 Wall01 2 2 +END +BLOCK + POS -3338 0 -5586 + SCALE 73 12 18 + ROT 64 + TEX3 Wall01 2 2 +END +BLOCK + POS -2500 0 -5723 + SCALE 20 12 32 + ROT 154 + TEX3 Wall01 2 2 +END +BLOCK + POS -2177 0 -5861 + SCALE 20 12 32 + ROT 122 + TEX3 Wall01 2 2 +END +BLOCK + POS -4374 0 -4216 + SCALE 20 20 20 + ROT 266 + TEX1 Roof01 2 2 + TEX2 Roof01 2 2 + TEX3 Roof01 2 2 +END +BLOCK + POS -4397 0 -4175 + SCALE 9 20 23 + ROT 318 + TEX3 Wall01 2 2 +END +BLOCK + POS -4440 0 -4155 + SCALE 20 20 20 + ROT 276 + TEX1 Roof01 2 2 + TEX2 Roof01 2 2 + TEX3 Roof01 2 2 +END +BLOCK + POS -4010 0 -4923 + SCALE 9 20 23 + ROT 270 + TEX3 Wall01 2 2 +END +BLOCK + POS -3555 0 -5011 + SCALE 9 20 23 + ROT 251 + TEX3 Wall01 2 2 +END +BLOCK + POS -3616 0 -5061 + SCALE 12 20 23 + ROT 251 + TEX3 Wall01 2 2 +END +BLOCK + POS -2555 0 -5273 + SCALE 35 12 38 + ROT 212 + TEX3 Wall01 2 2 +END +BLOCK + POS -2292 0 -4792 + SCALE 106 40 38 + ROT 234 + TEX3 Wall01 2 2 +END +TANK + POS -3966 0 -4941 + SCALE 2.5 25 2.5 + ROT 0 + NSTEP 12 +END +BLOCK + POS -4406 0 -4185 + SCALE 4 30 4 + ROT 318 + TEX3 Wall01 2 2 +END +BLOCK + POS -1945 0 -4214 + SCALE 31 40 63 + ROT 234 + TEX3 Wall01 2 2 +END +BLOCK + POS -1925 0 -4191 + SCALE 31 40 26 + ROT 234 + TEX3 Wall01 2 2 +END +BLOCK + POS -2675 0 -5440 + SCALE 35 40 38 + ROT 247 + TEX3 Roof02 2 2 +END +BLOCK + POS -2607 0 -5454 + SCALE 35 20 93 + ROT 247 + TEX3 Wall01 2 2 +END +HANGAR + POS -11015 0 -11436 + SCALE 34 40 29 + ROT 270 + TEX3 Roof01 2 1 +END +HANGAR2 + POS -10768 0 -11431 + SCALE 41 18 56 + ROT 271 + TEX3 Roof01 2 1 + ROOFH 3 +END +HANGAR2 + POS -10564 0 -11424 + SCALE 87 12 92 + ROT 271 + TEX3 Roof01 2 1 + ROOFH 3 +END +TANK + POS -4421 0 -3992 + SCALE 7.5 18 7.5 + ROT 0 + NSTEP 12 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Matagorda.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Matagorda.cfg new file mode 100644 index 000000000..1e8a85401 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Matagorda.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Matagorda +Location = -96.5 +28.5 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 132.10 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Mojave.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Mojave.cfg new file mode 100644 index 000000000..3b355001e --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Mojave.cfg @@ -0,0 +1,375 @@ +BASE-V2.0 +Name = Mojave Spaceport +Location = -118.15081 +35.05636 +Size = 200 +MapObjectsToSphere = TRUE + +BEGIN_OBJECTLIST +BLOCK + POS 51 0 -355 + SCALE 62 5 72 + TEX3 Wall01 2 2 +END +BLOCK + POS 93 0 -364.5 + SCALE 22 6 15 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS 51.5 0 -306 + SCALE 71 12 24 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -40 0 -325 + SCALE 37 7 53 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -17 0 -339 + SCALE 9 4 22 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -43 0 -375 + SCALE 47 5 32 + ROOFH 1 + ROT 90 + TEX3 Wall01 2 2 +END +HANGAR3 + POS -40 0 -455.5 + SCALE 35 8 25 + TEX1 Fcd14 0 0 + TEX2 Roof02 1 1 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -55 0 -455.5 + SCALE 10 4 26 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -25 0 -455.5 + SCALE 10 4 26 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.1 0.1 +END + +HANGAR3 + POS -40 0 -238.5 + SCALE 35 8 25 + TEX1 Fcd14 0 0 + TEX2 Roof02 1 1 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -55 0 -238.5 + SCALE 10 4 26 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -25 0 -238.5 + SCALE 10 4 26 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.1 0.1 +END + +BLOCK + POS -36.5 0 -548 + SCALE 43 6.5 58 + TEX1 Fcd01 0.01 0.01 + TEX2 Fcd01 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -53 0 -809.5 + SCALE 100 19.5 13 + ROOFH 5 + ROT 90 + TEX1 Fcd01 0.01 0.01 + TEX2 Fcd01 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -21 0 -809.5 + SCALE 100 14.5 51 + ROT 90 + ROOFH 5 + TEX1 Fcd01 0.01 0.01 + TEX2 Fcd01 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -39 0 -907 + SCALE 58 8.5 40 + ROOFH 1.5 + ROT 90 + TEX1 Fcd11 0.01 0.01 + TEX2 Fcd11 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS 81 0 -728 + SCALE 45 8 62 + ROOFH 2 + ROT 90 + TEX1 Fcd01 0.01 0.01 + TEX2 Fcd01 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS 70.5 0 -606 + SCALE 25 8 47 + ROOFH 2 + ROT 90 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0 0 +END +HANGAR2 + POS 23 0 -956.5 + SCALE 46 8 28 + ROOFH 2 + TEX1 Fcd11 0.01 0.01 + TEX2 Fcd11 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS 41.5 0 -1023.5 + SCALE 26 7.5 40 + ROOFH 1.5 + TEX1 Fcd11 0.01 0.01 + TEX2 Fcd11 0.01 0.01 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -35 0 -86 + SCALE 54 13 41 + ROOFH 3 + ROT 90 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -5 0 -86 + SCALE 19 9 54 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -33 0 14 + SCALE 54 13 40 + ROOFH 3 + ROT 90 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -3 0 22 + SCALE 20 9 40 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -67.5 0 125 + SCALE 7 28 8 +END +BLOCK + POS 106 0 137.5 + SCALE 35 25 23 + TEX1 Wall01 0.2 0.2 + TEX2 Wall01 0.2 0.2 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS 105 0 106.5 + SCALE 35 13 28 + TEX1 Wall01 0.2 0.2 + TEX2 Wall01 0.2 0.2 + TEX3 Wall01 0.1 0.1 +END +TANK + POS 196 0 -139.5 + SCALE 11 5 11 + NSTEP 16 + TEX2 Wall01 0.1 0.1 +END +TANK + POS 179 0 -112 + SCALE 11 5 11 + NSTEP 16 + TEX2 Wall01 0.1 0.1 +END +TANK + POS 169.5 0 -141 + SCALE 9.5 4.5 9.5 + NSTEP 16 + TEX2 Wall01 0.1 0.1 +END + +HANGAR2 + POS 411 0 467 + SCALE 77 20 100 + ROOFH 6 + ROT 45 + TEX1 Fcd06 0 0 + TEX2 Fcd06 0 0 + TEX3 Wall01 0.2 0.2 +END +HANGAR2 + POS 484.5 0 234 + SCALE 44 8 44 + ROOFH 2 + ROT 90 + TEX3 Wall01 0.1 0.1 +END + +BLOCK + POS 100 0 -218 + SCALE 50 4 13 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS 100 0 -261 + SCALE 50 4 13 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS 100 0 -434.5 + SCALE 50 4 13 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS 100 0 -476.5 + SCALE 50 4 12 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.2 0.2 +END +HANGAR2 + POS -44 0 -735 + SCALE 45 9 32 + ROOFH 2 + ROT 90 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.2 0.2 +END +HANGAR2 + POS -43.5 0 -683.5 + SCALE 38 9 31 + ROOFH 2 + ROT 90 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.2 0.2 +END + +HANGAR2 + POS 222 0 -27 + SCALE 49 14 50 + ROOFH 3 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS 251.5 0 -27 + SCALE 10 6 50 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.2 0.2 +END +HANGAR2 + POS 309 0 -4 + SCALE 34 9 37 + ROOFH 2.5 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS 288 0 -5 + SCALE 8 3.5 35 + TEX1 Fcd14 0 0 + TEX2 Fcd14 0 0 + TEX3 Wall01 0.2 0.2 +END +HANGAR + POS 105 0 17 + SCALE 40 10 33 + ROT 180 + TEX1 Wall01 0.2 0.2 + TEX3 Wall01 0.2 0.2 +END +HANGAR + POS 51 0 17 + SCALE 40 10 33 + ROT 180 + TEX1 Wall01 0.2 0.2 + TEX3 Wall01 0.2 0.2 +END + +HANGAR + POS 893 0 893 + SCALE 146 25 47 + ROT 2.5 + TEX3 Wall01 0 0 +END +HANGAR2 + POS 895 0 849 + SCALE 70 20 41 + ROOFH 5 + ROT 2.5 + TEX3 Wall01 0 0 +END +BLOCK + POS 902 0 738 + SCALE 85 9 99 + ROT 2.5 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS 849 0 846.5 + SCALE 18 8 40 + ROT 2.5 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Roof01 0 0 +END +BLOCK + POS 849.5 0 749.5 + SCALE 19 10 23 + ROT 2.5 + TEX1 Fcd06 0.1 0.1 + TEX2 Fcd06 0.1 0.1 + TEX3 Fcd04 0.03 0.03 +END + +LPAD2 + POS -495 0 -472 + SCALE 0.2 + ROT 16 + TEX Lpad02 + NAV 112.1 +END +LPAD2 + POS -639 0 -616 + SCALE 0.2 + TEX Lpad02 + NAV 112.3 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Musudan.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Musudan.cfg new file mode 100644 index 000000000..6f89069f9 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Musudan.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Musudan +Location = +129.50 +40.5 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 128.35 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Overberg.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Overberg.cfg new file mode 100644 index 000000000..b43d4fe99 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Overberg.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Overberg +Location = +20.32 -34.58 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 131.85 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Palmachim.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Palmachim.cfg new file mode 100644 index 000000000..f6d0ae3af --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Palmachim.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Palmachim +Location = +34.70 +31.90 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 128.40 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Palmdale.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Palmdale.cfg new file mode 100644 index 000000000..8c66fad8f --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Palmdale.cfg @@ -0,0 +1,285 @@ +BASE-V2.0 +Name = Palmdale AF Plant 42 +Location = -118.084444 +34.629444 +Size = 200 +MapObjectsToSphere = TRUE + +BEGIN_OBJECTLIST +BLOCK + POS -895 0 -495 + SCALE 104 12 171 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS -900 0 -653 + SCALE 91 10 24 + TEX3 Wall01 0.1 0.1 +END +TANK + POS -894 0 -15 + SCALE 15 8 15 + NSTEP 16 + TEX2 Wall01 0.1 0.1 +END +HANGAR + POS -861 0 -92 + SCALE 23 13 40 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -901 0 -88 + SCALE 47 5 13 + TEX3 Roof01 0.02 0.02 +END +BLOCK + POS -897 0 456 + SCALE 52 15 332 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -861 0 594 + SCALE 20 17 50 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -897 0 652 + SCALE 52 8 60 + ROOFH 2 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -1025 0 470 + SCALE 50 16 220 + ROOFH 3 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.2 0.2 +END +BLOCK + POS -1061 0 553 + SCALE 22 8 52 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.1 0.1 +END +HANGAR2 + POS -1024 0 260 + SCALE 55 9 115 + ROOFH 2 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.1 0.1 +END +BLOCK + POS -1192 0 240 + SCALE 86 18 58 + TEX1 Wall01 0.1 0.1 + TEX2 Wall01 0.1 0.1 + TEX3 Fcd01 0.05 0.05 +END +BLOCK + POS -1310 18 1190 + SCALE 335 20 159 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -1310 0 1099 + SCALE 335 24 60 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -1310 0 1269 + SCALE 335 24 46 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -1156.5 0 1428 + SCALE 93 19 41 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.05 0.05 +END + +BLOCK + POS -972.5 0 1423 + SCALE 35 7 36 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -972.5 0 1554 + SCALE 35 7 36 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -970.5 0 1488.5 + SCALE 31 20 120 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS -988 7 1488.5 + SCALE 4 15 160 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Roof01 0.05 0.05 +END + +BLOCK + POS -1014 0 1620 + SCALE 32 7 30 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Roof01 0.05 0.05 +END +BLOCK + POS -1078 0 1620 + SCALE 32 7 30 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Roof01 0.05 0.05 +END +BLOCK + POS -1046 0 1627 + SCALE 60 20 36 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Roof01 0.05 0.05 +END +BLOCK + POS -1046 7 1607 + SCALE 85 15 4 + TEX1 Fcd02 0 0 + TEX2 Fcd02 0 0 + TEX3 Roof01 0.05 0.05 +END + +BLOCK + POS -1259 0 1445 + SCALE 17 8 78 + TEX1 Fcd04 0 0 + TEX2 Fcd04 0 0 + TEX3 Wall01 0.05 0.05 +END +TANK + POS -1248 0 1576.5 + SCALE 9 8 9 + TEX2 Wall01 0.05 0.05 +END +TANK + POS -1326 0 1465 + SCALE 11 10 11 + NSTEP 16 + TEX2 Wall01 0.05 0.05 +END + +HANGAR2 + POS 1918 0 702 + SCALE 122 30 206 + ROOFH 7 + ROT -13 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.05 0.05 +END +HANGAR2 + POS 1975 0 945 + SCALE 122 30 136 + ROOFH 7 + ROT -13 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Roof01 0.02 0.02 +END +BLOCK + POS 2086 0 473 + SCALE 120 8 194 + ROT -13 + TEX1 Fcd05 0 0 + TEX2 Fcd05 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS 2007.5 0 428 + SCALE 13 10 19 + ROT -13 + TEX1 Fcd05 0 0 + TEX2 Fcd05 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS 2037 0 562 + SCALE 7 6 13 + ROT -13 + TEX1 Fcd05 0 0 + TEX2 Fcd05 0 0 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS 1984 0 564 + SCALE 22 6 28 + ROT -13 + TEX1 Fcd01 0 0 + TEX2 Fcd01 0 0 + TEX3 Wall01 0.05 0.05 +END + +HANGAR3 + POS 660 0 -760.5 + SCALE 45 14 24 + TEX3 Wall01 0.05 0.05 +END +HANGAR3 + POS 707 0 -760.5 + SCALE 45 14 24 + TEX3 Wall01 0.05 0.05 +END +HANGAR3 + POS 754 0 -760.5 + SCALE 45 14 24 + TEX3 Wall01 0.05 0.05 +END +HANGAR3 + POS 708 0 -706 + SCALE 13 6 30 + ROT 90 + TEX3 Wall01 0.05 0.05 +END +BLOCK + POS 824 0 -760 + SCALE 60 5 23 + TEX3 Roof01 0 0 +END +HANGAR2 + POS 972 0 -713 + SCALE 14 7 30 + ROOFH 2 + ROT 90 + TEX1 Fcd04 0 0 + TEX2 Fcd04 0 0 + TEX3 Roof01 0 0 +END + +BLOCK + POS 1045 0 -983 + SCALE 57 16 48 + TEX1 Fcd05 0 0 + TEX2 Fcd05 0 0 + TEX3 Wall01 0.1 0.1 +END + +LPAD2 + POS -1415 0 508 + SCALE 0.8 + TEX Lpad02 + NAV 118.7 +END +END_OBJECTLIST \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Peenemunde.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Peenemunde.cfg new file mode 100644 index 000000000..067497a7d --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Peenemunde.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Peenemünde +Location = +13.9 +54.1 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.20 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Plesetsk.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Plesetsk.cfg new file mode 100644 index 000000000..689bd909b --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Plesetsk.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Plesetsk +Location = +40.35 +62.0 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 131.25 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Salto_di_Quirra.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Salto_di_Quirra.cfg new file mode 100644 index 000000000..37a22d719 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Salto_di_Quirra.cfg @@ -0,0 +1,104 @@ +BASE-V2.0 +Name = Salto di Quirra +Location = 9.65 39.5 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + +BEGIN_NAVBEACON +END_NAVBEACON + +BEGIN_OBJECTLIST + +LPAD2 + POS -3036 0 -1451 + SCALE 0.563 + ROT 165.000 + TEX Lpad02 + NAV 108.1 +END +BLOCK + POS -3188 0 -1554 + SCALE 9 6 6 + ROT 27 + TEX3 Wall01 2 2 +END +BLOCK + POS -3199 0 -1560 + SCALE 9 6 6 + ROT 27 + TEX3 Wall01 2 2 +END +BLOCK + POS -3210 0 -1565 + SCALE 9 6 6 + ROT 27 + TEX3 Wall01 2 2 +END +BLOCK + POS -3222 0 -1571 + SCALE 9 6 6 + ROT 27 + TEX3 Wall01 2 2 +END +BLOCK + POS -3234 0 -1576 + SCALE 6 6 3 + ROT 27 + TEX3 Wall01 2 2 +END +BLOCK + POS -2998 0 -1448 + SCALE 9 6 6 + ROT 163 + TEX3 Wall01 2 2 +END +BLOCK + POS -2992 0 -1463 + SCALE 6 6 3 + ROT 163 + TEX3 Wall01 2 2 +END +BLOCK + POS -3183 0 -1949 + SCALE 14 6 10 + ROT 119 + TEX3 Wall01 2 2 +END +BLOCK + POS -3169 0 -1941 + SCALE 14 6 10 + ROT 119 + TEX3 Wall01 2 2 +END +BLOCK + POS -3155 0 -1934 + SCALE 14 6 10 + ROT 119 + TEX3 Wall01 2 2 +END +BLOCK + POS -3078 0 -1892 + SCALE 14 6 10 + ROT 73 + TEX3 Wall01 2 2 +END +BLOCK + POS -3066 0 -1856 + SCALE 14 6 10 + ROT 73 + TEX3 Wall01 2 2 +END +BLOCK + POS -3535 0 -1766 + SCALE 14 6 10 + ROT 73 + TEX3 Wall01 2 2 +END +BLOCK + POS -3522 0 -1745 + SCALE 23 6 21 + ROT 73 + TEX3 Wall01 2 2 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/San_Marco.cfg b/Src/Celbody/SPICE/Config/Earth/Base/San_Marco.cfg new file mode 100644 index 000000000..a88eb472f --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/San_Marco.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = San Marco +Location = +40.21 -2.93 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 127.40 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Sriharikota.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Sriharikota.cfg new file mode 100644 index 000000000..4477e8e95 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Sriharikota.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Sriharikota +Location = +80.30 +13.8 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 129.55 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Svobodniy.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Svobodniy.cfg new file mode 100644 index 000000000..485b48f05 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Svobodniy.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Svobodniy +Location = +138.5 +51.5 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 129.15 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Taiyuan.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Taiyuan.cfg new file mode 100644 index 000000000..fe3aac217 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Taiyuan.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Taiyuan +Location = +111.50 +37.80 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 129.40 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Tanegashima.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Tanegashima.cfg new file mode 100644 index 000000000..6d7453632 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Tanegashima.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Tanegashima +Location = +131.0 +30.40 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 131.15 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Vandenberg.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Vandenberg.cfg new file mode 100644 index 000000000..0371a62ca --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Vandenberg.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Vandenberg +Location = -120.62 +34.58 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 128.70 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Wallops_Island.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Wallops_Island.cfg new file mode 100644 index 000000000..478c6082c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Wallops_Island.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Wallops Island +Location = -75.48 +37.83 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.35 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/White_Sands.cfg b/Src/Celbody/SPICE/Config/Earth/Base/White_Sands.cfg new file mode 100644 index 000000000..d66d2ea11 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/White_Sands.cfg @@ -0,0 +1,200 @@ +BASE-V2.0 +Name = White Sands +Location = -106.419533 32.943241 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + +BEGIN_NAVBEACON +END_NAVBEACON + +BEGIN_OBJECTLIST + +LPAD2 + POS 7070 -4.37 -4297 + SCALE 1 + ROT 23.000 + TEX Lpad02 + NAV 108.3 +END +RUNWAY + END1 5845.344 0 -821.456 + END2 -5059.344 0 623.456 + WIDTH 0 + ILS1 124.0 + ILS2 124.1 + NRWSEG 9 + RWSEG1 1 0.018 0.25 0.5 1 0.875 + RWSEG2 1 0.088 0 0.25 0.5 0 + RWSEG3 1 0.018 0.25 0.5 0.75 0.625 + RWSEG4 1 0.088 0 0.25 0.5 0 + RWSEG5 5 0.576 0 0.25 1 0.5 + RWSEG6 1 0.088 0 0.25 0.5 0 + RWSEG7 1 0.02 0.25 0.5 0.625 0.75 + RWSEG8 1 0.088 0 0.25 0 0.5 + RWSEG9 1 0.02 0.25 0.5 0.875 1 + RWTEX Runway2 +END +RUNWAYLIGHTS + END1 5845.344 -1.73 -821.456 + END2 -5059.344 -1.04 623.456 + WIDTH 91 + COUNT1 40 +END +RUNWAY + END1 -2389.237 0 4778.605 + END2 2355.237 0 -5145.605 + WIDTH 0 + ILS1 124.2 + ILS2 124.3 + NRWSEG 9 + RWSEG1 1 0.018 0.25 0.5 1 0.875 + RWSEG2 1 0.088 0 0.25 0.5 0 + RWSEG3 1 0.018 0.25 0.5 0.75 0.625 + RWSEG4 1 0.088 0 0.25 0.5 0 + RWSEG5 5 0.576 0 0.25 1 0.5 + RWSEG6 1 0.088 0 0.25 0.5 0 + RWSEG7 1 0.02 0.25 0.5 0.625 0.75 + RWSEG8 1 0.088 0 0.25 0 0.5 + RWSEG9 1 0.02 0.25 0.5 0.875 1 + RWTEX Runway2 +END +RUNWAYLIGHTS + END1 -2389.237 0 4778.605 + END2 2355.237 0 -5145.605 + WIDTH 91 + COUNT1 40 +END +RUNWAY + END1 -1931.269 0 -1148.557 + END2 1076.269 0 -3631.443 + WIDTH 0 + ILS1 124.4 + ILS2 124.5 + NRWSEG 9 + RWSEG1 1 0.018 0.25 0.5 1 0.875 + RWSEG2 1 0.088 0 0.25 0.5 0 + RWSEG3 1 0.018 0.25 0.5 0.75 0.625 + RWSEG4 1 0.088 0 0.25 0.5 0 + RWSEG5 5 0.576 0 0.25 1 0.5 + RWSEG6 1 0.088 0 0.25 0.5 0 + RWSEG7 1 0.02 0.25 0.5 0.625 0.75 + RWSEG8 1 0.088 0 0.25 0 0.5 + RWSEG9 1 0.02 0.25 0.5 0.875 1 + RWTEX Runway2 +END +RUNWAYLIGHTS + END1 -1931.269 0 -1148.557 + END2 1076.269 0 -3631.443 + WIDTH 46 + COUNT1 40 +END +BLOCK + POS 567 0 865 + SCALE 16 9 35 + ROT 38 + TEX3 Wall01 2 2 +END +BLOCK + POS 544 0 941 + SCALE 16 9 35 + ROT 38 + TEX3 Wall01 2 2 +END +BLOCK + POS 637 0 1257 + SCALE 16 9 35 + ROT 38 + TEX3 Wall01 2 2 +END +HANGAR + POS 6981 0 6798 + SCALE 26 12 55 + ROT 9 + TEX3 Roof01 2 1 +END +HANGAR + POS 6705 0 6886 + SCALE 21 12 41 + ROT 101 + TEX3 Roof01 2 1 +END +HANGAR2 + POS 6924 0 6715 + SCALE 27 16 116 + ROT 97 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 6715 0 6823 + SCALE 18 16 28 + ROT 97 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 6710 0 6851 + SCALE 18 16 28 + ROT 97 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 7298 0 -3997 + SCALE 18 9 28 + ROT 107 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 7174 0 -4002 + SCALE 11 9 19 + ROT 113 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 7165 0 -3980 + SCALE 11 9 19 + ROT 113 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 7006 0 -4221 + SCALE 11 9 19 + ROT 113 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 6983 0 -4141 + SCALE 18 9 28 + ROT 59 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 6966 0 -4167 + SCALE 12 9 28 + ROT 59 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 7014 0 -4156 + SCALE 11 9 19 + ROT 22 + TEX3 Roof02 2 1 + ROOFH 3 +END +BLOCK + POS 5135 0 6003 + SCALE 25 60 25 + ROT 332 + + + TEX3 Wall01 2 2 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Woomera.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Woomera.cfg new file mode 100644 index 000000000..b01442341 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Woomera.cfg @@ -0,0 +1,269 @@ +BASE-V2.0 +Name = Woomera +Location = 136.800003 -31.1 +Size = 1000 +ObjectSize = 100 +MAPOBJECTSTOSPHERE = TRUE + + +BEGIN_OBJECTLIST +RUNWAY + END1 6320.011 0 1112.162 + END2 3951.989 0 1369.838 + WIDTH 45 + NRWSEG 9 + RWSEG1 1 0.018 0.25 0.5 1 0.875 + RWSEG2 1 0.088 0 0.25 0.5 0 + RWSEG3 1 0.018 0.25 0.5 0.75 0.625 + RWSEG4 1 0.088 0 0.25 0.5 0 + RWSEG5 5 0.576 0 0.25 1 0.5 + RWSEG6 1 0.088 0 0.25 0.5 0 + RWSEG7 1 0.02 0.25 0.5 0.625 0.75 + RWSEG8 1 0.088 0 0.25 0 0.5 + RWSEG9 1 0.02 0.25 0.5 0.875 1 + RWTEX Runway2 +END +LPAD2 + POS 6360 -2.22 748 + SCALE 0.837 + ROT 77.000 + TEX Lpad02 + NAV 118.3 +END +LPAD2 + POS -14079 -89.24 -30849 + SCALE 1 + ROT 112.000 + TEX Lpad02 + NAV 108.2 +END +LPAD2 + POS -17388 -77.95 -26526 + SCALE 1 + ROT 60.000 + TEX Lpad02 + NAV 108.3 +END +LPAD2 + POS -21821 -105.69 -29720 + SCALE 1 + ROT 60.000 + TEX Lpad02 + NAV 108.4 +END +LPAD2 + POS -7448 -83.93 -32043 + SCALE 1 + ROT 60.000 + TEX Lpad02 + NAV 108.5 +END +LPAD2 + POS -2269 -88.81 -33752 + SCALE 1 + ROT 90.000 + TEX Lpad02 + NAV 108.6 +END +LPAD2 + POS -2814 -92.52 -34406 + SCALE 1 + ROT 90.000 + TEX Lpad02 + NAV 108.7 +END +LPAD2 + POS -28786 -132.04 -29437 + SCALE 1 + ROT 46.000 + TEX Lpad02 + NAV 108.8 +END +HANGAR2 + POS 5269 0 539 + SCALE 10 9 24 + ROT 358 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5328 0 510 + SCALE 10 9 42 + ROT 274 + TEX3 Roof02 2 1 + ROOFH 3 +END +BLOCK + POS 5467 0 427 + SCALE 33 12 16 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS 5456 0 464 + SCALE 55 12 16 + ROT 0 + TEX3 Roof02 2 2 +END +TANK + POS 5647 0 469 + SCALE 10 12 10 + ROT 0 + NSTEP 12 +END +HANGAR2 + POS 5537 0 347 + SCALE 24 12 41 + ROT 185 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5559 0 281 + SCALE 24 12 41 + ROT 185 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5526 0 281 + SCALE 24 12 32 + ROT 185 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5127 0 377 + SCALE 24 12 41 + ROT 90 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR3 + POS -21884 0 -29624 + SCALE 28 12 19 + ROT 30 + TEX1 Wall01 6 1 + TEX2 Fcd04 6 1 + TEX3 Wall01 2 1 +END +HANGAR2 + POS -14026 0 -30826 + SCALE 19 12 27 + ROT 292 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS -28734 0 -29484 + SCALE 18 12 24 + ROT 48 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5365 0 329 + SCALE 21 22 57 + ROT 340 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5307 0 707 + SCALE 13 12 27 + ROT 0 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5271 0 572 + SCALE 10 12 42 + ROT 358 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5232 0 573 + SCALE 10 12 69 + ROT 268 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5233 0 629 + SCALE 10 12 69 + ROT 268 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5272 0 613 + SCALE 10 9 42 + ROT 358 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5420 0 563 + SCALE 14 12 49 + ROT 358 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR2 + POS 5420 0 563 + SCALE 14 12 49 + ROT 269 + TEX3 Roof02 2 1 + ROOFH 3 +END +BLOCK + POS 6420 0 733 + SCALE 20 16 20 + ROT 346 + TEX3 Wall01 2 2 +END +HANGAR2 + POS 5640 0 502 + SCALE 19 22 66 + ROT 269 + TEX3 Roof02 2 1 + ROOFH 3 +END +HANGAR + POS 5163 0 575 + SCALE 47 32 68 + ROT 87 + TEX3 Roof01 2 1 +END +HANGAR + POS 5172 0 725 + SCALE 47 32 68 + ROT 87 + TEX3 Roof01 2 1 +END +HANGAR + POS 5480 0 661 + SCALE 47 32 68 + ROT 46 + TEX3 Roof01 2 1 +END +BLOCK + POS -17569 0 -26436 + SCALE 20 32 20 + ROT 330 + TEX3 Wall01 2 2 +END +BLOCK + POS 5198 0 803 + SCALE 10 45 10 + ROT 0 + TEX3 Roof02 2 2 +END +BLOCK + POS 5179 0 803 + SCALE 28 9 10 + ROT 0 + TEX3 Wall01 2 2 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Wuzhai.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Wuzhai.cfg new file mode 100644 index 000000000..b0c693adf --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Wuzhai.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Wuzhai +Location = +108.2 +38.6 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 130.80 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Base/Xichang.cfg b/Src/Celbody/SPICE/Config/Earth/Base/Xichang.cfg new file mode 100644 index 000000000..7d777a763 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Base/Xichang.cfg @@ -0,0 +1,14 @@ +BASE-V2.0 +Name = Xichang +Location = +102.3 +28.10 +Size = 2000 + +BEGIN_OBJECTLIST +LPAD2 + POS 0 0 0 + SCALE 0 0 0 + TEX Lpad02 + NAV 127.90 +END +END_OBJECTLIST + diff --git a/Src/Celbody/SPICE/Config/Earth/Data/coast.vec b/Src/Celbody/SPICE/Config/Earth/Data/coast.vec new file mode 100644 index 000000000..9ba6cf4b4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Data/coast.vec @@ -0,0 +1,9591 @@ +9351 ; total number of vertices +238 ; number of segments +612 +-180.000000 -83.830000 +-178.000000 -84.330000 +-174.000000 -84.500000 +-170.000000 -84.670000 +-166.000000 -84.920000 +-163.000000 -85.420000 +-158.000000 -85.420000 +-152.000000 -85.580000 +-146.000000 -85.330000 +-147.000000 -84.830000 +-151.000000 -84.500000 +-153.500000 -84.000000 +-153.000000 -83.500000 +-154.000000 -83.000000 +-154.000000 -82.500000 +-154.000000 -82.000000 +-154.500000 -81.500000 +-153.000000 -81.170000 +-150.000000 -81.000000 +-146.500000 -80.920000 +-145.500000 -80.670000 +-148.000000 -80.330000 +-150.000000 -80.000000 +-152.500000 -79.670000 +-155.000000 -79.250000 +-157.000000 -78.830000 +-157.255422 -78.747818 +-157.507183 -78.665420 +-157.755353 -78.582813 +-158.000000 -78.500000 +-157.665802 -78.480568 +-157.332726 -78.460756 +-157.000787 -78.440566 +-156.670000 -78.420000 +-154.500000 -78.500000 +-154.500000 -78.170000 +-154.500000 -78.170000 +-156.670000 -78.080000 +-158.000000 -77.830000 +-158.330000 -77.500000 +-158.670000 -77.170000 +-157.000000 -77.000000 +-154.000000 -77.170000 +-153.000000 -77.580000 +-150.500000 -77.830000 +-148.000000 -77.670000 +-146.000000 -77.250000 +-146.000000 -76.750000 +-146.330000 -76.330000 +-146.670000 -75.920000 +-144.000000 -75.830000 +-142.000000 -75.580000 +-140.670000 -75.750000 +-140.000000 -75.420000 +-138.330000 -75.250000 +-136.670000 -75.000000 +-135.500000 -74.750000 +-133.000000 -74.750000 +-132.000000 -75.000000 +-130.830000 -75.420000 +-129.670000 -75.750000 +-128.000000 -76.000000 +-127.000000 -76.000000 +-126.830000 -75.670000 +-126.330000 -75.170000 +-125.500000 -74.670000 +-124.500000 -74.330000 +-124.500000 -74.330000 +-123.330000 -73.830000 +-123.670000 -73.250000 +-122.330000 -73.250000 +-121.330000 -73.750000 +-120.000000 -74.000000 +-120.000000 -73.580000 +-119.584192 -73.603733 +-119.167232 -73.626646 +-118.749156 -73.648736 +-118.330000 -73.670000 +-117.915020 -73.671217 +-117.500000 -73.671622 +-117.084980 -73.671217 +-116.670000 -73.670000 +-116.585609 -73.710051 +-116.500814 -73.750068 +-116.415612 -73.790051 +-116.330000 -73.830000 +-116.659817 -73.915774 +-116.993067 -74.001038 +-117.329783 -74.085783 +-117.670000 -74.170000 +-117.670000 -74.295000 +-117.670000 -74.420000 +-117.670000 -74.545000 +-117.670000 -74.670000 +-117.343081 -74.795732 +-117.010850 -74.920984 +-116.673195 -75.045744 +-116.330000 -75.170000 +-115.667718 -75.192853 +-115.003517 -75.213810 +-114.337558 -75.232861 +-113.670000 -75.250000 +-112.330000 -75.000000 +-112.500000 -74.500000 +-112.543494 -74.375012 +-112.586315 -74.250016 +-112.628479 -74.125012 +-112.670000 -74.000000 +-112.499992 -73.917697 +-112.331672 -73.835262 +-112.165015 -73.752695 +-112.000000 -73.670000 +-111.500000 -74.000000 +-111.000000 -74.500000 +-110.330000 -75.000000 +-108.670000 -75.170000 +-108.500000 -74.670000 +-109.500000 -74.500000 +-109.500000 -74.000000 +-108.330000 -74.000000 +-108.000000 -74.330000 +-108.500000 -74.670000 +-107.500000 -75.080000 +-106.000000 -75.080000 +-104.500000 -74.920000 +-104.500000 -74.920000 +-104.500000 -74.580000 +-102.670000 -74.580000 +-101.330000 -74.750000 +-100.000000 -75.000000 +-99.500000 -74.750000 +-101.330000 -74.330000 +-100.670000 -74.000000 +-101.500000 -73.750000 +-101.500000 -73.500000 +-100.000000 -73.580000 +-99.000000 -73.420000 +-100.000000 -73.080000 +-101.330000 -73.250000 +-102.500000 -72.750000 +-101.330000 -72.670000 +-101.500000 -73.000000 +-99.670000 -72.920000 +-98.500000 -73.330000 +-98.000000 -73.080000 +-97.500000 -73.420000 +-97.500000 -73.750000 +-96.330000 -73.750000 +-96.000000 -73.420000 +-96.000000 -73.080000 +-97.500000 -72.920000 +-98.500000 -72.500000 +-99.670000 -72.170000 +-100.005859 -72.108352 +-100.339477 -72.046132 +-100.670856 -71.983346 +-101.000000 -71.920000 +-100.705518 -71.878165 +-100.412355 -71.835885 +-100.120514 -71.793162 +-99.830000 -71.750000 +-98.330000 -72.000000 +-98.330000 -72.000000 +-97.000000 -71.830000 +-95.670000 -72.080000 +-95.670000 -72.420000 +-94.000000 -72.580000 +-92.250000 -72.750000 +-90.500000 -72.920000 +-88.750000 -72.920000 +-87.000000 -72.920000 +-85.500000 -73.080000 +-84.330000 -72.920000 +-83.000000 -72.830000 +-81.250000 -72.920000 +-79.500000 -73.000000 +-78.500000 -73.250000 +-78.670000 -72.830000 +-78.000000 -72.420000 +-76.500000 -72.580000 +-75.000000 -72.830000 +-74.000000 -73.000000 +-74.500000 -73.500000 +-73.000000 -73.420000 +-71.500000 -73.330000 +-70.000000 -73.170000 +-68.500000 -73.080000 +-67.500000 -72.830000 +-67.000000 -72.330000 +-67.000000 -71.830000 +-67.500000 -71.500000 +-67.500000 -70.920000 +-68.000000 -70.420000 +-68.000000 -70.420000 +-68.500000 -70.000000 +-68.500000 -69.420000 +-67.330000 -69.420000 +-66.670000 -69.080000 +-67.330000 -68.830000 +-66.830000 -68.500000 +-66.830000 -68.080000 +-67.500000 -67.750000 +-67.500000 -67.420000 +-68.500000 -67.750000 +-69.250000 -67.750000 +-69.330000 -67.330000 +-68.670000 -66.920000 +-67.830000 -66.670000 +-67.670000 -67.080000 +-67.000000 -67.000000 +-66.330000 -67.330000 +-66.330000 -66.830000 +-65.500000 -66.580000 +-65.830000 -66.250000 +-65.000000 -65.920000 +-64.000000 -65.500000 +-64.000000 -65.080000 +-63.000000 -65.170000 +-62.670000 -64.750000 +-61.670000 -64.670000 +-61.500000 -64.250000 +-61.000000 -64.000000 +-59.670000 -63.830000 +-58.830000 -63.580000 +-58.830000 -63.580000 +-58.000000 -63.330000 +-57.170000 -63.250000 +-56.670000 -63.580000 +-57.330000 -63.580000 +-57.538610 -63.642957 +-57.748146 -63.705611 +-57.958608 -63.767960 +-58.170000 -63.830000 +-57.940003 -63.830548 +-57.710000 -63.830731 +-57.479997 -63.830548 +-57.250000 -63.830000 +-57.330000 -64.420000 +-58.170000 -64.330000 +-58.670000 -64.000000 +-59.000000 -64.500000 +-59.670000 -64.330000 +-60.500000 -64.670000 +-61.330000 -65.000000 +-62.000000 -65.420000 +-62.170000 -65.750000 +-62.330000 -66.080000 +-62.670000 -66.500000 +-63.500000 -66.250000 +-64.000000 -66.500000 +-63.670000 -66.920000 +-64.670000 -66.920000 +-65.330000 -67.330000 +-65.500000 -67.830000 +-65.333851 -67.892755 +-65.166805 -67.955341 +-64.998856 -68.017756 +-64.830000 -68.080000 +-64.953979 -68.142641 +-65.078636 -68.205188 +-65.203975 -68.267641 +-65.330000 -68.330000 +-65.206740 -68.435139 +-65.082331 -68.540186 +-64.956756 -68.645140 +-64.830000 -68.750000 +-63.670000 -68.750000 +-62.670000 -69.080000 +-62.330000 -69.670000 +-62.000000 -70.170000 +-62.000000 -70.170000 +-61.500000 -70.580000 +-61.670000 -70.920000 +-61.000000 -71.170000 +-60.830000 -71.580000 +-61.670000 -72.000000 +-60.830000 -72.330000 +-61.000000 -72.670000 +-60.711578 -72.753129 +-60.420454 -72.835842 +-60.126603 -72.918135 +-59.830000 -73.000000 +-59.913792 -73.082552 +-59.998382 -73.165070 +-60.083781 -73.247553 +-60.170000 -73.330000 +-61.500000 -73.420000 +-61.000000 -73.750000 +-60.670000 -74.330000 +-61.670000 -74.670000 +-61.670000 -75.080000 +-63.000000 -75.170000 +-63.000000 -75.670000 +-63.670000 -76.080000 +-65.500000 -76.500000 +-67.330000 -77.000000 +-65.000000 -77.170000 +-62.500000 -77.080000 +-60.000000 -77.080000 +-57.670000 -77.250000 +-56.000000 -77.580000 +-53.670000 -77.920000 +-51.670000 -78.250000 +-49.330000 -78.500000 +-47.670000 -78.750000 +-44.000000 -78.830000 +-41.000000 -78.830000 +-41.000000 -78.830000 +-38.500000 -78.750000 +-36.330000 -78.330000 +-35.000000 -77.830000 +-33.330000 -77.500000 +-31.670000 -77.170000 +-30.000000 -76.830000 +-28.330000 -76.500000 +-27.000000 -76.080000 +-26.000000 -75.670000 +-24.000000 -75.330000 +-23.670000 -74.750000 +-22.330000 -74.420000 +-20.670000 -74.080000 +-19.330000 -73.750000 +-17.670000 -73.420000 +-16.330000 -73.080000 +-14.670000 -72.920000 +-13.500000 -72.830000 +-12.330000 -72.580000 +-11.330000 -72.250000 +-11.170000 -71.920000 +-12.000000 -71.670000 +-12.170000 -71.330000 +-11.500000 -71.250000 +-11.000000 -71.580000 +-10.500000 -71.250000 +-9.750000 -71.000000 +-9.000000 -71.170000 +-8.670000 -71.420000 +-8.500000 -71.830000 +-8.500000 -71.830000 +-8.205645 -71.790668 +-7.912523 -71.750888 +-7.620639 -71.710665 +-7.330000 -71.670000 +-7.415836 -71.607557 +-7.501111 -71.545076 +-7.585831 -71.482557 +-7.670000 -71.420000 +-7.583881 -71.335058 +-7.498514 -71.250077 +-7.413890 -71.165057 +-7.330000 -71.080000 +-7.415808 -71.017559 +-7.501074 -70.955078 +-7.585803 -70.892558 +-7.670000 -70.830000 +-7.459371 -70.810359 +-7.249158 -70.790478 +-7.039367 -70.770358 +-6.830000 -70.750000 +-5.830000 -70.750000 +-5.830000 -71.000000 +-6.000000 -71.330000 +-4.500000 -71.330000 +-3.000000 -71.250000 +-3.000000 -70.670000 +-3.330000 -70.420000 +-2.500000 -70.250000 +-1.670000 -70.420000 +-1.000000 -70.670000 +-1.500000 -71.000000 +-0.670000 -71.250000 +0.000000 -71.500000 +1.330000 -71.250000 +2.670000 -70.920000 +3.500000 -70.580000 +4.670000 -70.330000 +6.330000 -70.330000 +7.330000 -70.080000 +8.670000 -70.080000 +10.000000 -70.170000 +11.330000 -70.080000 +12.670000 -70.080000 +14.330000 -70.170000 +15.670000 -70.170000 +15.670000 -70.170000 +17.000000 -70.170000 +18.330000 -70.170000 +20.000000 -70.330000 +21.500000 -70.420000 +23.000000 -70.580000 +24.670000 -70.420000 +25.330000 -70.170000 +27.000000 -70.170000 +28.330000 -69.920000 +30.000000 -69.830000 +31.330000 -69.580000 +32.000000 -69.500000 +33.500000 -69.500000 +33.330000 -69.000000 +33.500000 -68.670000 +34.330000 -68.580000 +35.000000 -68.920000 +36.000000 -69.330000 +37.000000 -69.500000 +38.330000 -69.580000 +38.670000 -70.080000 +39.330000 -69.670000 +39.830000 -69.500000 +39.830000 -69.170000 +40.000000 -68.830000 +41.330000 -68.500000 +42.000000 -68.170000 +43.330000 -67.830000 +44.500000 -67.750000 +46.000000 -67.750000 +46.000000 -67.750000 +47.000000 -67.580000 +48.170000 -67.670000 +48.500000 -67.420000 +49.330000 -67.420000 +49.830000 -67.830000 +50.500000 -67.580000 +50.170000 -67.000000 +50.500000 -66.500000 +51.500000 -66.250000 +52.170000 -65.920000 +53.670000 -65.830000 +55.170000 -65.920000 +56.000000 -66.250000 +57.170000 -66.420000 +57.170000 -66.670000 +56.330000 -66.750000 +57.000000 -66.920000 +58.000000 -67.000000 +59.000000 -67.170000 +59.330000 -67.500000 +60.670000 -67.330000 +61.670000 -67.580000 +62.670000 -67.670000 +63.670000 -67.500000 +65.000000 -67.580000 +66.330000 -67.750000 +67.670000 -67.830000 +68.670000 -67.830000 +69.500000 -67.670000 +69.500000 -68.170000 +69.500000 -68.170000 +70.000000 -68.580000 +70.500000 -69.000000 +69.500000 -69.170000 +69.830000 -69.580000 +69.830000 -70.080000 +70.670000 -70.500000 +71.670000 -70.420000 +71.000000 -70.080000 +72.330000 -69.750000 +73.500000 -69.580000 +74.500000 -69.670000 +75.500000 -69.830000 +76.170000 -69.500000 +77.170000 -69.170000 +78.000000 -69.080000 +78.330000 -68.500000 +79.000000 -68.250000 +80.500000 -68.000000 +81.670000 -67.830000 +82.500000 -67.330000 +83.670000 -67.170000 +85.000000 -67.000000 +86.330000 -66.830000 +87.670000 -66.670000 +88.500000 -66.750000 +89.670000 -66.750000 +91.000000 -66.670000 +92.000000 -66.500000 +93.000000 -66.580000 +94.000000 -66.580000 +94.000000 -66.580000 +95.000000 -66.500000 +96.000000 -66.670000 +97.000000 -66.500000 +97.670000 -66.670000 +98.500000 -66.500000 +99.330000 -66.580000 +100.000000 -66.420000 +100.670000 -66.420000 +101.500000 -66.080000 +102.670000 -65.830000 +104.000000 -65.920000 +105.000000 -66.080000 +106.000000 -66.250000 +107.000000 -66.500000 +108.000000 -66.580000 +109.000000 -66.830000 +109.500000 -66.580000 +110.330000 -66.670000 +110.670000 -66.420000 +110.670000 -66.080000 +111.670000 -65.920000 +112.670000 -65.830000 +113.670000 -65.750000 +114.500000 -66.000000 +115.500000 -66.330000 +116.500000 -66.500000 +117.670000 -66.750000 +119.000000 -66.830000 +120.330000 -66.830000 +121.500000 -66.670000 +121.500000 -66.670000 +122.500000 -66.420000 +123.330000 -66.750000 +124.330000 -66.750000 +124.830000 -66.500000 +125.830000 -66.580000 +126.500000 -66.250000 +127.000000 -66.250000 +127.670000 -66.500000 +128.330000 -66.920000 +129.000000 -67.000000 +129.500000 -67.170000 +130.000000 -66.920000 +130.000000 -66.330000 +130.830000 -66.080000 +132.000000 -66.170000 +133.330000 -66.080000 +134.330000 -66.170000 +135.330000 -66.080000 +136.330000 -66.330000 +137.330000 -66.330000 +138.330000 -66.500000 +139.330000 -66.580000 +140.500000 -66.670000 +142.000000 -66.750000 +142.500000 -67.000000 +143.330000 -66.830000 +144.330000 -67.000000 +144.330000 -67.500000 +145.000000 -67.580000 +146.000000 -67.500000 +146.000000 -67.500000 +146.830000 -67.830000 +147.000000 -68.250000 +148.330000 -68.420000 +149.000000 -68.250000 +150.330000 -68.500000 +151.000000 -68.330000 +151.500000 -68.670000 +152.670000 -68.580000 +154.330000 -68.580000 +155.000000 -69.080000 +156.000000 -69.330000 +156.500000 -69.000000 +157.500000 -69.080000 +158.670000 -69.250000 +160.000000 -69.500000 +161.000000 -69.670000 +161.000000 -70.080000 +161.170000 -70.500000 +161.670000 -70.830000 +162.170000 -70.580000 +162.330000 -70.170000 +163.330000 -70.080000 +163.170000 -70.580000 +164.670000 -70.580000 +166.000000 -70.500000 +167.330000 -70.830000 +168.670000 -71.170000 +170.000000 -71.500000 +170.170000 -71.170000 +171.000000 -71.750000 +171.000000 -71.750000 +170.170000 -72.000000 +170.500000 -72.500000 +169.670000 -72.830000 +168.500000 -73.170000 +167.000000 -73.250000 +167.000000 -73.670000 +166.670000 -74.080000 +165.330000 -74.170000 +165.330000 -74.500000 +164.330000 -74.830000 +163.000000 -75.170000 +162.670000 -75.670000 +162.670000 -76.080000 +163.000000 -76.500000 +163.330000 -76.920000 +163.670000 -77.330000 +163.670000 -77.750000 +164.670000 -78.000000 +164.993809 -78.105574 +165.323322 -78.210772 +165.658674 -78.315584 +166.000000 -78.420000 +165.502597 -78.441281 +165.003420 -78.461710 +164.502532 -78.481285 +164.000000 -78.500000 +161.500000 -78.750000 +160.000000 -79.170000 +160.000000 -79.670000 +160.000000 -80.000000 +160.330000 -80.500000 +160.330000 -81.000000 +161.000000 -81.500000 +162.330000 -81.920000 +164.000000 -82.420000 +166.000000 -82.830000 +166.000000 -82.830000 +168.500000 -83.250000 +171.500000 -83.500000 +176.000000 -83.500000 +180.000000 -83.830000 +6 +166.330000 -77.580000 +166.670000 -77.080000 +168.170000 -77.330000 +169.670000 -77.420000 +168.170000 -77.670000 +166.330000 -77.580000 +10 +-164.000000 -78.750000 +-161.670000 -78.750000 +-160.670000 -79.080000 +-160.000000 -79.500000 +-160.000000 -79.920000 +-161.670000 -80.250000 +-163.670000 -79.830000 +-163.670000 -79.330000 +-163.000000 -79.080000 +-164.000000 -78.750000 +11 +-150.170000 -76.580000 +-148.170000 -76.170000 +-147.923344 -76.232875 +-147.674473 -76.295502 +-147.423366 -76.357878 +-147.170000 -76.420000 +-147.496504 -76.503149 +-147.826970 -76.585871 +-148.161451 -76.668157 +-148.500000 -76.750000 +-150.170000 -76.580000 +27 +-76.170000 -71.080000 +-74.670000 -71.080000 +-73.000000 -71.000000 +-71.830000 -70.920000 +-71.000000 -70.830000 +-70.670000 -70.580000 +-71.000000 -70.080000 +-71.500000 -69.580000 +-71.670000 -69.080000 +-71.170000 -68.920000 +-70.330000 -68.830000 +-69.670000 -69.420000 +-69.330000 -70.000000 +-68.830000 -70.500000 +-68.500000 -71.000000 +-68.330000 -71.500000 +-68.500000 -71.920000 +-68.830000 -72.330000 +-70.000000 -72.580000 +-71.500000 -72.670000 +-73.000000 -72.580000 +-73.330000 -72.250000 +-74.330000 -72.170000 +-75.000000 -71.830000 +-76.000000 -71.670000 +-76.500000 -71.330000 +-76.170000 -71.080000 +9 +-76.170000 -70.580000 +-75.670000 -70.250000 +-75.750000 -70.000000 +-74.500000 -69.750000 +-73.670000 -69.920000 +-73.750000 -70.250000 +-74.000000 -70.500000 +-75.000000 -70.580000 +-76.170000 -70.580000 +8 +-64.330000 -64.670000 +-63.500000 -64.250000 +-63.000000 -64.580000 +-62.500000 -64.000000 +-62.000000 -64.330000 +-63.000000 -64.580000 +-63.500000 -64.830000 +-64.330000 -64.670000 +11 +-56.500000 -63.250000 +-55.830000 -63.000000 +-55.624753 -63.105452 +-55.418013 -63.210605 +-55.209766 -63.315455 +-55.000000 -63.420000 +-55.249472 -63.440654 +-55.499301 -63.460872 +-55.749479 -63.480655 +-56.000000 -63.500000 +-56.500000 -63.250000 +9 +-61.000000 -62.670000 +-60.330000 -62.500000 +-59.330000 -62.330000 +-58.830000 -62.000000 +-57.670000 -62.000000 +-58.670000 -62.250000 +-59.330000 -62.330000 +-60.330000 -62.750000 +-61.000000 -62.670000 +10 +-46.330000 -60.630000 +-46.000000 -60.330000 +-45.752138 -60.423199 +-45.502855 -60.515935 +-45.252145 -60.608203 +-45.000000 -60.700000 +-45.333034 -60.683737 +-45.665723 -60.666648 +-45.998050 -60.648735 +-46.330000 -60.630000 +1646 +-80.080000 0.000000 +-80.000000 0.670000 +-79.330000 1.000000 +-78.830000 1.250000 +-79.000000 1.670000 +-78.580000 1.750000 +-78.670000 2.170000 +-78.330000 2.670000 +-77.750000 2.670000 +-77.500000 3.250000 +-77.170000 3.670000 +-77.500000 4.000000 +-77.330000 4.500000 +-77.420000 5.000000 +-77.420000 5.500000 +-77.500000 6.170000 +-77.420000 6.580000 +-77.750000 7.000000 +-78.170000 7.420000 +-78.420000 8.000000 +-78.170000 8.330000 +-78.500000 8.330000 +-78.750000 8.750000 +-79.170000 9.000000 +-79.500000 9.000000 +-79.750000 8.580000 +-80.080000 8.330000 +-80.080000 8.330000 +-80.500000 8.170000 +-80.420000 7.830000 +-80.314939 7.747538 +-80.209919 7.665051 +-80.104939 7.582538 +-80.000000 7.500000 +-80.125053 7.437552 +-80.250071 7.375069 +-80.375053 7.312552 +-80.500000 7.250000 +-80.920000 7.170000 +-81.000000 7.750000 +-81.500000 7.750000 +-81.750000 8.080000 +-82.250000 8.250000 +-82.750000 8.330000 +-83.000000 8.170000 +-83.250000 8.420000 +-83.750000 8.500000 +-83.670000 9.000000 +-84.000000 9.330000 +-84.580000 9.670000 +-84.830000 10.000000 +-85.170000 9.670000 +-85.330000 9.830000 +-85.670000 9.920000 +-85.830000 10.330000 +-85.750000 10.750000 +-85.750000 11.170000 +-86.170000 11.500000 +-86.580000 11.830000 +-87.000000 12.250000 +-87.330000 12.580000 +-87.414894 12.685041 +-87.499859 12.790054 +-87.584894 12.895041 +-87.670000 13.000000 +-87.585000 13.000041 +-87.500000 13.000055 +-87.415000 13.000041 +-87.330000 13.000000 +-87.414891 13.105042 +-87.499854 13.210056 +-87.584890 13.315042 +-87.670000 13.420000 +-87.670000 13.420000 +-87.830000 13.170000 +-88.420000 13.170000 +-88.830000 13.170000 +-89.330000 13.420000 +-89.750000 13.420000 +-90.000000 13.670000 +-90.500000 13.920000 +-91.000000 13.920000 +-91.500000 14.080000 +-92.000000 14.330000 +-92.330000 14.670000 +-92.750000 15.000000 +-93.170000 15.420000 +-93.420000 15.670000 +-93.830000 15.920000 +-94.250000 16.080000 +-94.670000 16.170000 +-95.170000 16.170000 +-95.670000 15.920000 +-96.250000 15.670000 +-96.830000 15.830000 +-97.420000 16.000000 +-98.000000 16.080000 +-98.500000 16.330000 +-99.000000 16.580000 +-99.500000 16.670000 +-100.000000 16.920000 +-100.500000 17.080000 +-101.000000 17.250000 +-101.580000 17.670000 +-101.580000 17.670000 +-102.000000 18.000000 +-102.250000 18.000000 +-102.830000 18.080000 +-103.500000 18.330000 +-103.830000 18.750000 +-104.330000 19.080000 +-104.920000 19.330000 +-105.330000 19.830000 +-105.670000 20.330000 +-105.330000 20.580000 +-105.500000 20.830000 +-105.170000 21.170000 +-105.170000 21.500000 +-105.500000 21.750000 +-105.670000 22.420000 +-106.000000 22.750000 +-106.420000 23.170000 +-106.750000 23.500000 +-107.170000 24.000000 +-107.580000 24.330000 +-108.000000 24.670000 +-108.330000 25.250000 +-109.000000 25.500000 +-109.420000 25.750000 +-109.420000 26.000000 +-109.250000 26.330000 +-109.500000 26.670000 +-109.750000 26.670000 +-110.000000 27.000000 +-110.580000 27.420000 +-110.580000 27.420000 +-110.580000 27.920000 +-111.170000 28.000000 +-111.670000 28.500000 +-112.170000 29.000000 +-112.420000 29.500000 +-112.750000 29.920000 +-112.830000 30.250000 +-113.080000 30.750000 +-113.080000 31.170000 +-113.500000 31.330000 +-113.830000 31.580000 +-114.170000 31.500000 +-114.750000 31.750000 +-114.830000 31.420000 +-114.750000 31.000000 +-114.580000 30.580000 +-114.670000 30.170000 +-114.420000 29.830000 +-114.000000 29.580000 +-113.670000 29.170000 +-113.250000 28.750000 +-112.920000 28.330000 +-112.750000 27.830000 +-112.330000 27.500000 +-112.000000 27.000000 +-111.500000 26.500000 +-111.330000 26.000000 +-111.000000 25.500000 +-111.000000 25.170000 +-110.670000 24.830000 +-110.670000 24.830000 +-110.830000 24.670000 +-110.580000 24.250000 +-110.170000 24.250000 +-109.750000 23.750000 +-109.420000 23.330000 +-110.000000 22.830000 +-110.330000 23.500000 +-110.830000 23.830000 +-111.250000 24.250000 +-111.670000 24.580000 +-112.330000 24.830000 +-112.080000 25.170000 +-112.080000 25.670000 +-112.330000 26.170000 +-112.830000 26.420000 +-113.170000 26.750000 +-113.580000 26.750000 +-114.000000 27.000000 +-114.330000 27.170000 +-114.500000 27.500000 +-115.000000 27.830000 +-114.420000 27.750000 +-114.000000 28.000000 +-114.000000 28.420000 +-114.330000 28.750000 +-114.670000 29.080000 +-115.170000 29.500000 +-115.670000 29.670000 +-115.750000 30.250000 +-116.000000 30.330000 +-116.000000 30.330000 +-116.000000 30.750000 +-116.330000 31.000000 +-116.330000 31.250000 +-116.580000 31.580000 +-116.750000 32.000000 +-117.080000 32.500000 +-117.250000 33.000000 +-117.500000 33.420000 +-118.000000 33.750000 +-118.330000 33.750000 +-118.420000 34.080000 +-118.750000 34.080000 +-119.250000 34.250000 +-119.830000 34.420000 +-120.580000 34.580000 +-120.580000 35.080000 +-121.080000 35.580000 +-121.420000 36.000000 +-121.920000 36.330000 +-121.830000 36.580000 +-121.830000 37.000000 +-122.170000 37.000000 +-122.420000 37.330000 +-122.500000 37.750000 +-122.080000 37.500000 +-122.330000 37.920000 +-122.170000 38.080000 +-122.500000 38.170000 +-122.500000 37.920000 +-123.000000 38.000000 +-123.000000 38.000000 +-122.920000 38.330000 +-123.330000 38.580000 +-123.670000 38.920000 +-123.750000 39.330000 +-123.750000 39.670000 +-124.000000 40.000000 +-124.330000 40.250000 +-124.330000 40.500000 +-124.080000 41.000000 +-124.000000 41.500000 +-124.170000 42.000000 +-124.420000 42.330000 +-124.500000 42.830000 +-124.250000 43.420000 +-124.080000 44.000000 +-124.000000 44.500000 +-124.000000 45.000000 +-123.830000 45.420000 +-123.920000 45.830000 +-123.920000 46.170000 +-123.170000 46.170000 +-123.920000 46.330000 +-124.000000 46.670000 +-124.080000 47.000000 +-124.330000 47.500000 +-124.580000 47.920000 +-124.750000 48.170000 +-124.670000 48.420000 +-123.830000 48.170000 +-123.170000 48.170000 +-123.170000 48.170000 +-122.580000 47.920000 +-123.000000 47.500000 +-122.580000 47.670000 +-122.500000 47.500000 +-122.250000 48.000000 +-122.331994 48.105088 +-122.414323 48.210118 +-122.496991 48.315089 +-122.580000 48.420000 +-122.540095 48.460021 +-122.500126 48.500028 +-122.460095 48.540021 +-122.420000 48.580000 +-122.501983 48.685088 +-122.584309 48.790118 +-122.666981 48.895089 +-122.750000 49.000000 +-123.170000 49.250000 +-123.170000 49.750000 +-123.750000 49.500000 +-124.330000 49.750000 +-124.920000 50.080000 +-125.500000 50.420000 +-126.250000 50.670000 +-127.000000 50.830000 +-127.750000 51.170000 +-127.750000 51.500000 +-128.170000 51.830000 +-128.420000 52.330000 +-129.170000 52.580000 +-129.750000 53.170000 +-130.330000 53.420000 +-130.750000 53.920000 +-130.170000 54.170000 +-130.420000 54.420000 +-130.080000 54.920000 +-130.750000 54.750000 +-131.330000 55.000000 +-131.750000 55.330000 +-131.750000 55.330000 +-132.080000 55.750000 +-132.000000 56.080000 +-132.500000 56.080000 +-133.000000 56.250000 +-132.580000 55.830000 +-132.080000 55.250000 +-132.080000 54.670000 +-132.500000 55.080000 +-133.080000 55.330000 +-133.420000 55.580000 +-133.670000 55.920000 +-133.670000 56.330000 +-134.170000 56.250000 +-134.330000 56.750000 +-133.830000 57.080000 +-133.000000 56.920000 +-133.420000 57.250000 +-133.750000 57.580000 +-134.000000 57.250000 +-134.500000 57.000000 +-134.500000 57.420000 +-134.750000 57.920000 +-134.670000 58.250000 +-135.000000 58.670000 +-135.170000 58.250000 +-135.670000 58.250000 +-135.000000 57.920000 +-135.000000 57.420000 +-134.750000 56.830000 +-134.750000 56.170000 +-134.750000 56.170000 +-135.170000 56.750000 +-135.500000 57.250000 +-136.170000 57.670000 +-136.500000 58.170000 +-137.250000 58.420000 +-137.920000 58.750000 +-138.670000 59.170000 +-139.500000 59.420000 +-139.670000 59.920000 +-140.250000 59.670000 +-141.080000 59.750000 +-142.000000 60.000000 +-143.000000 60.000000 +-144.000000 60.000000 +-145.000000 60.250000 +-146.000000 60.580000 +-146.670000 60.830000 +-147.500000 60.830000 +-148.330000 61.000000 +-148.170000 60.420000 +-148.670000 59.920000 +-149.500000 59.920000 +-150.170000 59.580000 +-150.920000 59.250000 +-151.920000 59.170000 +-151.420000 59.500000 +-151.920000 59.670000 +-151.420000 60.170000 +-151.330000 60.750000 +-150.420000 60.920000 +-150.420000 60.920000 +-150.295975 61.002673 +-150.171303 61.085231 +-150.045980 61.167674 +-149.920000 61.250000 +-150.107498 61.250388 +-150.295000 61.250517 +-150.482502 61.250388 +-150.670000 61.250000 +-151.670000 60.920000 +-152.250000 60.580000 +-152.500000 60.080000 +-153.080000 59.670000 +-153.830000 59.420000 +-154.080000 59.080000 +-153.330000 58.920000 +-153.830000 58.500000 +-154.330000 58.170000 +-155.250000 57.830000 +-156.170000 57.420000 +-156.670000 57.000000 +-157.670000 56.670000 +-158.420000 56.420000 +-158.750000 56.000000 +-159.580000 55.830000 +-160.500000 55.580000 +-161.420000 55.420000 +-162.000000 55.170000 +-162.830000 55.000000 +-163.670000 54.670000 +-164.750000 54.330000 +-164.920000 54.580000 +-163.920000 55.000000 +-162.920000 55.250000 +-162.330000 55.670000 +-161.420000 55.920000 +-160.500000 56.000000 +-160.500000 56.000000 +-159.920000 56.500000 +-159.000000 56.830000 +-158.330000 57.250000 +-157.670000 57.580000 +-157.500000 58.170000 +-157.420000 58.750000 +-158.000000 58.670000 +-158.670000 58.750000 +-158.920000 58.420000 +-159.580000 58.920000 +-161.000000 58.920000 +-161.580000 58.750000 +-161.920000 59.170000 +-161.670000 59.500000 +-162.170000 60.080000 +-163.000000 59.670000 +-163.830000 59.670000 +-164.330000 60.080000 +-164.920000 60.580000 +-165.250000 61.080000 +-166.000000 61.500000 +-165.500000 62.170000 +-164.830000 62.670000 +-164.670000 63.000000 +-163.920000 63.250000 +-163.000000 63.000000 +-162.250000 63.420000 +-161.000000 63.500000 +-160.750000 64.000000 +-161.250000 64.420000 +-161.250000 64.420000 +-161.000000 64.830000 +-161.920000 64.670000 +-162.670000 64.420000 +-163.670000 64.580000 +-164.920000 64.500000 +-166.330000 64.670000 +-166.670000 65.000000 +-166.330000 65.330000 +-167.250000 65.420000 +-167.394334 65.460207 +-167.539111 65.500277 +-167.684333 65.540208 +-167.830000 65.580000 +-167.583048 65.685609 +-167.334076 65.790816 +-167.083066 65.895615 +-166.830000 66.000000 +-165.750000 66.250000 +-164.670000 66.500000 +-163.830000 66.500000 +-163.750000 66.080000 +-162.170000 66.080000 +-161.750000 66.420000 +-162.500000 66.830000 +-163.500000 67.170000 +-164.000000 67.670000 +-165.250000 67.980000 +-166.170000 68.330000 +-166.000000 68.830000 +-164.830000 68.920000 +-163.500000 69.080000 +-163.000000 69.450000 +-162.670000 69.920000 +-161.580000 70.330000 +-160.420000 70.420000 +-159.000000 70.830000 +-159.000000 70.830000 +-157.580000 70.870000 +-156.330000 71.330000 +-154.830000 71.130000 +-154.330000 70.870000 +-152.500000 70.870000 +-151.500000 70.480000 +-150.330000 70.480000 +-149.000000 70.470000 +-147.500000 70.220000 +-146.170000 70.220000 +-145.080000 70.000000 +-144.000000 70.080000 +-142.830000 70.080000 +-141.830000 69.830000 +-141.000000 69.620000 +-139.500000 69.580000 +-138.330000 69.320000 +-137.330000 69.000000 +-136.000000 68.750000 +-135.920000 69.170000 +-135.170000 69.500000 +-134.170000 69.580000 +-133.330000 69.380000 +-132.580000 69.670000 +-131.170000 69.980000 +-129.830000 70.250000 +-129.420000 69.830000 +-128.500000 70.000000 +-128.000000 70.580000 +-126.670000 70.080000 +-126.670000 70.080000 +-126.170000 69.580000 +-125.330000 69.420000 +-124.420000 70.000000 +-124.330000 69.420000 +-123.500000 69.370000 +-123.000000 69.830000 +-121.330000 69.830000 +-120.250000 69.470000 +-118.830000 69.220000 +-117.500000 69.000000 +-116.000000 68.970000 +-114.670000 68.720000 +-114.080000 68.300000 +-115.080000 68.170000 +-115.330000 67.830000 +-114.170000 67.830000 +-113.000000 67.670000 +-111.580000 67.830000 +-110.250000 68.000000 +-109.250000 67.750000 +-108.170000 67.580000 +-107.830000 68.000000 +-109.000000 68.250000 +-108.250000 68.580000 +-106.920000 68.750000 +-105.670000 68.900000 +-104.580000 68.350000 +-103.000000 68.030000 +-101.750000 67.750000 +-100.000000 67.580000 +-100.000000 67.580000 +-98.750000 67.670000 +-98.670000 68.250000 +-98.000000 68.580000 +-99.580000 69.000000 +-98.580000 69.330000 +-97.920000 69.830000 +-96.420000 69.330000 +-95.580000 68.750000 +-96.920000 68.380000 +-96.830000 67.820000 +-95.830000 67.500000 +-95.500000 67.980000 +-95.170000 68.000000 +-94.250000 68.500000 +-94.670000 69.000000 +-94.000000 69.420000 +-95.670000 69.830000 +-96.750000 70.420000 +-96.250000 70.970000 +-95.830000 71.500000 +-95.000000 71.750000 +-95.000000 72.250000 +-95.000000 72.670000 +-95.250000 73.170000 +-95.580000 73.580000 +-95.170000 74.000000 +-93.170000 74.170000 +-91.170000 74.020000 +-90.170000 73.830000 +-90.670000 73.580000 +-90.670000 73.580000 +-91.330000 73.170000 +-91.920000 72.750000 +-93.080000 72.750000 +-94.000000 72.580000 +-93.500000 72.250000 +-94.170000 71.920000 +-93.500000 71.420000 +-92.670000 71.000000 +-91.920000 70.670000 +-91.330000 70.170000 +-92.420000 69.750000 +-91.330000 69.500000 +-90.670000 69.080000 +-89.920000 68.580000 +-88.920000 69.250000 +-88.000000 68.750000 +-88.000000 68.330000 +-88.170000 67.830000 +-87.250000 67.250000 +-86.500000 67.420000 +-86.500000 67.830000 +-85.420000 68.170000 +-85.420000 68.750000 +-85.500000 69.330000 +-85.500000 69.830000 +-84.250000 69.830000 +-82.920000 69.670000 +-82.750000 69.330000 +-81.330000 69.200000 +-81.330000 68.580000 +-81.330000 68.580000 +-82.420000 68.330000 +-82.420000 67.830000 +-81.170000 67.580000 +-81.420000 67.000000 +-82.670000 66.580000 +-83.750000 66.170000 +-85.080000 66.330000 +-85.500000 66.580000 +-86.750000 66.500000 +-86.000000 66.170000 +-87.000000 65.500000 +-87.000000 65.000000 +-87.750000 64.500000 +-88.500000 64.000000 +-90.000000 64.000000 +-90.670000 63.420000 +-90.580000 62.920000 +-91.580000 62.750000 +-92.500000 62.580000 +-92.500000 62.080000 +-93.170000 61.920000 +-93.670000 61.500000 +-94.170000 61.000000 +-94.420000 60.580000 +-94.670000 60.170000 +-94.750000 59.580000 +-94.750000 59.080000 +-94.420000 58.670000 +-93.750000 58.750000 +-93.080000 58.670000 +-93.080000 58.670000 +-92.670000 58.080000 +-92.670000 57.670000 +-92.330000 57.250000 +-92.330000 56.920000 +-91.750000 57.080000 +-91.000000 57.250000 +-90.000000 56.920000 +-89.000000 56.750000 +-88.080000 56.420000 +-87.933806 56.315255 +-87.788412 56.210339 +-87.643812 56.105254 +-87.500000 56.000000 +-87.331949 55.957841 +-87.164266 55.915455 +-86.996949 55.872840 +-86.830000 55.830000 +-86.000000 55.670000 +-85.000000 55.250000 +-84.000000 55.250000 +-83.000000 55.250000 +-82.170000 55.000000 +-82.420000 54.250000 +-82.170000 53.830000 +-82.170000 53.420000 +-82.330000 52.920000 +-81.670000 52.500000 +-81.250000 52.080000 +-80.750000 51.750000 +-80.420000 51.330000 +-79.750000 51.000000 +-79.830000 51.330000 +-79.000000 51.670000 +-78.420000 52.170000 +-78.830000 52.670000 +-78.830000 53.170000 +-78.830000 53.170000 +-78.920000 53.750000 +-79.170000 54.170000 +-79.500000 54.580000 +-78.750000 54.830000 +-78.000000 55.170000 +-77.250000 55.580000 +-76.750000 56.000000 +-76.750000 56.670000 +-77.000000 57.250000 +-77.170000 57.670000 +-77.500000 58.250000 +-78.080000 58.420000 +-78.670000 58.750000 +-78.580000 59.080000 +-77.920000 59.170000 +-77.420000 59.580000 +-77.420000 60.000000 +-77.580000 60.500000 +-78.080000 60.750000 +-77.750000 61.170000 +-77.688112 61.272543 +-77.625819 61.375057 +-77.563117 61.477543 +-77.500000 61.580000 +-77.644120 61.642729 +-77.788825 61.705306 +-77.934117 61.767730 +-78.080000 61.830000 +-78.080000 62.250000 +-77.420000 62.500000 +-76.420000 62.420000 +-75.500000 62.250000 +-74.830000 62.250000 +-73.670000 62.420000 +-72.920000 62.170000 +-72.250000 61.830000 +-72.250000 61.830000 +-71.500000 61.580000 +-71.750000 61.250000 +-71.000000 61.000000 +-70.250000 61.000000 +-69.500000 60.920000 +-69.670000 60.500000 +-69.420000 60.080000 +-69.500000 59.580000 +-69.500000 59.250000 +-69.000000 58.830000 +-68.420000 58.750000 +-67.750000 58.170000 +-66.750000 58.420000 +-66.420000 58.750000 +-65.670000 59.000000 +-65.250000 59.420000 +-65.580000 59.750000 +-65.170000 60.000000 +-64.670000 60.330000 +-64.330000 60.000000 +-63.830000 59.500000 +-63.250000 59.000000 +-62.830000 58.500000 +-62.330000 58.000000 +-61.830000 57.670000 +-61.830000 57.330000 +-61.330000 57.080000 +-61.750000 56.750000 +-61.750000 56.250000 +-61.330000 55.920000 +-61.330000 55.920000 +-60.500000 55.670000 +-60.330000 55.250000 +-59.250000 55.170000 +-58.920000 54.830000 +-58.000000 54.750000 +-57.874423 54.687693 +-57.749232 54.625257 +-57.624424 54.562693 +-57.500000 54.500000 +-57.708750 54.418035 +-57.916665 54.335712 +-58.123748 54.253033 +-58.330000 54.170000 +-58.079596 54.148277 +-57.829457 54.126036 +-57.579590 54.103276 +-57.330000 54.080000 +-57.250000 53.670000 +-56.500000 53.670000 +-55.830000 53.170000 +-56.000000 52.750000 +-55.670000 52.080000 +-56.170000 51.830000 +-56.830000 51.500000 +-57.830000 51.420000 +-58.670000 51.170000 +-59.080000 50.830000 +-59.500000 50.500000 +-60.000000 50.170000 +-60.920000 50.170000 +-61.670000 50.080000 +-62.170000 50.250000 +-62.830000 50.250000 +-63.420000 50.250000 +-64.000000 50.330000 +-64.750000 50.250000 +-65.420000 50.250000 +-66.000000 50.250000 +-66.750000 50.080000 +-66.750000 50.080000 +-67.170000 49.750000 +-67.330000 49.330000 +-68.000000 49.330000 +-68.670000 48.920000 +-69.250000 48.580000 +-69.670000 48.170000 +-70.000000 47.830000 +-70.420000 47.500000 +-70.750000 47.170000 +-71.170000 46.830000 +-70.500000 47.000000 +-70.080000 47.330000 +-69.670000 47.670000 +-69.250000 48.080000 +-68.670000 48.420000 +-68.000000 48.670000 +-67.420000 48.830000 +-66.750000 49.080000 +-66.000000 49.170000 +-65.250000 49.250000 +-64.580000 49.080000 +-64.250000 48.830000 +-64.250000 48.500000 +-64.830000 48.250000 +-65.330000 48.080000 +-66.330000 48.080000 +-65.670000 47.580000 +-64.830000 47.750000 +-65.000000 47.330000 +-64.920000 46.750000 +-64.920000 46.750000 +-64.580000 46.250000 +-64.000000 46.080000 +-63.250000 45.750000 +-62.580000 45.670000 +-62.000000 45.830000 +-61.500000 45.750000 +-61.500000 46.170000 +-61.000000 46.580000 +-60.670000 47.000000 +-60.420000 46.830000 +-60.500000 46.330000 +-60.331746 46.247868 +-60.163995 46.165489 +-59.996747 46.082866 +-59.830000 46.000000 +-59.978157 45.917785 +-60.125875 45.835380 +-60.273155 45.752784 +-60.420000 45.670000 +-61.000000 45.500000 +-61.170000 45.170000 +-62.000000 45.000000 +-63.000000 44.750000 +-63.670000 44.500000 +-64.170000 44.500000 +-64.500000 44.170000 +-65.000000 43.830000 +-65.500000 43.500000 +-66.000000 43.750000 +-66.170000 44.170000 +-65.920000 44.580000 +-65.330000 44.920000 +-64.920000 45.080000 +-64.250000 45.420000 +-64.920000 45.330000 +-64.830000 45.670000 +-64.830000 45.670000 +-65.580000 45.330000 +-66.250000 45.170000 +-67.000000 45.170000 +-67.000000 44.830000 +-67.500000 44.580000 +-68.000000 44.420000 +-68.580000 44.250000 +-68.830000 44.420000 +-69.170000 44.000000 +-69.750000 43.830000 +-70.250000 43.670000 +-70.250000 43.500000 +-70.580000 43.170000 +-70.830000 42.830000 +-70.750000 42.580000 +-71.000000 42.330000 +-70.670000 42.170000 +-70.500000 41.750000 +-70.000000 41.750000 +-70.000000 42.000000 +-70.000000 41.670000 +-70.670000 41.500000 +-70.670000 41.670000 +-71.080000 41.500000 +-71.330000 41.750000 +-71.500000 41.420000 +-72.000000 41.250000 +-72.500000 41.250000 +-73.000000 41.250000 +-73.500000 41.080000 +-73.500000 41.080000 +-74.000000 40.830000 +-74.330000 40.500000 +-74.000000 40.330000 +-74.170000 39.830000 +-74.500000 39.330000 +-75.000000 39.000000 +-75.250000 39.330000 +-75.580000 39.500000 +-75.420000 39.000000 +-75.314359 38.855141 +-75.209148 38.710188 +-75.104363 38.565140 +-75.000000 38.420000 +-75.062662 38.357550 +-75.125215 38.295066 +-75.187661 38.232550 +-75.250000 38.170000 +-75.580000 37.750000 +-75.750000 37.250000 +-76.000000 37.170000 +-75.830000 37.670000 +-75.670000 38.000000 +-76.000000 38.000000 +-75.920000 38.250000 +-76.330000 38.420000 +-76.170000 38.830000 +-76.170000 39.170000 +-76.000000 39.500000 +-76.420000 39.330000 +-76.580000 39.000000 +-76.500000 38.500000 +-76.420000 38.170000 +-76.920000 38.250000 +-76.330000 37.920000 +-76.420000 37.500000 +-76.420000 37.170000 +-76.420000 37.170000 +-76.000000 36.830000 +-75.830000 36.500000 +-75.750000 36.080000 +-75.500000 35.750000 +-75.750000 36.080000 +-76.000000 36.170000 +-76.330000 36.080000 +-76.750000 35.920000 +-76.250000 35.920000 +-75.830000 35.920000 +-75.830000 35.580000 +-76.000000 35.330000 +-76.330000 35.330000 +-76.830000 35.000000 +-76.330000 35.000000 +-76.580000 34.750000 +-77.170000 34.670000 +-77.580000 34.330000 +-78.000000 34.000000 +-78.420000 33.920000 +-78.920000 33.670000 +-79.170000 33.330000 +-79.500000 33.000000 +-80.000000 32.670000 +-80.500000 32.420000 +-81.000000 32.000000 +-81.250000 31.500000 +-81.500000 31.000000 +-81.420000 30.500000 +-81.330000 30.000000 +-81.330000 30.000000 +-81.080000 29.500000 +-80.920000 29.000000 +-80.580000 28.500000 +-80.580000 28.170000 +-80.330000 27.580000 +-80.080000 27.000000 +-80.080000 26.420000 +-80.170000 25.830000 +-80.420000 25.330000 +-80.670000 25.170000 +-81.080000 25.080000 +-81.250000 25.500000 +-81.670000 25.830000 +-81.920000 26.330000 +-82.170000 26.750000 +-82.500000 27.080000 +-82.519954 27.165004 +-82.539939 27.250006 +-82.559954 27.335004 +-82.580000 27.420000 +-82.540137 27.545017 +-82.500183 27.670023 +-82.460138 27.795017 +-82.420000 27.920000 +-82.502551 27.897574 +-82.585069 27.875098 +-82.667551 27.852574 +-82.750000 27.830000 +-82.750000 28.170000 +-82.670000 28.580000 +-82.830000 29.080000 +-83.080000 29.170000 +-83.500000 29.750000 +-83.920000 30.080000 +-84.420000 30.000000 +-84.830000 29.750000 +-85.330000 29.670000 +-85.500000 30.080000 +-86.000000 30.250000 +-86.000000 30.250000 +-86.330000 30.500000 +-86.830000 30.420000 +-87.330000 30.330000 +-87.830000 30.330000 +-88.000000 30.670000 +-88.250000 30.420000 +-88.750000 30.500000 +-89.170000 30.500000 +-89.670000 30.250000 +-90.170000 30.500000 +-90.420000 30.080000 +-90.080000 30.000000 +-89.670000 30.080000 +-89.250000 30.080000 +-89.330000 29.830000 +-89.580000 29.670000 +-89.580000 29.500000 +-89.080000 29.170000 +-89.250000 29.000000 +-89.500000 29.250000 +-89.830000 29.330000 +-90.170000 29.170000 +-90.750000 29.080000 +-91.250000 29.170000 +-91.330000 29.500000 +-91.830000 29.830000 +-92.250000 29.580000 +-92.750000 29.670000 +-93.250000 29.830000 +-93.830000 29.750000 +-93.830000 29.750000 +-94.250000 29.670000 +-94.750000 29.420000 +-94.750000 29.830000 +-94.832599 29.790077 +-94.915132 29.750102 +-94.997599 29.710077 +-95.080000 29.670000 +-95.017306 29.565044 +-94.954741 29.460058 +-94.892306 29.355044 +-94.830000 29.250000 +-94.915155 29.187581 +-95.000207 29.125107 +-95.085155 29.062580 +-95.170000 29.000000 +-95.500000 28.750000 +-96.000000 28.670000 +-96.500000 28.330000 +-97.000000 28.000000 +-97.330000 27.670000 +-97.420000 27.170000 +-97.250000 26.670000 +-97.250000 26.170000 +-97.170000 25.750000 +-97.420000 25.330000 +-97.580000 24.830000 +-97.750000 24.330000 +-97.750000 23.830000 +-97.750000 23.330000 +-97.750000 22.830000 +-97.920000 22.420000 +-97.750000 21.920000 +-97.250000 21.580000 +-97.420000 21.250000 +-97.250000 20.830000 +-97.000000 20.500000 +-96.670000 20.170000 +-96.420000 19.670000 +-96.170000 19.250000 +-96.170000 19.250000 +-95.830000 18.830000 +-95.330000 18.670000 +-94.830000 18.500000 +-94.500000 18.170000 +-94.170000 18.170000 +-93.580000 18.330000 +-93.000000 18.420000 +-92.420000 18.670000 +-91.830000 18.580000 +-91.830000 18.420000 +-91.250000 18.580000 +-91.330000 18.830000 +-91.000000 19.080000 +-90.670000 19.250000 +-90.670000 19.670000 +-90.500000 20.000000 +-90.420000 20.420000 +-90.330000 21.000000 +-90.000000 21.170000 +-89.500000 21.250000 +-89.000000 21.330000 +-88.500000 21.500000 +-88.000000 21.580000 +-87.580000 21.500000 +-87.080000 21.500000 +-86.830000 21.330000 +-86.830000 20.920000 +-87.250000 20.500000 +-87.420000 20.000000 +-87.440047 19.875003 +-87.460063 19.750004 +-87.480047 19.625003 +-87.500000 19.500000 +-87.500000 19.500000 +-87.500000 19.500000 +-87.500000 19.500000 +-87.500000 19.500000 +-87.520046 19.375003 +-87.540061 19.250004 +-87.560046 19.125003 +-87.580000 19.000000 +-87.670000 18.420000 +-87.920000 17.920000 +-88.170000 18.330000 +-88.250000 17.500000 +-88.250000 17.000000 +-88.500000 16.330000 +-89.000000 16.000000 +-88.580000 15.830000 +-88.170000 15.580000 +-87.580000 15.830000 +-87.000000 15.670000 +-86.500000 15.750000 +-86.000000 15.920000 +-85.500000 15.830000 +-85.000000 15.920000 +-84.670000 15.830000 +-84.250000 15.750000 +-83.830000 15.330000 +-83.420000 15.170000 +-83.250000 15.000000 +-83.250000 14.250000 +-83.500000 13.830000 +-83.500000 13.250000 +-83.500000 12.750000 +-83.670000 12.170000 +-83.670000 11.670000 +-83.830000 11.250000 +-83.670000 10.830000 +-83.420000 10.420000 +-83.420000 10.420000 +-83.170000 10.000000 +-82.750000 9.670000 +-82.330000 9.420000 +-82.170000 9.000000 +-81.750000 9.000000 +-81.420000 8.750000 +-80.830000 8.920000 +-80.330000 9.080000 +-79.830000 9.250000 +-79.580000 9.580000 +-79.080000 9.580000 +-78.670000 9.420000 +-78.250000 9.330000 +-77.830000 9.000000 +-77.500000 8.670000 +-77.170000 8.330000 +-76.750000 7.830000 +-76.750000 8.580000 +-76.250000 9.000000 +-76.000000 9.420000 +-75.580000 9.500000 +-75.580000 10.000000 +-75.500000 10.500000 +-75.250000 10.830000 +-74.830000 11.000000 +-74.420000 10.920000 +-74.170000 11.250000 +-73.500000 11.170000 +-73.000000 11.420000 +-72.670000 11.670000 +-72.670000 11.670000 +-72.250000 11.830000 +-72.000000 12.170000 +-71.670000 12.420000 +-71.330000 12.330000 +-71.170000 12.080000 +-71.420000 11.670000 +-71.920000 11.500000 +-71.670000 11.000000 +-71.500000 10.580000 +-71.750000 10.250000 +-72.000000 9.750000 +-71.750000 9.420000 +-71.670000 9.000000 +-71.080000 9.170000 +-71.080000 9.750000 +-71.420000 10.330000 +-71.420000 10.920000 +-71.000000 11.080000 +-70.580000 11.250000 +-70.170000 11.500000 +-70.330000 11.920000 +-69.920000 12.170000 +-69.750000 11.500000 +-69.330000 11.500000 +-68.830000 11.420000 +-68.420000 11.170000 +-68.330000 10.750000 +-68.170000 10.420000 +-67.580000 10.500000 +-67.000000 10.500000 +-67.000000 10.500000 +-66.580000 10.580000 +-66.170000 10.580000 +-66.000000 10.330000 +-65.580000 10.170000 +-65.000000 10.080000 +-64.500000 10.250000 +-64.000000 10.670000 +-63.420000 10.670000 +-62.750000 10.670000 +-62.605000 10.670100 +-62.460000 10.670134 +-62.315000 10.670100 +-62.170000 10.670000 +-62.377586 10.627704 +-62.585115 10.585271 +-62.792586 10.542703 +-63.000000 10.500000 +-62.670000 10.170000 +-62.330000 9.750000 +-62.000000 9.830000 +-61.580000 9.670000 +-61.000000 9.500000 +-60.830000 9.000000 +-61.000000 8.420000 +-60.250000 8.580000 +-59.670000 8.250000 +-59.170000 7.920000 +-58.670000 7.580000 +-58.500000 7.170000 +-58.580000 6.750000 +-58.170000 6.830000 +-57.670000 6.500000 +-57.330000 6.250000 +-57.080000 5.920000 +-56.500000 5.830000 +-56.000000 5.830000 +-56.000000 5.830000 +-55.500000 5.920000 +-55.000000 5.920000 +-54.500000 5.830000 +-54.000000 5.670000 +-53.670000 5.580000 +-53.250000 5.420000 +-52.750000 5.170000 +-52.330000 4.830000 +-51.830000 4.500000 +-51.500000 4.250000 +-51.000000 3.750000 +-51.000000 3.170000 +-50.670000 2.500000 +-50.500000 1.830000 +-49.920000 1.750000 +-50.000000 1.000000 +-50.420000 0.500000 +-50.750000 0.170000 +-51.170000 -0.170000 +-51.330000 -0.670000 +-51.420000 -1.250000 +-50.830000 -1.000000 +-50.580000 -1.670000 +-50.420000 -1.000000 +-50.420000 -0.420000 +-50.000000 -0.170000 +-49.500000 -0.250000 +-49.000000 -0.170000 +-48.420000 -0.330000 +-48.580000 -1.000000 +-48.580000 -1.000000 +-48.750000 -1.420000 +-48.500000 -1.580000 +-48.170000 -0.830000 +-47.830000 -0.670000 +-47.250000 -0.670000 +-46.670000 -1.000000 +-46.170000 -1.170000 +-45.500000 -1.330000 +-45.330000 -1.670000 +-44.830000 -1.500000 +-44.670000 -1.920000 +-44.420000 -2.330000 +-44.580000 -2.830000 +-44.000000 -2.670000 +-43.500000 -2.420000 +-43.000000 -2.500000 +-42.500000 -2.750000 +-42.000000 -2.750000 +-41.500000 -3.000000 +-41.000000 -3.000000 +-40.500000 -2.830000 +-40.000000 -2.830000 +-39.500000 -3.170000 +-39.000000 -3.500000 +-38.500000 -3.830000 +-38.170000 -4.170000 +-37.830000 -4.500000 +-37.330000 -4.750000 +-37.000000 -5.080000 +-36.500000 -5.170000 +-36.500000 -5.170000 +-36.000000 -5.080000 +-35.420000 -5.250000 +-35.170000 -5.830000 +-35.000000 -6.420000 +-34.830000 -7.000000 +-34.750000 -7.500000 +-34.830000 -8.170000 +-35.080000 -8.670000 +-35.330000 -9.170000 +-35.580000 -9.580000 +-36.000000 -10.000000 +-36.250000 -10.420000 +-36.750000 -10.750000 +-37.000000 -11.000000 +-37.330000 -11.500000 +-37.580000 -12.000000 +-38.000000 -12.580000 +-38.420000 -13.000000 +-38.920000 -13.330000 +-39.000000 -14.000000 +-39.080000 -14.500000 +-39.000000 -15.000000 +-39.000000 -15.500000 +-38.920000 -16.000000 +-39.080000 -16.580000 +-39.170000 -17.170000 +-39.170000 -17.670000 +-39.500000 -18.000000 +-39.580000 -18.500000 +-39.580000 -19.000000 +-39.580000 -19.000000 +-39.670000 -19.500000 +-40.170000 -20.000000 +-40.330000 -20.500000 +-40.830000 -21.000000 +-41.000000 -21.500000 +-41.000000 -22.000000 +-41.500000 -22.250000 +-42.000000 -22.500000 +-42.000000 -22.920000 +-42.500000 -22.920000 +-43.000000 -23.000000 +-43.500000 -23.000000 +-44.000000 -22.920000 +-44.670000 -23.000000 +-44.500000 -23.330000 +-45.000000 -23.330000 +-45.420000 -23.830000 +-45.750000 -23.670000 +-46.330000 -24.000000 +-46.830000 -24.170000 +-47.250000 -24.580000 +-47.750000 -25.000000 +-48.170000 -25.420000 +-48.580000 -25.830000 +-48.580000 -26.330000 +-48.580000 -27.000000 +-48.500000 -27.500000 +-48.580000 -28.000000 +-48.750000 -28.500000 +-49.000000 -28.670000 +-49.000000 -28.670000 +-49.420000 -29.000000 +-49.830000 -29.500000 +-50.170000 -30.000000 +-50.330000 -30.500000 +-50.670000 -31.000000 +-51.000000 -31.500000 +-51.500000 -31.830000 +-52.000000 -32.170000 +-52.420000 -32.500000 +-52.580000 -33.000000 +-53.000000 -33.500000 +-53.500000 -33.830000 +-53.580000 -34.170000 +-54.000000 -34.500000 +-54.500000 -34.750000 +-55.000000 -34.830000 +-55.670000 -34.750000 +-56.250000 -34.830000 +-56.830000 -34.670000 +-57.170000 -34.420000 +-57.830000 -34.420000 +-58.330000 -34.000000 +-58.500000 -34.330000 +-58.330000 -34.670000 +-57.500000 -35.000000 +-57.170000 -35.330000 +-57.420000 -35.830000 +-57.170000 -36.250000 +-56.750000 -36.330000 +-56.670000 -36.830000 +-56.670000 -36.830000 +-57.000000 -37.330000 +-57.420000 -37.750000 +-57.580000 -38.170000 +-58.170000 -38.420000 +-58.670000 -38.580000 +-59.330000 -38.750000 +-60.000000 -38.830000 +-60.500000 -38.920000 +-61.250000 -39.000000 +-62.000000 -39.000000 +-62.250000 -38.750000 +-62.330000 -39.170000 +-62.000000 -39.500000 +-62.170000 -39.830000 +-62.420000 -40.330000 +-62.250000 -40.580000 +-62.330000 -40.920000 +-63.000000 -41.170000 +-63.830000 -41.170000 +-64.330000 -41.000000 +-64.830000 -40.750000 +-64.914760 -40.812593 +-64.999679 -40.875125 +-65.084759 -40.937594 +-65.170000 -41.000000 +-65.127743 -41.125023 +-65.085325 -41.250031 +-65.042745 -41.375024 +-65.000000 -41.500000 +-65.000000 -42.080000 +-64.500000 -42.330000 +-63.750000 -42.080000 +-63.580000 -42.580000 +-63.670000 -42.830000 +-64.170000 -42.830000 +-64.500000 -42.500000 +-64.500000 -42.500000 +-65.000000 -42.830000 +-64.330000 -43.000000 +-65.000000 -43.330000 +-65.250000 -43.670000 +-65.170000 -44.000000 +-65.170000 -44.500000 +-65.580000 -44.670000 +-65.580000 -45.000000 +-66.170000 -45.000000 +-66.830000 -45.250000 +-67.170000 -45.500000 +-67.500000 -46.000000 +-67.420000 -46.500000 +-67.000000 -46.830000 +-66.500000 -47.170000 +-65.750000 -47.170000 +-65.670000 -47.500000 +-65.830000 -48.000000 +-66.330000 -48.330000 +-67.000000 -48.670000 +-67.500000 -49.000000 +-67.670000 -49.500000 +-67.830000 -50.000000 +-68.500000 -50.170000 +-69.000000 -50.500000 +-69.170000 -51.000000 +-69.000000 -51.420000 +-68.830000 -51.830000 +-68.330000 -52.330000 +-69.000000 -52.250000 +-69.000000 -52.250000 +-69.500000 -52.250000 +-69.580000 -52.500000 +-70.000000 -52.500000 +-70.750000 -52.750000 +-70.920000 -53.250000 +-70.920000 -53.750000 +-71.250000 -53.830000 +-72.000000 -53.670000 +-72.250000 -53.420000 +-71.330000 -53.170000 +-71.080000 -52.830000 +-71.500000 -52.750000 +-72.000000 -53.170000 +-72.500000 -53.420000 +-73.170000 -53.170000 +-73.500000 -52.920000 +-73.500000 -52.670000 +-74.000000 -52.580000 +-74.170000 -52.170000 +-74.500000 -52.420000 +-75.000000 -52.250000 +-75.000000 -51.750000 +-74.330000 -51.830000 +-74.170000 -51.500000 +-74.330000 -51.000000 +-74.500000 -51.330000 +-74.706647 -51.393048 +-74.913864 -51.455732 +-75.121648 -51.518050 +-75.330000 -51.580000 +-75.246944 -51.477587 +-75.164261 -51.375116 +-75.081947 -51.272587 +-75.000000 -51.170000 +-74.830000 -50.670000 +-74.500000 -50.750000 +-74.500000 -50.750000 +-74.670000 -50.420000 +-74.500000 -50.000000 +-75.330000 -50.750000 +-75.330000 -50.170000 +-75.247177 -50.107588 +-75.164570 -50.045117 +-75.082178 -49.982588 +-75.000000 -49.920000 +-75.125174 -49.897702 +-75.250233 -49.875269 +-75.375175 -49.852701 +-75.500000 -49.830000 +-75.420000 -49.420000 +-75.580000 -49.170000 +-75.420000 -48.580000 +-75.420000 -48.170000 +-75.330000 -47.830000 +-74.920000 -47.750000 +-74.500000 -48.330000 +-74.500000 -47.830000 +-74.420000 -47.420000 +-74.000000 -46.830000 +-74.500000 -46.830000 +-75.000000 -46.670000 +-75.500000 -46.920000 +-75.500000 -46.580000 +-74.750000 -46.170000 +-75.000000 -45.920000 +-74.500000 -45.830000 +-74.670000 -45.580000 +-74.500000 -45.250000 +-74.330000 -45.000000 +-74.500000 -44.580000 +-74.250000 -44.170000 +-73.830000 -43.830000 +-73.500000 -44.170000 +-73.500000 -44.170000 +-73.670000 -44.420000 +-73.580000 -44.670000 +-73.830000 -45.000000 +-73.670000 -45.170000 +-73.580000 -45.500000 +-73.330000 -45.000000 +-73.420000 -44.670000 +-73.000000 -44.420000 +-73.170000 -44.170000 +-72.830000 -43.750000 +-73.000000 -43.420000 +-72.750000 -43.000000 +-72.750000 -42.330000 +-72.687381 -42.290051 +-72.624841 -42.250068 +-72.562381 -42.210051 +-72.500000 -42.170000 +-72.562626 -42.127551 +-72.625167 -42.085068 +-72.687626 -42.042551 +-72.750000 -42.000000 +-72.687258 -41.917551 +-72.624678 -41.835068 +-72.562259 -41.752551 +-72.500000 -41.670000 +-72.625247 -41.627703 +-72.750329 -41.585271 +-72.875247 -41.542703 +-73.000000 -41.500000 +-73.170000 -41.830000 +-73.580000 -41.750000 +-73.750000 -41.420000 +-73.830000 -41.000000 +-73.670000 -40.580000 +-73.670000 -40.000000 +-73.250000 -39.500000 +-73.330000 -39.000000 +-73.420000 -38.580000 +-73.420000 -38.170000 +-73.670000 -37.750000 +-73.500000 -37.170000 +-73.080000 -37.170000 +-73.080000 -37.170000 +-73.080000 -36.670000 +-72.830000 -36.500000 +-72.670000 -36.000000 +-72.500000 -35.500000 +-72.170000 -35.000000 +-71.920000 -34.500000 +-71.830000 -34.000000 +-71.580000 -33.670000 +-71.670000 -33.170000 +-71.330000 -32.500000 +-71.500000 -32.170000 +-71.500000 -31.830000 +-71.580000 -31.330000 +-71.670000 -30.750000 +-71.580000 -30.250000 +-71.250000 -30.000000 +-71.330000 -29.330000 +-71.500000 -29.000000 +-71.250000 -28.500000 +-71.170000 -28.000000 +-70.920000 -27.500000 +-70.920000 -27.000000 +-70.580000 -26.330000 +-70.750000 -25.750000 +-70.500000 -25.420000 +-70.500000 -25.000000 +-70.580000 -24.500000 +-70.500000 -24.000000 +-70.500000 -23.500000 +-70.500000 -23.000000 +-70.500000 -23.000000 +-70.250000 -22.500000 +-70.170000 -22.000000 +-70.080000 -21.500000 +-70.170000 -21.000000 +-70.170000 -20.500000 +-70.080000 -20.000000 +-70.250000 -19.330000 +-70.330000 -18.750000 +-70.330000 -18.250000 +-70.830000 -17.830000 +-71.170000 -17.670000 +-71.500000 -17.250000 +-72.000000 -17.000000 +-72.500000 -16.670000 +-72.830000 -16.580000 +-73.500000 -16.250000 +-74.000000 -15.830000 +-74.500000 -15.750000 +-75.170000 -15.330000 +-75.500000 -15.000000 +-75.830000 -14.670000 +-76.250000 -14.170000 +-76.170000 -13.670000 +-76.500000 -13.000000 +-76.670000 -12.500000 +-77.000000 -12.170000 +-77.170000 -11.830000 +-77.500000 -11.330000 +-77.670000 -10.830000 +-78.170000 -10.170000 +-78.170000 -10.170000 +-78.330000 -9.670000 +-78.500000 -9.170000 +-78.670000 -8.670000 +-79.000000 -8.170000 +-79.500000 -7.830000 +-79.670000 -7.250000 +-80.000000 -6.830000 +-80.330000 -6.500000 +-80.830000 -6.250000 +-81.170000 -6.000000 +-80.830000 -5.670000 +-81.170000 -5.170000 +-81.330000 -4.670000 +-81.330000 -4.250000 +-80.830000 -3.830000 +-80.330000 -3.500000 +-80.000000 -3.330000 +-79.830000 -2.830000 +-79.670000 -2.500000 +-80.080000 -2.500000 +-80.170000 -3.000000 +-80.580000 -2.500000 +-80.920000 -2.330000 +-80.750000 -2.170000 +-80.750000 -1.670000 +-80.920000 -1.000000 +-80.500000 -0.830000 +-80.500000 -0.330000 +-80.080000 0.000000 +32 +-125.080000 66.080000 +-123.580000 66.130000 +-122.000000 66.250000 +-121.000000 66.000000 +-122.000000 65.750000 +-122.750000 65.580000 +-123.250000 65.000000 +-121.750000 65.000000 +-121.580000 65.330000 +-120.670000 65.670000 +-120.500000 65.330000 +-121.000000 64.830000 +-119.330000 65.370000 +-120.000000 65.820000 +-118.420000 65.670000 +-118.080000 66.080000 +-117.670000 66.420000 +-119.080000 66.330000 +-119.434033 66.353710 +-119.788725 66.376615 +-120.144054 66.398713 +-120.500000 66.420000 +-120.313912 66.482835 +-120.126886 66.545448 +-119.938916 66.607837 +-119.750000 66.670000 +-118.920000 66.920000 +-120.000000 67.080000 +-121.330000 66.750000 +-122.670000 66.580000 +-123.830000 66.370000 +-125.080000 66.080000 +43 +-117.000000 61.170000 +-116.000000 60.830000 +-115.250000 60.830000 +-114.420000 61.000000 +-113.920000 60.920000 +-113.750000 61.250000 +-112.920000 61.420000 +-112.170000 61.580000 +-111.750000 62.080000 +-110.920000 62.330000 +-110.648118 62.353298 +-110.375818 62.376065 +-110.103109 62.398299 +-109.830000 62.420000 +-109.914466 62.482577 +-109.999286 62.545103 +-110.084464 62.607578 +-110.170000 62.670000 +-109.877506 62.670914 +-109.585000 62.671218 +-109.292494 62.670914 +-109.000000 62.670000 +-110.000000 62.830000 +-110.750000 62.830000 +-111.580000 62.670000 +-111.920000 62.420000 +-112.420000 62.080000 +-113.080000 62.000000 +-113.830000 62.170000 +-114.170000 62.420000 +-115.330000 62.420000 +-115.080000 62.170000 +-114.933783 62.085229 +-114.788382 62.000304 +-114.643789 61.915227 +-114.500000 61.830000 +-114.687865 61.810384 +-114.875488 61.790511 +-115.062867 61.770383 +-115.250000 61.750000 +-115.330000 61.420000 +-115.830000 61.170000 +-117.000000 61.170000 +19 +-111.250000 58.670000 +-110.330000 58.580000 +-110.000000 58.920000 +-109.250000 59.080000 +-108.250000 59.080000 +-108.043274 59.122995 +-107.836031 59.165661 +-107.628273 59.207997 +-107.420000 59.250000 +-107.564456 59.292741 +-107.709274 59.335322 +-107.854456 59.377742 +-108.000000 59.420000 +-108.580000 59.420000 +-109.170000 59.670000 +-109.670000 59.670000 +-110.170000 59.250000 +-110.670000 59.000000 +-111.250000 58.670000 +20 +-103.080000 56.330000 +-102.170000 56.580000 +-102.170000 57.000000 +-102.170000 57.420000 +-101.580000 57.670000 +-102.080000 58.170000 +-102.500000 57.750000 +-102.583063 57.667581 +-102.665748 57.585108 +-102.748060 57.502580 +-102.830000 57.420000 +-102.746794 57.315081 +-102.664061 57.210108 +-102.581798 57.105081 +-102.500000 57.000000 +-102.562914 56.917547 +-102.625551 56.835062 +-102.687912 56.752547 +-102.750000 56.670000 +-103.080000 56.330000 +21 +-99.250000 53.330000 +-98.920000 53.000000 +-98.670000 52.500000 +-98.170000 52.250000 +-98.170000 51.920000 +-97.420000 51.920000 +-97.330000 51.420000 +-96.830000 51.580000 +-96.920000 51.170000 +-97.000000 50.750000 +-97.000000 50.330000 +-96.420000 50.500000 +-96.170000 51.170000 +-96.580000 51.580000 +-97.000000 52.170000 +-97.250000 52.670000 +-97.580000 53.170000 +-97.830000 53.670000 +-98.420000 53.750000 +-99.000000 53.750000 +-99.250000 53.330000 +29 +-101.170000 53.080000 +-100.830000 52.580000 +-100.420000 52.830000 +-100.314548 52.767639 +-100.209398 52.705186 +-100.104549 52.642639 +-100.000000 52.580000 +-100.062767 52.517549 +-100.125355 52.455066 +-100.187766 52.392549 +-100.250000 52.330000 +-100.250000 51.830000 +-99.670000 51.580000 +-99.000000 51.170000 +-99.000000 50.830000 +-98.670000 50.500000 +-98.750000 50.170000 +-98.000000 50.250000 +-98.250000 50.670000 +-98.580000 50.920000 +-98.830000 51.250000 +-98.670000 51.670000 +-99.170000 51.750000 +-99.670000 51.580000 +-99.830000 52.170000 +-99.580000 52.420000 +-99.580000 52.750000 +-100.250000 53.080000 +-101.170000 53.080000 +41 +-92.080000 46.670000 +-91.580000 46.670000 +-90.920000 46.920000 +-90.500000 46.500000 +-89.750000 46.750000 +-89.000000 47.000000 +-88.250000 47.420000 +-87.750000 47.420000 +-88.420000 47.080000 +-88.420000 46.750000 +-87.750000 46.830000 +-87.330000 46.420000 +-86.670000 46.420000 +-85.830000 46.670000 +-85.000000 46.750000 +-85.000000 46.500000 +-84.875000 46.500204 +-84.750000 46.500272 +-84.625000 46.500204 +-84.500000 46.500000 +-84.562136 46.605051 +-84.624514 46.710068 +-84.687134 46.815051 +-84.750000 46.920000 +-84.670000 47.330000 +-85.000000 47.580000 +-85.000000 47.920000 +-85.750000 47.920000 +-86.170000 48.250000 +-86.500000 48.750000 +-87.330000 48.750000 +-88.080000 49.000000 +-88.420000 48.670000 +-89.080000 48.420000 +-89.420000 48.080000 +-89.830000 47.830000 +-89.830000 47.830000 +-90.500000 47.670000 +-91.000000 47.330000 +-91.580000 47.000000 +-92.080000 46.670000 +83 +-88.000000 44.580000 +-87.813327 44.665459 +-87.626103 44.750614 +-87.438328 44.835461 +-87.250000 44.920000 +-87.312841 44.815051 +-87.375454 44.710068 +-87.437839 44.605051 +-87.500000 44.500000 +-87.520085 44.417505 +-87.540113 44.335007 +-87.560084 44.252505 +-87.580000 44.170000 +-87.750000 43.580000 +-87.920000 43.170000 +-87.830000 42.750000 +-87.830000 42.170000 +-87.747014 42.045089 +-87.664354 41.920118 +-87.582016 41.795088 +-87.500000 41.670000 +-87.395000 41.670143 +-87.290000 41.670191 +-87.185000 41.670143 +-87.080000 41.670000 +-86.670000 41.830000 +-86.420000 42.170000 +-86.250000 42.750000 +-86.330000 43.250000 +-86.500000 43.670000 +-86.500000 44.080000 +-86.250000 44.500000 +-86.080000 44.920000 +-85.330000 45.170000 +-85.000000 45.670000 +-84.875000 45.670204 +-84.750000 45.670273 +-84.625000 45.670204 +-84.500000 45.670000 +-84.394761 45.627644 +-84.289682 45.585192 +-84.184762 45.542644 +-84.080000 45.500000 +-83.580000 45.330000 +-83.330000 45.000000 +-83.330000 44.420000 +-83.830000 43.920000 +-83.830000 43.580000 +-83.420000 43.920000 +-82.920000 44.080000 +-82.670000 43.580000 +-82.670000 43.580000 +-82.420000 43.080000 +-81.750000 43.330000 +-81.750000 43.920000 +-81.500000 44.420000 +-81.330000 44.830000 +-81.500000 45.170000 +-80.920000 44.750000 +-80.080000 44.500000 +-79.997852 44.582589 +-79.915470 44.665119 +-79.832853 44.747589 +-79.750000 44.830000 +-79.874033 44.977704 +-79.998707 45.125273 +-80.124027 45.272705 +-80.250000 45.420000 +-80.750000 45.920000 +-81.670000 46.080000 +-82.330000 46.170000 +-83.000000 46.170000 +-83.670000 46.250000 +-84.170000 46.250000 +-84.000000 45.920000 +-84.830000 45.920000 +-85.250000 46.000000 +-85.750000 45.920000 +-86.750000 45.750000 +-87.000000 45.750000 +-87.330000 45.420000 +-87.670000 45.000000 +-88.000000 44.580000 +6 +-83.080000 45.830000 +-82.330000 45.830000 +-81.750000 45.920000 +-81.920000 45.500000 +-82.420000 45.670000 +-83.080000 45.830000 +18 +-83.500000 41.750000 +-82.830000 41.500000 +-82.250000 41.500000 +-81.670000 41.580000 +-81.080000 41.830000 +-80.500000 42.000000 +-79.830000 42.250000 +-79.250000 42.500000 +-78.830000 42.830000 +-79.500000 42.830000 +-80.170000 42.830000 +-80.500000 42.580000 +-80.920000 42.670000 +-81.500000 42.580000 +-81.830000 42.250000 +-82.500000 42.000000 +-83.080000 42.000000 +-83.500000 41.750000 +16 +-79.750000 43.250000 +-79.250000 43.170000 +-78.580000 43.330000 +-78.000000 43.330000 +-77.420000 43.250000 +-76.830000 43.330000 +-76.170000 43.500000 +-76.250000 44.000000 +-76.080000 44.330000 +-76.670000 44.170000 +-77.000000 43.920000 +-77.670000 44.000000 +-78.170000 43.920000 +-78.830000 43.830000 +-79.420000 43.670000 +-79.750000 43.250000 +8 +-91.420000 0.080000 +-91.080000 -0.330000 +-90.830000 -0.750000 +-91.170000 -1.080000 +-91.500000 -0.920000 +-91.170000 -0.670000 +-91.500000 -0.420000 +-91.420000 0.080000 +10 +-74.000000 -41.830000 +-73.420000 -42.000000 +-73.330000 -42.330000 +-73.670000 -42.670000 +-73.500000 -43.000000 +-73.750000 -43.420000 +-74.330000 -43.330000 +-74.170000 -42.670000 +-74.170000 -42.330000 +-74.000000 -41.830000 +61 +-68.750000 -52.580000 +-68.250000 -53.000000 +-68.170000 -53.330000 +-68.000000 -53.670000 +-67.420000 -54.000000 +-66.750000 -54.250000 +-66.330000 -54.500000 +-65.830000 -54.670000 +-65.170000 -54.670000 +-65.250000 -54.920000 +-65.670000 -55.000000 +-66.500000 -55.000000 +-67.330000 -55.250000 +-68.170000 -55.250000 +-68.000000 -55.670000 +-68.670000 -55.420000 +-69.330000 -55.500000 +-69.830000 -55.330000 +-70.000000 -55.000000 +-70.500000 -55.170000 +-71.170000 -55.000000 +-72.000000 -54.670000 +-72.000000 -54.670000 +-72.000000 -54.420000 +-72.500000 -54.420000 +-72.670000 -54.080000 +-73.330000 -54.080000 +-73.330000 -53.830000 +-73.830000 -53.580000 +-73.500000 -53.330000 +-74.000000 -53.250000 +-74.500000 -53.000000 +-74.670000 -52.750000 +-74.000000 -53.000000 +-73.330000 -53.250000 +-72.500000 -53.580000 +-72.080000 -53.830000 +-71.330000 -54.000000 +-71.000000 -54.170000 +-70.500000 -53.670000 +-70.330000 -54.170000 +-70.247620 -54.190084 +-70.165160 -54.210113 +-70.082620 -54.230085 +-70.000000 -54.250000 +-70.020181 -54.125005 +-70.040240 -54.000007 +-70.060180 -53.875005 +-70.080000 -53.750000 +-69.891667 -53.687940 +-69.703889 -53.625586 +-69.516667 -53.562939 +-69.330000 -53.500000 +-69.420000 -53.330000 +-70.170000 -53.500000 +-70.420000 -53.330000 +-70.250000 -52.830000 +-69.750000 -52.830000 +-69.500000 -52.580000 +-69.170000 -52.670000 +-68.750000 -52.580000 +16 +-61.170000 -51.830000 +-60.500000 -52.000000 +-60.170000 -51.750000 +-60.500000 -51.420000 +-59.670000 -51.330000 +-59.000000 -51.500000 +-58.330000 -51.330000 +-57.750000 -51.500000 +-57.750000 -51.830000 +-58.500000 -52.000000 +-58.830000 -52.250000 +-59.500000 -52.330000 +-59.670000 -52.080000 +-60.000000 -52.000000 +-60.500000 -52.250000 +-61.170000 -51.830000 +8 +-38.000000 -54.000000 +-37.000000 -54.080000 +-36.250000 -54.330000 +-35.830000 -54.580000 +-36.000000 -54.920000 +-36.580000 -54.500000 +-37.250000 -54.250000 +-38.000000 -54.000000 +8 +-61.830000 10.000000 +-61.500000 10.170000 +-61.500000 10.580000 +-61.670000 10.670000 +-61.000000 10.750000 +-61.000000 10.250000 +-61.250000 10.000000 +-61.830000 10.000000 +2 +-69.130000 12.350000 +-68.800000 12.070000 +13 +-78.330000 18.170000 +-78.250000 18.330000 +-77.830000 18.500000 +-77.330000 18.420000 +-76.830000 18.330000 +-76.420000 18.170000 +-76.250000 17.830000 +-76.580000 17.830000 +-76.920000 17.920000 +-77.250000 17.750000 +-77.670000 17.830000 +-78.000000 18.170000 +-78.330000 18.170000 +14 +-83.070000 21.770000 +-82.870000 21.980000 +-82.650000 21.820000 +-82.612443 21.747513 +-82.574925 21.675017 +-82.537444 21.602513 +-82.500000 21.530000 +-82.582542 21.505061 +-82.665057 21.480081 +-82.747542 21.455061 +-82.830000 21.430000 +-83.050000 21.470000 +-82.950000 21.600000 +-83.070000 21.770000 +70 +-84.830000 21.830000 +-84.330000 22.000000 +-84.330000 22.330000 +-84.000000 22.580000 +-83.500000 22.830000 +-83.000000 22.920000 +-82.500000 23.000000 +-82.000000 23.170000 +-81.500000 23.170000 +-81.000000 23.000000 +-80.500000 23.000000 +-80.080000 22.830000 +-79.670000 22.670000 +-79.330000 22.330000 +-78.830000 22.330000 +-78.330000 22.170000 +-77.830000 21.920000 +-77.420000 21.670000 +-77.000000 21.500000 +-76.500000 21.170000 +-76.000000 21.080000 +-75.580000 21.000000 +-75.670000 20.580000 +-75.330000 20.670000 +-74.830000 20.580000 +-74.500000 20.250000 +-74.250000 20.250000 +-74.170000 20.080000 +-74.170000 20.080000 +-74.670000 20.000000 +-75.000000 19.830000 +-75.500000 19.830000 +-76.000000 19.920000 +-76.500000 19.920000 +-77.000000 19.830000 +-77.167500 19.830234 +-77.335000 19.830313 +-77.502500 19.830234 +-77.670000 19.830000 +-77.607574 19.892533 +-77.545099 19.955044 +-77.482574 20.017533 +-77.420000 20.080000 +-77.080000 20.330000 +-77.250000 20.670000 +-78.000000 20.670000 +-78.500000 21.000000 +-78.580000 21.420000 +-78.750000 21.580000 +-79.250000 21.500000 +-79.750000 21.670000 +-80.170000 21.750000 +-80.500000 22.000000 +-81.250000 22.000000 +-81.750000 22.080000 +-82.080000 22.330000 +-81.580000 22.500000 +-82.250000 22.580000 +-82.750000 22.670000 +-83.080000 22.420000 +-83.420000 22.170000 +-84.000000 22.170000 +-84.042577 22.085016 +-84.085102 22.000022 +-84.127576 21.915016 +-84.170000 21.830000 +-84.335000 21.830246 +-84.500000 21.830328 +-84.665000 21.830246 +-84.830000 21.830000 +45 +-74.500000 18.330000 +-74.170000 18.580000 +-73.670000 18.500000 +-73.250000 18.330000 +-72.750000 18.330000 +-72.645115 18.392587 +-72.540153 18.455116 +-72.435115 18.517587 +-72.330000 18.580000 +-72.434804 18.685088 +-72.539738 18.790117 +-72.644803 18.895088 +-72.750000 19.000000 +-72.750000 19.330000 +-73.000000 19.670000 +-73.000000 19.670000 +-73.500000 19.670000 +-73.170000 19.920000 +-72.580000 19.920000 +-72.000000 19.670000 +-71.670000 19.830000 +-71.000000 19.830000 +-70.500000 19.750000 +-69.920000 19.670000 +-69.750000 19.330000 +-69.170000 19.330000 +-69.580000 19.080000 +-68.750000 18.920000 +-68.330000 18.500000 +-68.670000 18.080000 +-69.000000 18.420000 +-69.500000 18.420000 +-70.080000 18.250000 +-70.580000 18.170000 +-70.580000 18.420000 +-71.080000 18.250000 +-71.080000 18.000000 +-71.420000 17.580000 +-71.830000 18.080000 +-72.330000 18.170000 +-72.750000 18.080000 +-73.170000 18.170000 +-73.670000 18.170000 +-73.830000 18.000000 +-74.500000 18.330000 +9 +-67.170000 18.000000 +-67.170000 18.500000 +-66.580000 18.500000 +-66.000000 18.500000 +-65.670000 18.250000 +-65.920000 18.000000 +-66.330000 18.000000 +-66.750000 17.920000 +-67.170000 18.000000 +7 +-61.830000 16.250000 +-61.580000 16.170000 +-61.500000 16.420000 +-61.330000 16.170000 +-61.580000 16.170000 +-61.750000 15.920000 +-61.830000 16.250000 +2 +-61.170000 14.830000 +-60.830000 14.480000 +16 +-78.250000 25.170000 +-78.000000 25.170000 +-77.750000 24.670000 +-77.750000 24.330000 +-77.687379 24.247538 +-77.624838 24.165051 +-77.562379 24.082538 +-77.500000 24.000000 +-77.542581 23.917518 +-77.585108 23.835023 +-77.627581 23.752517 +-77.670000 23.670000 +-77.920000 24.170000 +-78.420000 24.580000 +-78.170000 24.830000 +-78.250000 25.170000 +6 +-73.670000 20.920000 +-73.500000 21.170000 +-73.170000 21.080000 +-73.000000 21.330000 +-73.170000 20.920000 +-73.670000 20.920000 +5 +-79.000000 26.700000 +-78.700000 26.500000 +-78.230000 26.670000 +-77.930000 26.670000 +-77.800000 26.470000 +3 +-77.570000 26.870000 +-77.100000 26.470000 +-77.300000 25.970000 +3 +-76.730000 25.500000 +-76.130000 25.130000 +-76.130000 24.670000 +2 +-75.670000 24.670000 +-75.300000 24.170000 +2 +-75.300000 23.670000 +-74.830000 22.870000 +3 +-74.330000 22.830000 +-73.830000 22.570000 +-74.200000 22.200000 +2 +-73.130000 22.420000 +-72.730000 22.330000 +3 +-72.470000 21.670000 +-72.100000 21.900000 +-71.470000 21.670000 +2 +-81.820000 24.550000 +-81.300000 24.670000 +3 +-75.420000 35.580000 +-75.580000 35.250000 +-76.000000 35.080000 +9 +-74.000000 40.580000 +-73.920000 40.830000 +-73.330000 40.920000 +-72.830000 41.000000 +-72.330000 41.170000 +-72.000000 41.000000 +-72.670000 40.750000 +-73.330000 40.670000 +-74.000000 40.580000 +11 +-64.420000 49.830000 +-63.750000 49.830000 +-63.080000 49.750000 +-62.500000 49.580000 +-62.000000 49.420000 +-61.670000 49.080000 +-62.250000 49.080000 +-62.920000 49.170000 +-63.500000 49.330000 +-63.750000 49.580000 +-64.420000 49.830000 +11 +-64.250000 46.670000 +-64.000000 46.920000 +-63.920000 46.580000 +-63.330000 46.420000 +-62.750000 46.420000 +-62.000000 46.500000 +-62.500000 46.250000 +-62.500000 45.920000 +-63.330000 46.170000 +-63.920000 46.420000 +-64.250000 46.670000 +7 +-83.670000 62.170000 +-83.330000 62.580000 +-82.580000 62.750000 +-81.920000 62.750000 +-81.920000 62.670000 +-82.830000 62.250000 +-83.670000 62.170000 +6 +-80.080000 62.330000 +-79.250000 62.330000 +-79.330000 61.920000 +-79.750000 61.500000 +-80.170000 61.750000 +-80.080000 62.330000 +15 +-80.000000 56.250000 +-79.170000 56.580000 +-78.920000 56.330000 +-79.170000 55.750000 +-79.170000 56.170000 +-79.500000 55.920000 +-79.644999 55.920255 +-79.790000 55.920341 +-79.935001 55.920255 +-80.080000 55.920000 +-79.916316 56.022829 +-79.751759 56.125440 +-79.586322 56.227831 +-79.420000 56.330000 +-80.000000 56.250000 +6 +-82.000000 53.000000 +-81.420000 53.170000 +-81.000000 53.080000 +-80.750000 52.670000 +-81.420000 52.830000 +-82.000000 53.000000 +52 +-59.330000 47.920000 +-58.920000 48.170000 +-58.420000 48.500000 +-58.750000 48.580000 +-58.420000 49.000000 +-57.920000 49.500000 +-57.670000 50.080000 +-57.250000 50.580000 +-57.000000 51.000000 +-56.670000 51.330000 +-56.000000 51.580000 +-55.500000 51.580000 +-55.750000 51.080000 +-56.170000 50.580000 +-56.500000 50.250000 +-56.830000 49.750000 +-56.080000 50.080000 +-55.500000 49.920000 +-55.920000 49.670000 +-55.330000 49.330000 +-54.670000 49.420000 +-54.000000 49.420000 +-54.000000 49.420000 +-53.500000 49.250000 +-54.000000 48.830000 +-53.750000 48.500000 +-53.000000 48.580000 +-53.750000 48.080000 +-53.920000 47.750000 +-53.670000 47.580000 +-53.330000 48.000000 +-53.000000 48.080000 +-53.250000 47.580000 +-52.750000 47.670000 +-52.920000 47.170000 +-53.080000 46.670000 +-53.670000 46.670000 +-53.670000 47.080000 +-54.170000 46.830000 +-53.920000 47.330000 +-54.420000 47.420000 +-54.830000 47.330000 +-55.330000 46.830000 +-55.920000 46.920000 +-55.420000 47.170000 +-55.420000 47.500000 +-56.080000 47.580000 +-56.830000 47.580000 +-57.580000 47.580000 +-58.420000 47.670000 +-59.170000 47.500000 +-59.330000 47.920000 +21 +-87.170000 63.670000 +-86.170000 64.080000 +-86.420000 64.670000 +-86.250000 65.250000 +-86.000000 65.670000 +-85.000000 66.080000 +-84.670000 65.580000 +-83.670000 65.170000 +-82.500000 64.830000 +-81.750000 64.500000 +-81.250000 64.080000 +-80.250000 63.830000 +-81.170000 63.420000 +-82.000000 63.750000 +-82.830000 64.000000 +-83.580000 64.000000 +-84.170000 63.670000 +-84.830000 63.250000 +-85.750000 63.170000 +-85.830000 63.670000 +-87.170000 63.670000 +8 +-77.250000 67.670000 +-76.500000 68.250000 +-75.330000 68.250000 +-74.830000 67.920000 +-75.000000 67.500000 +-75.670000 67.250000 +-76.830000 67.170000 +-77.250000 67.670000 +140 +-90.000000 71.750000 +-90.000000 72.330000 +-89.580000 72.750000 +-89.080000 73.170000 +-88.000000 73.580000 +-87.000000 73.830000 +-85.420000 73.830000 +-85.064532 73.823384 +-84.709360 73.816178 +-84.354507 73.808383 +-84.000000 73.800000 +-84.379526 73.733498 +-84.756030 73.666325 +-85.129518 73.598489 +-85.500000 73.530000 +-86.080000 73.250000 +-86.500000 72.830000 +-86.420000 72.420000 +-86.330000 72.000000 +-85.330000 71.670000 +-85.670000 72.080000 +-85.580000 72.500000 +-85.500000 73.000000 +-84.330000 73.420000 +-82.920000 73.750000 +-81.670000 73.830000 +-81.170000 73.580000 +-81.500000 73.130000 +-80.830000 72.670000 +-81.170000 72.170000 +-81.170000 72.170000 +-80.170000 72.470000 +-79.000000 72.470000 +-77.830000 72.800000 +-76.830000 72.700000 +-75.750000 72.500000 +-74.330000 72.580000 +-74.000000 72.250000 +-74.000000 71.750000 +-72.420000 71.670000 +-71.250000 71.420000 +-69.750000 70.830000 +-68.330000 70.500000 +-68.118696 70.375361 +-67.909956 70.250478 +-67.703739 70.125356 +-67.500000 70.000000 +-67.606576 69.895094 +-67.712091 69.790125 +-67.816560 69.685093 +-67.920000 69.580000 +-67.623315 69.478242 +-67.329439 69.375984 +-67.038343 69.273235 +-66.750000 69.170000 +-67.084430 69.128467 +-67.417582 69.086287 +-67.749442 69.043463 +-68.080000 69.000000 +-68.080000 68.500000 +-66.750000 68.080000 +-65.170000 68.080000 +-64.250000 67.670000 +-63.170000 67.330000 +-62.170000 67.000000 +-61.420000 66.670000 +-62.080000 66.080000 +-62.330000 65.670000 +-63.500000 65.500000 +-63.830000 65.000000 +-65.000000 65.330000 +-65.500000 65.920000 +-67.170000 66.420000 +-67.170000 66.420000 +-67.420000 65.750000 +-66.830000 65.250000 +-65.750000 64.830000 +-65.080000 64.500000 +-65.000000 64.000000 +-64.250000 63.580000 +-64.500000 62.920000 +-65.750000 62.920000 +-66.830000 63.250000 +-67.750000 63.580000 +-68.920000 63.830000 +-68.500000 63.420000 +-67.750000 63.080000 +-66.920000 62.670000 +-66.170000 62.330000 +-66.170000 61.920000 +-67.170000 62.000000 +-68.080000 62.170000 +-69.000000 62.420000 +-69.330000 62.670000 +-70.330000 62.830000 +-71.080000 63.000000 +-71.920000 63.330000 +-71.920000 63.750000 +-72.750000 64.000000 +-73.670000 64.170000 +-74.670000 64.420000 +-75.750000 64.500000 +-76.500000 64.250000 +-78.000000 64.250000 +-78.000000 64.250000 +-78.580000 64.670000 +-78.250000 65.080000 +-77.670000 65.170000 +-77.500000 65.500000 +-76.000000 65.330000 +-74.670000 65.330000 +-73.670000 65.670000 +-74.580000 66.170000 +-73.750000 66.500000 +-73.000000 66.920000 +-72.834207 67.002762 +-72.667282 67.085351 +-72.499217 67.167764 +-72.330000 67.250000 +-72.413879 67.355067 +-72.498499 67.460089 +-72.583869 67.565067 +-72.670000 67.670000 +-73.000000 68.170000 +-74.250000 68.500000 +-75.000000 69.000000 +-76.170000 68.670000 +-75.830000 69.330000 +-77.500000 69.830000 +-78.080000 70.250000 +-79.000000 69.750000 +-79.830000 69.580000 +-81.330000 70.000000 +-82.330000 69.920000 +-84.330000 70.080000 +-85.750000 70.080000 +-87.330000 70.420000 +-88.250000 70.830000 +-89.000000 71.330000 +-90.000000 71.750000 +11 +-80.500000 73.750000 +-79.250000 73.830000 +-77.830000 73.780000 +-76.750000 73.580000 +-76.420000 73.170000 +-76.580000 72.870000 +-78.170000 72.980000 +-79.170000 72.830000 +-80.500000 72.980000 +-80.830000 73.420000 +-80.500000 73.750000 +7 +-96.580000 75.000000 +-95.670000 75.550000 +-94.500000 75.550000 +-93.750000 75.200000 +-93.750000 74.670000 +-95.330000 74.820000 +-96.580000 75.000000 +38 +-96.170000 77.030000 +-94.330000 76.920000 +-93.000000 76.650000 +-91.250000 76.650000 +-90.750000 76.370000 +-90.477102 76.320442 +-90.206142 76.270587 +-89.937112 76.220438 +-89.670000 76.170000 +-89.796258 76.122596 +-89.921672 76.075127 +-90.046250 76.027595 +-90.170000 75.980000 +-89.809830 75.910786 +-89.453123 75.841043 +-89.099855 75.770779 +-88.750000 75.700000 +-86.750000 75.580000 +-84.830000 75.820000 +-83.080000 75.720000 +-81.580000 75.720000 +-79.830000 75.470000 +-79.830000 75.080000 +-80.420000 74.670000 +-82.170000 74.500000 +-83.670000 74.750000 +-84.750000 74.420000 +-86.500000 74.420000 +-88.170000 74.470000 +-90.000000 74.530000 +-92.000000 74.750000 +-92.170000 75.250000 +-91.830000 75.670000 +-92.170000 76.080000 +-93.250000 76.330000 +-95.080000 76.250000 +-96.250000 76.670000 +-96.170000 77.030000 +30 +-95.000000 80.000000 +-95.000000 80.450000 +-93.750000 80.800000 +-93.580000 81.250000 +-92.000000 81.250000 +-91.330000 80.800000 +-90.250000 80.500000 +-88.000000 80.420000 +-87.788506 80.357688 +-87.579706 80.295250 +-87.373552 80.232686 +-87.170000 80.170000 +-87.298922 80.065071 +-87.425176 79.960094 +-87.548842 79.855069 +-87.670000 79.750000 +-87.228736 79.720885 +-86.789963 79.691176 +-86.353708 79.660880 +-85.920000 79.630000 +-85.920000 79.250000 +-87.250000 79.000000 +-88.080000 78.530000 +-89.250000 78.170000 +-92.000000 78.170000 +-93.330000 78.530000 +-93.670000 78.980000 +-93.170000 79.330000 +-93.830000 79.720000 +-95.000000 80.000000 +91 +-90.500000 81.500000 +-89.000000 81.920000 +-86.670000 81.920000 +-86.670000 81.920000 +-86.670000 82.130000 +-85.000000 82.330000 +-82.580000 82.580000 +-80.750000 82.920000 +-76.830000 83.050000 +-74.500000 82.980000 +-72.500000 83.080000 +-69.750000 83.080000 +-67.170000 82.920000 +-64.420000 82.800000 +-62.920000 82.550000 +-61.170000 82.420000 +-61.170000 82.200000 +-62.500000 81.950000 +-64.250000 81.670000 +-64.330000 81.420000 +-66.750000 80.950000 +-68.830000 80.580000 +-70.000000 80.200000 +-71.500000 79.720000 +-74.000000 79.500000 +-75.000000 79.000000 +-75.000000 78.500000 +-75.830000 78.000000 +-78.000000 77.920000 +-77.670000 77.580000 +-79.250000 77.250000 +-77.750000 76.830000 +-79.000000 76.420000 +-81.000000 76.170000 +-81.000000 76.170000 +-81.580000 76.500000 +-82.670000 76.330000 +-84.000000 76.420000 +-85.170000 76.250000 +-87.750000 76.330000 +-89.500000 76.420000 +-89.500000 76.830000 +-88.170000 77.130000 +-87.879523 77.160483 +-87.587694 77.190646 +-87.294518 77.220485 +-87.000000 77.250000 +-87.247528 77.292849 +-87.496699 77.335467 +-87.747521 77.377851 +-88.000000 77.420000 +-88.000000 77.830000 +-87.398376 77.854464 +-86.794424 77.877624 +-86.188259 77.899471 +-85.580000 77.920000 +-86.072276 77.983819 +-86.569695 78.046768 +-87.072268 78.108833 +-87.198717 78.124210 +-87.325489 78.139530 +-87.452583 78.154793 +-87.580000 78.170000 +-87.485751 78.206495 +-87.390925 78.242958 +-87.295517 78.279390 +-87.199524 78.315790 +-86.809585 78.461067 +-86.409857 78.605810 +-86.000000 78.750000 +-85.647824 78.780626 +-85.293759 78.810837 +-84.937813 78.840630 +-84.580000 78.870000 +-84.723736 78.965105 +-84.869939 79.060141 +-85.018672 79.155107 +-85.170000 79.250000 +-85.170000 79.700000 +-86.670000 79.870000 +-85.830000 80.420000 +-83.670000 80.250000 +-82.500000 80.470000 +-79.580000 80.630000 +-77.670000 80.920000 +-80.670000 80.800000 +-83.500000 80.800000 +-85.500000 80.670000 +-88.250000 80.670000 +-90.000000 81.000000 +-90.500000 81.500000 +4 +-99.500000 79.900000 +-98.830000 80.170000 +-97.670000 79.750000 +-99.500000 79.900000 +24 +-106.330000 79.200000 +-105.670000 79.380000 +-104.250000 79.380000 +-103.000000 79.200000 +-101.420000 79.200000 +-100.000000 78.880000 +-100.000000 78.480000 +-99.580000 78.130000 +-98.580000 78.080000 +-98.170000 78.480000 +-98.000000 78.900000 +-95.830000 78.550000 +-95.420000 78.300000 +-95.830000 78.000000 +-97.170000 77.970000 +-98.830000 77.920000 +-100.000000 77.750000 +-100.830000 78.170000 +-102.170000 78.170000 +-104.170000 78.300000 +-105.000000 78.530000 +-104.170000 78.830000 +-105.920000 79.000000 +-106.330000 79.200000 +7 +-97.000000 77.670000 +-95.000000 77.830000 +-92.500000 77.800000 +-92.330000 77.570000 +-93.170000 77.350000 +-95.170000 77.470000 +-97.000000 77.670000 +6 +-105.670000 77.670000 +-104.750000 77.750000 +-104.580000 77.430000 +-104.000000 77.080000 +-105.330000 77.180000 +-105.670000 77.670000 +17 +-105.000000 76.580000 +-104.000000 76.630000 +-103.000000 76.370000 +-102.000000 76.000000 +-101.920000 76.420000 +-101.250000 76.700000 +-99.500000 76.670000 +-98.000000 76.380000 +-98.000000 76.000000 +-97.830000 75.580000 +-98.330000 75.070000 +-100.580000 75.070000 +-101.500000 75.630000 +-103.000000 75.420000 +-104.000000 75.830000 +-104.250000 76.170000 +-105.000000 76.580000 +4 +-104.750000 75.120000 +-104.250000 75.470000 +-103.580000 75.130000 +-104.750000 75.120000 +29 +-102.920000 72.920000 +-102.000000 73.070000 +-100.500000 73.030000 +-101.420000 73.500000 +-101.250000 73.830000 +-100.170000 74.000000 +-98.830000 73.920000 +-97.750000 74.130000 +-97.578678 74.005197 +-97.409942 73.880261 +-97.243735 73.755194 +-97.080000 73.630000 +-97.335081 73.515451 +-97.586733 73.400597 +-97.835019 73.285445 +-98.080000 73.170000 +-97.724623 73.123409 +-97.371158 73.076208 +-97.019615 73.028403 +-96.670000 72.980000 +-96.250000 72.420000 +-96.420000 71.830000 +-97.830000 71.670000 +-99.000000 71.330000 +-99.920000 71.830000 +-100.920000 72.250000 +-102.000000 72.250000 +-102.330000 72.630000 +-102.920000 72.920000 +8 +-113.750000 78.250000 +-113.000000 78.500000 +-110.750000 78.580000 +-108.920000 78.380000 +-109.580000 78.200000 +-111.000000 78.170000 +-112.000000 78.300000 +-113.750000 78.250000 +5 +-115.500000 77.920000 +-114.250000 78.080000 +-114.080000 77.750000 +-114.830000 77.700000 +-115.500000 77.920000 +14 +-113.580000 77.750000 +-112.250000 77.870000 +-111.080000 78.020000 +-110.810172 78.022887 +-110.540222 78.025516 +-110.270161 78.027887 +-110.000000 78.030000 +-110.043669 77.917510 +-110.086545 77.805013 +-110.128648 77.692510 +-110.170000 77.580000 +-111.750000 77.330000 +-113.250000 77.420000 +-113.580000 77.750000 +6 +-119.500000 75.580000 +-118.920000 75.900000 +-117.750000 76.130000 +-118.080000 75.750000 +-118.500000 75.480000 +-119.500000 75.580000 +17 +-124.170000 76.250000 +-122.750000 76.500000 +-121.670000 76.880000 +-120.500000 77.150000 +-119.330000 77.330000 +-117.670000 77.300000 +-116.750000 77.580000 +-115.500000 77.330000 +-116.580000 77.080000 +-116.170000 76.720000 +-117.500000 76.300000 +-118.920000 76.500000 +-119.500000 76.170000 +-120.580000 75.830000 +-121.920000 75.920000 +-123.080000 75.870000 +-124.170000 76.250000 +47 +-117.750000 75.250000 +-117.170000 75.670000 +-117.170000 75.670000 +-116.420000 76.130000 +-115.750000 76.470000 +-114.330000 76.420000 +-112.750000 76.170000 +-112.000000 75.920000 +-111.420000 75.570000 +-110.918257 75.554085 +-110.417632 75.537111 +-109.918190 75.519081 +-109.420000 75.500000 +-109.582226 75.582670 +-109.746281 75.665228 +-109.912196 75.747672 +-110.080000 75.830000 +-110.018379 75.897524 +-109.956178 75.965032 +-109.893388 76.032524 +-109.830000 76.100000 +-110.058166 76.137820 +-110.287553 76.175428 +-110.518163 76.212822 +-110.750000 76.250000 +-110.565833 76.332709 +-110.379469 76.415280 +-110.190870 76.497711 +-110.000000 76.580000 +-109.170000 76.800000 +-108.580000 76.330000 +-107.000000 76.020000 +-105.670000 75.870000 +-106.000000 75.470000 +-106.170000 75.030000 +-107.420000 74.950000 +-109.500000 75.000000 +-110.670000 74.800000 +-111.670000 74.530000 +-112.750000 74.420000 +-114.000000 74.500000 +-114.500000 74.720000 +-113.250000 74.920000 +-114.250000 75.250000 +-115.250000 74.970000 +-116.330000 75.130000 +-117.750000 75.250000 +51 +-119.000000 71.600000 +-118.830000 72.030000 +-118.000000 72.300000 +-118.000000 72.580000 +-117.000000 72.830000 +-115.750000 73.020000 +-114.830000 73.300000 +-113.670000 73.300000 +-113.250000 72.720000 +-111.920000 73.080000 +-110.830000 72.850000 +-109.580000 73.000000 +-108.000000 72.670000 +-107.420000 73.170000 +-106.580000 73.670000 +-105.000000 73.700000 +-104.170000 73.420000 +-104.670000 73.050000 +-105.500000 72.580000 +-105.170000 72.170000 +-104.580000 71.630000 +-104.580000 71.630000 +-104.750000 71.050000 +-103.750000 70.670000 +-102.330000 70.400000 +-100.670000 70.220000 +-100.830000 69.750000 +-102.000000 69.670000 +-101.500000 69.300000 +-102.580000 69.000000 +-103.830000 68.870000 +-105.080000 69.150000 +-106.000000 69.500000 +-107.080000 69.170000 +-108.420000 69.000000 +-110.000000 68.750000 +-111.670000 68.650000 +-113.080000 68.580000 +-113.750000 69.250000 +-115.170000 69.250000 +-116.420000 69.500000 +-116.750000 70.120000 +-115.500000 70.170000 +-114.000000 70.170000 +-112.670000 70.420000 +-114.000000 70.700000 +-115.420000 70.670000 +-117.080000 70.750000 +-118.080000 71.030000 +-117.750000 71.370000 +-119.000000 71.600000 +20 +-125.250000 72.080000 +-124.670000 72.500000 +-124.000000 72.980000 +-123.750000 73.500000 +-124.420000 74.080000 +-122.670000 74.250000 +-121.170000 74.500000 +-119.420000 74.250000 +-117.580000 74.250000 +-116.580000 73.830000 +-115.080000 73.500000 +-116.500000 73.200000 +-117.830000 72.920000 +-119.250000 72.580000 +-119.670000 71.920000 +-120.580000 71.420000 +-121.750000 71.330000 +-123.080000 71.080000 +-123.830000 71.670000 +-125.250000 72.080000 +2 +165.830000 55.250000 +166.670000 54.670000 +5 +172.500000 52.920000 +172.830000 53.000000 +173.330000 52.830000 +172.920000 52.750000 +172.500000 52.920000 +3 +-178.250000 51.920000 +-177.830000 51.780000 +-178.080000 51.580000 +4 +-176.920000 51.670000 +-176.750000 51.920000 +-176.330000 51.750000 +-176.920000 51.670000 +3 +-174.170000 52.420000 +-174.330000 52.170000 +-174.830000 52.080000 +6 +-169.170000 52.750000 +-168.500000 53.500000 +-168.000000 53.580000 +-168.000000 53.330000 +-168.330000 53.170000 +-169.170000 52.750000 +7 +-167.670000 53.330000 +-167.170000 53.670000 +-167.170000 54.000000 +-166.420000 54.000000 +-166.420000 53.700000 +-167.000000 53.500000 +-167.670000 53.330000 +8 +-171.750000 63.670000 +-170.500000 63.670000 +-169.830000 63.420000 +-168.830000 63.330000 +-169.830000 63.080000 +-170.750000 63.420000 +-171.750000 63.330000 +-171.750000 63.670000 +8 +-167.420000 60.170000 +-166.750000 60.250000 +-166.080000 60.330000 +-165.500000 60.250000 +-165.500000 60.000000 +-166.170000 59.830000 +-166.830000 59.920000 +-167.420000 60.170000 +18 +-154.830000 57.250000 +-153.920000 57.750000 +-153.250000 58.080000 +-152.500000 58.420000 +-152.080000 58.170000 +-152.311206 58.108123 +-152.541609 58.045829 +-152.771207 57.983121 +-153.000000 57.920000 +-152.874766 57.897684 +-152.749687 57.875246 +-152.624765 57.852684 +-152.500000 57.830000 +-152.250000 57.500000 +-153.080000 57.330000 +-153.420000 57.000000 +-154.080000 56.750000 +-154.830000 57.250000 +13 +-133.080000 54.170000 +-132.330000 54.080000 +-131.670000 54.080000 +-132.000000 53.580000 +-131.670000 53.080000 +-131.830000 52.750000 +-131.330000 52.500000 +-131.000000 52.000000 +-131.830000 52.420000 +-132.250000 52.830000 +-132.500000 53.330000 +-133.000000 53.580000 +-133.080000 54.170000 +20 +-128.330000 50.670000 +-127.920000 50.830000 +-127.170000 50.580000 +-126.250000 50.420000 +-125.500000 50.250000 +-125.000000 49.750000 +-124.420000 49.330000 +-123.670000 48.920000 +-123.170000 48.500000 +-123.670000 48.330000 +-124.250000 48.500000 +-125.000000 48.750000 +-125.000000 49.000000 +-125.500000 49.000000 +-125.920000 49.250000 +-126.500000 49.420000 +-126.420000 49.670000 +-127.080000 49.920000 +-127.750000 50.170000 +-128.330000 50.670000 +234 +-73.000000 78.170000 +-72.330000 78.580000 +-70.330000 78.750000 +-68.670000 79.020000 +-65.670000 79.200000 +-64.500000 79.750000 +-65.000000 80.080000 +-65.000000 80.080000 +-65.667412 80.081979 +-66.335000 80.082639 +-67.002588 80.081979 +-67.670000 80.080000 +-67.447843 80.192727 +-67.220574 80.305306 +-66.988020 80.417732 +-66.750000 80.530000 +-65.000000 80.920000 +-63.750000 81.180000 +-61.830000 81.130000 +-61.250000 81.420000 +-62.000000 81.750000 +-59.330000 82.080000 +-54.500000 82.330000 +-51.250000 82.000000 +-50.500000 82.470000 +-47.330000 82.420000 +-46.500000 82.830000 +-44.000000 83.200000 +-39.500000 83.420000 +-36.000000 83.650000 +-31.500000 83.580000 +-27.330000 83.550000 +-24.830000 83.250000 +-24.000000 82.980000 +-21.670000 82.850000 +-21.240444 82.780580 +-20.819050 82.710766 +-20.405630 82.640569 +-20.000000 82.570000 +-20.555950 82.508512 +-21.102850 82.446339 +-21.640824 82.383496 +-22.170000 82.320000 +-25.580000 82.220000 +-26.245491 82.229060 +-26.912436 82.237082 +-27.580665 82.244063 +-28.250000 82.250000 +-28.651780 82.205555 +-29.049013 82.160736 +-29.441739 82.115549 +-29.830000 82.070000 +-28.705426 82.074527 +-27.580000 82.076036 +-26.454574 82.074527 +-25.330000 82.070000 +-25.330000 81.972500 +-25.330000 81.875000 +-25.330000 81.777500 +-25.330000 81.680000 +-23.670000 81.750000 +-23.670000 82.030000 +-23.670000 82.030000 +-21.670000 82.080000 +-21.330000 81.800000 +-22.000000 81.630000 +-23.670000 81.370000 +-24.830000 80.920000 +-22.500000 81.080000 +-20.750000 81.320000 +-19.500000 81.580000 +-18.170000 81.480000 +-16.420000 81.800000 +-13.250000 81.680000 +-12.842430 81.590603 +-12.443392 81.500796 +-12.052657 81.410591 +-11.670000 81.320000 +-12.366874 81.179309 +-13.041943 81.037374 +-13.696048 80.894252 +-14.330000 80.750000 +-15.830000 80.420000 +-17.170000 79.970000 +-18.080000 79.530000 +-18.500000 79.130000 +-19.500000 78.830000 +-19.170000 78.420000 +-19.670000 77.920000 +-18.830000 77.580000 +-18.170000 77.080000 +-18.420000 76.750000 +-20.330000 76.920000 +-21.420000 76.670000 +-21.500000 76.300000 +-20.000000 76.200000 +-19.420000 75.700000 +-19.420000 75.200000 +-20.080000 74.670000 +-20.080000 74.670000 +-18.830000 74.670000 +-19.250000 74.250000 +-21.500000 74.000000 +-20.330000 73.830000 +-20.330000 73.470000 +-21.580000 73.420000 +-22.170000 73.250000 +-22.379296 73.200314 +-22.587392 73.150417 +-22.794291 73.100312 +-23.000000 73.050000 +-22.748611 73.017959 +-22.498146 72.985610 +-22.248608 72.952957 +-22.000000 72.920000 +-21.750000 72.420000 +-22.000000 72.080000 +-23.330000 72.300000 +-24.580000 72.500000 +-23.670000 72.170000 +-22.580000 71.830000 +-21.750000 71.420000 +-21.750000 71.000000 +-21.830000 70.500000 +-23.080000 70.420000 +-24.000000 70.580000 +-24.250000 71.000000 +-24.500000 71.330000 +-25.500000 71.170000 +-25.250000 70.670000 +-26.330000 70.420000 +-26.330000 70.170000 +-25.080000 70.420000 +-23.750000 70.170000 +-23.436489 70.148318 +-23.123642 70.126090 +-22.811475 70.103316 +-22.500000 70.080000 +-22.669486 69.997738 +-22.837638 69.915316 +-23.004472 69.832736 +-23.170000 69.750000 +-23.170000 69.750000 +-24.250000 69.420000 +-25.250000 69.080000 +-26.250000 68.830000 +-27.500000 68.580000 +-28.750000 68.420000 +-30.000000 68.170000 +-31.330000 68.170000 +-32.170000 67.920000 +-33.000000 67.500000 +-33.420000 67.080000 +-33.920000 66.670000 +-34.750000 66.330000 +-35.670000 66.000000 +-37.000000 65.670000 +-38.500000 65.670000 +-39.670000 65.500000 +-40.000000 65.080000 +-41.000000 65.170000 +-40.420000 64.500000 +-40.500000 64.000000 +-40.750000 63.500000 +-41.500000 63.000000 +-42.420000 62.670000 +-42.000000 62.000000 +-42.500000 61.500000 +-42.750000 61.000000 +-42.830000 60.500000 +-43.250000 60.000000 +-43.920000 59.830000 +-45.170000 60.170000 +-45.170000 60.170000 +-45.750000 60.580000 +-46.670000 60.750000 +-48.000000 60.830000 +-49.000000 61.420000 +-49.500000 61.920000 +-50.080000 62.500000 +-50.330000 62.830000 +-51.250000 63.580000 +-51.330000 64.000000 +-52.000000 64.330000 +-52.000000 64.920000 +-52.420000 65.500000 +-53.500000 66.000000 +-53.500000 66.500000 +-53.750000 67.000000 +-53.670000 67.580000 +-53.330000 68.170000 +-52.580000 68.580000 +-51.000000 68.580000 +-50.750000 69.330000 +-51.250000 69.920000 +-52.170000 69.470000 +-53.670000 69.300000 +-54.830000 69.670000 +-54.580000 70.250000 +-54.250000 70.830000 +-52.830000 70.800000 +-51.250000 70.500000 +-51.580000 71.000000 +-52.750000 71.170000 +-52.750000 71.170000 +-53.330000 71.750000 +-54.000000 71.420000 +-55.250000 71.420000 +-55.750000 71.680000 +-55.330000 72.170000 +-55.830000 72.580000 +-55.500000 73.170000 +-55.670000 73.580000 +-56.500000 74.000000 +-56.500000 74.500000 +-57.500000 74.970000 +-58.330000 75.320000 +-58.330000 75.670000 +-60.000000 75.820000 +-61.670000 76.170000 +-63.420000 76.170000 +-65.330000 76.130000 +-66.580000 75.920000 +-68.500000 76.130000 +-69.500000 76.380000 +-68.750000 76.600000 +-70.250000 76.800000 +-71.170000 77.020000 +-70.000000 77.250000 +-68.420000 77.350000 +-70.000000 77.580000 +-70.330000 77.920000 +-71.670000 77.870000 +-73.000000 78.170000 +53 +-24.330000 65.500000 +-23.750000 65.830000 +-23.670000 66.170000 +-23.000000 66.170000 +-23.000000 66.420000 +-22.250000 66.330000 +-21.500000 66.000000 +-21.420000 65.420000 +-21.420000 65.420000 +-20.330000 65.580000 +-20.250000 66.080000 +-19.670000 65.830000 +-19.250000 66.080000 +-18.250000 66.170000 +-17.580000 66.000000 +-16.830000 66.170000 +-16.250000 66.500000 +-15.670000 66.250000 +-14.750000 66.330000 +-14.670000 65.750000 +-13.670000 65.500000 +-13.670000 64.920000 +-14.500000 64.420000 +-15.830000 64.170000 +-16.750000 63.830000 +-17.670000 63.750000 +-18.750000 63.420000 +-20.000000 63.580000 +-21.000000 63.830000 +-21.437479 63.831983 +-21.875000 63.832645 +-22.312521 63.831983 +-22.750000 63.830000 +-22.564610 63.935361 +-22.377823 64.040483 +-22.189624 64.145364 +-22.000000 64.250000 +-22.143019 64.375213 +-22.287347 64.500285 +-22.433001 64.625215 +-22.580000 64.750000 +-24.000000 64.750000 +-22.830000 65.080000 +-22.644306 65.165349 +-22.457414 65.250467 +-22.269315 65.335351 +-22.080000 65.420000 +-22.246730 65.460277 +-22.413974 65.500370 +-22.581730 65.540278 +-22.750000 65.580000 +-23.580000 65.420000 +-24.330000 65.500000 +2 +-9.000000 70.830000 +-8.000000 71.170000 +4 +-18.830000 75.400000 +-17.920000 75.050000 +-18.830000 75.000000 +-18.830000 75.400000 +514 +9.330000 0.000000 +9.330000 0.500000 +9.580000 0.920000 +9.250000 1.080000 +9.500000 1.500000 +9.670000 1.920000 +9.750000 2.500000 +9.920000 3.080000 +9.580000 3.500000 +9.330000 3.920000 +8.920000 4.000000 +8.830000 4.500000 +8.420000 4.500000 +8.000000 4.420000 +7.500000 4.420000 +7.000000 4.330000 +6.500000 4.250000 +6.000000 4.250000 +5.420000 4.580000 +5.250000 5.250000 +5.000000 5.920000 +4.500000 6.330000 +4.000000 6.500000 +3.420000 6.500000 +2.830000 6.420000 +2.330000 6.420000 +1.830000 6.330000 +1.830000 6.330000 +1.250000 6.170000 +1.000000 5.830000 +0.330000 5.830000 +-0.250000 5.500000 +-0.670000 5.250000 +-1.080000 5.170000 +-1.580000 5.000000 +-2.000000 4.750000 +-2.580000 5.000000 +-3.080000 5.080000 +-3.830000 5.250000 +-4.330000 5.250000 +-4.750000 5.170000 +-5.330000 5.080000 +-5.920000 5.000000 +-6.330000 4.670000 +-6.920000 4.580000 +-7.420000 4.250000 +-7.830000 4.330000 +-8.330000 4.500000 +-8.920000 4.920000 +-9.420000 5.250000 +-9.830000 5.580000 +-10.330000 6.080000 +-11.000000 6.420000 +-11.420000 6.830000 +-11.920000 7.080000 +-12.420000 7.330000 +-12.920000 7.830000 +-13.080000 8.250000 +-13.080000 8.250000 +-13.170000 8.670000 +-13.250000 9.170000 +-13.580000 9.580000 +-14.000000 10.000000 +-14.420000 10.250000 +-14.670000 10.670000 +-15.000000 11.080000 +-15.420000 11.250000 +-15.500000 11.920000 +-15.920000 11.830000 +-16.330000 12.080000 +-16.750000 12.330000 +-16.750000 12.920000 +-16.670000 13.420000 +-16.750000 14.000000 +-17.000000 14.500000 +-17.420000 14.750000 +-17.000000 15.000000 +-16.750000 15.420000 +-16.420000 15.830000 +-16.420000 16.500000 +-16.250000 17.000000 +-16.080000 17.500000 +-16.000000 18.000000 +-16.000000 18.500000 +-16.170000 19.000000 +-16.500000 19.500000 +-16.170000 19.830000 +-16.170000 20.330000 +-16.580000 20.750000 +-16.580000 20.750000 +-17.000000 21.080000 +-16.920000 21.580000 +-16.830000 22.080000 +-16.500000 22.330000 +-16.250000 22.750000 +-16.000000 23.420000 +-15.750000 23.830000 +-15.420000 24.250000 +-15.000000 24.670000 +-14.750000 25.250000 +-14.580000 25.670000 +-14.420000 26.170000 +-14.170000 26.420000 +-13.670000 26.670000 +-13.420000 27.000000 +-13.250000 27.500000 +-12.920000 27.920000 +-12.170000 28.000000 +-11.500000 28.250000 +-11.170000 28.670000 +-10.580000 28.920000 +-10.170000 29.330000 +-9.830000 29.750000 +-9.580000 30.330000 +-9.830000 30.670000 +-9.830000 31.500000 +-9.500000 31.750000 +-9.250000 32.170000 +-9.250000 32.500000 +-8.830000 32.830000 +-8.830000 32.830000 +-8.500000 33.250000 +-8.000000 33.500000 +-7.420000 33.670000 +-6.830000 34.000000 +-6.580000 34.420000 +-6.330000 34.830000 +-6.170000 35.250000 +-5.920000 35.750000 +-5.420000 35.830000 +-5.170000 35.500000 +-4.500000 35.170000 +-4.080000 35.250000 +-3.420000 35.250000 +-3.000000 35.330000 +-2.420000 35.080000 +-1.920000 35.170000 +-1.250000 35.420000 +-1.000000 35.750000 +-0.500000 35.830000 +0.000000 35.920000 +0.500000 36.250000 +1.000000 36.500000 +1.750000 36.580000 +2.420000 36.670000 +2.920000 36.830000 +3.420000 36.830000 +3.830000 36.920000 +4.420000 36.920000 +5.000000 36.830000 +5.330000 36.670000 +5.330000 36.670000 +5.830000 36.750000 +6.250000 37.000000 +7.000000 36.830000 +7.420000 37.000000 +8.170000 36.830000 +8.670000 36.920000 +9.080000 37.170000 +9.580000 37.250000 +10.080000 37.170000 +10.330000 36.670000 +11.000000 36.920000 +10.750000 36.500000 +10.420000 36.330000 +10.580000 35.750000 +10.920000 35.580000 +11.000000 35.170000 +10.750000 34.750000 +10.330000 34.420000 +10.000000 34.170000 +10.080000 33.750000 +10.500000 33.580000 +10.920000 33.670000 +11.080000 33.250000 +11.670000 33.000000 +12.170000 32.830000 +12.830000 32.830000 +13.580000 32.750000 +14.170000 32.670000 +14.750000 32.420000 +15.330000 32.250000 +15.330000 32.250000 +15.330000 31.750000 +15.580000 31.500000 +16.080000 31.250000 +16.670000 31.170000 +17.500000 31.000000 +18.170000 30.670000 +18.670000 30.330000 +19.170000 30.250000 +19.580000 30.420000 +19.920000 30.670000 +20.080000 31.080000 +20.000000 31.500000 +19.957613 31.582521 +19.915151 31.665028 +19.872613 31.747521 +19.830000 31.830000 +19.892326 31.915046 +19.954768 32.000061 +20.017326 32.085046 +20.080000 32.170000 +20.670000 32.580000 +21.250000 32.750000 +21.830000 32.830000 +22.500000 32.750000 +23.080000 32.580000 +23.170000 32.170000 +23.750000 32.080000 +24.330000 31.920000 +24.920000 31.920000 +25.170000 31.500000 +25.750000 31.580000 +26.330000 31.500000 +26.920000 31.420000 +27.330000 31.250000 +27.830000 31.080000 +28.420000 31.080000 +28.420000 31.080000 +29.000000 30.830000 +29.500000 30.920000 +30.000000 31.170000 +30.580000 31.420000 +31.170000 31.500000 +31.830000 31.420000 +31.750000 31.080000 +32.170000 30.920000 +32.273229 30.690121 +32.375968 30.460160 +32.478223 30.230120 +32.580000 30.000000 +32.517420 29.957544 +32.454893 29.915059 +32.392420 29.872544 +32.330000 29.830000 +32.392691 29.727544 +32.455254 29.625059 +32.517690 29.522544 +32.580000 29.420000 +32.670000 29.000000 +32.920000 28.580000 +33.250000 28.170000 +33.580000 27.830000 +33.670000 27.420000 +33.920000 27.080000 +34.000000 26.670000 +34.330000 26.170000 +34.500000 25.750000 +34.750000 25.250000 +35.000000 24.830000 +35.250000 24.330000 +35.580000 24.000000 +35.500000 23.580000 +35.580000 23.250000 +35.830000 22.750000 +36.170000 22.500000 +36.580000 22.250000 +36.920000 22.080000 +36.920000 21.500000 +37.250000 21.080000 +37.250000 20.750000 +37.170000 20.250000 +37.250000 19.670000 +37.330000 19.250000 +37.580000 18.670000 +38.080000 18.420000 +38.080000 18.420000 +38.580000 18.000000 +38.830000 17.580000 +39.080000 17.080000 +39.170000 16.500000 +39.250000 16.000000 +39.500000 15.580000 +39.830000 15.500000 +40.080000 15.000000 +40.670000 14.750000 +41.170000 14.580000 +41.580000 14.080000 +42.080000 13.670000 +42.420000 13.250000 +42.830000 12.830000 +43.250000 12.420000 +43.420000 11.920000 +42.920000 11.670000 +43.250000 11.420000 +43.580000 11.080000 +43.920000 10.670000 +44.250000 10.420000 +44.750000 10.330000 +45.250000 10.500000 +45.750000 10.750000 +46.330000 10.670000 +46.830000 10.750000 +47.420000 11.080000 +48.000000 11.080000 +48.500000 11.250000 +49.000000 11.170000 +49.000000 11.170000 +49.580000 11.330000 +50.170000 11.500000 +50.580000 11.920000 +51.170000 11.750000 +51.080000 11.000000 +51.000000 10.420000 +50.750000 10.000000 +50.750000 9.420000 +50.420000 8.920000 +50.170000 8.500000 +49.920000 8.170000 +49.750000 7.670000 +49.500000 7.250000 +49.250000 6.750000 +49.080000 6.330000 +48.920000 5.750000 +48.500000 5.420000 +48.170000 5.080000 +47.920000 4.580000 +47.670000 4.170000 +47.250000 3.750000 +46.920000 3.420000 +46.500000 3.000000 +46.170000 2.580000 +45.750000 2.250000 +45.330000 1.920000 +44.830000 1.750000 +44.420000 1.420000 +44.000000 1.000000 +43.580000 0.750000 +43.580000 0.750000 +43.170000 0.420000 +42.920000 0.000000 +42.420000 -0.420000 +42.080000 -0.920000 +41.750000 -1.250000 +41.500000 -1.750000 +41.080000 -2.080000 +40.670000 -2.500000 +40.250000 -2.420000 +40.250000 -3.000000 +39.920000 -3.580000 +39.580000 -4.170000 +39.330000 -4.580000 +39.080000 -5.080000 +38.920000 -5.580000 +38.750000 -6.080000 +39.170000 -6.580000 +39.580000 -7.080000 +39.330000 -7.580000 +39.330000 -8.170000 +39.420000 -8.830000 +39.670000 -9.420000 +39.830000 -9.920000 +40.170000 -10.170000 +40.500000 -10.500000 +40.500000 -11.000000 +40.420000 -12.500000 +40.500000 -12.000000 +40.500000 -12.420000 +40.420000 -13.000000 +40.420000 -13.000000 +40.580000 -13.580000 +40.580000 -14.080000 +40.750000 -14.670000 +40.670000 -15.170000 +40.420000 -15.580000 +40.080000 -16.000000 +39.750000 -16.330000 +39.250000 -16.750000 +38.920000 -17.080000 +38.250000 -17.170000 +37.830000 -17.330000 +37.330000 -17.500000 +37.000000 -17.920000 +36.670000 -18.330000 +36.250000 -18.830000 +35.830000 -19.000000 +35.500000 -19.420000 +35.170000 -19.670000 +34.750000 -20.000000 +34.670000 -20.500000 +35.000000 -20.830000 +35.170000 -21.420000 +35.330000 -22.080000 +35.500000 -22.500000 +35.500000 -23.080000 +35.420000 -23.500000 +35.500000 -24.000000 +35.250000 -24.500000 +34.920000 -24.750000 +34.420000 -24.920000 +34.420000 -24.920000 +33.750000 -25.170000 +33.420000 -25.330000 +32.920000 -25.500000 +32.580000 -26.080000 +32.920000 -26.250000 +32.920000 -26.580000 +32.920000 -27.000000 +32.750000 -27.500000 +32.580000 -28.080000 +32.420000 -28.580000 +32.000000 -28.830000 +31.500000 -29.170000 +31.250000 -29.580000 +30.920000 -30.000000 +30.670000 -30.500000 +30.420000 -30.920000 +30.000000 -31.330000 +29.580000 -31.670000 +29.250000 -32.000000 +28.830000 -32.420000 +28.500000 -32.750000 +28.080000 -33.000000 +27.500000 -33.330000 +27.080000 -33.670000 +26.580000 -33.750000 +26.000000 -33.750000 +25.750000 -34.000000 +25.080000 -34.000000 +24.750000 -34.250000 +24.250000 -34.170000 +24.250000 -34.170000 +23.670000 -34.000000 +23.250000 -34.170000 +22.670000 -34.080000 +22.080000 -34.170000 +21.750000 -34.420000 +21.080000 -34.420000 +20.500000 -34.500000 +20.170000 -34.750000 +19.580000 -34.750000 +19.170000 -34.420000 +18.750000 -34.080000 +18.420000 -34.250000 +18.420000 -33.830000 +18.250000 -33.420000 +17.830000 -32.830000 +18.080000 -32.830000 +18.330000 -32.580000 +18.250000 -32.000000 +17.920000 -31.420000 +17.580000 -31.000000 +17.330000 -30.580000 +17.170000 -30.000000 +16.920000 -29.580000 +16.750000 -29.000000 +16.420000 -28.580000 +15.920000 -28.250000 +15.670000 -27.830000 +15.330000 -27.500000 +15.250000 -27.000000 +15.080000 -26.420000 +15.080000 -26.420000 +14.920000 -25.920000 +14.830000 -25.500000 +14.830000 -25.000000 +14.580000 -24.420000 +14.500000 -24.000000 +14.500000 -23.500000 +14.420000 -22.920000 +14.500000 -22.500000 +14.330000 -22.080000 +13.920000 -21.670000 +13.750000 -21.250000 +13.420000 -20.830000 +13.250000 -20.250000 +12.920000 -19.750000 +12.670000 -19.250000 +12.420000 -18.830000 +12.080000 -18.500000 +11.830000 -17.920000 +11.750000 -17.420000 +11.750000 -17.000000 +11.830000 -16.500000 +11.830000 -16.000000 +12.080000 -15.500000 +12.170000 -15.000000 +12.330000 -14.500000 +12.500000 -13.920000 +12.670000 -13.330000 +13.000000 -12.920000 +13.420000 -12.670000 +13.670000 -12.250000 +13.670000 -12.250000 +13.830000 -11.830000 +13.920000 -11.250000 +13.830000 -10.670000 +13.580000 -10.330000 +13.330000 -9.920000 +13.170000 -9.420000 +13.000000 -9.170000 +13.420000 -8.670000 +13.250000 -8.170000 +13.000000 -7.750000 +12.920000 -7.250000 +12.670000 -6.750000 +12.420000 -6.420000 +12.330000 -6.000000 +12.170000 -5.750000 +12.170000 -5.330000 +11.920000 -4.920000 +11.580000 -4.500000 +11.330000 -4.080000 +11.000000 -3.750000 +10.670000 -3.420000 +10.330000 -3.080000 +9.830000 -2.750000 +9.500000 -2.250000 +9.170000 -1.830000 +9.000000 -1.330000 +8.750000 -0.830000 +9.250000 -0.500000 +9.330000 0.000000 +1891 +32.580000 30.000000 +32.170000 30.920000 +32.330000 31.250000 +32.670000 31.000000 +33.250000 31.080000 +34.000000 31.170000 +34.330000 31.500000 +34.670000 32.000000 +34.830000 32.500000 +35.000000 33.000000 +35.250000 33.500000 +35.500000 34.080000 +35.830000 34.500000 +35.750000 35.000000 +35.750000 35.670000 +35.920000 36.000000 +35.750000 36.330000 +36.080000 36.670000 +36.000000 36.920000 +35.500000 36.580000 +35.170000 36.580000 +34.500000 36.830000 +34.080000 36.500000 +33.580000 36.170000 +33.580000 36.170000 +33.170000 36.170000 +32.750000 36.000000 +32.250000 36.170000 +32.000000 36.500000 +31.250000 36.750000 +30.670000 36.830000 +30.500000 36.420000 +29.750000 36.170000 +29.250000 36.330000 +28.580000 36.750000 +28.000000 36.750000 +28.170000 37.000000 +27.670000 37.000000 +27.545000 37.000197 +27.420000 37.000262 +27.295000 37.000197 +27.170000 37.000000 +27.252230 37.082586 +27.334640 37.165114 +27.417229 37.247586 +27.500000 37.330000 +27.395263 37.392639 +27.290351 37.455186 +27.185263 37.517640 +27.080000 37.580000 +27.170000 37.920000 +26.750000 38.080000 +26.250000 38.250000 +26.330000 38.580000 +26.670000 38.330000 +26.920000 38.420000 +26.750000 38.670000 +26.670000 39.250000 +26.830000 39.500000 +26.000000 39.420000 +26.170000 40.000000 +26.580000 40.330000 +27.170000 40.330000 +27.750000 40.330000 +27.750000 40.330000 +28.420000 40.330000 +29.000000 40.330000 +28.920000 40.580000 +29.420000 40.670000 +28.830000 41.000000 +28.170000 41.000000 +27.420000 40.920000 +27.080000 40.670000 +26.580000 40.330000 +26.170000 40.000000 +26.170000 40.250000 +26.580000 40.580000 +26.080000 40.500000 +25.750000 40.830000 +25.170000 40.920000 +24.750000 40.830000 +24.250000 40.920000 +24.000000 40.670000 +23.500000 40.670000 +23.750000 40.420000 +23.580000 40.170000 +23.080000 40.170000 +22.580000 40.580000 +22.500000 40.000000 +22.830000 39.580000 +23.170000 39.250000 +23.330000 38.920000 +23.670000 38.670000 +24.080000 38.500000 +24.170000 38.170000 +24.170000 38.170000 +24.580000 38.000000 +24.000000 38.170000 +24.000000 37.580000 +23.500000 37.920000 +22.920000 38.000000 +22.580000 38.330000 +21.830000 38.250000 +21.080000 38.330000 +20.670000 38.750000 +20.330000 39.250000 +20.080000 39.580000 +19.750000 40.000000 +19.330000 40.250000 +19.330000 40.750000 +19.420000 41.330000 +19.500000 41.750000 +19.000000 42.000000 +18.500000 42.330000 +17.920000 42.580000 +17.330000 43.000000 +16.580000 43.420000 +16.000000 43.500000 +15.750000 43.750000 +15.170000 44.000000 +15.170000 44.330000 +14.920000 44.580000 +14.830000 45.000000 +14.170000 45.330000 +14.080000 45.000000 +13.750000 44.830000 +13.750000 44.830000 +13.500000 45.080000 +13.420000 45.420000 +13.580000 45.670000 +13.080000 45.750000 +12.580000 45.500000 +12.170000 45.500000 +12.080000 45.170000 +12.330000 44.920000 +12.170000 44.580000 +12.250000 44.250000 +12.670000 43.920000 +13.080000 43.670000 +13.580000 43.420000 +13.830000 43.000000 +13.920000 42.580000 +14.170000 42.330000 +14.670000 42.080000 +15.250000 41.830000 +16.080000 41.830000 +15.830000 41.500000 +16.330000 41.330000 +16.920000 41.080000 +17.420000 40.830000 +17.920000 40.580000 +18.420000 40.170000 +18.250000 39.830000 +17.920000 39.920000 +17.830000 40.250000 +17.330000 40.330000 +16.920000 40.500000 +16.920000 40.500000 +16.670000 40.170000 +16.500000 39.670000 +17.000000 39.420000 +17.000000 39.000000 +16.500000 38.830000 +16.500000 38.420000 +16.170000 38.170000 +16.000000 37.920000 +15.670000 37.920000 +15.670000 38.170000 +15.830000 38.580000 +16.080000 38.830000 +16.000000 39.250000 +15.750000 39.670000 +15.670000 40.000000 +15.000000 40.170000 +14.750000 40.580000 +14.420000 40.670000 +14.000000 40.920000 +13.580000 41.250000 +12.920000 41.250000 +12.420000 41.500000 +12.000000 41.920000 +11.500000 42.330000 +11.000000 42.330000 +10.920000 42.670000 +10.420000 43.080000 +10.170000 43.500000 +10.080000 44.000000 +9.500000 44.080000 +9.500000 44.080000 +9.170000 44.250000 +8.670000 44.330000 +8.250000 44.170000 +8.000000 43.830000 +7.420000 43.670000 +6.830000 43.420000 +6.420000 43.080000 +5.830000 43.000000 +5.250000 43.250000 +4.580000 43.330000 +4.000000 43.500000 +3.580000 43.250000 +3.000000 43.000000 +3.080000 42.500000 +3.170000 41.920000 +2.670000 41.670000 +2.080000 41.330000 +1.500000 41.170000 +1.000000 41.000000 +0.500000 40.420000 +0.000000 39.920000 +-0.330000 39.500000 +-0.250000 39.080000 +-0.124564 38.997700 +0.000581 38.915267 +0.125435 38.832700 +0.250000 38.750000 +0.104500 38.667769 +-0.040666 38.585358 +-0.185499 38.502768 +-0.330000 38.420000 +-0.670000 38.080000 +-0.830000 37.670000 +-1.330000 37.670000 +-1.830000 37.170000 +-2.170000 36.750000 +-2.170000 36.750000 +-2.750000 36.750000 +-3.330000 36.750000 +-3.920000 36.750000 +-4.500000 36.670000 +-5.000000 36.500000 +-5.500000 36.080000 +-6.000000 36.250000 +-6.330000 36.750000 +-6.500000 37.000000 +-7.000000 37.250000 +-7.420000 37.250000 +-7.830000 37.080000 +-8.330000 37.170000 +-8.920000 37.080000 +-8.750000 37.500000 +-8.750000 38.000000 +-8.670000 38.500000 +-9.080000 38.500000 +-9.330000 38.830000 +-9.250000 39.330000 +-8.920000 39.670000 +-8.830000 40.250000 +-8.670000 40.750000 +-8.580000 41.170000 +-8.750000 41.670000 +-8.830000 42.000000 +-8.750000 42.420000 +-9.170000 43.000000 +-8.920000 43.250000 +-8.330000 43.330000 +-8.330000 43.330000 +-8.000000 43.750000 +-7.250000 43.500000 +-6.580000 43.500000 +-5.830000 43.580000 +-5.080000 43.500000 +-4.420000 43.330000 +-3.580000 43.500000 +-2.750000 43.420000 +-2.170000 43.330000 +-1.670000 43.420000 +-1.420000 43.670000 +-1.250000 44.250000 +-1.170000 44.670000 +-1.080000 45.250000 +-1.000000 45.830000 +-1.250000 46.250000 +-1.750000 46.500000 +-2.000000 46.750000 +-1.920000 47.000000 +-2.330000 47.330000 +-2.500000 47.500000 +-3.170000 47.580000 +-3.750000 47.830000 +-4.250000 47.830000 +-4.670000 48.000000 +-4.750000 48.500000 +-4.170000 48.580000 +-3.670000 48.750000 +-3.000000 48.830000 +-2.670000 48.500000 +-2.670000 48.500000 +-2.000000 48.580000 +-1.420000 48.580000 +-1.580000 49.170000 +-1.920000 49.670000 +-1.330000 49.670000 +-1.080000 49.250000 +-0.580000 49.330000 +0.000000 49.250000 +0.170000 49.670000 +0.580000 49.830000 +1.080000 49.920000 +1.500000 50.080000 +1.580000 50.500000 +1.750000 50.830000 +2.330000 51.000000 +3.000000 51.250000 +3.580000 51.420000 +4.000000 51.750000 +4.330000 52.080000 +4.580000 52.420000 +4.750000 52.830000 +5.080000 52.920000 +5.080000 52.420000 +5.500000 52.250000 +5.920000 52.500000 +5.920000 52.750000 +5.500000 52.830000 +5.500000 53.250000 +6.080000 53.420000 +7.000000 53.420000 +7.000000 53.420000 +7.330000 53.670000 +8.000000 53.670000 +8.500000 53.500000 +8.580000 53.830000 +9.000000 54.080000 +8.670000 54.330000 +9.000000 54.500000 +8.670000 54.830000 +8.670000 55.330000 +8.170000 55.580000 +8.080000 56.000000 +8.080000 56.500000 +8.250000 56.830000 +8.670000 57.080000 +9.420000 57.170000 +9.830000 57.500000 +10.500000 57.580000 +10.500000 57.250000 +10.250000 56.830000 +10.250000 56.500000 +10.830000 56.500000 +10.830000 56.170000 +10.170000 56.000000 +9.750000 55.500000 +9.420000 55.000000 +10.000000 54.750000 +10.000000 54.500000 +10.920000 54.250000 +10.750000 53.920000 +11.330000 53.920000 +11.330000 53.920000 +11.830000 54.170000 +12.250000 54.330000 +12.920000 54.420000 +13.330000 54.670000 +13.670000 54.330000 +13.250000 54.170000 +13.830000 54.000000 +14.330000 53.920000 +15.170000 54.170000 +16.000000 54.250000 +16.670000 54.580000 +17.500000 54.750000 +18.330000 54.830000 +18.670000 54.330000 +19.250000 54.330000 +19.750000 54.500000 +20.000000 54.920000 +20.750000 55.170000 +21.080000 55.670000 +21.000000 56.170000 +21.000000 56.750000 +21.330000 57.080000 +21.670000 57.580000 +22.420000 57.670000 +22.920000 57.420000 +23.250000 57.080000 +23.830000 57.000000 +24.330000 57.250000 +24.330000 57.750000 +24.330000 58.250000 +24.330000 58.250000 +23.750000 58.330000 +23.500000 58.750000 +23.500000 59.170000 +24.170000 59.420000 +25.000000 59.500000 +25.920000 59.580000 +26.830000 59.420000 +27.920000 59.420000 +28.330000 59.670000 +29.170000 60.000000 +29.420958 59.958211 +29.671280 59.915946 +29.920962 59.873209 +30.170000 59.830000 +30.065998 59.935124 +29.961335 60.040167 +29.856005 60.145125 +29.750000 60.250000 +29.080000 60.170000 +28.330000 60.580000 +27.170000 60.580000 +26.250000 60.420000 +25.330000 60.250000 +24.420000 60.080000 +23.500000 60.000000 +22.580000 60.170000 +22.080000 60.420000 +21.330000 60.670000 +21.330000 61.000000 +21.670000 61.500000 +21.250000 62.000000 +21.170000 62.500000 +21.580000 63.000000 +22.420000 63.420000 +23.250000 63.920000 +24.080000 64.330000 +24.080000 64.330000 +24.670000 64.830000 +25.330000 65.000000 +25.330000 65.500000 +24.500000 65.830000 +23.830000 65.750000 +23.170000 65.750000 +22.420000 65.830000 +22.000000 65.500000 +21.420000 65.330000 +21.500000 65.080000 +21.000000 64.750000 +21.670000 64.500000 +21.000000 64.170000 +20.670000 63.830000 +19.830000 63.580000 +19.170000 63.330000 +18.420000 63.000000 +17.750000 62.500000 +17.420000 62.250000 +17.330000 61.750000 +17.170000 61.250000 +17.250000 60.830000 +17.920000 60.500000 +18.580000 60.170000 +18.830000 59.830000 +18.580000 59.580000 +18.000000 59.330000 +18.330000 59.170000 +17.580000 58.920000 +16.830000 58.580000 +16.830000 58.580000 +16.670000 58.250000 +16.670000 57.750000 +16.500000 57.330000 +16.330000 56.750000 +15.920000 56.170000 +15.330000 56.170000 +14.670000 56.170000 +14.170000 55.750000 +14.250000 55.420000 +13.670000 55.420000 +13.000000 55.420000 +13.000000 55.750000 +12.670000 56.170000 +12.920000 56.500000 +12.330000 56.920000 +12.000000 57.420000 +11.670000 58.000000 +11.330000 58.500000 +11.080000 59.080000 +10.580000 59.330000 +10.250000 59.000000 +9.750000 59.000000 +9.000000 58.580000 +8.500000 58.250000 +7.670000 58.000000 +6.830000 58.080000 +6.000000 58.330000 +5.580000 58.580000 +5.670000 59.000000 +6.170000 59.330000 +6.170000 59.330000 +5.420000 59.250000 +5.250000 59.580000 +5.580000 59.920000 +5.080000 60.330000 +5.000000 60.750000 +4.957919 60.855020 +4.915561 60.960027 +4.872922 61.065020 +4.830000 61.170000 +4.934172 61.252621 +5.038894 61.335162 +5.144168 61.417622 +5.250000 61.500000 +5.168159 61.582574 +5.085881 61.665099 +5.003163 61.747575 +4.920000 61.830000 +5.105934 61.915380 +5.292907 62.000509 +5.480927 62.085383 +5.670000 62.170000 +6.330000 62.500000 +7.000000 62.920000 +8.000000 63.000000 +8.500000 63.330000 +8.920000 63.750000 +9.500000 63.500000 +10.080000 63.920000 +10.670000 64.330000 +11.330000 64.920000 +12.170000 65.250000 +12.580000 65.750000 +13.000000 66.170000 +13.330000 66.580000 +13.830000 67.000000 +14.670000 67.420000 +15.000000 67.830000 +16.170000 68.330000 +15.000000 68.250000 +14.000000 68.170000 +12.920000 67.830000 +13.670000 68.250000 +13.670000 68.250000 +14.000631 68.293491 +14.332516 68.336324 +14.665643 68.378495 +15.000000 68.420000 +14.856205 68.482687 +14.711610 68.545250 +14.566210 68.607688 +14.420000 68.670000 +14.645584 68.732956 +14.872441 68.795609 +15.100579 68.857958 +15.330000 68.920000 +16.170000 69.250000 +15.920000 68.750000 +16.580000 69.000000 +16.670000 68.670000 +16.894969 68.752954 +17.121616 68.835608 +17.349955 68.917958 +17.580000 69.000000 +17.435397 69.020184 +17.290529 69.040245 +17.145396 69.060184 +17.000000 69.080000 +17.000000 69.420000 +18.080000 69.580000 +18.920000 70.080000 +20.170000 70.080000 +21.500000 70.250000 +22.330000 70.670000 +23.330000 70.920000 +24.250000 70.670000 +24.830000 71.000000 +25.670000 71.170000 +25.580000 70.580000 +26.580000 70.920000 +26.830000 70.500000 +27.750000 71.080000 +29.080000 70.920000 +30.170000 70.670000 +31.170000 70.420000 +30.000000 70.080000 +29.688525 70.103316 +29.376358 70.126090 +29.063511 70.148318 +28.750000 70.170000 +29.066329 70.085825 +29.380095 70.001096 +29.691313 69.915818 +30.000000 69.830000 +31.250000 69.750000 +31.250000 69.750000 +32.080000 69.920000 +33.080000 69.750000 +33.080000 69.420000 +34.500000 69.330000 +35.830000 69.170000 +37.000000 68.920000 +38.000000 68.580000 +39.000000 68.250000 +40.000000 68.000000 +40.920000 67.670000 +41.250000 67.250000 +41.250000 66.750000 +40.580000 66.420000 +39.500000 66.170000 +38.330000 66.080000 +37.250000 66.250000 +36.250000 66.330000 +35.330000 66.420000 +34.330000 66.670000 +33.170000 66.830000 +32.942406 66.915496 +32.713215 67.000664 +32.482417 67.085500 +32.250000 67.170000 +32.397238 67.045200 +32.542970 66.920265 +32.687216 66.795197 +32.830000 66.670000 +33.670000 66.420000 +34.670000 66.000000 +34.670000 65.500000 +34.670000 65.080000 +34.670000 64.580000 +35.750000 64.330000 +36.750000 63.920000 +38.000000 63.920000 +38.000000 63.920000 +38.000000 64.420000 +37.250000 64.420000 +36.500000 64.830000 +36.920000 65.170000 +37.750000 65.080000 +38.670000 64.830000 +39.500000 64.670000 +40.670000 64.580000 +40.170000 65.080000 +40.046488 65.185155 +39.921991 65.290207 +39.796499 65.395156 +39.670000 65.500000 +39.875523 65.582922 +40.082357 65.665564 +40.290514 65.747925 +40.500000 65.830000 +41.500000 66.080000 +42.170000 66.420000 +43.170000 66.330000 +43.920000 66.170000 +44.500000 66.500000 +44.500000 67.000000 +43.830000 67.170000 +44.170000 67.670000 +44.170000 68.250000 +43.250000 68.670000 +44.500000 68.500000 +45.670000 68.500000 +46.250000 68.250000 +46.670000 67.830000 +45.500000 67.750000 +45.353063 67.645195 +45.207429 67.540259 +45.063080 67.435193 +44.920000 67.330000 +45.148635 67.290484 +45.376515 67.250644 +45.603637 67.210482 +45.830000 67.170000 +46.330000 66.830000 +47.330000 66.830000 +47.330000 66.830000 +48.170000 67.080000 +48.170000 67.670000 +49.080000 67.830000 +50.170000 68.080000 +51.000000 68.330000 +52.080000 68.500000 +53.000000 68.750000 +53.920000 69.000000 +54.000000 68.500000 +54.830000 68.170000 +55.170000 68.500000 +56.170000 68.580000 +57.250000 68.500000 +58.170000 68.830000 +59.080000 69.000000 +59.080000 68.420000 +59.830000 68.330000 +59.830000 68.670000 +60.500000 68.750000 +61.080000 69.000000 +60.500000 69.330000 +60.170000 69.670000 +59.170000 69.920000 +58.580000 70.170000 +59.080000 70.500000 +60.170000 70.080000 +61.750000 69.750000 +63.000000 69.670000 +64.080000 69.330000 +65.080000 69.250000 +65.080000 69.250000 +66.000000 69.000000 +67.080000 68.830000 +67.750000 68.500000 +68.580000 68.250000 +69.080000 68.750000 +68.330000 69.000000 +67.830000 69.500000 +66.920000 69.670000 +66.920000 70.000000 +67.330000 70.420000 +66.830000 70.830000 +67.000000 71.250000 +68.250000 71.580000 +68.750000 72.000000 +68.920000 72.500000 +69.500000 72.920000 +70.080000 73.330000 +70.350463 73.373030 +70.622285 73.415709 +70.895464 73.458033 +71.170000 73.500000 +71.296812 73.417613 +71.422405 73.335150 +71.546795 73.252612 +71.670000 73.170000 +71.584084 73.107553 +71.498783 73.045070 +71.414091 72.982553 +71.330000 72.920000 +71.708963 72.858544 +72.085285 72.796387 +72.458964 72.733536 +72.830000 72.670000 +72.830000 72.585000 +72.830000 72.500000 +72.830000 72.415000 +72.830000 72.330000 +72.725785 72.227581 +72.622726 72.125107 +72.520804 72.022580 +72.420000 71.920000 +72.270033 71.815171 +72.121729 71.710226 +71.975060 71.605169 +71.830000 71.500000 +72.043426 71.395353 +72.254545 71.290468 +72.463392 71.185349 +72.670000 71.080000 +72.670000 70.955000 +72.670000 70.830000 +72.670000 70.705000 +72.670000 70.580000 +72.670000 70.455000 +72.670000 70.330000 +72.670000 70.205000 +72.670000 70.080000 +72.647033 69.935004 +72.624381 69.790006 +72.602039 69.645004 +72.580000 69.500000 +72.580000 69.375000 +72.580000 69.250000 +72.580000 69.125000 +72.580000 69.000000 +72.833555 68.895555 +73.084722 68.790736 +73.333528 68.685549 +73.580000 68.580000 +73.580000 68.580000 +73.170000 68.170000 +73.170000 67.750000 +72.500000 67.330000 +71.830000 67.000000 +70.500000 66.670000 +71.580000 66.250000 +72.500000 66.500000 +73.500000 66.830000 +74.000000 67.250000 +74.830000 67.670000 +74.500000 68.250000 +74.580000 68.750000 +74.808054 68.812964 +75.037403 68.875621 +75.268049 68.937967 +75.500000 69.000000 +75.106095 69.021363 +74.711440 69.041819 +74.316065 69.061366 +73.920000 69.080000 +73.670000 69.670000 +73.830000 70.170000 +74.330000 70.580000 +73.830000 71.000000 +73.170000 71.330000 +73.750000 71.830000 +74.670000 72.000000 +75.170000 72.330000 +75.080000 72.670000 +74.170000 72.920000 +74.500000 73.080000 +75.500000 72.750000 +75.750000 72.250000 +75.330000 71.830000 +75.330000 71.330000 +76.920000 71.170000 +76.920000 71.170000 +78.500000 71.000000 +78.000000 71.250000 +76.580000 71.500000 +76.080000 71.920000 +76.920000 72.080000 +77.750000 71.830000 +78.330000 72.000000 +78.001954 72.083340 +77.670953 72.166125 +77.336975 72.248348 +77.000000 72.330000 +77.185564 72.392764 +77.372412 72.455353 +77.560554 72.517765 +77.750000 72.580000 +78.500000 72.330000 +79.500000 72.330000 +80.580000 72.080000 +81.580000 71.670000 +81.890511 71.710759 +82.202353 71.751014 +82.515519 71.790762 +82.830000 71.830000 +82.667783 71.935208 +82.503731 72.040279 +82.337814 72.145210 +82.170000 72.250000 +80.830000 72.420000 +80.830000 72.920000 +80.330000 73.500000 +82.000000 73.580000 +83.750000 73.670000 +85.250000 73.830000 +87.000000 73.920000 +86.500000 74.330000 +86.580000 74.670000 +87.500000 75.000000 +88.670000 75.330000 +90.580000 75.580000 +92.170000 75.750000 +93.250000 76.080000 +94.750000 76.080000 +94.750000 76.080000 +95.304985 76.144409 +95.865003 76.207557 +96.430020 76.269427 +97.000000 76.330000 +96.916044 76.247542 +96.833071 76.165055 +96.751061 76.082541 +96.670000 76.000000 +97.351250 76.045379 +98.036765 76.088851 +98.726399 76.130397 +99.420000 76.170000 +99.316855 76.252566 +99.212487 76.335088 +99.106877 76.417567 +99.000000 76.500000 +101.000000 76.500000 +101.000000 77.000000 +102.500000 77.420000 +104.080000 77.750000 +104.589841 77.668883 +105.093083 77.586832 +105.589783 77.503865 +106.080000 77.420000 +105.613469 77.336187 +105.153001 77.251572 +104.698533 77.166171 +104.250000 77.080000 +104.687476 77.081092 +105.125000 77.081456 +105.562524 77.081092 +106.000000 77.080000 +106.376694 77.060806 +106.752275 77.041073 +107.126719 77.020803 +107.500000 77.000000 +107.222429 76.875430 +106.949993 76.750568 +106.682560 76.625422 +106.420000 76.500000 +106.772487 76.500738 +107.125000 76.500985 +107.477513 76.500738 +107.830000 76.500000 +108.170000 76.750000 +109.580000 76.750000 +111.170000 76.670000 +112.420000 76.500000 +113.500000 76.170000 +113.830000 75.750000 +113.670000 75.250000 +112.500000 74.920000 +111.000000 74.500000 +109.670000 74.170000 +108.330000 73.750000 +107.170000 73.580000 +106.500000 73.170000 +107.580000 73.170000 +108.830000 73.330000 +110.170000 73.500000 +110.170000 73.500000 +110.004360 73.562698 +109.837487 73.625265 +109.669371 73.687699 +109.500000 73.750000 +109.665610 73.812695 +109.832472 73.875261 +110.000598 73.937697 +110.170000 74.000000 +111.170000 73.830000 +112.000000 73.670000 +113.000000 73.670000 +112.830000 74.080000 +111.580000 74.330000 +112.080000 74.500000 +113.330000 74.420000 +112.830000 74.080000 +113.670000 73.500000 +114.830000 73.670000 +115.920000 73.750000 +117.250000 73.580000 +118.670000 73.580000 +118.500000 73.170000 +120.000000 73.000000 +122.000000 72.920000 +123.330000 73.000000 +122.830000 73.330000 +123.000000 73.670000 +124.830000 73.670000 +126.920000 73.420000 +128.580000 73.250000 +129.830000 72.750000 +129.500000 72.250000 +128.750000 71.830000 +129.420000 71.330000 +130.330000 70.920000 +131.250000 70.750000 +131.250000 70.750000 +132.000000 71.080000 +132.250000 71.500000 +132.580000 71.920000 +133.500000 71.500000 +134.420000 71.330000 +135.000000 71.580000 +135.830000 71.670000 +136.670000 71.500000 +138.580000 71.580000 +138.978731 71.561244 +139.376663 71.541657 +139.773763 71.521241 +140.170000 71.500000 +140.047068 71.605121 +139.922772 71.710162 +139.797091 71.815123 +139.670000 71.920000 +139.330000 72.250000 +139.750000 72.500000 +141.170000 72.500000 +140.670000 72.830000 +142.420000 72.750000 +143.830000 72.670000 +145.250000 72.580000 +146.830000 72.330000 +148.500000 72.330000 +149.830000 72.170000 +150.000000 71.670000 +150.670000 71.420000 +151.580000 71.420000 +152.420000 71.170000 +152.420000 70.830000 +153.500000 70.920000 +154.580000 70.920000 +156.000000 71.080000 +157.500000 71.000000 +157.500000 71.000000 +158.830000 70.920000 +159.670000 70.670000 +159.753785 70.565056 +159.836704 70.460075 +159.918771 70.355056 +160.000000 70.250000 +159.873098 70.145132 +159.747477 70.040175 +159.623117 69.935131 +159.500000 69.830000 +159.795090 69.768231 +160.088451 69.705972 +160.380087 69.643226 +160.670000 69.580000 +162.250000 69.580000 +164.000000 69.670000 +165.670000 69.580000 +167.000000 69.420000 +167.670000 69.670000 +168.250000 70.000000 +169.420000 69.830000 +169.170000 69.580000 +168.250000 69.580000 +168.330000 69.250000 +169.330000 69.080000 +169.580000 68.750000 +170.420000 68.830000 +171.000000 69.080000 +170.580000 69.500000 +170.580000 70.080000 +172.000000 70.000000 +173.330000 69.920000 +174.670000 69.830000 +176.170000 69.830000 +177.420000 69.580000 +178.670000 69.420000 +179.750000 69.170000 +180.000000 69.080000 +180.000000 69.080000 +180.920000 68.750000 +181.830000 68.420000 +183.080000 68.170000 +184.170000 67.830000 +185.000000 67.500000 +185.500000 67.080000 +186.830000 67.080000 +188.330000 66.920000 +189.170000 66.500000 +189.423140 66.395605 +189.674173 66.290803 +189.923120 66.185600 +190.170000 66.080000 +189.981123 66.017843 +189.793166 65.955457 +189.606127 65.892842 +189.420000 65.830000 +188.920000 65.500000 +187.830000 65.500000 +187.830000 65.000000 +187.250000 64.670000 +187.000000 64.250000 +186.000000 64.420000 +184.920000 64.750000 +184.170000 65.000000 +184.000000 65.420000 +183.000000 65.580000 +182.330000 65.420000 +181.500000 65.500000 +181.170000 65.920000 +181.000000 66.330000 +180.080000 66.000000 +180.750000 65.670000 +180.330000 65.170000 +180.000000 65.050000 +180.000000 65.050000 +179.580000 64.920000 +178.670000 64.670000 +177.500000 64.750000 +177.500000 64.330000 +178.330000 64.330000 +178.580000 64.000000 +178.830000 63.500000 +179.250000 63.000000 +179.670000 62.670000 +179.000000 62.250000 +178.170000 62.500000 +177.000000 62.500000 +176.250000 62.250000 +175.330000 62.080000 +174.580000 61.750000 +173.830000 61.670000 +173.080000 61.330000 +172.330000 61.000000 +171.500000 60.670000 +170.670000 60.420000 +170.670000 60.420000 +170.330000 59.920000 +169.830000 60.250000 +169.170000 60.500000 +168.250000 60.580000 +167.500000 60.420000 +166.830000 60.170000 +166.170000 59.750000 +166.170000 60.330000 +165.330000 60.170000 +164.750000 59.830000 +164.170000 60.000000 +163.330000 59.830000 +163.170000 59.420000 +162.920000 59.000000 +162.330000 58.580000 +161.920000 58.170000 +162.080000 57.750000 +162.580000 57.920000 +163.170000 57.670000 +162.670000 57.250000 +162.670000 56.830000 +163.080000 56.670000 +163.250000 56.170000 +162.830000 56.000000 +162.420000 56.250000 +161.920000 56.080000 +161.580000 55.670000 +161.670000 55.170000 +162.080000 54.750000 +161.670000 54.500000 +161.670000 54.500000 +161.170000 54.580000 +160.420000 54.420000 +159.920000 54.080000 +159.830000 53.580000 +159.920000 53.170000 +159.170000 53.170000 +158.580000 52.830000 +158.420000 52.250000 +157.920000 51.670000 +157.330000 51.250000 +156.670000 50.920000 +156.500000 51.250000 +156.500000 51.670000 +156.420000 52.170000 +156.080000 52.750000 +156.000000 53.330000 +155.830000 53.920000 +155.670000 54.330000 +155.500000 54.830000 +155.420000 55.250000 +155.500000 55.830000 +155.750000 56.330000 +156.000000 56.830000 +156.670000 57.000000 +157.000000 57.420000 +156.830000 57.750000 +157.500000 57.750000 +158.250000 58.000000 +159.000000 58.420000 +159.670000 58.830000 +159.670000 58.830000 +160.080000 59.250000 +160.920000 59.670000 +161.580000 60.080000 +161.920000 60.420000 +162.670000 60.670000 +163.500000 60.830000 +163.750000 61.170000 +163.920000 61.750000 +164.080000 62.250000 +164.750000 62.500000 +164.420000 62.670000 +163.250000 62.500000 +162.920000 62.080000 +162.920000 61.670000 +162.250000 61.580000 +161.670000 61.250000 +161.000000 60.920000 +160.170000 60.580000 +159.920000 60.920000 +159.830000 61.250000 +159.953258 61.395170 +160.077666 61.540228 +160.203241 61.685172 +160.330000 61.830000 +160.121692 61.790471 +159.913922 61.750627 +159.706690 61.710469 +159.500000 61.670000 +158.830000 61.830000 +157.920000 61.750000 +156.920000 61.580000 +156.330000 61.170000 +155.750000 60.750000 +155.000000 60.420000 +154.500000 60.000000 +154.170000 59.500000 +154.170000 59.500000 +154.830000 59.420000 +154.915469 59.357583 +155.000625 59.295111 +155.085468 59.232583 +155.170000 59.170000 +154.876929 59.148487 +154.584232 59.126315 +154.291918 59.103486 +154.000000 59.080000 +153.330000 59.170000 +152.920000 59.000000 +152.000000 58.830000 +151.330000 58.830000 +151.080000 59.080000 +151.670000 59.330000 +151.330000 59.580000 +150.830000 59.500000 +150.170000 59.580000 +149.500000 59.750000 +149.000000 59.670000 +148.920000 59.420000 +148.830000 59.250000 +148.170000 59.330000 +147.420000 59.250000 +146.500000 59.420000 +145.920000 59.170000 +145.580000 59.330000 +144.670000 59.330000 +143.670000 59.330000 +142.670000 59.250000 +142.000000 59.000000 +141.670000 58.670000 +141.000000 58.420000 +140.580000 58.080000 +140.250000 57.750000 +139.670000 57.500000 +139.670000 57.500000 +139.000000 57.170000 +138.500000 56.830000 +137.920000 56.330000 +137.250000 55.920000 +136.580000 55.580000 +135.920000 55.170000 +135.170000 54.920000 +135.250000 54.670000 +135.920000 54.500000 +136.670000 54.580000 +136.670000 54.170000 +136.670000 53.750000 +137.080000 54.170000 +137.670000 54.250000 +137.670000 53.830000 +137.584500 53.747590 +137.499334 53.665120 +137.414502 53.582590 +137.330000 53.500000 +137.559305 53.543161 +137.789075 53.585882 +138.019308 53.628162 +138.250000 53.670000 +138.830000 54.170000 +139.500000 54.170000 +140.170000 54.000000 +140.250000 53.750000 +140.750000 53.500000 +141.330000 53.250000 +141.080000 52.830000 +141.080000 52.420000 +141.330000 52.170000 +141.080000 51.830000 +140.750000 51.420000 +140.500000 51.000000 +140.420000 50.500000 +140.420000 50.500000 +140.500000 50.000000 +140.500000 49.420000 +140.330000 49.000000 +140.170000 48.500000 +139.500000 48.000000 +139.000000 47.500000 +138.500000 47.080000 +138.250000 46.500000 +137.920000 46.080000 +137.500000 45.670000 +136.920000 45.250000 +136.330000 44.750000 +135.670000 44.330000 +135.500000 43.920000 +135.000000 43.420000 +134.330000 43.170000 +133.750000 42.830000 +133.080000 42.670000 +132.330000 42.920000 +132.330000 43.250000 +131.750000 43.250000 +131.500000 43.000000 +131.170000 42.580000 +130.830000 42.580000 +130.670000 42.250000 +130.080000 42.080000 +129.580000 41.580000 +129.670000 41.330000 +129.670000 40.830000 +129.250000 40.670000 +129.250000 40.670000 +128.750000 40.330000 +128.250000 40.080000 +127.830000 39.920000 +127.704877 39.897701 +127.579836 39.875268 +127.454877 39.852701 +127.330000 39.830000 +127.372616 39.767523 +127.415154 39.705031 +127.457615 39.642523 +127.468219 39.626894 +127.478817 39.611264 +127.489411 39.595632 +127.500000 39.580000 +127.489328 39.559382 +127.478662 39.538764 +127.468002 39.518144 +127.457349 39.497523 +127.414799 39.415031 +127.372349 39.332523 +127.330000 39.250000 +127.455333 39.187701 +127.580444 39.125267 +127.705333 39.062700 +127.830000 39.000000 +128.250000 38.670000 +128.500000 38.250000 +128.830000 37.920000 +129.170000 37.500000 +129.330000 37.000000 +129.420000 36.500000 +129.420000 36.000000 +129.330000 35.580000 +129.080000 35.170000 +128.500000 34.920000 +127.750000 34.830000 +127.170000 34.670000 +126.580000 34.330000 +126.330000 34.830000 +126.330000 35.330000 +126.750000 35.750000 +126.500000 36.330000 +126.170000 36.920000 +126.750000 37.000000 +126.580000 37.420000 +126.080000 37.750000 +125.330000 37.670000 +124.750000 38.080000 +124.750000 38.080000 +125.000000 38.500000 +125.170000 38.920000 +125.420000 39.420000 +125.080000 39.580000 +124.670000 39.670000 +124.080000 39.830000 +123.500000 39.750000 +123.000000 39.580000 +122.420000 39.420000 +122.080000 39.080000 +121.580000 38.830000 +121.170000 38.750000 +121.670000 39.170000 +121.330000 39.500000 +121.500000 39.750000 +121.920000 40.000000 +122.250000 40.420000 +121.920000 40.830000 +121.250000 40.920000 +120.830000 40.580000 +120.420000 40.170000 +119.920000 40.000000 +119.420000 39.750000 +119.250000 39.420000 +119.000000 39.170000 +118.420000 39.080000 +118.000000 39.250000 +117.670000 38.920000 +117.580000 38.580000 +117.920000 38.250000 +117.920000 38.250000 +118.330000 38.000000 +118.830000 37.750000 +118.920000 37.330000 +119.330000 37.080000 +119.750000 37.080000 +120.000000 37.330000 +120.330000 37.580000 +120.830000 37.750000 +121.170000 37.500000 +121.580000 37.420000 +122.080000 37.420000 +122.205112 37.397697 +122.330150 37.375263 +122.455113 37.352697 +122.580000 37.330000 +122.517190 37.205049 +122.454588 37.080066 +122.392192 36.955049 +122.330000 36.830000 +122.000000 37.000000 +121.500000 36.750000 +120.830000 36.580000 +120.670000 36.170000 +120.170000 35.920000 +119.670000 35.580000 +119.420000 35.250000 +119.170000 34.830000 +119.750000 34.580000 +120.330000 34.330000 +120.500000 33.830000 +120.670000 33.420000 +120.830000 33.000000 +120.920000 32.580000 +121.250000 32.420000 +121.670000 32.080000 +121.830000 31.670000 +121.830000 31.670000 +121.250000 31.670000 +121.830000 31.250000 +121.920000 30.920000 +121.500000 30.830000 +121.170000 30.670000 +120.920000 30.420000 +120.420000 30.330000 +120.750000 30.170000 +121.330000 30.250000 +121.670000 30.080000 +122.080000 30.000000 +122.000000 29.750000 +121.920000 29.170000 +121.670000 29.170000 +121.500000 28.670000 +121.580000 28.420000 +121.420000 28.170000 +121.080000 28.170000 +120.830000 27.830000 +120.580000 27.420000 +120.330000 27.000000 +120.000000 26.670000 +119.670000 26.750000 +119.750000 26.330000 +119.670000 26.000000 +119.420000 25.580000 +119.170000 25.250000 +118.830000 25.000000 +118.670000 24.580000 +118.170000 24.580000 +118.170000 24.580000 +118.170000 24.250000 +117.830000 24.000000 +117.420000 23.670000 +117.000000 23.420000 +116.500000 23.080000 +116.000000 22.830000 +115.500000 22.750000 +115.000000 22.670000 +114.500000 22.670000 +114.170000 22.250000 +113.670000 22.670000 +113.500000 22.170000 +113.080000 22.500000 +113.000000 22.000000 +112.500000 21.830000 +112.000000 21.750000 +111.500000 21.500000 +110.920000 21.420000 +110.420000 21.250000 +110.250000 20.920000 +110.500000 20.500000 +110.250000 20.330000 +109.920000 20.330000 +109.750000 20.750000 +109.670000 21.000000 +109.750000 21.420000 +109.420000 21.420000 +109.000000 21.670000 +108.500000 21.670000 +108.000000 21.500000 +108.000000 21.500000 +107.580000 21.250000 +107.080000 21.000000 +106.670000 20.670000 +106.420000 20.250000 +105.920000 19.920000 +105.750000 19.500000 +105.580000 19.000000 +105.920000 18.420000 +106.330000 18.080000 +106.420000 17.750000 +106.830000 17.330000 +107.170000 16.920000 +107.670000 16.500000 +108.080000 16.170000 +108.420000 15.750000 +108.830000 15.330000 +109.000000 14.750000 +109.170000 14.250000 +109.250000 13.750000 +109.250000 13.250000 +109.250000 12.830000 +109.170000 12.170000 +109.170000 11.750000 +109.000000 11.420000 +108.500000 11.170000 +108.080000 10.920000 +107.670000 10.670000 +107.250000 10.420000 +106.670000 10.420000 +106.670000 9.830000 +106.670000 9.830000 +106.330000 9.420000 +105.830000 9.330000 +105.420000 9.000000 +105.000000 8.670000 +104.830000 9.080000 +104.830000 9.580000 +104.872452 9.705008 +104.914936 9.830011 +104.957452 9.955008 +105.000000 10.080000 +104.875050 10.122571 +104.750066 10.165095 +104.625050 10.207571 +104.500000 10.250000 +104.250000 10.580000 +103.670000 10.580000 +103.250000 10.920000 +103.000000 11.330000 +102.830000 11.750000 +102.580000 12.080000 +102.250000 12.250000 +101.830000 12.670000 +101.420000 12.670000 +100.920000 12.750000 +100.920000 13.330000 +100.420000 13.500000 +100.000000 13.330000 +99.920000 12.750000 +99.920000 12.080000 +99.750000 11.670000 +99.580000 11.170000 +99.330000 10.830000 +99.170000 10.250000 +99.170000 9.670000 +99.330000 9.170000 +99.830000 9.250000 +99.830000 9.250000 +99.920000 8.580000 +100.250000 8.250000 +100.420000 7.750000 +100.580000 7.170000 +100.920000 6.920000 +101.500000 6.830000 +101.830000 6.420000 +102.250000 6.080000 +102.670000 5.750000 +103.080000 5.420000 +103.420000 4.920000 +103.420000 4.420000 +103.420000 3.920000 +103.420000 3.420000 +103.420000 2.920000 +103.750000 2.580000 +104.080000 2.000000 +104.250000 1.420000 +103.500000 1.420000 +103.170000 1.670000 +102.750000 1.920000 +102.250000 2.170000 +101.920000 2.500000 +101.420000 2.830000 +101.330000 3.330000 +100.920000 3.750000 +100.580000 4.250000 +100.670000 4.750000 +100.420000 5.080000 +100.330000 5.670000 +100.330000 5.670000 +100.330000 6.080000 +100.080000 6.670000 +99.750000 7.000000 +99.420000 7.330000 +99.080000 7.830000 +98.670000 8.250000 +98.420000 8.080000 +98.250000 8.500000 +98.250000 9.000000 +98.500000 9.580000 +98.500000 10.170000 +98.500000 10.670000 +98.750000 11.000000 +98.750000 11.420000 +98.500000 11.920000 +98.750000 12.500000 +98.580000 13.080000 +98.250000 13.670000 +98.080000 14.250000 +97.920000 14.750000 +97.830000 15.330000 +97.750000 15.830000 +97.580000 16.330000 +97.250000 16.750000 +96.920000 16.920000 +96.750000 16.580000 +96.250000 16.330000 +95.830000 16.080000 +95.500000 15.750000 +95.080000 15.750000 +95.080000 15.750000 +94.750000 15.830000 +94.250000 16.080000 +94.420000 16.580000 +94.580000 17.170000 +94.500000 17.750000 +94.330000 18.330000 +94.170000 18.830000 +93.830000 18.830000 +93.580000 19.250000 +93.750000 19.500000 +93.500000 19.920000 +93.170000 19.920000 +92.920000 20.250000 +92.500000 20.670000 +92.170000 21.080000 +92.000000 21.500000 +91.920000 21.920000 +91.750000 22.330000 +91.420000 22.750000 +90.920000 22.420000 +90.580000 22.170000 +90.250000 21.830000 +89.750000 21.750000 +89.250000 21.670000 +88.750000 21.580000 +88.330000 21.500000 +88.170000 22.080000 +88.000000 21.750000 +87.580000 21.580000 +87.080000 21.420000 +87.080000 21.420000 +86.920000 21.080000 +87.000000 20.750000 +86.750000 20.330000 +86.420000 19.920000 +85.920000 19.750000 +85.500000 19.670000 +85.080000 19.330000 +84.830000 19.000000 +84.500000 18.580000 +84.080000 18.250000 +83.670000 18.080000 +83.330000 17.830000 +83.000000 17.420000 +82.580000 17.170000 +82.330000 17.000000 +82.250000 16.580000 +82.000000 16.330000 +81.500000 16.250000 +81.170000 16.170000 +81.000000 15.750000 +80.420000 15.830000 +80.170000 15.420000 +80.080000 15.000000 +80.170000 14.420000 +80.250000 13.830000 +80.330000 13.250000 +80.250000 12.670000 +80.000000 12.170000 +79.750000 11.750000 +79.750000 11.250000 +79.750000 11.250000 +79.830000 10.830000 +79.830000 10.250000 +79.330000 10.250000 +79.000000 9.750000 +79.000000 9.250000 +78.580000 9.170000 +78.170000 8.920000 +78.000000 8.330000 +77.580000 8.080000 +77.170000 8.250000 +76.830000 8.580000 +76.500000 9.000000 +76.330000 9.580000 +76.170000 10.170000 +76.000000 10.670000 +75.830000 11.170000 +75.580000 11.580000 +75.250000 12.000000 +75.000000 12.420000 +74.830000 13.000000 +74.670000 13.500000 +74.500000 14.000000 +74.420000 14.500000 +74.080000 15.000000 +73.750000 15.500000 +73.500000 16.000000 +73.330000 16.420000 +73.250000 17.000000 +73.170000 17.500000 +73.000000 18.080000 +73.000000 18.080000 +72.830000 18.670000 +73.000000 19.000000 +72.830000 19.250000 +72.670000 19.750000 +72.750000 20.250000 +72.830000 20.830000 +72.580000 21.250000 +72.500000 21.670000 +72.580000 22.170000 +72.330000 22.250000 +72.170000 21.830000 +72.080000 21.250000 +71.670000 20.920000 +71.170000 20.750000 +70.580000 20.750000 +70.080000 21.000000 +69.670000 21.420000 +69.330000 21.750000 +69.080000 22.250000 +69.670000 22.250000 +70.170000 22.420000 +70.330000 22.920000 +69.750000 22.750000 +69.170000 22.750000 +68.670000 23.080000 +68.330000 23.500000 +67.920000 23.750000 +67.420000 23.920000 +67.330000 24.330000 +67.170000 24.750000 +67.170000 24.750000 +66.830000 25.000000 +66.580000 25.330000 +66.080000 25.420000 +65.580000 25.330000 +65.170000 25.250000 +64.670000 25.170000 +64.250000 25.250000 +63.830000 25.420000 +63.500000 25.250000 +62.920000 25.250000 +62.420000 25.170000 +61.830000 25.080000 +61.170000 25.170000 +60.750000 25.250000 +60.170000 25.330000 +59.670000 25.330000 +59.170000 25.420000 +58.580000 25.580000 +58.000000 25.670000 +57.330000 25.750000 +57.170000 26.250000 +57.080000 26.670000 +56.750000 27.000000 +56.250000 27.000000 +55.750000 26.830000 +55.330000 26.670000 +54.750000 26.420000 +54.330000 26.670000 +53.830000 26.580000 +53.500000 26.920000 +53.500000 26.920000 +53.000000 27.000000 +52.580000 27.420000 +52.170000 27.670000 +51.500000 27.830000 +51.250000 28.250000 +51.080000 28.750000 +50.670000 29.250000 +50.330000 29.830000 +50.000000 30.170000 +49.580000 30.000000 +49.250000 30.250000 +48.920000 30.500000 +48.580000 30.000000 +48.330000 29.580000 +47.750000 29.420000 +48.170000 29.250000 +48.330000 28.750000 +48.580000 28.250000 +48.830000 27.830000 +49.250000 27.420000 +49.670000 27.000000 +50.080000 26.670000 +50.250000 26.250000 +50.170000 25.830000 +50.500000 25.420000 +50.670000 25.170000 +51.000000 25.580000 +51.080000 26.000000 +51.330000 26.080000 +51.580000 25.750000 +51.580000 25.750000 +51.670000 25.250000 +51.580000 24.750000 +51.250000 24.250000 +51.670000 24.250000 +51.830000 24.000000 +52.420000 23.920000 +52.750000 24.170000 +53.250000 24.170000 +53.830000 24.080000 +54.250000 24.170000 +54.500000 24.580000 +55.000000 24.920000 +55.330000 25.250000 +55.670000 25.580000 +56.080000 25.830000 +56.250000 26.170000 +56.500000 26.080000 +56.420000 25.830000 +56.420000 25.330000 +56.420000 24.750000 +56.830000 24.330000 +57.250000 24.000000 +57.750000 23.750000 +58.250000 23.670000 +58.830000 23.500000 +59.080000 23.080000 +59.420000 22.670000 +59.830000 22.420000 +59.580000 21.920000 +59.330000 21.420000 +59.330000 21.420000 +59.000000 21.170000 +58.750000 20.830000 +58.500000 20.420000 +58.080000 20.420000 +57.830000 20.000000 +57.750000 19.500000 +57.920000 19.080000 +57.500000 18.920000 +57.080000 18.830000 +56.750000 18.580000 +56.580000 18.080000 +56.330000 17.920000 +55.920000 17.830000 +55.420000 17.670000 +55.250000 17.170000 +54.830000 16.920000 +54.420000 17.000000 +53.920000 16.920000 +53.420000 16.670000 +52.920000 16.500000 +52.420000 16.250000 +52.250000 15.920000 +52.250000 15.580000 +51.750000 15.420000 +51.250000 15.250000 +50.750000 15.080000 +50.250000 14.920000 +49.670000 14.750000 +49.170000 14.500000 +48.830000 14.080000 +48.830000 14.080000 +48.330000 13.920000 +47.830000 13.920000 +47.420000 13.580000 +47.080000 13.330000 +46.580000 13.250000 +46.080000 13.330000 +45.670000 13.330000 +45.420000 13.000000 +44.920000 12.830000 +44.420000 12.750000 +43.920000 12.670000 +43.500000 12.750000 +43.170000 13.250000 +43.250000 13.750000 +43.080000 14.000000 +42.920000 14.580000 +42.750000 15.170000 +42.670000 15.670000 +42.750000 16.080000 +42.670000 16.500000 +42.420000 17.000000 +42.080000 17.500000 +41.750000 17.750000 +41.500000 18.170000 +41.250000 18.670000 +41.000000 19.170000 +40.750000 19.670000 +40.330000 20.080000 +39.670000 20.250000 +39.500000 20.580000 +39.500000 20.580000 +39.170000 20.920000 +39.080000 21.500000 +39.000000 21.920000 +39.080000 22.250000 +39.000000 22.750000 +38.750000 23.250000 +38.420000 23.750000 +38.000000 24.080000 +37.500000 24.330000 +37.250000 24.830000 +37.080000 25.330000 +36.750000 25.830000 +36.420000 26.170000 +36.080000 26.670000 +35.750000 27.170000 +35.500000 27.580000 +35.170000 28.000000 +34.670000 28.000000 +34.830000 28.500000 +35.000000 29.000000 +35.000000 29.500000 +34.670000 28.920000 +34.420000 28.330000 +34.420000 27.920000 +34.170000 27.750000 +33.750000 28.080000 +33.420000 28.420000 +33.250000 28.750000 +33.000000 29.080000 +32.750000 29.580000 +32.750000 29.580000 +32.580000 30.000000 +15 +13.080000 14.080000 +13.330000 13.750000 +13.500000 13.330000 +13.830000 13.080000 +13.920000 12.750000 +14.170000 12.500000 +14.580000 12.750000 +15.080000 12.920000 +15.250000 13.420000 +14.750000 13.420000 +14.170000 13.500000 +14.170000 13.830000 +13.920000 14.170000 +13.420000 14.250000 +13.080000 14.080000 +20 +31.670000 -2.080000 +31.830000 -2.750000 +32.250000 -2.330000 +32.750000 -2.500000 +33.420000 -2.500000 +33.830000 -2.170000 +33.250000 -2.080000 +33.580000 -1.750000 +33.920000 -1.330000 +34.080000 -0.750000 +34.250000 -0.420000 +34.000000 0.080000 +33.500000 0.250000 +33.000000 0.250000 +32.420000 0.170000 +31.830000 -0.170000 +31.670000 -0.750000 +31.830000 -1.170000 +31.750000 -1.580000 +31.670000 -2.080000 +32 +29.250000 -6.000000 +29.500000 -6.500000 +29.830000 -7.000000 +30.330000 -7.420000 +30.580000 -8.080000 +30.500000 -8.580000 +31.080000 -8.750000 +31.000000 -8.250000 +30.750000 -7.750000 +30.500000 -7.170000 +30.580000 -6.830000 +30.170000 -6.500000 +30.064949 -6.417532 +29.959933 -6.335042 +29.854950 -6.252532 +29.750000 -6.170000 +29.812536 -6.065011 +29.875048 -5.960014 +29.937536 -5.855010 +30.000000 -5.750000 +29.957469 -5.605005 +29.914959 -5.460006 +29.872469 -5.315004 +29.830000 -5.170000 +29.670000 -4.580000 +29.420000 -4.000000 +29.330000 -3.330000 +29.080000 -4.000000 +29.250000 -4.500000 +29.080000 -5.000000 +29.330000 -5.580000 +29.250000 -6.000000 +28 +34.080000 -12.170000 +34.170000 -12.580000 +34.330000 -13.000000 +34.330000 -13.420000 +34.670000 -13.750000 +34.750000 -14.170000 +35.080000 -14.080000 +35.330000 -14.500000 +35.250000 -13.830000 +34.920000 -13.420000 +34.830000 -12.830000 +34.830000 -12.250000 +34.872569 -12.105010 +34.915091 -11.960013 +34.957568 -11.815010 +35.000000 -11.670000 +34.917371 -11.522535 +34.834829 -11.375046 +34.752372 -11.227534 +34.670000 -11.080000 +34.580000 -10.580000 +34.500000 -9.920000 +34.080000 -9.580000 +34.000000 -9.830000 +34.250000 -10.830000 +34.250000 -11.000000 +34.420000 -11.750000 +34.080000 -12.170000 +74 +27.500000 42.500000 +27.920000 42.080000 +28.080000 41.670000 +28.580000 41.330000 +29.170000 41.170000 +29.830000 41.080000 +30.500000 41.170000 +31.080000 41.080000 +31.580000 41.330000 +32.080000 41.580000 +32.580000 41.830000 +33.250000 42.000000 +33.830000 41.920000 +34.500000 41.920000 +35.000000 42.000000 +35.330000 41.670000 +36.000000 41.670000 +36.330000 41.250000 +36.750000 41.250000 +37.250000 41.000000 +37.670000 41.080000 +38.170000 40.920000 +38.750000 41.000000 +39.330000 41.080000 +39.920000 41.000000 +40.500000 41.080000 +41.080000 41.420000 +41.580000 41.670000 +41.670000 42.000000 +41.420000 42.330000 +41.420000 42.330000 +41.250000 42.750000 +41.000000 42.920000 +40.330000 43.170000 +39.830000 43.420000 +39.500000 43.670000 +39.000000 44.080000 +38.500000 44.330000 +38.000000 44.420000 +37.670000 44.580000 +37.250000 44.750000 +37.000000 45.080000 +36.670000 45.080000 +36.080000 45.000000 +35.580000 45.080000 +35.080000 44.830000 +34.580000 44.750000 +34.250000 44.500000 +33.750000 44.330000 +33.420000 44.580000 +33.580000 45.000000 +33.250000 45.170000 +32.670000 45.330000 +33.080000 45.750000 +33.750000 45.920000 +33.170000 46.170000 +32.580000 46.000000 +31.830000 46.250000 +32.080000 46.580000 +31.420000 46.580000 +30.830000 46.580000 +30.830000 46.580000 +30.580000 46.170000 +30.170000 45.830000 +29.580000 45.670000 +29.670000 45.170000 +29.500000 44.830000 +29.000000 44.670000 +28.670000 44.330000 +28.670000 43.920000 +28.580000 43.420000 +28.000000 43.330000 +27.920000 42.830000 +27.500000 42.500000 +22 +34.420000 45.920000 +34.750000 45.750000 +35.000000 45.420000 +35.500000 45.250000 +36.080000 45.420000 +36.670000 45.420000 +37.330000 45.330000 +37.750000 45.830000 +38.250000 46.250000 +37.920000 46.420000 +37.670000 46.670000 +38.170000 46.670000 +38.750000 47.000000 +39.330000 47.080000 +39.000000 47.250000 +38.420000 47.170000 +37.580000 47.080000 +36.830000 46.750000 +36.080000 46.670000 +35.420000 46.420000 +35.000000 46.080000 +34.420000 45.920000 +107 +46.670000 44.750000 +46.670000 44.420000 +47.080000 44.250000 +47.420000 43.750000 +47.420000 43.420000 +47.420000 43.000000 +47.830000 42.500000 +48.250000 42.080000 +48.670000 41.830000 +49.000000 41.420000 +49.170000 41.000000 +49.670000 40.580000 +49.815259 40.540272 +49.960346 40.500362 +50.105260 40.460272 +50.250000 40.420000 +50.124875 40.397702 +49.999833 40.375269 +49.874875 40.352702 +49.750000 40.330000 +49.420000 40.000000 +49.250000 39.500000 +49.170000 39.170000 +48.750000 39.170000 +48.830000 38.580000 +48.920000 38.080000 +49.000000 37.580000 +49.500000 37.420000 +50.170000 37.330000 +50.330000 37.080000 +51.000000 36.750000 +51.580000 36.580000 +52.420000 36.750000 +53.170000 36.920000 +53.920000 36.830000 +54.000000 37.170000 +54.000000 37.170000 +53.750000 37.830000 +53.750000 38.500000 +54.000000 39.080000 +53.580000 39.170000 +53.420000 39.580000 +53.500000 40.000000 +52.750000 40.000000 +52.670000 40.330000 +52.920000 40.830000 +53.500000 40.670000 +54.170000 40.670000 +54.750000 41.000000 +54.330000 41.330000 +53.920000 41.670000 +53.670000 42.080000 +53.000000 42.000000 +52.670000 41.670000 +52.750000 41.250000 +52.420000 41.750000 +52.397611 41.855007 +52.375148 41.960009 +52.352611 42.065007 +52.330000 42.170000 +52.414585 42.272594 +52.499445 42.375126 +52.584583 42.477594 +52.670000 42.580000 +52.627628 42.642524 +52.585171 42.705031 +52.542629 42.767524 +52.500000 42.830000 +51.830000 42.830000 +51.330000 43.170000 +51.170000 43.670000 +50.750000 44.170000 +50.170000 44.330000 +50.250000 44.580000 +50.920000 44.580000 +51.420000 44.500000 +51.420000 44.500000 +51.170000 45.000000 +51.314371 45.082775 +51.459160 45.165367 +51.604369 45.247776 +51.750000 45.330000 +51.937275 45.352960 +52.124702 45.375614 +52.312277 45.397960 +52.500000 45.420000 +53.080000 45.170000 +53.670000 45.250000 +54.250000 45.250000 +53.920000 45.500000 +53.830000 45.920000 +53.670000 46.420000 +53.170000 46.830000 +52.580000 47.170000 +52.080000 47.170000 +51.420000 47.170000 +50.920000 47.250000 +50.170000 46.830000 +49.500000 46.750000 +48.920000 46.580000 +49.000000 46.330000 +48.500000 46.250000 +48.250000 45.920000 +47.580000 46.080000 +47.330000 45.670000 +47.000000 45.170000 +46.670000 44.750000 +27 +58.170000 45.000000 +58.170000 44.500000 +58.330000 44.250000 +58.330000 43.670000 +59.000000 43.670000 +59.670000 43.670000 +59.830000 43.500000 +60.500000 43.670000 +61.080000 44.170000 +61.080000 44.670000 +61.500000 44.750000 +61.830000 45.000000 +61.500000 45.330000 +61.000000 45.750000 +61.000000 46.000000 +61.330000 46.420000 +61.670000 46.750000 +61.000000 46.500000 +60.750000 46.670000 +60.080000 46.500000 +60.080000 46.170000 +59.750000 46.330000 +59.500000 45.920000 +59.000000 45.920000 +58.670000 45.830000 +58.580000 45.420000 +58.170000 45.000000 +24 +73.420000 45.580000 +73.830000 45.250000 +74.080000 44.920000 +74.250000 45.670000 +74.170000 46.000000 +74.750000 46.170000 +75.170000 46.420000 +76.000000 46.580000 +76.830000 46.420000 +77.330000 46.580000 +78.000000 46.330000 +78.750000 46.420000 +79.250000 46.750000 +78.750000 46.750000 +78.330000 46.580000 +77.830000 46.670000 +77.330000 46.580000 +76.830000 46.670000 +76.080000 46.750000 +75.250000 46.670000 +74.750000 46.750000 +74.170000 46.420000 +73.670000 46.170000 +73.420000 45.580000 +27 +103.580000 51.580000 +104.500000 51.330000 +105.250000 51.500000 +105.920000 51.670000 +106.250000 52.170000 +107.000000 52.500000 +107.830000 52.670000 +108.330000 53.000000 +109.000000 53.500000 +109.420000 54.000000 +109.500000 54.500000 +109.670000 55.080000 +109.920000 55.580000 +109.500000 55.750000 +109.250000 55.500000 +109.170000 55.170000 +108.830000 54.750000 +108.500000 54.330000 +108.170000 53.920000 +107.580000 53.500000 +107.000000 53.080000 +106.580000 52.750000 +106.080000 52.500000 +105.670000 52.170000 +105.250000 51.830000 +104.500000 51.750000 +103.580000 51.580000 +15 +30.000000 61.080000 +30.580000 60.750000 +30.920000 60.330000 +31.080000 59.920000 +31.500000 59.920000 +31.750000 60.170000 +32.500000 60.170000 +32.830000 60.500000 +32.830000 60.830000 +32.500000 61.170000 +31.830000 61.330000 +31.420000 61.580000 +30.750000 61.580000 +30.170000 61.330000 +30.000000 61.080000 +17 +34.500000 61.750000 +34.830000 61.500000 +35.500000 61.330000 +35.500000 60.920000 +36.000000 60.920000 +36.420000 61.080000 +36.420000 61.420000 +36.000000 61.670000 +35.750000 62.000000 +35.830000 62.420000 +35.250000 62.670000 +34.500000 62.830000 +34.830000 62.580000 +35.330000 62.500000 +35.330000 62.170000 +34.670000 62.170000 +34.500000 61.750000 +70 +43.250000 -21.920000 +43.580000 -21.330000 +43.920000 -20.920000 +44.080000 -20.500000 +44.420000 -20.000000 +44.500000 -19.580000 +44.250000 -19.000000 +44.250000 -18.580000 +44.000000 -18.000000 +44.000000 -18.000000 +43.920000 -17.420000 +44.250000 -16.920000 +44.500000 -16.170000 +44.920000 -16.170000 +45.420000 -15.920000 +45.920000 -15.750000 +46.420000 -15.500000 +46.830000 -15.250000 +47.250000 -14.750000 +47.670000 -14.750000 +47.580000 -14.330000 +47.920000 -14.080000 +47.830000 -13.580000 +48.330000 -13.500000 +48.750000 -13.330000 +48.830000 -12.920000 +48.830000 -12.420000 +49.250000 -12.000000 +49.580000 -12.500000 +49.830000 -13.000000 +49.920000 -13.580000 +50.170000 -14.170000 +50.330000 -14.920000 +50.420000 -15.420000 +50.080000 -15.920000 +49.670000 -15.500000 +49.750000 -16.330000 +49.670000 -16.750000 +49.420000 -17.000000 +49.420000 -17.420000 +49.420000 -17.420000 +49.330000 -18.000000 +49.250000 -18.500000 +49.000000 -19.080000 +48.830000 -19.580000 +48.670000 -20.080000 +48.500000 -20.500000 +48.420000 -20.920000 +48.250000 -21.330000 +48.080000 -21.750000 +47.920000 -22.170000 +47.830000 -22.580000 +47.750000 -23.000000 +47.670000 -23.420000 +47.500000 -23.750000 +47.330000 -24.250000 +47.170000 -24.670000 +46.830000 -25.170000 +46.420000 -25.080000 +45.920000 -25.250000 +45.500000 -25.500000 +45.000000 -25.580000 +44.580000 -25.330000 +44.170000 -25.000000 +43.750000 -24.500000 +43.670000 -23.920000 +43.580000 -23.250000 +43.330000 -22.830000 +43.250000 -22.330000 +43.250000 -21.920000 +6 +55.170000 -21.000000 +55.580000 -20.920000 +55.830000 -21.170000 +55.750000 -21.330000 +55.330000 -21.330000 +55.170000 -21.000000 +5 +57.330000 -20.500000 +57.500000 -20.000000 +57.750000 -20.170000 +57.750000 -20.500000 +57.330000 -20.500000 +7 +53.330000 12.420000 +53.670000 12.670000 +54.170000 12.580000 +54.580000 12.500000 +54.080000 12.250000 +53.670000 12.250000 +53.330000 12.420000 +13 +68.830000 -48.830000 +69.000000 -48.670000 +69.330000 -49.000000 +69.670000 -49.250000 +70.000000 -49.170000 +70.580000 -49.080000 +70.420000 -49.420000 +70.000000 -49.420000 +69.830000 -49.670000 +69.500000 -49.500000 +68.920000 -49.670000 +69.170000 -49.250000 +68.830000 -48.830000 +3 +92.920000 13.330000 +92.830000 12.580000 +92.670000 11.830000 +2 +95.920000 2.750000 +96.500000 2.420000 +6 +97.250000 1.330000 +97.500000 1.500000 +98.000000 1.000000 +98.000000 0.580000 +97.580000 1.000000 +97.250000 1.330000 +6 +98.750000 -1.000000 +99.000000 -0.920000 +99.420000 -1.670000 +99.080000 -1.750000 +98.830000 -1.500000 +98.750000 -1.000000 +19 +79.750000 8.080000 +79.830000 8.500000 +79.920000 9.000000 +80.170000 9.420000 +80.000000 9.830000 +80.580000 9.500000 +80.920000 9.000000 +81.250000 8.500000 +81.500000 8.000000 +81.830000 7.580000 +81.830000 7.000000 +81.670000 6.500000 +81.250000 6.170000 +80.670000 6.000000 +80.250000 6.000000 +80.000000 6.420000 +79.830000 7.080000 +79.750000 7.500000 +79.750000 8.080000 +15 +108.670000 19.330000 +109.080000 19.580000 +109.580000 19.920000 +110.000000 20.000000 +110.500000 20.000000 +111.000000 20.000000 +111.000000 19.670000 +110.670000 19.330000 +110.500000 18.830000 +110.170000 18.500000 +109.670000 18.250000 +109.250000 18.250000 +108.750000 18.500000 +108.670000 18.920000 +108.670000 19.330000 +16 +120.170000 23.670000 +120.500000 24.170000 +120.750000 24.580000 +121.080000 25.000000 +121.580000 25.250000 +121.920000 25.080000 +121.920000 24.580000 +121.670000 24.080000 +121.500000 23.500000 +121.330000 23.000000 +121.000000 22.580000 +120.830000 22.000000 +120.670000 22.420000 +120.330000 22.580000 +120.170000 23.170000 +120.170000 23.670000 +21 +129.500000 33.250000 +130.000000 33.500000 +130.420000 33.830000 +130.920000 33.920000 +131.080000 33.670000 +131.580000 33.670000 +131.670000 33.250000 +131.920000 32.830000 +131.670000 32.420000 +131.420000 31.920000 +131.330000 31.420000 +130.750000 31.080000 +130.170000 31.250000 +130.170000 31.670000 +130.170000 32.080000 +130.500000 32.330000 +130.500000 32.750000 +130.250000 33.080000 +130.170000 32.750000 +129.750000 32.750000 +129.500000 33.250000 +16 +132.250000 33.420000 +132.670000 33.670000 +132.830000 34.000000 +133.330000 33.920000 +133.580000 34.250000 +134.080000 34.330000 +134.580000 34.170000 +134.670000 33.830000 +134.330000 33.580000 +134.080000 33.250000 +133.750000 33.500000 +133.250000 33.330000 +133.080000 33.080000 +132.920000 32.750000 +132.420000 32.920000 +132.250000 33.420000 +81 +130.920000 34.330000 +131.420000 34.500000 +131.830000 34.750000 +132.330000 35.080000 +132.750000 35.500000 +133.250000 35.500000 +134.000000 35.580000 +134.670000 35.670000 +135.250000 35.750000 +135.670000 35.500000 +136.000000 35.670000 +136.000000 36.080000 +136.330000 36.420000 +136.670000 36.830000 +136.750000 37.250000 +137.170000 37.500000 +137.000000 37.080000 +137.000000 36.750000 +137.580000 37.000000 +138.170000 37.170000 +138.170000 37.170000 +138.580000 37.420000 +138.830000 37.830000 +139.330000 38.080000 +139.500000 38.580000 +139.830000 39.000000 +140.000000 39.420000 +140.000000 39.920000 +140.000000 40.330000 +140.000000 40.670000 +140.330000 41.170000 +140.670000 40.920000 +141.080000 40.920000 +141.080000 41.170000 +140.750000 41.170000 +140.830000 41.500000 +141.420000 41.330000 +141.330000 41.000000 +141.420000 40.580000 +141.750000 40.170000 +141.920000 39.670000 +141.830000 39.080000 +141.500000 38.750000 +141.500000 38.330000 +141.080000 38.330000 +140.920000 38.080000 +141.000000 37.580000 +140.920000 37.000000 +140.670000 36.750000 +140.580000 36.170000 +140.750000 35.750000 +140.750000 35.750000 +140.420000 35.500000 +140.330000 35.170000 +139.750000 34.920000 +139.830000 35.500000 +139.580000 35.250000 +139.080000 35.250000 +138.830000 34.580000 +138.670000 35.080000 +138.080000 34.580000 +137.250000 34.580000 +136.750000 35.000000 +136.500000 34.670000 +136.750000 34.330000 +136.170000 33.920000 +135.750000 33.420000 +135.420000 33.500000 +135.170000 33.920000 +135.170000 34.330000 +135.500000 34.750000 +134.920000 34.750000 +134.500000 34.830000 +133.920000 34.580000 +133.500000 34.500000 +132.920000 34.330000 +132.330000 34.250000 +132.000000 33.920000 +131.500000 34.000000 +130.920000 33.920000 +130.920000 34.330000 +44 +139.830000 42.580000 +140.420000 42.920000 +140.330000 43.250000 +140.750000 43.170000 +141.250000 43.170000 +141.330000 43.420000 +141.250000 43.750000 +141.580000 44.000000 +141.670000 44.330000 +141.750000 44.750000 +141.500000 45.250000 +141.920000 45.500000 +142.330000 45.170000 +142.670000 44.750000 +142.670000 44.750000 +143.000000 44.500000 +143.580000 44.170000 +144.170000 44.000000 +144.670000 43.920000 +145.330000 44.250000 +145.000000 43.750000 +145.250000 43.580000 +145.250000 43.330000 +145.830000 43.420000 +145.330000 43.170000 +144.750000 42.920000 +144.170000 43.000000 +143.670000 42.670000 +143.330000 42.330000 +143.250000 42.000000 +142.500000 42.250000 +141.830000 42.580000 +141.330000 42.500000 +140.920000 42.330000 +140.670000 42.500000 +140.330000 42.500000 +140.250000 42.250000 +140.670000 42.080000 +141.080000 41.830000 +140.500000 41.670000 +140.000000 41.420000 +140.000000 42.000000 +139.750000 42.250000 +139.830000 42.580000 +4 +127.750000 26.080000 +127.830000 26.420000 +128.170000 26.580000 +128.250000 26.830000 +2 +129.330000 28.170000 +129.670000 28.420000 +3 +145.500000 43.830000 +145.830000 44.080000 +146.170000 44.330000 +8 +146.920000 44.420000 +147.420000 45.000000 +147.920000 45.330000 +148.330000 45.250000 +148.830000 45.500000 +148.170000 45.080000 +147.500000 44.750000 +146.920000 44.420000 +5 +149.500000 45.670000 +150.000000 46.080000 +150.500000 46.250000 +149.830000 45.750000 +149.500000 45.670000 +2 +151.750000 46.830000 +152.170000 47.170000 +7 +155.170000 50.270000 +155.670000 50.420000 +156.080000 50.750000 +156.080000 50.500000 +155.830000 50.200000 +155.170000 50.000000 +155.170000 50.270000 +5 +137.250000 54.830000 +137.500000 55.170000 +138.080000 55.000000 +137.580000 54.580000 +137.250000 54.830000 +5 +163.330000 58.500000 +163.670000 59.000000 +164.250000 59.170000 +164.420000 58.920000 +163.330000 58.500000 +57 +141.750000 53.330000 +142.250000 53.580000 +142.312222 53.642549 +142.374629 53.705065 +142.437221 53.767549 +142.500000 53.830000 +142.437972 53.935048 +142.375632 54.040065 +142.312975 54.145049 +142.250000 54.250000 +142.354847 54.270137 +142.459796 54.290182 +142.564847 54.310137 +142.670000 54.330000 +142.920000 54.000000 +143.000000 53.500000 +143.170000 53.000000 +143.170000 52.500000 +143.080000 52.000000 +143.330000 51.500000 +143.500000 51.000000 +143.670000 50.500000 +143.920000 50.000000 +144.170000 49.500000 +144.330000 49.080000 +143.750000 49.330000 +143.250000 49.330000 +143.250000 49.330000 +142.920000 49.080000 +142.830000 48.750000 +142.580000 48.330000 +142.500000 47.830000 +142.670000 47.500000 +143.000000 47.250000 +143.080000 46.920000 +143.420000 46.750000 +143.420000 46.250000 +143.000000 46.580000 +142.580000 46.670000 +142.250000 46.420000 +142.000000 45.920000 +141.750000 46.580000 +142.000000 47.000000 +142.000000 47.580000 +142.170000 48.000000 +142.000000 48.500000 +141.830000 48.750000 +142.000000 49.080000 +142.080000 49.500000 +142.080000 50.000000 +142.000000 50.500000 +142.080000 51.000000 +142.000000 51.420000 +141.670000 51.750000 +141.670000 52.250000 +141.830000 52.750000 +141.750000 53.330000 +4 +180.000000 71.000000 +178.830000 70.830000 +178.670000 71.120000 +180.000000 71.530000 +11 +-180.000000 71.530000 +-178.250000 71.530000 +-178.039591 71.440343 +-177.831137 71.350455 +-177.624614 71.260340 +-177.420000 71.170000 +-177.861993 71.104046 +-178.301000 71.037053 +-178.737007 70.969035 +-179.170000 70.900000 +-180.000000 71.000000 +7 +140.580000 73.500000 +141.000000 73.830000 +142.250000 73.920000 +143.500000 73.500000 +143.500000 73.170000 +141.580000 73.250000 +140.580000 73.500000 +5 +140.170000 74.250000 +141.000000 74.250000 +141.000000 74.000000 +140.330000 73.920000 +140.170000 74.250000 +8 +146.500000 75.580000 +147.330000 75.420000 +149.250000 75.330000 +151.000000 75.170000 +150.500000 74.750000 +149.250000 74.750000 +147.250000 75.080000 +146.500000 75.580000 +16 +137.170000 75.250000 +137.500000 75.920000 +139.000000 76.170000 +141.000000 75.750000 +142.000000 76.170000 +143.250000 75.830000 +144.000000 75.830000 +145.000000 75.670000 +145.000000 75.420000 +144.000000 75.080000 +142.830000 74.830000 +142.000000 75.000000 +140.500000 74.830000 +139.250000 74.670000 +138.080000 74.750000 +137.170000 75.250000 +11 +99.330000 77.920000 +99.830000 78.330000 +100.580000 78.830000 +101.250000 79.250000 +102.330000 79.420000 +103.920000 79.170000 +105.000000 78.830000 +105.000000 78.330000 +103.170000 78.170000 +101.000000 78.170000 +99.330000 77.920000 +33 +91.170000 80.080000 +92.670000 80.500000 +93.170000 80.920000 +95.580000 81.250000 +96.420000 81.000000 +96.695533 80.937801 +96.967335 80.875398 +97.235469 80.812797 +97.500000 80.750000 +97.372506 80.687566 +97.246696 80.625088 +97.122538 80.562565 +97.000000 80.500000 +97.148709 80.417592 +97.294904 80.335121 +97.438648 80.252590 +97.580000 80.170000 +99.250000 80.000000 +99.485583 79.917742 +99.717388 79.835321 +99.945500 79.752739 +100.170000 79.670000 +99.997502 79.565133 +99.828401 79.460176 +99.662598 79.355131 +99.500000 79.250000 +99.830000 78.830000 +98.330000 78.750000 +96.750000 78.920000 +94.670000 79.080000 +93.830000 79.500000 +91.830000 79.670000 +91.170000 80.080000 +77 +51.670000 71.580000 +51.670000 71.705000 +51.670000 71.830000 +51.670000 71.955000 +51.670000 72.080000 +51.937251 72.143053 +52.206329 72.205740 +52.477243 72.268057 +52.750000 72.330000 +52.688378 72.415029 +52.626176 72.500039 +52.563386 72.585029 +52.500000 72.670000 +52.545642 72.701330 +52.591444 72.732649 +52.637407 72.763958 +52.683533 72.795256 +52.729822 72.826544 +52.776274 72.857822 +52.822892 72.889088 +52.869675 72.920344 +53.058478 73.045260 +53.250000 73.170000 +53.517061 73.233023 +53.786074 73.295701 +54.057050 73.358027 +54.330000 73.420000 +54.206824 73.502610 +54.082444 73.585148 +53.956842 73.667611 +53.830000 73.750000 +54.920000 74.170000 +55.750000 74.750000 +55.750000 75.080000 +57.500000 75.330000 +57.500000 75.330000 +58.170000 75.580000 +59.250000 75.920000 +61.170000 76.250000 +63.170000 76.250000 +65.170000 76.420000 +66.000000 76.750000 +67.750000 77.000000 +69.080000 76.830000 +68.830000 76.330000 +67.250000 76.080000 +65.500000 75.830000 +63.830000 75.670000 +62.250000 75.330000 +60.750000 75.000000 +59.830000 74.580000 +58.670000 74.170000 +57.830000 73.750000 +57.000000 73.330000 +56.170000 72.920000 +55.580000 72.500000 +55.500000 72.000000 +55.750000 71.500000 +56.330000 71.080000 +56.669191 70.998412 +57.005577 70.916210 +57.339175 70.833404 +57.670000 70.750000 +57.481310 70.707788 +57.293414 70.665383 +57.106312 70.622787 +56.920000 70.580000 +55.330000 70.670000 +53.830000 70.830000 +53.583221 70.915501 +53.334309 71.000672 +53.083242 71.085506 +52.830000 71.170000 +52.544600 71.273163 +52.256158 71.375888 +51.964637 71.478170 +51.670000 71.580000 +6 +48.750000 68.750000 +48.500000 69.250000 +49.170000 69.580000 +50.330000 69.250000 +50.000000 68.920000 +48.750000 68.750000 +21 +56.000000 80.120000 +57.330000 80.450000 +59.250000 80.420000 +59.670000 80.780000 +62.330000 80.920000 +62.830000 81.170000 +64.580000 81.420000 +64.753526 81.315112 +64.922941 81.210148 +65.088387 81.105110 +65.250000 81.000000 +64.890050 80.958017 +64.533413 80.915686 +64.180069 80.873012 +63.830000 80.830000 +62.330000 80.920000 +62.330000 80.470000 +61.500000 80.330000 +59.250000 80.420000 +57.750000 80.120000 +56.000000 80.120000 +10 +54.250000 80.800000 +54.830000 81.030000 +56.500000 81.030000 +56.500000 81.420000 +58.500000 81.750000 +58.830000 81.330000 +57.670000 81.000000 +58.500000 80.800000 +56.330000 80.630000 +54.250000 80.800000 +10 +53.170000 80.250000 +54.000000 80.500000 +54.254272 80.445271 +54.505670 80.390359 +54.754233 80.335268 +55.000000 80.280000 +54.541480 80.273414 +54.083604 80.266218 +53.626425 80.258412 +53.170000 80.250000 +13 +44.500000 80.550000 +47.000000 80.900000 +48.000000 80.750000 +48.000000 80.550000 +50.330000 80.780000 +51.170000 80.670000 +50.000000 80.400000 +50.000000 80.120000 +48.420000 80.050000 +47.000000 80.170000 +47.000000 80.420000 +45.670000 80.420000 +44.500000 80.550000 +46 +11.000000 79.750000 +13.830000 79.830000 +15.500000 79.670000 +16.330000 80.030000 +18.000000 79.920000 +18.000000 80.250000 +20.000000 80.500000 +21.000000 80.170000 +23.000000 80.420000 +24.830000 80.250000 +24.830000 80.250000 +27.000000 80.170000 +27.000000 79.870000 +25.670000 79.420000 +23.830000 79.170000 +20.920000 79.330000 +18.750000 79.700000 +19.000000 79.170000 +21.500000 78.830000 +22.170000 78.420000 +23.170000 78.080000 +24.830000 77.750000 +22.670000 77.250000 +20.830000 77.420000 +21.670000 77.920000 +20.670000 78.180000 +20.250000 78.630000 +19.000000 78.420000 +18.920000 78.030000 +18.080000 77.500000 +17.330000 77.000000 +17.000000 76.500000 +15.170000 77.020000 +14.000000 77.500000 +13.670000 77.950000 +14.016616 78.018153 +14.367127 78.085876 +14.721575 78.153161 +15.080000 78.220000 +14.602532 78.221193 +14.125000 78.221591 +13.647468 78.221193 +13.170000 78.220000 +11.670000 78.700000 +11.000000 79.330000 +11.000000 79.750000 +5 +-7.420000 62.080000 +-7.250000 62.300000 +-6.330000 62.370000 +-6.920000 62.000000 +-7.420000 62.080000 +3 +-1.550000 60.230000 +-1.250000 60.420000 +-1.250000 60.000000 +2 +-3.250000 59.170000 +-2.750000 58.930000 +6 +-7.250000 57.580000 +-7.000000 57.830000 +-7.000000 58.170000 +-6.170000 58.500000 +-6.420000 58.000000 +-7.250000 57.580000 +6 +9.750000 55.470000 +10.280000 55.580000 +10.750000 55.370000 +10.700000 55.050000 +10.080000 55.050000 +9.750000 55.470000 +15 +11.080000 55.700000 +11.750000 55.900000 +12.420000 56.100000 +12.460310 56.000020 +12.500412 55.900026 +12.540308 55.800019 +12.580000 55.700000 +12.477049 55.642628 +12.374399 55.585171 +12.272050 55.527628 +12.170000 55.470000 +12.420000 55.280000 +11.830000 55.130000 +11.250000 55.200000 +11.080000 55.700000 +6 +11.000000 54.830000 +11.580000 54.920000 +12.080000 54.830000 +11.830000 54.670000 +11.330000 54.580000 +11.000000 54.830000 +7 +18.080000 57.500000 +18.420000 57.780000 +19.170000 57.930000 +18.750000 57.700000 +18.750000 57.280000 +18.250000 57.080000 +18.080000 57.500000 +6 +21.830000 58.330000 +22.330000 58.620000 +23.170000 58.500000 +22.670000 58.300000 +22.170000 58.100000 +21.830000 58.330000 +5 +22.330000 58.880000 +22.500000 59.080000 +23.000000 58.830000 +22.420000 58.720000 +22.330000 58.880000 +106 +-5.580000 50.080000 +-5.000000 50.420000 +-4.500000 50.750000 +-4.080000 51.170000 +-3.500000 51.170000 +-3.000000 51.170000 +-2.670000 51.580000 +-3.330000 51.330000 +-3.830000 51.580000 +-4.330000 51.670000 +-5.000000 51.580000 +-5.042324 51.642523 +-5.084765 51.705031 +-5.127324 51.767523 +-5.170000 51.830000 +-5.023116 51.892776 +-4.875822 51.955369 +-4.728117 52.017777 +-4.580000 52.080000 +-4.080000 52.250000 +-4.080000 52.750000 +-4.670000 52.750000 +-4.330000 53.080000 +-4.500000 53.330000 +-3.580000 53.250000 +-3.000000 53.330000 +-3.000000 53.750000 +-2.670000 54.170000 +-3.170000 54.170000 +-3.580000 54.500000 +-3.250000 54.920000 +-4.000000 54.750000 +-4.750000 54.580000 +-4.831982 54.665084 +-4.914307 54.750112 +-4.996979 54.835084 +-5.080000 54.920000 +-4.978616 55.065128 +-4.876493 55.210172 +-4.773625 55.355129 +-4.670000 55.500000 +-4.771853 55.582628 +-4.874136 55.665171 +-4.976850 55.747628 +-5.080000 55.830000 +-5.080000 55.830000 +-5.580000 55.420000 +-5.580000 55.750000 +-6.170000 55.750000 +-5.500000 56.080000 +-5.420000 56.500000 +-6.000000 56.330000 +-6.000000 56.670000 +-5.580000 57.170000 +-6.250000 57.170000 +-6.670000 57.420000 +-6.330000 57.580000 +-5.830000 57.420000 +-5.750000 57.750000 +-5.330000 58.080000 +-5.000000 58.500000 +-4.080000 58.500000 +-3.170000 58.580000 +-3.000000 58.330000 +-3.830000 58.000000 +-4.170000 57.580000 +-3.420000 57.670000 +-2.750000 57.670000 +-1.920000 57.670000 +-1.830000 57.330000 +-2.080000 57.000000 +-2.420000 56.580000 +-2.830000 56.250000 +-3.330000 56.000000 +-2.670000 56.000000 +-2.000000 55.830000 +-2.000000 55.830000 +-1.670000 55.500000 +-1.500000 55.000000 +-1.170000 54.580000 +-0.500000 54.420000 +-0.250000 54.000000 +-0.080000 53.670000 +0.170000 53.420000 +0.330000 53.080000 +0.000000 52.830000 +0.250000 52.670000 +0.580000 52.920000 +1.000000 52.920000 +1.580000 52.750000 +1.830000 52.420000 +1.580000 52.000000 +1.000000 51.750000 +0.580000 51.330000 +1.420000 51.250000 +0.920000 50.830000 +0.080000 50.670000 +-0.670000 50.670000 +-1.420000 50.750000 +-2.080000 50.500000 +-2.830000 50.670000 +-3.500000 50.580000 +-3.670000 50.170000 +-4.500000 50.330000 +-5.080000 50.000000 +-5.580000 50.080000 +30 +-10.330000 52.170000 +-9.750000 52.170000 +-9.500000 52.670000 +-9.000000 53.170000 +-9.500000 53.170000 +-10.000000 53.500000 +-9.500000 53.750000 +-10.000000 53.920000 +-9.750000 54.250000 +-9.080000 54.250000 +-8.500000 54.250000 +-8.170000 54.500000 +-8.670000 54.670000 +-8.250000 55.080000 +-7.500000 55.250000 +-6.750000 55.170000 +-6.080000 55.080000 +-5.750000 54.750000 +-5.580000 54.250000 +-6.250000 53.920000 +-6.080000 53.500000 +-6.000000 53.000000 +-6.170000 52.580000 +-6.330000 52.170000 +-7.250000 52.080000 +-8.000000 51.750000 +-8.750000 51.580000 +-9.580000 51.500000 +-10.080000 51.750000 +-10.330000 52.170000 +10 +8.670000 42.500000 +9.170000 42.670000 +9.420000 43.000000 +9.420000 42.500000 +9.500000 42.170000 +9.330000 41.830000 +9.170000 41.330000 +8.670000 41.750000 +8.580000 42.080000 +8.670000 42.500000 +16 +8.170000 40.920000 +8.420000 40.830000 +8.750000 40.920000 +9.250000 41.250000 +9.670000 40.830000 +9.750000 40.420000 +9.750000 40.000000 +9.670000 39.580000 +9.500000 39.170000 +9.080000 39.170000 +8.750000 38.830000 +8.330000 39.170000 +8.420000 39.670000 +8.420000 40.170000 +8.170000 40.580000 +8.170000 40.920000 +17 +12.330000 37.920000 +12.750000 38.170000 +13.250000 38.170000 +13.670000 38.000000 +14.250000 38.000000 +15.000000 38.080000 +15.670000 38.250000 +15.330000 37.830000 +15.170000 37.330000 +15.330000 37.000000 +15.170000 36.670000 +14.500000 36.750000 +14.170000 37.080000 +13.670000 37.170000 +13.000000 37.500000 +12.670000 37.500000 +12.330000 37.920000 +16 +21.080000 37.750000 +21.330000 38.080000 +21.830000 38.250000 +22.330000 38.080000 +22.830000 37.830000 +23.170000 37.330000 +22.670000 37.420000 +22.830000 37.000000 +23.080000 36.420000 +22.670000 36.750000 +22.330000 36.420000 +22.080000 36.750000 +21.670000 36.750000 +21.500000 37.000000 +21.580000 37.420000 +21.080000 37.750000 +15 +23.500000 35.170000 +23.580000 35.580000 +24.170000 35.500000 +24.250000 35.330000 +24.750000 35.420000 +25.170000 35.300000 +25.750000 35.330000 +25.750000 35.080000 +26.250000 35.250000 +26.170000 34.970000 +25.500000 34.930000 +24.830000 34.900000 +24.500000 35.080000 +24.000000 35.170000 +23.500000 35.170000 +13 +32.250000 35.000000 +32.750000 35.080000 +33.000000 35.250000 +33.420000 35.330000 +33.920000 35.420000 +34.500000 35.580000 +33.920000 35.170000 +34.080000 34.920000 +33.670000 34.920000 +33.500000 34.700000 +33.000000 34.580000 +32.420000 34.670000 +32.250000 35.000000 +6 +2.250000 39.580000 +2.920000 39.920000 +3.420000 39.670000 +3.080000 39.270000 +2.730000 39.500000 +2.250000 39.580000 +5 +27.670000 36.170000 +28.250000 36.450000 +28.080000 36.080000 +27.750000 35.880000 +27.670000 36.170000 +3 +26.000000 39.220000 +26.250000 39.300000 +26.250000 39.050000 +2 +26.000000 38.500000 +26.000000 38.250000 +2 +-28.670000 38.570000 +-28.170000 38.400000 +2 +-25.830000 37.800000 +-25.170000 37.800000 +6 +-16.830000 28.330000 +-16.500000 28.380000 +-16.170000 28.580000 +-16.330000 28.170000 +-16.580000 28.000000 +-16.830000 28.330000 +6 +-15.800000 28.000000 +-15.670000 28.170000 +-15.370000 28.080000 +-15.330000 27.830000 +-15.670000 27.750000 +-15.800000 28.000000 +9 +-14.250000 28.080000 +-14.250000 28.330000 +-13.830000 28.830000 +-13.670000 29.080000 +-13.420000 29.170000 +-13.500000 28.920000 +-13.830000 28.830000 +-13.830000 28.250000 +-14.250000 28.080000 +5 +8.500000 3.330000 +8.670000 3.750000 +8.920000 3.580000 +8.750000 3.250000 +8.500000 3.330000 +309 +115.170000 -34.170000 +115.170000 -33.580000 +115.580000 -33.500000 +115.830000 -33.250000 +115.750000 -32.920000 +115.830000 -32.330000 +115.830000 -31.750000 +115.580000 -31.420000 +115.420000 -31.000000 +115.170000 -30.500000 +115.000000 -30.000000 +115.000000 -29.500000 +114.920000 -29.080000 +114.580000 -28.580000 +114.170000 -28.080000 +114.170000 -27.670000 +113.920000 -27.000000 +113.500000 -26.670000 +113.330000 -26.170000 +113.830000 -26.580000 +113.500000 -25.670000 +113.750000 -26.080000 +113.750000 -26.080000 +114.170000 -26.420000 +114.170000 -25.830000 +113.920000 -25.420000 +113.670000 -25.000000 +113.500000 -24.420000 +113.420000 -23.920000 +113.830000 -23.500000 +113.830000 -23.080000 +113.670000 -22.670000 +113.830000 -22.250000 +114.080000 -21.830000 +114.330000 -22.330000 +114.580000 -21.920000 +115.080000 -21.670000 +115.500000 -21.500000 +115.830000 -21.080000 +116.250000 -20.830000 +116.750000 -20.670000 +117.250000 -20.670000 +117.750000 -20.670000 +118.250000 -20.330000 +118.750000 -20.330000 +119.170000 -20.000000 +119.750000 -20.000000 +120.330000 -19.830000 +120.920000 -19.750000 +121.330000 -19.420000 +121.670000 -19.080000 +121.920000 -18.580000 +122.330000 -18.170000 +122.330000 -18.170000 +122.250000 -17.830000 +122.170000 -17.420000 +122.580000 -17.000000 +123.000000 -16.500000 +123.250000 -17.080000 +123.500000 -17.500000 +123.920000 -17.000000 +123.580000 -16.670000 +123.750000 -16.170000 +124.330000 -16.420000 +124.580000 -16.000000 +124.670000 -15.500000 +125.170000 -15.080000 +125.250000 -14.670000 +125.920000 -14.670000 +126.080000 -14.330000 +126.580000 -14.250000 +126.830000 -13.920000 +127.420000 -14.000000 +127.830000 -14.420000 +128.170000 -14.750000 +128.170000 -15.250000 +128.670000 -14.920000 +129.080000 -14.920000 +129.670000 -15.250000 +129.830000 -14.830000 +129.330000 -14.500000 +129.750000 -14.080000 +129.920000 -13.670000 +130.420000 -13.580000 +130.420000 -13.580000 +130.250000 -13.170000 +130.500000 -12.750000 +131.080000 -12.330000 +131.750000 -12.330000 +132.420000 -12.330000 +132.482588 -12.205021 +132.545117 -12.080028 +132.607587 -11.955021 +132.670000 -11.830000 +132.584906 -11.727537 +132.499875 -11.625050 +132.414906 -11.522537 +132.330000 -11.420000 +132.497429 -11.460143 +132.664905 -11.500191 +132.832429 -11.540144 +133.000000 -11.580000 +133.500000 -11.920000 +134.080000 -12.000000 +134.670000 -12.170000 +135.250000 -12.330000 +135.830000 -12.170000 +136.080000 -12.580000 +136.500000 -12.080000 +137.000000 -12.420000 +136.670000 -12.830000 +136.580000 -13.330000 +136.000000 -13.330000 +136.000000 -13.830000 +136.000000 -14.250000 +135.750000 -14.580000 +135.580000 -15.000000 +136.000000 -15.330000 +136.420000 -15.500000 +136.580000 -16.000000 +137.330000 -16.000000 +137.750000 -16.330000 +138.080000 -16.580000 +138.670000 -16.830000 +138.670000 -16.830000 +139.170000 -17.000000 +139.420000 -17.420000 +140.000000 -17.830000 +140.500000 -17.750000 +141.000000 -17.500000 +141.000000 -17.000000 +141.250000 -16.580000 +141.500000 -16.080000 +141.580000 -15.580000 +141.670000 -15.080000 +141.580000 -14.580000 +141.580000 -14.080000 +141.670000 -13.580000 +141.750000 -13.000000 +141.750000 -12.670000 +141.750000 -12.170000 +142.080000 -11.830000 +142.080000 -11.250000 +142.420000 -10.830000 +142.830000 -11.080000 +142.920000 -11.670000 +143.080000 -12.170000 +143.330000 -12.670000 +143.580000 -13.250000 +143.580000 -13.750000 +143.750000 -14.330000 +144.080000 -14.500000 +144.580000 -14.330000 +144.920000 -14.670000 +145.330000 -15.000000 +145.330000 -15.000000 +145.330000 -15.500000 +145.500000 -16.000000 +145.500000 -16.580000 +145.830000 -17.000000 +146.080000 -17.330000 +146.170000 -17.830000 +146.080000 -18.330000 +146.330000 -18.670000 +146.420000 -19.000000 +147.000000 -19.330000 +147.500000 -19.420000 +147.830000 -19.830000 +148.330000 -20.170000 +148.830000 -20.420000 +148.830000 -20.830000 +149.170000 -21.080000 +149.330000 -21.420000 +149.500000 -21.920000 +149.750000 -22.420000 +150.000000 -22.080000 +150.420000 -22.420000 +150.830000 -22.670000 +150.830000 -23.170000 +151.000000 -23.580000 +151.330000 -23.920000 +151.830000 -24.080000 +152.170000 -24.580000 +152.580000 -25.080000 +152.830000 -25.500000 +153.080000 -26.080000 +153.080000 -26.080000 +153.080000 -26.500000 +153.170000 -27.080000 +153.330000 -27.580000 +153.500000 -28.170000 +153.670000 -28.670000 +153.500000 -29.000000 +153.420000 -29.500000 +153.330000 -30.000000 +153.080000 -30.580000 +153.080000 -31.000000 +152.920000 -31.500000 +152.750000 -31.920000 +152.500000 -32.330000 +152.250000 -32.750000 +151.830000 -33.000000 +151.500000 -33.420000 +151.330000 -33.830000 +151.080000 -34.330000 +150.830000 -34.920000 +150.580000 -35.250000 +150.250000 -35.750000 +150.170000 -36.250000 +150.000000 -36.750000 +150.000000 -37.170000 +149.920000 -37.580000 +149.420000 -37.830000 +148.750000 -37.830000 +148.170000 -37.920000 +147.830000 -38.080000 +147.250000 -38.420000 +147.250000 -38.420000 +146.830000 -38.670000 +146.420000 -39.170000 +146.000000 -38.920000 +145.580000 -38.670000 +145.500000 -38.250000 +145.000000 -38.420000 +144.830000 -37.830000 +144.420000 -38.250000 +144.000000 -38.500000 +143.500000 -38.830000 +143.080000 -38.670000 +142.670000 -38.420000 +142.250000 -38.330000 +141.750000 -38.250000 +141.420000 -38.420000 +141.170000 -38.080000 +140.670000 -38.000000 +140.250000 -37.670000 +139.920000 -37.330000 +139.750000 -37.000000 +139.920000 -36.750000 +139.670000 -36.330000 +139.330000 -35.920000 +138.830000 -35.580000 +138.170000 -35.670000 +138.420000 -35.420000 +138.580000 -35.000000 +138.420000 -34.670000 +138.080000 -34.250000 +137.920000 -34.750000 +137.920000 -34.750000 +137.750000 -35.170000 +137.330000 -35.170000 +136.920000 -35.250000 +137.000000 -35.000000 +137.420000 -34.830000 +137.500000 -34.500000 +137.580000 -34.000000 +137.920000 -33.580000 +137.830000 -32.830000 +137.500000 -33.170000 +137.250000 -33.670000 +136.750000 -33.920000 +136.330000 -34.250000 +135.920000 -34.580000 +135.670000 -35.000000 +135.420000 -34.580000 +135.250000 -34.170000 +135.000000 -33.750000 +134.830000 -33.250000 +134.170000 -33.000000 +134.330000 -32.580000 +133.920000 -32.330000 +133.420000 -32.170000 +132.830000 -32.000000 +132.250000 -32.000000 +131.830000 -31.750000 +131.330000 -31.580000 +130.830000 -31.580000 +130.330000 -31.580000 +129.670000 -31.580000 +129.670000 -31.580000 +129.080000 -31.670000 +128.580000 -31.830000 +128.000000 -32.080000 +127.500000 -32.170000 +126.920000 -32.250000 +126.250000 -32.170000 +125.830000 -32.330000 +125.250000 -32.670000 +124.750000 -32.830000 +124.080000 -33.000000 +124.000000 -33.500000 +123.580000 -33.830000 +123.080000 -33.830000 +122.580000 -33.830000 +121.920000 -33.830000 +121.330000 -33.830000 +120.750000 -33.830000 +120.080000 -33.920000 +119.750000 -34.000000 +119.420000 -34.420000 +119.000000 -34.420000 +118.580000 -34.750000 +118.330000 -35.000000 +117.750000 -35.000000 +117.170000 -35.000000 +116.670000 -35.000000 +116.080000 -34.830000 +115.670000 -34.330000 +115.170000 -34.170000 +8 +130.080000 -11.830000 +130.330000 -11.330000 +130.750000 -11.500000 +131.330000 -11.330000 +131.500000 -11.580000 +131.000000 -12.000000 +130.670000 -11.830000 +130.080000 -11.830000 +7 +136.580000 -35.920000 +136.830000 -35.750000 +137.420000 -35.670000 +138.080000 -35.920000 +137.580000 -36.170000 +136.830000 -36.170000 +136.580000 -35.920000 +23 +144.830000 -40.670000 +145.500000 -40.830000 +146.170000 -41.170000 +146.750000 -41.170000 +147.330000 -41.000000 +148.000000 -40.830000 +148.330000 -41.000000 +148.330000 -41.500000 +148.330000 -42.000000 +148.170000 -42.170000 +148.000000 -42.580000 +147.920000 -43.080000 +147.500000 -42.830000 +147.170000 -43.170000 +146.830000 -43.580000 +146.250000 -43.500000 +145.750000 -43.250000 +145.500000 -42.920000 +145.330000 -42.500000 +145.250000 -42.170000 +145.000000 -41.750000 +144.830000 -41.170000 +144.830000 -40.670000 +60 +173.750000 -39.330000 +174.080000 -39.080000 +174.580000 -38.920000 +174.670000 -38.420000 +174.920000 -38.000000 +174.830000 -37.580000 +174.670000 -37.250000 +174.920000 -37.000000 +174.420000 -36.920000 +174.170000 -36.500000 +173.830000 -36.080000 +173.500000 -35.670000 +173.170000 -35.330000 +173.080000 -34.920000 +172.830000 -34.500000 +173.330000 -35.000000 +174.000000 -35.080000 +174.330000 -35.420000 +174.580000 -35.750000 +174.580000 -36.080000 +174.830000 -36.420000 +174.920000 -37.000000 +175.250000 -37.000000 +175.500000 -37.250000 +175.500000 -37.250000 +175.420000 -36.580000 +175.830000 -36.750000 +175.920000 -37.250000 +176.080000 -37.670000 +176.670000 -37.830000 +177.250000 -38.000000 +177.750000 -37.750000 +178.080000 -37.500000 +178.500000 -37.670000 +178.330000 -38.170000 +178.330000 -38.580000 +178.000000 -38.750000 +177.920000 -39.080000 +177.500000 -39.080000 +177.080000 -39.250000 +176.920000 -39.500000 +177.000000 -39.750000 +176.750000 -40.250000 +176.420000 -40.670000 +176.170000 -41.000000 +175.830000 -41.420000 +175.250000 -41.580000 +175.144696 -41.517643 +175.039595 -41.455191 +174.934697 -41.392643 +174.830000 -41.330000 +174.892794 -41.227551 +174.955390 -41.125068 +175.017792 -41.022551 +175.080000 -40.920000 +175.250000 -40.330000 +175.080000 -40.000000 +174.670000 -39.830000 +174.250000 -39.670000 +173.750000 -39.330000 +47 +166.500000 -45.920000 +166.830000 -45.420000 +167.080000 -45.080000 +167.580000 -44.750000 +167.920000 -44.420000 +168.330000 -44.080000 +168.830000 -44.000000 +169.500000 -43.670000 +170.000000 -43.330000 +170.500000 -43.000000 +171.080000 -42.670000 +171.330000 -42.250000 +171.500000 -41.830000 +172.000000 -41.670000 +172.170000 -41.330000 +172.170000 -40.920000 +172.580000 -40.670000 +172.580000 -40.670000 +173.080000 -40.920000 +173.170000 -41.330000 +173.500000 -41.170000 +173.830000 -40.920000 +173.920000 -41.250000 +174.330000 -41.330000 +174.330000 -41.830000 +174.000000 -42.170000 +173.580000 -42.580000 +173.250000 -43.000000 +172.830000 -43.170000 +172.750000 -43.500000 +173.080000 -43.750000 +172.420000 -43.750000 +172.000000 -44.080000 +171.420000 -44.330000 +171.250000 -44.670000 +171.080000 -45.080000 +170.920000 -45.500000 +170.580000 -45.920000 +170.170000 -46.250000 +169.670000 -46.500000 +169.000000 -46.670000 +168.330000 -46.500000 +167.830000 -46.420000 +167.580000 -46.170000 +167.250000 -46.250000 +166.750000 -46.170000 +166.500000 -45.920000 +4 +167.580000 -47.330000 +168.000000 -46.670000 +168.250000 -47.000000 +167.580000 -47.330000 +69 +95.330000 5.670000 +95.920000 5.670000 +96.330000 5.330000 +96.920000 5.330000 +97.580000 5.250000 +98.000000 4.920000 +98.250000 4.500000 +98.580000 4.080000 +98.580000 4.080000 +99.000000 3.750000 +99.500000 3.500000 +100.000000 3.170000 +100.330000 2.670000 +100.750000 2.170000 +101.250000 2.250000 +101.750000 1.750000 +102.250000 1.670000 +102.670000 1.170000 +103.080000 1.080000 +103.000000 0.580000 +103.420000 0.580000 +103.830000 0.170000 +103.750000 -0.250000 +103.500000 -0.670000 +103.830000 -1.000000 +104.420000 -1.000000 +104.580000 -1.670000 +104.920000 -1.920000 +105.080000 -2.330000 +105.580000 -2.330000 +105.920000 -2.670000 +106.170000 -3.000000 +105.920000 -3.500000 +105.920000 -4.170000 +105.920000 -4.670000 +105.830000 -5.250000 +105.750000 -5.750000 +105.330000 -5.500000 +104.920000 -5.500000 +104.920000 -5.500000 +104.750000 -5.750000 +104.420000 -5.580000 +104.000000 -5.080000 +103.500000 -4.750000 +102.830000 -4.250000 +102.420000 -3.830000 +102.250000 -3.500000 +101.750000 -3.170000 +101.330000 -2.580000 +100.920000 -2.080000 +100.830000 -1.670000 +100.500000 -1.080000 +100.420000 -0.670000 +100.000000 -0.250000 +99.830000 0.080000 +99.250000 0.330000 +99.080000 1.000000 +98.830000 1.500000 +98.830000 1.830000 +98.330000 2.170000 +97.830000 2.420000 +97.670000 2.920000 +97.250000 3.330000 +96.920000 3.750000 +96.580000 3.830000 +96.080000 4.330000 +95.670000 4.750000 +95.420000 5.170000 +95.330000 5.670000 +44 +105.500000 -6.670000 +105.830000 -6.330000 +106.080000 -5.830000 +106.670000 -6.000000 +107.080000 -5.830000 +107.420000 -5.920000 +107.920000 -6.170000 +108.420000 -6.250000 +108.670000 -6.670000 +109.080000 -6.750000 +109.580000 -6.750000 +110.080000 -6.830000 +110.500000 -6.830000 +110.830000 -6.330000 +110.830000 -6.330000 +111.330000 -6.580000 +111.920000 -6.750000 +112.420000 -6.830000 +112.750000 -7.080000 +112.830000 -7.500000 +113.420000 -7.670000 +113.920000 -7.580000 +114.420000 -7.670000 +114.420000 -8.170000 +114.420000 -8.580000 +114.000000 -8.500000 +113.580000 -8.330000 +113.080000 -8.170000 +112.500000 -8.330000 +112.000000 -8.170000 +111.500000 -8.170000 +111.000000 -8.080000 +110.500000 -8.000000 +110.000000 -7.750000 +109.580000 -7.670000 +109.000000 -7.670000 +108.580000 -7.750000 +108.000000 -7.670000 +107.580000 -7.420000 +107.000000 -7.330000 +106.500000 -7.250000 +106.580000 -7.000000 +106.000000 -6.750000 +105.500000 -6.670000 +6 +114.420000 -8.170000 +115.250000 -8.000000 +115.670000 -8.250000 +115.170000 -8.670000 +114.830000 -8.330000 +114.420000 -8.170000 +34 +116.000000 -8.920000 +116.080000 -8.420000 +116.500000 -8.250000 +117.000000 -8.420000 +117.000000 -8.420000 +117.580000 -8.420000 +118.000000 -8.500000 +117.750000 -8.080000 +118.420000 -8.250000 +119.000000 -8.250000 +119.500000 -8.580000 +120.000000 -8.330000 +120.500000 -8.170000 +121.000000 -8.330000 +121.500000 -8.500000 +122.000000 -8.420000 +122.420000 -8.670000 +122.920000 -8.170000 +123.670000 -8.330000 +123.000000 -8.500000 +122.420000 -8.670000 +122.000000 -8.830000 +121.500000 -8.750000 +121.000000 -8.830000 +120.500000 -8.750000 +120.000000 -8.750000 +119.500000 -8.580000 +119.000000 -8.670000 +118.500000 -8.750000 +118.080000 -8.830000 +117.670000 -9.000000 +117.170000 -9.080000 +116.500000 -8.920000 +116.000000 -8.920000 +10 +124.330000 -8.420000 +124.500000 -8.080000 +124.667447 -8.122603 +124.834929 -8.165138 +125.002446 -8.207603 +125.170000 -8.250000 +124.960068 -8.292665 +124.750091 -8.335221 +124.540069 -8.377666 +124.330000 -8.420000 +5 +125.830000 -7.920000 +126.000000 -7.580000 +126.670000 -7.500000 +126.420000 -7.920000 +125.830000 -7.920000 +10 +119.000000 -9.420000 +119.500000 -9.330000 +120.000000 -9.330000 +120.500000 -9.580000 +120.920000 -10.000000 +120.420000 -10.250000 +120.000000 -9.920000 +119.670000 -9.750000 +119.170000 -9.750000 +119.000000 -9.420000 +18 +123.500000 -10.330000 +123.670000 -9.670000 +123.920000 -9.330000 +124.330000 -9.170000 +124.830000 -9.000000 +125.080000 -8.670000 +125.670000 -8.500000 +126.250000 -8.420000 +126.750000 -8.330000 +127.250000 -8.330000 +126.920000 -8.670000 +126.420000 -8.920000 +125.920000 -9.080000 +125.420000 -9.250000 +124.920000 -9.580000 +124.500000 -10.080000 +124.000000 -10.250000 +123.500000 -10.330000 +5 +131.170000 -7.920000 +131.250000 -7.420000 +131.580000 -7.080000 +131.580000 -7.580000 +131.170000 -7.920000 +7 +134.080000 -6.920000 +134.080000 -6.330000 +134.250000 -5.830000 +134.500000 -5.420000 +134.670000 -5.920000 +134.500000 -6.500000 +134.080000 -6.920000 +11 +105.250000 -1.920000 +105.500000 -1.580000 +106.000000 -1.500000 +106.250000 -2.000000 +106.420000 -2.420000 +106.750000 -2.500000 +106.670000 -3.000000 +105.920000 -2.670000 +106.000000 -2.250000 +105.750000 -2.000000 +105.250000 -1.920000 +5 +107.670000 -3.080000 +107.750000 -2.500000 +108.330000 -2.670000 +108.080000 -3.170000 +107.670000 -3.080000 +3 +113.000000 -7.000000 +113.500000 -7.000000 +114.000000 -7.000000 +74 +108.920000 1.000000 +109.080000 1.580000 +109.500000 2.000000 +110.000000 1.750000 +110.580000 1.670000 +111.080000 1.580000 +111.330000 2.250000 +111.500000 2.830000 +112.000000 2.920000 +112.580000 3.000000 +113.080000 3.330000 +113.330000 3.750000 +113.750000 4.080000 +113.750000 4.080000 +114.250000 4.670000 +114.750000 4.920000 +115.420000 4.920000 +115.420000 5.330000 +116.000000 5.830000 +116.170000 6.250000 +116.670000 6.580000 +117.000000 7.000000 +117.250000 6.750000 +117.750000 6.420000 +117.750000 5.920000 +118.250000 5.750000 +118.750000 5.420000 +119.250000 5.170000 +118.750000 5.000000 +118.250000 4.830000 +118.580000 4.420000 +117.920000 4.250000 +117.830000 3.670000 +117.500000 3.250000 +117.750000 2.750000 +118.080000 2.330000 +117.830000 2.000000 +118.250000 1.580000 +118.670000 1.250000 +119.000000 0.920000 +118.420000 0.830000 +117.920000 0.830000 +117.670000 0.500000 +117.500000 0.000000 +117.500000 0.000000 +117.420000 -0.580000 +117.170000 -1.000000 +116.750000 -1.330000 +116.330000 -1.750000 +116.670000 -2.250000 +116.330000 -2.920000 +116.170000 -3.420000 +115.670000 -3.670000 +115.170000 -3.920000 +114.750000 -4.080000 +114.670000 -3.670000 +114.330000 -3.330000 +113.830000 -3.420000 +113.250000 -3.080000 +112.830000 -3.330000 +112.330000 -3.330000 +111.830000 -3.500000 +111.750000 -2.750000 +111.420000 -2.920000 +110.920000 -3.000000 +110.330000 -2.920000 +110.250000 -2.330000 +110.080000 -1.750000 +110.080000 -1.250000 +109.750000 -0.750000 +109.250000 -0.420000 +109.250000 0.080000 +109.000000 0.420000 +108.920000 1.000000 +81 +118.830000 -2.830000 +119.170000 -2.420000 +119.330000 -1.920000 +119.330000 -1.330000 +119.500000 -0.920000 +119.830000 -0.580000 +119.830000 -0.080000 +119.920000 0.420000 +120.000000 0.750000 +120.670000 0.750000 +120.920000 1.330000 +121.420000 1.170000 +122.000000 1.080000 +122.500000 1.000000 +122.920000 0.830000 +123.330000 0.920000 +123.920000 0.920000 +124.420000 1.170000 +124.750000 1.500000 +125.000000 1.750000 +125.000000 1.750000 +125.250000 1.500000 +125.000000 1.080000 +124.580000 0.580000 +124.000000 0.420000 +123.500000 0.330000 +123.000000 0.500000 +122.500000 0.500000 +122.000000 0.500000 +121.420000 0.500000 +121.000000 0.420000 +120.670000 0.500000 +120.330000 0.420000 +120.080000 -0.080000 +120.080000 -0.670000 +120.580000 -0.920000 +120.670000 -1.330000 +121.170000 -1.330000 +121.580000 -0.920000 +122.080000 -0.920000 +122.580000 -0.750000 +123.170000 -0.580000 +123.500000 -0.920000 +122.920000 -0.920000 +122.500000 -1.330000 +122.080000 -1.670000 +121.500000 -1.920000 +121.920000 -2.420000 +122.170000 -2.750000 +122.420000 -3.170000 +122.080000 -3.500000 +122.080000 -3.500000 +122.500000 -3.830000 +122.830000 -4.330000 +123.170000 -4.750000 +123.170000 -5.330000 +122.670000 -5.670000 +122.330000 -5.330000 +122.330000 -4.580000 +122.000000 -4.830000 +121.580000 -4.670000 +121.670000 -4.080000 +121.170000 -3.830000 +120.920000 -3.420000 +121.080000 -3.000000 +121.080000 -2.670000 +120.670000 -2.670000 +120.250000 -3.000000 +120.420000 -3.500000 +120.420000 -4.000000 +120.420000 -4.500000 +120.330000 -5.000000 +120.420000 -5.500000 +119.920000 -5.580000 +119.500000 -5.580000 +119.420000 -5.170000 +119.580000 -4.580000 +119.670000 -4.000000 +119.500000 -3.500000 +119.000000 -3.500000 +118.830000 -2.830000 +22 +127.330000 1.080000 +127.500000 1.500000 +127.580000 1.920000 +128.000000 2.170000 +127.830000 1.750000 +128.080000 1.330000 +128.670000 1.580000 +128.670000 1.080000 +128.250000 0.830000 +128.500000 0.500000 +128.000000 0.500000 +127.920000 0.000000 +128.000000 -0.420000 +128.420000 -0.920000 +127.920000 -0.580000 +127.580000 -0.170000 +127.670000 0.250000 +127.580000 0.670000 +127.517505 0.772502 +127.455007 0.875002 +127.392505 0.977502 +127.330000 1.080000 +7 +126.000000 -3.250000 +126.500000 -3.080000 +127.000000 -3.170000 +127.170000 -3.580000 +126.830000 -3.830000 +126.330000 -3.670000 +126.000000 -3.250000 +13 +127.920000 -3.170000 +128.250000 -2.830000 +128.920000 -2.830000 +129.500000 -2.750000 +129.920000 -3.000000 +130.420000 -3.000000 +130.750000 -3.420000 +130.750000 -3.830000 +130.250000 -3.580000 +129.420000 -3.420000 +128.920000 -3.330000 +128.500000 -3.420000 +127.920000 -3.170000 +2 +124.500000 -1.750000 +125.250000 -1.750000 +7 +127.330000 -1.670000 +127.580000 -1.330000 +128.170000 -1.670000 +127.960000 -1.670034 +127.750000 -1.670045 +127.540000 -1.670034 +127.330000 -1.670000 +5 +130.330000 -0.170000 +130.750000 0.000000 +131.250000 -0.250000 +130.750000 -0.420000 +130.330000 -0.170000 +5 +135.330000 -0.670000 +135.920000 -0.670000 +136.250000 -1.080000 +135.830000 -1.170000 +135.330000 -0.670000 +134 +130.830000 -1.330000 +131.250000 -0.830000 +131.250000 -0.830000 +131.830000 -0.670000 +132.170000 -0.330000 +132.830000 -0.330000 +133.250000 -0.670000 +133.920000 -0.670000 +134.170000 -1.330000 +134.000000 -1.830000 +134.170000 -2.330000 +134.580000 -2.500000 +134.750000 -3.000000 +135.170000 -3.330000 +135.580000 -3.330000 +135.830000 -2.920000 +136.080000 -2.580000 +136.500000 -2.170000 +137.000000 -2.080000 +137.250000 -1.670000 +137.920000 -1.420000 +138.420000 -1.670000 +139.000000 -2.000000 +139.500000 -2.170000 +140.000000 -2.330000 +140.420000 -2.330000 +141.000000 -2.580000 +141.500000 -2.750000 +142.000000 -2.920000 +142.420000 -3.080000 +143.000000 -3.330000 +143.500000 -3.420000 +144.000000 -3.670000 +144.000000 -3.670000 +144.500000 -3.920000 +145.000000 -4.250000 +145.420000 -4.500000 +145.750000 -4.920000 +145.750000 -5.500000 +146.250000 -5.580000 +146.830000 -5.920000 +147.420000 -5.830000 +147.830000 -6.170000 +147.830000 -6.670000 +147.420000 -6.750000 +147.000000 -6.830000 +147.170000 -7.250000 +147.670000 -7.750000 +148.170000 -8.000000 +148.250000 -8.580000 +148.580000 -9.080000 +149.250000 -9.000000 +149.080000 -9.420000 +149.580000 -9.580000 +149.685000 -9.580047 +149.790000 -9.580063 +149.895000 -9.580047 +150.000000 -9.580000 +149.937548 -9.665017 +149.875064 -9.750023 +149.812548 -9.835017 +149.750000 -9.920000 +149.854961 -9.960049 +149.959948 -10.000066 +150.064961 -10.040049 +150.170000 -10.080000 +150.750000 -10.170000 +150.580000 -10.580000 +150.000000 -10.670000 +149.750000 -10.330000 +149.250000 -10.250000 +148.670000 -10.170000 +148.080000 -10.080000 +148.080000 -10.080000 +147.580000 -10.000000 +147.420000 -9.670000 +147.000000 -9.330000 +146.500000 -8.920000 +146.250000 -8.500000 +146.000000 -8.000000 +145.580000 -7.920000 +145.000000 -7.670000 +144.670000 -7.500000 +144.170000 -7.500000 +143.830000 -7.920000 +143.580000 -8.170000 +143.170000 -8.330000 +143.330000 -8.750000 +143.170000 -9.000000 +142.580000 -9.250000 +142.000000 -9.080000 +141.500000 -9.080000 +141.000000 -9.000000 +140.580000 -8.670000 +140.250000 -8.330000 +140.000000 -8.000000 +139.420000 -8.080000 +138.830000 -8.080000 +138.250000 -8.330000 +137.670000 -8.330000 +138.000000 -7.750000 +138.250000 -7.330000 +138.750000 -7.250000 +138.580000 -6.750000 +138.580000 -6.750000 +138.420000 -6.170000 +138.170000 -5.580000 +137.830000 -5.250000 +137.330000 -5.000000 +136.750000 -4.830000 +136.170000 -4.580000 +135.580000 -4.420000 +135.000000 -4.330000 +134.580000 -4.080000 +134.080000 -3.830000 +133.670000 -3.500000 +133.250000 -4.000000 +132.830000 -4.000000 +132.750000 -3.580000 +132.670000 -3.250000 +132.250000 -2.920000 +131.920000 -2.830000 +132.170000 -2.670000 +132.670000 -2.750000 +133.080000 -2.500000 +133.670000 -2.500000 +133.830000 -2.000000 +133.250000 -2.170000 +132.750000 -2.250000 +132.250000 -2.250000 +131.830000 -2.000000 +131.830000 -1.580000 +131.420000 -1.500000 +130.830000 -1.330000 +53 +119.830000 16.250000 +120.330000 16.080000 +120.330000 16.580000 +120.500000 17.170000 +120.330000 17.580000 +120.500000 18.000000 +120.670000 18.500000 +121.080000 18.580000 +121.500000 18.330000 +121.920000 18.250000 +122.330000 18.500000 +122.170000 17.920000 +122.170000 17.420000 +122.252614 17.335051 +122.335152 17.250067 +122.417614 17.165050 +122.500000 17.080000 +122.457416 16.955013 +122.414888 16.830017 +122.372416 16.705013 +122.330000 16.580000 +122.000000 16.170000 +121.580000 15.750000 +121.580000 15.750000 +121.420000 15.250000 +121.670000 14.580000 +121.830000 14.080000 +122.250000 13.920000 +122.580000 14.170000 +122.920000 14.170000 +123.330000 14.000000 +123.920000 13.750000 +123.580000 13.670000 +123.750000 13.330000 +124.170000 12.920000 +123.830000 12.830000 +123.420000 13.000000 +123.080000 13.580000 +122.580000 13.830000 +122.670000 13.500000 +122.670000 13.080000 +122.170000 13.670000 +121.750000 13.920000 +121.250000 13.580000 +120.670000 13.750000 +120.670000 14.170000 +121.000000 14.500000 +120.670000 14.750000 +120.580000 14.420000 +120.080000 14.750000 +120.000000 15.250000 +119.920000 15.670000 +119.830000 16.250000 +14 +117.250000 8.420000 +117.500000 8.920000 +117.920000 9.250000 +118.420000 9.670000 +118.750000 10.000000 +119.170000 10.500000 +119.500000 11.250000 +119.670000 10.500000 +119.170000 10.080000 +118.830000 9.920000 +118.580000 9.420000 +118.170000 9.080000 +117.920000 8.750000 +117.250000 8.420000 +9 +120.420000 13.420000 +120.830000 13.420000 +121.250000 13.330000 +121.580000 13.000000 +121.580000 12.500000 +121.170000 12.170000 +120.920000 12.500000 +120.750000 13.000000 +120.420000 13.420000 +23 +124.330000 12.500000 +124.750000 12.420000 +125.250000 12.500000 +125.500000 12.080000 +125.500000 11.670000 +125.670000 11.080000 +125.000000 11.080000 +125.000000 10.670000 +125.250000 10.250000 +124.750000 10.170000 +124.750000 10.750000 +124.420000 10.830000 +124.420000 11.420000 +124.830000 11.330000 +124.872452 11.435009 +124.914936 11.540012 +124.957452 11.645009 +125.000000 11.750000 +124.875086 11.812582 +124.750115 11.875110 +124.625086 11.937583 +124.500000 12.000000 +124.330000 12.500000 +34 +121.920000 10.500000 +122.000000 10.920000 +122.080000 11.420000 +121.920000 11.830000 +122.500000 11.750000 +122.580000 11.500000 +123.170000 11.500000 +123.080000 10.920000 +123.500000 10.830000 +123.420000 10.420000 +123.830000 10.670000 +124.000000 11.080000 +124.000000 10.580000 +124.000000 10.170000 +124.500000 10.080000 +124.500000 9.670000 +124.000000 9.580000 +123.750000 9.920000 +123.500000 9.580000 +123.170000 9.750000 +123.330000 9.250000 +123.000000 9.000000 +122.670000 9.330000 +122.607558 9.435017 +122.545077 9.540022 +122.482558 9.645017 +122.420000 9.750000 +122.522442 9.812546 +122.624922 9.875062 +122.727441 9.937547 +122.830000 10.000000 +122.830000 10.420000 +122.500000 10.580000 +121.920000 10.500000 +44 +122.000000 7.170000 +122.080000 7.750000 +122.330000 8.000000 +122.830000 8.170000 +123.080000 8.500000 +123.500000 8.670000 +123.830000 8.500000 +123.920000 8.080000 +124.250000 8.420000 +124.670000 8.500000 +124.830000 9.000000 +125.170000 8.830000 +125.500000 9.080000 +125.420000 9.750000 +125.420000 9.750000 +126.000000 9.330000 +126.330000 8.830000 +126.330000 8.250000 +126.580000 7.670000 +126.580000 7.250000 +126.330000 6.830000 +126.170000 6.330000 +126.000000 6.920000 +125.750000 7.330000 +125.500000 7.000000 +125.330000 6.750000 +125.580000 6.420000 +125.750000 6.080000 +125.420000 5.580000 +125.080000 5.920000 +124.750000 5.920000 +124.330000 6.170000 +124.000000 6.420000 +124.000000 7.000000 +124.250000 7.330000 +124.000000 7.580000 +123.580000 7.750000 +123.250000 7.420000 +122.920000 7.330000 +122.830000 7.750000 +122.500000 7.670000 +122.250000 7.250000 +122.080000 6.830000 +122.000000 7.170000 +22 +148.250000 -5.500000 +148.830000 -5.580000 +149.420000 -5.580000 +150.000000 -5.500000 +150.420000 -5.500000 +150.830000 -5.500000 +151.250000 -4.920000 +151.670000 -4.920000 +151.500000 -4.170000 +152.250000 -4.170000 +152.420000 -4.670000 +152.080000 -5.000000 +152.000000 -5.580000 +151.580000 -5.580000 +151.170000 -6.000000 +150.670000 -6.250000 +150.170000 -6.250000 +149.670000 -6.250000 +149.170000 -6.170000 +148.830000 -5.830000 +148.330000 -5.750000 +148.250000 -5.500000 +2 +146.670000 -2.080000 +147.170000 -2.080000 +11 +151.420000 -3.000000 +152.000000 -3.250000 +152.330000 -3.500000 +153.000000 -3.920000 +153.170000 -4.330000 +152.920000 -4.830000 +152.670000 -4.170000 +152.330000 -3.500000 +152.000000 -3.420000 +151.420000 -3.000000 +150.830000 -2.580000 +8 +154.670000 -5.420000 +155.080000 -5.500000 +155.580000 -6.170000 +156.000000 -6.580000 +155.500000 -6.830000 +155.170000 -6.500000 +154.830000 -6.000000 +154.670000 -5.420000 +3 +157.330000 -7.250000 +156.920000 -7.000000 +156.330000 -6.580000 +2 +157.250000 -8.000000 +157.830000 -8.500000 +4 +158.500000 -7.500000 +158.830000 -7.750000 +159.330000 -8.080000 +159.670000 -8.330000 +4 +161.500000 -9.670000 +161.080000 -9.170000 +160.830000 -8.830000 +160.670000 -8.330000 +8 +159.500000 -9.250000 +160.250000 -9.330000 +160.830000 -9.670000 +160.500000 -9.920000 +160.080000 -9.830000 +159.670000 -9.830000 +159.420000 -9.500000 +159.500000 -9.250000 +5 +161.250000 -10.170000 +162.000000 -10.330000 +162.330000 -10.750000 +161.750000 -10.670000 +161.250000 -10.170000 +6 +166.830000 -15.250000 +167.170000 -15.000000 +167.330000 -15.500000 +166.830000 -15.670000 +166.830000 -15.250000 +166.750000 -14.750000 +4 +167.330000 -15.920000 +167.920000 -16.420000 +167.500000 -16.500000 +167.330000 -15.920000 +15 +164.250000 -20.250000 +164.750000 -20.500000 +165.330000 -20.750000 +165.670000 -21.170000 +166.000000 -21.500000 +166.500000 -21.670000 +166.830000 -22.000000 +167.170000 -22.330000 +166.670000 -22.330000 +166.170000 -22.000000 +165.750000 -21.750000 +165.420000 -21.500000 +165.000000 -21.250000 +164.580000 -20.830000 +164.250000 -20.250000 +5 +-176.830000 -43.770000 +-176.170000 -43.800000 +-176.580000 -44.170000 +-176.500000 -43.900000 +-176.830000 -43.770000 +9 +177.330000 -18.000000 +177.420000 -17.580000 +177.750000 -17.330000 +178.250000 -17.330000 +178.670000 -17.580000 +178.670000 -18.000000 +178.170000 -18.170000 +177.750000 -18.170000 +177.330000 -18.000000 +8 +178.580000 -16.580000 +179.170000 -16.420000 +179.830000 -16.170000 +179.670000 -16.500000 +179.920000 -16.670000 +179.330000 -16.670000 +178.750000 -16.920000 +178.580000 -16.580000 +9 +-172.920000 -13.420000 +-172.200000 -13.500000 +-172.130000 -13.750000 +-171.670000 -13.830000 +-171.330000 -14.000000 +-171.920000 -14.000000 +-172.130000 -13.750000 +-172.670000 -13.750000 +-172.920000 -13.420000 +5 +-149.580000 -17.470000 +-149.330000 -17.530000 +-149.170000 -17.830000 +-149.500000 -17.730000 +-149.580000 -17.470000 +2 +-160.230000 21.830000 +-160.100000 21.980000 +6 +-159.820000 22.030000 +-159.580000 22.220000 +-159.300000 22.220000 +-159.380000 21.900000 +-159.620000 21.900000 +-159.820000 22.030000 +5 +-158.280000 21.580000 +-157.980000 21.720000 +-157.670000 21.300000 +-158.120000 21.300000 +-158.280000 21.580000 +2 +-157.220000 21.130000 +-156.800000 21.130000 +8 +-156.680000 20.950000 +-156.470000 20.900000 +-156.280000 20.970000 +-155.980000 20.730000 +-156.200000 20.620000 +-156.430000 20.570000 +-156.470000 20.780000 +-156.680000 20.950000 +15 +-155.880000 20.270000 +-155.630000 20.150000 +-155.370000 20.050000 +-155.130000 19.920000 +-155.020000 19.680000 +-154.800000 19.520000 +-155.000000 19.330000 +-155.300000 19.270000 +-155.520000 19.130000 +-155.650000 18.930000 +-155.920000 19.080000 +-155.880000 19.350000 +-156.050000 19.770000 +-155.870000 19.950000 +-155.880000 20.270000 diff --git a/Src/Celbody/SPICE/Config/Earth/Label.cfg b/Src/Celbody/SPICE/Config/Earth/Label.cfg new file mode 100644 index 000000000..cfc239b38 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Label.cfg @@ -0,0 +1,5 @@ +A o S 255 255 128 Airport +C x S 255 255 255 City +M x S 255 192 128 Mountain +V o S 128 255 128 Forest +W x S 128 255 255 Water body \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Earth/Marker/City.mkr b/Src/Celbody/SPICE/Config/Earth/Marker/City.mkr new file mode 100644 index 000000000..35a1deb46 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Earth/Marker/City.mkr @@ -0,0 +1,504 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA + 121.45806 31.22222 : Shanghai + -58.37723 -34.61315 : Buenos Aires + 90.40744 23.71040 : Dhaka + -46.63611 -23.54750 : São Paulo + -43.20750 -22.90278 : Rio de Janeiro + 15.31357 -4.32758 : Kinshasa + 108.92861 34.25833 : Xi’an + 114.26667 30.58333 : Wuhan + 117.17667 39.14222 : Tianjin + 117.12000 36.18528 : Tai’an + 114.06830 22.54554 : Shenzhen + 118.77778 32.06167 : Nanjing + 106.08473 30.79508 : Nanchong + 120.16142 30.29365 : Hangzhou + 113.25000 23.11667 : Guangzhou + 113.74866 23.01797 : Dongguan + 106.55278 29.56278 : Chongqing + 104.06667 30.66667 : Chengdu + 116.39723 39.90750 : Beijing + 123.43278 41.79222 : Shenyang + 126.65000 45.75000 : Harbin + -74.08175 4.60971 : Bogotá + 31.24967 30.06263 : Cairo + -0.12574 51.50853 : London + 114.17469 22.27832 : Hong Kong + 106.84513 -6.21462 : Jakarta + 77.23149 28.65195 : Delhi + 72.88261 19.07283 : Mumbai + 44.40088 33.34058 : Baghdad + 51.42151 35.69439 : Tehran + 139.69171 35.68950 : Tokyo + 126.97840 37.56600 : Seoul + -99.12766 19.42847 : Mexico City + 3.39467 6.45407 : Lagos + -77.02824 -12.04318 : Lima + 74.35071 31.55800 : Lahore + 67.01040 24.86080 : Karachi + 37.61556 55.75222 : Moscow + 28.94966 41.01384 : Ä°stanbul + 121.53185 25.04776 : Taipei + -74.00597 40.71427 : New York City + -38.54306 -3.71722 : Fortaleza + -38.51083 -12.97111 : Salvador + -47.92972 -15.77972 : Brasília + -43.93778 -19.92083 : Belo Horizonte + -79.41630 43.70011 : Toronto + -4.01266 5.30966 : Abidjan + -70.64827 -33.45694 : Santiago + -75.56359 6.25184 : Medellín + -76.52250 3.43722 : Cali + -82.38304 23.13302 : Havana + -69.98857 18.50012 : Santo Domingo + -3.70256 40.41650 : Madrid + -7.61138 33.58831 : Casablanca + -17.44406 14.69370 : Dakar + -95.36327 29.76328 : Houston + -87.65005 41.85003 : Chicago + -73.94958 40.65010 : Brooklyn + -73.83652 40.68149 : Queens +-118.24368 34.05223 : Los Angeles + -71.61245 10.66663 : Maracaibo + -66.87919 10.48801 : Caracas + 69.17233 34.52813 : Kabul + 13.23432 -8.83682 : Luanda + 151.20732 -33.86785 : Sydney + 144.96332 -37.81400 : Melbourne + 153.02809 -27.46794 : Brisbane + 91.83168 22.33840 : Chittagong + 87.60046 43.80096 : Ãœrümqi + 113.64861 34.75778 : Zhengzhou + 118.06333 36.79056 : Zibo + 112.03954 22.92833 : Yunfu + 118.08187 24.47979 : Xiamen + 120.28857 31.56887 : Wuxi + 105.74238 34.57952 : Tianshui + 118.18333 39.63333 : Tangshan + 112.56028 37.86944 : Taiyuan + 110.77806 32.64750 : Shiyan + 114.47861 38.04139 : Shijiazhuang + 116.71479 23.36814 : Shantou + 120.38042 36.06488 : Qingdao + 119.88872 29.45679 : Puyang + 121.54945 29.87819 : Ningbo + 115.85306 28.68396 : Nanchang + 103.83987 36.05701 : Lanzhou + 102.71833 25.03889 : Kunming + 116.99722 36.66833 : Jinan + 117.28083 31.86389 : Hefei + 113.13148 23.02677 : Foshan + 121.60222 38.91222 : Dalian + 112.97087 28.19874 : Changsha + 120.59538 31.30408 : Suzhou + 110.57230 21.31992 : Zhongshan + 109.51028 18.22056 : Dadonghai + 125.32278 43.88000 : Changchun + 13.41053 52.52437 : Berlin + 31.21093 30.00808 : Giza + 29.95527 31.21564 : Alexandria + 38.74689 9.02497 : Addis Ababa + 2.34880 48.85341 : Paris + 114.18333 22.31667 : Kowloon + 112.75083 -7.24917 : Surabaya + 72.83023 21.19594 : SÅ«rat + 73.85535 18.51957 : Pune + 79.08491 21.14631 : Nagpur + 80.27847 13.08784 : Chennai + 80.92313 26.83928 : Lucknow + 80.34975 26.46523 : Kanpur + 75.78781 26.91962 : Jaipur + 78.45636 17.38405 : Hyderabad + 88.36304 22.56263 : Kolkata + 77.59369 12.97194 : Bengaluru + 72.58727 23.02579 : Ahmedabad + 73.01582 19.03681 : Navi Mumbai + 43.10555 36.33271 : Al MawÅŸil al JadÄ«dah + 47.78040 30.50852 : Basrah + 47.81507 30.50316 : Al BaÅŸrah al QadÄ«mah + 59.56796 36.31559 : Mashhad + 12.51133 41.89193 : Rome + 139.65000 35.43333 : Yokohama + 135.50218 34.69374 : Osaka + 136.90641 35.18147 : Nagoya + 36.81667 -1.28333 : Nairobi + 125.75432 39.03385 : Pyongyang + 128.59111 35.87028 : Daegu + 129.04028 35.10278 : Busan + 126.70515 37.45646 : Incheon + 76.92861 43.25667 : Almaty + 96.15611 16.80528 : Yangon + 8.51672 12.00012 : Kano + 3.90591 7.37756 : Ibadan + 121.05090 14.64880 : Quezon City + 73.08969 31.41554 : FaisalÄbad + 30.31413 59.93863 : Saint Petersburg + 39.19797 21.54238 : Jeddah + 46.72185 24.68773 : Riyadh + 103.85007 1.28967 : Singapore + 45.34375 2.03711 : Mogadishu + 100.50144 13.75398 : Bangkok + 27.13838 38.41273 : Ä°zmir + 32.85427 39.91987 : Ankara + 39.26951 -6.82349 : Dar es Salaam + 30.52380 50.45466 : Kyiv + 106.62965 10.82302 : Ho Chi Minh City + 28.04363 -26.20227 : Johannesburg + 31.02920 -29.85790 : Durban + 18.42322 -33.92584 : Cape Town +-114.08529 51.05011 : Calgary + -90.51327 14.64072 : Guatemala City + -99.11075 19.49392 : Gustavo Adolfo Madero + -98.20346 19.03793 : Puebla + -99.23963 19.47851 : Naucalpan de Juárez + -99.06224 19.35529 : Iztapalapa + -99.06064 19.60492 : Ecatepec + -99.01483 19.40061 : Ciudad Nezahualcoyotl +-103.38479 20.72356 : Zapopan +-117.00371 32.50270 : Tijuana +-100.31847 25.67507 : Monterrey +-101.67374 21.12908 : León de los Aldama +-103.39182 20.66682 : Guadalajara +-106.46084 31.72024 : Ciudad Juárez +-106.08889 28.63528 : Chihuahua + -97.74306 30.26715 : Austin + -96.80667 32.78306 : Dallas + -97.32085 32.72541 : Fort Worth + -98.49363 29.42412 : San Antonio +-112.07404 33.44838 : Phoenix +-117.15726 32.71533 : San Diego +-122.41942 37.77493 : San Francisco +-121.89496 37.33939 : San Jose + -1.53388 12.36566 : Ouagadougou + -73.58781 45.50884 : Montréal + -75.69812 45.41117 : Ottawa + -4.01590 5.41613 : Abobo + -75.51444 10.39972 : Cartagena + -74.78132 10.96854 : Barranquilla + -70.69703 19.45170 : Santiago de los Caballeros + -0.37739 39.46975 : Valencia + -1.15047 52.95360 : Nottingham + -2.97794 53.41058 : Liverpool + -1.89983 52.48142 : Birmingham + -1.62443 6.68848 : Kumasi + -0.19690 5.55602 : Accra + -13.67729 9.53795 : Conakry + -13.68778 9.53500 : Camayenne + -87.20681 14.08180 : Tegucigalpa + -72.33500 18.53917 : Port-au-Prince + -6.24889 53.33306 : Dublin + -76.79358 17.99702 : Kingston + -10.79690 6.30054 : Monrovia + -6.79846 34.05310 : Sale + -6.83255 34.01325 : Rabat + -7.99994 31.63416 : Marrakesh + -5.00028 34.03313 : Fès + -8.00000 12.65000 : Bamako + -86.25040 12.13282 : Managua + -13.22994 8.48400 : Freetown + -17.39071 14.76457 : Pikine + -81.65565 30.33218 : Jacksonville + -86.15804 39.76838 : Indianapolis + -80.84313 35.22709 : Charlotte + -82.99879 39.96118 : Columbus + -75.16379 39.95233 : Philadelphia + -73.86641 40.84985 : The Bronx + -73.96625 40.78343 : Manhattan + -68.00765 10.16202 : Valencia + -67.59113 10.23535 : Maracay + -62.64102 8.35122 : Ciudad Guayana + -69.35703 10.06470 : Barquisimeto + + 55.17128 25.06570 : Dubai + 44.51361 40.18111 : Yerevan + 16.37208 48.20849 : Vienna + 49.89201 40.37767 : Baku + 89.56439 22.80979 : Khulna + 4.34878 50.85045 : Brussels + 23.32415 42.69751 : Sofia + 2.41833 6.36536 : Cotonou + 27.56667 53.90000 : Minsk + 11.51667 3.86667 : Yaoundé + 9.70428 4.04827 : Douala + 14.42076 50.08804 : Prague + 11.57549 48.13743 : München + 6.95000 50.93333 : Köln + 10.01534 53.57532 : Hamburg + 12.56553 55.67594 : Copenhagen + 3.47717 36.76639 : Boumerdas + 3.08746 36.73225 : Algiers + 2.15899 41.38879 : Barcelona + 5.38107 43.29695 : Marseille + 44.83368 41.69411 : Tbilisi + 19.03991 47.49801 : Budapest + 35.21633 31.76904 : Jerusalem + 83.20161 17.68009 : Visakhapatnam + 80.64660 16.50745 : Vijayawada + 83.01041 25.31668 : Varanasi + 73.20812 22.29941 : Vadodara + 76.94924 8.48550 : Thiruvananthapuram + 78.69651 10.81550 : Tiruchirappalli + 72.96355 19.19704 : ThÄne + 77.47772 10.01115 : Teni + 74.80555 34.08565 : Srinagar + 75.91044 17.67152 : SolÄpur + 78.15867 11.65117 : Salem + 85.30940 23.34316 : Ranchi + 70.79322 22.29161 : RÄjkot + 73.80696 18.62292 : Pimpri + 85.13563 25.59408 : Patna + 82.54826 19.23114 : Nowrangapur + 73.79096 19.99727 : Nashik + 76.63925 12.29791 : Mysore + 77.70636 28.98002 : Meerut + 78.11898 9.91769 : Madura + 75.85379 30.91204 : LudhiÄna + 75.83907 25.18254 : Kota + 73.13554 19.24370 : KalyÄn + 75.57917 31.32556 : Jalandhar + 73.00594 26.26841 : Jodhpur + 79.95006 23.16697 : Jabalpur + 75.83330 22.71792 : Indore + 75.13378 15.34776 : Hubli + 88.31857 22.57688 : HÄora + 78.17337 26.22983 : Gwalior + 75.67206 29.44768 : Gorakhpur + 77.43915 28.66535 : GhÄziÄbÄd + 77.31316 28.41124 : Faridabad + 73.08333 19.21667 : Dombivli + 76.96612 11.00555 : Coimbatore + 76.78840 30.73629 : Chandigarh + 85.83385 20.27241 : Bhubaneshwar + 77.40289 23.25469 : Bhopal + 79.43167 28.36678 : Bareilly + 75.34226 19.87757 : Aurangabad + 74.87534 31.62234 : Amritsar + 81.84322 25.44478 : AllahÄbÄd + 78.07464 27.88145 : AlÄ«garh + 78.01667 27.18333 : Agra + 73.85263 18.53017 : Shivaji Nagar + 44.01062 36.19257 : Erbil + 43.11889 36.33500 : Mosul + 44.18477 33.30563 : AbÅ« Ghurayb + 47.05530 34.38380 : KahrÄ«z + 46.29190 38.08000 : Tabriz + 52.53113 29.61031 : Shiraz + 50.87640 34.64010 : Qom + 50.99155 35.83266 : Karaj + 48.68420 31.31901 : Ahvaz + 51.67462 32.65246 : Isfahan + 48.47168 34.77772 : Pasragad Branch + 7.68682 45.07049 : Turin + 14.26811 40.85216 : Naples + 9.18951 45.46427 : Milan + 36.08796 32.07275 : Zarqa + 35.94503 31.95522 : Amman + 74.59000 42.87000 : Bishkek + 35.48333 33.90000 : Ra’s BayrÅ«t + 35.49442 33.88894 : Beirut + 24.10589 56.94600 : Riga + 13.18746 32.87519 : Tripoli + 2.10980 13.51366 : Niamey + 7.72270 11.11128 : Zaria + 7.01340 4.77742 : Port Harcourt + 3.93125 7.85257 : Oyo + 13.15712 11.84692 : Maiduguri + 7.43879 10.52641 : Kaduna + 8.89212 9.92849 : Jos + 4.54214 8.49664 : Ilorin + 5.62575 6.33815 : Benin City + 7.36667 5.10658 : Aba + 4.88969 52.37403 : Amsterdam + 85.32060 27.70169 : Kathmandu + 58.40778 23.58413 : Muscat + 73.06790 33.60070 : Rawalpindi + 67.00141 30.18414 : Quetta + 71.57849 34.00800 : Peshawar + 71.47824 30.19679 : MultÄn + 68.37366 25.39242 : Hyderabad + 74.18705 32.15567 : GujrÄnwÄla + 21.01178 52.22977 : Warsaw + 19.46667 51.75000 : Åódź + 19.93658 50.06143 : Kraków + 26.10626 44.43225 : Bucharest + 20.46513 44.80401 : Belgrade + 39.18430 51.67204 : Voronezh + 44.50183 48.71939 : Volgograd + 55.96779 54.74306 : Ufa + 46.00861 51.54056 : Saratov + 50.15000 53.20007 : Samara + 39.72328 47.23135 : Rostov-na-Donu + 56.25017 58.01046 : Perm + 44.00205 56.32867 : Nizhniy Novgorod + 49.12214 55.78874 : Kazan + 60.61220 56.85190 : Yekaterinburg + 73.36859 54.99244 : Omsk + 82.93460 55.04150 : Novosibirsk + 61.42915 55.15402 : Chelyabinsk + 39.58572 24.49258 : SulÅ£Änah + 39.82563 21.42664 : Mecca + 39.61417 24.46861 : Medina + 50.10326 26.43442 : Dammam + 32.47773 15.64453 : Omdurman + 32.53241 15.55177 : Khartoum + 18.06490 59.33258 : Stockholm + 36.72339 34.72682 : Homs + 37.16117 36.20124 : Aleppo + 36.29128 33.51020 : Damascus + 1.21227 6.13748 : Lomé + 32.48464 37.87135 : Konya + 37.38250 37.05944 : Gaziantep + 30.69556 36.90812 : Antalya + 35.32889 37.00167 : Adana + 29.06013 40.19559 : Bursa + 32.86268 39.91790 : Çankaya + 35.19031 47.82289 : Zaporizhia + 30.73262 46.47747 : Odessa + 36.25272 49.98081 : Kharkiv + 37.80224 48.02300 : Donetsk + 35.03865 48.45930 : Dnipro + 32.58219 0.31628 : Kampala + 69.21627 41.26465 : Tashkent + 44.20667 15.35472 : Sanaa + + 114.38278 36.09600 : Anyang + 117.15707 34.18045 : Tongshan + 114.06556 32.12278 : Xinyang + 113.80151 35.19033 : Nangandao + 101.75739 36.62554 : Xining + 108.70261 34.33778 : Xianyang + 120.66682 27.99942 : Wenzhou + 116.36581 23.54180 : Jieyang + 119.58833 39.93167 : Qinhuangdao + 113.30119 33.73847 : Pingdingshan + 108.31667 22.81667 : Nanning + 112.45361 34.68361 : Luoyang + 113.62709 28.15861 : Guankou + 114.30742 34.79860 : Kaifeng + 116.99694 32.62639 : Huainan + 116.79167 33.97444 : Huaibei + 112.61888 26.88946 : Hengyang + 114.46778 36.60056 : Handan + 106.71667 26.58333 : Guiyang + 119.30611 26.06139 : Fuzhou + 100.22072 26.86879 : Lijiang + 119.95401 31.77359 : Changzhou + 115.49028 38.85111 : Baoding + 120.87111 30.01556 : Shangyu + 113.09481 29.37455 : Yueyang + 123.96045 47.34088 : Qiqihar + 126.56028 43.85083 : Jilin + 111.65222 40.81056 : Hohhot + 130.30012 47.35118 : Hegang + 123.92333 41.85583 : Fushun + 113.29139 40.09361 : Datong + 123.76500 41.28861 : Benxi + 109.82222 40.65222 : Baotou + 122.99000 41.12361 : Anshan + 120.74221 31.64615 : Changshu City + 119.40259 35.99502 : Zhu Cheng City + 109.78157 39.60860 : Ordos + 98.66667 3.58333 : Medan + 91.74580 26.18440 : Guwahati + 139.63333 35.88333 : Yono + 135.46667 34.58333 : Sakai + 135.75385 35.02107 : Kyoto + 135.18300 34.69130 : Kobe + 130.85034 33.85181 : Kitakyushu + 139.71722 35.52056 : Kawasaki + 132.45000 34.40000 : Hiroshima + 130.41667 33.60000 : Fukuoka + 140.86667 38.26667 : Sendai + 140.11667 35.60000 : Chiba + 141.35000 43.06667 : Sapporo + 139.65657 35.90807 : Saitama + 104.91601 11.56245 : Phnom Penh + 104.78498 10.99081 : Takeo + 129.31667 35.53722 : Ulsan + 127.41972 36.32139 : Daejeon + 127.00889 37.29111 : Suwon + 126.78306 37.49889 : Bucheon-si + 126.91556 35.15472 : Gwangju + 126.83500 37.65639 : Goyang-si + 127.13778 37.43861 : Seongnam-si + 96.08359 21.97473 : Mandalay + 96.12972 19.74500 : Nay Pyi Taw + 106.88324 47.90771 : Ulan Bator + 103.75780 1.46550 : Johor Bahru + 101.45000 3.03333 : Klang + 101.68653 3.14120 : Kuala Lumpur + 102.23860 6.13328 : Kota Bharu + 101.53333 3.15000 : Kampung Baru Subang + 120.98220 14.60420 : Manila + 125.61278 7.07306 : Davao + 123.89071 10.31672 : Cebu City + 124.43972 7.20417 : Budta + 124.47500 7.16083 : Malingao + 92.86717 56.01839 : Krasnoyarsk + 120.21333 22.99083 : Tainan + 120.68390 24.14690 : Taichung + 120.31333 22.61626 : Kaohsiung + 105.84117 21.02450 : Hanoi + 108.22083 16.06778 : Da Nang + -65.22260 -26.82414 : San Miguel de Tucumán + -60.63932 -32.94682 : Rosario + -68.82717 -32.89084 : Mendoza + -64.18105 -31.41350 : Córdoba + -63.18117 -17.78629 : Santa Cruz de la Sierra + -68.15000 -16.50000 : La Paz + -66.15680 -17.38950 : Cochabamba + -42.80194 -5.08917 : Teresina + -44.30278 -2.52972 : São Luís + -34.88111 -8.05389 : Recife + -35.20944 -5.79500 : Natal + -35.73528 -9.66583 : Maceió + -48.50444 -1.45583 : Belém + -46.56500 -23.69389 : São Bernardo do Campo + -51.23000 -30.03306 : Porto Alegre + -43.45111 -22.75917 : Nova Iguaçu + -46.53333 -23.46278 : Guarulhos + -49.25389 -16.67861 : Goiânia + -43.31167 -22.78556 : Duque de Caxias + -49.27306 -25.42778 : Curitiba + -47.06083 -22.90556 : Campinas + -60.02500 -3.10194 : Manaus + -78.52495 -0.22985 : Quito + -79.90795 -2.20584 : Guayaquil + -79.02998 -8.11599 : Trujillo + -77.11814 -12.05659 : Callao + -71.53500 -16.39889 : Arequipa + -57.63591 -25.30066 : Asunción + -56.18816 -34.90328 : Montevideo + 23.58979 -6.13603 : Mbuji-Mayi + 27.47938 -11.66089 : Lubumbashi + 15.28318 -4.26613 : Brazzaville + 39.66359 -4.05466 : Mombasa + 47.53613 -18.91368 : Antananarivo + 32.58322 -25.96553 : Maputo + 30.05885 -1.94995 : Kigali + 27.85849 -26.26781 : Soweto + 28.18783 -25.74486 : Pretoria + 25.57007 -33.91799 : Port Elizabeth + 30.39278 -29.61679 : Pietermaritzburg + 28.28713 -15.40669 : Lusaka + 31.05337 -17.82772 : Harare + 115.86140 -31.95224 : Perth + 138.59863 -34.92866 : Adelaide + 119.43194 -5.14861 : Makassar + 105.26111 -5.42917 : Bandar Lampung + 106.63000 -6.17806 : Tangerang + 110.42083 -6.99306 : Semarang + 104.74580 -2.91673 : Palembang + 100.35427 -0.94924 : Padang + 112.63040 -7.97970 : Malang + 106.81861 -6.40000 : Depok + 115.21667 -8.65000 : Denpasar + 106.78917 -6.59444 : Bogor + 106.98960 -6.23490 : Bekasi + 107.60694 -6.92222 : Bandung + 106.71789 -6.28862 : South Tangerang diff --git a/Src/Celbody/SPICE/Config/Enceladus.cfg b/Src/Celbody/SPICE/Config/Enceladus.cfg new file mode 100644 index 000000000..0d7c268f2 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Enceladus.cfg @@ -0,0 +1,27 @@ +; === Configuration file for moon Enceladus(Saturn) === +Name = Enceladus +Module = spice +Kernel = Kernels\orbiter.bsp +Body = ENCELADUS +Origin = SATURN +Barycenter = ENCELADUS +ParentBarycenter = SATURN BARYCENTER +Interval = 550 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 7.30e19 +Mass = 1.08071080889539e20 ; SAT375 GM=7.211140136327307E+00 km^3/s^2 +Size = 2.49e5 + +; === Rotation and precession parameters === +; IAU_ENCELADUS +SidRotPeriod = 118386.84287974986, +SidRotOffset = 2.5557547573306025, +Obliquity = 0.48991996824506057, +LAN = 6.100228811499125, +LAN_MJD = 51544.5 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.26 0.24 0.24 ; by VF2_Rolf +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Europa.cfg b/Src/Celbody/SPICE/Config/Europa.cfg new file mode 100644 index 000000000..5bd591680 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa.cfg @@ -0,0 +1,30 @@ +; === Configuration file for moon Europa(Jupiter) === +Name = Europa +Module = spice +Kernel = Kernels\orbiter.bsp +Body = EUROPA +Origin = JUPITER +Barycenter = EUROPA +ParentBarycenter = JUPITER BARYCENTER +Interval = 1100 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 4.797e22 ; mass [kg] +Mass = 4.79984506033599e22 ; JUP310 GM=3.202739815114734E+03 km^3/s^2 +Size = 1.565e6 ; mean radius [m] + +; === Rotation and precession parameters === +; IAU_EUROPA +SidRotPeriod = 306822.0426065463 +SidRotOffset = -2.575206720142548 +Obliquity = -0.00817046172790913 +LAN = 6.694445892378238 +LAN_MJD = 51544.5 +PrecessionPeriod = -11029.068691979175 +PrecessionObliquity = 0.03855079995200889 +PrecessionLAN = 2.7621569645354134 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.39 0.38 0.37 +MaxPatchResolution = 9 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Chaos.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Chaos.mkr new file mode 100644 index 000000000..77d5c546e --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Chaos.mkr @@ -0,0 +1,8 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA +-12.70 +9.70 : Conamara Chaos ++176.20 +22.40 : Murias Chaos diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Craters.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Craters.mkr new file mode 100644 index 000000000..c28e4a306 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Craters.mkr @@ -0,0 +1,48 @@ +BEGIN_HEADER +InitialState on +ColourIdx 1 +ShapeIdx 1 +END_HEADER + +BEGIN_DATA ++182.50 -43.00 : Áine ++182.50 +13.80 : Amaethon ++129.40 -14.70 : Amergin ++284.90 -12.60 : Angus ++190.50 +1.40 : Avagddu ++262.20 -52.80 : Balor ++261.30 +37.60 : Bress ++278.70 +10.80 : Brigid ++278.90 -26.50 : Camulus ++178.10 +2.60 : Cilix ++283.60 -2.50 : Cliodhna ++271.90 -36.90 : Cormac ++191.30 +37.30 : Dagda ++152.70 -65.40 : Deirdre ++258.00 -61.30 : Diarmuid ++275.60 -55.30 : Dylan ++280.20 -31.90 : Elathan ++126.70 -50.50 : Eochaid ++57.20 -37.30 : Govannan ++260.60 -59.70 : Gráinne ++15.50 +9.10 : Gwern ++278.40 -60.50 : Gwydion ++138.20 -1.80 : Llyr ++102.40 -40.20 : Luchtar ++315.70 +28.00 : Lug ++162.10 -16.80 : Mael Dúin ++281.10 +58.80 : Maeve ++120.30 +3.10 : Manannán ++176.30 -25.60 : Math ++21.20 +3.70 : Midir ++207.40 -4.90 : Morvran ++143.10 +21.10 : Niamh ++72.10 +87.40 : Ogma ++146.60 -52.30 : Oisín ++200.90 -66.10 : Pryderi ++88.60 -25.20 : Pwyll ++165.10 -80.90 : Rhiannon ++222.00 -22.80 : Taliesin ++195.60 +0.80 : Tegid ++187.60 +59.90 : Tuag ++269.30 -48.50 : Uaithne diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Flexus.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Flexus.mkr new file mode 100644 index 000000000..af64869df --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Flexus.mkr @@ -0,0 +1,11 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++188.30 -59.50 : Cilicia Flexus ++185.90 -68.20 : Delphi Flexus ++215.40 -42.10 : Gortyna Flexus ++161.60 -44.50 : Phocis Flexus ++176.60 -66.40 : Sidon Flexus diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Large ringed features.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Large ringed features.mkr new file mode 100644 index 000000000..943064d16 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Large ringed features.mkr @@ -0,0 +1,8 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++25.50 -16.70 : Callanish ++213.40 +33.60 : Tyre diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Lineae.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Lineae.mkr new file mode 100644 index 000000000..a12a87479 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Lineae.mkr @@ -0,0 +1,51 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++237.40 -61.00 : Adonis Linea ++86.90 +12.80 : Agave Linea ++146.50 -43.80 : Agenor Linea ++184.10 -25.10 : Alphesiboea Linea ++80.70 +11.70 : Androgeos Linea ++164.40 -1.70 : Argiope Linea ++89.20 +14.90 : Asterius Linea ++147.90 -75.80 : Astypalaea Linea ++194.90 +18.20 : Autonoë Linea ++128.60 +9.30 : Belus Linea ++359.90 -44.70 : Butterdon Linea ++168.30 +38.70 : Cadmus Linea ++55.80 -1.40 : Chthonius Linea ++341.70 +17.80 : Corick Linea ++248.30 +7.70 : Drizzlecomb Linea ++199.00 +48.30 : Drumskinny Linea ++174.80 -11.60 : Echion Linea ++314.30 -11.40 : Euphemus Linea ++129.10 +57.80 : Glaukos Linea ++188.30 +28.00 : Harmonia Linea ++35.60 -12.10 : Hyperenor Linea ++185.40 -1.70 : Ino Linea ++146.70 -38.80 : Katreus Linea ++48.00 -41.00 : Kennet Linea ++179.00 -54.00 : Libya Linea ++123.30 +56.00 : Mehen Linea ++60.50 -41.00 : Merrivale Linea ++164.80 +47.20 : Minos Linea ++148.70 -38.70 : Onga Linea ++186.40 +35.50 : Pelagon Linea ++171.70 -19.80 : Pelorus Linea ++40.10 -29.80 : Phineus Linea ++171.20 +16.60 : Phoenix Linea ++159.50 +19.30 : Rhadamanthys Linea ++267.10 -49.50 : Sarpedon Linea ++188.30 +65.40 : Sharpitor Linea ++114.50 +59.30 : Sparti Linea ++332.60 -0.80 : Staldon Linea ++160.80 +26.90 : Tectamus Linea ++182.80 -0.80 : Telephassa Linea ++176.00 -66.10 : Thasus Linea ++205.50 -59.20 : Thynia Linea ++102.00 +47.70 : Tormsdale Linea ++120.60 +48.60 : Udaeus Linea ++164.00 -16.70 : Yelland Linea diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Maculae.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Maculae.mkr new file mode 100644 index 000000000..f9c1bfd04 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Maculae.mkr @@ -0,0 +1,12 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++193.20 -53.60 : Boeotia Macula ++134.30 -1.60 : Castalia Macula ++168.70 -62.50 : Cyclades Macula ++178.80 -46.70 : Thera Macula ++187.90 -45.90 : Thrace Macula ++213.00 +31.70 : [Tyre Macula] diff --git a/Src/Celbody/SPICE/Config/Europa/Marker/Regiones.mkr b/Src/Celbody/SPICE/Config/Europa/Marker/Regiones.mkr new file mode 100644 index 000000000..19c078382 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Europa/Marker/Regiones.mkr @@ -0,0 +1,8 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++151.50 -14.60 : Argadnel Regio ++65.70 -50.00 : Moytura Regio diff --git a/Src/Celbody/SPICE/Config/Ganymede.cfg b/Src/Celbody/SPICE/Config/Ganymede.cfg new file mode 100644 index 000000000..660cdcc60 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede.cfg @@ -0,0 +1,30 @@ +; === Configuration file for moon Ganymede(Jupiter) === +Name = Ganymede +Module = spice +Kernel = Kernels\orbiter.bsp +Body = GANYMEDE +Origin = JUPITER +Barycenter = GANYMEDE +ParentBarycenter = JUPITER BARYCENTER +Interval = 2000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.482e23 ; mass [kg] +Mass = 1.4818563676295e23 ; JUP310 GM=9.887819980080976E+03 km^3/s^2 +Size = 2.634e6 ; mean radius [m] + +; === Rotation and precession parameters === +; IAU_GANYMEDE +SidRotPeriod=618153.3919888235 +SidRotOffset=2.941811559482275 +Obliquity=0.0032010994897803333 +LAN=4.461582236989959 +LAN_MJD=51544.5 +PrecessionPeriod=-49367.184922284476 +PrecessionObliquity=-0.03756793143785496 +PrecessionLAN=-0.37975969419825795 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.39 0.35 0.35 +MaxPatchResolution = 9 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Catenae.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Catenae.mkr new file mode 100644 index 000000000..ae80d990c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Catenae.mkr @@ -0,0 +1,10 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++346.40 +38.80 : Enki Catena ++10.90 +32.90 : Khnum Catena ++7.10 +15.40 : Nanshe Catena ++82.50 +7.10 : Terah Catena diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Craters.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Craters.mkr new file mode 100644 index 000000000..dbde86beb --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Craters.mkr @@ -0,0 +1,136 @@ +BEGIN_HEADER +InitialState on +ColourIdx 1 +ShapeIdx 1 +END_HEADER + +BEGIN_DATA ++348.30 +61.80 : Achelous ++1.90 +57.50 : Adad ++328.70 +73.10 : Adapa ++127.30 +15.90 : Agreus ++167.50 +60.90 : Agrotes ++225.90 +15.10 : Aleyin ++17.60 +31.70 : Ammura ++139.30 +33.70 : Amon ++181.20 -14.40 : Amset ++232.10 -4.10 : Anat ++198.90 -52.80 : Andjeti ++167.70 +32.60 : Anhur ++141.10 +5.10 : Antum ++15.70 +65.20 : Anu ++231.10 -84.20 : Anubis ++297.50 +63.50 : Anzu ++84.00 -8.00 : Apophis ++237.00 -39.10 : Ashîma ++26.50 +54.20 : Asshur ++105.80 +22.50 : Atra-hasis ++37.80 +68.30 : Aya ++30.10 +24.90 : Ba'al ++311.30 +23.00 : Bau ++179.10 -25.50 : Bes ++225.70 +15.30 : Chrysor ++295.80 -31.70 : Cisti ++355.00 -30.00 : Damkina ++338.70 -4.30 : Danel ++104.60 -1.20 : Dendera ++8.20 +23.10 : Diment ++211.30 +17.70 : Ea ++208.60 +1.00 : El ++191.60 +11.60 : En-zu ++34.80 -26.60 : Enkidu ++47.80 +55.30 : Enlil ++179.40 +23.40 : Epigeus ++184.70 -15.30 : Erichthonius ++167.90 -17.40 : Eshmun ++19.50 +74.70 : Etana ++222.40 -13.60 : Gad ++177.40 +56.30 : Geb ++140.60 +18.60 : Geinos ++235.00 -62.80 : Gilgamesh ++214.30 +34.00 : Gir ++347.70 +64.10 : Gula ++192.90 +34.30 : Halieus ++147.40 -30.60 : Hapi ++259.80 +35.90 : Harakhtes ++63.20 +28.50 : Haroeris ++91.40 -66.90 : Hathor ++226.90 +14.50 : Hay-tau ++108.90 -33.00 : Hedetet ++90.50 +47.30 : Hershef ++292.70 -55.20 : Humbaba ++199.40 +21.90 : Ilah ++249.70 -13.40 : Ilus ++245.30 -32.60 : Irkalla ++351.60 +0.30 : Ishkur ++0.00 +8.40 : Isimu ++158.90 -67.30 : Isis ++181.50 +47.70 : Kadi ++324.80 +16.00 : [Keret] ++207.10 +1.00 : Khensu ++212.40 +20.40 : Khepri ++274.80 -17.80 : [Khnum] ++169.20 -37.50 : Khonsu ++24.60 -24.10 : Khumbam ++132.90 -34.80 : Kingu ++10.30 +72.60 : Kishar ++25.40 +0.40 : Kittu ++246.20 +33.30 : Kulla ++115.20 +64.40 : Lagamal ++188.80 +58.80 : Latpon ++166.20 +23.80 : Lugalmeslam ++205.70 +36.00 : Lumha ++156.40 +1.30 : Maa ++195.60 +29.00 : Mehit ++173.80 -9.90 : Melkart ++219.50 -36.50 : Menhit ++358.80 +29.20 : Min ++129.70 -3.30 : Mir ++24.10 -4.40 : Misharu ++48.10 +44.60 : Mont ++32.60 +30.50 : Mor ++194.10 +9.90 : Mot ++245.20 -15.10 : Mush ++358.80 -45.40 : Nabu ++274.80 -17.80 : Nah-Hunte ++19.20 -58.30 : Namtar ++118.10 -17.60 : Nanna ++38.90 +44.30 : Nefertum ++297.50 +72.10 : Neheh ++353.00 +29.40 : Neith ++159.70 +38.60 : Nergal ++236.80 +17.70 : Nidaba ++39.50 -58.20 : Nigirsu ++170.20 +14.10 : Ningishzida ++311.30 +59.20 : Ninkasi ++239.50 -8.20 : Ninki ++241.70 +6.20 : Ninlil ++219.40 -14.50 : Ninsum ++90.70 -54.30 : Nut ++193.60 -38.10 : Osiris ++143.00 -65.90 : Ptah ++120.10 -24.90 : Punt ++51.40 +13.20 : Ruti ++7.30 -14.20 : Saltu ++326.10 +57.40 : Sapas ++347.20 +30.90 : Sati ++3.10 +61.20 : Sebek ++144.10 +17.10 : Seima ++14.50 -39.20 : Seker ++254.20 +15.00 : Selket ++315.90 -12.50 : Serapis ++3.20 +43.20 : Shu ++2.50 +52.90 : Sin ++55.90 +27.60 : Ta-urt ++129.40 +13.40 : Tammuz ++323.40 +57.50 : Tanit ++95.50 -39.70 : Tashmetum ++80.40 -68.50 : Teshub ++212.80 -43.30 : Thoth ++332.70 +11.10 : Tros ++40.50 +46.40 : Upuant ++91.10 -53.80 : [Wadjet] ++69.70 -12.40 : We-ila ++300.20 -69.90 : Wepwawet ++26.30 +31.20 : Zakar ++322.70 +58.20 : Zaqar diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Faculae.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Faculae.mkr new file mode 100644 index 000000000..8eadaf7a8 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Faculae.mkr @@ -0,0 +1,23 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++206.60 +33.40 : Abydos Facula ++170.50 +27.70 : Akhmin Facula ++265.70 +29.00 : Bigeh Facula ++144.60 +15.70 : Busiris Facula ++156.50 +13.20 : Buto Facula ++150.80 +9.90 : Coptos Facula ++103.00 +0.00 : [Dendera Facula] ++212.90 +25.70 : Edfu Facula ++212.80 +18.50 : Heliopolis Facula ++164.70 +22.40 : Hermopolis Facula ++228.10 +14.10 : Memphis Facula ++124.00 +4.80 : Ombos Facula ++117.80 -26.10 : [Punt Facula] ++345.80 +37.90 : [Sais Facula] ++216.90 +7.00 : Siwah Facula ++198.80 +37.60 : Tettu Facula ++157.60 +7.10 : Thebes Facula diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Fossae.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Fossae.mkr new file mode 100644 index 000000000..8ae14d4b0 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Fossae.mkr @@ -0,0 +1,9 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++132.30 -11.60 : Lakhamu Fossa ++232.00 +50.40 : Lakhmu Fossae ++209.50 +38.50 : Zu Fossae diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Regiones.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Regiones.mkr new file mode 100644 index 000000000..d6c7730c4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Regiones.mkr @@ -0,0 +1,11 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++341.00 -10.70 : Barnard Regio ++230.40 +47.00 : Galileo Regio ++178.80 +6.80 : Marius Regio ++355.20 -33.50 : Nicholson Regio ++327.50 +33.20 : Perrine Regio diff --git a/Src/Celbody/SPICE/Config/Ganymede/Marker/Sulci.mkr b/Src/Celbody/SPICE/Config/Ganymede/Marker/Sulci.mkr new file mode 100644 index 000000000..27f71c0db --- /dev/null +++ b/Src/Celbody/SPICE/Config/Ganymede/Marker/Sulci.mkr @@ -0,0 +1,38 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++165.70 +38.90 : Akitu Sulcus ++162.10 +18.00 : Anshar Sulcus ++125.30 -39.40 : Apsu Sulci ++356.10 +52.40 : Aquarius Sulcus ++10.20 -21.10 : Arbela Sulcus ++77.10 -72.30 : Bubastis Sulci ++160.10 +37.90 : Byblus Sulcus ++342.50 -46.90 : Dardanus Sulcus ++356.20 +83.50 : Dukug Sulcus ++159.70 +58.20 : Elam Sulci ++180.80 -7.30 : Erech Sulcus ++41.30 -11.70 : Harpagia Sulcus ++126.90 -9.70 : Hursag Sulcus ++143.40 -6.40 : Kishar Sulcus ++196.80 -10.90 : Lagash Sulcus ++111.30 +3.80 : Larsa Sulcus ++154.30 +29.80 : Mashu Sulcus ++352.10 -7.00 : Mysia Sulci ++306.90 +23.50 : Nineveh Sulcus ++175.00 +36.90 : Nippur Sulcus ++43.60 +49.50 : Nun Sulci ++191.00 +65.50 : Philae Sulcus ++150.50 +44.10 : Philus Sulcus ++336.50 +12.40 : Phrygia Sulcus ++127.80 -19.30 : Shuruppak Sulcus ++341.50 +32.70 : Sicyon Sulcus ++170.70 -15.40 : Sippar Sulcus ++151.50 +3.40 : Tiamat Sulcus ++110.00 +4.10 : Umma Sulcus ++182.50 +49.80 : Ur Sulcus ++199.70 +0.80 : Uruk Sulcus ++288.90 +43.80 : Xibalba Sulcus diff --git a/Src/Celbody/SPICE/Config/Himalia.cfg b/Src/Celbody/SPICE/Config/Himalia.cfg new file mode 100644 index 000000000..17eb9ce89 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Himalia.cfg @@ -0,0 +1,26 @@ +; === Configuration file for moon Amalthea(Jupiter) === +Name = Himalia +Module = spice +Kernel = Kernels\orbiter.bsp +Body = HIMALIA +Origin = JUPITER +Barycenter = HIMALIA +ParentBarycenter = JUPITER BARYCENTER +Interval = 7000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 2.1012792473587e18 ; JUP300 GM=1.402097489313343E-01 km^3/s^2 +Mass = 2.0682833743403e18 ; JUP341 GM=1.380080696078966E-01 km^3/s^2 +Size = 85e3 ; mean radius [m] + +; === Rotation and precession parameters === +;cpck31Oct2017.tpc +SidRotPeriod = 1441931.16781261 +SidRotOffset = 1.6731644212176964 +Obliquity = 0.03157186958485376 +LAN = 2.835776772599215 +LAN_MJD = 51544.5 + +; === Visualisation Parameters === +AlbedoRGB = 0.04 0.04 0.04 +MaxPatchResolution = 8 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Hydra.cfg b/Src/Celbody/SPICE/Config/Hydra.cfg new file mode 100644 index 000000000..76a46ef28 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Hydra.cfg @@ -0,0 +1,28 @@ +; === Configuration file for Hydra === +Name = Hydra +Module = spice +Kernel = Kernels\orbiter.bsp +Body = HYDRA +Origin = PLUTO +Barycenter = HYDRA +ParentBarycenter = PLUTO BARYCENTER +Interval = 8350 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +;Mass = 4.81228309570235e16 ; PLU043 GM=3.211039206155255E-03 km^3/s^2 +Mass = 5.490996910465896e16 ; PLU055 GM=3.663917107480563E-03 km^3/s^2 +Size = 57e3 ; radius (~30 ? 84 km) +SidRotPeriod = 3300899.418432 ; ? +SidRotOffset = 0 ; ? +Obliquity = 1.972593 ; ? +LAN = 0.828399 ; ? + +; === Visualisation Parameters === +AlbedoRGB = 0.60 0.57 0.44 + +; === Visualisation Parameters === +MaxPatchResolution = 0 + diff --git a/Src/Celbody/SPICE/Config/Hyperion.cfg b/Src/Celbody/SPICE/Config/Hyperion.cfg new file mode 100644 index 000000000..c9648d7fa --- /dev/null +++ b/Src/Celbody/SPICE/Config/Hyperion.cfg @@ -0,0 +1,22 @@ +; === Configuration file for moon Hyperion(Saturn) === +Name = Hyperion +Module = spice +Kernel = Kernels\orbiter.bsp +Body = HYPERION +Origin = SATURN +Barycenter = HYPERION +ParentBarycenter = SATURN BARYCENTER +Interval = 4450 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.77e19 +Mass = 5.5728929086487331e18 ; SAT375 GM=3.718562949332045E-01 km^3/s^2 (is it porous ???) +Size = 143e3 +SidRotPeriod = 119600 ; by Chode - note: Rotation is chaotic, NOT synchronous +SidRotOffset = 0 +Obliquity = 0.4895 ; inherit from Saturn +LAN = 6.09808 ; inherit from Saturn +AlbedoRGB = 0.21 0.16 0.17 ; by VF2_Rolf + +; === Visualisation Parameters === +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Hyperion/Label.cfg b/Src/Celbody/SPICE/Config/Hyperion/Label.cfg new file mode 100644 index 000000000..383133dfc --- /dev/null +++ b/Src/Celbody/SPICE/Config/Hyperion/Label.cfg @@ -0,0 +1,2 @@ +c x O 255 192 128 Crater +D x O 255 255 255 Dorsum diff --git a/Src/Celbody/SPICE/Config/Iapetus.cfg b/Src/Celbody/SPICE/Config/Iapetus.cfg new file mode 100644 index 000000000..a072ffc2f --- /dev/null +++ b/Src/Celbody/SPICE/Config/Iapetus.cfg @@ -0,0 +1,39 @@ +; === Configuration file for moon Iapetus(Saturn) === +Name = Iapetus +Module = spice +Kernel = Kernels\orbiter.bsp +Body = IAPETUS +Origin = SATURN +Barycenter = IAPETUS +ParentBarycenter = SATURN BARYCENTER +Interval = 17520 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.6e21 +Mass = 1.806006150646678e21 ; SAT375 GM=1.205073858074352E+02 km^3/s^2 +Size = 7.30e5 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 0.390942395 +PrecessionObliquity = 0.2231254157 +PrecessionPeriod = -2357905.863 +LAN = 4.422070305 +LAN_MJD = 51544.5 +Obliquity = 0.2792493401 +SidRotOffset = 2.129843522 +SidRotPeriod = 6854343.081 +;SidRotPeriod (days): 79.33267455 +;SidRotPeriod (days - node to node): 79.33010885 +;Precession Period (years): -6455.594424 +;Obliquity (deg): 15.99980862 +;Ecliptic LAN (rad): 5.578155882 +;Ecliptic Obliquity (rad): 0.3014973361 +;Ecliptic SidRotOffset (rad): 1.501271458 +;Axis RMS Error (deg): 0.004683714009 +;Lat/Lon RMS Error (deg): 0.001598098019 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.21 0.21 0.21 +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Io.cfg b/Src/Celbody/SPICE/Config/Io.cfg new file mode 100644 index 000000000..8a413718b --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io.cfg @@ -0,0 +1,43 @@ +; === Configuration file for moon Io(Jupiter) === +Name = Io +Module = spice +Kernel = Kernels\orbiter.bsp +Body = IO +Origin = JUPITER +Barycenter = IO +ParentBarycenter = JUPITER BARYCENTER +Interval = 600 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 8.933e22 ; mass [kg] +Mass = 8.931937173092516e22 ; JUP365 GM=5.959915466180539E+03 km^3/s^2 +Size = 1.821e6 ; mean radius [m] + +; === Rotation and precession parameters === +; IAU_IO +SidRotPeriod = 152853.5060459247 +SidRotOffset = 2.1710862059958225 +Obliquity = 0.0007041217242489666 +LAN = 4.826214353871509 +LAN_MJD = 51544.5 +PrecessionPeriod = -2709.1554109986905 +PrecessionObliquity = 0.038622517435230354 +PrecessionLAN = 2.7523674938326312 + +; === Atmospheric Parameters === +AtmPressure0 = 0.0001 +AtmDensity0 = 0.0001 +AtmGasConstant = 1.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 0.3333 ; ? specific heat ratio c_p/c_v +AtmAltLimit = 20e3 ; ? +AtmHorizonAlt = 30e3 ; ? horizon rendering altitude [m] +AtmColor0 = 0.12 0.04 0.03 ; ? +AtmHazeColor = 0.31 0.18 0.18 +AtmHazeDensity = 1.0 +AtmHazeExtent = 0.07 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.41 0.33 0.32 +MaxPatchResolution = 10 ; highest sphere patch level +HorizonExcess = 0.03 diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Catenae.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Catenae.mkr new file mode 100644 index 000000000..ecb110612 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Catenae.mkr @@ -0,0 +1,9 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++46.70 -8.80 : [Mazda Catena] ++54.50 +0.50 : [Reshet Catena] ++236.50 +62.80 : [Tvashtar Catena] diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Eruptive Center.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Eruptive Center.mkr new file mode 100644 index 000000000..e716bbcef --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Eruptive Center.mkr @@ -0,0 +1,18 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++245.30 +24.50 : Amirani ++326.40 -18.20 : Kanehekili ++57.40 +18.20 : Loki ++150.30 -29.30 : Marduk ++303.80 -49.60 : Masubi ++237.70 +19.50 : Maui ++104.70 -18.70 : Pele ++206.10 -1.50 : Prometheus ++23.50 +45.20 : Surt ++226.90 +39.20 : Thor ++187.50 +28.60 : Volund ++187.40 +18.40 : Zamama diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Fluctus.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Fluctus.mkr new file mode 100644 index 000000000..ef103d68d --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Fluctus.mkr @@ -0,0 +1,20 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++25.40 +9.00 : Acala Fluctus ++210.80 +31.20 : Arinna Fluctus ++172.40 +22.70 : Donar Fluctus ++9.00 -45.00 : Euboea Fluct?s ++1.90 +11.20 : Fjorgynn Fluctus ++326.40 -17.70 : Kanehekili Fluctus ++153.50 +40.40 : Lei-Kung Fluctus ++313.80 +14.20 : Lei-zi Fluctus ++149.20 -27.60 : Marduk Fluctus ++301.90 -50.50 : Masubi Fluctus ++209.40 +14.10 : Sobo Fluctus ++196.60 -1.40 : Ts?i Goab Fluctus ++3.50 -16.60 : Tung Yo Fluctus ++343.40 -33.00 : Uta Fluctus diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Mensae.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Mensae.mkr new file mode 100644 index 000000000..353f185e8 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Mensae.mkr @@ -0,0 +1,15 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++238.40 -16.50 : Capaneus Mensa ++4.40 -80.00 : Echo Mensa ++120.00 -53.00 : Epaphus Mensa ++113.70 -43.50 : Hermes Mensa ++56.00 -62.20 : Iynx Mensa ++328.20 -50.90 : Pan Mensa ++208.10 -1.90 : Prometheus Mensa ++244.10 -53.30 : Telegonus Mensae ++240.10 +61.60 : Tvashtar Mensae diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Montes.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Montes.mkr new file mode 100644 index 000000000..b41d0aaf4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Montes.mkr @@ -0,0 +1,30 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +ShapeIdx 3 +END_HEADER + +BEGIN_DATA ++90.90 -3.70 : Boösaule Montes ++121.40 -32.40 : Caucasus Mons ++118.80 -76.20 : Crimea Mons ++161.90 -25.90 : Dorian Montes ++102.40 -41.50 : Egypt Mons ++21.20 -48.90 : Euboea Montes ++233.50 +26.30 : Euxine Mons ++272.30 +18.60 : Gish Bar Mons ++313.80 -69.70 : Haemus Montes ++278.20 -5.10 : Hi'iaka Montes ++123.40 +8.60 : Ionian Mons ++255.50 +15.20 : Monan Mons ++293.10 +22.80 : Mongibello Mons ++110.00 +52.10 : Nile Montes ++144.40 +4.20 : Ot Mons ++113.30 -8.80 : Pillan Mons ++158.80 -36.30 : Rata Mons ++225.80 -10.70 : Seth Mons ++288.50 -12.00 : Shamshu Mons ++87.70 -52.70 : Silpium Mons ++261.00 +26.20 : Skythia Mons ++199.50 -29.50 : Tohil Mons ++283.00 +38.10 : Zal Montes diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Paterae.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Paterae.mkr new file mode 100644 index 000000000..433ce2671 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Paterae.mkr @@ -0,0 +1,148 @@ +BEGIN_HEADER +InitialState on +ColourIdx 5 +END_HEADER + +BEGIN_DATA ++217.80 +12.80 : Ababinili Patera ++27.00 -40.80 : Agni Patera ++253.00 +10.30 : Ah Peku Patera ++182.90 -1.80 : Aidne Patera ++251.00 -34.40 : Altjirra Patera ++53.50 +38.10 : Amaterasu Patera ++351.20 -21.10 : Angpetu Patera ++23.20 -73.60 : Aramazd Patera ++258.50 -39.10 : Arusha Patera ++134.30 -8.80 : Asha Patera ++81.40 +31.10 : ?tar Patera ++50.00 -48.50 : Aten Patera ++88.00 -39.80 : Babbar Patera ++203.90 +11.40 : Balder Patera ++202.30 +2.90 : Belenus Patera ++341.10 -61.50 : Bochica Patera ++223.20 +15.20 : Camaxtli Patera ++42.80 +1.40 : Carancho Patera ++343.40 -23.90 : Cataquil Patera ++258.40 -53.80 : Catha Patera ++202.60 +11.90 : Chaac Patera ++110.10 +68.50 : Chors Patera ++17.50 -53.00 : Creidne Patera ++215.40 -0.90 : Cuchi Patera ++199.80 -20.20 : Culann Patera ++85.60 +19.50 : Daedalus Patera ++58.50 +55.10 : Dazhbog Patera ++18.60 -4.10 : Dingir Patera ++241.00 +37.50 : Dusura Patera ++271.50 -28.40 : Ekhi Patera ++240.20 -3.30 : Emakong Patera ++272.30 +21.60 : Estan Patera ++167.80 +40.80 : Fo Patera ++32.40 +28.30 : Fuchi Patera ++157.50 -51.90 : Gabija Patera ++71.90 -10.90 : Galai Patera ++65.40 -15.00 : Gibil Patera ++120.10 +22.80 : Girru Patera ++269.70 +16.20 : Gish Bar Patera ++214.70 +11.20 : Grannos Patera ++173.40 -20.90 : Haokah Patera ++328.00 -59.40 : Hatchawa Patera ++115.10 +29.80 : Heiseb Patera ++48.50 -57.10 : Heno Patera ++70.20 +2.00 : Hephaestus Patera ++280.50 -3.60 : Hi'iaka Patera ++31.20 -65.10 : Hiruko Patera ++22.00 -9.80 : Horus Patera ++31.00 -15.00 : Huo Shen Patera ++358.90 -14.40 : Ilmarinen Patera ++12.50 -68.40 : Inti Patera ++151.50 +29.80 : Isum Patera ++260.50 -16.10 : Itzamna Patera ++321.00 -4.60 : Janus Patera ++124.90 -8.70 : Kami-Nari Patera ++348.20 -48.40 : Kane Patera ++346.90 +0.20 : Karei Patera ++18.70 -16.80 : Kava Patera ++56.40 +5.10 : Khalla Patera ++54.90 -11.80 : Kibero Patera ++49.80 +49.30 : Kinich Ahau Patera ++142.00 -49.60 : Kurdalagon Patera ++298.10 -38.90 : Laki-oi Patera ++117.70 +12.20 : Llew Patera ++51.20 +13.00 : Loki Patera ++6.80 -38.50 : Lu Huo Patera ++20.90 -40.30 : Maasaw Patera ++100.50 -13.50 : Mafuike Patera ++230.40 -34.20 : Malik Patera ++4.70 -11.30 : Mama Patera ++38.30 +35.80 : Manua Patera ++15.50 -22.60 : Masaya Patera ++235.80 +16.60 : Maui Patera ++46.70 -8.80 : Mazda Paterae ++354.90 -31.50 : Mbali Patera ++15.20 -31.30 : Menahka Patera ++220.60 +7.00 : Mentu Patera ++192.40 +1.20 : Michabo Patera ++54.50 -16.50 : Mihr Patera ++93.50 -59.00 : Mithra Patera ++254.60 +19.70 : Monan Patera ++142.10 +17.30 : Mulungu Patera ++184.50 +10.10 : Namarrkun Patera ++197.40 -38.20 : Nina Patera ++44.80 -16.70 : Ninurta Patera ++356.20 -65.00 : Nusku Patera ++16.90 +0.40 : Nyambe Patera ++142.60 -1.10 : Ot Patera ++1.50 -45.70 : Päive Patera ++14.40 -34.20 : Pautiwa Patera ++116.80 -12.30 : Pillan Patera ++55.30 -18.40 : Podja Patera ++62.70 -2.60 : Purgine Patera ++108.80 -55.60 : Pyerun Patera ++35.30 -8.70 : Ra Patera ++200.00 -27.80 : Radegast Patera ++55.60 -41.70 : Rarog Patera ++160.20 -35.60 : Rata Patera ++124.60 -13.40 : Reiden Patera ++201.90 +27.70 : Reshef Patera ++54.50 +0.50 : Reshet Patera ++220.30 +14.70 : Ruaumoko Patera ++358.20 +0.20 : Ruwa Patera ++236.60 +48.20 : Savitr Patera ++56.40 -2.90 : Sêd Patera ++56.30 -32.90 : Sengen Patera ++228.30 -5.30 : Seth Patera ++166.20 -52.30 : Sethlaus Patera ++94.30 +24.10 : Shakuru Patera ++207.40 -35.00 : Shamash Patera ++297.00 -10.10 : Shamshu Patera ++259.50 +32.30 : Shango Patera ++35.30 -20.40 : Shoshu Patera ++262.10 -5.90 : Sigurd Patera ++359.60 -49.80 : Siun Patera ++221.10 +15.50 : Steropes Patera ++357.30 -19.10 : Sui Jen Patera ++208.40 +21.50 : Surya Patera ++140.20 +22.40 : Susanoo Patera ++94.30 -48.70 : Svarog Patera ++5.20 -26.40 : Talos Patera ++334.50 -71.40 : Taranis Patera ++1.60 -33.70 : Taw Patera ++283.80 +3.30 : Tawhaki Patera ++194.10 +25.70 : Thomagata Patera ++225.70 +12.30 : Tien Mu Patera ++10.00 +22.40 : Tiermes Patera ++201.30 -25.60 : Tohil Patera ++37.90 +1.80 : Tol-Ava Patera ++359.10 -18.30 : Tung Yo Patera ++218.90 -18.70 : Tupan Patera ++236.50 +62.80 : Tvashtar Paterae ++341.60 +31.00 : Ukko Patera ++72.70 -40.80 : Ülgen Patera ++337.60 -35.90 : Uta Patera ++9.20 -24.10 : Vahagn Patera ++79.90 -61.80 : Viracocha Patera ++66.00 +75.10 : Vivasvant Patera ++193.30 -22.90 : Wabasso Patera ++134.80 -32.80 : Wayland Patera ++227.80 +9.90 : Yaw Patera ++285.50 +40.20 : Zal Patera diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Plana.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Plana.mkr new file mode 100644 index 000000000..125266488 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Plana.mkr @@ -0,0 +1,14 @@ +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++42.20 -48.00 : Argos Planum ++102.60 -22.70 : Danube Planum ++12.50 -58.80 : Dodona Planum ++335.40 -45.30 : Ethiopia Planum ++341.50 -54.40 : Hybristes Planum ++27.30 -35.30 : Iopolis Planum ++91.20 -41.90 : Lyrcea Planum ++92.30 -72.80 : Nemea Planum diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Regiones.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Regiones.mkr new file mode 100644 index 000000000..448450a9c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Regiones.mkr @@ -0,0 +1,16 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++236.20 -47.60 : Bactria Regio ++239.50 -1.60 : Bosphorus Regio ++169.20 +34.80 : Bulicame Regio ++273.80 +57.50 : Chalybes Regio ++155.00 +1.60 : Colchis Regio ++191.00 -69.80 : Illyrikon Regio ++68.10 -62.30 : Lerna Regio ++300.60 +8.60 : Media Regio ++194.60 -36.10 : Mycenae Regio ++304.90 -39.70 : Tarsus Regio diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Tholi.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Tholi.mkr new file mode 100644 index 000000000..46a315856 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Tholi.mkr @@ -0,0 +1,9 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++12.10 -10.90 : Apis Tholus ++12.20 -16.20 : Inachus Tholus ++197.00 -0.10 : Ts?i Goab Tholus diff --git a/Src/Celbody/SPICE/Config/Io/Marker/Valles.mkr b/Src/Celbody/SPICE/Config/Io/Marker/Valles.mkr new file mode 100644 index 000000000..86ea6b87d --- /dev/null +++ b/Src/Celbody/SPICE/Config/Io/Marker/Valles.mkr @@ -0,0 +1,7 @@ +BEGIN_HEADER +InitialState on +ColourIdx 4 +END_HEADER + +BEGIN_DATA ++287.20 +0.50 : Tawhaki Vallis diff --git a/Src/Celbody/SPICE/Config/Jupiter.cfg b/Src/Celbody/SPICE/Config/Jupiter.cfg new file mode 100644 index 000000000..7c31a7cf7 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Jupiter.cfg @@ -0,0 +1,54 @@ +; === Configuration file for planet Jupiter === +Name = Jupiter +Module = spice +Kernel = Kernels\orbiter.bsp +Body = JUPITER +Origin = SUN +Barycenter = JUPITER BARYCENTER +ParentBarycenter = SSB +Interval = 7000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.8986111e+27 ; mass [kg] +Mass = 1.898611062576457e27 ; JUP365 GM=1.266865319003704E+08 km^3/s^2 +Size = 6.9911e+7 ; mean radius [m] +; https://agupubs.onlinelibrary.wiley.com/doi/epdf/10.1029/2019GL086572 +JCoeff = 14696.5735e-6 -0.0450e-6 -586.6085e-6 -0.0723e-6 ; coefficient for gravitational potential +AlbedoRGB = 1.24 1.22 1.14 + +; === Rotation and precession parameters === +; IAU_JUPITER +SidRotPeriod = 35729.71135186885 +SidRotOffset = 4.193162722652337 +Obliquity = -0.016948574567499687 +LAN = 1.589860219836502 +LAN_MJD = 51544.5 +PrecessionPeriod = 151989599.0568502 +PrecessionObliquity = -0.03508415165913837 +PrecessionLAN = -0.8408676938167512 + +; === Atmospheric Parameters === +AtmPressure0 = 201.4e4 ; Crushed like a bug +AtmDensity0 = 1.3293 ; ? +AtmGasConstant = 194.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 1.3333 ; specific heat ratio c_p/c_v +AtmAltLimit = 3200e3 ; raised to enable aerobrake capture. +;AtmHorizonAlt = 199e3 ; horizon rendering altitude [m] old 2570e3 +AtmColor0 = 0.37 0.35 0.39 ; ? 0.46 0.26 0.13 +2 0.38 0.31 0.30 +AtmHazeColor = 0.21 0.10 0.10 ; 0.35 0.35 0.39 0.46 0.26 0.13 +AtmHazeDensity = 0.09 +AtmHazeExtent = 0.055 ; 0.022 +AtmHazeShift = 0.009 + +; === Cloud parameters === +CloudAlt = 480e3 ; 800e3 altitude of cloud layer...below equals 'crushed like bug' +CloudRotPeriod = 0 ; 35727.3 ; 9.92425 hours +CloudShadowDepth = 0.8 +CloudMicrotextureAlt = 1535e3 6440e3 ;1535e3 3440e3 + +; === Data for the Visual === +TileFormat = 2 +CloudFormat = 2 +MaxPatchResolution = 6 ; highest sphere patch level +MinCloudResolution = 1 ; cloud layer from this resolution +MaxCloudResolution = 6 ; highest cloud resolution level diff --git a/Src/Celbody/SPICE/Config/Mars.cfg b/Src/Celbody/SPICE/Config/Mars.cfg new file mode 100644 index 000000000..64f0cf310 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mars.cfg @@ -0,0 +1,55 @@ +; === Configuration file for planet Mars === +Name = Mars +Module = spice +Kernel = Kernels\orbiter.bsp +Body = MARS +Origin = SUN +Barycenter = MARS BARYCENTER +ParentBarycenter = SSB +Interval = 30000 ; Error < 0.5m +;Module_Atm = MarsAtm2006 + +; === Physical Parameters === +;Mass = 6.418542e+23 +Mass = 6.418553158623427e23 ; MAR097 GM=4.282837362069909E+04 km^3/s^2 +Size = 3.38992e6 ; mean radius +JCoeff = 0.001964 ; J2 coefficient for gravitational potential + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = jgmro_120f_sha.tab ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + +; === Rotation and precession parameters === +; IAU_MARS best fit MJD 36934 - 69807 +SidRotPeriod = 88642.66434645203 +SidRotOffset = 5.468523600803328 +Obliquity = 0.43910581568581875 +LAN = 0.6212480734765256 +LAN_MJD = 51544.5 +PrecessionPeriod = -63265627.680722006 +PrecessionObliquity = 0.03300807191745811 +PrecessionLAN = 4.005792764990155 + +; === Atmospheric Parameters === +AtmPressure0 = 0.61e3 ; pressure at zero altitude [Pa] +AtmDensity0 = 0.02 ; density at zero altitude [kg/m^3] +AtmGasConstant = 188.92 ; specific gas constant [J/(K kg)] +AtmGamma = 1.2941 ; specific heat ratio c_p/c_v +AtmAltLimit = 280e3 ; cutoff altitude +;AtmColor0 = 0.65 0.52 0.40 +;AtmHazeColor = 0.65 0.52 0.40 +AtmColor0 = 0.42 0.35 0.27 +AtmHazeColor = 0.42 0.35 0.27 +AtmHazeDensity = 0.3 +AtmFogParam = 1.5e-5 0.8e-5 5e3 +AtmFogColor = 0.5 0.40 0.3 + +; === Visualisation Parameters === +TileFormat = 2 +LabelFormat = 2 +AlbedoRGB = 0.52 0.36 0.16 +MaxPatchResolution = 16 ; highest sphere patch level +ElevationResolution = 1 +HorizonExcess = 0.035 ; prevent mountain tops beyond sphere horizon from disappearing +MinElevation = -22000 ; min surface elevation relative to mean radius \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Mars/Atmosphere.cfg b/Src/Celbody/SPICE/Config/Mars/Atmosphere.cfg new file mode 100644 index 000000000..a4a44dd2f --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mars/Atmosphere.cfg @@ -0,0 +1 @@ +MODULE_ATM = MarsAtm2006 diff --git a/Src/Celbody/SPICE/Config/Mars/Base/Olympus.cfg b/Src/Celbody/SPICE/Config/Mars/Base/Olympus.cfg new file mode 100644 index 000000000..557639de7 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mars/Base/Olympus.cfg @@ -0,0 +1,86 @@ +BASE-V2.0 +Name = Olympus +Location = -135.43 +12.74 +Size = 500 + +BEGIN_NAVBEACON +VOR OSRB -135.43 +12.74 114.20 500 +END_NAVBEACON + +; === List of visuals === +BEGIN_OBJECTLIST +HANGAR3 + POS -50 0 -320 + SCALE 40 10 60 + ROT 90 +END +LPAD1 + POS 0 0 0 + ROT 0 + TEX Lpad01 + NAV 129.70 +END +LPAD1 + POS 100 0 0 + ROT 0 + TEX Lpad01 + NAV 132.20 +END +LPAD1 + POS 200 0 0 + ROT 0 + TEX Lpad01 + NAV 132.10 +END +HANGAR3 + POS 200 0 -120 + SCALE 40 10 60 +END +HANGAR3 + POS 120 0 -120 + SCALE 40 10 60 +END +HANGAR3 + POS 40 0 -120 + SCALE 40 10 60 +END +HANGAR3 + POS 120 0 -250 + SCALE 40 10 60 +END +HANGAR3 + POS 200 0 -250 + SCALE 40 10 60 +END +HANGAR3 + POS -50 0 -220 + SCALE 40 10 60 + ROT 90 +END +BLOCK + POS 30 0 -120 + SCALE 340 5 5 +END +BLOCK + POS -40 0 -220 + SCALE 200 5 5 + ROT 90 +END +BLOCK + POS -90 0 -70 + SCALE 140 5 5 + ROT -45 +END +TANK + POS -40 0 -120 + SCALE 20 12 20 +END +TANK + POS -140 0 -120 + SCALE 20 12 20 +END +TANK + POS -140 0 -20 + SCALE 20 12 20 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Mars/Data/contour.vec b/Src/Celbody/SPICE/Config/Mars/Data/contour.vec new file mode 100644 index 000000000..f5050ed79 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mars/Data/contour.vec @@ -0,0 +1,6771 @@ +6601 ; total number of vertices +168 ; number of segments +100 +-178.593750 -27.033054 +-178.045944 -26.718750 +-177.187500 -26.392393 +-175.781250 -25.897057 +-174.375000 -25.875645 +-173.524803 -25.312500 +-172.968750 -24.767802 +-172.228716 -25.312500 +-171.562500 -25.987922 +-171.109625 -25.312500 +-170.156250 -24.908003 +-169.452019 -23.906250 +-169.553008 -22.500000 +-169.643734 -21.093750 +-169.431451 -19.687500 +-168.750000 -18.347337 +-168.658728 -18.281250 +-168.750000 -18.143404 +-170.156250 -17.556986 +-170.719086 -16.875000 +-171.562500 -15.685572 +-171.732208 -15.468750 +-171.562500 -15.058914 +-170.591312 -14.062500 +-170.156250 -13.994738 +-168.750000 -13.811884 +-167.343750 -13.739335 +-165.937500 -13.717089 +-164.531250 -13.677935 +-163.125000 -13.050707 +-161.955045 -12.656250 +-161.718750 -12.423396 +-161.567148 -12.656250 +-160.312500 -13.295011 +-158.906250 -13.635934 +-157.500000 -13.326563 +-156.464210 -12.656250 +-156.093750 -12.419070 +-154.687500 -11.996805 +-153.281250 -12.261328 +-151.875000 -12.620798 +-150.468750 -12.410468 +-149.062500 -12.426428 +-147.656250 -12.268832 +-146.250000 -11.344310 +-146.110042 -11.250000 +-145.454658 -9.843750 +-145.767262 -8.437500 +-146.250000 -7.962161 +-147.656250 -7.713356 +-149.062500 -7.731542 +-150.468750 -7.552469 +-151.875000 -7.043492 +-151.889379 -7.031250 +-153.281250 -5.748101 +-153.485045 -5.625000 +-154.687500 -4.982704 +-156.093750 -4.523029 +-156.603847 -4.218750 +-157.500000 -3.772444 +-158.625329 -2.812500 +-158.906250 -2.624905 +-159.912864 -2.812500 +-160.312500 -2.890664 +-161.243062 -4.218750 +-161.718750 -4.906595 +-163.125000 -5.494994 +-164.531250 -5.250027 +-165.937500 -4.518354 +-166.220928 -4.218750 +-166.920822 -2.812500 +-167.343750 -1.840876 +-167.583411 -1.406250 +-168.373611 0.000000 +-168.750000 0.571343 +-169.616936 1.406250 +-170.156250 2.164891 +-171.562500 2.516464 +-172.023757 2.812500 +-172.968750 3.862375 +-174.170024 4.218750 +-174.375000 4.651056 +-174.858151 5.625000 +-174.375000 5.921987 +-172.995957 7.031250 +-172.968750 7.049781 +-171.562500 7.968530 +-171.272107 8.437500 +-170.929318 9.843750 +-171.562500 10.911783 +-171.895923 11.250000 +-172.968750 11.844677 +-174.375000 12.158850 +-175.333086 12.656250 +-175.636898 14.062500 +-175.506162 15.468750 +-175.781250 16.313151 +-177.187500 16.332199 +-178.266422 15.468750 +-178.593750 15.114019 +5 +-178.593750 22.376945 +-177.187500 22.237331 +-177.085457 22.500000 +-177.187500 23.408534 +-178.593750 22.755076 +395 +180.000000 -27.021565 +178.738102 -28.125000 +178.593750 -28.404357 +178.059628 -29.531250 +177.187500 -30.907442 +177.175635 -30.937500 +177.187500 -30.982779 +177.564080 -32.343750 +177.187500 -32.826085 +176.304919 -33.750000 +175.781250 -34.157163 +174.601396 -35.156250 +174.691634 -36.562500 +175.131239 -37.968750 +174.375000 -38.254253 +172.968750 -38.394676 +171.562500 -38.219474 +170.744061 -37.968750 +170.156250 -37.453470 +168.750000 -37.935296 +168.694832 -37.968750 +167.343750 -38.420606 +165.937500 -38.286130 +164.703453 -37.968750 +164.531250 -37.759178 +164.062308 -36.562500 +163.125000 -35.639751 +161.718750 -35.929650 +160.831047 -36.562500 +160.312500 -36.996042 +159.023779 -37.968750 +158.906250 -38.232626 +158.694142 -37.968750 +157.500000 -37.547968 +156.093750 -36.878671 +154.687500 -37.151407 +153.925313 -37.968750 +153.281250 -39.006259 +152.975419 -39.375000 +151.875000 -40.515865 +151.337376 -40.781250 +151.178065 -42.187500 +150.469242 -43.593750 +150.468750 -43.594224 +149.062500 -44.170822 +147.656250 -44.590270 +146.250000 -44.551415 +144.843750 -43.646573 +144.756715 -43.593750 +143.437500 -42.631120 +142.031250 -42.289558 +141.768766 -42.187500 +140.625000 -41.556314 +139.279778 -40.781250 +139.218750 -40.734418 +137.812500 -40.334576 +136.406250 -40.302715 +135.754477 -40.781250 +135.000000 -41.356383 +134.073350 -42.187500 +133.593750 -42.452173 +132.187500 -43.133140 +131.611346 -43.593750 +130.781250 -44.205421 +129.375000 -44.765555 +127.968750 -44.922072 +126.856014 -43.593750 +126.723494 -42.187500 +126.562500 -41.460069 +126.463689 -40.781250 +126.562500 -40.669574 +127.410011 -39.375000 +127.968750 -38.641053 +129.375000 -37.992894 +129.450516 -37.968750 +130.283964 -36.562500 +129.626885 -35.156250 +129.375000 -34.953808 +128.263955 -35.156250 +127.968750 -35.243060 +126.562500 -36.019701 +126.070933 -35.156250 +125.246774 -33.750000 +125.156250 -33.660427 +124.148934 -32.343750 +123.750000 -32.041015 +122.343750 -31.029804 +122.159200 -30.937500 +120.937500 -30.500334 +119.531250 -30.525926 +118.930834 -30.937500 +118.125000 -31.524547 +116.830092 -32.343750 +116.718750 -32.384796 +115.312500 -32.552685 +113.906250 -32.624892 +112.500000 -32.863347 +111.093750 -33.157570 +110.755945 -32.343750 +110.089042 -30.937500 +109.687500 -30.667725 +108.586550 -29.531250 +108.281250 -29.380997 +106.875000 -28.945539 +105.468750 -28.958824 +104.345673 -29.531250 +104.062500 -29.997679 +103.622522 -30.937500 +102.656250 -31.591304 +101.459646 -30.937500 +101.250000 -30.836965 +99.843750 -29.926992 +99.050266 -29.531250 +98.437500 -29.020857 +97.031250 -29.118771 +95.625000 -29.140966 +94.785298 -28.125000 +94.218750 -26.734839 +94.213905 -26.718750 +93.664916 -25.312500 +94.218750 -24.536990 +94.920141 -23.906250 +95.625000 -23.616167 +97.031250 -23.352931 +98.437500 -23.587479 +99.843750 -23.352288 +101.250000 -23.081080 +102.656250 -23.663087 +102.939443 -23.906250 +104.062500 -24.917706 +105.468750 -25.261137 +106.875000 -25.245282 +107.136691 -25.312500 +108.281250 -25.524274 +109.687500 -25.707206 +111.093750 -25.460344 +111.414044 -25.312500 +112.500000 -24.689872 +113.522683 -23.906250 +113.906250 -23.489978 +115.175223 -22.500000 +115.312500 -22.323515 +115.725824 -22.500000 +116.718750 -22.762522 +118.125000 -23.270549 +119.531250 -23.479704 +120.156981 -23.906250 +120.937500 -24.580408 +121.785368 -23.906250 +122.343750 -23.039310 +122.478346 -22.500000 +122.527499 -21.093750 +122.422770 -19.687500 +122.343750 -19.135021 +122.185928 -18.281250 +121.388430 -16.875000 +120.937500 -16.350492 +119.784334 -15.468750 +119.531250 -15.125457 +118.125000 -14.221476 +116.718750 -14.257553 +115.564472 -14.062500 +115.312500 -14.010004 +113.906250 -12.931188 +113.470785 -12.656250 +113.906250 -12.365574 +115.312500 -12.110968 +116.718750 -12.408928 +117.358760 -12.656250 +118.125000 -13.840646 +119.531250 -13.132473 +120.511332 -12.656250 +120.937500 -12.528364 +122.343750 -12.505316 +123.750000 -12.129412 +125.148836 -11.250000 +125.051758 -9.843750 +125.156250 -9.128257 +125.242249 -8.437500 +125.986136 -7.031250 +125.925190 -5.625000 +125.156250 -5.115016 +124.161331 -4.218750 +123.750000 -3.181080 +123.575121 -2.812500 +122.539603 -1.406250 +122.343750 -1.062003 +120.937500 -0.931511 +120.252044 -1.406250 +120.445902 -2.812500 +120.289184 -4.218750 +119.531250 -4.876259 +118.405784 -5.625000 +118.125000 -5.881849 +117.058796 -5.625000 +116.718750 -5.405329 +116.434119 -4.218750 +116.718750 -3.863223 +117.395164 -2.812500 +118.125000 -1.610367 +118.752273 -1.406250 +118.934781 0.000000 +118.979513 1.406250 +119.044303 2.812500 +119.072273 4.218750 +119.232036 5.625000 +119.437420 7.031250 +119.531250 7.492822 +120.559074 8.437500 +120.937500 8.668840 +120.990833 8.437500 +121.087314 7.031250 +121.253614 5.625000 +122.274881 4.218750 +122.343750 4.168637 +122.486906 4.218750 +123.750000 4.615988 +124.989187 4.218750 +125.156250 3.607932 +126.562500 3.995766 +126.975127 4.218750 +126.562500 4.812883 +125.156250 4.420904 +124.818467 5.625000 +125.156250 6.385696 +125.713269 7.031250 +126.562500 7.613513 +127.926792 7.031250 +127.968750 6.984580 +129.039831 5.625000 +129.375000 5.020666 +129.578632 4.218750 +129.375000 4.090861 +128.336821 2.812500 +127.968750 2.413554 +127.355001 1.406250 +127.128657 0.000000 +127.665760 -1.406250 +127.968750 -1.730229 +129.145878 -2.812500 +129.375000 -3.117076 +130.781250 -2.957812 +130.884362 -2.812500 +131.565220 -1.406250 +132.187500 -0.279561 +132.395257 0.000000 +133.593750 1.230106 +135.000000 0.379626 +135.115713 0.000000 +135.000000 -0.941233 +134.958826 -1.406250 +134.172395 -2.812500 +133.593750 -3.659180 +133.158086 -4.218750 +133.364246 -5.625000 +133.593750 -5.803911 +135.000000 -6.096165 +136.406250 -6.410857 +137.812500 -6.700280 +138.939239 -5.625000 +138.439668 -4.218750 +139.218750 -2.821617 +139.230101 -2.812500 +140.388743 -1.406250 +140.625000 -1.194050 +140.870825 -1.406250 +141.301999 -2.812500 +142.031250 -3.277446 +143.437500 -4.123202 +143.499531 -4.218750 +143.437500 -4.383837 +143.063994 -5.625000 +142.378661 -7.031250 +143.008752 -8.437500 +143.437500 -8.880886 +144.843750 -9.239707 +146.250000 -8.715676 +146.973371 -8.437500 +147.656250 -8.065113 +148.502748 -8.437500 +149.062500 -9.314851 +149.520299 -9.843750 +149.062500 -10.280250 +148.645000 -11.250000 +147.656250 -12.650920 +147.647305 -12.656250 +147.656250 -12.673128 +149.062500 -13.750153 +149.316710 -14.062500 +149.371427 -15.468750 +150.468750 -16.322921 +151.791007 -16.875000 +151.875000 -16.908113 +153.241202 -18.281250 +153.281250 -18.324846 +154.357793 -19.687500 +154.687500 -20.598214 +154.878588 -21.093750 +156.093750 -22.071316 +157.500000 -21.789390 +158.906250 -21.196867 +159.116281 -21.093750 +159.403182 -19.687500 +158.953435 -18.281250 +158.906250 -18.064064 +158.598458 -16.875000 +157.918928 -15.468750 +157.500000 -14.829786 +157.062950 -14.062500 +156.725926 -12.656250 +156.799475 -11.250000 +156.687875 -9.843750 +156.093750 -8.538293 +156.014009 -8.437500 +156.093750 -8.384305 +156.433219 -8.437500 +157.500000 -8.649483 +157.620730 -8.437500 +158.438973 -7.031250 +158.906250 -6.443458 +159.486614 -5.625000 +159.327868 -4.218750 +158.906250 -3.419312 +158.552799 -2.812500 +158.740044 -1.406250 +158.906250 -1.058654 +160.312500 -0.247117 +161.253891 0.000000 +161.718750 0.199349 +161.920448 0.000000 +163.125000 -1.044468 +163.286245 -1.406250 +163.469235 -2.812500 +163.751704 -4.218750 +164.407375 -5.625000 +164.531250 -5.802498 +165.453240 -7.031250 +165.572372 -8.437500 +165.468085 -9.843750 +165.937500 -10.329502 +166.908881 -11.250000 +166.894499 -12.656250 +165.937500 -13.464977 +165.203992 -14.062500 +164.531250 -14.800837 +163.863405 -15.468750 +164.531250 -15.965623 +165.937500 -16.433930 +167.343750 -16.137251 +168.750000 -16.050814 +170.156250 -16.084433 +171.562500 -15.638875 +171.955534 -15.468750 +171.562500 -14.071117 +171.561289 -14.062500 +171.480962 -12.656250 +171.377567 -11.250000 +170.156250 -9.943207 +170.033011 -9.843750 +169.074380 -8.437500 +169.256615 -7.031250 +169.544837 -5.625000 +169.600851 -4.218750 +169.821589 -2.812500 +170.156250 -1.848015 +171.562500 -2.094464 +172.968750 -1.617810 +173.144467 -1.406250 +174.375000 -0.064135 +174.422666 0.000000 +175.056445 1.406250 +175.574788 2.812500 +175.781250 3.785552 +175.873988 4.218750 +175.781250 4.697590 +175.163439 5.625000 +174.375000 6.192935 +173.115188 7.031250 +172.968750 7.393861 +172.072031 8.437500 +172.968750 8.843961 +174.030769 9.843750 +174.375000 10.779782 +174.479765 11.250000 +174.502288 12.656250 +174.375000 12.821134 +173.166423 14.062500 +173.397477 15.468750 +174.031836 16.875000 +174.375000 17.272641 +175.781250 17.376920 +176.530794 16.875000 +177.187500 15.950749 +178.593750 16.540676 +180.000000 16.524175 +7 +177.187500 7.747940 +177.944277 8.437500 +177.187500 9.594723 +175.781250 9.435555 +175.383832 8.437500 +175.781250 7.880743 +177.187500 7.747940 +5 +-172.968750 -26.832301 +-173.110862 -26.718750 +-172.968750 -26.430936 +-172.674882 -26.718750 +-172.968750 -26.832301 +7 +170.156250 0.002244 +169.496907 1.406250 +169.658954 2.812500 +170.156250 3.490603 +170.537378 2.812500 +170.693708 1.406250 +170.156250 0.002244 +137 +167.343750 42.989702 +166.833296 42.187500 +165.960844 40.781250 +165.937500 40.733652 +164.795441 39.375000 +164.531250 38.985074 +163.258656 39.375000 +163.125000 39.441531 +161.718750 39.873970 +160.446383 40.781250 +160.312500 40.850240 +158.906250 41.903786 +158.642046 42.187500 +158.164914 43.593750 +157.500000 44.480769 +156.093750 44.645821 +154.687500 44.722004 +153.281250 44.733587 +151.875000 44.390956 +150.611765 43.593750 +150.468750 42.626777 +150.334464 42.187500 +149.062500 41.576226 +147.782593 42.187500 +147.656250 42.304776 +147.525720 42.187500 +146.250000 41.055009 +146.115138 40.781250 +144.843750 39.972592 +143.437500 39.409360 +143.358413 39.375000 +142.031250 38.686134 +140.625000 38.309723 +139.218750 38.752936 +139.041714 39.375000 +138.784307 40.781250 +138.954933 42.187500 +139.062685 43.593750 +139.218750 44.597730 +140.605169 45.000000 +140.625000 45.001928 +142.031250 45.986455 +142.161812 46.406250 +142.942162 47.812500 +143.437500 48.339973 +144.401452 49.218750 +144.843750 49.783295 +145.564397 50.625000 +145.422484 52.031250 +144.843750 52.553473 +143.437500 52.999828 +142.031250 53.138419 +140.625000 53.008945 +139.218750 52.640982 +137.812500 52.944577 +137.105874 53.437500 +136.406250 53.712291 +135.000000 53.710775 +133.897599 53.437500 +133.600983 52.031250 +134.046396 50.625000 +133.593750 50.100315 +132.187500 49.740761 +131.180719 50.625000 +130.781250 51.252608 +130.377416 52.031250 +129.536480 53.437500 +129.375000 53.495447 +127.968750 54.057770 +126.562500 54.508494 +125.156250 54.753712 +124.852767 54.843750 +123.750000 55.313002 +122.343750 56.246354 +122.337790 56.250000 +120.937500 57.135842 +119.531250 57.500992 +118.384309 57.656250 +118.125000 58.554725 +117.618599 59.062500 +118.125000 59.098138 +119.531250 59.671884 +120.937500 59.849013 +122.343750 60.019635 +123.276188 60.468750 +123.750000 60.752669 +125.156250 61.466512 +126.562500 61.554395 +127.968750 61.548439 +129.375000 61.442070 +130.781250 61.323822 +132.187500 61.533846 +132.922022 61.875000 +133.593750 62.280766 +135.000000 62.568443 +136.406250 62.576776 +137.812500 62.643528 +139.218750 62.752018 +140.625000 62.613651 +142.031250 62.358205 +143.437500 62.063381 +144.240769 61.875000 +144.843750 61.361368 +146.250000 60.970918 +147.443531 60.468750 +147.656250 60.326856 +147.975213 60.468750 +149.062500 60.863451 +150.468750 60.940899 +151.875000 60.530028 +152.060233 60.468750 +153.281250 59.489880 +154.687500 59.219237 +156.093750 59.169541 +156.866674 59.062500 +157.500000 58.353659 +158.906250 58.504504 +159.981910 57.656250 +158.906250 57.019298 +158.378135 56.250000 +157.658355 54.843750 +158.201045 53.437500 +158.906250 53.022604 +160.312500 52.187458 +160.559081 52.031250 +161.718750 51.279993 +162.676873 50.625000 +163.125000 50.029931 +163.560240 49.218750 +163.416101 47.812500 +164.023956 46.406250 +164.531250 45.987472 +165.937500 45.380706 +167.230272 45.000000 +167.343750 44.884653 +168.286890 43.593750 +167.343750 42.989702 +7 +-164.531250 -24.369282 +-165.109667 -23.906250 +-165.667195 -22.500000 +-164.531250 -21.742085 +-163.254280 -22.500000 +-163.660629 -23.906250 +-164.531250 -24.369282 +25 +165.937500 9.137487 +165.227825 8.437500 +164.596129 7.031250 +164.583249 5.625000 +164.739827 4.218750 +164.531250 3.788393 +163.125000 3.855527 +162.695703 4.218750 +162.100741 5.625000 +161.718750 6.402776 +161.517120 7.031250 +161.718750 7.918121 +161.941692 8.437500 +163.125000 9.039081 +163.964459 9.843750 +164.531250 10.813823 +164.915880 11.250000 +165.514286 12.656250 +165.867336 14.062500 +165.937500 14.147829 +166.219424 14.062500 +166.689576 12.656250 +166.649964 11.250000 +166.482504 9.843750 +165.937500 9.137487 +21 +-157.500000 42.244638 +-158.114373 43.593750 +-157.500000 44.106008 +-156.093750 44.071399 +-154.687500 43.616441 +-154.578334 43.593750 +-153.281250 43.030903 +-151.875000 42.927018 +-150.468750 42.240772 +-150.285055 42.187500 +-149.199713 40.781250 +-150.468750 39.476588 +-151.875000 39.510352 +-153.281053 40.781250 +-153.281250 40.781453 +-153.281825 40.781250 +-154.687500 40.437441 +-156.093750 40.398847 +-156.226113 40.781250 +-157.449496 42.187500 +-157.500000 42.244638 +5 +-153.281250 -28.886823 +-153.735594 -28.125000 +-153.281250 -27.801055 +-152.646773 -28.125000 +-153.281250 -28.886823 +9 +154.687500 -6.203526 +153.702068 -7.031250 +153.281250 -7.185392 +153.175335 -7.031250 +153.212778 -5.625000 +153.281250 -5.493435 +154.687500 -4.919103 +154.784901 -5.625000 +154.687500 -6.203526 +725 +-149.062500 -31.680409 +-150.154958 -30.937500 +-149.965835 -29.531250 +-149.340426 -28.125000 +-149.062500 -27.632170 +-148.632303 -26.718750 +-147.801662 -25.312500 +-147.656250 -25.136700 +-146.250000 -24.136467 +-144.843750 -24.449801 +-143.437500 -24.736912 +-142.031250 -24.296713 +-140.625000 -24.386965 +-139.962975 -23.906250 +-139.218750 -23.273321 +-137.812500 -22.598285 +-137.350197 -22.500000 +-136.406250 -22.061654 +-135.000000 -21.590529 +-133.593750 -21.760283 +-132.187500 -22.366458 +-132.042028 -22.500000 +-130.781250 -22.736085 +-129.375000 -22.699360 +-128.172483 -22.500000 +-127.968750 -22.424115 +-126.562500 -22.165332 +-125.247877 -21.093750 +-125.156250 -21.061237 +-124.934154 -21.093750 +-123.750000 -21.275378 +-122.678985 -21.093750 +-122.343750 -20.993466 +-121.076812 -19.687500 +-121.040714 -18.281250 +-122.343750 -17.991164 +-123.750000 -17.785605 +-125.112448 -16.875000 +-125.156250 -16.766784 +-125.395595 -15.468750 +-125.156250 -14.880799 +-124.496754 -14.062500 +-123.750000 -13.620305 +-122.343750 -13.436074 +-121.213863 -14.062500 +-120.937500 -14.395006 +-120.120097 -15.468750 +-119.947868 -16.875000 +-119.531250 -17.723653 +-118.125000 -17.097658 +-117.950961 -16.875000 +-118.125000 -16.000818 +-118.278551 -15.468750 +-118.559361 -14.062500 +-118.125000 -12.710149 +-118.101500 -12.656250 +-117.027551 -11.250000 +-116.804040 -9.843750 +-116.718750 -9.733861 +-115.312500 -8.861163 +-114.884416 -8.437500 +-114.241798 -7.031250 +-114.548883 -5.625000 +-115.312500 -4.911735 +-116.334868 -4.218750 +-116.718750 -3.228755 +-116.874009 -2.812500 +-117.809423 -1.406250 +-118.070947 0.000000 +-116.992001 1.406250 +-116.718750 1.594687 +-115.312500 1.694219 +-115.067409 1.406250 +-113.906250 1.087942 +-112.500000 1.222140 +-112.241871 1.406250 +-111.791885 2.812500 +-112.500000 4.099637 +-112.687140 4.218750 +-113.365079 5.625000 +-113.612156 7.031250 +-113.906250 7.615385 +-114.132058 8.437500 +-113.937473 9.843750 +-113.906250 9.930463 +-113.187502 11.250000 +-113.835570 12.656250 +-113.906250 12.678782 +-113.990386 12.656250 +-115.312500 12.292558 +-116.608918 11.250000 +-116.718750 11.161536 +-118.125000 10.402579 +-118.804679 11.250000 +-119.531250 11.835934 +-120.044026 12.656250 +-120.399371 14.062500 +-120.046847 15.468750 +-119.760964 16.875000 +-119.531250 18.256497 +-119.524695 18.281250 +-119.111649 19.687500 +-118.792629 21.093750 +-118.125000 22.322044 +-117.894079 22.500000 +-116.718750 23.006929 +-115.532650 23.906250 +-115.312500 24.099511 +-114.292227 25.312500 +-113.906250 25.990747 +-112.500000 26.621847 +-111.093750 26.240900 +-109.927135 25.312500 +-109.687500 24.966229 +-108.281250 24.226001 +-106.875000 24.322524 +-105.630916 25.312500 +-106.684050 26.718750 +-106.875000 26.867459 +-108.281250 27.395456 +-109.687500 27.990809 +-109.931005 28.125000 +-111.093750 28.801557 +-112.500000 29.354472 +-113.906250 29.252986 +-115.312500 29.185101 +-116.385384 29.531250 +-116.718750 29.670627 +-118.125000 29.817781 +-119.531250 29.665567 +-120.937500 30.118573 +-121.763438 30.937500 +-121.840011 32.343750 +-122.343750 33.078104 +-122.796953 33.750000 +-123.750000 34.458865 +-124.500850 35.156250 +-125.156250 35.954193 +-125.591381 36.562500 +-125.947869 37.968750 +-126.328630 39.375000 +-126.562500 39.585937 +-127.968750 39.856187 +-129.375000 39.884504 +-130.781250 40.351024 +-132.187500 40.273439 +-133.593750 39.797271 +-134.579882 39.375000 +-135.000000 39.196860 +-135.442572 39.375000 +-136.406250 39.724200 +-137.771361 40.781250 +-137.812500 40.855031 +-139.218750 41.883212 +-140.625000 40.959637 +-140.838986 40.781250 +-142.031250 40.280497 +-143.437500 40.483724 +-144.843750 40.537794 +-146.250000 39.851970 +-147.656250 39.640417 +-148.841181 40.781250 +-148.404033 42.187500 +-147.656250 42.487674 +-146.250000 43.177490 +-145.739244 43.593750 +-144.843750 43.931923 +-143.437500 44.520996 +-142.819972 45.000000 +-142.031250 45.622509 +-140.625000 46.009966 +-139.218750 45.414173 +-138.708336 45.000000 +-137.812500 43.651339 +-136.406250 44.160494 +-135.000000 44.848372 +-134.410455 45.000000 +-133.593750 45.231213 +-132.563666 45.000000 +-132.187500 44.865721 +-130.781250 44.080208 +-129.675125 45.000000 +-129.761550 46.406250 +-129.639147 47.812500 +-129.375000 48.005540 +-128.000371 47.812500 +-127.968750 47.788904 +-126.748619 46.406250 +-126.562500 46.317425 +-125.156250 45.755685 +-123.750000 45.836617 +-122.343750 46.055612 +-120.937500 45.886222 +-119.531250 45.494584 +-118.125000 45.179008 +-116.718750 45.451808 +-115.312500 45.281472 +-114.975907 45.000000 +-113.906250 44.047968 +-113.176543 43.593750 +-112.500000 43.246502 +-111.093750 42.691340 +-110.268315 42.187500 +-109.687500 41.674068 +-108.281250 41.409064 +-106.875000 41.245462 +-105.468750 41.171242 +-104.515241 40.781250 +-104.062500 40.559877 +-102.995677 39.375000 +-102.656250 38.648901 +-102.428288 37.968750 +-102.656250 37.609920 +-104.062500 37.576121 +-104.993233 37.968750 +-105.468750 38.138048 +-106.875000 38.400884 +-108.281250 38.913975 +-109.632131 39.375000 +-109.687500 39.417957 +-111.093750 39.643881 +-112.500000 40.037085 +-113.688240 40.781250 +-113.906250 41.030125 +-115.288117 42.187500 +-115.312500 42.212423 +-116.718750 42.505083 +-117.770942 42.187500 +-118.125000 42.090864 +-119.531250 41.232757 +-119.666366 40.781250 +-119.764870 39.375000 +-119.531250 38.907245 +-118.593713 37.968750 +-118.125000 37.256516 +-117.037417 36.562500 +-116.718750 36.450132 +-115.312500 35.690526 +-113.906250 35.387657 +-112.500000 35.659459 +-111.093750 35.932756 +-109.687500 35.714567 +-108.874568 35.156250 +-108.281250 34.671105 +-106.875000 33.813367 +-106.187141 33.750000 +-105.468750 33.638818 +-104.293931 32.343750 +-104.062500 31.665323 +-102.656250 31.262336 +-101.250000 31.062270 +-100.918539 30.937500 +-99.843750 30.024840 +-99.608578 29.531250 +-99.843750 28.679389 +-100.029691 28.125000 +-99.843750 26.962693 +-99.753711 26.718750 +-98.498294 25.312500 +-98.781648 23.906250 +-99.229165 22.500000 +-99.843750 21.094465 +-99.843870 21.093750 +-100.516406 19.687500 +-101.250000 18.686704 +-101.532603 18.281250 +-102.354803 16.875000 +-102.541892 15.468750 +-101.806099 14.062500 +-101.555616 12.656250 +-101.458315 11.250000 +-101.250000 10.069688 +-101.203811 9.843750 +-100.700285 8.437500 +-99.843750 7.743163 +-99.463924 7.031250 +-98.437500 5.796658 +-98.301054 5.625000 +-97.031250 4.403607 +-96.628974 4.218750 +-95.625000 3.649970 +-94.218750 3.372102 +-92.812500 3.118257 +-91.406250 2.954355 +-90.531151 2.812500 +-90.000000 2.195099 +-88.593750 1.943923 +-88.381531 2.812500 +-87.187500 3.545646 +-86.611919 4.218750 +-85.781250 4.806707 +-84.375000 5.308316 +-82.968750 5.506341 +-82.810318 5.625000 +-81.868800 7.031250 +-81.562500 7.116049 +-81.182676 7.031250 +-80.156250 6.565764 +-79.538214 5.625000 +-78.750000 4.404864 +-78.228788 4.218750 +-77.343750 3.986340 +-76.968217 4.218750 +-75.937500 5.148560 +-75.179698 5.625000 +-74.531250 6.292537 +-73.830702 5.625000 +-73.125000 5.104230 +-72.633181 4.218750 +-71.718750 3.177444 +-71.377055 2.812500 +-70.312500 1.916787 +-69.889837 1.406250 +-69.266910 0.000000 +-68.906250 -0.528532 +-67.884837 -1.406250 +-67.500000 -1.757340 +-66.093750 -2.524977 +-65.813044 -2.812500 +-64.687500 -4.158550 +-64.652897 -4.218750 +-63.844556 -5.625000 +-63.281250 -6.763780 +-61.875000 -6.667317 +-61.323535 -7.031250 +-60.914387 -8.437500 +-60.471178 -9.843750 +-60.468750 -9.846469 +-59.062500 -10.674389 +-57.656250 -10.464505 +-56.250000 -9.962764 +-55.571387 -9.843750 +-54.843750 -9.691594 +-53.437500 -8.790148 +-52.843852 -8.437500 +-52.031250 -8.019271 +-50.625000 -7.154386 +-50.557294 -7.031250 +-50.113713 -5.625000 +-50.151021 -4.218750 +-50.625000 -2.899803 +-50.649412 -2.812500 +-50.996866 -1.406250 +-50.922132 0.000000 +-50.625000 0.024920 +-50.555792 0.000000 +-49.218750 -0.241170 +-47.812500 -0.754631 +-46.842551 -1.406250 +-46.406250 -1.839124 +-45.174368 -2.812500 +-45.000000 -3.040998 +-43.998796 -4.218750 +-43.593750 -5.175350 +-42.187500 -5.559695 +-41.512337 -5.625000 +-40.781250 -5.736091 +-39.375000 -6.250048 +-38.915229 -7.031250 +-37.968750 -8.049471 +-37.668759 -8.437500 +-36.562500 -9.744822 +-36.423171 -9.843750 +-36.562500 -10.010442 +-37.968750 -10.359763 +-39.375000 -10.598677 +-40.162997 -11.250000 +-40.109394 -12.656250 +-39.375000 -13.917525 +-39.201061 -14.062500 +-37.968750 -14.680843 +-36.562500 -14.419574 +-35.156250 -14.936816 +-33.750000 -15.095515 +-32.343750 -14.531679 +-31.371032 -14.062500 +-30.937500 -13.723543 +-29.531250 -13.149089 +-28.534000 -14.062500 +-28.125000 -14.409601 +-26.718750 -15.402009 +-25.738350 -14.062500 +-25.312500 -13.494694 +-24.096405 -12.656250 +-23.906250 -12.566873 +-22.500000 -12.031364 +-21.531552 -12.656250 +-21.093750 -13.004406 +-19.687500 -13.799132 +-18.281250 -13.338734 +-16.875000 -13.579527 +-15.974830 -14.062500 +-15.468750 -14.349748 +-15.236239 -14.062500 +-14.062500 -13.141772 +-13.704091 -12.656250 +-12.656250 -11.742342 +-11.250000 -11.693794 +-9.843750 -11.963492 +-8.437500 -12.598629 +-7.793689 -12.656250 +-7.031250 -12.817459 +-6.750998 -12.656250 +-5.625000 -12.301076 +-5.156091 -12.656250 +-4.218750 -13.285841 +-3.475309 -14.062500 +-2.812500 -14.631934 +-1.406250 -14.887934 +0.000000 -14.753732 +0.700112 -15.468750 +1.406250 -16.339338 +1.902130 -16.875000 +2.346224 -18.281250 +2.020279 -19.687500 +1.406250 -20.873542 +0.752846 -21.093750 +1.406250 -21.388445 +2.209070 -22.500000 +2.812500 -22.816686 +4.218750 -23.517541 +4.968486 -23.906250 +5.625000 -24.250326 +7.031250 -24.846079 +7.705039 -25.312500 +7.708338 -26.718750 +7.031250 -27.353592 +6.035719 -28.125000 +5.625000 -29.117208 +5.463293 -29.531250 +4.353093 -30.937500 +4.218750 -31.637242 +4.018350 -32.343750 +4.218750 -32.438963 +5.242437 -33.750000 +4.658331 -35.156250 +4.218750 -35.236629 +2.812500 -35.280737 +1.406250 -35.326020 +0.000000 -35.357461 +-0.711137 -35.156250 +0.000000 -34.342356 +0.103030 -33.750000 +0.493677 -32.343750 +0.000000 -31.839678 +-0.406835 -30.937500 +-1.254458 -29.531250 +-1.406250 -29.469984 +-2.165069 -29.531250 +-2.812500 -29.625204 +-3.169554 -29.531250 +-4.218750 -28.914624 +-4.549620 -28.125000 +-4.794068 -26.718750 +-5.143658 -25.312500 +-5.499964 -23.906250 +-4.790152 -22.500000 +-4.218750 -22.111976 +-2.812500 -21.120306 +-2.643169 -21.093750 +-2.812500 -21.061778 +-4.083843 -19.687500 +-4.218750 -19.559483 +-4.571539 -19.687500 +-5.625000 -20.147168 +-6.350443 -21.093750 +-7.031250 -22.265803 +-7.234296 -22.500000 +-8.437500 -23.578525 +-9.843750 -23.541805 +-10.612591 -23.906250 +-9.843750 -24.484921 +-8.437500 -24.279242 +-7.031250 -25.109159 +-6.950040 -25.312500 +-6.719398 -26.718750 +-7.031250 -27.734832 +-7.282620 -28.125000 +-8.437500 -29.271693 +-8.616765 -29.531250 +-8.437500 -29.789655 +-7.031250 -30.208326 +-5.625000 -30.291409 +-4.969951 -30.937500 +-4.218750 -31.806997 +-3.910687 -32.343750 +-3.155199 -33.750000 +-2.812500 -34.538075 +-1.833028 -35.156250 +-1.406250 -35.755412 +-1.152804 -36.562500 +-1.406250 -36.744630 +-2.689163 -37.968750 +-2.812500 -38.025953 +-3.158280 -37.968750 +-4.218750 -37.401180 +-5.481383 -37.968750 +-5.625000 -38.018582 +-7.031250 -38.953604 +-8.437500 -39.084934 +-9.843750 -39.014275 +-11.250000 -39.033810 +-12.656250 -39.151124 +-14.062500 -38.791729 +-15.468750 -38.791880 +-16.875000 -38.894033 +-18.281250 -39.051888 +-19.687500 -39.351136 +-21.093750 -39.086073 +-22.500000 -38.401263 +-23.370712 -37.968750 +-23.906250 -37.577842 +-25.312500 -37.120345 +-26.718750 -36.613827 +-26.888213 -36.562500 +-28.125000 -35.884262 +-29.531250 -35.880427 +-30.937500 -35.189681 +-30.967245 -35.156250 +-31.750898 -33.750000 +-32.343750 -32.776522 +-33.750000 -32.369264 +-33.816945 -32.343750 +-35.156250 -32.114173 +-36.562500 -31.516712 +-37.968750 -31.961702 +-38.912895 -32.343750 +-39.375000 -32.495671 +-39.614083 -32.343750 +-40.324827 -30.937500 +-40.781250 -30.423883 +-42.133339 -29.531250 +-42.187500 -29.490791 +-43.009296 -28.125000 +-43.593750 -27.247275 +-45.000000 -27.130933 +-46.406250 -27.905955 +-47.812500 -27.863659 +-49.218750 -27.460045 +-50.625000 -26.783564 +-50.714769 -26.718750 +-52.031250 -25.905926 +-53.437500 -25.899191 +-54.843750 -25.758496 +-56.250000 -26.205007 +-57.656250 -26.712753 +-59.062500 -26.475136 +-59.356780 -25.312500 +-59.663298 -23.906250 +-60.148645 -22.500000 +-60.468750 -21.904778 +-61.875000 -21.723207 +-63.281250 -22.099415 +-64.575595 -21.093750 +-63.307205 -19.687500 +-63.281250 -19.680673 +-63.021254 -19.687500 +-61.875000 -19.782828 +-61.829260 -19.687500 +-60.633969 -18.281250 +-60.468750 -18.108929 +-59.062500 -17.326294 +-57.656250 -17.117855 +-57.458103 -16.875000 +-57.656250 -16.637913 +-58.509947 -15.468750 +-59.062500 -14.245243 +-59.898279 -14.062500 +-60.468750 -13.956252 +-61.321405 -12.656250 +-61.875000 -11.589821 +-62.014687 -11.250000 +-63.281250 -9.972260 +-63.450409 -9.843750 +-64.687500 -8.633531 +-66.093750 -9.469298 +-66.670939 -9.843750 +-67.500000 -10.382811 +-68.906250 -10.011684 +-69.066711 -9.843750 +-70.244828 -8.437500 +-70.312500 -8.087039 +-70.696033 -7.031250 +-71.718750 -6.639324 +-72.747442 -5.625000 +-72.887409 -4.218750 +-73.109729 -2.812500 +-73.125000 -2.800357 +-74.531250 -2.103131 +-75.784822 -1.406250 +-75.937500 -1.296336 +-77.343750 -1.002365 +-78.750000 -1.360332 +-80.156250 -0.897898 +-81.462557 -1.406250 +-81.562500 -1.729093 +-81.726983 -2.812500 +-81.562500 -2.917266 +-80.666561 -4.218750 +-80.156250 -4.725792 +-79.538154 -5.625000 +-79.088654 -7.031250 +-78.920280 -8.437500 +-78.978748 -9.843750 +-79.005344 -11.250000 +-78.967276 -12.656250 +-78.750000 -13.649237 +-78.588078 -14.062500 +-77.631769 -15.468750 +-77.343750 -15.888314 +-75.937500 -16.585771 +-74.531250 -16.152780 +-73.125000 -15.809028 +-71.718750 -15.540471 +-71.591892 -15.468750 +-70.312500 -15.091870 +-69.398472 -15.468750 +-69.480288 -16.875000 +-68.906250 -17.700829 +-68.159695 -18.281250 +-67.500000 -18.711751 +-66.584030 -18.281250 +-66.625561 -16.875000 +-66.416668 -15.468750 +-67.500000 -14.899966 +-67.874958 -14.062500 +-67.500000 -13.669848 +-66.093750 -13.693524 +-65.948959 -14.062500 +-66.027467 -15.468750 +-65.565394 -16.875000 +-65.837398 -18.281250 +-66.093750 -18.760010 +-66.535163 -19.687500 +-66.672423 -21.093750 +-67.227536 -22.500000 +-66.093750 -22.725240 +-64.937754 -23.906250 +-65.332867 -25.312500 +-66.093750 -25.817966 +-67.500000 -26.505442 +-67.920962 -26.718750 +-68.906250 -27.164089 +-70.312500 -28.115524 +-70.331187 -28.125000 +-71.718750 -29.328587 +-72.809203 -29.531250 +-73.125000 -29.556140 +-73.257050 -29.531250 +-74.531250 -29.345221 +-75.937500 -29.380580 +-76.253830 -29.531250 +-76.809804 -30.937500 +-77.115787 -32.343750 +-77.343750 -32.624738 +-78.750000 -33.024544 +-79.700175 -32.343750 +-80.156250 -31.846868 +-81.562500 -31.539585 +-82.968750 -31.372601 +-84.375000 -31.325395 +-85.781250 -31.480924 +-87.187500 -31.459730 +-88.593750 -31.506210 +-90.000000 -31.675666 +-91.406250 -31.472251 +-92.360827 -30.937500 +-92.812500 -30.617808 +-94.218750 -29.571480 +-94.790024 -29.531250 +-95.625000 -29.434184 +-95.675354 -29.531250 +-97.031250 -30.391911 +-98.437500 -30.538038 +-99.843750 -30.893921 +-101.250000 -30.786572 +-102.656250 -30.125555 +-103.450401 -29.531250 +-104.062500 -28.792992 +-105.468750 -28.297365 +-106.875000 -28.462357 +-108.281250 -28.360948 +-109.687500 -28.184105 +-111.093750 -28.275534 +-112.500000 -28.370807 +-113.906250 -28.663915 +-115.312500 -29.090807 +-116.718750 -29.269437 +-118.125000 -29.184424 +-119.531250 -29.200824 +-120.684126 -29.531250 +-120.937500 -29.596928 +-122.343750 -29.992234 +-123.750000 -30.333007 +-125.156138 -30.937500 +-125.156250 -30.937531 +-126.562500 -31.302605 +-127.904485 -32.343750 +-127.968750 -32.396137 +-129.234595 -33.750000 +-129.375000 -33.928236 +-130.708808 -35.156250 +-130.781250 -35.219336 +-132.187500 -35.764557 +-133.593750 -35.713321 +-133.706263 -35.156250 +-133.593750 -35.065095 +-132.187878 -33.750000 +-132.187500 -33.749608 +-131.199321 -32.343750 +-132.187500 -31.234350 +-133.593750 -30.960984 +-135.000000 -31.484609 +-136.406250 -31.718710 +-137.812500 -32.053527 +-138.276822 -32.343750 +-139.218750 -32.853940 +-140.625000 -33.346089 +-142.031250 -33.389208 +-143.437500 -33.177323 +-144.843750 -32.717984 +-145.276410 -32.343750 +-146.250000 -31.867727 +-147.656250 -31.828712 +-149.062500 -31.680409 +11 +-144.843750 -66.473553 +-145.519797 -66.093750 +-144.843750 -65.466214 +-143.437500 -65.037332 +-142.031250 -64.971663 +-140.625000 -65.872635 +-140.464745 -66.093750 +-140.625000 -66.246282 +-142.031250 -66.825165 +-143.437500 -66.809622 +-144.843750 -66.473553 +11 +146.250000 -15.667284 +146.422297 -15.468750 +147.018110 -14.062500 +146.250000 -13.516711 +144.843750 -13.518284 +143.437500 -13.521617 +142.835888 -14.062500 +143.437500 -15.391373 +143.475526 -15.468750 +144.843750 -16.485124 +146.250000 -15.667284 +7 +-143.437500 -22.621852 +-143.447085 -22.500000 +-143.437500 -22.480648 +-142.031250 -22.362209 +-141.955067 -22.500000 +-142.031250 -22.894856 +-143.437500 -22.621852 +7 +-143.437500 -9.848566 +-143.439618 -9.843750 +-143.437500 -9.843126 +-142.031250 -9.399930 +-141.644748 -9.843750 +-142.031250 -10.855704 +-143.437500 -9.848566 +299 +-135.000000 62.397592 +-135.157677 63.281250 +-135.000000 64.142328 +-134.926734 64.687500 +-133.593750 65.744461 +-132.187500 65.868051 +-130.781250 65.987934 +-130.380196 66.093750 +-129.375000 66.567966 +-127.968750 66.904659 +-126.562500 67.088390 +-125.156250 67.230670 +-123.750000 67.185841 +-122.343750 67.116207 +-120.937500 67.189663 +-119.531250 67.470706 +-119.327348 67.500000 +-118.125000 67.796114 +-116.718750 67.871640 +-115.312500 68.143363 +-113.906250 68.494556 +-112.500000 68.404104 +-111.093750 68.125222 +-109.687500 67.905374 +-108.281250 67.563779 +-108.147835 67.500000 +-106.875000 67.155745 +-105.468750 67.106461 +-104.062500 67.323180 +-103.497595 67.500000 +-102.656250 67.841495 +-101.250000 68.632270 +-100.815749 68.906250 +-99.843750 69.853128 +-99.280336 70.312500 +-98.437500 70.708603 +-97.031250 71.007840 +-95.625000 71.050234 +-94.218750 70.856081 +-92.812500 70.484334 +-92.357663 70.312500 +-91.406250 69.924731 +-90.474594 68.906250 +-90.000000 68.354276 +-89.245742 67.500000 +-88.593750 66.947147 +-87.187500 66.566609 +-85.781250 66.624813 +-84.375000 66.548565 +-83.833271 66.093750 +-82.968750 65.351609 +-82.649597 64.687500 +-81.787751 63.281250 +-81.562500 62.901240 +-80.306373 61.875000 +-80.156250 61.795083 +-78.750000 61.299333 +-77.343750 60.943292 +-76.488536 61.875000 +-75.937500 63.235271 +-75.918436 63.281250 +-74.656493 64.687500 +-74.531250 64.810914 +-73.125000 65.127152 +-72.293647 64.687500 +-71.718750 64.467491 +-70.312500 64.231884 +-68.906250 64.085239 +-67.500000 63.467860 +-67.265494 63.281250 +-66.893757 61.875000 +-66.093750 61.174843 +-64.687500 60.681071 +-63.281250 61.065409 +-61.875000 61.340197 +-60.468750 61.047499 +-59.062500 61.209565 +-57.656250 61.852058 +-57.424798 61.875000 +-56.250000 62.095279 +-55.508810 61.875000 +-54.843750 61.757044 +-53.437500 61.376452 +-52.433566 60.468750 +-52.031250 60.228733 +-50.625000 59.912933 +-49.218750 60.023288 +-48.361718 60.468750 +-47.860854 61.875000 +-47.812500 61.906639 +-46.406250 62.447788 +-45.000000 62.601429 +-43.593750 62.809736 +-42.187500 62.375776 +-41.193246 61.875000 +-42.187500 61.358899 +-43.180360 60.468750 +-42.187500 60.191463 +-40.781250 60.327109 +-39.950827 60.468750 +-40.117651 61.875000 +-39.375000 62.097324 +-37.968750 62.541155 +-36.907027 61.875000 +-36.562500 61.363094 +-35.156250 61.057717 +-33.750000 60.797014 +-33.227354 60.468750 +-32.343750 60.041879 +-30.937500 59.558148 +-29.531250 59.340825 +-28.125000 59.373122 +-26.718750 59.780213 +-25.312500 60.031574 +-23.959253 60.468750 +-23.906250 60.492809 +-22.500000 61.028104 +-21.093750 61.298187 +-19.787499 61.875000 +-19.687500 61.921650 +-18.281250 62.320897 +-16.875000 62.689072 +-15.468750 63.100816 +-14.062500 63.123171 +-12.656250 62.898051 +-11.250000 62.771110 +-9.843750 62.612542 +-8.437500 62.326713 +-7.031250 62.314095 +-5.625000 62.539714 +-4.218750 62.581014 +-2.812500 62.743135 +-1.406250 62.838287 +0.000000 62.725431 +1.406250 62.741075 +2.812500 62.772575 +4.218750 62.304917 +5.613139 61.875000 +5.625000 61.869322 +6.905769 60.468750 +7.031250 60.292794 +8.437500 60.113510 +9.843750 60.278223 +11.250000 59.479539 +11.537778 59.062500 +11.250000 58.925347 +10.352071 57.656250 +9.843750 57.255232 +8.624565 56.250000 +8.437500 56.021029 +7.499517 54.843750 +7.031250 54.616039 +5.625000 54.142929 +4.218750 53.858604 +2.934640 53.437500 +2.812500 53.394047 +1.406250 52.417199 +0.000000 52.126124 +-1.406250 52.168941 +-2.812500 52.642255 +-4.218750 53.182062 +-4.877571 53.437500 +-5.625000 53.804820 +-7.031250 54.118590 +-8.437500 53.912679 +-9.843750 54.033723 +-11.250000 54.002279 +-12.656250 53.508944 +-12.818230 53.437500 +-14.062500 52.929954 +-15.468750 52.550159 +-16.875000 52.935345 +-18.281250 53.277915 +-19.687500 53.259106 +-21.093750 53.156474 +-22.500000 52.792502 +-23.906250 52.527173 +-25.312500 52.374499 +-26.718750 52.214288 +-28.125000 52.308881 +-29.531250 52.772939 +-30.937500 53.080569 +-32.343750 53.408175 +-32.429350 53.437500 +-33.750000 53.878652 +-35.156250 54.068465 +-36.562500 54.414218 +-37.785981 54.843750 +-37.968750 54.906991 +-39.375000 54.847824 +-39.388577 54.843750 +-40.781250 54.446618 +-42.187500 54.305550 +-43.593750 54.230175 +-45.000000 54.184982 +-46.406250 54.220792 +-47.812500 54.242885 +-49.218750 54.284924 +-50.625000 54.594089 +-51.663765 54.843750 +-52.031250 55.013864 +-53.437500 54.864898 +-53.530611 54.843750 +-54.843750 54.665816 +-56.250000 54.445710 +-57.656250 54.446103 +-59.062500 54.617891 +-60.468750 53.671797 +-60.671100 53.437500 +-61.875000 52.701435 +-63.281250 52.101655 +-64.687500 52.258026 +-66.093750 52.733160 +-67.500000 52.621561 +-68.906250 52.081541 +-69.555490 52.031250 +-70.312500 51.992338 +-71.118834 52.031250 +-71.718750 52.074154 +-71.924346 52.031250 +-73.125000 51.844128 +-74.531250 51.471423 +-75.937500 51.163466 +-77.312712 50.625000 +-77.343750 50.613632 +-78.750000 49.983905 +-80.156250 49.447488 +-81.562500 49.847686 +-82.968750 49.986460 +-84.375000 49.629332 +-85.739029 49.218750 +-85.781250 49.209485 +-87.187500 49.031256 +-88.593750 48.298708 +-89.329495 47.812500 +-90.000000 47.567284 +-90.375521 47.812500 +-90.698741 49.218750 +-91.406250 50.466403 +-91.767560 50.625000 +-92.812500 50.799974 +-94.218750 50.639469 +-94.337804 50.625000 +-95.468573 49.218750 +-95.625000 49.066777 +-97.031250 49.214246 +-97.037011 49.218750 +-98.437500 49.978721 +-99.843750 50.442649 +-100.562341 50.625000 +-101.250000 50.881970 +-102.656250 51.222924 +-104.062500 51.728284 +-105.321686 52.031250 +-105.468750 52.066208 +-106.875000 52.121409 +-108.281250 52.504754 +-109.687500 52.921015 +-111.093750 53.062135 +-112.398061 53.437500 +-112.500000 53.474492 +-113.906250 53.995883 +-115.312500 54.019888 +-116.718750 53.688185 +-118.125000 53.655990 +-119.531250 54.378677 +-120.102177 54.843750 +-119.531250 55.889773 +-119.451722 56.250000 +-119.531250 56.931054 +-119.785555 57.656250 +-120.937500 58.490711 +-121.543412 59.062500 +-122.343750 59.458374 +-123.465335 59.062500 +-123.750000 58.911732 +-124.412417 57.656250 +-124.360788 56.250000 +-123.750000 55.200650 +-123.016593 54.843750 +-122.343750 54.476320 +-121.075240 53.437500 +-122.343750 52.853943 +-123.750000 53.427637 +-123.773109 53.437500 +-125.156250 53.937914 +-126.562500 53.613566 +-127.968750 53.465676 +-129.375000 53.841741 +-130.781250 54.572153 +-131.155986 54.843750 +-132.187500 55.617029 +-133.037553 56.250000 +-133.593750 57.376308 +-133.767256 57.656250 +-133.623909 59.062500 +-134.072035 60.468750 +-134.920975 61.875000 +-135.000000 62.397592 +9 +-127.968750 77.218299 +-128.330319 77.343750 +-127.968750 77.380554 +-126.562500 77.454638 +-125.156250 77.409425 +-124.525630 77.343750 +-125.156250 77.043312 +-126.562500 76.878896 +-127.968750 77.218299 +9 +-125.156250 -2.850047 +-125.219819 -2.812500 +-125.156250 -2.410964 +-124.813126 -1.406250 +-123.750000 -1.066822 +-122.751818 -1.406250 +-122.691098 -2.812500 +-123.750000 -3.203564 +-125.156250 -2.850047 +21 +126.562500 24.323197 +126.254323 23.906250 +125.156250 22.767365 +124.218940 22.500000 +124.311907 21.093750 +123.750000 20.662008 +123.529198 21.093750 +123.709243 22.500000 +123.384043 23.906250 +122.855851 25.312500 +122.343750 25.929178 +121.737380 26.718750 +122.131277 28.125000 +122.343750 28.239814 +123.750000 28.412404 +124.245961 28.125000 +125.156250 26.929254 +125.345268 26.718750 +126.562500 25.684780 +126.903319 25.312500 +126.562500 24.323197 +49 +-120.937500 76.994019 +-121.579261 77.343750 +-120.937500 77.423251 +-119.531250 77.557069 +-118.125000 77.551269 +-116.718750 77.461704 +-115.312500 77.475927 +-113.906250 77.609882 +-112.500000 77.749721 +-111.093750 77.816144 +-109.687500 77.853954 +-108.281250 78.025893 +-106.875000 77.990265 +-105.468750 77.806432 +-104.062500 77.892350 +-102.656250 78.235413 +-101.250000 78.061363 +-99.843750 78.140376 +-98.906707 78.750000 +-98.437500 78.850266 +-97.031250 79.090416 +-95.625000 79.079503 +-94.218750 78.860996 +-93.485736 78.750000 +-92.812500 78.266934 +-92.414488 77.343750 +-92.812500 76.281321 +-94.218750 76.034805 +-95.625000 76.405408 +-97.031250 76.691828 +-98.437500 76.780037 +-99.843750 76.839019 +-101.250000 76.763643 +-102.656250 76.530913 +-104.062500 76.372370 +-105.468750 76.292294 +-106.875000 76.171026 +-108.281250 76.136610 +-109.687500 76.235960 +-111.093750 76.189460 +-112.500000 76.145463 +-113.906250 76.299333 +-115.312500 76.243825 +-116.681753 75.937500 +-116.718750 75.932664 +-116.749217 75.937500 +-118.125000 76.206121 +-119.531250 76.494525 +-120.937500 76.994019 +5 +-118.125000 5.576924 +-118.206677 5.625000 +-118.125000 6.760100 +-117.959886 5.625000 +-118.125000 5.576924 +13 +116.718750 57.629146 +115.312500 57.561299 +114.368997 57.656250 +113.906250 58.038476 +112.500000 59.014563 +112.344150 59.062500 +112.500000 59.102873 +113.906250 59.303056 +115.312500 59.247959 +116.422197 59.062500 +116.718750 58.311546 +117.375530 57.656250 +116.718750 57.629146 +9 +-109.687500 6.481989 +-108.281250 6.839627 +-107.570624 7.031250 +-107.913254 8.437500 +-108.281250 8.726612 +-109.687500 9.479047 +-110.191285 8.437500 +-110.239190 7.031250 +-109.687500 6.481989 +5 +109.687500 -35.510733 +108.895978 -35.156250 +109.687500 -34.842282 +109.884426 -35.156250 +109.687500 -35.510733 +5 +108.281250 -36.772159 +107.946406 -36.562500 +108.281250 -35.484267 +108.931623 -36.562500 +108.281250 -36.772159 +13 +106.875000 -7.646739 +105.673215 -8.437500 +105.468750 -8.613787 +104.543601 -8.437500 +104.062500 -8.338034 +102.855350 -7.031250 +103.555499 -5.625000 +104.062500 -5.198492 +105.468750 -4.766993 +106.875000 -4.458498 +107.620494 -5.625000 +107.413020 -7.031250 +106.875000 -7.646739 +5 +99.843750 81.207624 +99.065999 81.562500 +99.843750 81.611067 +100.026881 81.562500 +99.843750 81.207624 +5 +-95.625000 -76.097148 +-96.092837 -75.937500 +-95.625000 -75.893103 +-95.515174 -75.937500 +-95.625000 -76.097148 +19 +-95.625000 -1.987777 +-95.224944 -2.812500 +-94.218750 -3.761325 +-92.812500 -3.904235 +-91.406250 -2.912475 +-91.249320 -2.812500 +-90.054880 -1.406250 +-90.000000 -1.178721 +-89.228564 0.000000 +-90.000000 0.440773 +-90.376234 0.000000 +-91.406250 -0.513945 +-92.478339 0.000000 +-92.812500 0.118057 +-94.218750 0.390528 +-95.625000 0.095368 +-95.930158 0.000000 +-96.172230 -1.406250 +-95.625000 -1.987777 +37 +-88.593750 79.409592 +-89.516884 80.156250 +-88.593750 80.271472 +-87.187500 80.287823 +-85.781250 80.261461 +-84.375000 80.344002 +-82.968750 80.394315 +-81.562500 80.326127 +-80.817123 80.156250 +-80.156250 79.461206 +-78.750000 79.216121 +-77.343750 79.171961 +-75.937500 79.300262 +-74.531250 79.724219 +-73.125000 79.726922 +-71.718750 79.746228 +-70.312500 79.928261 +-69.992624 78.750000 +-69.847784 77.343750 +-70.312500 76.895248 +-71.718750 76.576370 +-73.125000 76.755400 +-74.531250 77.079569 +-75.937500 77.335077 +-77.343750 77.210820 +-78.750000 77.058490 +-80.156250 76.965402 +-81.562500 76.850436 +-82.968750 76.617119 +-84.375000 76.186182 +-85.137187 75.937500 +-85.781250 75.704697 +-86.375415 75.937500 +-86.799690 77.343750 +-87.187500 78.098257 +-88.012487 78.750000 +-88.593750 79.409592 +5 +87.187500 -6.198189 +86.384402 -5.625000 +87.187500 -5.510356 +87.525960 -5.625000 +87.187500 -6.198189 +5 +87.187500 54.769921 +86.615522 54.843750 +87.187500 55.067347 +87.350022 54.843750 +87.187500 54.769921 +15 +-78.750000 9.579951 +-78.823468 9.843750 +-78.750000 9.975907 +-77.606114 11.250000 +-77.343750 11.480287 +-75.937500 12.272923 +-74.531250 12.494269 +-73.197539 11.250000 +-74.237601 9.843750 +-74.531250 9.579951 +-75.761379 8.437500 +-75.937500 7.982668 +-77.343750 7.939031 +-78.094017 8.437500 +-78.750000 9.579951 +5 +80.156250 -29.757268 +79.974655 -29.531250 +80.156250 -29.337557 +80.216360 -29.531250 +80.156250 -29.757268 +17 +80.156250 54.763299 +79.449294 53.437500 +78.750000 53.052594 +77.343750 52.679110 +75.937500 52.569092 +74.531250 52.500660 +73.125000 52.033382 +71.948095 53.437500 +73.125000 53.820998 +74.531250 54.318340 +75.528811 54.843750 +75.937500 54.957896 +77.343750 55.288042 +78.750000 55.277689 +80.156250 54.861656 +80.194632 54.843750 +80.156250 54.763299 +13 +74.531250 -30.622283 +73.125000 -30.482240 +72.556645 -29.531250 +72.187253 -28.125000 +72.047843 -26.718750 +72.980899 -25.312500 +73.125000 -25.237024 +73.405469 -25.312500 +74.531250 -25.816664 +74.972017 -26.718750 +75.144800 -28.125000 +74.975775 -29.531250 +74.531250 -30.622283 +161 +73.125000 -34.005871 +72.156764 -35.156250 +71.797559 -36.562500 +71.718750 -36.740627 +70.312500 -37.604625 +68.906250 -37.572066 +67.790916 -37.968750 +67.500000 -38.080848 +66.093750 -38.759973 +64.687500 -38.394134 +63.427986 -37.968750 +63.281250 -37.916586 +63.244552 -37.968750 +62.451123 -39.375000 +61.875000 -39.971053 +60.675216 -40.781250 +60.468750 -40.900717 +59.085630 -42.187500 +59.062500 -42.205969 +57.656250 -42.922486 +56.250000 -42.926556 +54.843750 -42.893185 +53.437500 -43.035137 +52.031250 -42.817159 +51.304334 -42.187500 +50.625000 -41.612590 +49.218750 -41.396972 +47.812500 -41.913648 +46.814201 -42.187500 +46.406250 -42.346130 +45.000000 -42.546777 +43.593750 -42.704901 +42.187500 -42.530476 +40.781250 -42.456047 +39.375000 -42.422934 +38.523429 -42.187500 +37.968750 -42.074857 +36.562500 -41.784460 +35.156250 -41.502522 +33.750000 -41.164609 +32.898523 -40.781250 +32.343750 -40.658230 +30.937500 -40.540341 +29.531250 -39.832918 +28.864425 -39.375000 +28.125000 -39.015274 +26.718750 -38.887229 +26.675362 -39.375000 +26.537052 -40.781250 +25.359344 -42.187500 +25.312500 -42.212116 +23.906250 -42.776815 +22.500000 -43.143843 +21.093750 -42.860814 +19.687500 -42.194153 +19.674133 -42.187500 +18.281250 -41.329915 +17.615711 -40.781250 +16.875000 -39.840141 +16.004536 -39.375000 +15.468750 -39.090967 +14.062500 -38.075471 +13.824752 -37.968750 +12.656250 -37.056032 +11.376002 -37.968750 +11.250000 -38.035108 +9.843750 -38.279638 +8.923157 -37.968750 +8.437500 -37.512331 +7.090098 -36.562500 +8.437500 -35.537451 +9.018252 -35.156250 +9.843750 -34.828231 +11.250000 -34.693911 +12.656250 -34.385782 +13.436533 -33.750000 +14.062500 -33.408561 +15.468750 -32.875368 +15.768966 -32.343750 +16.217194 -30.937500 +16.875000 -30.203153 +18.259674 -29.531250 +18.281250 -29.523682 +19.687500 -29.407614 +20.210925 -29.531250 +21.093750 -30.172633 +22.382360 -29.531250 +22.500000 -29.102548 +22.541072 -28.125000 +23.206547 -26.718750 +23.906250 -25.623743 +24.193076 -25.312500 +24.819941 -23.906250 +25.312500 -23.093207 +25.680031 -22.500000 +26.711682 -21.093750 +26.718750 -21.080024 +28.125000 -20.636633 +29.200038 -21.093750 +29.531250 -21.250763 +30.937500 -21.788775 +32.142751 -22.500000 +32.343750 -22.665329 +33.326179 -23.906250 +33.750000 -24.424764 +34.428664 -25.312500 +35.156250 -26.441965 +35.297174 -26.718750 +36.145683 -28.125000 +36.562500 -28.854103 +37.086845 -29.531250 +37.968750 -30.105643 +38.838844 -30.937500 +39.375000 -31.466179 +40.247461 -32.343750 +40.781250 -32.909072 +42.187500 -33.242995 +43.223484 -32.343750 +42.945477 -30.937500 +42.425981 -29.531250 +42.187500 -28.520747 +42.087920 -28.125000 +42.187500 -27.768035 +42.365694 -26.718750 +42.711936 -25.312500 +43.052680 -23.906250 +43.593750 -23.056563 +44.437339 -22.500000 +45.000000 -22.265470 +46.406250 -22.345461 +47.812500 -22.388313 +49.218750 -22.167337 +50.625000 -22.197097 +52.031250 -22.334752 +52.909331 -22.500000 +53.437500 -22.625113 +54.843750 -23.518673 +55.355448 -23.906250 +56.250000 -24.800012 +57.074877 -25.312500 +57.656250 -25.697029 +59.062500 -26.364248 +59.981092 -26.718750 +60.468750 -27.261237 +61.699456 -28.125000 +61.875000 -28.443540 +62.520141 -28.125000 +63.281250 -28.047542 +64.687500 -27.459187 +65.355362 -28.125000 +66.093750 -28.954742 +67.500000 -28.913336 +68.906250 -28.281030 +70.312500 -29.003595 +70.769370 -29.531250 +71.125999 -30.937500 +71.718750 -31.821409 +72.625026 -32.343750 +73.125000 -33.224027 +73.420765 -33.750000 +73.125000 -34.005871 +9 +-68.906250 9.615263 +-69.214813 9.843750 +-69.980277 11.250000 +-68.906250 11.645993 +-67.500000 11.527311 +-67.097682 11.250000 +-66.780190 9.843750 +-67.500000 9.112770 +-68.906250 9.615263 +15 +68.906250 50.488152 +67.940148 49.218750 +67.500000 49.127303 +66.822765 49.218750 +66.093750 50.351158 +66.055015 50.625000 +65.803608 52.031250 +66.093750 52.748439 +67.336525 53.437500 +67.500000 53.458695 +67.789886 53.437500 +68.906250 53.191579 +69.926715 52.031250 +68.930897 50.625000 +68.906250 50.488152 +187 +-64.687500 81.455319 +-65.028578 81.562500 +-64.687500 81.804445 +-63.281250 82.483278 +-61.875000 82.417651 +-60.468750 82.307305 +-59.062500 82.417664 +-57.656250 82.363679 +-56.250000 82.253540 +-54.843750 82.172063 +-53.437500 82.080156 +-52.031250 82.047945 +-50.625000 82.071933 +-49.218750 82.004960 +-47.812500 81.882365 +-46.406250 81.914934 +-45.000000 82.155149 +-43.593750 82.745335 +-42.989500 82.968750 +-42.187500 83.149403 +-40.927409 82.968750 +-40.781250 82.926648 +-39.375000 82.558372 +-37.968750 82.377699 +-36.562500 82.258632 +-35.156250 82.168882 +-33.750000 82.060874 +-32.343750 82.001787 +-30.937500 81.997031 +-29.531250 81.994222 +-28.125000 81.983846 +-26.718750 81.941599 +-25.312500 81.882189 +-23.906250 81.918805 +-22.500000 82.051563 +-21.093750 82.159322 +-19.687500 82.252450 +-18.281250 82.353624 +-16.875000 82.478361 +-15.468750 82.710483 +-14.062500 82.775955 +-12.656250 82.647856 +-11.250000 82.545124 +-9.843750 82.386032 +-8.437500 82.237159 +-7.031250 82.106235 +-5.625000 82.019635 +-4.218750 82.005070 +-2.812500 82.007810 +-1.406250 82.006488 +0.000000 82.003810 +1.406250 82.014009 +2.812500 82.033306 +4.218750 82.003253 +5.625000 81.982655 +7.031250 81.915393 +8.437500 81.765387 +9.843750 81.692918 +11.250000 81.681622 +12.656250 81.728067 +14.062500 81.885136 +15.468750 81.983564 +16.875000 81.918348 +18.281250 81.923812 +19.687500 81.981950 +21.093750 82.037505 +22.500000 82.024326 +23.906250 81.958690 +25.312500 81.913975 +26.718750 81.878813 +28.125000 81.784573 +29.531250 81.689881 +30.937500 81.660118 +32.343750 81.658625 +33.750000 81.654508 +35.156250 81.652821 +36.562500 81.651924 +37.968750 81.683382 +39.375000 81.732567 +40.781250 81.738804 +42.187500 81.665742 +42.901673 81.562500 +43.593750 80.420694 +45.000000 80.227824 +45.647187 80.156250 +45.000000 80.105159 +43.593750 80.111974 +42.187500 80.105184 +40.781250 80.091259 +39.375000 80.041215 +37.968750 80.009089 +36.562500 80.083379 +35.156250 80.080792 +33.750000 79.936277 +32.343750 79.241559 +31.748261 78.750000 +30.937500 78.154236 +29.531250 77.853371 +28.125000 77.752056 +26.718750 77.545946 +25.853096 77.343750 +25.312500 77.235159 +23.906250 76.951818 +22.500000 77.054657 +21.848608 77.343750 +21.093750 77.752071 +19.687500 78.214020 +18.713611 78.750000 +18.281250 79.060500 +16.875000 79.468023 +15.468750 79.450123 +14.062500 79.578428 +12.656250 80.012814 +12.256572 80.156250 +11.250000 80.926082 +9.843750 80.957446 +8.748275 80.156250 +8.437500 79.979651 +7.031250 79.277206 +5.625000 78.852890 +4.497205 78.750000 +4.218750 78.742352 +2.866972 78.750000 +2.812500 78.751219 +2.772110 78.750000 +1.406250 78.742179 +0.297153 78.750000 +0.000000 78.759953 +-0.495058 78.750000 +-1.406250 78.746843 +-1.579352 78.750000 +-2.812500 78.879139 +-4.218750 78.914566 +-5.050780 78.750000 +-5.625000 78.730993 +-7.031250 78.749241 +-7.045724 78.750000 +-8.437500 79.103309 +-9.843750 79.017206 +-10.916283 78.750000 +-11.250000 78.731693 +-11.427237 78.750000 +-12.656250 79.253619 +-14.062500 79.789161 +-15.468750 79.875942 +-16.875000 79.715724 +-18.281250 79.624297 +-19.687500 79.467816 +-21.093750 79.444075 +-21.560192 80.156250 +-22.500000 81.000631 +-23.906250 81.274639 +-25.312500 81.242709 +-26.718750 80.711765 +-27.288928 80.156250 +-28.125000 79.090518 +-28.640969 78.750000 +-29.531250 78.508208 +-30.937500 78.311281 +-32.343750 78.362754 +-33.363658 78.750000 +-33.750000 79.170356 +-35.156250 79.105394 +-35.698460 78.750000 +-36.562500 78.548175 +-36.842661 78.750000 +-37.968750 79.710651 +-38.711051 80.156250 +-39.375000 80.574024 +-40.781250 80.800837 +-42.187500 80.795478 +-43.593750 80.764400 +-45.000000 80.743779 +-46.406250 80.785294 +-47.812500 80.803156 +-49.218750 80.787153 +-50.625000 80.858556 +-52.031250 80.934740 +-53.437500 80.990969 +-54.843750 81.072486 +-56.250000 81.131333 +-57.656250 81.033575 +-59.062500 80.953378 +-60.468750 81.160866 +-61.875000 81.160692 +-63.281250 81.167870 +-64.687500 81.455319 +69 +61.875000 47.404917 +60.468750 46.553943 +60.319814 46.406250 +59.062500 45.764015 +58.297530 45.000000 +57.656250 44.406777 +56.522307 43.593750 +56.250000 43.481542 +55.552225 43.593750 +54.843750 43.785669 +53.437500 44.985515 +53.425145 45.000000 +52.674640 46.406250 +52.031250 47.011597 +50.952842 47.812500 +50.625000 48.072319 +49.218750 48.974104 +48.836108 49.218750 +47.812500 50.094402 +47.275252 50.625000 +46.406250 51.316453 +45.420146 52.031250 +45.000000 52.543928 +44.152322 53.437500 +43.593750 54.453465 +43.188495 54.843750 +42.187500 55.469936 +40.781250 56.079316 +40.399696 56.250000 +39.375000 56.917873 +37.968750 57.355796 +36.562500 57.570864 +36.146096 57.656250 +35.156250 58.387819 +34.479388 59.062500 +35.156250 59.391569 +36.562500 59.870512 +37.968750 59.595495 +39.088847 59.062500 +39.375000 58.832237 +40.781250 58.071269 +42.187500 58.052270 +43.593750 58.892717 +44.086059 59.062500 +45.000000 59.269837 +46.406250 59.134094 +47.627993 59.062500 +47.812500 59.044799 +49.218750 58.853695 +50.625000 58.492174 +52.031250 57.879753 +52.591181 57.656250 +53.437500 56.889710 +54.843750 56.527067 +56.250000 56.488237 +57.656250 56.408679 +58.128861 56.250000 +59.062500 55.501117 +59.543584 54.843750 +60.072564 53.437500 +60.468750 52.220009 +60.523326 52.031250 +60.468750 51.593892 +60.217668 50.625000 +60.468750 50.429204 +61.875000 49.788347 +62.969051 49.218750 +63.200518 47.812500 +61.875000 47.404917 +5 +-59.062500 -21.150607 +-58.802514 -21.093750 +-59.062500 -21.052823 +-59.196041 -21.093750 +-59.062500 -21.150607 +5 +60.468750 -10.225820 +59.500053 -9.843750 +60.468750 -9.597624 +60.756694 -9.843750 +60.468750 -10.225820 +5 +60.468750 78.521226 +59.414843 78.750000 +60.468750 79.041847 +61.547188 78.750000 +60.468750 78.521226 +5 +-56.250000 75.692584 +-56.986775 75.937500 +-56.250000 76.022127 +-54.942150 75.937500 +-56.250000 75.692584 +15 +53.437500 79.410705 +52.486367 78.750000 +52.031250 78.712508 +51.531468 78.750000 +50.625000 78.907975 +49.218750 79.478056 +47.812500 80.125084 +47.508248 80.156250 +47.812500 80.169468 +49.218750 80.338692 +50.625000 80.344935 +52.031250 80.295205 +53.437500 80.179285 +53.793501 80.156250 +53.437500 79.410705 +15 +49.218750 14.840993 +47.812500 14.144537 +46.406250 14.117959 +45.000000 15.215389 +44.868624 15.468750 +45.000000 15.740527 +45.402630 16.875000 +46.406250 18.050533 +46.629020 18.281250 +47.812500 19.455603 +49.218750 19.504249 +50.057151 18.281250 +50.166742 16.875000 +49.743342 15.468750 +49.218750 14.840993 +19 +-45.000000 -15.141902 +-43.593750 -14.352870 +-43.431632 -14.062500 +-42.355821 -12.656250 +-42.187500 -12.010840 +-41.804309 -11.250000 +-42.187500 -10.932065 +-42.617213 -9.843750 +-43.137444 -8.437500 +-43.593750 -7.478230 +-44.242818 -7.031250 +-45.000000 -6.680393 +-45.287150 -7.031250 +-46.128700 -8.437500 +-45.645172 -9.843750 +-45.446974 -11.250000 +-45.910421 -12.656250 +-45.716830 -14.062500 +-45.000000 -15.141902 +13 +46.406250 -59.600740 +45.000000 -60.370070 +43.593750 -59.839954 +42.827093 -59.062500 +42.187500 -58.160183 +41.450295 -57.656250 +42.187500 -57.056377 +43.593750 -56.836562 +45.000000 -56.484535 +46.406250 -57.212877 +46.551496 -57.656250 +46.795693 -59.062500 +46.406250 -59.600740 +49 +-36.562500 11.078609 +-36.633872 11.250000 +-36.562500 11.348954 +-35.156250 11.578818 +-34.336333 11.250000 +-33.750000 10.452708 +-32.343750 10.175878 +-30.937500 10.491410 +-30.029334 11.250000 +-29.531250 11.531796 +-28.595657 12.656250 +-28.125000 13.287604 +-27.608858 14.062500 +-26.718750 14.976861 +-25.732869 15.468750 +-25.312500 15.755536 +-23.906250 15.831674 +-22.500000 16.029614 +-21.093750 16.542736 +-19.687500 16.831517 +-18.281250 16.490537 +-16.875000 15.921189 +-15.468750 15.926086 +-14.062500 15.801937 +-13.499799 15.468750 +-13.368544 14.062500 +-14.062500 13.419263 +-14.904376 12.656250 +-15.468750 12.112846 +-16.175892 11.250000 +-16.875000 10.613137 +-18.007696 9.843750 +-18.281250 9.607033 +-19.687500 9.059814 +-21.093750 9.318368 +-22.127508 9.843750 +-22.500000 10.012224 +-23.906250 10.156513 +-25.050556 9.843750 +-25.312500 9.778167 +-26.718750 9.525523 +-28.125000 9.517938 +-29.531250 9.514191 +-30.937500 9.503231 +-32.343750 9.635345 +-33.750000 9.629865 +-35.156250 9.550198 +-35.705131 9.843750 +-36.562500 11.078609 +5 +33.750000 24.923480 +33.622313 25.312500 +33.750000 25.959276 +33.885266 25.312500 +33.750000 24.923480 +17 +16.875000 -23.815205 +15.468750 -23.730222 +14.147183 -22.500000 +14.062500 -22.435430 +12.656250 -21.158805 +12.625547 -21.093750 +12.230444 -19.687500 +12.627968 -18.281250 +12.656250 -18.204626 +14.062500 -17.141863 +15.468750 -18.245349 +15.493298 -18.281250 +16.523251 -19.687500 +16.875000 -20.202688 +17.566356 -21.093750 +17.787823 -22.500000 +16.875000 -23.815205 +11 +-12.656250 -32.640346 +-11.250000 -32.691234 +-10.724341 -32.343750 +-10.768608 -30.937500 +-11.250000 -30.349570 +-12.140113 -29.531250 +-12.656250 -28.861776 +-13.346814 -29.531250 +-14.024325 -30.937500 +-13.095455 -32.343750 +-12.656250 -32.640346 +11 +14.062500 -30.245808 +12.911890 -29.531250 +12.656250 -28.987086 +12.381041 -28.125000 +12.506509 -26.718750 +12.656250 -26.586078 +14.062500 -26.563527 +14.172434 -26.718750 +14.694029 -28.125000 +15.284141 -29.531250 +14.062500 -30.245808 +5 +14.062500 58.679145 +13.569565 59.062500 +14.062500 59.573935 +14.859342 59.062500 +14.062500 58.679145 +7 +-8.437500 16.118126 +-9.468903 16.875000 +-8.992974 18.281250 +-8.437500 18.497961 +-7.517207 18.281250 +-7.917007 16.875000 +-8.437500 16.118126 +7 +0.000000 35.868765 +-0.950828 36.562500 +0.000000 37.396727 +1.406250 37.122156 +2.011385 36.562500 +1.406250 35.531220 +0.000000 35.868765 +23 +-154.777763 -90.000000 +-154.687500 -89.581900 +-153.281250 -88.937280 +-151.875000 -88.774575 +-150.468750 -88.623530 +-149.062500 -88.749047 +-147.656250 -89.081452 +-146.280529 -88.593750 +-146.250000 -88.586813 +-144.843750 -88.082203 +-143.999072 -88.593750 +-143.437500 -89.379625 +-142.873706 -88.593750 +-142.031250 -88.219250 +-140.625000 -87.617889 +-139.218750 -87.733105 +-137.812500 -88.080077 +-136.474258 -88.593750 +-136.406250 -88.633457 +-135.000000 -89.318567 +-133.593750 -89.595733 +-132.187500 -89.864399 +-131.650094 -90.000000 +220 +38.924232 -90.000000 +37.968750 -89.270157 +36.562500 -88.616299 +36.477795 -88.593750 +36.562500 -88.238046 +36.855373 -87.187500 +37.968750 -86.992817 +39.375000 -86.850625 +40.781250 -86.768560 +42.187500 -86.819080 +43.593750 -86.916478 +45.000000 -87.013708 +46.406250 -86.937021 +47.812500 -86.665100 +49.218750 -86.465669 +50.625000 -86.182584 +51.918764 -85.781250 +52.031250 -85.711444 +53.437500 -85.107771 +54.843750 -84.428210 +54.992176 -84.375000 +56.250000 -84.186739 +56.802068 -84.375000 +57.656250 -85.411623 +59.062500 -84.743133 +59.139871 -84.375000 +60.468750 -83.024477 +60.560679 -82.968750 +61.875000 -82.454161 +63.281250 -82.046862 +64.687500 -81.743414 +66.093750 -81.687950 +67.500000 -81.998058 +68.906250 -82.275234 +70.312500 -82.318443 +71.718750 -82.426237 +73.125000 -82.493774 +74.531250 -82.120932 +75.937500 -81.605175 +76.065329 -81.562500 +77.343750 -81.271044 +78.750000 -80.760274 +79.648009 -80.156250 +80.156250 -79.763834 +81.562500 -79.647653 +82.158138 -80.156250 +82.897240 -81.562500 +82.968750 -81.637020 +84.375000 -82.587458 +85.781250 -82.876632 +87.187500 -82.580645 +88.593750 -82.388009 +90.000000 -82.363953 +91.406250 -82.392998 +92.812500 -82.133337 +94.218750 -81.652748 +94.438241 -81.562500 +95.625000 -81.093807 +97.031250 -80.747122 +98.437500 -81.247607 +99.843750 -81.532983 +101.250000 -81.287838 +102.656250 -81.186516 +104.062500 -81.456442 +105.468750 -81.232992 +106.067209 -80.156250 +105.468750 -78.927572 +105.206353 -78.750000 +104.658338 -77.343750 +105.468750 -77.264257 +106.875000 -77.333556 +108.281250 -77.115810 +109.687500 -76.872483 +111.093750 -76.879806 +112.500000 -77.126906 +113.428640 -77.343750 +113.430372 -78.750000 +113.713882 -80.156250 +113.906250 -80.231992 +114.122326 -80.156250 +114.392299 -78.750000 +114.389425 -77.343750 +115.312500 -77.090996 +116.718750 -77.318761 +116.818517 -77.343750 +118.125000 -77.590735 +119.531250 -77.552730 +120.937500 -77.770488 +122.343750 -78.026881 +123.750000 -78.349170 +124.936127 -78.750000 +125.156250 -78.830574 +126.562500 -78.886351 +127.968750 -78.824757 +128.822745 -78.750000 +129.375000 -78.680176 +130.781250 -78.616502 +132.187500 -77.992417 +132.855494 -77.343750 +133.593750 -76.796511 +134.090644 -75.937500 +134.666542 -74.531250 +135.000000 -74.334261 +136.406250 -73.626313 +137.537109 -73.125000 +137.812500 -72.945120 +139.218750 -72.208531 +139.857360 -71.718750 +140.625000 -71.313003 +141.776990 -70.312500 +141.457494 -68.906250 +140.625000 -67.934962 +139.218750 -68.321066 +137.812500 -68.212090 +136.406250 -67.660527 +136.221204 -67.500000 +135.000000 -66.695871 +133.593750 -66.488660 +132.187500 -66.633508 +130.781250 -66.106300 +130.764724 -66.093750 +130.781250 -66.073605 +132.187500 -64.876926 +132.399323 -64.687500 +133.593750 -64.007830 +135.000000 -64.012777 +136.406250 -64.494477 +137.812500 -64.631409 +139.218750 -64.155580 +140.625000 -63.454534 +141.772964 -64.687500 +142.031250 -65.045224 +143.437500 -65.400750 +144.843750 -64.951123 +146.250000 -64.877346 +147.656250 -65.801477 +147.895744 -66.093750 +149.062500 -66.626676 +150.468750 -66.718482 +151.875000 -67.027486 +153.281250 -67.440313 +153.838346 -67.500000 +154.687500 -67.672510 +156.093750 -68.566280 +156.245193 -68.906250 +156.093750 -69.046601 +154.687500 -69.826659 +153.281250 -69.937971 +152.292309 -70.312500 +151.875000 -70.524401 +150.468750 -71.633100 +150.001823 -71.718750 +149.062500 -72.003375 +147.656250 -72.848940 +147.436384 -73.125000 +146.250000 -73.717033 +144.843750 -73.492879 +144.039399 -73.125000 +143.437500 -72.677260 +142.031250 -73.027305 +141.925055 -73.125000 +140.757090 -74.531250 +141.964297 -75.937500 +142.031250 -75.980774 +143.437500 -76.507342 +144.791461 -75.937500 +144.843750 -75.925045 +146.250000 -75.593278 +147.079773 -75.937500 +147.656250 -76.235136 +149.062500 -76.641019 +150.468750 -76.002295 +150.556742 -75.937500 +151.875000 -75.394592 +153.281250 -75.592143 +154.687500 -75.857900 +156.093750 -75.784754 +157.457245 -75.937500 +157.500000 -75.939721 +158.906250 -76.092912 +160.312500 -76.245385 +161.718750 -76.029282 +162.000299 -75.937500 +162.735732 -74.531250 +163.125000 -73.697479 +164.400923 -73.125000 +163.125000 -72.384249 +162.429192 -71.718750 +161.718750 -71.448411 +160.991563 -70.312500 +161.718750 -69.272341 +162.110139 -68.906250 +163.125000 -68.490470 +164.531250 -67.858023 +165.937500 -67.963705 +167.306733 -68.906250 +167.343750 -68.952919 +168.750000 -69.862629 +170.156250 -70.302283 +171.562500 -69.992912 +172.968750 -69.690644 +174.375000 -69.529178 +175.373310 -68.906250 +175.781250 -67.948773 +176.195151 -67.500000 +175.781250 -67.114798 +175.352734 -66.093750 +174.375000 -65.340813 +174.002543 -64.687500 +174.277536 -63.281250 +174.375000 -63.054333 +175.781250 -62.748322 +176.261594 -63.281250 +177.187500 -64.513749 +177.344403 -64.687500 +177.545059 -66.093750 +177.508652 -67.500000 +178.593750 -68.872990 +178.671795 -68.906250 +180.000000 -69.101045 +8 +42.403210 -90.000000 +43.593750 -88.825907 +43.984240 -88.593750 +45.000000 -87.548811 +46.406250 -87.647217 +46.949299 -88.593750 +47.812500 -89.545598 +48.273233 -90.000000 +112 +51.175475 -90.000000 +51.995452 -88.593750 +52.031250 -88.525684 +53.437500 -87.751241 +54.843750 -87.375075 +55.097579 -87.187500 +56.250000 -86.207506 +57.656250 -85.838764 +59.062500 -85.974290 +60.468750 -86.709607 +61.875000 -87.058758 +62.754891 -87.187500 +63.281250 -87.342629 +64.687500 -88.400765 +64.873692 -88.593750 +66.093750 -89.275209 +66.991080 -88.593750 +67.500000 -88.428347 +68.818992 -87.187500 +68.906250 -87.055664 +70.202675 -85.781250 +70.312500 -85.679890 +71.718750 -85.125103 +73.125000 -84.923337 +74.531250 -84.828396 +75.937500 -84.756668 +77.343750 -84.696493 +78.750000 -84.597321 +80.156250 -84.540910 +81.562500 -84.563931 +82.968750 -84.585664 +84.375000 -84.543063 +85.781250 -84.438582 +86.560944 -84.375000 +87.187500 -83.571373 +88.593750 -83.495942 +90.000000 -83.774263 +91.406250 -83.898759 +92.812500 -83.541354 +94.218750 -83.675621 +95.625000 -84.155252 +97.031250 -83.424956 +98.437500 -82.973922 +98.534529 -82.968750 +99.843750 -81.679138 +101.250000 -81.953880 +102.656250 -82.182130 +103.216415 -82.968750 +104.062500 -83.149571 +105.468750 -83.285720 +106.875000 -83.211252 +108.281250 -83.170399 +109.687500 -83.041874 +110.383435 -82.968750 +111.093750 -82.724444 +112.500000 -82.288686 +113.906250 -82.126464 +115.312500 -82.509529 +115.968082 -82.968750 +116.718750 -83.165247 +118.125000 -83.230079 +119.531250 -83.257891 +120.937500 -83.669300 +122.343750 -83.136200 +122.856288 -82.968750 +123.750000 -82.445499 +125.030417 -82.968750 +125.156250 -82.981938 +126.562500 -83.054658 +127.943460 -82.968750 +127.968750 -82.958044 +129.375000 -82.901376 +129.813689 -82.968750 +130.781250 -82.993929 +132.187500 -83.016441 +133.593750 -83.020402 +135.000000 -83.145615 +136.406250 -83.396881 +137.812500 -83.489908 +139.218750 -83.362652 +140.625000 -83.452166 +142.031250 -83.925607 +143.437500 -84.094313 +144.843750 -83.820302 +146.250000 -83.552967 +147.656250 -83.507378 +149.062500 -83.512819 +150.468750 -83.468460 +151.875000 -83.477036 +153.281250 -83.527259 +154.687500 -83.492227 +156.093750 -83.409049 +157.500000 -83.512796 +158.906250 -83.782248 +160.312500 -83.917337 +161.718750 -83.817091 +163.125000 -83.785706 +164.531250 -84.132675 +165.878192 -84.375000 +165.937500 -84.376528 +167.343750 -84.428044 +168.750000 -84.457084 +170.156250 -84.445015 +171.562500 -84.401729 +172.244320 -84.375000 +172.968750 -84.153649 +174.375000 -84.371419 +175.781250 -84.218145 +177.187500 -83.913267 +178.593750 -84.322092 +178.727300 -84.375000 +180.000000 -84.438606 +741 +-178.593750 -84.516166 +-177.187500 -84.436584 +-176.412288 -84.375000 +-175.781250 -84.142808 +-174.375000 -84.085719 +-172.968750 -84.002597 +-171.562500 -83.764803 +-170.156250 -83.679675 +-168.750000 -83.799749 +-167.343750 -84.065731 +-165.937500 -84.254119 +-164.531250 -84.185024 +-163.125000 -83.903439 +-161.718750 -83.800949 +-160.312500 -84.047066 +-158.906250 -84.086420 +-157.500000 -83.831913 +-156.093750 -83.588338 +-154.687500 -83.337626 +-153.281250 -83.198232 +-151.875000 -83.100076 +-150.624240 -82.968750 +-150.468750 -82.955083 +-149.062500 -82.757262 +-147.656250 -82.639415 +-146.250000 -82.685721 +-144.843750 -82.697814 +-143.437500 -82.848484 +-142.682125 -82.968750 +-142.031250 -83.082360 +-140.625000 -83.147754 +-139.646618 -82.968750 +-139.218750 -82.918360 +-137.812500 -82.859984 +-137.001658 -82.968750 +-136.406250 -83.112920 +-135.000000 -83.068781 +-134.374086 -82.968750 +-133.593750 -82.884622 +-133.104734 -82.968750 +-132.187500 -83.282912 +-130.781250 -83.963682 +-129.375000 -84.233859 +-127.968750 -84.298495 +-127.188603 -84.375000 +-126.562500 -84.426338 +-125.156250 -84.608268 +-123.750000 -84.786659 +-122.343750 -84.779481 +-120.937500 -84.742142 +-119.531250 -84.831228 +-118.125000 -84.909283 +-116.718750 -84.934448 +-115.312500 -84.831926 +-113.906250 -84.780876 +-112.500000 -84.966494 +-111.093750 -85.352760 +-109.860202 -85.781250 +-109.687500 -85.809566 +-108.281250 -86.022138 +-106.875000 -86.117655 +-105.468750 -86.106856 +-104.062500 -86.084597 +-102.656250 -85.888704 +-102.317067 -85.781250 +-101.250000 -85.047349 +-100.134901 -84.375000 +-99.843750 -84.164099 +-98.437500 -83.808216 +-97.031250 -83.742577 +-95.625000 -83.908365 +-94.218750 -84.285179 +-92.812500 -84.330399 +-91.406250 -84.318241 +-91.153737 -84.375000 +-90.000000 -84.756593 +-88.593750 -85.320954 +-87.496925 -85.781250 +-87.187500 -85.865077 +-85.781250 -86.267669 +-84.375000 -86.506695 +-82.968750 -86.619588 +-81.562500 -86.454374 +-80.156250 -86.122278 +-78.879879 -85.781250 +-78.750000 -85.750160 +-77.343750 -85.446656 +-75.937500 -85.231725 +-74.531250 -85.212316 +-73.125000 -85.112979 +-71.718750 -84.974979 +-70.312500 -84.651722 +-69.250304 -84.375000 +-68.906250 -84.296451 +-67.500000 -84.173105 +-66.093750 -84.170664 +-64.687500 -84.125614 +-63.281250 -84.191119 +-61.875000 -84.343783 +-60.468750 -84.326331 +-59.062500 -84.308397 +-57.656250 -84.352687 +-56.250000 -84.358750 +-56.017682 -84.375000 +-54.843750 -84.461963 +-53.437500 -84.607407 +-52.031250 -84.625958 +-50.625000 -84.701415 +-49.218750 -84.917691 +-47.812500 -85.107607 +-46.406250 -85.133663 +-45.000000 -85.111721 +-43.593750 -85.242082 +-42.187500 -85.406712 +-40.781250 -85.572205 +-39.375000 -85.741903 +-38.462807 -85.781250 +-37.968750 -85.797936 +-36.562500 -85.825045 +-35.156250 -85.866580 +-33.750000 -85.916734 +-32.343750 -86.039616 +-30.937500 -86.051127 +-29.531250 -86.036189 +-28.125000 -86.328361 +-26.718750 -86.542951 +-25.312500 -86.596108 +-23.906250 -86.702699 +-22.500000 -86.726877 +-21.093750 -86.818724 +-19.687500 -86.923857 +-18.281250 -86.776542 +-16.875000 -86.681660 +-15.468750 -86.807566 +-14.062500 -86.944427 +-13.177308 -87.187500 +-12.656250 -87.294259 +-11.250000 -87.596763 +-9.843750 -87.666907 +-8.437500 -87.664889 +-7.031250 -87.793048 +-5.625000 -87.914707 +-4.218750 -87.982732 +-2.812500 -88.073491 +-1.406250 -88.210348 +0.000000 -88.312316 +1.406250 -88.353835 +2.812500 -88.352099 +4.218750 -88.324541 +5.625000 -88.267798 +7.031250 -88.146915 +8.437500 -88.021001 +9.843750 -88.029107 +11.250000 -88.176644 +12.656250 -88.161196 +14.062500 -88.125444 +15.468750 -88.182432 +16.875000 -88.140798 +18.281250 -87.925493 +19.687500 -87.682422 +21.093750 -87.513081 +22.500000 -87.430007 +23.906250 -87.469458 +25.312500 -87.368862 +25.858015 -87.187500 +25.312500 -86.592925 +23.906250 -86.393290 +22.500000 -86.401066 +21.093750 -86.315916 +19.687500 -86.347423 +18.281250 -85.872978 +18.068277 -85.781250 +16.875000 -85.557192 +15.468750 -85.480453 +14.062500 -85.291151 +12.656250 -84.992565 +11.250000 -84.648679 +10.449055 -84.375000 +9.843750 -84.103867 +8.437500 -83.831173 +7.031250 -83.967636 +5.625000 -84.025808 +4.218750 -83.795160 +2.812500 -83.727581 +1.406250 -83.879384 +0.000000 -83.998470 +-1.406250 -84.047846 +-2.812500 -84.155303 +-4.218750 -84.211455 +-5.625000 -84.047410 +-7.031250 -83.984136 +-8.437500 -83.937253 +-9.843750 -83.651048 +-11.027484 -82.968750 +-11.250000 -82.797136 +-12.362167 -81.562500 +-12.656250 -81.425902 +-14.062500 -81.405808 +-15.115341 -81.562500 +-15.468750 -81.641354 +-15.672512 -81.562500 +-16.875000 -81.279456 +-18.281250 -81.024410 +-19.687500 -81.109820 +-21.093750 -81.272656 +-22.500000 -81.282843 +-23.906250 -81.109453 +-25.312500 -80.902027 +-26.718750 -80.627852 +-28.125000 -80.427537 +-29.531250 -80.442416 +-30.937500 -80.518003 +-32.343750 -80.230318 +-32.479977 -80.156250 +-32.426007 -78.750000 +-32.343750 -78.698481 +-30.937500 -78.058018 +-30.295092 -77.343750 +-30.094833 -75.937500 +-30.937500 -74.753081 +-32.343750 -75.750911 +-32.560399 -75.937500 +-33.750000 -76.881896 +-35.156250 -77.145341 +-36.562500 -77.181652 +-37.968750 -77.169133 +-39.375000 -77.225344 +-39.876487 -77.343750 +-40.781250 -77.578849 +-42.187500 -78.040286 +-42.882448 -77.343750 +-43.593750 -76.945968 +-45.000000 -76.441915 +-46.406250 -76.352922 +-47.812500 -76.421547 +-48.993564 -75.937500 +-49.218750 -75.539830 +-49.488450 -74.531250 +-49.218750 -74.176384 +-47.812500 -73.256246 +-47.399103 -73.125000 +-46.406250 -72.867907 +-45.000000 -72.582719 +-43.593750 -72.291738 +-42.187500 -72.075811 +-40.781250 -72.248240 +-39.375000 -72.399676 +-37.968750 -72.432917 +-36.562500 -72.648843 +-35.156250 -72.957429 +-33.750000 -72.273781 +-33.362591 -71.718750 +-33.750000 -71.095663 +-35.156250 -70.395821 +-36.562500 -70.347343 +-37.968750 -70.653418 +-39.375000 -70.742845 +-40.781250 -70.366307 +-40.829570 -70.312500 +-41.979411 -68.906250 +-40.781250 -68.007923 +-39.380502 -67.500000 +-39.375000 -67.498630 +-37.968750 -66.840526 +-36.744900 -66.093750 +-36.562500 -65.841751 +-35.156250 -65.124140 +-34.803255 -64.687500 +-34.056707 -63.281250 +-33.798715 -61.875000 +-35.039327 -60.468750 +-35.156250 -59.609388 +-35.758744 -59.062500 +-35.156250 -59.038962 +-33.750000 -58.980767 +-32.343750 -59.022821 +-31.322512 -57.656250 +-32.310710 -56.250000 +-32.343750 -56.222771 +-33.750000 -55.294616 +-34.717489 -54.843750 +-35.156250 -54.454511 +-36.562500 -53.483163 +-37.061183 -53.437500 +-36.562500 -53.338669 +-35.156250 -52.468773 +-34.509501 -52.031250 +-33.750000 -51.602568 +-32.343750 -50.833382 +-31.467439 -50.625000 +-30.937500 -50.410685 +-29.686690 -49.218750 +-29.531250 -49.016468 +-28.125000 -48.303494 +-26.718750 -48.962442 +-26.285156 -49.218750 +-25.312500 -49.586029 +-24.666505 -49.218750 +-23.906250 -48.129337 +-23.499083 -47.812500 +-22.500000 -47.297768 +-21.093750 -47.379885 +-19.687500 -47.449370 +-19.208621 -47.812500 +-18.331367 -49.218750 +-18.281250 -49.271845 +-16.875000 -49.819610 +-15.468750 -49.229449 +-15.452538 -49.218750 +-14.062500 -48.838465 +-12.656250 -48.847434 +-11.250000 -48.902852 +-10.391111 -47.812500 +-9.843750 -47.402655 +-9.107495 -46.406250 +-8.784010 -45.000000 +-8.437500 -44.717306 +-7.031250 -44.635969 +-5.889075 -45.000000 +-5.625000 -45.078856 +-5.335945 -45.000000 +-4.218750 -44.721767 +-2.812500 -44.565601 +-1.406250 -44.851391 +0.000000 -44.671746 +1.406250 -43.840413 +2.783763 -45.000000 +2.476469 -46.406250 +2.812500 -46.844834 +4.218750 -46.841337 +4.675521 -46.406250 +5.625000 -45.068180 +7.031250 -45.062348 +7.718958 -46.406250 +7.368913 -47.812500 +7.046426 -49.218750 +8.360628 -50.625000 +7.031250 -51.071178 +5.785195 -50.625000 +5.625000 -50.428829 +4.806423 -49.218750 +4.218750 -48.731486 +3.737252 -49.218750 +3.312425 -50.625000 +3.762014 -52.031250 +4.218750 -53.078539 +4.382472 -53.437500 +5.535949 -54.843750 +5.625000 -55.799052 +5.676886 -56.250000 +7.031250 -57.307889 +8.437500 -57.545822 +8.551901 -57.656250 +9.843750 -58.920593 +10.611013 -59.062500 +11.250000 -59.538439 +11.719730 -59.062500 +12.656250 -58.730697 +13.896377 -57.656250 +14.062500 -56.969982 +14.442132 -56.250000 +14.062500 -56.034026 +13.315235 -54.843750 +13.837579 -53.437500 +14.062500 -53.344834 +14.575060 -53.437500 +15.468750 -53.793354 +16.307325 -54.843750 +16.850525 -56.250000 +16.875000 -56.295798 +17.412402 -57.656250 +16.875000 -58.607169 +16.782209 -59.062500 +16.569957 -60.468750 +15.468750 -61.010477 +14.396641 -61.875000 +14.062500 -62.315469 +12.656250 -61.882493 +12.431040 -61.875000 +11.250000 -61.844999 +11.235571 -61.875000 +9.843750 -62.533297 +8.437500 -63.107334 +7.182840 -63.281250 +7.677679 -64.687500 +7.031250 -65.200574 +5.625000 -65.931012 +5.104009 -66.093750 +4.218750 -66.463559 +3.800135 -66.093750 +2.812500 -65.356532 +1.822143 -64.687500 +1.705186 -63.281250 +1.406250 -63.131775 +0.633376 -61.875000 +0.000000 -61.190901 +-1.406250 -60.940579 +-2.269397 -61.875000 +-2.812500 -62.531545 +-3.658636 -63.281250 +-4.026139 -64.687500 +-3.059980 -66.093750 +-4.218750 -67.204529 +-5.625000 -66.711379 +-6.563860 -67.500000 +-5.625000 -68.387193 +-5.042691 -68.906250 +-4.218750 -69.665048 +-2.812500 -70.253124 +-2.766909 -70.312500 +-2.812500 -70.470418 +-3.103117 -71.718750 +-4.038856 -73.125000 +-2.812500 -74.429812 +-1.406250 -74.055155 +0.000000 -73.993617 +1.406250 -74.426150 +2.228255 -74.531250 +1.682427 -75.937500 +1.917810 -77.343750 +2.812500 -77.627290 +4.218750 -77.860431 +5.625000 -77.353714 +5.650172 -77.343750 +7.031250 -76.969179 +7.945835 -77.343750 +7.723935 -78.750000 +8.437500 -79.517752 +9.843750 -79.744214 +10.969590 -78.750000 +11.250000 -78.318888 +12.656250 -77.749051 +14.062500 -77.833481 +15.468750 -77.819202 +16.752104 -77.343750 +16.875000 -77.263463 +18.281250 -76.292681 +19.687500 -76.028653 +21.093750 -75.977401 +22.500000 -77.109499 +22.873028 -77.343750 +23.321296 -78.750000 +23.906250 -78.908618 +24.862028 -80.156250 +25.312500 -80.454020 +26.718750 -80.898022 +28.125000 -80.799515 +29.531250 -80.612862 +30.937500 -80.393951 +31.774346 -80.156250 +32.343750 -79.869743 +33.750000 -79.514359 +35.156250 -79.539496 +36.562500 -79.595997 +37.968750 -79.418788 +38.815119 -78.750000 +38.440450 -77.343750 +37.968750 -76.979289 +36.562500 -76.376946 +35.156250 -76.090882 +33.750000 -76.033313 +33.366177 -75.937500 +33.116955 -74.531250 +33.750000 -74.283320 +35.156250 -74.070852 +36.562500 -73.831098 +37.825945 -73.125000 +37.968750 -73.059232 +39.375000 -72.536977 +40.781250 -71.752304 +40.907262 -71.718750 +42.187500 -71.642545 +42.539719 -71.718750 +42.635077 -73.125000 +42.457702 -74.531250 +43.593750 -75.449243 +45.000000 -75.673336 +46.406250 -75.225661 +47.812500 -75.010379 +49.218750 -75.125351 +50.625000 -75.258135 +52.031250 -75.645145 +53.437500 -75.662912 +54.843750 -75.386428 +56.250000 -75.082072 +57.656250 -74.879671 +59.062500 -74.667211 +59.754236 -74.531250 +60.468750 -74.282104 +61.875000 -73.589883 +63.281250 -73.199328 +63.479753 -73.125000 +63.851292 -71.718750 +63.281250 -70.945936 +62.697215 -70.312500 +63.281250 -70.095061 +64.687500 -69.581254 +66.093750 -69.312158 +66.833416 -68.906250 +67.500000 -68.443333 +68.005058 -67.500000 +67.500000 -66.432470 +67.200337 -66.093750 +66.093750 -65.588486 +64.687500 -65.350540 +63.281250 -64.880105 +61.875000 -64.690037 +61.872028 -64.687500 +61.875000 -64.672948 +63.193583 -63.281250 +63.281250 -63.269801 +64.687500 -63.204696 +66.093750 -63.075603 +67.500000 -63.192665 +68.906250 -63.168116 +70.312500 -62.062508 +70.417510 -61.875000 +71.718750 -60.583121 +71.822095 -60.468750 +73.125000 -59.668623 +73.594789 -59.062500 +74.350627 -57.656250 +74.531250 -56.764803 +74.863951 -56.250000 +75.149019 -54.843750 +75.764329 -53.437500 +75.937500 -53.242180 +77.343750 -52.815268 +78.053669 -52.031250 +77.837784 -50.625000 +77.588252 -49.218750 +78.272223 -47.812500 +78.750000 -47.543294 +80.156250 -47.205978 +81.562500 -47.306717 +82.968750 -47.194087 +84.375000 -46.848031 +85.781250 -46.989186 +86.725809 -47.812500 +86.550401 -49.218750 +86.285348 -50.625000 +85.781250 -51.777534 +85.662377 -52.031250 +85.781250 -52.220754 +87.187500 -52.633166 +88.593750 -52.250756 +89.727880 -52.031250 +90.000000 -51.995776 +90.069772 -52.031250 +91.406250 -52.923801 +91.912384 -53.437500 +92.812500 -54.092127 +94.218750 -54.815711 +94.290173 -54.843750 +95.625000 -55.542040 +97.031250 -55.941857 +98.437500 -56.000006 +99.843750 -56.233854 +99.888159 -56.250000 +101.250000 -57.500047 +101.375458 -57.656250 +101.891864 -59.062500 +102.656250 -60.337035 +102.873359 -60.468750 +102.656250 -60.851124 +101.250000 -61.752645 +101.135649 -61.875000 +100.266680 -63.281250 +101.250000 -64.377997 +102.656250 -64.090657 +104.030183 -63.281250 +103.347290 -61.875000 +104.062500 -61.402527 +105.468750 -61.077874 +106.178955 -60.468750 +106.875000 -60.163411 +108.273835 -60.468750 +106.875000 -61.517567 +106.589065 -61.875000 +106.067295 -63.281250 +106.875000 -63.923589 +108.281250 -64.593471 +109.450304 -63.281250 +109.279120 -61.875000 +109.687500 -61.160851 +110.220297 -60.468750 +111.093750 -59.741025 +111.930076 -59.062500 +112.406866 -57.656250 +111.346129 -56.250000 +111.093750 -56.036315 +109.963194 -54.843750 +109.687500 -54.139473 +109.295600 -53.437500 +109.687500 -53.179216 +111.093750 -52.605635 +112.142817 -52.031250 +112.500000 -51.921899 +113.906250 -51.490538 +115.312500 -51.236570 +116.718750 -50.976775 +118.125000 -50.898827 +118.899193 -52.031250 +118.532733 -53.437500 +119.531250 -54.596801 +120.630287 -54.843750 +120.937500 -54.997372 +121.062360 -54.843750 +122.343750 -53.795957 +122.701344 -53.437500 +123.750000 -52.903939 +125.156250 -52.390016 +125.315351 -52.031250 +125.375477 -50.625000 +126.562500 -49.259743 +126.709323 -49.218750 +127.968750 -49.067190 +129.375000 -48.804944 +130.781250 -48.161692 +131.230038 -47.812500 +132.187500 -46.656448 +132.463877 -46.406250 +133.593750 -45.586285 +135.000000 -45.003863 +135.013721 -45.000000 +136.406250 -44.688980 +137.812500 -44.399330 +139.218750 -44.161419 +140.625000 -44.342411 +142.031250 -44.906672 +142.216235 -45.000000 +143.437500 -46.062949 +143.774633 -46.406250 +144.475634 -47.812500 +144.651392 -49.218750 +144.437458 -50.625000 +144.843750 -51.882202 +144.936835 -52.031250 +146.250000 -53.266642 +146.359483 -53.437500 +146.250000 -54.194013 +146.116574 -54.843750 +144.843750 -55.774828 +143.890704 -56.250000 +143.437500 -56.577031 +142.031250 -56.955058 +140.625000 -56.597137 +139.218750 -57.008548 +138.221358 -57.656250 +137.812500 -58.433931 +136.406250 -58.943795 +136.299477 -59.062500 +136.406250 -59.131283 +137.812500 -59.507879 +139.218750 -60.452557 +139.279432 -60.468750 +140.625000 -60.919359 +141.246729 -60.468750 +142.031250 -60.095225 +143.437500 -59.547038 +144.843750 -59.091892 +145.017074 -59.062500 +146.250000 -58.594090 +147.040143 -57.656250 +147.656250 -57.234921 +149.062500 -56.764350 +150.468750 -56.927172 +151.875000 -57.086592 +153.281250 -56.818353 +154.687500 -56.372631 +156.093750 -56.461271 +156.786395 -57.656250 +156.438590 -59.062500 +156.093750 -59.273792 +154.687500 -59.647842 +153.281250 -60.000929 +152.231040 -60.468750 +151.875000 -60.739562 +150.468750 -61.256213 +149.062500 -61.320621 +147.920774 -60.468750 +147.656250 -60.216012 +147.152258 -60.468750 +146.541067 -61.875000 +147.656250 -62.588958 +149.062500 -62.633371 +150.468750 -63.027275 +151.875000 -62.828661 +153.281250 -62.799547 +154.687500 -63.112260 +156.093750 -63.130080 +157.500000 -63.168333 +157.963195 -63.281250 +158.906250 -63.511515 +159.664924 -63.281250 +159.980581 -61.875000 +158.957088 -60.468750 +159.328425 -59.062500 +160.312500 -58.613917 +161.718750 -58.529808 +163.125000 -58.371278 +163.983508 -57.656250 +163.771184 -56.250000 +163.125000 -55.610103 +162.246645 -54.843750 +161.718750 -53.516620 +161.592396 -53.437500 +161.718750 -53.403398 +163.125000 -52.818455 +164.531250 -52.681183 +165.937500 -52.418882 +166.160151 -52.031250 +165.937500 -51.182469 +165.681766 -50.625000 +165.937500 -50.287093 +166.572098 -49.218750 +167.199540 -47.812500 +167.343750 -46.792989 +167.533680 -46.406250 +168.750000 -45.822614 +170.156250 -45.759245 +171.562500 -45.056576 +171.637673 -45.000000 +172.968750 -44.362316 +173.909573 -45.000000 +173.710672 -46.406250 +173.349752 -47.812500 +174.375000 -49.105878 +174.818077 -49.218750 +175.781250 -49.389618 +177.187500 -49.968004 +178.593750 -49.277286 +178.647132 -49.218750 +178.593750 -49.143867 +177.187500 -48.215399 +176.620661 -47.812500 +176.193587 -46.406250 +177.187500 -45.591556 +178.593750 -46.310857 +178.716759 -46.406250 +180.000000 -47.220952 +4 +-178.593750 -66.777225 +-178.243707 -66.093750 +-178.260959 -64.687500 +-178.593750 -63.614490 +3 +-178.593750 -59.106731 +-178.397285 -59.062500 +-178.593750 -58.831998 +5 +-178.593750 -55.695258 +-177.881664 -54.843750 +-177.428880 -53.437500 +-178.138089 -52.031250 +-178.593750 -51.823847 +34 +-178.593750 50.220803 +-177.208301 50.625000 +-177.187500 50.631073 +-175.781250 50.802419 +-175.313859 50.625000 +-174.375000 50.044523 +-172.968750 49.247669 +-172.888574 49.218750 +-171.562500 48.723764 +-170.156250 48.089144 +-169.633236 47.812500 +-168.750000 47.091190 +-167.343750 47.245268 +-165.937500 47.647163 +-164.531250 47.747728 +-163.125000 47.797806 +-163.030333 47.812500 +-163.125000 47.882073 +-164.207338 49.218750 +-164.531250 49.321501 +-165.423334 50.625000 +-165.816422 52.031250 +-165.937500 52.369979 +-166.648970 53.437500 +-167.343750 53.914310 +-168.750000 53.895612 +-170.156250 53.987041 +-171.562500 54.122248 +-172.968750 54.267341 +-174.375000 54.666386 +-174.974173 54.843750 +-175.781250 55.086748 +-177.187500 55.047139 +-178.593750 55.189054 +306 +-178.593750 77.873439 +-177.187500 78.025043 +-175.781250 77.559538 +-175.418071 77.343750 +-174.375000 76.813505 +-172.968750 76.754748 +-171.562500 76.832144 +-170.156250 76.358916 +-168.750000 76.219967 +-167.343750 76.240324 +-165.937500 76.403638 +-164.531250 76.675026 +-163.125000 77.073680 +-162.486786 77.343750 +-161.718750 77.511713 +-160.312500 77.607511 +-158.906250 77.614721 +-157.500000 77.704817 +-156.093750 77.871037 +-154.687500 77.996972 +-153.281250 78.136980 +-151.875000 78.161752 +-150.468750 78.089365 +-149.062500 77.975770 +-147.656250 78.118898 +-146.525626 78.750000 +-146.250000 78.831668 +-144.843750 78.816400 +-144.404706 78.750000 +-143.437500 78.466217 +-142.031250 78.405834 +-141.373885 78.750000 +-140.625000 78.970312 +-139.218750 79.491062 +-137.812500 79.459553 +-136.406250 79.235493 +-135.000000 79.113653 +-133.593750 78.983741 +-132.187500 78.813763 +-130.781250 78.751538 +-129.375000 78.802502 +-127.968750 78.811875 +-126.562500 78.751040 +-126.457224 78.750000 +-125.156250 78.723811 +-125.060601 78.750000 +-123.750000 78.993533 +-122.343750 79.055310 +-120.944638 78.750000 +-120.937500 78.747755 +-119.531250 78.499022 +-118.125000 78.272890 +-116.718750 78.061978 +-115.312500 78.137371 +-113.906250 78.453579 +-112.500000 78.688089 +-111.861002 78.750000 +-111.093750 78.796705 +-109.687500 78.866611 +-108.281250 79.078452 +-106.875000 79.056166 +-105.468750 78.810824 +-104.062500 78.991133 +-102.656250 79.608489 +-101.311004 80.156250 +-101.250000 80.193557 +-99.843750 80.304338 +-98.437500 80.257370 +-97.031250 80.329921 +-95.625000 80.195838 +-95.435188 80.156250 +-94.218750 79.912811 +-93.268837 80.156250 +-92.812500 80.313315 +-91.406250 80.746873 +-90.000000 80.881279 +-88.593750 81.075946 +-87.187500 81.167014 +-85.781250 81.223973 +-84.375000 81.347969 +-82.968750 81.411918 +-81.942335 81.562500 +-81.562500 81.614545 +-80.156250 81.673950 +-79.031749 81.562500 +-78.750000 81.514752 +-77.469037 81.562500 +-77.343750 81.565924 +-75.937500 81.751307 +-74.531250 82.013405 +-73.125000 82.319657 +-71.718750 82.634391 +-70.947763 82.968750 +-70.312500 83.049681 +-68.906250 83.159713 +-67.500000 83.026085 +-66.093750 83.055652 +-64.687500 83.555330 +-63.281250 83.678048 +-61.875000 83.649979 +-60.468750 83.730905 +-59.062500 83.813538 +-57.656250 83.738816 +-56.250000 83.596885 +-54.843750 83.521745 +-53.437500 83.409610 +-52.031250 83.275755 +-50.625000 83.255396 +-49.218750 83.058990 +-48.952906 82.968750 +-47.812500 82.740811 +-46.406250 82.741721 +-45.662138 82.968750 +-45.000000 83.226139 +-43.593750 83.948501 +-42.187500 84.328367 +-40.781250 84.059855 +-39.375000 83.862065 +-37.968750 83.668859 +-36.562500 83.380704 +-35.156250 83.161769 +-34.085968 82.968750 +-33.750000 82.908860 +-32.343750 82.781919 +-30.937500 82.780937 +-29.531250 82.789286 +-28.125000 82.781148 +-26.718750 82.837377 +-25.373928 82.968750 +-25.312500 82.977292 +-23.906250 83.215056 +-22.500000 83.429760 +-21.093750 83.473300 +-19.687500 83.432872 +-18.281250 83.418084 +-16.875000 83.456758 +-15.468750 83.552754 +-14.062500 83.575817 +-12.656250 83.535870 +-11.250000 83.513614 +-9.843750 83.421109 +-8.437500 83.288529 +-7.031250 83.117855 +-5.906426 82.968750 +-5.625000 82.923121 +-4.218750 82.871625 +-2.812500 82.867377 +-1.406250 82.848077 +0.000000 82.832710 +1.406250 82.868866 +2.812500 82.931935 +4.218750 82.882420 +5.625000 82.840825 +7.031250 82.735629 +8.437500 82.510215 +9.843750 82.367800 +11.250000 82.327848 +12.656250 82.427568 +14.062500 82.823502 +14.690219 82.968750 +15.468750 83.142812 +16.875000 83.041305 +18.281250 82.972917 +19.687500 82.980087 +20.434397 82.968750 +21.093750 82.957993 +22.500000 82.874417 +23.906250 82.777549 +25.312500 82.761066 +26.718750 82.799018 +28.125000 82.681864 +29.531250 82.525734 +30.937500 82.535301 +32.343750 82.657409 +33.750000 82.674590 +35.156250 82.571069 +36.562500 82.524917 +37.968750 82.555080 +39.375000 82.640403 +40.781250 82.724754 +42.187500 82.723227 +43.593750 82.526205 +45.000000 82.593394 +45.753641 82.968750 +46.406250 83.211601 +47.812500 83.283287 +48.635047 82.968750 +49.218750 82.408727 +50.198372 81.562500 +50.625000 81.418150 +52.031250 81.141827 +53.437500 80.975528 +54.843750 80.864003 +56.250000 80.905959 +57.656250 81.025649 +59.062500 80.988580 +60.468750 80.918060 +61.875000 80.864152 +63.281250 80.671702 +64.687500 80.590286 +66.093750 80.865007 +67.500000 81.414794 +68.906250 81.100711 +70.312500 80.456060 +71.718750 80.294341 +73.125000 80.622086 +74.531250 81.034809 +75.937500 80.732479 +77.343750 80.451014 +78.750000 80.533276 +80.156250 80.681734 +81.562500 80.780812 +82.968750 80.848560 +84.375000 80.824480 +85.781250 80.775695 +87.187500 81.005527 +87.783653 81.562500 +88.593750 81.846342 +90.000000 81.796657 +91.406250 81.935007 +92.812500 82.458382 +94.218750 82.686054 +95.625000 82.747441 +97.031250 82.780313 +98.437500 82.781612 +99.843750 82.845664 +100.515013 82.968750 +101.250000 83.057802 +102.656250 83.082263 +103.465082 82.968750 +103.875255 81.562500 +102.656250 80.661796 +102.332288 80.156250 +102.656250 79.801916 +104.062500 79.426278 +105.468750 79.133463 +106.875000 78.984705 +108.281250 78.952988 +109.687500 78.977802 +110.818359 80.156250 +109.690542 81.562500 +109.687500 81.565538 +108.294328 82.968750 +109.687500 83.279273 +111.093750 83.431632 +112.500000 83.523186 +113.906250 83.140076 +115.096615 82.968750 +115.312500 82.926631 +115.409846 82.968750 +116.718750 84.274482 +118.125000 83.053956 +118.155644 82.968750 +118.701264 81.562500 +119.531250 80.730228 +120.937500 80.550704 +122.343750 81.135734 +122.772493 81.562500 +123.750000 81.989237 +125.156250 81.977421 +126.562500 81.973250 +127.968750 82.084752 +129.375000 82.293452 +130.781250 82.659346 +132.187500 82.249867 +132.400087 81.562500 +132.977309 80.156250 +133.593750 79.603181 +135.000000 79.262099 +136.406250 79.596321 +137.812500 79.926778 +139.218750 79.815924 +140.625000 80.107820 +140.845370 80.156250 +142.031250 80.225870 +142.772280 80.156250 +143.437500 79.962174 +144.843750 79.489444 +146.250000 79.530312 +147.082507 80.156250 +147.656250 80.278228 +149.062500 80.244918 +149.680425 80.156250 +150.468750 79.782672 +151.875000 79.430730 +153.281250 79.233077 +154.687500 79.133071 +156.093750 79.021425 +157.500000 78.860183 +158.198902 78.750000 +158.906250 78.178977 +160.312500 77.861002 +161.718750 77.899099 +163.125000 77.995359 +164.531250 77.988785 +165.937500 77.876107 +167.343750 77.933180 +168.750000 78.031391 +170.156250 78.017739 +171.562500 77.942959 +172.968750 77.680300 +174.375000 77.605656 +175.781250 77.775893 +177.187500 77.636801 +178.593750 77.590561 +180.000000 77.615890 +6 +180.000000 -75.341372 +178.593750 -75.093381 +177.663511 -74.531250 +178.593750 -73.501487 +179.030898 -73.125000 +180.000000 -72.886616 +16 +180.000000 39.220962 +178.593750 39.236678 +177.187500 39.326337 +175.781250 38.527670 +174.375000 38.037296 +174.187686 37.968750 +172.968750 37.420100 +171.768862 37.968750 +171.962883 39.375000 +172.968750 40.533148 +174.375000 40.653962 +175.781250 40.090615 +177.187500 39.422637 +178.593750 39.874789 +179.645061 40.781250 +180.000000 40.864568 +23 +180.000000 51.093161 +178.593750 51.333073 +177.341773 52.031250 +177.187500 52.293483 +175.781250 53.113704 +174.375000 53.114006 +172.968750 53.233113 +172.705283 53.437500 +171.562500 54.456838 +171.292435 54.843750 +171.306114 56.250000 +171.172753 57.656250 +171.027978 59.062500 +171.562500 59.419149 +172.968750 59.552391 +174.375000 59.346362 +175.676311 59.062500 +175.781250 58.974101 +176.542913 57.656250 +176.661207 56.250000 +177.187500 55.054280 +178.593750 54.880125 +180.000000 55.040741 +5 +-174.375000 42.038659 +-173.975911 42.187500 +-174.375000 42.619525 +-174.939960 42.187500 +-174.375000 42.038659 +5 +175.781250 -59.690921 +175.522752 -59.062500 +175.781250 -58.730094 +176.472172 -59.062500 +175.781250 -59.690921 +7 +171.562500 -52.031681 +170.156250 -52.210264 +169.916050 -52.031250 +170.156250 -51.678027 +171.562500 -52.030552 +171.563554 -52.031250 +171.562500 -52.031681 +5 +170.156250 -81.661112 +171.492869 -81.562500 +170.156250 -81.404533 +169.424211 -81.562500 +170.156250 -81.661112 +5 +-164.531250 -52.209496 +-164.470183 -52.031250 +-164.531250 -51.992856 +-164.602371 -52.031250 +-164.531250 -52.209496 +7 +165.937500 -60.611194 +164.531250 -60.709101 +163.767210 -60.468750 +164.531250 -60.214377 +165.937500 -60.264421 +166.175767 -60.468750 +165.937500 -60.611194 +19 +-161.718750 48.501808 +-160.312500 49.044705 +-159.918102 49.218750 +-158.906250 49.686666 +-158.024389 49.218750 +-157.500000 48.918192 +-156.093750 48.425199 +-155.950942 49.218750 +-156.093750 50.396250 +-156.195741 50.625000 +-157.500000 51.620387 +-157.864695 52.031250 +-158.906250 52.518499 +-160.312500 52.468307 +-161.475573 52.031250 +-161.718750 51.481536 +-161.821579 50.625000 +-162.321446 49.218750 +-161.718750 48.501808 +7 +163.125000 -62.051058 +161.718750 -62.283834 +160.619281 -61.875000 +161.718750 -61.518033 +163.125000 -60.882104 +163.538293 -61.875000 +163.125000 -62.051058 +15 +-158.906250 -56.298939 +-157.500000 -56.395735 +-156.093750 -56.260678 +-156.042021 -56.250000 +-154.687500 -55.643630 +-154.438304 -54.843750 +-154.687500 -54.519435 +-156.093750 -54.598670 +-157.237341 -54.843750 +-157.500000 -55.418448 +-157.918452 -54.843750 +-158.906250 -54.716660 +-159.139407 -54.843750 +-158.988474 -56.250000 +-158.906250 -56.298939 +109 +160.312500 17.931080 +160.462137 18.281250 +160.312500 18.553990 +158.906250 18.589734 +157.500000 18.474626 +156.278536 19.687500 +156.093750 19.847704 +154.702836 21.093750 +154.687500 21.133838 +153.601297 22.500000 +153.281250 22.743741 +152.958302 22.500000 +151.875000 21.973754 +151.013156 21.093750 +150.468750 20.616887 +149.062500 20.088339 +147.656250 20.215710 +146.250000 20.105568 +144.843750 19.990576 +143.437500 20.047198 +142.031250 20.989298 +141.929420 21.093750 +141.106740 22.500000 +140.625000 22.927192 +139.590228 23.906250 +139.218750 24.258703 +138.581096 25.312500 +137.812500 26.377514 +137.489114 26.718750 +136.529091 28.125000 +136.406250 28.272435 +135.000000 29.121491 +134.234932 29.531250 +133.593750 29.898078 +132.187500 29.941600 +131.656808 29.531250 +130.781250 28.700110 +130.300212 28.125000 +129.886349 26.718750 +129.995799 25.312500 +130.034639 23.906250 +130.066022 22.500000 +130.266837 21.093750 +130.458762 19.687500 +130.723249 18.281250 +130.781250 18.183995 +132.097812 16.875000 +132.187500 16.835337 +133.593750 16.506997 +135.000000 16.494532 +136.307045 15.468750 +136.406250 15.428076 +137.812500 15.378907 +138.179112 15.468750 +139.218750 15.746702 +140.139436 15.468750 +140.625000 15.287164 +141.794254 14.062500 +142.031250 12.736354 +142.713096 14.062500 +143.437500 14.654741 +144.705472 15.468750 +144.843750 15.499211 +146.250000 15.824028 +147.656250 15.478156 +147.690081 15.468750 +149.062500 14.825856 +149.467714 14.062500 +150.260563 12.656250 +150.468750 11.313466 +150.485242 11.250000 +150.468750 11.132400 +150.277829 9.843750 +149.062500 9.083245 +147.656250 9.020635 +146.250000 9.011783 +144.843750 9.439383 +143.547201 9.843750 +143.437500 10.435806 +143.385914 9.843750 +143.280536 8.437500 +143.437500 7.768993 +143.611697 7.031250 +144.843750 5.953608 +146.250000 6.757719 +147.245291 7.031250 +147.656250 7.370176 +148.022976 7.031250 +149.062500 5.705994 +150.468750 5.888803 +151.875000 6.732040 +152.154936 7.031250 +151.875000 7.570897 +151.398522 8.437500 +151.875000 8.889728 +153.281250 8.943768 +154.687500 9.048897 +156.076542 9.843750 +156.093750 9.874813 +156.811880 11.250000 +156.093750 12.152558 +155.805458 12.656250 +155.867266 14.062500 +156.093750 14.340249 +157.493333 15.468750 +157.500000 15.473741 +158.906250 16.719864 +159.139215 16.875000 +160.312500 17.931080 +5 +158.906250 -73.466705 +158.662089 -73.125000 +158.906250 -73.050578 +159.101830 -73.125000 +158.906250 -73.466705 +9 +150.468750 -52.038461 +150.487309 -52.031250 +150.468750 -51.965345 +149.632409 -50.625000 +149.062500 -50.545551 +148.905723 -50.625000 +148.433366 -52.031250 +149.062500 -52.191316 +150.468750 -52.038461 +5 +-140.625000 -73.125141 +-140.624588 -73.125000 +-140.625000 -73.124763 +-140.625589 -73.125000 +-140.625000 -73.125141 +41 +-135.000000 5.014482 +-134.587900 4.218750 +-134.254967 2.812500 +-133.593750 1.985322 +-133.008678 1.406250 +-132.187500 0.125633 +-131.918981 0.000000 +-130.781250 -0.281887 +-130.289079 0.000000 +-129.375000 1.078952 +-129.259936 1.406250 +-129.375000 1.903387 +-129.804233 2.812500 +-130.197368 4.218750 +-130.781250 5.192017 +-132.187500 5.002246 +-133.397229 5.625000 +-133.593750 6.598087 +-133.812881 7.031250 +-133.593750 7.564998 +-132.187500 7.642474 +-131.833524 7.031250 +-130.781250 5.840109 +-129.987209 5.625000 +-129.375000 5.349603 +-129.245076 5.625000 +-127.996395 7.031250 +-127.968750 7.266471 +-127.880924 8.437500 +-127.968750 8.798861 +-129.146680 9.843750 +-129.375000 9.914921 +-130.781250 10.045245 +-131.191943 9.843750 +-132.187500 9.058447 +-133.593750 8.668326 +-135.000000 8.711461 +-135.195655 8.437500 +-135.589638 7.031250 +-135.645876 5.625000 +-135.000000 5.014482 +197 +-129.375000 -48.612270 +-128.927337 -49.218750 +-127.968750 -50.356304 +-126.562500 -50.313683 +-125.156250 -50.025203 +-124.609848 -50.625000 +-123.750000 -51.264989 +-122.968044 -52.031250 +-122.343750 -52.329811 +-120.937500 -52.857065 +-119.531250 -53.317849 +-118.669780 -53.437500 +-118.125000 -53.518684 +-116.718750 -53.475482 +-115.312500 -53.579033 +-113.906250 -53.845128 +-112.500000 -54.207742 +-111.093750 -54.032869 +-109.687500 -53.674110 +-108.281250 -53.544556 +-106.875000 -53.609179 +-105.468750 -54.055980 +-104.062500 -54.584368 +-102.656250 -54.344666 +-101.250000 -53.438457 +-101.240322 -53.437500 +-99.843750 -53.297198 +-98.437500 -53.232318 +-97.031250 -52.695700 +-95.871467 -52.031250 +-95.625000 -51.906810 +-94.218750 -51.524387 +-92.812500 -51.483359 +-91.406250 -51.479755 +-90.000000 -51.451894 +-88.593750 -51.625167 +-88.077321 -52.031250 +-87.686878 -53.437500 +-87.187500 -53.880802 +-85.781250 -54.437256 +-85.084703 -54.843750 +-85.781250 -55.783098 +-85.951773 -56.250000 +-87.187500 -57.384466 +-87.743316 -57.656250 +-87.187500 -58.253539 +-86.511974 -59.062500 +-85.781250 -59.648715 +-85.111084 -60.468750 +-85.456370 -61.875000 +-85.683555 -63.281250 +-84.534541 -64.687500 +-84.375000 -64.898070 +-83.970369 -64.687500 +-82.968750 -64.480136 +-82.663184 -64.687500 +-81.702729 -66.093750 +-81.562500 -66.214623 +-80.156250 -67.033013 +-78.750000 -66.925782 +-78.045183 -66.093750 +-78.287241 -64.687500 +-78.750000 -64.022504 +-80.156250 -63.850947 +-81.530410 -63.281250 +-80.320969 -61.875000 +-80.156250 -61.846055 +-79.605760 -61.875000 +-78.750000 -61.983958 +-78.414684 -61.875000 +-77.343750 -61.743398 +-75.937500 -61.068693 +-74.905018 -60.468750 +-74.531250 -60.253353 +-73.125000 -59.419584 +-72.820220 -59.062500 +-71.718750 -58.040263 +-70.439161 -57.656250 +-70.312500 -57.285551 +-69.646021 -56.250000 +-69.571306 -54.843750 +-70.312500 -54.394030 +-71.718750 -53.804354 +-72.322592 -53.437500 +-71.919105 -52.031250 +-71.718750 -51.950918 +-70.312500 -51.272495 +-68.906250 -50.996223 +-67.500000 -51.060265 +-66.510660 -52.031250 +-67.500000 -52.897556 +-68.904201 -53.437500 +-67.500000 -54.034265 +-66.093750 -53.563252 +-66.039012 -53.437500 +-65.689809 -52.031250 +-64.687500 -51.334897 +-63.980263 -50.625000 +-64.687500 -49.632070 +-65.076292 -49.218750 +-65.565756 -47.812500 +-64.687500 -47.428951 +-63.281250 -47.520607 +-61.875000 -47.768485 +-60.468750 -46.933652 +-60.006895 -46.406250 +-60.468750 -45.768996 +-61.875000 -45.268820 +-62.338292 -45.000000 +-63.281250 -44.504491 +-64.687500 -43.852534 +-65.159142 -43.593750 +-66.093750 -42.990000 +-67.500000 -43.019794 +-68.087163 -43.593750 +-68.845642 -45.000000 +-67.500000 -46.367354 +-67.452770 -46.406250 +-67.500000 -46.493339 +-68.906250 -47.388351 +-70.004316 -47.812500 +-70.312500 -47.855026 +-71.718750 -47.847165 +-71.790131 -47.812500 +-73.125000 -46.791936 +-73.954350 -46.406250 +-74.531250 -46.072281 +-75.208313 -45.000000 +-75.937500 -44.085523 +-77.343750 -44.093677 +-78.750000 -43.689489 +-78.949953 -43.593750 +-80.156250 -42.579766 +-81.562500 -43.060948 +-82.319436 -42.187500 +-82.968750 -41.941098 +-83.355821 -40.781250 +-84.038051 -39.375000 +-84.375000 -38.771108 +-85.387676 -37.968750 +-85.781250 -37.023411 +-85.962504 -36.562500 +-85.781250 -35.859257 +-85.638029 -35.156250 +-85.781250 -35.035696 +-87.187500 -35.039529 +-87.394838 -35.156250 +-88.593750 -36.115801 +-89.616566 -36.562500 +-90.000000 -36.714251 +-91.220794 -36.562500 +-91.406250 -36.530659 +-92.812500 -36.469331 +-94.218750 -36.368878 +-95.625000 -35.826924 +-97.031250 -35.211144 +-97.143303 -35.156250 +-98.437500 -34.524126 +-99.843750 -33.886876 +-100.994574 -33.750000 +-101.250000 -33.733893 +-102.656250 -33.472808 +-104.062500 -32.777610 +-104.779544 -32.343750 +-105.468750 -32.001149 +-106.875000 -31.713500 +-108.281250 -31.347173 +-109.687500 -30.976271 +-111.093750 -30.962031 +-111.361814 -30.937500 +-112.500000 -30.901743 +-113.906250 -30.926397 +-113.999324 -30.937500 +-115.312500 -31.348213 +-116.718750 -31.421194 +-118.125000 -31.398662 +-119.531250 -31.375560 +-120.937500 -31.676998 +-122.343750 -32.200794 +-122.675081 -32.343750 +-123.750000 -32.909858 +-125.156250 -33.334260 +-126.189458 -33.750000 +-126.562500 -33.995793 +-127.583496 -35.156250 +-127.968750 -35.657318 +-128.648953 -36.562500 +-129.375000 -37.743390 +-129.552030 -37.968750 +-130.212477 -39.375000 +-130.427507 -40.781250 +-130.402822 -42.187500 +-130.769087 -43.593750 +-130.748785 -45.000000 +-129.978641 -46.406250 +-129.560548 -47.812500 +-129.375000 -48.612270 +7 +130.781250 -59.384157 +129.375000 -59.303709 +129.193649 -59.062500 +129.375000 -58.499491 +130.781250 -58.810047 +130.941102 -59.062500 +130.781250 -59.384157 +9 +130.781250 32.766130 +131.277591 33.750000 +131.459646 35.156250 +131.334084 36.562500 +130.781250 37.915490 +130.131062 36.562500 +129.569669 35.156250 +129.797986 33.750000 +130.781250 32.766130 +11 +129.375000 -56.868624 +128.689295 -57.656250 +127.968750 -57.922001 +127.464044 -57.656250 +126.999497 -56.250000 +127.967482 -54.843750 +127.968750 -54.843512 +127.969226 -54.843750 +129.375000 -56.094549 +129.476698 -56.250000 +129.375000 -56.868624 +7 +123.750000 39.122147 +124.094516 39.375000 +123.750000 40.449976 +122.343750 39.747303 +122.202590 39.375000 +122.343750 39.219136 +123.750000 39.122147 +7 +118.125000 -47.898176 +118.158337 -47.812500 +118.125000 -47.575481 +116.718750 -47.622820 +116.661572 -47.812500 +116.718750 -47.918461 +118.125000 -47.898176 +5 +116.718750 54.578429 +117.362725 54.843750 +116.718750 54.923085 +115.429378 54.843750 +116.718750 54.578429 +5 +113.906250 -46.489242 +114.060247 -46.406250 +113.906250 -46.249114 +113.545953 -46.406250 +113.906250 -46.489242 +17 +112.500000 -17.338297 +113.137743 -16.875000 +113.839244 -15.468750 +112.500000 -14.926392 +111.093750 -14.706097 +109.687500 -14.922662 +108.281250 -15.018992 +106.875000 -14.828893 +105.468750 -15.004605 +105.457410 -15.468750 +105.468750 -15.481828 +106.875000 -16.324165 +108.053326 -16.875000 +108.281250 -16.996332 +109.687500 -17.595411 +111.093750 -17.713198 +112.500000 -17.338297 +367 +112.500000 -5.027454 +113.691501 -4.218750 +113.535282 -2.812500 +113.304294 -1.406250 +112.628211 0.000000 +112.500000 1.052170 +112.462264 1.406250 +112.425115 2.812500 +111.093750 3.704617 +110.227471 4.218750 +109.687500 5.105245 +109.431021 5.625000 +109.578501 7.031250 +108.281250 7.781814 +107.592415 8.437500 +106.875000 9.388994 +105.540895 9.843750 +105.468750 9.858736 +104.062500 10.731057 +103.773901 11.250000 +103.733512 12.656250 +103.996038 14.062500 +104.062500 14.677170 +104.140290 15.468750 +104.084492 16.875000 +104.062500 17.088740 +103.882571 18.281250 +104.062500 18.695548 +104.318727 19.687500 +104.757748 21.093750 +104.959809 22.500000 +105.299736 23.906250 +104.062500 24.723979 +102.656250 25.190866 +102.497751 25.312500 +102.656250 25.405997 +103.284845 26.718750 +103.971662 28.125000 +104.062500 28.338380 +104.727580 29.531250 +105.441931 30.937500 +105.468750 30.987658 +106.159073 32.343750 +105.468750 33.414181 +104.925519 33.750000 +104.062500 34.301219 +103.519626 33.750000 +102.656250 33.333271 +101.250000 32.654677 +100.802020 32.343750 +99.843750 31.135552 +98.437500 31.060307 +97.048313 32.343750 +97.195012 33.750000 +97.031250 33.987125 +95.625000 34.859248 +95.175453 35.156250 +94.218750 36.415145 +94.066711 36.562500 +92.947426 37.968750 +93.466160 39.375000 +93.107140 40.781250 +92.812500 40.989708 +91.406250 42.176958 +90.460240 40.781250 +90.000000 40.329123 +88.593750 39.904911 +88.071175 40.781250 +87.187500 42.180846 +87.166523 42.187500 +85.781250 42.474308 +85.279748 42.187500 +84.375000 41.349939 +84.007973 40.781250 +82.968750 39.685764 +81.562500 39.469783 +80.489674 40.781250 +80.156250 41.002529 +78.750000 42.008158 +78.343566 42.187500 +77.343750 42.643781 +76.400383 43.593750 +75.937500 44.169620 +75.132289 45.000000 +74.531250 45.372887 +73.125000 45.856456 +71.718750 46.143766 +70.312500 46.116309 +68.906250 45.721763 +67.500000 45.238753 +66.655529 45.000000 +66.093750 44.789747 +64.687500 44.633495 +63.281250 44.619242 +61.875000 44.194629 +60.779058 43.593750 +60.468750 43.366014 +59.062500 42.197700 +59.049572 42.187500 +57.925228 40.781250 +58.132720 39.375000 +58.131382 37.968750 +57.656250 37.010759 +56.930479 36.562500 +56.250000 36.259123 +54.843750 35.813066 +53.437500 35.212683 +53.287686 35.156250 +52.139309 33.750000 +52.312799 32.343750 +52.031250 31.819914 +50.625000 31.477916 +49.218750 32.025960 +48.695365 32.343750 +47.812500 33.159689 +47.086060 33.750000 +46.406250 34.152955 +45.647113 33.750000 +46.406250 33.108716 +47.034540 32.343750 +47.812500 31.903154 +48.542473 30.937500 +49.218750 29.949715 +49.614662 29.531250 +50.625000 28.378502 +51.513818 28.125000 +52.031250 28.032773 +53.217681 26.718750 +53.437500 26.437500 +54.438582 25.312500 +54.183578 23.906250 +53.437500 22.889114 +52.031250 22.503863 +50.625000 23.660350 +49.218750 23.745725 +47.812500 23.199790 +47.183011 23.906250 +46.406250 24.306450 +45.000000 23.970150 +44.858644 23.906250 +43.593750 23.134719 +42.540417 23.906250 +42.187500 24.300732 +40.781250 24.918256 +40.267294 23.906250 +40.781250 22.952348 +41.310222 22.500000 +40.781250 21.556250 +40.661917 21.093750 +40.251331 19.687500 +40.147372 18.281250 +39.375000 16.993635 +39.292682 16.875000 +39.375000 16.794532 +40.781250 16.299354 +42.187500 16.345063 +42.991442 16.875000 +43.593750 17.239185 +44.329616 18.281250 +45.000000 19.174772 +45.361599 19.687500 +46.406250 20.650896 +47.146627 21.093750 +47.812500 21.885608 +49.218750 22.341767 +50.625000 22.117135 +51.783312 21.093750 +52.031250 20.438914 +52.918014 19.687500 +53.437500 19.270862 +54.843750 19.376893 +55.532437 18.281250 +55.163056 16.875000 +54.843750 16.644044 +54.268955 16.875000 +53.437500 17.671736 +52.031250 17.185335 +52.011842 16.875000 +51.744593 15.468750 +51.047153 14.062500 +50.625000 13.486085 +49.499390 12.656250 +49.218750 12.310225 +47.812500 11.417401 +46.731729 11.250000 +47.812500 10.990020 +49.218750 10.182798 +50.625000 10.741631 +51.191235 11.250000 +52.031250 11.919699 +53.437500 12.058148 +53.911486 11.250000 +53.788880 9.843750 +53.437500 9.124521 +53.029879 8.437500 +52.458439 7.031250 +52.031250 5.632509 +52.023924 5.625000 +51.788969 4.218750 +50.955110 2.812500 +50.625000 2.415858 +50.289670 2.812500 +49.489085 4.218750 +49.218750 4.515226 +47.812500 5.566032 +47.694823 5.625000 +46.406250 6.033911 +45.329497 5.625000 +46.073019 4.218750 +46.406250 3.725518 +47.015423 2.812500 +47.805015 1.406250 +47.812500 1.392986 +48.825585 0.000000 +48.286930 -1.406250 +47.812500 -1.958785 +47.392710 -2.812500 +47.414358 -4.218750 +47.756144 -5.625000 +47.812500 -6.003494 +47.923741 -7.031250 +48.301731 -8.437500 +48.602870 -9.843750 +48.511847 -11.250000 +49.218750 -12.157123 +49.779430 -12.656250 +50.625000 -13.496729 +50.851080 -14.062500 +50.681275 -15.468750 +51.194534 -16.875000 +52.031250 -17.448653 +53.059149 -18.281250 +53.437500 -18.490316 +54.843750 -19.234051 +55.787014 -19.687500 +56.250000 -19.890579 +57.656250 -20.559787 +58.633390 -21.093750 +59.062500 -21.384044 +60.468750 -22.335327 +61.875000 -22.399176 +63.281250 -22.230013 +64.687500 -22.218686 +66.093750 -22.200605 +67.500000 -22.474822 +67.541852 -22.500000 +68.906250 -23.502474 +70.312500 -23.406768 +70.925472 -22.500000 +71.314368 -21.093750 +71.718750 -20.561846 +73.125000 -20.812724 +73.601473 -21.093750 +74.531250 -21.754885 +75.823764 -22.500000 +75.937500 -22.604479 +77.186893 -23.906250 +77.343750 -24.131281 +77.685249 -23.906250 +78.750000 -23.127652 +80.156250 -23.463299 +80.982558 -23.906250 +81.562500 -24.688106 +82.968750 -24.673810 +83.382823 -23.906250 +84.375000 -23.422952 +85.781250 -23.057287 +87.187500 -22.972309 +88.593750 -22.870325 +89.613261 -22.500000 +90.000000 -22.315265 +91.406250 -21.325007 +91.706126 -21.093750 +92.698830 -19.687500 +92.812500 -19.573137 +94.218750 -19.054332 +95.625000 -18.347147 +95.724349 -18.281250 +97.031250 -17.202045 +97.544885 -16.875000 +98.437500 -15.795843 +98.640356 -15.468750 +99.843750 -14.695988 +101.159596 -14.062500 +101.250000 -14.011490 +102.656250 -13.244316 +103.335303 -12.656250 +103.212748 -11.250000 +102.656250 -10.627182 +101.250000 -10.072671 +100.839393 -9.843750 +99.843750 -9.595465 +98.437500 -9.400944 +97.031250 -9.142872 +95.625000 -8.901246 +94.273145 -8.437500 +94.218750 -8.411646 +92.812500 -7.636648 +91.406250 -7.343531 +90.000000 -7.607817 +88.593750 -8.393947 +88.554833 -8.437500 +87.187500 -9.707238 +85.781250 -9.793092 +85.647284 -9.843750 +84.375000 -10.567793 +83.235861 -11.250000 +82.968750 -11.574154 +82.755623 -11.250000 +81.800718 -9.843750 +81.562500 -9.585343 +80.570077 -8.437500 +80.156250 -8.151398 +78.750000 -7.473456 +77.513921 -7.031250 +77.343750 -6.370288 +77.159779 -5.625000 +77.343750 -5.525356 +78.750000 -4.997151 +80.156250 -4.796495 +81.492683 -5.625000 +81.562500 -5.671527 +82.968750 -5.662469 +83.010983 -5.625000 +84.375000 -4.798760 +85.229289 -4.218750 +85.781250 -3.932667 +87.187500 -3.796423 +88.593750 -4.067968 +90.000000 -3.829571 +91.406250 -3.652462 +92.812500 -4.022308 +93.603554 -4.218750 +94.218750 -4.409537 +95.625000 -5.042642 +96.450735 -5.625000 +97.031250 -5.802720 +98.437500 -5.660053 +98.526058 -5.625000 +99.843750 -4.949274 +101.250000 -4.746544 +101.993899 -4.218750 +102.472372 -2.812500 +101.250000 -1.496678 +101.115525 -1.406250 +99.843750 -0.380591 +98.437500 -0.401710 +97.621702 0.000000 +97.168655 1.406250 +98.254295 2.812500 +98.437500 3.245815 +99.843750 3.982879 +100.084187 2.812500 +100.053258 1.406250 +101.250000 0.060103 +102.656250 0.419959 +104.062500 0.435412 +104.988690 0.000000 +105.468750 -0.530747 +106.015677 -1.406250 +106.875000 -2.271264 +108.281250 -2.574159 +108.795840 -2.812500 +109.687500 -3.382729 +110.540878 -4.218750 +111.093750 -4.619177 +112.500000 -5.027454 +5 +112.500000 54.836459 +112.544631 54.843750 +112.500000 54.849265 +112.148427 54.843750 +112.500000 54.836459 +7 +-109.687500 -83.027477 +-108.281250 -83.336879 +-107.383982 -82.968750 +-108.281250 -82.733600 +-109.687500 -82.945536 +-109.830788 -82.968750 +-109.687500 -83.027477 +5 +111.093750 27.663126 +112.112836 28.125000 +111.093750 28.584755 +110.714918 28.125000 +111.093750 27.663126 +9 +111.093750 40.889756 +111.432346 42.187500 +111.093750 42.403744 +110.413683 42.187500 +109.687500 41.683103 +109.225358 40.781250 +109.687500 39.419309 +111.034749 40.781250 +111.093750 40.889756 +9 +108.281250 -49.977481 +108.942943 -49.218750 +108.281250 -48.219880 +106.989748 -47.812500 +106.875000 -47.626014 +106.839526 -47.812500 +106.380033 -49.218750 +106.875000 -50.468955 +108.281250 -49.977481 +7 +108.281250 -45.140104 +108.351468 -45.000000 +108.281250 -44.769970 +106.875000 -44.389546 +106.653613 -45.000000 +106.875000 -45.946984 +108.281250 -45.140104 +175 +108.281250 64.496617 +108.779828 64.687500 +108.281250 65.520840 +108.062680 66.093750 +107.601915 67.500000 +106.875000 68.193645 +105.468750 68.370487 +104.062500 68.899930 +104.058110 68.906250 +104.040027 70.312500 +104.062500 70.368734 +104.541547 71.718750 +104.062500 71.902043 +102.656250 72.506236 +101.762276 73.125000 +101.250000 73.340748 +99.843750 73.697163 +98.437500 74.123591 +97.031250 74.483317 +95.625000 73.953932 +94.218750 73.904616 +92.812500 74.352285 +92.445825 74.531250 +91.406250 74.852927 +90.000000 75.111680 +88.593750 75.328576 +87.187500 75.219366 +85.781250 74.990253 +84.375000 75.100016 +82.968750 75.347844 +81.562500 75.564616 +80.156250 75.284457 +78.750000 75.822636 +78.625644 75.937500 +77.343750 76.189690 +75.937500 76.486467 +74.531250 76.890156 +73.125000 77.066183 +71.718750 76.990175 +70.312500 76.613517 +69.341213 75.937500 +68.906250 75.197946 +67.776260 74.531250 +67.500000 73.683277 +66.494130 74.531250 +66.093750 74.583234 +64.687500 74.540997 +63.281250 74.610878 +62.582089 75.937500 +61.875000 76.380238 +60.468750 76.821050 +59.062500 76.708558 +57.656250 76.193438 +57.208631 77.343750 +56.250000 77.800007 +54.843750 77.725268 +53.490928 77.343750 +53.437500 77.331744 +52.031250 76.807820 +50.625000 76.029600 +50.499174 75.937500 +49.629249 74.531250 +50.039315 73.125000 +50.625000 72.322705 +52.031250 72.010011 +53.437500 71.962331 +54.345798 73.125000 +54.843750 73.477217 +55.700955 74.531250 +56.250000 75.351267 +57.403673 74.531250 +57.656250 74.032951 +59.062500 73.416991 +60.468750 73.506314 +61.875000 73.631475 +63.281250 73.929915 +63.497409 73.125000 +63.281250 72.677587 +62.521668 71.718750 +61.875000 70.728693 +61.461557 70.312500 +60.468750 69.700892 +59.062500 70.175628 +58.893464 70.312500 +57.656250 71.244337 +56.250000 71.666021 +54.843750 71.672949 +53.437500 71.198077 +52.031250 70.668199 +51.006323 70.312500 +51.188261 68.906250 +50.625000 68.220384 +49.218750 67.732296 +48.994862 67.500000 +49.218750 67.111750 +49.845997 66.093750 +50.625000 65.036612 +51.553525 64.687500 +52.031250 64.634541 +52.171904 64.687500 +53.437500 65.194453 +54.843750 64.849933 +55.029873 64.687500 +56.250000 64.210063 +57.656250 64.028647 +59.062500 64.002019 +60.468750 64.141752 +61.875000 64.222041 +63.281250 64.298117 +64.687500 64.650759 +65.173826 64.687500 +66.093750 64.766932 +67.500000 65.262518 +68.527138 66.093750 +68.413327 67.500000 +67.500000 68.019737 +66.093750 68.305813 +64.687500 68.280665 +63.281250 68.699610 +62.896454 68.906250 +63.281250 69.302733 +64.687500 70.045620 +65.338407 70.312500 +66.093750 70.510302 +67.500000 71.251060 +68.906250 71.516912 +70.312500 70.464962 +70.445472 70.312500 +71.718750 69.398382 +73.125000 69.885626 +73.663399 70.312500 +74.531250 70.973005 +75.937500 70.975443 +77.343750 70.756326 +78.750000 70.736452 +80.156250 71.476212 +80.501704 71.718750 +81.562500 72.453458 +82.968750 72.483924 +84.375000 72.295545 +85.781250 71.788218 +85.917498 71.718750 +87.187500 71.233814 +87.934357 70.312500 +88.263059 68.906250 +88.593750 67.526782 +88.622901 67.500000 +88.593750 67.478429 +87.187500 66.590383 +86.702461 66.093750 +86.763812 64.687500 +87.187500 64.134745 +88.593750 63.400287 +88.871863 63.281250 +90.000000 63.031828 +91.406250 62.700129 +92.812500 62.887039 +93.373749 63.281250 +94.218750 63.940224 +95.625000 64.403220 +97.031250 64.513645 +98.280980 64.687500 +98.437500 64.727325 +98.742944 64.687500 +99.843750 64.547267 +101.250000 64.128601 +101.683268 64.687500 +102.656250 65.726718 +103.837018 66.093750 +104.062500 66.171006 +104.158597 66.093750 +105.468750 64.750573 +105.995454 64.687500 +106.875000 64.641817 +108.281250 64.496617 +9 +105.468750 35.563644 +106.628547 36.562500 +106.868835 37.968750 +105.468750 38.854623 +104.062500 38.629273 +103.448139 37.968750 +102.947615 36.562500 +104.062500 35.669540 +105.468750 35.563644 +5 +104.062500 -70.804290 +103.470938 -70.312500 +104.062500 -70.214786 +104.235795 -70.312500 +104.062500 -70.804290 +5 +102.656250 50.435556 +103.391131 50.625000 +102.656250 50.891746 +102.154306 50.625000 +102.656250 50.435556 +5 +-99.843750 46.286483 +-99.671263 46.406250 +-99.843750 47.097913 +-100.411917 46.406250 +-99.843750 46.286483 +21 +-98.437500 14.847284 +-97.031250 15.157180 +-95.625000 14.567685 +-94.629696 15.468750 +-94.218750 15.801189 +-93.241517 16.875000 +-92.812500 17.218486 +-91.406250 18.214529 +-91.370782 18.281250 +-91.406250 18.521307 +-91.736322 19.687500 +-92.812500 20.040495 +-94.218750 20.338300 +-95.625000 20.217927 +-96.486343 19.687500 +-97.031250 19.391059 +-98.437500 18.490210 +-98.625042 18.281250 +-99.433252 16.875000 +-98.750348 15.468750 +-98.437500 14.847284 +9 +99.843750 -72.007754 +98.437500 -72.066420 +97.699898 -71.718750 +98.437500 -71.127972 +99.399223 -70.312500 +99.843750 -70.070185 +101.030336 -70.312500 +100.641850 -71.718750 +99.843750 -72.007754 +143 +-91.406250 41.082352 +-91.268204 40.781250 +-90.000000 39.616095 +-89.386925 39.375000 +-88.593750 39.085770 +-87.187500 38.472189 +-86.251478 37.968750 +-85.781250 37.801126 +-84.375000 37.464243 +-82.968750 36.747771 +-82.668414 36.562500 +-81.606894 35.156250 +-81.562500 34.927544 +-81.218843 33.750000 +-80.622103 32.343750 +-80.156250 31.843261 +-79.192648 30.937500 +-78.750000 30.280695 +-78.282569 29.531250 +-77.343750 28.515617 +-76.858064 28.125000 +-75.937500 27.646528 +-74.531250 26.860155 +-74.315837 26.718750 +-73.125000 25.905443 +-72.474821 25.312500 +-71.718750 24.323232 +-71.438727 23.906250 +-70.717260 22.500000 +-70.312500 22.035371 +-68.906250 21.296896 +-68.299620 21.093750 +-67.500000 20.694304 +-66.093750 20.432018 +-64.687500 20.663632 +-63.281250 20.785141 +-61.905160 21.093750 +-61.875000 21.102629 +-60.468750 21.814630 +-59.452348 22.500000 +-59.062500 22.903233 +-58.709492 22.500000 +-58.690834 21.093750 +-59.012981 19.687500 +-59.062500 19.547022 +-59.325118 18.281250 +-59.541478 16.875000 +-59.656327 15.468750 +-59.322183 14.062500 +-59.062500 13.810095 +-57.656250 13.965234 +-56.250000 14.020802 +-54.843750 13.951207 +-53.799048 14.062500 +-53.437500 14.189985 +-53.243980 14.062500 +-52.031250 13.783572 +-50.625000 13.646667 +-49.218750 13.741199 +-47.812500 13.757142 +-46.917064 14.062500 +-46.406250 14.405487 +-45.821426 15.468750 +-45.573312 16.875000 +-45.400139 18.281250 +-45.646514 19.687500 +-46.144771 21.093750 +-46.338349 22.500000 +-45.653519 23.906250 +-45.796886 25.312500 +-46.406250 26.153216 +-46.849063 26.718750 +-47.109291 28.125000 +-46.406250 29.246878 +-45.000000 29.456401 +-44.803767 29.531250 +-44.265316 30.937500 +-44.187937 32.343750 +-43.593750 33.217922 +-42.471485 33.750000 +-42.187500 34.004226 +-41.678280 35.156250 +-42.028005 36.562500 +-42.187500 36.808969 +-43.021437 37.968750 +-42.302046 39.375000 +-42.187500 39.480230 +-40.781250 40.112144 +-39.375000 40.514944 +-38.428209 40.781250 +-37.968750 41.416982 +-37.744451 42.187500 +-37.951667 43.593750 +-37.968750 44.255904 +-37.984433 45.000000 +-39.375000 45.665885 +-40.781250 46.277789 +-40.944879 46.406250 +-42.187500 47.084958 +-42.816288 47.812500 +-43.482278 49.218750 +-43.593750 49.369840 +-45.000000 49.345810 +-46.406250 49.427013 +-47.812500 50.207935 +-49.218750 50.624821 +-50.625000 49.994625 +-52.031250 49.251188 +-53.437500 49.486536 +-54.843750 49.610087 +-56.250000 49.939739 +-57.656250 50.397263 +-59.062500 50.208472 +-60.468750 49.552844 +-61.875000 49.333373 +-63.281250 49.623119 +-64.687500 49.877936 +-66.093750 50.146350 +-67.500000 50.181707 +-68.906250 49.888303 +-70.312500 49.676065 +-71.718750 49.420703 +-72.556870 49.218750 +-73.125000 48.338664 +-74.531250 48.203536 +-75.937500 48.488776 +-77.343750 48.097480 +-77.864882 47.812500 +-78.750000 46.777174 +-80.156250 46.635987 +-81.562500 46.834258 +-82.968750 47.169308 +-84.375000 46.980035 +-85.781250 46.470539 +-85.873259 46.406250 +-87.187500 45.197914 +-87.573914 45.000000 +-88.593750 44.317908 +-90.000000 43.654178 +-90.181454 43.593750 +-91.406250 42.693010 +-91.933558 42.187500 +-91.406250 41.082352 +13 +92.812500 -70.327940 +91.406250 -70.632513 +90.000000 -70.852474 +88.593750 -70.428528 +88.425722 -70.312500 +88.593750 -70.128864 +89.392105 -68.906250 +90.000000 -68.567806 +91.406250 -68.282984 +92.812500 -68.376451 +93.337721 -68.906250 +92.841470 -70.312500 +92.812500 -70.327940 +11 +92.812500 44.483357 +93.396895 45.000000 +92.812500 45.564285 +91.406250 45.880082 +90.000000 45.356003 +89.289742 45.000000 +89.770265 43.593750 +90.000000 43.453347 +91.406250 42.216143 +91.893114 43.593750 +92.812500 44.483357 +9 +-90.000000 -63.316531 +-88.593750 -63.383460 +-88.415641 -63.281250 +-88.593750 -62.344615 +-88.726868 -61.875000 +-90.000000 -61.328569 +-91.292634 -61.875000 +-90.078142 -63.281250 +-90.000000 -63.316531 +23 +-87.187500 -50.775213 +-87.296070 -50.625000 +-87.187500 -50.481534 +-85.781250 -49.461161 +-85.390174 -49.218750 +-84.375000 -48.096738 +-82.968750 -48.584503 +-81.562500 -48.580152 +-80.198190 -49.218750 +-80.384589 -50.625000 +-80.156250 -51.789684 +-79.919502 -52.031250 +-78.750000 -53.153088 +-78.189732 -53.437500 +-78.750000 -54.061873 +-80.156250 -54.162648 +-81.562500 -53.793324 +-82.835648 -53.437500 +-82.968750 -53.398269 +-84.375000 -52.890457 +-85.781250 -52.421844 +-86.422128 -52.031250 +-87.187500 -50.775213 +7 +-85.781250 -68.139646 +-84.730690 -67.500000 +-84.942875 -66.093750 +-85.781250 -65.365937 +-86.370127 -66.093750 +-86.630115 -67.500000 +-85.781250 -68.139646 +17 +-84.375000 73.224190 +-84.225885 73.125000 +-82.968750 72.766027 +-81.562500 72.889391 +-80.951189 73.125000 +-80.156250 73.305902 +-78.750000 73.843396 +-77.802963 74.531250 +-78.750000 75.737779 +-79.968164 75.937500 +-80.156250 75.947452 +-80.230799 75.937500 +-81.562500 75.740026 +-82.968750 75.419560 +-84.375000 74.890358 +-84.965818 74.531250 +-84.375000 73.224190 +5 +82.968750 -27.131382 +83.133798 -26.718750 +82.968750 -26.168254 +82.725485 -26.718750 +82.968750 -27.131382 +7 +-80.156250 -70.374379 +-78.750000 -70.457833 +-78.447378 -70.312500 +-78.750000 -69.649222 +-80.156250 -70.175975 +-80.338275 -70.312500 +-80.156250 -70.374379 +7 +-77.343750 -57.805612 +-77.723752 -57.656250 +-77.748787 -56.250000 +-77.343750 -55.879922 +-77.091810 -56.250000 +-76.574033 -57.656250 +-77.343750 -57.805612 +5 +78.750000 26.655112 +78.610766 26.718750 +78.750000 26.768265 +78.781006 26.718750 +78.750000 26.655112 +13 +-75.937500 -53.404669 +-76.676678 -52.031250 +-76.150888 -50.625000 +-75.937500 -50.329382 +-75.111858 -49.218750 +-74.531250 -48.759051 +-73.799114 -49.218750 +-73.607805 -50.625000 +-73.890543 -52.031250 +-73.740074 -53.437500 +-74.531250 -53.682619 +-75.876303 -53.437500 +-75.937500 -53.404669 +15 +77.343750 8.996098 +76.228960 8.437500 +75.937500 8.277459 +75.318342 8.437500 +74.531250 8.838401 +74.069904 9.843750 +74.531250 10.999617 +74.633411 11.250000 +75.937500 12.343695 +76.819817 12.656250 +77.343750 12.892890 +77.713363 12.656250 +78.436147 11.250000 +78.076698 9.843750 +77.343750 8.996098 +9 +-74.531250 -44.062941 +-73.125000 -44.082172 +-72.757962 -43.593750 +-73.107424 -42.187500 +-73.125000 -42.169726 +-73.157837 -42.187500 +-74.531250 -43.232967 +-75.183290 -43.593750 +-74.531250 -44.062941 +7 +-74.531250 74.191903 +-73.125000 73.586036 +-72.187331 74.531250 +-73.125000 74.851037 +-74.531250 74.613895 +-74.682907 74.531250 +-74.531250 74.191903 +15 +74.531250 24.349124 +74.351497 23.906250 +73.125000 22.599112 +72.803715 22.500000 +71.718750 21.897791 +71.293380 22.500000 +70.939705 23.906250 +70.996385 25.312500 +71.718750 26.348564 +72.180223 26.718750 +73.125000 27.340307 +74.496944 26.718750 +74.531250 26.666131 +75.191646 25.312500 +74.531250 24.349124 +5 +73.125000 -47.062617 +73.627672 -46.406250 +73.125000 -46.037979 +71.899013 -46.406250 +73.125000 -47.062617 +131 +-70.312500 -62.343093 +-69.378550 -63.281250 +-68.906250 -63.851579 +-67.500000 -64.373549 +-66.093750 -64.186807 +-64.687500 -63.768737 +-63.281250 -63.933169 +-61.875000 -63.489221 +-61.717677 -63.281250 +-60.577572 -61.875000 +-60.468750 -61.815242 +-59.542871 -60.468750 +-59.349651 -59.062500 +-59.062500 -58.569642 +-57.656250 -58.052266 +-56.522328 -59.062500 +-56.250000 -59.747143 +-55.931021 -60.468750 +-56.198195 -61.875000 +-54.843750 -62.969561 +-53.437500 -63.040444 +-52.031250 -62.710139 +-50.625000 -62.801252 +-50.376467 -63.281250 +-50.433774 -64.687500 +-49.218750 -65.950248 +-48.576751 -66.093750 +-47.812500 -66.306567 +-46.406250 -66.209762 +-46.223372 -66.093750 +-45.000000 -65.197774 +-43.593750 -64.741298 +-42.187500 -64.940958 +-41.636790 -64.687500 +-40.781250 -64.256423 +-39.375000 -64.095287 +-37.968750 -64.476311 +-37.113867 -63.281250 +-37.183644 -61.875000 +-36.854714 -60.468750 +-37.968750 -59.688313 +-39.375000 -59.844397 +-40.781250 -60.154567 +-42.187500 -60.194737 +-43.593750 -59.424407 +-45.000000 -59.366516 +-45.730799 -59.062500 +-45.412949 -57.656250 +-46.406250 -57.481511 +-47.812500 -56.516834 +-49.015083 -57.656250 +-49.218750 -57.740035 +-50.625000 -58.275441 +-52.031250 -57.926403 +-52.325646 -57.656250 +-52.031250 -57.095918 +-51.641338 -56.250000 +-50.625000 -55.505351 +-49.218750 -55.446434 +-47.812500 -55.505062 +-47.240749 -54.843750 +-46.406250 -54.577230 +-45.000000 -53.696045 +-44.664635 -53.437500 +-44.267597 -52.031250 +-44.621132 -50.625000 +-43.593750 -49.602620 +-42.187500 -49.291494 +-42.111541 -49.218750 +-41.178358 -47.812500 +-41.968521 -46.406250 +-41.966063 -45.000000 +-40.781250 -44.120041 +-39.375000 -43.951861 +-37.968750 -43.751141 +-37.751703 -43.593750 +-37.968750 -43.327395 +-39.375000 -42.595129 +-39.670066 -42.187500 +-40.781250 -40.924661 +-41.148823 -40.781250 +-42.187500 -40.527469 +-42.474945 -40.781250 +-43.593750 -41.782396 +-44.248536 -42.187500 +-45.000000 -42.653170 +-46.406250 -42.621175 +-47.812500 -43.233226 +-48.539015 -43.593750 +-47.812500 -43.834050 +-46.522810 -45.000000 +-46.406250 -45.117865 +-45.961905 -46.406250 +-46.406250 -47.026260 +-47.785881 -47.812500 +-47.812500 -47.850013 +-48.222347 -49.218750 +-49.119423 -50.625000 +-49.218750 -50.733522 +-49.759391 -52.031250 +-50.625000 -53.264362 +-50.955252 -53.437500 +-52.031250 -53.916276 +-53.437412 -54.843750 +-53.437500 -54.843837 +-54.774087 -56.250000 +-54.843750 -56.297705 +-56.250000 -56.730559 +-57.656250 -57.015372 +-59.062500 -56.549554 +-60.388800 -56.250000 +-60.468750 -56.193443 +-60.501949 -56.250000 +-60.731169 -57.656250 +-61.875000 -58.128958 +-62.573711 -57.656250 +-63.281250 -56.516704 +-64.238808 -56.250000 +-64.687500 -56.049105 +-65.040598 -56.250000 +-66.093750 -56.687633 +-67.033915 -57.656250 +-66.093750 -58.525688 +-65.851114 -59.062500 +-66.093750 -59.636637 +-67.500000 -59.961459 +-68.906250 -60.167243 +-69.198349 -60.468750 +-70.312500 -61.480061 +-70.788560 -61.875000 +-70.312500 -62.343093 +9 +71.718750 66.090486 +71.728050 66.093750 +72.782355 67.500000 +71.718750 68.454474 +70.312500 67.681318 +70.030514 67.500000 +70.312500 67.171886 +71.688626 66.093750 +71.718750 66.090486 +5 +-68.906250 74.418068 +-68.667544 74.531250 +-68.906250 74.692021 +-69.260872 74.531250 +-68.906250 74.418068 +137 +-68.906250 78.336779 +-67.500000 77.367464 +-66.093750 77.518381 +-64.687500 77.488653 +-63.281250 77.890030 +-61.875000 77.531331 +-61.700517 77.343750 +-60.468750 76.504792 +-59.062500 76.518734 +-57.656250 76.826568 +-56.250000 77.062501 +-54.843750 76.862079 +-53.437500 76.824342 +-52.031250 76.585306 +-51.004496 75.937500 +-50.625000 75.039979 +-49.218750 75.079897 +-49.100598 75.937500 +-48.592397 77.343750 +-47.812500 77.911819 +-46.406250 78.258231 +-45.000000 78.284244 +-43.593750 78.183101 +-42.187500 77.563059 +-42.109998 77.343750 +-42.187500 77.130897 +-42.791105 75.937500 +-42.187500 75.197410 +-40.781250 74.727400 +-39.375000 74.662349 +-37.968750 74.929953 +-36.562500 75.579487 +-35.156250 75.527859 +-33.750000 75.538343 +-32.343750 75.438623 +-30.937500 75.073962 +-29.531250 75.034980 +-28.125000 74.990378 +-27.166022 74.531250 +-26.718750 74.179952 +-25.312500 73.707848 +-23.906250 73.650493 +-22.500000 73.995223 +-21.964162 74.531250 +-21.093750 74.812213 +-19.687500 74.943631 +-18.281250 74.831619 +-17.029634 74.531250 +-17.787323 73.125000 +-17.066882 71.718750 +-16.875000 71.559476 +-15.468750 71.310095 +-14.816574 71.718750 +-14.062500 72.514370 +-13.651756 73.125000 +-12.656250 74.127100 +-11.250000 73.620188 +-9.843750 73.411093 +-8.437500 73.339302 +-7.031250 73.415139 +-5.625000 73.585664 +-4.218750 73.629727 +-2.812500 73.683796 +-1.406250 73.785680 +0.000000 74.204741 +0.403279 74.531250 +1.406250 74.858142 +2.812500 74.982569 +4.218750 75.472030 +4.812635 75.937500 +4.920386 77.343750 +4.218750 77.658432 +2.812500 77.991344 +1.406250 77.928800 +0.000000 77.892974 +-1.406250 78.080945 +-2.812500 78.197513 +-4.218750 78.192876 +-5.625000 78.110900 +-7.031250 78.147962 +-8.437500 78.258916 +-9.843750 78.263410 +-11.250000 78.140191 +-12.656250 78.235170 +-14.062500 78.685791 +-14.563223 78.750000 +-15.468750 78.923289 +-16.474446 78.750000 +-16.875000 78.706022 +-18.281250 78.628034 +-19.687500 78.439743 +-21.093750 78.236829 +-22.500000 78.577172 +-23.043004 78.750000 +-23.664238 80.156250 +-23.906250 80.255292 +-25.216641 80.156250 +-25.312500 80.125360 +-26.300629 78.750000 +-26.718750 78.595818 +-28.125000 77.843388 +-29.531250 77.425884 +-30.018986 77.343750 +-30.937500 77.036545 +-32.343750 76.752545 +-33.750000 76.745210 +-35.156250 76.186381 +-36.562500 76.506540 +-36.770858 77.343750 +-37.968750 78.325239 +-39.069683 78.750000 +-39.375000 78.945062 +-40.781250 79.055157 +-42.187500 79.169528 +-43.593750 79.228400 +-45.000000 79.200381 +-46.406250 79.205712 +-47.812500 79.342024 +-49.218750 79.543719 +-50.625000 79.715996 +-52.031250 79.810889 +-53.437500 79.897242 +-54.843750 80.017817 +-56.250000 80.110598 +-57.656250 79.906918 +-59.062500 79.728147 +-60.468750 79.776590 +-61.875000 79.773651 +-63.281250 80.053596 +-63.476895 80.156250 +-64.687500 80.438270 +-66.093750 80.880463 +-67.500000 80.862698 +-68.441577 80.156250 +-68.906250 79.314308 +-69.101718 78.750000 +-68.906250 78.336779 +9 +68.906250 -0.356779 +67.500000 -1.189417 +66.545534 0.000000 +67.301451 1.406250 +67.500000 1.649338 +68.906250 1.872422 +69.244161 1.406250 +69.187275 0.000000 +68.906250 -0.356779 +39 +-66.093750 -69.839363 +-64.687500 -69.787815 +-63.281250 -69.799771 +-62.332139 -70.312500 +-61.875000 -70.378454 +-60.468750 -70.834736 +-59.501679 -71.718750 +-59.062500 -72.012022 +-57.656250 -72.100458 +-56.518061 -71.718750 +-56.250000 -71.577586 +-54.843750 -70.393181 +-54.797802 -70.312500 +-54.346207 -68.906250 +-53.437500 -68.442923 +-52.346116 -67.500000 +-53.437500 -66.894012 +-54.843750 -66.713558 +-55.561616 -67.500000 +-55.830694 -68.906250 +-56.250000 -68.998188 +-56.412815 -68.906250 +-57.016226 -67.500000 +-56.250000 -66.628796 +-55.648584 -66.093750 +-56.250000 -65.663347 +-57.656250 -65.817385 +-58.410926 -66.093750 +-59.062500 -66.354517 +-60.468750 -66.709619 +-61.875000 -67.137219 +-63.131265 -67.500000 +-63.281250 -67.696035 +-63.437231 -67.500000 +-64.687500 -67.178272 +-66.093750 -67.154533 +-66.993900 -67.500000 +-67.036841 -68.906250 +-66.093750 -69.839363 +23 +61.875000 -11.595886 +60.468750 -12.545043 +59.864086 -12.656250 +59.062500 -12.947848 +58.627677 -12.656250 +57.656250 -12.072057 +56.964834 -11.250000 +56.250000 -10.088192 +55.789818 -9.843750 +54.843750 -8.881057 +54.050502 -8.437500 +54.843750 -7.657140 +56.161561 -7.031250 +56.250000 -7.008614 +57.656250 -5.930828 +59.062500 -5.793434 +60.468750 -6.317548 +61.729256 -7.031250 +61.875000 -7.133936 +62.800952 -8.437500 +62.861415 -9.843750 +62.181476 -11.250000 +61.875000 -11.595886 +5 +-57.656250 23.999853 +-57.738647 25.312500 +-57.656250 25.485892 +-57.316347 25.312500 +-57.656250 23.999853 +35 +-56.250000 28.247901 +-56.425759 29.531250 +-56.657337 30.937500 +-56.499841 32.343750 +-56.609857 33.750000 +-56.767560 35.156250 +-56.250000 36.270896 +-54.843750 36.374506 +-53.437500 36.168277 +-52.031250 36.145575 +-51.094951 36.562500 +-50.625000 37.496094 +-50.507471 37.968750 +-49.218750 39.026294 +-47.812500 38.990453 +-46.406250 38.491033 +-45.399354 37.968750 +-45.000000 37.588188 +-43.950045 36.562500 +-44.393649 35.156250 +-45.000000 34.575878 +-46.406250 34.228850 +-47.812500 33.954255 +-48.116544 33.750000 +-49.218750 32.674067 +-49.440705 32.343750 +-50.597268 30.937500 +-50.625000 30.914810 +-51.772263 29.531250 +-52.031250 29.336727 +-53.437500 28.607606 +-54.390340 28.125000 +-54.843750 27.807722 +-56.182084 28.125000 +-56.250000 28.247901 +13 +56.250000 -79.342040 +54.843750 -79.723654 +53.437500 -79.671045 +52.031250 -78.888483 +51.848749 -78.750000 +52.031250 -78.167542 +52.400552 -77.343750 +53.437500 -76.516864 +54.843750 -77.179833 +55.071246 -77.343750 +56.250000 -78.062092 +56.751512 -78.750000 +56.250000 -79.342040 +25 +-53.437500 -39.947304 +-52.375509 -40.781250 +-52.343950 -42.187500 +-53.085636 -43.593750 +-53.377945 -45.000000 +-52.878026 -46.406250 +-52.050723 -47.812500 +-52.031250 -47.880941 +-51.986330 -47.812500 +-50.625000 -46.838411 +-49.744612 -46.406250 +-49.218750 -45.442634 +-49.066232 -45.000000 +-49.218750 -44.456013 +-49.362822 -43.593750 +-49.851333 -42.187500 +-49.841717 -40.781250 +-49.695526 -39.375000 +-50.625000 -38.880834 +-51.485935 -37.968750 +-52.031250 -37.562046 +-53.437500 -37.572591 +-54.315367 -37.968750 +-54.380781 -39.375000 +-53.437500 -39.947304 +5 +54.843750 27.083346 +54.523181 28.125000 +54.843750 28.740909 +55.128060 28.125000 +54.843750 27.083346 +9 +-43.593750 -57.543310 +-42.187500 -57.011847 +-40.781250 -56.449497 +-40.433891 -56.250000 +-40.781250 -56.013050 +-42.187500 -55.638269 +-43.593750 -55.574128 +-44.381797 -56.250000 +-43.593750 -57.543310 +13 +45.000000 10.985729 +46.059149 11.250000 +45.000000 11.422924 +43.593750 12.114558 +42.678031 12.656250 +42.187500 12.827624 +41.735755 12.656250 +40.781250 11.747490 +40.436364 11.250000 +40.781250 11.057088 +42.187500 10.730738 +43.593750 10.734509 +45.000000 10.985729 +23 +43.593750 77.213988 +43.823332 77.343750 +43.593750 77.462225 +42.651260 78.750000 +42.187500 78.937323 +40.781250 79.058372 +39.507320 78.750000 +39.375000 78.688531 +37.968750 78.239566 +36.562500 78.200043 +35.156250 78.583923 +33.750000 78.164047 +33.009616 77.343750 +33.750000 76.098002 +35.156250 76.017237 +36.317725 75.937500 +36.562500 75.904890 +37.968750 75.573814 +38.914811 75.937500 +39.375000 76.045636 +40.781250 76.058129 +42.187500 76.222471 +43.593750 77.213988 +7 +-40.781250 -52.403595 +-39.375000 -52.111325 +-39.041118 -52.031250 +-39.375000 -51.986511 +-40.781250 -51.210077 +-41.782154 -52.031250 +-40.781250 -52.403595 +7 +-39.375000 -48.092336 +-37.968750 -47.824196 +-37.957093 -47.812500 +-37.968750 -47.807084 +-39.375000 -47.645234 +-40.072381 -47.812500 +-39.375000 -48.092336 +149 +40.781250 40.668450 +41.308930 40.781250 +40.781250 41.037932 +39.375000 41.134408 +37.968750 41.322885 +36.562500 41.296423 +35.386210 40.781250 +35.156250 40.471908 +34.030901 39.375000 +33.750000 39.140578 +32.368557 37.968750 +32.343750 37.951385 +32.273921 37.968750 +30.937500 38.340289 +29.848471 39.375000 +29.531250 40.605302 +29.475560 40.781250 +29.531250 41.016919 +29.672408 42.187500 +29.531250 42.785340 +29.219703 43.593750 +28.125000 44.560604 +26.718750 44.835372 +25.312500 44.716271 +23.906250 44.204918 +22.500000 43.655020 +22.154488 43.593750 +21.093750 43.100500 +20.042365 42.187500 +21.093750 41.647444 +22.500000 42.070704 +23.906250 42.182526 +25.312500 42.038874 +26.718750 41.250863 +27.487048 40.781250 +27.640451 39.375000 +26.718750 38.675009 +25.790977 37.968750 +25.312500 37.598812 +23.906250 36.813833 +22.528170 36.562500 +22.500000 36.552128 +21.093750 36.235768 +19.687500 35.634091 +18.475468 35.156250 +18.281250 34.839755 +17.055258 33.750000 +17.212184 32.343750 +18.281250 31.049102 +19.039126 30.937500 +18.281250 29.796022 +18.224759 29.531250 +16.875000 29.181055 +15.468750 28.460511 +14.928592 28.125000 +14.732671 26.718750 +15.006150 25.312500 +15.468750 24.617397 +16.256597 23.906250 +16.875000 23.321271 +17.814393 22.500000 +18.091265 21.093750 +18.085316 19.687500 +17.212816 18.281250 +16.875000 17.485526 +16.708059 16.875000 +15.947662 15.468750 +15.468750 14.594898 +15.174047 14.062500 +14.787993 12.656250 +15.193981 11.250000 +15.468750 10.843006 +16.875000 10.129453 +18.281250 9.881481 +18.359459 9.843750 +19.687500 9.126455 +20.954381 8.437500 +21.093750 8.316876 +22.128291 7.031250 +22.500000 6.406953 +22.868982 5.625000 +23.906250 4.878090 +24.501715 4.218750 +24.921274 2.812500 +25.264944 1.406250 +25.312500 0.619873 +25.354564 0.000000 +26.061399 -1.406250 +26.671610 -2.812500 +26.718750 -2.935458 +28.125000 -3.232550 +29.531250 -3.543381 +30.937500 -3.913258 +30.979606 -2.812500 +30.937500 -2.611810 +30.686216 -1.406250 +30.731619 0.000000 +30.937500 0.390668 +32.343750 0.744137 +33.711107 1.406250 +33.278013 2.812500 +32.640404 4.218750 +32.343750 4.961216 +32.104774 5.625000 +32.253308 7.031250 +32.343750 7.188916 +33.750000 7.877002 +35.156250 7.075400 +35.219842 7.031250 +36.562500 6.337419 +37.123669 7.031250 +36.562500 8.404770 +36.539935 8.437500 +35.512832 9.843750 +35.240508 11.250000 +35.156250 11.406568 +34.865996 12.656250 +34.050748 14.062500 +33.750000 14.269697 +32.343750 14.921652 +31.707278 15.468750 +30.937500 16.800260 +30.903320 16.875000 +30.514966 18.281250 +30.125720 19.687500 +29.700994 21.093750 +29.531250 21.412589 +28.638184 22.500000 +28.224229 23.906250 +28.744081 25.312500 +29.531250 26.216818 +29.799302 26.718750 +30.577020 28.125000 +30.937500 28.541537 +31.737707 29.531250 +32.343750 30.216773 +32.961430 30.937500 +33.750000 31.977475 +34.097176 32.343750 +35.156250 33.124148 +35.922362 33.750000 +36.562500 34.596288 +36.847754 35.156250 +36.998745 36.562500 +37.968750 37.953993 +37.978339 37.968750 +39.132194 39.375000 +39.375000 39.846787 +40.781250 40.668450 +55 +39.375000 46.987928 +40.200098 47.812500 +39.375000 48.239810 +38.012095 49.218750 +37.968750 49.285719 +36.972300 50.625000 +36.562500 50.789991 +35.156250 51.042744 +33.750000 50.944695 +32.343750 50.787136 +30.984249 52.031250 +30.937500 52.048383 +29.531250 52.605078 +28.284474 53.437500 +28.125000 53.548847 +26.718750 54.704916 +25.769343 54.843750 +25.312500 54.870007 +24.436358 54.843750 +23.906250 54.821026 +22.500000 54.486387 +21.093750 53.957649 +20.040143 53.437500 +20.102036 52.031250 +19.687500 51.461891 +18.281250 51.286085 +16.875000 50.940357 +16.416836 50.625000 +15.468750 49.963755 +14.199344 49.218750 +15.468750 48.050786 +15.881858 47.812500 +16.875000 47.544792 +18.281250 47.408287 +19.456347 47.812500 +19.687500 48.035285 +21.093750 49.189629 +22.500000 49.101703 +23.251629 49.218750 +23.906250 49.268006 +25.312500 49.244314 +25.379782 49.218750 +26.245526 47.812500 +26.367800 46.406250 +26.718750 45.677510 +28.125000 45.635117 +29.531250 45.472576 +30.937500 45.308435 +32.343750 45.759778 +33.264580 46.406250 +33.750000 47.573386 +35.156250 47.762333 +36.562500 47.159717 +37.968750 46.898511 +39.375000 46.987928 +11 +-35.156250 24.795646 +-33.750000 24.418868 +-32.343750 25.002818 +-31.667857 25.312500 +-31.626618 26.718750 +-32.343750 27.242958 +-33.750000 27.438717 +-34.913788 26.718750 +-35.156250 26.161623 +-35.415629 25.312500 +-35.156250 24.795646 +23 +-32.343750 44.012053 +-32.026017 43.593750 +-30.937500 42.534519 +-30.576395 42.187500 +-29.531250 41.235426 +-28.125000 41.432352 +-26.718750 41.959667 +-26.023883 42.187500 +-25.312500 42.532600 +-23.906250 42.843399 +-23.097971 43.593750 +-23.906250 44.320462 +-24.709596 45.000000 +-25.312500 45.411674 +-26.689645 46.406250 +-26.718750 46.417590 +-28.125000 46.633094 +-29.531250 46.789459 +-30.937500 46.787868 +-32.343750 46.447359 +-32.467129 46.406250 +-33.588038 45.000000 +-32.343750 44.012053 +9 +-30.937500 -66.232319 +-31.218100 -66.093750 +-31.930315 -64.687500 +-30.937500 -63.392542 +-29.531250 -64.085695 +-28.784992 -64.687500 +-29.531250 -65.425768 +-30.594117 -66.093750 +-30.937500 -66.232319 +31 +-26.718750 -4.722807 +-25.921459 -4.218750 +-25.312500 -4.029324 +-23.906250 -3.769202 +-22.500000 -3.619542 +-21.093750 -3.383588 +-19.687500 -2.836192 +-18.281250 -2.903817 +-16.875000 -3.132160 +-15.468750 -3.476107 +-14.062500 -3.650390 +-13.385760 -2.812500 +-13.067172 -1.406250 +-13.646612 0.000000 +-14.062500 0.293280 +-15.468750 0.097801 +-16.073262 0.000000 +-16.875000 -0.214177 +-18.281250 -0.176421 +-19.687500 -0.576600 +-21.093750 -0.910671 +-22.500000 -0.049484 +-22.577127 0.000000 +-23.906250 0.559370 +-25.312500 0.471350 +-26.124075 0.000000 +-26.718750 -0.682657 +-27.080829 -1.406250 +-27.058122 -2.812500 +-27.176221 -4.218750 +-26.718750 -4.722807 +31 +-25.312500 -65.137720 +-26.493369 -64.687500 +-25.463854 -63.281250 +-25.312500 -63.014248 +-23.906250 -62.736921 +-22.500000 -62.698603 +-21.563820 -61.875000 +-21.093750 -61.383236 +-20.370426 -60.468750 +-20.353086 -59.062500 +-19.782672 -57.656250 +-19.687500 -57.611174 +-19.624496 -57.656250 +-18.281250 -58.054121 +-16.875000 -58.723604 +-15.468750 -59.038827 +-15.423036 -59.062500 +-14.159549 -60.468750 +-14.062500 -60.762929 +-13.154991 -61.875000 +-14.062500 -62.459978 +-15.468750 -62.717085 +-16.875000 -62.884861 +-17.534153 -63.281250 +-18.281250 -63.806947 +-19.687500 -64.268285 +-21.093750 -64.542116 +-21.446644 -64.687500 +-22.500000 -65.010642 +-23.906250 -65.208907 +-25.312500 -65.137720 +7 +26.718750 -58.025805 +26.829966 -57.656250 +26.718750 -56.443961 +25.312500 -56.540678 +24.974362 -57.656250 +25.312500 -58.199134 +26.718750 -58.025805 +11 +25.312500 24.776474 +24.731898 23.906250 +23.906250 23.431916 +22.500000 23.324552 +22.032962 23.906250 +21.094679 25.312500 +22.500000 26.461354 +23.906250 26.182321 +25.312500 25.512712 +25.554456 25.312500 +25.312500 24.776474 +9 +-22.500000 -54.225050 +-23.248634 -53.437500 +-22.505057 -52.031250 +-22.500000 -52.025473 +-21.093750 -52.000992 +-21.056580 -52.031250 +-20.454895 -53.437500 +-21.093750 -54.512657 +-22.500000 -54.225050 +5 +-21.093750 -56.360683 +-21.214282 -56.250000 +-21.093750 -55.938827 +-21.041000 -56.250000 +-21.093750 -56.360683 +9 +18.281250 41.925647 +18.710196 42.187500 +18.281250 42.306905 +16.875000 43.138856 +15.468750 42.221060 +15.449779 42.187500 +15.468750 42.175701 +16.875000 41.570715 +18.281250 41.925647 +7 +16.875000 76.214046 +18.002264 77.343750 +16.875000 77.825117 +15.468750 77.432278 +15.227779 77.343750 +15.468750 77.070526 +16.875000 76.214046 +5 +-14.062500 -67.619706 +-14.223653 -67.500000 +-14.062500 -67.373591 +-13.901567 -67.500000 +-14.062500 -67.619706 +7 +-11.250000 -58.842298 +-12.376631 -57.656250 +-11.250000 -56.802768 +-9.843750 -57.601660 +-9.779979 -57.656250 +-9.843750 -57.748444 +-11.250000 -58.842298 +29 +12.656250 -73.454945 +13.497542 -73.125000 +13.801944 -71.718750 +12.656250 -71.275442 +11.250000 -70.884373 +9.843750 -70.804354 +8.668846 -70.312500 +8.437500 -70.197140 +7.031250 -69.638098 +5.625000 -69.813738 +4.218750 -69.472334 +3.493020 -68.906250 +2.812500 -68.700671 +1.828209 -68.906250 +1.711141 -70.312500 +2.812500 -71.472149 +2.980431 -71.718750 +2.979878 -73.125000 +3.137189 -74.531250 +4.218750 -74.857421 +5.157673 -74.531250 +5.625000 -74.319907 +7.031250 -73.534818 +8.437500 -74.066524 +9.040248 -74.531250 +9.843750 -75.340597 +11.250000 -74.752088 +11.480870 -74.531250 +12.656250 -73.454945 +5 +12.656250 -61.862931 +12.200054 -60.468750 +12.656250 -60.018630 +13.211323 -60.468750 +12.656250 -61.862931 +9 +-9.843750 -67.544526 +-9.910139 -67.500000 +-10.176393 -66.093750 +-9.843750 -65.817188 +-8.437500 -66.035725 +-8.396411 -66.093750 +-8.437500 -66.183882 +-9.589269 -67.500000 +-9.843750 -67.544526 +9 +11.250000 48.641711 +12.175321 49.218750 +11.250000 49.839586 +9.843750 49.646429 +8.527951 49.218750 +8.520641 47.812500 +9.843750 47.388087 +10.073584 47.812500 +11.250000 48.641711 +7 +11.250000 77.810680 +12.045699 78.750000 +11.250000 79.129682 +9.843750 78.955689 +9.555530 78.750000 +9.843750 78.219295 +11.250000 77.810680 +5 +9.843750 -50.784326 +10.166654 -50.625000 +9.843750 -50.284929 +8.728084 -50.625000 +9.843750 -50.784326 +7 +8.437500 44.888570 +8.764949 45.000000 +8.649599 46.406250 +8.437500 47.625969 +8.345038 46.406250 +8.331065 45.000000 +8.437500 44.888570 +7 +-4.218750 -59.296438 +-4.430595 -59.062500 +-4.218750 -58.994401 +-2.812500 -58.615280 +-2.054847 -59.062500 +-2.812500 -59.556237 +-4.218750 -59.296438 +11 +5.625000 -63.246808 +5.219807 -63.281250 +4.218750 -63.307539 +4.087010 -63.281250 +2.813306 -61.875000 +3.539797 -60.468750 +4.218750 -59.679712 +5.043097 -60.468750 +5.625000 -60.819816 +6.236923 -61.875000 +5.625000 -63.246808 +7 +0.000000 -55.041182 +-0.391954 -54.843750 +-0.075056 -53.437500 +0.000000 -53.418173 +0.054170 -53.437500 +0.199624 -54.843750 +0.000000 -55.041182 diff --git a/Src/Celbody/SPICE/Config/Mars/Label.cfg b/Src/Celbody/SPICE/Config/Mars/Label.cfg new file mode 100644 index 000000000..615880384 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mars/Label.cfg @@ -0,0 +1,29 @@ +E x S 255 64 64 Landing sites +A o S 0 255 0 Alebedo feature +a x S 255 255 255 Catena +B x S 255 255 255 Cavus +b x S 255 192 255 Chaos +c x S 255 255 128 Chasma +d x S 255 255 255 Collis +C x O 255 192 128 Crater +D x S 192 192 255 Dorsum +F x S 255 255 255 Fluctus +f x S 255 192 192 Fossa +l x S 255 255 255 Labes +L x S 255 255 255 Labyrinthus +e x S 255 255 255 Lingula +m x S 128 255 128 Mensa +M x D 255 128 0 Mons +g x S 255 255 255 Palus +G x S 255 255 255 Patera +P x S 255 255 255 Platinia +p x S 255 255 255 Planum +R x S 255 255 255 Rupes +S x S 255 255 255 Scopulus +h x S 255 255 255 Serpens +s x S 255 255 255 Sulcus +T x S 255 255 255 Terra +t x S 255 255 255 Tholus +U x S 255 255 255 Unda +V x N 128 255 128 Vallis +v x S 255 255 255 Vastitas diff --git a/Src/Celbody/SPICE/Config/Mercury.cfg b/Src/Celbody/SPICE/Config/Mercury.cfg new file mode 100644 index 000000000..d8c294277 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mercury.cfg @@ -0,0 +1,38 @@ +; === Configuration file for planet Mercury === +Name = Mercury +Module = spice +Kernel = Kernels\orbiter.bsp +Body = MERCURY +Origin = SUN +Barycenter = MERCURY +ParentBarycenter = SSB +Interval = 6000 ; Error < 0.5 m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +;Mass = 3.301880e+23 +Mass = 3.301846591953e23 ; DE440 GM=22031.868551 km^3/s^2 +Size = 2.440e+6 ; mean radius +JCoeff = 0.00006 ; J2 coefficient for gravitational potential + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = jgmess_160a_sha.tab ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +SidRotPeriod = 5067034.508327004 +SidRotOffset = -0.8306592578369638 +Obliquity = 0.0018876236973271838 +LAN = 2.7774231460465546 +LAN_MJD = 51544.5 +PrecessionPeriod = 1509264.6860023907 +PrecessionObliquity = 0.12459152400101131 +PrecessionLAN = 3.9778377555461875 + +; === Data for the Visual === +AlbedoRGB = 0.48 0.33 0.15 +MaxPatchResolution = 8 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Mimas.cfg b/Src/Celbody/SPICE/Config/Mimas.cfg new file mode 100644 index 000000000..c37ec99b5 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Mimas.cfg @@ -0,0 +1,30 @@ +; === Configuration file for moon Mimas(Saturn) === +Name = Mimas +Module = spice +Kernel = Kernels\orbiter.bsp +Body = MIMAS +Origin = SATURN +Barycenter = MIMAS +ParentBarycenter = SATURN BARYCENTER +Interval = 400 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 3.80e19 +Mass = 3.751952390301217e19 ; SAT375 GM=2.503524000000000E+00 km^3/s^2 +Size = 1.96e5 + +; === Rotation and precession parameters === +; IAU_MIMAS +SidRotPeriod = 81429.13845210819 +SidRotOffset = 2.5416409380615987 +Obliquity = -0.18985602387771328 +LAN = 5.760875438390067 +LAN_MJD = 51544.5 +PrecessionPeriod = 387.78251768643304 +PrecessionObliquity = 0.4882007867286843 +PrecessionLAN = -0.18068850603642786 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.23 0.21 0.21 ; by VF2_Rolf +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Miranda.cfg b/Src/Celbody/SPICE/Config/Miranda.cfg new file mode 100644 index 000000000..cd69b07c4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Miranda.cfg @@ -0,0 +1,37 @@ +; === Configuration file for moon Miranda(Uranus) === +Name = Miranda +Module = spice +Kernel = Kernels\orbiter.bsp +Body = MIRANDA +Origin = URANUS +Barycenter = MIRANDA +ParentBarycenter = URANUS BARYCENTER +Interval = 670 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 6.33e19 +Mass = 6.473523623109e19 ;URA111 GM=4.319516899232100E+00 km^3/s^2 +Size = 235.8e3 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 2.927884137 +PrecessionObliquity = 1.434522409 +PrecessionPeriod = 6495.828751 +LAN = 1.444762288 +LAN_MJD = 51544.5 +Obliquity = 0.07423572721 +SidRotOffset = 2.320240846 +SidRotPeriod = -122124.5308 +;SidRotPeriod (days): -1.413478366 +;SidRotPeriod (days - node to node): -1.41317171 +;Precession Period (years): 17.78460986 +;Obliquity (deg): 4.253393858 +;Ecliptic LAN (rad): 3.002125017 +;Ecliptic Obliquity (rad): 1.444216694 +;Ecliptic SidRotOffset (rad): 3.766537381 +;Axis RMS Error (deg): 0.03699836259 + +; === Visualisation Parameters === +AlbedoRGB = 0.19 0.19 0.20 ; by VF2_Rolf +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Moon.cfg b/Src/Celbody/SPICE/Config/Moon.cfg new file mode 100644 index 000000000..833d7ea33 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Moon.cfg @@ -0,0 +1,45 @@ +; === Configuration file for moon Moon(Earth) === +Name = Moon +Module = spice +Kernel = Kernels\orbiter.bsp +Body = MOON +Origin = EARTH +Barycenter = MOON +ParentBarycenter = EARTH BARYCENTER +Interval = 10000 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +;Mass = 7.347664e+22 +Mass = 7.347671770631794e22 ; DE440 GM=4902.800118 km^3/s^2 +Size = 1.7382e6 ; mean radius + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = jgl165p1.sha ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + +; === Rotation and precession parameters === +; MOON_PA_DE440 +SidRotPeriod = 2360588.1400527796 +SidRotOffset = 4.769810896103925 +Obliquity = 0.02694510713348768 +LAN = 1.745639497067995 +LAN_MJD = 51544.5 +PrecessionPeriod = -6793.679659687133 +PrecessionObliquity = 5.6356817733440586e-05 +PrecessionLAN = 0.43685660328919135 + +; === Visualisation Parameters === +TileFormat = 2 +LabelFormat = 2 +MaxPatchResolution = 16 ; highest sphere patch level +ElevationResolution = 0.5 ; target resolution of elevation data [m] +HorizonExcess = 0.015 ; prevent mountain tops beyond sphere horizon from disappearing + +; === Fixed surface observation points === +BEGIN_OBSERVER +Brighton Beach:Tower: -33.4375 +41.125 120 +END_OBSERVER diff --git a/Src/Celbody/SPICE/Config/Moon/Base/Brighton.cfg b/Src/Celbody/SPICE/Config/Moon/Base/Brighton.cfg new file mode 100644 index 000000000..4e6874af6 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Moon/Base/Brighton.cfg @@ -0,0 +1,171 @@ +BASE-V2.0 +Name = Brighton Beach +Location = -33.4375 +41.125 +Size = 500 +MapObjectsToSphere = TRUE + +BEGIN_NAVBEACON +VOR LBB -33.4375 +41.125 116.30 500 +END_NAVBEACON + +; === List of visuals === +BEGIN_OBJECTLIST +TANK + POS 0 0 0 + SCALE 25 12 25 + NSTEP 24 + TEX1 Fcd04 8 2 + TEX2 concrete1 1 1 +END +BLOCK + POS -60.62 0 -35 + ROT 30 + SCALE 40 15 30 + TEX1 Fcd07 2 1 + TEX2 Fcd07 1.5 1 + TEX3 Roof01 2 2 +END +BLOCK + POS -32.48 0 -18.75 + ROT 30 + SCALE 27 8 12 + TEX1 concrete1 1 0.5 + TEX3 concrete1 1 0.5 +END +BLOCK + POS -75.67 0 -67.5 + ROT 30 + SCALE 40 20 20 + TEX1 Fcd07 2 1 + TEX2 Fcd07 1 1 + TEX3 Roof01 2 2 +END +BLOCK + POS -1186.5 0 -685.0 + ROT 30 + SCALE 40 15 30 +END +TRAIN2 + END1 -77.9423 0 -45.0000 + END2 -1169.1 0 -675.0 + HEIGHT 12 + MAXSPEED 50 + SLOWZONE 200 + TEX Hangrail 100 +END +TANK + POS -1300 -15 -700 + SCALE 30 40 30 +END +TANK + POS -1400 -15 -680 + SCALE 30 50 30 +END +TANK + POS -1330 -15 -850 + SCALE 30 50 30 +END +BLOCK + POS -1350 -10 -690 + SCALE 44 16 12 + ROT -11.3 +END +BLOCK + POS -1315 -10 -775 + SCALE 95 16 12 + ROT 78.69 +END +HANGAR3 + POS 142 0 0 + SCALE 40 15 40 + ROT 270 + TEX3 concrete1 1 1 +END +HANGAR3 + POS -142 0 0 + SCALE 40 15 40 + ROT 90 + TEX3 concrete1 1 1 +END +HANGAR3 + POS 71 0 122.98 + SCALE 40 15 40 + ROT 330 + TEX3 concrete1 1 1 +END +HANGAR3 + POS -71 0 -122.98 + SCALE 40 15 40 + ROT 150 + TEX3 concrete1 1 1 +END +HANGAR3 + POS -71 0 122.98 + SCALE 40 15 40 + ROT 30 + TEX3 concrete1 1 1 +END +HANGAR3 + POS 71 0 -122.98 + SCALE 40 15 40 + ROT 210 + TEX3 concrete1 1 1 +END +HANGAR + POS 0 0 0 + ROT 90 + SCALE 12 8 244 + TEX1 concrete1 0.4 0.4 + TEX3 concrete1 0.5 8 +END +HANGAR + POS 0 0 0 + ROT 150 + SCALE 12 8 244 + TEX1 concrete1 0.4 0.4 + TEX3 concrete1 0.5 8 +END +HANGAR + POS 0 0 0 + ROT 210 + SCALE 12 8 244 + TEX1 concrete1 0.4 0.4 + TEX3 concrete1 0.5 8 +END +LPAD1 + POS 200 0 0 + ROT 270 + TEX Lpad01 + NAV 132.20 +END +LPAD1 + POS 100 0 -173.21 + ROT 210 + TEX Lpad01 + NAV 132.30 +END +LPAD1 + POS -100 0 -173.21 + ROT 150 + TEX Lpad01 + NAV 132.40 +END +LPAD1 + POS -200 0 0 + ROT 90 + TEX Lpad01 + NAV 132.50 +END +LPAD1 + POS -100 0 173.21 + ROT 30 + TEX Lpad01 + NAV 132.60 +END +LPAD1 + POS 100 0 173.21 + ROT 330 + TEX Lpad01 + NAV 132.70 +END +END_OBJECTLIST diff --git a/Src/Celbody/SPICE/Config/Moon/Data/ELP82.dat b/Src/Celbody/SPICE/Config/Moon/Data/ELP82.dat new file mode 100644 index 000000000..6097a85b7 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Moon/Data/ELP82.dat @@ -0,0 +1,943 @@ +318 +0 0 0 2 -411.60287 168.48 -18433.81 -121.62 0.4 -0.18 0 +0 0 0 4 0.42034 -0.39 37.65 0.57 0 0 0 +0 0 1 -4 -0.08019 0.77 -7.22 -1.46 0 0 0 +0 0 1 -2 39.53393 -395.24 1788.33 720.91 -2.6 0.9 0 +0 0 1 0 22639.55 0 0 412529.61 0 0 0 +0 0 1 2 -45.10032 17.41 -2019.78 -830.2 0.09 -0.02 0 +0 0 1 4 0.09092 -0.07 8.14 1.73 0 0 0 +0 0 2 -2 -1.37259 -7.58 -62.49 -50.12 -0.07 0 0 +0 0 2 0 769.02326 -257.51 -47.39 28008.99 -6.83 -0.56 0 +0 0 2 2 -3.99767 2.4 -178.94 -146.18 0.05 0 0 +0 0 2 4 0.01297 -0.01 1.16 0.48 0 0 0 +0 0 3 -2 -0.05684 0.38 -2.65 -3.13 0 0 0 +0 0 3 0 36.12364 -28.42 -5.1 1972.74 -0.93 -0.08 0 +0 0 3 2 -0.32866 0.32 -14.7 -17.99 0 0 0 +0 0 4 -2 -0.00354 0.04 -0.17 -0.26 0 0 0 +0 0 4 0 1.93367 -2.65 -0.44 140.75 -0.1 0 0 +0 0 4 2 -0.02602 0.04 -1.16 -1.9 0 0 0 +0 0 5 0 0.111 -0.23 -0.04 10.1 0 0 0 +0 0 6 0 0.00665 -0.02 0 0.73 0 0 0 +0 1 -5 0 -0.00332 -0.07 0 -0.3 -0.2 0 0 +0 1 -4 0 -0.04702 -1.04 0.03 -3.42 -2.82 0 0 +0 1 -3 -2 0.00623 0.14 0.28 0.34 0.37 0 0 +0 1 -3 0 -0.6694 -15.55 0.38 -36.53 -40.1 -0.02 0 +0 1 -2 -2 0.05165 1.17 2.29 1.89 3.09 0 0 +0 1 -2 0 -9.67938 -235.29 4.9 -352.52 -579.94 -0.15 0 +0 1 -2 2 0.02429 0.74 1.09 0.89 1.46 0 0 +0 1 -1 -2 0.30157 6.6 13.34 5.61 18.07 0 0 +0 1 -1 0 -147.32654 -3778.62 68.68 -2688.53 -8829.17 -0.76 0 +0 1 -1 2 -0.08049 0.25 -3.63 -1.39 -4.82 -0.01 0 +0 1 0 -2 0.07501 -6.72 3.04 0.85 4.46 0 0 +0 1 0 0 -666.44186 -5206.84 258.79 -555.98 -39887.79 1.73 0 +0 1 0 2 0.41342 1.5 18.15 1.19 24.72 0.01 0 +0 1 1 -2 -0.08282 1.73 -3.73 -1.5 -4.95 0 0 +0 1 1 0 -109.38419 -2193.78 51.64 -2018.13 -6556.1 0.54 0 +0 1 1 2 0.26338 4.53 11.65 5.03 15.78 0 0 +0 1 2 -2 0.02677 1.1 1.2 0.97 1.6 0 0 +0 1 2 0 -7.63041 -156.07 4.09 -279.89 -457.41 0.12 0 +0 1 2 2 0.04338 0.81 1.92 1.61 2.6 0 0 +0 1 3 0 -0.54594 -11.18 0.34 -29.97 -32.73 0.01 0 +0 1 3 2 0.00526 0.1 0.23 0.29 0.32 0 0 +0 1 4 0 -0.03947 -0.8 0.03 -2.89 -2.37 0 0 +0 1 5 0 -0.00287 -0.06 0 -0.26 -0.17 0 0 +0 2 -3 0 -0.01514 -0.5 0.01 -0.83 -1.81 0 0 +0 2 -2 0 -0.19311 -6.23 0.13 -7.04 -23.13 0 0 +0 2 -1 -2 0.00473 0.12 0.21 0.09 0.57 0 0 +0 2 -1 0 -2.56813 -81.06 1.44 -46.94 -307.62 0 0 +0 2 0 -2 -0.00355 -0.26 -0.16 0.02 -0.42 0 0 +0 2 0 0 -7.44804 -12.64 2.98 -9.32 -891.27 0.03 0 +0 2 0 2 0.00519 -0.03 0.23 0.02 0.62 0 0 +0 2 1 0 -1.16177 -19.75 0.43 -21.52 -139.13 0 0 +0 2 1 2 0.0027 0.03 0.12 0.05 0.32 0 0 +0 2 2 0 -0.06513 -0.79 0.02 -2.39 -7.8 0 0 +0 2 3 0 -0.00341 0 0 -0.19 -0.41 0 0 +0 3 -2 0 -0.00416 -0.15 0 -0.15 -0.75 0 0 +0 3 -1 0 -0.05142 -1.82 0.03 -0.94 -9.24 0 0 +0 3 0 0 -0.10136 1.16 0.04 -0.2 -18.19 0 0 +0 3 1 0 -0.01796 -0.3 0 -0.33 -3.23 0 0 +1 -3 0 0 0.00254 0.03 0 0 0.45 0.99 0 +1 -2 -1 0 0.00229 0.06 0 0.05 0.27 0.89 0 +1 -2 0 0 0.04304 -0.01 0 0.06 5.14 16.74 -0.09 +1 -1 -2 0 -0.00694 -0.25 0 -0.23 -0.42 -2.7 0.01 +1 -1 -1 0 -0.13636 -3.24 0.19 -2.41 -8.17 -53.02 0.28 +1 -1 0 -2 -0.01281 -0.13 -0.57 0 -0.77 -4.98 0.03 +1 -1 0 0 -0.55694 -40.23 1.7 -0.01 -33.62 -216.55 1.14 +1 -1 1 -2 -0.00212 -0.02 -0.09 -0.04 -0.13 -0.83 0 +1 -1 1 0 -0.12073 -6.32 0.25 -2.38 -7.23 -46.94 0.25 +1 -1 2 0 -0.01483 -0.72 0.03 -0.56 -0.89 -5.77 0.03 +1 0 -4 0 -0.00955 -0.28 0.01 -0.7 0 -3.71 0.02 +1 0 -3 0 -0.12812 -3.66 0.13 -7.03 -0.05 -49.82 0.26 +1 0 -2 -2 0.00289 0.14 0.12 0.11 0 1.12 0 +1 0 -2 0 -1.75296 -48.87 1.67 -64.28 -0.51 -681.6 3.59 +1 0 -1 -2 -0.02379 0.12 -1.09 -0.42 0 -9.25 0.05 +1 0 -1 0 -18.58467 -437.66 18.91 -346.51 -1 -7226.22 38.1 +1 0 -1 2 0.01598 0.32 0.69 0.3 0 6.21 -0.03 +1 0 0 -2 -0.58332 -5.89 -25.98 -0.12 0 -226.81 1.2 +1 0 0 0 -124.98806 -2831.88 136.18 -86.6 -2.68 -48598.15 256.21 +1 0 0 2 0.25429 5.73 11.11 0.26 0 98.87 -0.52 +1 0 1 -2 -0.04012 -0.22 -1.8 -0.72 0 -15.6 0.08 +1 0 1 0 -8.45308 -187.78 10.1 -158.62 0.77 -3286.75 17.33 +1 0 1 2 0.0445 0.98 1.94 0.84 0 17.3 -0.09 +1 0 2 0 -0.58399 -12.36 0.75 -21.52 0.13 -227.07 1.2 +1 0 2 2 0.0054 0.12 0.24 0.2 0 2.1 -0.01 +1 0 3 0 -0.04074 -0.81 0.06 -2.24 0.02 -15.84 0.08 +1 0 4 0 -0.00285 -0.05 0 -0.21 0 -1.11 0 +1 1 -3 0 0.02296 0.3 0 1.26 1.38 8.93 -0.05 +1 1 -2 0 0.34966 5.36 -0.11 12.83 20.95 135.95 -0.72 +1 1 -1 0 1.07773 9.38 -1.15 21.49 64.24 418.88 -2.21 +1 1 0 0 17.95512 6.59 -11.64 21.84 1074.24 6981.34 -36.8 +1 1 0 2 -0.03587 0 -1.58 -0.05 -2.15 -13.95 0.07 +1 1 1 0 1.26186 1.83 -0.9 24.5 75.5 490.64 -2.59 +1 1 1 2 -0.00659 0 -0.29 -0.13 -0.39 -2.56 0.01 +1 1 2 0 0.09205 0.22 -0.07 3.46 5.51 35.79 -0.19 +1 1 3 0 0.00679 0.02 0 0.38 0.41 2.64 -0.01 +1 2 -2 0 0.00361 0.16 0 0.13 0.43 1.4 0 +1 2 -1 0 -0.003 -0.18 0 -0.05 -0.36 -1.16 0 +1 2 0 0 -0.03968 -0.61 0.04 -0.07 -4.75 -15.43 0.08 +1 2 1 0 -0.00849 -0.16 0 -0.17 -1.02 -3.3 0.02 +2 -4 -1 0 0.00812 0.24 0 0.15 1.94 0 0 +2 -4 0 0 0.01331 0.58 0 0.02 3.18 0 0 +2 -3 -2 0 0.00965 0.26 0 0.35 1.73 0 0 +2 -3 -1 0 0.24697 6.33 -0.03 4.52 44.32 0 0 +2 -3 0 0 0.33983 13.41 -0.12 0.74 60.98 0 0 +2 -3 1 0 0.033 1.42 -0.02 0.67 5.92 0 0 +2 -3 2 0 0.00295 0.14 0 0.11 0.53 0 0 +2 -2 -3 0 0.01544 0.29 0 0.84 1.85 0 0 +2 -2 -2 0 0.29422 6.88 -0.03 10.73 35.21 0 0 +2 -2 -1 -2 -0.00434 -0.2 -0.19 -0.08 -0.52 0 0 +2 -2 -1 0 7.37173 165.38 -1.06 134.79 881.89 -0.04 0 +2 -2 -1 2 -0.01541 -0.33 -0.69 -0.29 -1.84 0 0 +2 -2 0 -2 0.06314 0.43 2.82 -0.04 7.55 0 0 +2 -2 0 0 8.05076 289.14 -3.14 21.09 962.91 -0.06 0 +2 -2 0 2 -0.01816 -0.62 -0.81 -0.12 -2.17 0 0 +2 -2 1 -2 -0.01644 -0.38 -0.74 -0.3 -1.97 0 0 +2 -2 1 0 0.75173 29.04 -0.43 15.47 89.9 0 0 +2 -2 1 2 -0.00378 -0.14 -0.17 -0.09 -0.45 0 0 +2 -2 2 0 0.06439 2.63 -0.05 2.5 7.7 0 0 +2 -2 3 0 0.00538 0.23 0 0.31 0.64 0 0 +2 -1 -4 0 0.02949 0.41 0 2.15 1.77 0 0 +2 -1 -3 -2 -0.00365 -0.08 -0.16 -0.2 -0.22 0 0 +2 -1 -3 0 0.47842 8.72 -0.05 26.15 28.63 0 0 +2 -1 -2 -2 -0.02804 -0.74 -1.25 -1.03 -1.68 0 0 +2 -1 -2 0 8.60582 187.04 -1.14 313.85 515.03 0.02 0 +2 -1 -2 2 -0.02157 -0.21 -0.97 -0.79 -1.29 0 0 +2 -1 -1 -2 -0.06103 -3.57 -2.72 -1.22 -3.65 0 0 +2 -1 -1 0 205.44315 4157.78 -32.99 3751.43 12284.72 -0.13 0 +2 -1 -1 2 -0.42624 -8.3 -19.01 -7.93 -25.48 0 0 +2 -1 0 -4 -0.00286 -0.02 -0.26 0 -0.17 0 0 +2 -1 0 -2 2.14619 18.77 95.81 -0.84 128.22 0.05 0 +2 -1 0 0 164.73458 5378.28 -77.43 545.71 9844.15 -0.18 0 +2 -1 0 2 -0.38215 -11.75 -16.94 -3.1 -22.84 0 0 +2 -1 1 -2 -0.37453 -6.5 -16.89 -6.91 -22.36 0 0 +2 -1 1 0 14.53078 497.46 -9.38 307.25 867.99 0 0 +2 -1 1 2 -0.07373 -2.45 -3.26 -1.77 -4.4 0 0 +2 -1 2 -2 -0.02887 -0.54 -1.3 -1.06 -1.72 0 0 +2 -1 2 0 1.17704 41.72 -0.96 46.23 70.28 0 0 +2 -1 2 2 -0.01007 -0.35 -0.44 -0.42 -0.6 0 0 +2 -1 3 -2 -0.00232 -0.05 -0.1 -0.13 -0.14 0 0 +2 -1 3 0 0.0932 3.39 -0.09 5.36 5.56 0 0 +2 -1 4 0 0.0073 0.27 0 0.55 0.44 0 0 +2 0 -6 0 0.00497 0.1 0 0.54 0 0 0 +2 0 -5 0 0.0685 1.4 -0.03 6.24 0 0 0 +2 0 -4 -2 -0.01077 -0.24 -0.48 -0.79 0 0 0 +2 0 -4 0 0.94827 19.71 -0.3 69.11 0.06 0 0 +2 0 -3 -2 -0.09154 -2.11 -4.08 -5.03 0 0 0 +2 0 -3 0 13.194 279.87 -3.19 721.29 0.65 0.14 0 +2 0 -3 2 0.00467 0.38 0.2 0.24 0 0 0 +2 0 -2 -2 -0.56065 -14.54 -24.99 -20.69 -0.01 0 0 +2 0 -2 0 211.65487 4685.54 -42.06 7715.64 7.86 2.12 -0.01 +2 0 -2 2 -0.53572 -4.5 -24.12 -19.5 0.04 -0.01 0 +2 0 -2 4 0.00282 0.02 0.25 0.1 0 0 0 +2 0 -1 -4 -0.0085 0 -0.76 -0.14 0 0 0 +2 0 -1 -2 0.17903 -34.06 7.98 1.01 0.03 0.18 0 +2 0 -1 0 4586.43061 87132.46 -842.12 83586.18 -191.17 20.31 -0.17 +2 0 -1 2 -9.36601 -173.58 -417.66 -173.7 0.48 -0.06 0 +2 0 -1 4 0.01993 0.36 1.78 0.39 0 0 0 +2 0 0 -4 -0.07518 -0.7 -6.72 0.06 0 0 0 +2 0 0 -2 55.17801 530.97 2463.55 -15.35 -6.96 1.2 0 +2 0 0 0 2369.91227 69551.14 -1472.5 10817.07 -255.36 22.07 -0.15 +2 0 0 2 -5.7417 -155.85 -254 -59.77 0.64 -0.1 0 +2 0 0 4 0.01372 0.35 1.22 0.21 0 0 0 +2 0 1 -2 -6.38325 -72.7 -288.51 -117.47 1.16 0 0 +2 0 1 0 191.95575 5619.27 -153.09 4250.55 -30.1 2.78 -0.02 +2 0 1 2 -0.99023 -27.73 -43.7 -25.33 0.16 -0.02 0 +2 0 1 4 0.00344 0.09 0.31 0.1 0 0 0 +2 0 2 -2 -0.4538 -4.94 -20.52 -16.63 0.1 0 0 +2 0 2 0 14.37964 417.8 -13.71 577.47 -3.08 0.28 0 +2 0 2 2 -0.12386 -3.49 -5.45 -5.28 0.03 0 0 +2 0 3 -2 -0.03336 -0.35 -1.51 -1.83 0 0 0 +2 0 3 0 1.05949 30.46 -1.16 61.74 -0.3 0.03 0 +2 0 3 2 -0.01332 -0.37 -0.59 -0.8 0 0 0 +2 0 4 -2 -0.00247 -0.03 -0.11 -0.18 0 0 0 +2 0 4 0 0.07765 2.2 -0.1 5.93 -0.03 0 0 +2 0 5 0 0.00568 0.16 0 0.54 0 0 0 +2 1 -4 0 0.01819 1.37 -0.02 1.32 1.1 0 0 +2 1 -3 0 0.17624 15.8 -0.23 9.59 10.63 0.05 0 +2 1 -2 -2 -0.00346 -0.43 -0.15 -0.13 -0.21 0 0 +2 1 -2 0 2.48897 257.3 -3.72 89.71 150.19 0.26 0 +2 1 -1 -2 -0.00228 0.76 -0.11 -0.05 -0.13 0 0 +2 1 -1 0 -28.3981 915.46 -16.7 -528.73 -1693.3 -0.38 0 +2 1 -1 2 0.06742 -1.63 3.04 1.29 4.02 0 0 +2 1 0 -2 -1.43724 -23.32 -64.11 -0.16 -86.03 -0.04 0 +2 1 0 0 -24.3591 -661 29.13 -128.06 -1457.61 -5.21 0.03 +2 1 0 2 0.06541 1.46 2.86 0.75 3.91 0.03 0 +2 1 1 -2 0.08472 -0.38 3.85 1.59 5.05 0 0 +2 1 1 0 -2.91464 -100.96 4.26 -66.13 -174.49 -0.75 0 +2 1 1 2 0.01605 0.51 0.7 0.42 0.96 0 0 +2 1 2 -2 0.00889 0.07 0.4 0.33 0.53 0 0 +2 1 2 0 -0.29023 -11.13 0.47 -11.8 -17.38 -0.08 0 +2 1 2 2 0.00262 0.1 0.11 0.11 0.16 0 0 +2 1 3 0 -0.02676 -1.08 0.05 -1.57 -1.6 0 0 +2 1 4 0 -0.00236 -0.1 0 -0.18 -0.14 0 0 +2 2 -3 0 -0.00944 -0.26 0 -0.53 -1.14 0 0 +2 2 -2 0 -0.2499 -10.76 0.11 -9.2 -29.88 -0.02 0 +2 2 -1 -2 -0.00654 -0.24 -0.29 -0.09 -0.78 0 0 +2 2 -1 0 -2.52138 -84.66 0.74 -46.07 -302.13 0.07 0 +2 2 -1 2 0.00515 0.17 0.23 0.1 0.62 0 0 +2 2 0 -2 -0.02349 -0.29 -0.9 0.49 -2.75 0.04 0 +2 2 0 0 -0.18576 -6.48 0.33 -6.56 -22.26 0.39 0 +2 2 1 0 -0.01343 -0.46 0.03 -0.71 -1.61 0.06 0 +3 -2 -2 0 -0.00399 -0.1 0 -0.15 -0.48 -1.55 0 +3 -2 -1 0 -0.01182 -0.5 0 -0.23 -1.41 -4.6 0.02 +3 -2 0 0 0.00518 0.05 0 -0.05 0.62 2.01 -0.01 +3 -1 -3 0 -0.00297 -0.06 0 -0.16 -0.18 -1.16 0 +3 -1 -2 0 -0.08311 -1.91 0.02 -3.04 -4.98 -32.32 0.17 +3 -1 -1 0 -0.23141 -9.24 0.19 -4.48 -13.78 -89.98 0.47 +3 -1 0 -2 -0.01948 -0.34 -0.87 0 -1.16 -7.57 0.04 +3 -1 0 0 0.06507 -0.18 0.16 -1.04 3.93 25.3 -0.13 +3 -1 1 0 0.0033 -0.25 0.03 -0.05 0.21 1.28 0 +3 0 -3 0 -0.04442 -0.91 0 -2.43 -0.03 -17.27 0.09 +3 0 -2 0 -1.22412 -28.1 0.42 -44.73 -0.15 -475.97 2.51 +3 0 -2 2 0.00298 0.07 0.13 0.11 0 1.16 0 +3 0 -1 -2 -0.02979 -0.39 -1.33 -0.54 0 -11.59 0.06 +3 0 -1 0 -3.20968 -121.62 3.09 -62.39 1.61 -1248.01 6.58 +3 0 -1 2 0.01215 0.48 0.53 0.25 0 4.72 -0.02 +3 0 0 -2 -0.25304 -3.6 -11.27 0.1 0.08 -98.39 0.52 +3 0 0 0 0.40423 -12.92 2.28 -14.17 1.05 157.17 -0.83 +3 0 0 2 0.00375 0.24 0.16 0.11 0 1.46 0 +3 0 1 -2 -0.01062 -0.05 -0.47 -0.18 0 -4.13 0.02 +3 0 2 0 -0.00389 -0.5 0.04 -0.26 0.02 -1.51 0 +3 1 -3 0 -0.00623 -0.3 0 -0.34 -0.37 -2.42 0.01 +3 1 -2 0 -0.04189 -2.51 0.02 -1.5 -2.52 -16.29 0.09 +3 1 -1 0 0.27377 5.06 -0.24 5.22 16.36 106.45 -0.56 +3 1 0 -2 0.00891 0.14 0.4 -0.01 0.53 3.46 -0.02 +3 1 0 0 0.1499 4.45 -0.27 1.61 8.95 58.29 -0.31 +3 1 1 0 0.02244 0.7 -0.04 0.59 1.34 8.73 -0.05 +3 1 2 0 0.00256 0.08 0 0.11 0.15 1 0 +4 -3 -2 0 0.00755 0.33 0 0.28 1.35 0 0 +4 -3 -1 0 0.01741 0.97 -0.01 0.36 3.12 0 0 +4 -3 0 0 0.00971 0.65 0 0.11 1.74 0 0 +4 -2 -3 0 0.0056 0.27 0 0.31 0.67 0 0 +4 -2 -2 0 0.15781 6.46 -0.06 5.77 18.87 0 0 +4 -2 -1 0 0.30874 16.37 -0.23 6.49 36.9 0 0 +4 -2 0 0 0.15227 9.62 -0.17 1.88 18.19 0.01 0 +4 -2 1 0 0.02411 1.58 -0.03 0.66 2.88 0 0 +4 -2 2 0 0.0029 0.2 0 0.13 0.35 0 0 +4 -1 -3 0 0.09982 4.58 -0.04 5.46 5.98 0.02 0 +4 -1 -2 0 2.73198 106.73 -1.04 99.83 163.2 0.11 0 +4 -1 -2 2 -0.01533 -0.59 -0.68 -0.57 -0.92 0 0 +4 -1 -1 -2 0.02289 0.27 1.02 0.41 1.36 0.02 0 +4 -1 -1 0 4.37416 221 -3.71 93.87 260.99 -0.05 0 +4 -1 -1 2 -0.02273 -1.12 -1 -0.56 -1.36 0 0 +4 -1 0 -2 0.00666 0.75 0.26 -0.27 0.39 0.02 0 +4 -1 0 0 1.87083 111.8 -2.35 25.65 111.49 0.16 0 +4 -1 0 2 -0.01114 -0.64 -0.49 -0.23 -0.66 0 0 +4 -1 1 -2 -0.00732 -0.28 -0.33 -0.18 -0.44 0 0 +4 -1 1 0 0.28251 17.39 -0.42 8.05 16.82 0.02 0 +4 -1 1 2 -0.00251 -0.15 -0.11 -0.08 -0.15 0 0 +4 -1 2 0 0.03274 2.05 -0.06 1.49 1.95 0 0 +4 -1 3 0 0.00336 0.21 0 0.21 0.2 0 0 +4 0 -5 0 -0.00431 -0.18 0 -0.39 0 0 0 +4 0 -3 0 1.18682 52.89 -0.5 64.88 0.22 0.25 0 +4 0 -3 2 -0.00934 -0.29 -0.42 -0.51 0 0 0 +4 0 -2 -2 0.00662 0.09 0.29 0.24 0 0 0 +4 0 -2 0 30.77247 1164.74 -12.42 1123.35 -4.25 1.18 0 +4 0 -2 2 -0.16977 -6.36 -7.54 -6.26 0.03 0 0 +4 0 -1 -2 0.30086 5.06 13.37 5.39 -0.19 0.15 0 +4 0 -1 0 38.42974 1853.28 -37.86 849.77 -9.84 0.08 0 +4 0 -1 2 -0.20134 -9.45 -8.85 -5.16 0.05 0 0 +4 0 0 -2 -0.02391 4.23 -1.47 -2.51 -0.04 0.16 0 +4 0 0 0 13.89903 782.37 -19.88 215.74 -5.22 1.37 0 +4 0 0 2 -0.085 -4.56 -3.71 -1.97 0.03 0 0 +4 0 1 -2 -0.06601 -2.12 -2.98 -1.62 0.03 0.02 0 +4 0 1 0 1.97772 113.34 -3.31 59.21 -0.94 0.18 0 +4 0 1 2 -0.01781 -0.99 -0.77 -0.63 0 0 0 +4 0 2 -2 -0.0098 -0.35 -0.44 -0.41 0 0 0 +4 0 2 0 0.21853 12.57 -0.41 10.19 -0.13 0.02 0 +4 0 2 2 -0.00274 -0.15 -0.12 -0.14 0 0 0 +4 0 3 0 0.02149 1.24 -0.04 1.38 -0.02 0 0 +4 1 -3 0 0.02682 3.5 -0.05 1.45 1.6 0.02 0 +4 1 -2 0 -0.35759 7.75 -0.18 -13.13 -21.49 -0.04 0 +4 1 -2 2 0.0022 -0.03 0.1 0.08 0.13 0 0 +4 1 -1 -2 -0.01875 -0.68 -0.83 -0.35 -1.12 0 0 +4 1 -1 0 -0.63523 -17.62 0.74 -14.32 -38.11 -0.21 0 +4 1 -1 2 0.00353 0.09 0.15 0.09 0.21 0 0 +4 1 0 0 -0.28911 -15.1 0.59 -4.73 -17.3 -0.06 0 +4 1 1 0 -0.0507 -2.99 0.12 -1.55 -3.03 -0.01 0 +4 1 2 0 -0.00668 -0.42 0.02 -0.32 -0.4 0 0 +4 2 -3 0 -0.00369 -0.24 0 -0.2 -0.44 0 0 +4 2 -2 0 -0.03514 -2.04 0.02 -1.29 -4.21 0 0 +4 2 -1 0 -0.02171 -1.51 0.03 -0.57 -2.6 0.01 0 +4 2 0 0 -0.00208 -0.16 0 -0.12 -0.25 0 0 +5 -1 -2 0 -0.00693 -0.4 0 -0.26 -0.41 -2.7 0.01 +5 0 -3 0 -0.01686 -0.72 0 -0.92 0 -6.56 0.03 +5 0 -2 0 -0.05725 -3.18 0.07 -2.18 0.05 -22.26 0.12 +5 0 -1 -2 -0.00335 -0.11 -0.15 -0.06 0 -1.3 0 +5 0 -1 0 -0.0135 -1.57 0.09 -0.64 0.06 -5.25 0.03 +5 0 0 0 0.00439 -0.05 0.03 -0.18 0.03 1.71 0 +5 1 -2 0 0.00392 0.12 0 0.15 0.23 1.52 0 +5 1 -1 0 0.00475 0.24 -0.01 0.12 0.28 1.85 0 +6 -2 -3 0 0.00312 0.19 0 0.17 0.37 0 0 +6 -2 -2 0 0.00836 0.59 0 0.33 1 0 0 +6 -2 -1 0 0.00744 0.61 -0.01 0.21 0.89 0 0 +6 -2 0 0 0.00285 0.26 0 0.07 0.34 0 0 +6 -1 -3 0 0.039 2.28 -0.02 2.14 2.33 0 0 +6 -1 -2 0 0.09033 6.23 -0.11 3.59 5.38 0 0 +6 -1 -1 0 0.07142 5.64 -0.12 2.05 4.25 0 0 +6 -1 0 0 0.0251 2.16 -0.05 0.66 1.49 0 0 +6 -1 1 0 0.00477 0.42 -0.01 0.18 0.28 0 0 +6 0 -4 0 0.01376 0.88 0 1 0 0 0 +6 0 -3 0 0.29255 16.72 -0.19 16.04 -0.08 0.03 0 +6 0 -3 2 -0.00287 -0.16 -0.13 -0.16 0 0 0 +6 0 -2 -2 0.00364 0.13 0.16 0.13 0 0 0 +6 0 -2 0 0.57156 38.34 -0.75 22.97 -0.26 0.02 0 +6 0 -2 2 -0.00509 -0.34 -0.22 -0.22 0 0 0 +6 0 -1 0 0.39451 30.1 -0.74 11.79 -0.25 0.03 0 +6 0 -1 2 -0.00359 -0.27 -0.16 -0.13 0 0 0 +6 0 0 -2 -0.00214 -0.07 -0.1 -0.07 0 0 0 +6 0 0 0 0.12616 10.43 -0.29 3.57 -0.1 0.02 0 +6 0 1 0 0.02285 1.93 -0.06 0.91 -0.02 0 0 +6 0 2 0 0.00318 0.27 0 0.18 0 0 0 +6 1 -3 0 -0.00478 0.05 0 -0.26 -0.29 0 0 +6 1 -2 0 -0.01282 -0.47 0.02 -0.52 -0.77 0 0 +6 1 -1 0 -0.01064 -0.66 0.02 -0.32 -0.64 0 0 +6 1 0 0 -0.00396 -0.31 0.01 -0.12 -0.24 0 0 +8 0 -4 0 0.00324 0.25 0 0.24 0 0 0 +8 0 -3 0 0.0084 0.72 -0.01 0.49 0 0 0 +8 0 -2 0 0.00866 0.83 -0.02 0.4 0 0 0 +8 0 -1 0 0.00455 0.47 -0.01 0.18 0 0 0 +278 +0 0 0 1 18461.4 0 412529.61 0 0 0 0 +0 0 0 3 -6.29664 7.68 -422.65 -13.21 0.02 -0.02 0 +0 0 0 5 0.00592 0 0.66 0.02 0 0 0 +0 0 1 -5 -0.00236 0.02 -0.26 -0.05 0 0 0 +0 0 1 -3 2.79871 -17.13 188.68 50.78 -0.11 0.04 0 +0 0 1 -1 999.70079 -563.82 22508.54 18298.82 -0.92 -0.21 0 +0 0 1 1 1010.1743 -93.16 22571.83 18386.36 -0.76 -0.17 0 +0 0 1 3 -1.01941 0.95 -68.42 -19.88 0 0 0 +0 0 2 -3 -0.13035 -0.4 -8.78 -4.77 0 0 0 +0 0 2 -1 31.75985 -167.64 723.95 1159.97 -1.09 0.22 0 +0 0 2 1 61.91229 -23.73 1382.4 2253.18 -0.62 -0.06 0 +0 0 2 3 -0.11787 0.11 -7.91 -4.41 0 0 0 +0 0 3 -1 1.58131 -10.25 36.06 86.53 -0.08 0 0 +0 0 3 1 3.98407 -3.3 88.86 217.43 -0.11 -0.01 0 +0 0 3 3 -0.01181 0.01 -0.79 -0.65 0 0 0 +0 0 4 -1 0.09157 -0.7 2.09 6.68 0 0 0 +0 0 4 1 0.26325 -0.37 5.86 19.15 -0.01 0 0 +0 0 5 -1 0.00566 -0.05 0.13 0.51 0 0 0 +0 0 5 1 0.01768 -0.04 0.39 1.61 0 0 0 +0 1 -4 -1 -0.00646 -0.14 -0.14 -0.47 -0.39 0 0 +0 1 -3 -1 -0.07479 -1.69 -1.63 -4.08 -4.48 0 0 +0 1 -3 1 -0.02365 -0.35 -0.53 -1.29 -1.42 0 0 +0 1 -2 -1 -0.79322 -18.59 -17.32 -28.86 -47.52 -0.01 0 +0 1 -2 1 -0.30129 -4.79 -6.71 -11.01 -18.04 -0.01 0 +0 1 -1 -3 0.00679 0.14 0.45 0.14 0.41 0 0 +0 1 -1 -1 -6.73173 -159.36 -146.94 -122.89 -403.36 -0.03 0 +0 1 -1 1 -5.6326 -148.81 -123.96 -102.8 -337.62 -0.04 0 +0 1 -1 3 -0.00911 -0.2 -0.61 -0.15 -0.55 0 0 +0 1 0 -1 -4.83983 70.86 -100.97 -8.74 -289.05 0.02 0 +0 1 0 1 -6.46036 28.14 -136.25 -20.21 -386.09 0.29 0 +0 1 0 3 0.01157 0.06 0.77 0.04 0.69 0 0 +0 1 1 -3 -0.00703 -0.04 -0.47 -0.13 -0.42 0 0 +0 1 1 -1 -5.07614 -113.16 -112.23 -93.12 -304.28 0 0 +0 1 1 1 -5.31151 -99.03 -115.96 -99.19 -318.3 0.06 0 +0 1 1 3 0.00668 0.1 0.45 0.13 0.4 0 0 +0 1 2 -1 -0.31292 -4.92 -6.96 -11.47 -18.75 0 0 +0 1 2 1 -0.63884 -12.56 -13.95 -23.51 -38.29 0.01 0 +0 1 3 -1 -0.02419 -0.36 -0.54 -1.33 -1.45 0 0 +0 1 3 1 -0.06176 -1.23 -1.35 -3.4 -3.7 0 0 +0 1 4 1 -0.00548 -0.11 -0.12 -0.4 -0.33 0 0 +0 2 -2 -1 -0.01571 -0.49 -0.34 -0.57 -1.88 0 0 +0 2 -2 1 -0.00536 -0.12 -0.12 -0.2 -0.64 0 0 +0 2 -1 -1 -0.11335 -3.25 -2.46 -2.07 -13.58 0 0 +0 2 -1 1 -0.09511 -3.17 -2.08 -1.73 -11.39 0 0 +0 2 0 -1 -0.01801 3.13 -0.33 -0.14 -2.14 0 0 +0 2 0 1 -0.05729 2.09 -1.19 -0.39 -6.84 0 0 +0 2 1 -1 -0.06187 -1.29 -1.37 -1.13 -7.41 0 0 +0 2 1 1 -0.05504 -0.81 -1.21 -1.04 -6.59 0 0 +0 2 2 -1 -0.00284 -0.02 -0.06 -0.1 -0.34 0 0 +0 2 2 1 -0.00528 -0.06 -0.12 -0.19 -0.63 0 0 +0 3 -1 -1 -0.00216 -0.07 -0.05 -0.04 -0.39 0 0 +1 -2 0 1 0.00214 0 0.05 0 0.26 0.83 0 +1 -1 -1 -1 0.01031 0.07 0.23 0.2 0.62 4.01 -0.02 +1 -1 0 -1 -0.01346 -1.07 -0.27 0 -0.82 -5.23 0.03 +1 -1 0 1 -0.01829 -1.52 -0.33 0 -1.11 -7.11 0.04 +1 -1 1 -1 -0.02012 -0.42 -0.45 -0.38 -1.2 -7.83 0.04 +1 -1 1 1 -0.00845 -0.45 -0.17 -0.17 -0.51 -3.29 0.02 +1 0 -3 -1 -0.01255 -0.37 -0.27 -0.69 0 -4.88 0.03 +1 0 -3 1 -0.00537 -0.12 -0.12 -0.29 0 -2.09 0.01 +1 0 -2 -1 -0.10964 -3.19 -2.33 -4.03 -0.02 -42.63 0.22 +1 0 -2 1 -0.07846 -2 -1.72 -2.87 -0.03 -30.51 0.16 +1 0 -1 -3 -0.00369 -0.04 -0.25 -0.07 0 -1.44 0 +1 0 -1 -1 -0.42989 -13.13 -8.83 -8.15 -0.01 -167.15 0.88 +1 0 -1 1 0.13928 1.86 3.37 2.46 0.04 54.16 -0.29 +1 0 -1 3 0.00234 0.05 0.16 0.04 0 0.91 0 +1 0 0 -3 -0.03226 -0.41 -2.15 0 0 -12.54 0.07 +1 0 0 -1 -4.80578 -102.5 -103.39 -3.12 -0.09 -1868.59 9.85 +1 0 0 1 -5.36844 -119.82 -113.86 -3.16 -0.08 -2087.37 11 +1 0 0 3 0.00645 0.15 0.43 0.02 0 2.51 -0.01 +1 0 1 -1 -0.58893 -7.87 -13.1 -10.9 0.03 -228.99 1.21 +1 0 1 1 -0.66741 -14.68 -14.15 -12.47 0.07 -259.5 1.37 +1 0 2 -1 -0.03636 -0.4 -0.81 -1.34 0 -14.14 0.07 +1 0 2 1 -0.06383 -1.35 -1.35 -2.35 0.02 -24.82 0.13 +1 0 3 -1 -0.00247 -0.02 -0.05 -0.14 0 -0.96 0 +1 0 3 1 -0.00553 -0.11 -0.12 -0.3 0 -2.15 0.01 +1 1 -2 -1 0.01597 0.2 0.35 0.59 0.96 6.21 -0.03 +1 1 -2 1 0.0168 0.23 0.38 0.61 1.01 6.53 -0.03 +1 1 -1 -1 0.00635 -0.38 0.07 0.2 0.36 2.46 -0.01 +1 1 -1 1 -0.0559 -0.18 -1.29 -0.97 -3.36 -21.74 0.11 +1 1 0 -1 0.80426 0.22 17.53 1.11 48.12 312.71 -1.65 +1 1 0 1 0.80263 0.34 17.41 0.85 48.02 312.08 -1.65 +1 1 1 -1 0.03465 0.09 0.75 0.71 2.07 13.48 -0.07 +1 1 1 1 0.10176 0.15 2.2 1.97 6.09 39.57 -0.21 +1 1 2 -1 0.00317 0 0.07 0.12 0.19 1.23 0 +1 1 2 1 0.01016 0.03 0.22 0.38 0.61 3.95 -0.02 +2 -3 -1 -1 0.00914 0.25 0.2 0.17 1.64 0 0 +2 -3 -1 1 0.01042 0.25 0.23 0.19 1.87 0 0 +2 -3 0 -1 0.03647 0.91 0.81 0.02 6.54 0 0 +2 -3 0 1 0.01603 0.62 0.35 0.06 2.88 0 0 +2 -3 1 -1 0.0024 0.07 0.05 0.05 0.43 0 0 +2 -3 1 1 0.00256 0.11 0.06 0.05 0.46 0 0 +2 -2 -2 -1 0.02285 0.53 0.51 0.83 2.73 0 0 +2 -2 -1 -1 0.26865 6.32 5.97 4.91 32.14 0 0 +2 -2 -1 1 0.31474 6.78 6.97 5.75 37.65 0 0 +2 -2 0 -3 0.00273 0.03 0.18 0 0.33 0 0 +2 -2 0 -1 1.08587 23.51 24.25 0.47 129.87 0 0 +2 -2 0 1 0.38353 13.48 8.45 1.72 45.87 0 0 +2 -2 1 -1 0.06915 1.69 1.51 1.31 8.27 0 0 +2 -2 1 1 0.05848 2.24 1.28 1.26 6.99 0 0 +2 -2 2 -1 0.00555 0.16 0.12 0.21 0.66 0 0 +2 -2 2 1 0.00677 0.27 0.15 0.27 0.81 0 0 +2 -1 -4 -1 0.00416 0.06 0.09 0.3 0.25 0 0 +2 -1 -3 -1 0.05502 0.99 1.23 3.01 3.29 0 0 +2 -1 -3 1 0.00935 0.12 0.21 0.51 0.56 0 0 +2 -1 -2 -1 0.65025 13.75 14.46 23.7 38.91 0 0 +2 -1 -2 1 -0.06208 -0.48 -1.4 -2.27 -3.71 0 0 +2 -1 -2 3 -0.00267 -0.03 -0.18 -0.1 -0.16 0 0 +2 -1 -1 -3 0.01034 0.06 0.69 0.17 0.62 0 0 +2 -1 -1 -1 7.43488 154.99 165.14 135.9 444.61 -0.02 0 +2 -1 -1 1 8.86853 174.25 196.33 161.68 530.29 -0.01 0 +2 -1 -1 3 -0.01177 -0.23 -0.79 -0.24 -0.7 0 0 +2 -1 0 -3 0.08815 0.98 5.9 -0.13 5.27 0 0 +2 -1 0 -1 29.57794 553.39 661.64 12.43 1767.42 0.16 0 +2 -1 0 1 7.95891 253.11 175.21 44.35 475.6 0 0 +2 -1 0 3 -0.00944 -0.28 -0.63 -0.11 -0.56 0 0 +2 -1 1 -3 -0.01669 -0.3 -1.12 -0.31 -1 0 0 +2 -1 1 -1 1.76606 35.98 38.73 33.43 105.5 0.02 0 +2 -1 1 1 1.13466 38.36 24.88 25.43 67.78 0 0 +2 -1 1 3 -0.00224 -0.07 -0.15 -0.06 -0.13 0 0 +2 -1 2 -1 0.12897 2.89 2.78 4.82 7.7 0 0 +2 -1 2 1 0.12387 4.35 2.71 4.97 7.4 0 0 +2 -1 3 -1 0.00985 0.24 0.21 0.55 0.59 0 0 +2 -1 3 1 0.01211 0.44 0.26 0.7 0.72 0 0 +2 0 -5 -1 0.01127 0.23 0.25 1.03 0 0 0 +2 0 -5 1 0.0023 0.03 0.05 0.21 0 0 0 +2 0 -4 -1 0.13381 2.77 2.96 9.75 0 0 0 +2 0 -4 1 0.02496 0.39 0.56 1.82 0 0 0 +2 0 -3 -1 1.51564 31.76 33.59 82.84 0.07 0 0 +2 0 -3 1 0.25408 3.88 5.75 13.92 0 0.01 0 +2 0 -3 3 0.00232 0.05 0.16 0.13 0 0 0 +2 0 -2 -3 0.02045 0.1 1.37 0.7 0 0 0 +2 0 -2 -1 15.56635 330.35 344.99 567.47 0.23 0.03 0 +2 0 -2 1 -1.62443 -20.88 -36.38 -59.2 0.18 -0.02 0 +2 0 -2 3 -0.06561 -0.77 -4.41 -2.38 0 0 0 +2 0 -1 -3 0.32907 3.62 22.03 5.64 -0.02 0.01 0 +2 0 -1 -1 166.57528 3219.29 3695.9 3042.8 -5.99 0.39 0 +2 0 -1 1 199.48515 3726.28 4413.25 3627.39 -8.68 0.73 0 +2 0 -1 3 -0.24484 -4.55 -16.39 -4.94 0.02 0 0 +2 0 0 -5 -0.00221 -0.02 -0.25 0 0 0 0 +2 0 0 -3 2.18637 23.85 146.45 -2.38 -0.27 0.03 0 +2 0 0 -1 623.65783 9963.62 13978.19 245.16 -70.26 5 -0.03 +2 0 0 1 117.26161 3313.25 2575.66 874.52 -12.65 1.79 -0.01 +2 0 0 3 -0.14453 -3.71 -9.64 -2.05 0.02 0 0 +2 0 1 -3 -0.29116 -3.49 -19.63 -5.36 0.05 0 0 +2 0 1 -1 33.35743 512.77 735.76 630.31 -5.21 0.43 0 +2 0 1 1 15.12165 433.44 331.25 359.2 -2.4 0.31 0 +2 0 1 3 -0.03038 -0.82 -2.02 -0.85 0 0 0 +2 0 2 -3 -0.00995 -0.12 -0.68 -0.36 0 0 0 +2 0 2 -1 2.14618 33.22 46.62 80.12 -0.45 0.04 0 +2 0 2 1 1.51976 43.48 33.21 62.71 -0.33 0.04 0 +2 0 2 3 -0.00451 -0.12 -0.3 -0.2 0 0 0 +2 0 3 -1 0.14642 2.28 3.13 8.16 -0.04 0 0 +2 0 3 1 0.13795 3.92 3.01 8.15 -0.04 0 0 +2 0 4 -1 0.01027 0.16 0.22 0.76 0 0 0 +2 0 4 1 0.01186 0.33 0.26 0.91 0 0 0 +2 1 -4 -1 0.00247 0.19 0.05 0.18 0.15 0 0 +2 1 -3 -1 0.01818 1.67 0.38 0.99 1.1 0 0 +2 1 -2 -1 0.07913 12.08 1.57 2.84 4.8 0 0 +2 1 -2 1 0.05429 3.18 1.16 1.97 3.26 0 0 +2 1 -1 -3 -0.00342 0.05 -0.23 -0.06 -0.2 0 0 +2 1 -1 -1 -0.79105 41.53 -18.4 -14.91 -47.09 -0.01 0 +2 1 -1 1 -1.31788 39.71 -29.98 -24.58 -78.59 0 0 +2 1 0 -3 -0.05457 -0.95 -3.65 0.01 -3.27 0 0 +2 1 0 -1 -12.0947 -205.76 -271.06 -3.14 -723.84 -0.31 0 +2 1 0 1 -1.26433 -30.65 -27.38 -10.59 -75.65 -0.41 0 +2 1 1 -3 0.00465 0.02 0.31 0.09 0.28 0 0 +2 1 1 -1 -0.82275 -17.02 -18.2 -15.41 -49.25 -0.04 0 +2 1 1 1 -0.23702 -7.85 -5.1 -5.79 -14.19 -0.08 0 +2 1 2 -1 -0.06283 -1.47 -1.37 -2.34 -3.76 0 0 +2 1 2 1 -0.03142 -1.17 -0.67 -1.31 -1.88 -0.01 0 +2 1 3 -1 -0.00496 -0.13 -0.11 -0.28 -0.3 0 0 +2 1 3 1 -0.00355 -0.14 -0.08 -0.21 -0.21 0 0 +2 2 -2 -1 -0.01262 -0.47 -0.28 -0.46 -1.51 0 0 +2 2 -2 1 -0.00504 -0.27 -0.11 -0.19 -0.6 0 0 +2 2 -1 -1 -0.10535 -3.66 -2.34 -1.91 -12.62 0 0 +2 2 -1 1 -0.1133 -3.82 -2.5 -2.08 -13.58 0 0 +2 2 0 -1 -0.13415 -2.41 -3.04 -0.26 -16.07 0 0 +2 2 0 1 -0.01482 -0.52 -0.32 -0.53 -1.78 0.03 0 +2 2 1 -1 -0.00617 -0.08 -0.14 -0.13 -0.74 0 0 +3 -1 -2 -1 -0.00282 -0.07 -0.06 -0.1 -0.17 -1.1 0 +3 -1 -2 1 -0.00329 -0.07 -0.07 -0.12 -0.2 -1.28 0 +3 -1 -1 -1 -0.02104 -0.53 -0.47 -0.39 -1.26 -8.18 0.04 +3 -1 -1 1 -0.01356 -0.55 -0.29 -0.27 -0.81 -5.27 0.03 +3 -1 0 -1 -0.02572 -0.94 -0.6 -0.07 -1.53 -10 0.05 +3 -1 1 -1 -0.00275 -0.11 -0.06 -0.06 -0.16 -1.07 0 +3 0 -3 -1 -0.00287 -0.04 -0.06 -0.16 0 -1.12 0 +3 0 -2 -1 -0.03941 -0.88 -0.87 -1.44 0 -15.32 0.08 +3 0 -2 1 -0.04852 -1.04 -1.06 -1.77 0 -18.87 0.1 +3 0 -1 -1 -0.30517 -7.43 -6.74 -5.66 0.08 -118.66 0.63 +3 0 -1 1 -0.20593 -7.88 -4.39 -4.05 0.12 -80.07 0.42 +3 0 0 -3 -0.01009 -0.13 -0.68 0 0 -3.92 0.02 +3 0 0 -1 -0.35183 -11.87 -8.15 -0.99 0.22 -136.8 0.72 +3 0 0 1 -0.0284 -2.77 -0.49 -1.37 0.1 -11.04 0.06 +3 0 1 -1 -0.03611 -1.26 -0.83 -0.75 0.03 -14.04 0.07 +3 0 1 1 -0.00658 -0.56 -0.12 -0.29 0.02 -2.56 0.01 +3 0 2 -1 -0.00322 -0.12 -0.07 -0.13 0 -1.25 0 +3 1 -2 1 -0.00261 -0.12 -0.06 -0.09 -0.16 -1.02 0 +3 1 -1 -1 0.01321 0.23 0.29 0.25 0.79 5.14 -0.03 +3 1 -1 1 0.02083 0.37 0.45 0.39 1.24 8.1 -0.04 +3 1 0 -1 0.03436 0.68 0.77 0.09 2.05 13.36 -0.07 +3 1 0 1 0.01351 0.39 0.29 0.17 0.81 5.25 -0.03 +3 1 1 -1 0.00426 0.09 0.09 0.09 0.25 1.66 0 +3 1 1 1 0.00258 0.08 0.05 0.07 0.15 1 0 +4 -2 -2 -1 0.00283 0.11 0.06 0.1 0.34 0 0 +4 -2 -2 1 0.0123 0.5 0.27 0.45 1.47 0 0 +4 -2 -1 -1 0.03462 1.29 0.77 0.65 4.14 0 0 +4 -2 -1 1 0.0238 1.25 0.52 0.53 2.85 0 0 +4 -2 0 -1 0.02899 1.41 0.65 0.18 3.46 0 0 +4 -2 0 1 0.0127 0.79 0.27 0.2 1.52 0 0 +4 -2 1 -1 0.00417 0.21 0.09 0.1 0.5 0 0 +4 -2 1 1 0.00255 0.17 0.06 0.08 0.3 0 0 +4 -1 -2 -1 0.05251 1.99 1.16 1.92 3.14 0 0 +4 -1 -2 1 0.21376 8.24 4.68 7.8 12.77 0 0 +4 -1 -1 -1 0.5958 21.19 13.27 11.16 35.53 0.02 0 +4 -1 -1 1 0.33882 16.92 7.36 7.74 20.21 0 0 +4 -1 0 -3 0.00534 0.13 0.36 0 0.32 0 0 +4 -1 0 -1 0.41496 19 9.23 2.87 24.71 0 0 +4 -1 0 1 0.15791 9.24 3.41 2.73 9.41 0 0 +4 -1 1 -1 0.05686 2.69 1.24 1.35 3.38 0 0 +4 -1 1 1 0.03009 1.83 0.65 0.93 1.79 0 0 +4 -1 2 -1 0.00614 0.3 0.13 0.25 0.37 0 0 +4 -1 2 1 0.00421 0.26 0.09 0.2 0.25 0 0 +4 0 -4 -1 -0.0068 -0.28 -0.15 -0.5 0 0 0 +4 0 -3 -1 -0.00771 -0.29 -0.17 -0.42 0 0 0 +4 0 -3 1 0.02174 1.3 0.47 1.19 0.02 0 0 +4 0 -2 -3 -0.0039 -0.14 -0.26 -0.14 0 0 0 +4 0 -2 -1 0.63371 23.67 13.99 23.16 -0.03 0.08 0 +4 0 -2 1 2.41389 90.53 52.84 87.95 -0.35 0.07 0 +4 0 -2 3 -0.00632 -0.24 -0.42 -0.24 0 0 0 +4 0 -1 -3 -0.00554 -0.34 -0.37 -0.1 0 0 0 +4 0 -1 -1 6.57962 223.57 146.75 123.07 -1.94 0.26 0 +4 0 -1 1 2.9985 142.57 65.02 71.12 -0.78 0.06 0 +4 0 -1 3 -0.00664 -0.31 -0.44 -0.19 0 0 0 +4 0 0 -3 0.06257 1.51 4.19 -0.04 -0.03 0.02 0 +4 0 0 -1 3.67449 157.55 81.63 29.57 -1.61 0.06 0 +4 0 0 1 1.19188 65.39 25.66 23.11 -0.45 0.08 0 +4 0 0 3 -0.00288 -0.15 -0.19 -0.08 0 0 0 +4 0 1 -3 -0.00552 -0.15 -0.38 -0.11 0 0 0 +4 0 1 -1 0.47338 20.49 10.32 11.59 -0.25 0.02 0 +4 0 1 1 0.21259 11.97 4.56 6.92 -0.1 0.01 0 +4 0 2 -1 0.04834 2.1 1.03 2.04 -0.03 0 0 +4 0 2 1 0.02828 1.6 0.6 1.37 -0.02 0 0 +4 0 3 -1 0.00449 0.2 0.09 0.27 0 0 0 +4 0 3 1 0.00323 0.18 0.07 0.21 0 0 0 +4 1 -2 1 -0.02957 0.54 -0.67 -1.08 -1.78 0 0 +4 1 -1 -1 -0.17191 -3.93 -3.89 -3.2 -10.3 -0.02 0 +4 1 -1 1 -0.05097 -1.36 -1.11 -1.24 -3.06 -0.02 0 +4 1 0 -3 -0.00304 -0.09 -0.2 0 -0.18 0 0 +4 1 0 -1 -0.11308 -4.83 -2.51 -0.93 -6.76 -0.02 0 +4 1 0 1 -0.02549 -1.26 -0.54 -0.52 -1.53 0 0 +4 1 1 -1 -0.01692 -0.79 -0.37 -0.42 -1.01 0 0 +4 1 1 1 -0.00558 -0.32 -0.12 -0.19 -0.33 0 0 +4 2 -2 1 -0.00277 -0.16 -0.06 -0.1 -0.33 0 0 +4 2 -1 -1 -0.00438 -0.25 -0.09 -0.08 -0.52 0 0 +5 0 -2 -1 -0.00505 -0.21 -0.11 -0.19 0 -1.96 0.01 +5 0 -2 1 -0.00519 -0.29 -0.11 -0.2 0 -2.02 0.01 +5 0 -1 -1 -0.01049 -0.54 -0.24 -0.22 0.01 -4.08 0.02 +5 0 -1 1 -0.00245 -0.21 -0.05 -0.09 0 -0.95 0 +5 0 0 -1 -0.00254 -0.19 -0.06 -0.07 0 -0.99 0 +6 -1 -3 1 0.00415 0.24 0.09 0.23 0.25 0 0 +6 -1 -2 -1 0.01091 0.59 0.24 0.4 0.65 0 0 +6 -1 -2 1 0.00939 0.64 0.2 0.38 0.56 0 0 +6 -1 -1 -1 0.01486 0.96 0.33 0.35 0.88 0 0 +6 -1 -1 1 0.00757 0.59 0.16 0.24 0.45 0 0 +6 -1 0 -1 0.00652 0.47 0.14 0.12 0.39 0 0 +6 -1 0 1 0.00288 0.24 0.06 0.09 0.17 0 0 +6 0 -3 -1 0.00702 0.4 0.15 0.38 0 0 0 +6 0 -3 1 0.03118 1.77 0.68 1.71 0 0 0 +6 0 -2 -1 0.08096 4.28 1.79 3 -0.04 0 0 +6 0 -2 1 0.05963 3.97 1.28 2.46 -0.03 0 0 +6 0 -1 -1 0.09403 5.84 2.08 2.28 -0.07 0 0 +6 0 -1 1 0.04217 3.17 0.89 1.37 -0.03 0 0 +6 0 0 -1 0.03674 2.54 0.8 0.73 -0.03 0 0 +6 0 0 1 0.01465 1.19 0.31 0.47 -0.01 0 0 +6 0 1 -1 0.00654 0.46 0.14 0.22 0 0 0 +6 0 1 1 0.00305 0.25 0.06 0.13 0 0 0 +6 1 -2 -1 -0.00256 -0.08 -0.06 -0.09 -0.15 0 0 +6 1 -1 -1 -0.0035 -0.19 -0.08 -0.08 -0.21 0 0 +233 +0 0 0 0 385000.52719 -7992.63 -11.06 21578.08 -4.53 11.39 -0.06 +0 0 0 2 -3.14837 -204.48 -138.94 159.64 -0.39 0.12 0 +0 0 1 -2 79.66183 -359.45 3583.79 1454.02 -2.37 0.85 0 +0 0 1 0 -20905.32206 6888.23 -35.83 -380331.74 22.31 1.77 0 +0 0 1 2 -0.10326 -9.14 -4.53 8.08 0 0.02 0 +0 0 2 -4 -0.00837 0.07 -0.75 -0.31 0 0 0 +0 0 2 -2 -4.42124 18.29 -198.91 -161.9 0.14 -0.04 0 +0 0 2 0 -569.92332 374.44 -1.99 -20737.33 5.79 0.44 0 +0 0 3 0 -23.21032 26.49 -0.14 -1266.64 0.63 0.05 0 +0 0 4 0 -1.11693 1.98 0 -81.26 0.06 0 0 +0 0 5 0 -0.05888 0.15 0 -5.35 0 0 0 +0 1 -4 0 -0.02674 -0.56 0 -1.94 -1.6 0 0 +0 1 -3 0 -0.42242 -9.35 0.2 -23.04 -25.3 0 0 +0 1 -2 0 -7.00293 -161.63 3.29 -254.78 -419.55 -0.12 0 +0 1 -2 2 -0.0502 -1.17 -2.24 -1.83 -3.01 0 0 +0 1 -1 -2 -0.00769 -0.15 -0.34 -0.04 -0.46 0 0 +0 1 -1 0 -129.62476 -3122.77 61.8 -2362.46 -7767.84 -0.74 0 +0 1 -1 2 0.33465 7.26 14.91 5.99 20.06 0 0 +0 1 0 -2 -0.18568 -4.48 -8.29 0.54 -11.12 0 0 +0 1 0 0 48.8901 1082.4 -25.99 156.78 2926.5 -3.76 0.02 +0 1 0 2 -0.15803 -3.35 -7.06 -0.08 -9.46 -0.03 0 +0 1 1 -2 -0.24811 -2.72 -11.08 -4.5 -14.87 0 0 +0 1 1 0 104.75896 2165.07 -47.62 1929.1 6279.07 -0.6 0 +0 1 1 2 -0.00682 -0.05 -0.31 -0.17 -0.41 0 0 +0 1 2 -2 0.03265 0.36 1.45 1.2 1.96 0 0 +0 1 2 0 5.75105 119.47 -2.62 210.76 344.76 -0.09 0 +0 1 3 0 0.35509 7.33 -0.16 19.48 21.29 0 0 +0 1 4 0 0.02304 0.47 0 1.68 1.38 0 0 +0 2 -3 0 -0.00938 -0.29 0 -0.51 -1.12 0 0 +0 2 -2 0 -0.13618 -4.1 0.09 -4.96 -16.31 0 0 +0 2 -1 0 -2.11728 -59.78 1.22 -38.7 -253.61 0 0 +0 2 -1 2 0.0045 0.12 0.2 0.08 0.54 0 0 +0 2 0 -2 -0.00558 -0.14 -0.25 0 -0.67 0 0 +0 2 0 0 1.06575 16.47 -0.6 3.28 127.54 0 0 +0 2 1 0 1.16562 22.2 -0.39 21.49 139.6 0 0 +0 2 2 0 0.05072 0.7 0 1.86 6.07 0 0 +0 3 -1 0 -0.03894 -1.14 0.03 -0.71 -6.99 0 0 +0 3 0 0 0.02127 0.03 0 0.08 3.82 0 0 +0 3 1 0 0.01912 0.39 0 0.35 3.43 0 0 +1 -2 -1 0 0.00844 0.1 0 0.17 1.01 3.28 0 +1 -2 0 0 -0.02948 0.18 0 -0.03 -3.52 -11.46 0.06 +1 -1 -2 0 -0.00422 -0.24 0 -0.13 -0.26 -1.64 0 +1 -1 -1 0 0.11411 0 -0.02 2.31 6.8 44.37 -0.23 +1 -1 0 -2 -0.01366 -0.21 -0.61 0 -0.82 -5.31 0.03 +1 -1 0 0 0.49757 32.61 -1.42 0.14 30 193.46 -1.02 +1 -1 1 0 0.10998 5.32 -0.17 2.14 6.59 42.76 -0.23 +1 -1 2 0 0.01121 0.52 0 0.42 0.67 4.36 -0.02 +1 0 -4 0 -0.00636 -0.18 0 -0.46 0 -2.47 0 +1 0 -3 0 -0.09938 -2.83 0.09 -5.45 -0.04 -38.64 0.2 +1 0 -2 0 -1.73852 -48.13 1.59 -63.71 -0.5 -675.99 3.56 +1 0 -2 2 0.00457 0.03 0.2 0.16 0 1.78 0 +1 0 -1 -2 -0.04232 -0.6 -1.87 -0.77 0 -16.45 0.09 +1 0 -1 0 -8.37909 -219.27 9.53 -156.07 -0.84 -3257.99 17.18 +1 0 -1 2 -0.02471 -0.5 -1.08 -0.46 0 -9.61 0.05 +1 0 0 -2 -0.79564 -11.23 -35.24 -0.22 0 -309.37 1.63 +1 0 0 0 108.74265 2351.06 -120.48 69.82 2.01 42281.56 -222.9 +1 0 0 2 -0.01874 -0.51 -0.83 -0.13 0 -7.29 0.04 +1 0 1 -2 0.06055 0.87 2.67 1.14 0 23.54 -0.12 +1 0 1 0 6.32199 138.54 -6.74 118.1 -0.56 2458.13 -12.96 +1 0 2 0 0.37852 7.87 -0.4 13.92 -0.09 147.18 -0.78 +1 0 3 0 0.02368 0.46 -0.02 1.3 0 9.21 -0.05 +1 1 -3 0 0.01729 0.21 0 0.95 1.04 6.72 -0.04 +1 1 -2 0 0.33226 4.67 -0.1 12.19 19.9 129.18 -0.68 +1 1 -1 0 0.85127 -2.92 -0.5 15.94 50.91 330.99 -1.74 +1 1 0 -2 0.03379 0.04 1.48 0.11 2.02 13.14 -0.07 +1 1 0 0 -16.67533 -4.78 10.81 -19.36 -997.67 -6483.73 34.18 +1 1 1 -2 -0.00562 0 -0.25 -0.11 -0.34 -2.18 0 +1 1 1 0 -0.93335 -1.07 0.64 -18.08 -55.84 -362.91 1.91 +1 1 2 0 -0.05904 -0.12 0.04 -2.22 -3.53 -22.96 0.12 +1 1 3 0 -0.00392 0 0 -0.22 -0.23 -1.52 0 +1 2 -1 0 0.00438 0.14 0 0.08 0.52 1.7 0 +1 2 0 0 0.03729 0.6 -0.03 0.07 4.47 14.5 -0.08 +1 2 1 0 0.00646 0.12 0 0.13 0.77 2.51 0 +2 -4 -1 0 -0.00426 -0.08 0 -0.08 -1.02 0 0 +2 -4 0 0 -0.01578 -0.66 0 0 -3.78 0 0 +2 -3 -2 0 0.01116 0.26 0 0.41 2 0 0 +2 -3 -1 0 -0.14808 -2.64 0.03 -2.71 -26.58 0 0 +2 -3 0 0 -0.41076 -15.67 0.09 -0.51 -73.71 0 0 +2 -3 1 0 -0.02855 -1.2 0 -0.56 -5.12 0 0 +2 -2 -3 0 0.01517 0.23 0 0.83 1.81 0 0 +2 -2 -2 0 0.34304 6.87 -0.03 12.5 41.04 0 0 +2 -2 -1 -2 0.00957 0.13 0.43 0.17 1.15 0 0 +2 -2 -1 0 -4.95049 -84.9 0.91 -90.35 -592.24 0.03 0 +2 -2 0 -2 0.02839 0.78 1.27 -0.11 3.4 0 0 +2 -2 0 0 -9.88519 -346.35 1.99 -14.48 -1182.31 0.07 0 +2 -2 1 -2 0.00792 0.09 0.36 0.14 0.95 0 0 +2 -2 1 0 -0.65758 -25.02 0.18 -13.07 -78.64 0 0 +2 -2 2 0 -0.04608 -1.86 0 -1.76 -5.51 0 0 +2 -1 -4 0 0.02334 0.28 0 1.7 1.4 0 0 +2 -1 -3 0 0.49506 7.68 0 27.04 29.62 0 0 +2 -1 -2 -2 0.01518 0.17 0.68 0.54 0.91 0 0 +2 -1 -2 0 10.05654 188.87 -1.29 366.36 601.57 -0.03 0 +2 -1 -2 2 0.03024 0.36 1.36 1.1 1.81 0 0 +2 -1 -1 -2 0.32336 4.56 14.42 5.73 19.34 0 0 +2 -1 -1 0 -152.14314 -2564.2 30.4 -2771.74 -9097.84 0.06 0 +2 -1 -1 2 0.03734 0.84 1.68 0.85 2.23 0 0 +2 -1 0 -2 0.6571 17.83 29.3 -2.92 39.26 0 0 +2 -1 0 0 -204.59357 -6583.8 38.79 -377.95 -12225.82 0.27 0 +2 -1 1 -2 0.20942 1.81 9.46 3.82 12.5 0 0 +2 -1 1 0 -12.83185 -434.14 2.98 -260.02 -766.51 0.02 0 +2 -1 2 -2 0.01804 0.34 0.81 0.66 1.08 0 0 +2 -1 2 0 -0.84883 -29.75 0.22 -32.8 -50.68 0 0 +2 -1 3 0 -0.0585 -2.1 0 -3.33 -3.49 0 0 +2 -1 4 0 -0.00413 -0.15 0 -0.31 -0.25 0 0 +2 0 -5 0 0.0474 0.93 0 4.32 0 0 0 +2 0 -4 0 0.77854 15.43 -0.13 56.71 0.05 0 0 +2 0 -3 -2 0.0291 0.44 1.3 1.57 0 0 0 +2 0 -3 0 14.40262 282.85 -2.35 786.99 0.58 0.14 0 +2 0 -3 2 -0.02008 -0.43 -0.89 -1.09 0 0 0 +2 0 -2 -2 0.47263 7.2 21.06 16.92 0 0 0 +2 0 -2 0 246.15768 4806.36 -51.78 8962.91 -0.43 1.11 0 +2 0 -2 2 0.77405 9.68 34.65 28.17 -0.04 0 0 +2 0 -1 -2 8.7517 133.45 390.01 155.98 -0.28 0.2 0 +2 0 -1 0 -3699.10468 -63127.05 818 -67236.74 147.86 -15.95 0.14 +2 0 -1 2 0.59633 12.13 26.76 14.46 -0.08 0.03 0 +2 0 0 -4 -0.00745 -0.11 -0.67 -0.1 0 0 0 +2 0 0 -2 10.32129 282.08 460.16 -60.76 -1.29 0.06 0 +2 0 0 0 -2955.96651 -86674.51 507.99 -7597.69 323.54 -19.09 0.14 +2 0 0 2 0.03143 -0.69 1.43 2.99 0 0 0 +2 0 1 -4 -0.01866 -0.11 -1.67 -0.33 0 0 0 +2 0 1 -2 4.13118 20.86 186.87 75.09 -0.76 0 0 +2 0 1 0 -170.73274 -4963.3 29.72 -3579.16 26.82 -1.82 0 +2 0 2 -2 0.28399 2.9 12.83 10.35 -0.06 0 0 +2 0 2 0 -10.44472 -300.48 1.81 -410.75 2.24 -0.17 0 +2 0 3 -2 0.01811 0.19 0.82 0.99 0 0 0 +2 0 3 0 -0.66968 -19.02 0.12 -38.59 0.19 0 0 +2 0 4 0 -0.04422 -1.24 0 -3.36 0 0 0 +2 1 -4 0 0.01417 1.08 0 1.03 0.85 0 0 +2 1 -3 0 0.16858 15.79 -0.24 9.16 10.17 0.05 0 +2 1 -2 0 0.14368 122.13 -1.91 4.58 9.23 0.13 0 +2 1 -1 -2 -0.04736 2.58 -2.16 -0.89 -2.82 0 0 +2 1 -1 0 24.20935 -837.26 13.3 449.34 1443.45 0.26 0 +2 1 -1 2 -0.00588 -0.1 -0.26 -0.14 -0.35 0 0 +2 1 0 -2 -0.13572 -4.94 -6.04 0.54 -8.13 0.03 0 +2 1 0 0 30.82498 873.36 -8.4 94.4 1844.57 3.86 -0.02 +2 1 1 -2 -0.05527 1.02 -2.52 -1.02 -3.29 0 0 +2 1 1 0 2.6165 90.88 -1.01 56.02 156.64 0.49 0 +2 1 2 -2 -0.00537 -0.03 -0.24 -0.2 -0.32 0 0 +2 1 2 0 0.21252 8.11 -0.09 8.45 12.72 0.05 0 +2 1 3 0 0.01704 0.68 0 0.99 1.02 0 0 +2 2 -3 0 -0.01036 -0.29 0 -0.58 -1.25 0 0 +2 2 -2 0 -0.10888 -2.72 0 -3.96 -13.05 0 0 +2 2 -1 -2 -0.01072 -0.37 -0.47 -0.17 -1.28 0 0 +2 2 -1 0 2.3538 79.52 -0.72 42.86 282.05 -0.06 0 +2 2 0 0 0.14764 4.88 -0.05 4.9 17.69 -0.29 0 +2 2 1 0 0.00912 0.29 0 0.46 1.09 -0.04 0 +3 -2 -1 0 0.01389 0.55 0 0.26 1.66 5.4 -0.03 +3 -2 0 0 -0.01048 -0.23 0 0.04 -1.25 -4.07 0.02 +3 -1 -2 0 0.05293 0.92 0 1.93 3.17 20.58 -0.11 +3 -1 -1 0 0.25561 9.61 -0.15 4.83 15.24 99.38 -0.52 +3 -1 0 -2 0.01441 0.21 0.64 0 0.86 5.61 -0.03 +3 -1 0 0 -0.15708 -2.88 -0.04 0.83 -9.42 -61.08 0.32 +3 -1 1 0 -0.00887 -0.03 0 -0.09 -0.54 -3.45 0 +3 0 -3 0 -0.04843 -0.72 0 -2.65 -0.03 -18.83 0.1 +3 0 -2 0 0.86243 16.64 -0.34 31.48 0.13 335.34 -1.77 +3 0 -1 -2 -0.00868 0 -0.39 -0.14 0 -3.38 0 +3 0 -1 0 3.25823 117.77 -2.27 61.91 -1.34 1266.88 -6.68 +3 0 0 -2 0.20099 2.46 8.95 -0.04 -0.07 78.15 -0.41 +3 0 0 0 -1.41893 -19.43 -0.69 10.76 -0.63 -551.71 2.91 +3 0 1 -2 0.00671 0.02 0.3 0.12 0 2.61 0 +3 0 1 0 -0.06545 0.72 -0.1 -0.32 -0.11 -25.45 0.13 +3 1 -3 0 -0.0068 -0.29 0 -0.37 -0.41 -2.64 0 +3 1 -2 0 0.0381 2.03 0 1.37 2.29 14.82 -0.08 +3 1 -1 0 -0.21259 -4 0.17 -4.03 -12.7 -82.66 0.44 +3 1 0 -2 -0.00808 -0.12 -0.36 0 -0.48 -3.14 0 +3 1 0 0 -0.10766 -3.22 0.12 -1.09 -6.42 -41.86 0.22 +3 1 1 0 -0.01448 -0.44 0 -0.37 -0.86 -5.63 0.03 +4 -3 -2 0 -0.00513 -0.22 0 -0.19 -0.92 0 0 +4 -3 -1 0 -0.01571 -0.87 0 -0.31 -2.82 0 0 +4 -3 0 0 -0.00817 -0.54 0 -0.08 -1.47 0 0 +4 -2 -2 0 -0.10834 -4.38 0.04 -3.95 -12.96 0 0 +4 -2 -1 0 -0.27906 -14.76 0.11 -5.61 -33.36 0 0 +4 -2 0 -2 -0.00403 -0.18 -0.18 0 -0.48 0 0 +4 -2 0 0 -0.12806 -8.09 0.05 -1.35 -15.3 -0.02 0 +4 -2 1 0 -0.01728 -1.13 0 -0.45 -2.06 0 0 +4 -1 -3 0 -0.04316 -2.19 0.02 -2.36 -2.59 0 0 +4 -1 -2 -2 -0.00661 -0.25 -0.29 -0.24 -0.4 0 0 +4 -1 -2 0 -1.8971 -73.13 0.79 -69.17 -113.34 -0.12 0 +4 -1 -1 -2 -0.02698 -0.67 -1.2 -0.5 -1.61 0 0 +4 -1 -1 0 -3.95812 -199.78 1.54 -80.75 -236.16 0.15 0 +4 -1 0 -2 -0.05789 -2.54 -2.57 0.14 -3.44 -0.02 0 +4 -1 0 0 -1.57145 -94.02 0.59 -18.48 -93.65 -0.26 0 +4 -1 1 0 -0.20286 -12.45 0.08 -5.51 -12.08 -0.03 0 +4 -1 2 0 -0.02079 -1.29 0 -0.92 -1.24 0 0 +4 0 -5 0 -0.00542 -0.21 0 -0.49 0 0 0 +4 0 -4 0 -0.02939 -0.87 0 -2.14 0 0 0 +4 0 -3 -2 -0.00744 -0.27 -0.33 -0.41 0 0 0 +4 0 -3 0 -0.51423 -25.81 0.28 -28.1 -0.19 -0.15 0 +4 0 -3 2 0.00925 0.29 0.41 0.5 0 0 0 +4 0 -2 -2 -0.07982 -2.91 -3.54 -2.91 0 0 0 +4 0 -2 0 -21.63627 -808.81 9.47 -788.01 2.77 -1.21 0 +4 0 -2 2 0.01483 0.6 0.66 0.61 0 0 0 +4 0 -1 -2 -0.32176 -7.98 -14.29 -5.95 0.15 -0.11 0 +4 0 -1 0 -34.78245 -1678.73 13.5 -725.23 8.97 0.88 0 +4 0 -1 2 0.0055 0.25 0.25 0.21 0 0 0 +4 0 0 -2 -0.50793 -21.44 -22.55 1.37 0.28 -0.17 0 +4 0 0 0 -11.64993 -657.42 4.13 -155.6 4.42 -2.17 0 +4 0 1 -2 0.01938 0.76 0.89 0.57 0 0 0 +4 0 1 0 -1.42255 -81.3 0.5 -40.47 0.68 -0.21 0 +4 0 2 -2 0.004 0.16 0.18 0.17 0 0 0 +4 0 2 0 -0.13922 -7.97 0.05 -6.33 0.08 0 0 +4 0 3 0 -0.01243 -0.71 0 -0.78 0 0 0 +4 1 -3 0 -0.02399 -2.48 0.03 -1.3 -1.43 0 0 +4 1 -2 0 0.23696 -7.25 0.12 8.69 14.25 0.02 0 +4 1 -1 -2 0.01551 0.5 0.69 0.29 0.92 0 0 +4 1 -1 0 0.57881 16.49 -0.1 12.27 34.72 0.13 0 +4 1 0 -2 0.01969 0.95 0.87 0 1.18 0 0 +4 1 0 0 0.24453 12.94 -0.1 3.44 14.63 0.04 0 +4 1 1 0 0.03682 2.17 -0.02 1.07 2.2 0 0 +4 1 2 0 0.0043 0.27 0 0.2 0.26 0 0 +4 2 -2 0 0.02658 1.57 0 0.97 3.18 0 0 +4 2 -1 0 0.01868 1.31 0 0.45 2.24 0 0 +5 -1 -2 0 0.00573 0.32 0 0.22 0.34 2.23 0 +5 0 -3 0 0.01149 0.49 0 0.63 0 4.47 -0.02 +5 0 -2 0 0.04591 2.5 -0.04 1.73 -0.03 17.85 -0.09 +5 0 0 0 -0.00814 -0.25 0 0.07 0 -3.17 0 +6 -2 -2 0 -0.00618 -0.44 0 -0.24 -0.74 0 0 +6 -2 -1 0 -0.00541 -0.44 0 -0.14 -0.65 0 0 +6 -1 -3 0 -0.02436 -1.43 0 -1.33 -1.45 0 0 +6 -1 -2 0 -0.06678 -4.61 0.04 -2.6 -3.98 0 0 +6 -1 -1 0 -0.05191 -4.1 0.03 -1.42 -3.09 0 0 +6 -1 0 0 -0.01709 -1.47 0 -0.42 -1.01 0 0 +6 0 -4 0 -0.00659 -0.45 0 -0.48 0 0 0 +6 0 -3 0 -0.18316 -10.48 0.12 -10.02 0.05 -0.02 0 +6 0 -2 0 -0.4225 -28.36 0.26 -16.58 0.19 0 0 +6 0 -1 -2 -0.00785 -0.44 -0.35 -0.13 0 0 0 +6 0 -1 0 -0.28663 -21.86 0.16 -8.12 0.18 -0.03 0 +6 0 0 0 -0.08587 -7.1 0.05 -2.25 0.07 -0.02 0 +6 0 1 0 -0.0142 -1.2 0 -0.55 0 0 0 +6 1 -2 0 0.00948 0.35 0 0.37 0.57 0 0 +6 1 -1 0 0.0078 0.49 0 0.22 0.47 0 0 +8 0 -3 0 -0.00539 -0.46 0 -0.31 0 0 0 +8 0 -2 0 -0.00559 -0.53 0 -0.25 0 0 0 +43 +0 0 0 0 1 270 3E-5 0.075 +0 0 0 1 -2 180 0.0048 0.074 +0 2 0 -1 0 0 0.02206 0.087 +1 -2 0 -1 -1 0.00113 0.00913 0.026 +1 -2 0 -1 1 180.00049 0.00887 0.089 +1 -2 0 0 -1 0.001 0.06569 0.04 +1 -2 0 0 1 0.00076 0.04746 0.487 +1 -2 0 1 -1 0.00029 0.04962 0.087 +1 -2 0 2 -1 180.00208 0.00249 0.581 +1 -2 1 0 -1 0.00098 0.00482 0.042 +1 -2 1 1 -1 0.00031 0.00225 0.095 +1 0 -1 0 -1 0.00067 0.00282 0.949 +1 0 -1 1 -1 0.00118 0.00387 0.082 +1 0 0 -3 -1 0.00129 0.00228 0.025 +1 0 0 -2 -1 0.00128 0.03279 0.038 +1 0 0 -2 1 180.00024 0.00387 3.574 +1 0 0 -1 -3 180.00102 0.00261 0.025 +1 0 0 -1 -1 0.00127 0.49141 0.075 +1 0 0 -1 1 0.00051 0.05036 0.074 +1 0 0 0 -3 180.00086 0.01492 0.037 +1 0 0 0 -1 0.00094 7.06304 18.613 +1 0 0 0 1 0.00071 0.36061 0.037 +1 0 0 1 -1 0.00127 0.49331 0.076 +1 0 0 1 1 0.0007 0.03838 0.025 +1 0 0 2 -1 0.00126 0.03402 0.038 +1 0 0 2 1 0.00069 0.00331 0.019 +1 0 0 3 -1 0.00125 0.00242 0.025 +1 0 1 -1 -1 0.00143 0.00249 0.081 +1 0 1 0 -1 180.00079 0.0024 1.057 +1 0 1 1 -1 180.00116 0.00292 0.07 +1 1 0 0 -1 180.00088 0.00342 0.081 +1 2 -1 -1 -1 0.00041 0.00288 0.096 +1 2 -1 0 -1 0.00091 0.00646 0.042 +1 2 0 -1 -1 0.00042 0.06456 0.088 +1 2 0 -1 1 0.00071 0.00815 0.026 +1 2 0 0 -1 0.0009 0.09642 0.041 +1 2 0 0 1 0.0007 0.0048 0.019 +1 2 0 1 -1 0.00102 0.01234 0.026 +1 4 0 -1 -1 0.00078 0.00217 0.028 +2 0 0 -1 -2 180 0.00239 0.075 +2 0 0 0 -2 180 0.03638 9.307 +2 0 0 0 0 180 0.00239 0.037 +2 0 0 1 -2 180 0.00241 0.076 +41 +0 0 0 0 3 0 3E-5 0.025 +0 2 0 0 -1 180 0.00217 0.088 +1 -4 0 1 0 0.00071 0.00322 0.044 +1 -2 -1 0 0 180.00071 0.00589 0.081 +1 -2 0 -1 0 0.00075 0.01647 0.041 +1 -2 0 0 -2 0.00093 0.00562 0.026 +1 -2 0 0 0 0.00072 0.29854 0.088 +1 -2 0 0 2 0.00077 0.00273 0.065 +1 -2 0 1 -2 0.00065 0.00562 0.04 +1 -2 0 1 0 0.00071 0.07332 0.53 +1 -2 0 2 0 0.00066 0.00672 0.066 +1 -2 1 0 0 0.00072 0.01404 0.096 +1 -2 1 1 0 0.00071 0.00328 0.346 +1 -1 0 0 0 180.00073 0.00212 1 +1 0 -1 -1 0 180.00076 0.00227 1.127 +1 0 -1 0 0 180.00058 0.00252 0.081 +1 0 -1 1 0 180.00068 0.00276 0.039 +1 0 0 -2 -2 0.00116 0.00377 0.025 +1 0 0 -2 0 0.00067 0.01745 0.076 +1 0 0 -1 -2 0.00109 0.03977 0.037 +1 0 0 -1 0 0.00075 0.45586 8.847 +1 0 0 -1 2 0.00062 0.00437 0.037 +1 0 0 0 -2 0.00086 0.32622 0.074 +1 0 0 0 0 180.00071 8.04508 0.075 +1 0 0 0 2 0.00071 0.00834 0.025 +1 0 0 1 -2 0.00464 0.00239 4.536 +1 0 0 1 0 180.00069 0.41571 0.038 +1 0 0 2 0 180.00066 0.02403 0.025 +1 0 1 -1 0 0.00074 0.00257 0.898 +1 0 1 1 0 0.0007 0.00212 0.036 +1 1 0 0 0 0.00071 0.00218 0.039 +1 2 -1 -1 0 180.00073 0.00371 0.042 +1 2 -1 0 0 180.0007 0.00315 0.027 +1 2 0 -1 0 180.00073 0.0835 0.04 +1 2 0 0 -2 0.00102 0.01005 0.089 +1 2 0 0 0 180.0007 0.04638 0.026 +1 2 0 1 0 180.00067 0.00563 0.019 +2 -2 0 0 -1 180 0.00293 0.088 +2 0 0 -1 -1 180 0.00441 16.863 +2 0 0 0 -1 0 0.08042 0.075 +2 0 0 1 -1 0 0.00425 0.038 +24 +0 0 0 0 0 90 0.04301 99999.999 +0 0 0 1 -2 270 0.00444 0.074 +0 0 0 1 0 90 0.00531 0.075 +0 2 0 -1 0 270 0.01961 0.087 +1 -2 0 -1 -1 90.00108 0.00925 0.026 +1 -2 0 -1 1 270.00046 0.00617 0.089 +1 -2 0 0 -1 90.00096 0.09554 0.04 +1 -2 0 0 1 270.00079 0.00854 0.487 +1 -2 0 1 -1 90.00028 0.03855 0.087 +1 -2 0 1 1 270.0007 0.00785 0.065 +1 -2 1 0 -1 90.00096 0.00657 0.042 +1 0 0 -2 -1 90.00128 0.02469 0.038 +1 0 0 -2 1 90.00062 0.00485 3.574 +1 0 0 -1 -1 90.00128 0.45276 0.075 +1 0 0 -1 1 270.00061 0.08508 0.074 +1 0 0 0 -1 90.00001 0.02809 18.613 +1 0 0 0 1 90.0005 0.0039 0.037 +1 0 0 1 -1 270.00126 0.45648 0.076 +1 0 0 2 -1 270.00126 0.02488 0.038 +1 2 -1 0 -1 270.00092 0.00745 0.042 +1 2 0 -1 -1 270.00043 0.05343 0.088 +1 2 0 0 -1 270.00092 0.10689 0.041 +1 2 0 1 -1 270.00105 0.00992 0.026 +2 0 0 0 0 90 0.00448 0.037 diff --git a/Src/Celbody/SPICE/Config/Moon/Data/contour.vec b/Src/Celbody/SPICE/Config/Moon/Data/contour.vec new file mode 100644 index 000000000..d97f359a6 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Moon/Data/contour.vec @@ -0,0 +1,8260 @@ +7975 ; total number of vertices +283 ; number of segments +3 +-139.230222 -90.000000 +-139.218750 -89.997511 +-139.191444 -90.000000 +16 +-130.301501 88.593750 +-129.803639 87.187500 +-129.375000 87.049916 +-127.968750 87.016072 +-126.562500 86.592677 +-125.156250 86.437452 +-123.750000 86.914628 +-123.104526 87.187500 +-122.343750 87.570219 +-120.937500 87.871588 +-119.531250 87.986867 +-118.125000 88.090220 +-116.718750 88.371589 +-115.312500 88.548949 +-113.906250 88.546957 +-112.640493 88.593750 +60 +-117.690240 -90.000000 +-116.718750 -89.113918 +-116.577001 -88.593750 +-115.312500 -87.475367 +-114.963506 -87.187500 +-114.253135 -85.781250 +-115.312500 -85.529782 +-116.718750 -85.286943 +-118.125000 -85.272416 +-119.531250 -85.380241 +-120.937500 -85.527803 +-122.343750 -85.602267 +-123.568279 -85.781250 +-123.750000 -85.832341 +-125.156250 -86.371118 +-126.562500 -86.541879 +-127.968750 -86.720112 +-129.375000 -87.157061 +-129.602333 -87.187500 +-130.781250 -87.543046 +-132.187500 -87.204787 +-133.593750 -87.672265 +-135.000000 -88.463715 +-136.406250 -88.556485 +-137.812500 -87.540351 +-138.004679 -87.187500 +-139.218750 -86.692382 +-140.625000 -86.816703 +-141.449579 -87.187500 +-142.031250 -87.548696 +-143.437500 -87.910075 +-144.843750 -88.209055 +-146.250000 -88.361637 +-147.656250 -88.198191 +-149.062500 -87.414198 +-149.512658 -87.187500 +-150.468750 -86.894824 +-151.875000 -86.717381 +-153.281250 -86.837652 +-154.687500 -87.173703 +-155.636860 -87.187500 +-156.093750 -87.196613 +-156.134486 -87.187500 +-157.500000 -87.035129 +-158.906250 -86.963459 +-160.312500 -87.026901 +-161.718750 -86.920936 +-163.125000 -86.835843 +-164.531250 -86.880825 +-165.937500 -86.865869 +-167.343750 -86.676745 +-168.750000 -86.813464 +-169.378600 -87.187500 +-170.156250 -87.802905 +-171.562500 -88.133896 +-172.968750 -88.091325 +-174.375000 -88.136891 +-175.781250 -88.043874 +-177.187500 -87.895600 +-178.593750 -87.872316 +347 +-108.001627 -90.000000 +-106.875000 -88.615191 +-106.782764 -88.593750 +-105.468750 -88.459870 +-104.062500 -88.174623 +-102.656250 -87.793045 +-101.250000 -87.757542 +-99.890982 -87.187500 +-99.843750 -86.590238 +-99.712723 -85.781250 +-98.437500 -84.911683 +-98.043997 -84.375000 +-97.031250 -84.164913 +-95.625000 -84.194728 +-95.090168 -84.375000 +-95.464797 -85.781250 +-94.218750 -86.750874 +-92.812500 -86.519537 +-91.890099 -87.187500 +-91.406250 -87.320164 +-90.000000 -87.651694 +-88.593750 -87.814660 +-87.187500 -87.912194 +-85.781250 -87.746991 +-84.375000 -87.289564 +-84.169539 -87.187500 +-84.375000 -86.657851 +-84.682426 -85.781250 +-85.781250 -85.149846 +-87.187500 -84.717190 +-88.593750 -84.639871 +-89.819547 -84.375000 +-88.593750 -83.996031 +-87.187500 -84.041382 +-85.781250 -83.785507 +-84.375000 -83.703215 +-82.968750 -84.057115 +-81.908740 -84.375000 +-81.562500 -84.542931 +-80.156250 -84.445976 +-79.827023 -84.375000 +-78.750000 -84.220973 +-77.343750 -84.233360 +-76.925537 -84.375000 +-75.937500 -84.756378 +-74.531250 -85.093375 +-73.125000 -85.037522 +-71.718750 -84.776685 +-70.312500 -84.493505 +-69.751827 -84.375000 +-68.906250 -84.172751 +-67.500000 -83.736384 +-66.093750 -83.434980 +-64.687500 -83.384013 +-63.281250 -83.432951 +-61.875000 -83.724468 +-60.468750 -84.330717 +-60.195393 -84.375000 +-59.062500 -84.641970 +-58.082017 -84.375000 +-57.656250 -84.137928 +-56.250000 -83.920089 +-54.843750 -83.189159 +-53.437500 -82.974846 +-53.303948 -82.968750 +-52.031250 -82.896596 +-51.762654 -82.968750 +-50.625000 -83.078516 +-49.218750 -83.529851 +-47.812500 -83.482640 +-46.406250 -83.146341 +-45.000000 -83.389207 +-43.593750 -83.722709 +-42.187500 -83.831166 +-40.781250 -83.974908 +-39.375000 -83.900248 +-37.968750 -83.868730 +-36.562500 -83.930726 +-35.156250 -83.902299 +-33.750000 -83.839667 +-32.343750 -83.784049 +-30.937500 -83.834273 +-29.531250 -83.904248 +-28.125000 -83.841042 +-26.718750 -84.186733 +-26.356694 -84.375000 +-26.718750 -84.492690 +-28.125000 -84.984436 +-29.531250 -85.443517 +-30.437300 -85.781250 +-30.937500 -86.683902 +-32.343750 -86.748597 +-33.750000 -86.502497 +-35.070796 -85.781250 +-35.156250 -85.738012 +-36.562500 -85.304735 +-37.968750 -85.441794 +-39.375000 -85.771363 +-39.524675 -85.781250 +-40.781250 -85.884280 +-42.187500 -85.785153 +-43.593750 -85.907515 +-45.000000 -86.274265 +-46.406250 -86.474859 +-47.812500 -86.325570 +-49.218750 -86.261942 +-50.625000 -86.449236 +-52.031250 -86.763092 +-53.437500 -87.086942 +-54.843750 -87.085117 +-56.250000 -87.024556 +-56.746980 -87.187500 +-56.250000 -87.260707 +-54.843750 -87.244568 +-53.437500 -87.268867 +-52.031250 -87.609835 +-50.625000 -87.937670 +-49.218750 -87.960406 +-47.812500 -87.782871 +-46.406250 -87.633695 +-45.000000 -87.632182 +-43.593750 -87.684102 +-42.187500 -87.615237 +-40.781250 -87.511032 +-39.375000 -87.518396 +-37.968750 -87.622906 +-36.562500 -87.743120 +-35.156250 -87.694166 +-33.750000 -87.446648 +-32.343750 -87.292466 +-30.937500 -87.231420 +-29.531250 -87.267069 +-28.125000 -87.372955 +-26.718750 -87.406285 +-25.312500 -87.381219 +-23.906250 -87.286197 +-23.234145 -87.187500 +-22.500000 -87.068499 +-21.093750 -86.852814 +-19.687500 -86.631110 +-18.281250 -86.610458 +-16.875000 -86.642990 +-15.468750 -86.466076 +-14.062500 -86.220493 +-12.656250 -85.984269 +-11.250000 -85.948142 +-9.843750 -86.010222 +-8.437500 -86.034231 +-7.031250 -86.103092 +-5.625000 -86.200630 +-4.218750 -86.249470 +-2.812500 -86.169948 +-1.406250 -85.915703 +-0.602224 -85.781250 +0.000000 -85.542132 +1.406250 -85.544904 +2.763545 -85.781250 +2.812500 -85.784016 +4.218750 -85.858641 +5.625000 -85.935998 +7.031250 -85.838998 +7.424500 -85.781250 +7.031250 -84.968547 +6.681621 -84.375000 +5.625000 -84.080387 +4.218750 -84.026288 +2.812500 -84.073137 +1.406250 -83.920944 +0.000000 -83.307389 +-0.516789 -82.968750 +0.000000 -82.176498 +0.234852 -81.562500 +1.406250 -81.024188 +2.812500 -81.221955 +3.369619 -81.562500 +4.218750 -82.385149 +5.625000 -82.332946 +7.031250 -81.808876 +8.437500 -81.778954 +9.843750 -81.767206 +11.250000 -82.005141 +12.656250 -82.332198 +14.062500 -82.808287 +14.490192 -82.968750 +14.062500 -83.689466 +12.656250 -84.045351 +11.250000 -84.279449 +10.869174 -84.375000 +11.185450 -85.781250 +11.250000 -85.791137 +12.656250 -85.895386 +13.874307 -85.781250 +14.062500 -85.579423 +15.468750 -84.760166 +16.875000 -84.715578 +18.281250 -84.496484 +19.687500 -84.514865 +21.093750 -84.808575 +22.500000 -85.025357 +23.906250 -85.257142 +25.312500 -85.363612 +26.718750 -85.371732 +28.125000 -85.414683 +29.531250 -85.378551 +30.937500 -85.405240 +32.343750 -85.400089 +33.750000 -85.239079 +35.156250 -85.170002 +36.562500 -85.280475 +37.968750 -85.347909 +39.375000 -85.449195 +40.781250 -85.629462 +41.673720 -85.781250 +42.187500 -85.886840 +43.593750 -86.147147 +45.000000 -85.882513 +45.193758 -85.781250 +46.406250 -85.401599 +47.812500 -85.428340 +49.218750 -85.603554 +50.625000 -85.709319 +51.326858 -85.781250 +52.031250 -85.882636 +53.437500 -86.423813 +54.843750 -86.793827 +56.250000 -86.872356 +57.656250 -86.813743 +59.062500 -86.216856 +59.522100 -85.781250 +60.468750 -84.378969 +60.473728 -84.375000 +61.875000 -83.715963 +63.281250 -83.697320 +64.588981 -84.375000 +64.687500 -84.447741 +66.093750 -85.044291 +67.500000 -84.713634 +68.906250 -84.586400 +70.269205 -84.375000 +70.312500 -84.351575 +71.664659 -82.968750 +71.718750 -82.952058 +73.125000 -82.835805 +74.531250 -82.825423 +75.937500 -82.854494 +77.343750 -82.892632 +78.750000 -82.824564 +80.156250 -82.618659 +81.562500 -82.413408 +82.968750 -82.313551 +84.375000 -82.030091 +85.420567 -81.562500 +85.781250 -81.283363 +87.187500 -80.734950 +87.756149 -81.562500 +88.593750 -82.103422 +90.000000 -82.628112 +91.406250 -82.764356 +92.812500 -82.847934 +94.218750 -82.911712 +94.549319 -82.968750 +94.785885 -84.375000 +94.218750 -84.432488 +92.812500 -84.503675 +91.406250 -84.605013 +90.000000 -84.715060 +88.593750 -84.772467 +87.187500 -85.141261 +85.781250 -85.565537 +84.375000 -85.692156 +83.312890 -85.781250 +84.375000 -85.879539 +85.781250 -85.990153 +87.187500 -86.335466 +88.593750 -86.537616 +90.000000 -86.597864 +91.406250 -86.836788 +92.812500 -87.100980 +93.561172 -87.187500 +94.218750 -87.249077 +95.625000 -87.327727 +97.031250 -87.325657 +98.437500 -87.408513 +99.843750 -87.743302 +101.250000 -87.812073 +102.656250 -87.700366 +104.062500 -87.742160 +105.468750 -87.610388 +106.875000 -87.435284 +108.281250 -87.621564 +109.687500 -87.781495 +111.093750 -87.823232 +112.500000 -87.856819 +113.906250 -87.852950 +115.312500 -87.763968 +116.718750 -87.659302 +118.125000 -87.683232 +119.531250 -87.799091 +120.937500 -87.909043 +122.343750 -87.946180 +123.750000 -87.913227 +125.156250 -87.878061 +126.562500 -87.814423 +127.968750 -87.733138 +129.375000 -87.789637 +130.781250 -88.040020 +132.187500 -88.316231 +133.593750 -88.492977 +135.000000 -88.534392 +136.406250 -88.582528 +136.675899 -88.593750 +137.812500 -88.920893 +138.044962 -88.593750 +139.218750 -88.279762 +140.625000 -87.842070 +142.031250 -88.019318 +143.437500 -88.314093 +144.843750 -88.279591 +146.250000 -87.720878 +147.531810 -87.187500 +147.656250 -87.119789 +149.062500 -87.053092 +150.468750 -86.959855 +151.875000 -87.159355 +151.925484 -87.187500 +153.281250 -87.754103 +154.687500 -88.040454 +156.093750 -88.171450 +157.500000 -88.404361 +158.850900 -88.593750 +158.906250 -88.603312 +158.983903 -88.593750 +160.312500 -88.462045 +161.718750 -88.128942 +163.125000 -87.928986 +164.531250 -87.906926 +165.937500 -88.042931 +167.343750 -88.004959 +168.750000 -87.767479 +170.156250 -87.789634 +171.562500 -87.850929 +172.968750 -87.802346 +174.375000 -87.879259 +175.781250 -87.999641 +177.187500 -88.068058 +178.593750 -88.019086 +180.000000 -87.920948 +24 +-67.964125 88.593750 +-67.500000 88.463023 +-66.093750 88.388864 +-64.687500 88.322267 +-63.281250 87.959543 +-62.014944 87.187500 +-61.875000 87.121921 +-60.468750 87.084713 +-60.066449 87.187500 +-59.062500 87.512261 +-57.656250 87.764494 +-56.250000 87.948929 +-54.843750 87.893274 +-53.437500 87.852243 +-52.031250 87.754675 +-50.625000 87.523378 +-49.218750 87.337758 +-48.757733 87.187500 +-47.812500 87.043363 +-46.406250 86.879325 +-45.000000 87.058976 +-44.718507 87.187500 +-43.593750 88.294369 +-43.276378 88.593750 +39 +29.363274 88.593750 +28.125000 88.353957 +26.718750 88.121399 +25.312500 87.674039 +24.488489 87.187500 +25.312500 86.676448 +26.718750 86.325003 +28.125000 86.151288 +29.531250 86.151371 +30.937500 86.330544 +32.343750 86.404998 +33.750000 86.075870 +34.655666 85.781250 +35.156250 85.606748 +36.562500 85.771990 +36.590758 85.781250 +37.968750 86.180958 +39.375000 86.322852 +40.781250 86.423651 +42.187500 86.564768 +43.593750 86.740930 +45.000000 86.869895 +46.406250 86.728423 +47.812500 86.625733 +49.218750 86.688163 +50.625000 86.919883 +52.031250 86.953768 +53.437500 86.891203 +54.843750 87.022207 +56.250000 87.045394 +57.656250 86.938730 +59.062500 87.082375 +59.349672 87.187500 +60.468750 87.752242 +61.875000 88.095100 +63.281250 88.155497 +64.687500 88.170406 +66.093750 88.364055 +67.287129 88.593750 +17 +143.086389 88.593750 +143.437500 87.787343 +143.856517 87.187500 +144.843750 87.018254 +146.250000 86.876868 +147.656250 86.790427 +148.910137 85.781250 +149.062500 85.731067 +150.468750 85.528458 +151.875000 85.617548 +152.733771 85.781250 +153.175831 87.187500 +151.875000 87.453196 +150.468750 87.782075 +149.062500 87.733064 +147.656250 88.150966 +147.375498 88.593750 +5 +168.133397 88.593750 +168.750000 88.298701 +170.156250 88.373114 +171.562500 88.526187 +172.668148 88.593750 +8 +-178.593750 -86.623989 +-177.187500 -86.462473 +-175.781250 -86.057667 +-175.030127 -85.781250 +-175.085479 -84.375000 +-175.781250 -84.182655 +-177.187500 -84.132106 +-178.593750 -84.225663 +5 +-178.593750 -38.521131 +-177.677377 -37.968750 +-177.213201 -36.562500 +-178.065033 -35.156250 +-178.593750 -34.503685 +16 +180.000000 -86.704325 +178.593750 -86.607385 +177.187500 -86.538904 +175.781250 -86.551196 +174.375000 -86.544383 +172.968750 -86.344744 +171.562500 -85.960317 +170.304777 -85.781250 +171.562500 -85.548631 +172.968750 -84.444414 +173.020468 -84.375000 +174.375000 -83.919083 +175.781250 -83.857869 +177.187500 -83.994756 +178.593750 -84.080141 +180.000000 -84.100228 +10 +180.000000 -37.784498 +178.593750 -37.729113 +177.584340 -37.968750 +177.187500 -38.116879 +176.855088 -37.968750 +176.389030 -36.562500 +177.187500 -35.769975 +177.845615 -35.156250 +178.593750 -34.661719 +180.000000 -34.407011 +5 +174.375000 -45.206722 +174.247413 -45.000000 +174.375000 -44.898797 +174.727077 -45.000000 +174.375000 -45.206722 +5 +172.968750 -49.247035 +172.953207 -49.218750 +172.968750 -49.194560 +172.996653 -49.218750 +172.968750 -49.247035 +29 +-170.156250 -36.487894 +-171.226680 -35.156250 +-171.271766 -33.750000 +-170.929265 -32.343750 +-170.339158 -30.937500 +-170.933409 -29.531250 +-170.156250 -28.464275 +-168.750000 -28.939054 +-168.326500 -29.531250 +-168.750000 -30.142221 +-169.964376 -30.937500 +-168.750000 -31.979769 +-168.495693 -32.343750 +-167.343750 -32.646883 +-166.074294 -33.750000 +-165.937500 -34.270856 +-165.771652 -35.156250 +-165.650465 -36.562500 +-165.753757 -37.968750 +-165.937500 -38.763305 +-166.214309 -39.375000 +-166.453287 -40.781250 +-167.343750 -42.085913 +-168.750000 -41.947235 +-169.403102 -40.781250 +-169.617773 -39.375000 +-169.173375 -37.968750 +-170.089763 -36.562500 +-170.156250 -36.487894 +9 +-167.343750 -52.283399 +-167.742704 -52.031250 +-168.310630 -50.625000 +-167.343750 -50.054174 +-165.937500 -50.572321 +-165.891562 -50.625000 +-165.937500 -50.816435 +-166.552893 -52.031250 +-167.343750 -52.283399 +7 +-165.937500 -45.033760 +-166.047701 -45.000000 +-165.966756 -43.593750 +-165.937500 -43.566389 +-165.926948 -43.593750 +-165.911062 -45.000000 +-165.937500 -45.033760 +15 +167.343750 -34.983288 +166.667993 -35.156250 +166.251524 -36.562500 +165.937500 -36.717612 +165.788497 -36.562500 +165.713847 -35.156250 +164.531250 -34.202890 +163.761747 -33.750000 +164.236016 -32.343750 +164.531250 -32.275295 +165.937500 -31.518948 +167.343750 -31.046018 +168.487810 -32.343750 +168.196011 -33.750000 +167.343750 -34.983288 +15 +164.531250 87.000214 +163.125000 86.806704 +161.718750 86.996163 +160.312500 87.005121 +158.906250 86.867633 +157.500000 87.186389 +157.489876 87.187500 +157.500000 87.191082 +158.906250 88.176796 +160.312500 88.292962 +161.718750 88.032689 +163.125000 88.180352 +164.531250 87.616097 +164.874559 87.187500 +164.531250 87.000214 +7 +163.125000 -84.500336 +161.718750 -84.465086 +161.530748 -84.375000 +161.718750 -84.289282 +163.125000 -84.134125 +164.112251 -84.375000 +163.125000 -84.500336 +7 +163.125000 -57.935366 +161.718750 -58.568499 +161.478815 -57.656250 +161.718750 -57.567769 +163.125000 -57.539727 +163.318835 -57.656250 +163.125000 -57.935366 +7 +163.125000 -46.967039 +162.170693 -46.406250 +161.881280 -45.000000 +163.125000 -44.314789 +164.425935 -45.000000 +164.143382 -46.406250 +163.125000 -46.967039 +65 +-160.312500 -48.312931 +-160.528536 -47.812500 +-160.312500 -47.106512 +-160.130063 -46.406250 +-159.397760 -45.000000 +-158.983851 -43.593750 +-159.478624 -42.187500 +-159.308922 -40.781250 +-158.906250 -40.203300 +-157.500000 -40.176055 +-156.093750 -40.114892 +-154.687500 -39.935388 +-153.281250 -40.023010 +-151.875000 -40.545204 +-151.494682 -40.781250 +-151.138572 -42.187500 +-151.875000 -43.038468 +-152.681064 -43.593750 +-152.492870 -45.000000 +-151.875000 -45.493477 +-150.468750 -46.096424 +-149.062500 -46.309825 +-148.799293 -46.406250 +-149.062500 -47.311868 +-149.155588 -47.812500 +-150.468750 -48.599023 +-151.229225 -49.218750 +-151.875000 -50.197398 +-152.437930 -50.625000 +-151.875000 -51.159805 +-150.468750 -51.880802 +-150.197607 -52.031250 +-149.776120 -53.437500 +-150.468750 -54.775379 +-150.521274 -54.843750 +-151.875000 -55.763554 +-152.525072 -56.250000 +-153.281250 -56.888521 +-154.687500 -57.433276 +-156.093750 -57.476771 +-157.500000 -57.216428 +-158.906250 -56.811484 +-159.848706 -56.250000 +-160.250559 -54.843750 +-159.751164 -53.437500 +-158.912201 -52.031250 +-158.906250 -52.008964 +-158.885772 -52.031250 +-157.500000 -53.053147 +-157.376656 -53.437500 +-156.093750 -54.249969 +-154.687500 -53.943215 +-154.354908 -53.437500 +-153.728393 -52.031250 +-154.026569 -50.625000 +-154.687500 -49.481420 +-155.151882 -49.218750 +-156.093750 -49.040261 +-156.814756 -49.218750 +-157.292968 -50.625000 +-157.500000 -51.144192 +-158.047630 -50.625000 +-158.694998 -49.218750 +-158.906250 -49.153478 +-160.312500 -48.312931 +11 +-160.312500 -38.304954 +-160.474048 -37.968750 +-160.815605 -36.562500 +-160.507463 -35.156250 +-160.312500 -34.818457 +-158.906250 -34.668214 +-158.855598 -35.156250 +-158.698021 -36.562500 +-158.906250 -37.592365 +-159.335522 -37.968750 +-160.312500 -38.304954 +13 +-153.281250 -38.032664 +-153.317948 -37.968750 +-154.161855 -36.562500 +-154.284814 -35.156250 +-153.281250 -33.987025 +-151.875000 -34.171081 +-150.468750 -34.998139 +-150.267779 -35.156250 +-149.770133 -36.562500 +-150.468750 -37.532489 +-151.272544 -37.968750 +-151.875000 -38.319782 +-153.281250 -38.032664 +19 +151.875000 26.395895 +151.185159 25.312500 +150.468750 24.680315 +149.062500 24.311833 +147.656250 24.145223 +146.250000 24.327446 +145.211756 25.312500 +145.154809 26.718750 +146.230044 28.125000 +146.250000 28.142979 +147.656250 29.157648 +148.212936 29.531250 +149.062500 29.989927 +150.468750 30.078233 +151.204286 29.531250 +151.875000 28.730192 +152.195554 28.125000 +152.006627 26.718750 +151.875000 26.395895 +9 +147.656250 -35.700533 +146.250000 -35.946038 +145.684863 -35.156250 +146.029899 -33.750000 +146.250000 -33.600779 +147.656250 -33.718268 +147.692956 -33.750000 +147.986579 -35.156250 +147.656250 -35.700533 +5 +-143.437500 -74.547323 +-143.687801 -74.531250 +-143.437500 -74.473556 +-143.384534 -74.531250 +-143.437500 -74.547323 +5 +129.375000 -21.406688 +128.360295 -21.093750 +129.375000 -20.537538 +129.705832 -21.093750 +129.375000 -21.406688 +5 +-123.750000 -80.215602 +-124.155460 -80.156250 +-123.750000 -80.087535 +-122.778947 -80.156250 +-123.750000 -80.215602 +5 +104.062500 -27.626868 +103.757125 -26.718750 +104.062500 -26.473143 +104.480972 -26.718750 +104.062500 -27.626868 +19 +-99.843750 -80.469801 +-100.625779 -80.156250 +-100.022989 -78.750000 +-99.843750 -78.632316 +-98.437500 -77.913841 +-97.031250 -78.050625 +-95.625000 -78.412674 +-94.218750 -78.392634 +-92.812500 -78.375623 +-91.406250 -78.569883 +-90.994892 -78.750000 +-91.406250 -78.797185 +-92.812500 -78.885850 +-94.218750 -78.949712 +-95.625000 -79.010333 +-97.031250 -79.510958 +-98.152373 -80.156250 +-98.437500 -80.277597 +-99.843750 -80.469801 +7 +101.250000 84.200786 +99.843750 84.141821 +99.264694 84.375000 +99.843750 84.709573 +101.250000 84.652027 +101.577502 84.375000 +101.250000 84.200786 +7 +-97.031250 -19.799285 +-97.159199 -19.687500 +-97.779164 -18.281250 +-97.031250 -18.125750 +-96.831133 -18.281250 +-96.827613 -19.687500 +-97.031250 -19.799285 +11 +-94.218750 -23.150041 +-95.242355 -22.500000 +-95.542676 -21.093750 +-94.218750 -19.988664 +-93.737296 -19.687500 +-92.812500 -19.264454 +-92.302320 -19.687500 +-91.953492 -21.093750 +-91.947863 -22.500000 +-92.812500 -23.328387 +-94.218750 -23.150041 +19 +94.218750 -44.361744 +92.812500 -44.854928 +91.406250 -44.773452 +90.000000 -44.325090 +89.210069 -43.593750 +89.148192 -42.187500 +89.264712 -40.781250 +89.336130 -39.375000 +90.000000 -38.350937 +90.722016 -37.968750 +91.406250 -37.678071 +91.589081 -37.968750 +92.812500 -38.997184 +93.174683 -39.375000 +93.184319 -40.781250 +93.363154 -42.187500 +94.218750 -43.288662 +94.426771 -43.593750 +94.218750 -44.361744 +35 +92.812500 10.876804 +91.406250 10.346236 +90.000000 9.950580 +89.624940 9.843750 +88.593750 9.482089 +87.187500 9.320065 +86.262432 8.437500 +85.781250 7.841906 +84.375000 8.057236 +84.133121 8.437500 +84.375000 9.501840 +84.628872 9.843750 +84.375000 10.041041 +82.968750 10.988420 +82.253746 11.250000 +81.562500 12.122484 +81.395067 12.656250 +81.562500 13.254019 +81.751503 14.062500 +82.140092 15.468750 +82.463783 16.875000 +82.968750 17.311442 +84.375000 17.139239 +84.832267 16.875000 +85.781250 15.763143 +86.032634 15.468750 +87.187500 14.655329 +88.593750 14.565365 +90.000000 14.477730 +91.229741 14.062500 +91.406250 13.930037 +92.812500 12.968543 +93.228961 12.656250 +93.243710 11.250000 +92.812500 10.876804 +5 +91.406250 -32.896452 +91.066792 -32.343750 +91.406250 -32.086569 +92.512204 -32.343750 +91.406250 -32.896452 +35 +91.406250 -2.120755 +90.000000 -2.574879 +89.439484 -2.812500 +88.593750 -3.283464 +87.474477 -4.218750 +87.371034 -5.625000 +87.395500 -7.031250 +87.187500 -7.180140 +85.781250 -7.365242 +84.375000 -7.249263 +84.029015 -7.031250 +82.968750 -5.924392 +82.709971 -5.625000 +81.983860 -4.218750 +81.562500 -3.380733 +81.411141 -2.812500 +81.147367 -1.406250 +81.526490 0.000000 +81.562500 0.041086 +82.660300 1.406250 +82.968750 1.729803 +84.308967 2.812500 +84.375000 2.860530 +85.676231 4.218750 +85.781250 4.355976 +87.187500 5.148844 +88.593750 4.729666 +90.000000 4.347839 +90.316800 4.218750 +91.406250 3.594082 +91.931801 2.812500 +92.275062 1.406250 +92.206884 0.000000 +91.849887 -1.406250 +91.406250 -2.120755 +9 +-85.781250 -77.838577 +-86.668869 -77.343750 +-85.781250 -77.273304 +-84.375000 -77.211645 +-82.968750 -77.208101 +-82.071976 -77.343750 +-82.968750 -77.550988 +-84.375000 -77.650238 +-85.781250 -77.838577 +11 +85.781250 -51.354044 +84.375000 -51.665973 +82.968750 -51.244828 +82.164105 -50.625000 +82.458820 -49.218750 +82.968750 -48.673770 +84.375000 -48.477044 +85.781250 -48.931089 +86.350674 -49.218750 +86.716148 -50.625000 +85.781250 -51.354044 +5 +85.781250 -35.285212 +85.645659 -35.156250 +85.781250 -34.931478 +87.128996 -35.156250 +85.781250 -35.285212 +593 +-82.968750 26.279314 +-83.293964 26.718750 +-83.536489 28.125000 +-82.968750 29.328438 +-82.849172 29.531250 +-81.690879 30.937500 +-81.928854 32.343750 +-81.562500 33.117017 +-81.290887 33.750000 +-80.156250 35.085922 +-80.090522 35.156250 +-80.037429 36.562500 +-79.809113 37.968750 +-78.750000 39.363647 +-78.721328 39.375000 +-77.343750 39.718326 +-75.937500 39.598836 +-74.781235 40.781250 +-75.937500 41.850042 +-76.906768 42.187500 +-77.343750 42.367403 +-78.418627 43.593750 +-78.170393 45.000000 +-77.343750 46.173386 +-77.101162 46.406250 +-75.937500 47.622449 +-75.758657 47.812500 +-74.735277 49.218750 +-74.531250 49.365330 +-73.125000 50.039283 +-72.420070 50.625000 +-72.913832 52.031250 +-73.125000 52.488591 +-73.349469 53.437500 +-73.125000 53.964530 +-71.718750 54.631628 +-70.312500 54.307634 +-68.906250 54.295199 +-67.500000 53.979375 +-66.980218 53.437500 +-66.716008 52.031250 +-66.733530 50.625000 +-66.093750 50.200140 +-64.687500 49.599489 +-63.281250 49.257301 +-61.875000 50.607749 +-60.468750 50.483256 +-59.062500 49.766913 +-57.656250 49.462358 +-57.070702 50.625000 +-56.250000 51.179367 +-55.422276 52.031250 +-54.843750 52.328361 +-53.437500 52.610827 +-52.031250 52.484457 +-50.625000 52.653205 +-49.218750 53.157874 +-47.812500 52.760159 +-46.975722 52.031250 +-46.406250 51.254617 +-45.946751 50.625000 +-45.410861 49.218750 +-46.406250 48.729425 +-47.812500 48.171011 +-48.700943 47.812500 +-49.218750 47.342985 +-49.751141 46.406250 +-49.218750 45.903365 +-48.478492 45.000000 +-47.812500 44.380704 +-46.953773 43.593750 +-46.565332 42.187500 +-46.406250 41.146106 +-46.301321 40.781250 +-45.643065 39.375000 +-45.000000 38.230888 +-43.593750 38.553336 +-42.187500 38.812632 +-40.781250 38.606944 +-39.415810 37.968750 +-39.375000 37.952524 +-39.334562 37.968750 +-37.968750 38.612451 +-37.574428 39.375000 +-36.562500 40.220182 +-35.894541 40.781250 +-35.375499 42.187500 +-35.478190 43.593750 +-35.462143 45.000000 +-35.156250 45.672863 +-34.424791 46.406250 +-33.750000 46.697697 +-32.343750 46.968336 +-30.937500 47.176963 +-29.531250 47.381695 +-28.125000 47.146172 +-26.718750 46.664738 +-25.312500 47.050956 +-24.319444 47.812500 +-23.906250 48.155842 +-22.500000 49.060298 +-21.914495 49.218750 +-21.093750 49.450709 +-19.687500 50.069246 +-19.264621 50.625000 +-18.281250 51.099836 +-16.875000 51.087583 +-15.585075 50.625000 +-15.468750 50.496065 +-14.237714 49.218750 +-14.062500 48.737362 +-13.323711 47.812500 +-12.656250 47.237544 +-11.536113 47.812500 +-11.250000 47.954733 +-9.843750 48.479444 +-8.437500 48.521018 +-7.031250 48.321633 +-5.625000 47.945995 +-5.426318 47.812500 +-4.218750 46.950006 +-3.046997 46.406250 +-2.812500 46.226442 +-1.406250 45.233681 +-1.226647 45.000000 +-0.882252 43.593750 +-0.801215 42.187500 +-1.406250 41.473165 +-1.960936 40.781250 +-2.547838 39.375000 +-2.726588 37.968750 +-1.439874 36.562500 +-1.406250 36.465893 +-1.135545 35.156250 +-1.134207 33.750000 +-0.956282 32.343750 +-1.406250 31.166892 +-1.525299 30.937500 +-1.602570 29.531250 +-1.406250 29.356496 +-0.317774 28.125000 +0.000000 27.878008 +1.406250 27.347489 +2.812500 27.021539 +3.267775 26.718750 +3.278061 25.312500 +2.812500 25.080484 +1.406250 24.582178 +0.000000 24.521566 +-1.406250 24.923729 +-1.939453 25.312500 +-2.812500 26.055920 +-3.620903 26.718750 +-4.218750 27.147117 +-5.625000 27.346202 +-6.925413 26.718750 +-6.537918 25.312500 +-5.625000 24.560202 +-4.773190 23.906250 +-4.218750 23.730060 +-2.812500 22.981430 +-2.651207 22.500000 +-2.528835 21.093750 +-2.812500 19.890138 +-2.865880 19.687500 +-3.870807 18.281250 +-4.218750 17.504627 +-5.625000 17.019250 +-5.809090 16.875000 +-5.625000 16.701829 +-4.218750 16.569841 +-2.812500 16.275610 +-1.406250 16.167194 +0.000000 16.833235 +0.060511 16.875000 +1.406250 17.873019 +2.162767 18.281250 +2.812500 18.658558 +3.763778 19.687500 +4.218750 20.547935 +4.524793 21.093750 +5.337532 22.500000 +5.625000 23.137517 +5.853052 23.906250 +5.942205 25.312500 +6.050478 26.718750 +5.625000 28.117830 +5.619135 28.125000 +4.302337 29.531250 +4.230756 30.937500 +4.218750 30.960588 +3.828642 32.343750 +3.609342 33.750000 +3.794829 35.156250 +4.218750 35.671129 +5.012504 35.156250 +5.625000 34.781177 +6.183983 33.750000 +6.450262 32.343750 +7.031250 31.950516 +8.437500 32.206022 +8.584181 32.343750 +9.843750 33.282946 +10.175640 33.750000 +10.978978 35.156250 +11.250000 35.493394 +12.453906 36.562500 +12.656250 36.710700 +14.062500 37.442733 +15.468750 37.391265 +16.875000 37.002382 +18.128538 36.562500 +18.281250 36.478301 +19.687500 35.845951 +21.093750 35.307992 +21.647234 35.156250 +22.500000 34.981959 +23.305551 35.156250 +23.906250 35.762039 +24.393011 36.562500 +23.906250 37.009299 +23.296521 37.968750 +23.314485 39.375000 +23.906250 39.945366 +25.312500 39.876338 +25.869014 39.375000 +26.250216 37.968750 +26.718750 37.718987 +28.125000 37.776564 +29.381557 36.562500 +29.393633 35.156250 +28.932260 33.750000 +28.446922 32.343750 +28.745655 30.937500 +29.531250 30.036116 +30.109842 29.531250 +30.937500 28.410548 +31.136208 28.125000 +31.475719 26.718750 +31.446531 25.312500 +31.292916 23.906250 +31.344340 22.500000 +31.323144 21.093750 +31.478271 19.687500 +32.343750 18.770736 +33.750000 19.367832 +34.489002 19.687500 +35.156250 19.950792 +36.562500 21.059683 +37.968750 20.700044 +38.313809 19.687500 +39.375000 18.857754 +40.227870 18.281250 +40.643035 16.875000 +40.686464 15.468750 +40.781250 15.158867 +41.223097 14.062500 +42.187500 13.031104 +42.836545 12.656250 +43.593750 12.318348 +45.000000 11.384284 +45.127708 11.250000 +46.037305 9.843750 +46.406250 9.427475 +47.423766 8.437500 +47.812500 8.115863 +49.218750 7.211365 +49.526459 7.031250 +50.625000 6.424691 +52.031250 5.702295 +52.131184 5.625000 +53.437500 4.752079 +54.225309 4.218750 +54.843750 3.839492 +56.250000 3.248217 +57.656250 2.979460 +58.745654 2.812500 +59.062500 2.752090 +60.468750 2.221566 +61.875000 1.498973 +62.518730 1.406250 +63.281250 1.249639 +63.373876 1.406250 +64.687500 2.476266 +65.421383 2.812500 +65.855932 4.218750 +65.301735 5.625000 +66.044594 7.031250 +66.093750 7.062065 +67.500000 8.389748 +68.022129 8.437500 +68.906250 8.503712 +69.085946 8.437500 +70.312500 7.413487 +70.780721 7.031250 +70.312500 5.873290 +70.178007 5.625000 +68.906250 4.997480 +67.500000 4.331968 +67.021344 4.218750 +66.563091 2.812500 +67.005614 1.406250 +67.048889 0.000000 +66.093750 -0.691480 +64.687500 -1.259500 +63.557335 -1.406250 +63.281250 -1.516568 +62.812506 -2.812500 +62.825847 -4.218750 +61.875000 -5.580711 +61.823720 -5.625000 +60.468750 -6.018984 +59.062500 -6.764854 +58.646344 -7.031250 +57.656250 -7.932652 +57.101800 -8.437500 +56.516010 -9.843750 +56.873326 -11.250000 +57.438154 -12.656250 +57.410688 -14.062500 +57.082978 -15.468750 +56.318625 -16.875000 +56.250000 -16.899174 +54.843750 -16.959562 +54.154347 -16.875000 +53.923805 -15.468750 +53.812258 -14.062500 +53.437500 -13.339909 +52.031250 -12.726111 +50.625000 -12.698675 +50.460334 -12.656250 +49.218750 -12.276866 +47.812500 -11.875387 +46.406250 -11.650382 +45.502474 -11.250000 +45.010023 -9.843750 +45.000000 -9.831757 +43.593750 -8.688283 +43.196678 -8.437500 +42.187500 -7.679954 +41.646950 -7.031250 +41.151000 -5.625000 +41.242300 -4.218750 +40.781250 -3.186551 +40.597067 -2.812500 +40.267917 -1.406250 +39.375000 -0.773826 +37.968750 -0.375633 +36.893665 0.000000 +36.562500 0.073583 +35.156250 0.816536 +34.055269 1.406250 +33.750000 1.542111 +33.458678 1.406250 +32.343750 0.721251 +31.848873 0.000000 +31.175199 -1.406250 +30.937500 -2.012701 +30.603327 -2.812500 +30.145698 -4.218750 +29.865780 -5.625000 +29.793294 -7.031250 +29.531250 -8.071230 +28.724754 -8.437500 +28.125000 -8.526855 +28.011735 -8.437500 +26.718750 -7.599230 +25.312500 -7.228280 +25.027072 -7.031250 +24.568061 -5.625000 +25.212975 -4.218750 +25.312500 -3.077672 +25.336529 -2.812500 +25.312500 -2.783393 +23.906250 -1.580028 +23.366123 -1.406250 +22.500000 -1.163326 +21.093750 -0.639174 +19.687500 -0.160225 +19.279255 0.000000 +18.281250 1.114569 +18.088014 1.406250 +17.380924 2.812500 +16.875000 3.597287 +16.413392 4.218750 +16.022484 5.625000 +15.865697 7.031250 +15.468750 8.335374 +15.418345 8.437500 +14.835061 9.843750 +14.062500 11.150208 +12.656250 10.291714 +12.156643 9.843750 +11.250000 8.722361 +11.052407 8.437500 +9.843750 7.211838 +9.317657 7.031250 +8.437500 6.789425 +7.031250 6.457144 +5.625000 6.842474 +4.822824 7.031250 +4.218750 7.159663 +2.812500 7.796956 +2.339628 8.437500 +1.406250 9.325708 +0.000000 9.581610 +-1.406250 8.484953 +-1.494164 8.437500 +-2.812500 7.556205 +-3.141059 7.031250 +-2.994504 5.625000 +-2.812500 5.398250 +-1.406250 4.593502 +-1.092445 4.218750 +0.000000 3.012577 +0.152138 2.812500 +0.993012 1.406250 +0.790840 0.000000 +0.000000 -1.281437 +-0.202012 -1.406250 +-1.406250 -1.832986 +-2.569679 -1.406250 +-2.812500 -1.303574 +-4.218750 -0.543355 +-5.625000 -0.212419 +-7.031250 -0.778030 +-7.667891 -1.406250 +-8.437500 -1.823829 +-9.843750 -2.395229 +-10.575868 -2.812500 +-11.207939 -4.218750 +-10.599789 -5.625000 +-9.843750 -6.680079 +-9.444249 -7.031250 +-8.437500 -8.302033 +-8.340062 -8.437500 +-8.139234 -9.843750 +-8.361556 -11.250000 +-7.060500 -12.656250 +-7.031250 -12.673822 +-5.625000 -13.766422 +-5.493957 -14.062500 +-5.625000 -14.546006 +-5.996277 -15.468750 +-6.867422 -16.875000 +-7.031250 -17.018890 +-7.776784 -18.281250 +-8.178623 -19.687500 +-8.228864 -21.093750 +-8.076285 -22.500000 +-7.189711 -23.906250 +-7.229279 -25.312500 +-7.973862 -26.718750 +-8.437500 -27.100758 +-9.843750 -27.659074 +-11.250000 -28.066205 +-11.401963 -28.125000 +-12.656250 -28.830323 +-14.019649 -29.531250 +-14.062500 -29.547852 +-14.109488 -29.531250 +-15.468750 -29.001575 +-16.875000 -29.025704 +-18.281250 -29.162713 +-19.687500 -28.899837 +-21.077846 -28.125000 +-21.093750 -28.107068 +-22.500000 -27.170930 +-23.623295 -28.125000 +-23.906250 -28.383006 +-25.312500 -29.191755 +-26.718750 -29.171915 +-27.250522 -29.531250 +-27.607068 -30.937500 +-26.718750 -32.121101 +-25.312500 -32.200458 +-25.189729 -32.343750 +-25.312500 -32.517306 +-26.718750 -32.618850 +-28.125000 -32.750491 +-29.360726 -33.750000 +-29.531250 -33.850989 +-30.937500 -34.235647 +-32.050601 -33.750000 +-32.343750 -32.344756 +-32.343885 -32.343750 +-32.343750 -32.343593 +-31.362083 -30.937500 +-30.937500 -30.324886 +-30.327457 -29.531250 +-29.531250 -28.190435 +-29.400844 -28.125000 +-28.125000 -27.126673 +-27.964401 -26.718750 +-28.125000 -26.391712 +-29.531250 -25.807689 +-30.096751 -26.718750 +-30.937500 -27.310994 +-32.343750 -27.293347 +-33.447059 -28.125000 +-33.750000 -28.398397 +-35.042254 -29.531250 +-35.156250 -29.619683 +-36.562500 -29.995019 +-37.968750 -30.391175 +-39.375000 -30.911338 +-40.781250 -30.290320 +-41.779950 -29.531250 +-42.187500 -29.105339 +-43.593750 -28.318297 +-43.796059 -28.125000 +-45.000000 -27.312368 +-45.491389 -26.718750 +-45.402752 -25.312500 +-45.493087 -23.906250 +-45.710250 -22.500000 +-45.000000 -21.516909 +-44.719264 -21.093750 +-43.602576 -19.687500 +-43.593750 -19.673082 +-42.187500 -18.617852 +-41.118846 -18.281250 +-40.781250 -18.049114 +-39.375000 -17.982731 +-38.644400 -16.875000 +-38.497796 -15.468750 +-38.635708 -14.062500 +-39.375000 -12.721267 +-40.781250 -12.984739 +-41.751378 -14.062500 +-42.187500 -14.580001 +-43.593750 -14.896383 +-45.000000 -15.108774 +-45.841151 -15.468750 +-46.406250 -15.675274 +-47.812500 -16.173821 +-49.214433 -16.875000 +-49.218750 -16.875684 +-50.625000 -17.125355 +-52.031250 -16.896184 +-52.045465 -16.875000 +-52.390182 -15.468750 +-52.592262 -14.062500 +-53.437500 -13.548716 +-54.843750 -13.679548 +-56.250000 -12.908869 +-56.446059 -12.656250 +-57.629818 -11.250000 +-57.656250 -11.202578 +-58.643372 -9.843750 +-59.062500 -9.151225 +-59.717382 -8.437500 +-60.468750 -7.683010 +-60.842398 -7.031250 +-61.308646 -5.625000 +-61.875000 -4.294037 +-61.931436 -4.218750 +-63.281250 -3.006961 +-63.422997 -2.812500 +-64.687500 -1.747037 +-65.040346 -1.406250 +-65.265300 0.000000 +-64.946948 1.406250 +-64.782983 2.812500 +-64.904005 4.218750 +-65.744751 5.625000 +-66.093750 6.017827 +-67.063662 7.031250 +-67.500000 7.641583 +-68.159648 8.437500 +-68.906250 9.486337 +-69.386337 9.843750 +-70.312500 10.265253 +-71.718750 10.983143 +-72.877588 11.250000 +-73.125000 11.446284 +-74.531250 12.155645 +-74.995914 12.656250 +-75.937500 13.758445 +-76.164542 14.062500 +-76.470160 15.468750 +-76.890895 16.875000 +-77.343750 17.853713 +-77.518062 18.281250 +-78.346471 19.687500 +-78.750000 20.403104 +-79.153911 21.093750 +-80.156250 22.473974 +-80.182540 22.500000 +-81.562500 23.800221 +-81.654998 23.906250 +-82.411858 25.312500 +-82.968750 26.279314 +7 +-75.937500 22.293015 +-74.531250 22.201063 +-74.312997 22.500000 +-74.531250 23.090299 +-75.937500 22.612211 +-76.070328 22.500000 +-75.937500 22.293015 +5 +77.343750 -55.091928 +76.795741 -54.843750 +77.343750 -54.481324 +77.836960 -54.843750 +77.343750 -55.091928 +9 +-74.531250 -88.896234 +-73.125000 -89.317316 +-71.718750 -88.598107 +-71.712660 -88.593750 +-71.718750 -88.582499 +-73.125000 -87.456720 +-74.531250 -88.122505 +-75.151928 -88.593750 +-74.531250 -88.896234 +9 +75.937500 -48.909210 +74.824982 -49.218750 +74.531250 -49.269585 +74.492186 -49.218750 +74.133455 -47.812500 +74.531250 -47.141359 +75.937500 -46.920881 +76.262161 -47.812500 +75.937500 -48.909210 +9 +74.531250 -54.118638 +73.125000 -54.146031 +72.163568 -53.437500 +73.113180 -52.031250 +73.125000 -52.023094 +73.423980 -52.031250 +74.531250 -52.128856 +75.198923 -53.437500 +74.531250 -54.118638 +13 +-70.312500 -6.551257 +-70.532677 -5.625000 +-70.312500 -5.262064 +-69.350025 -4.218750 +-68.906250 -3.897082 +-67.500000 -3.767103 +-67.000403 -4.218750 +-66.494224 -5.625000 +-67.060793 -7.031250 +-67.500000 -7.589122 +-68.906250 -7.881787 +-70.153833 -7.031250 +-70.312500 -6.551257 +13 +70.312500 84.103448 +68.906250 83.620838 +67.500000 83.640567 +66.093750 84.166870 +65.794645 84.375000 +66.093750 84.725334 +67.500000 85.714568 +67.791910 85.781250 +68.906250 86.030127 +69.621238 85.781250 +70.312500 85.372939 +70.990280 84.375000 +70.312500 84.103448 +7 +-67.500000 -75.976584 +-67.535601 -75.937500 +-67.500000 -75.908866 +-66.093750 -75.823949 +-66.004978 -75.937500 +-66.093750 -75.981943 +-67.500000 -75.976584 +47 +68.906250 16.099211 +68.816749 15.468750 +67.500000 14.444159 +66.093750 14.332584 +65.754299 14.062500 +64.687500 12.884631 +64.544991 12.656250 +63.570786 11.250000 +63.281250 10.885123 +61.875000 10.276619 +60.468750 10.097418 +59.062500 9.878650 +58.901064 9.843750 +57.656250 9.525564 +56.250000 9.735234 +56.087717 9.843750 +54.843750 10.545111 +54.057179 11.250000 +53.437500 11.852207 +52.536792 12.656250 +52.031250 13.385319 +51.724015 14.062500 +51.812623 15.468750 +51.882086 16.875000 +51.690436 18.281250 +51.697277 19.687500 +52.031250 20.375414 +52.959645 21.093750 +53.437500 21.275802 +54.843750 21.557581 +56.250000 22.176081 +56.924925 22.500000 +57.656250 22.796700 +59.062500 23.132264 +60.468750 23.272003 +61.875000 23.182732 +62.816824 22.500000 +63.281250 22.216989 +64.687500 21.590412 +66.093750 21.324850 +66.826775 21.093750 +67.500000 20.742293 +68.122862 19.687500 +68.749671 18.281250 +68.906250 17.339129 +68.979372 16.875000 +68.906250 16.099211 +11 +-66.093750 -87.386212 +-64.687500 -87.937250 +-63.281250 -87.917888 +-61.875000 -87.520927 +-60.587563 -87.187500 +-61.875000 -86.890636 +-63.281250 -86.754383 +-64.687500 -86.898773 +-66.093750 -87.102616 +-66.490485 -87.187500 +-66.093750 -87.386212 +5 +-52.031250 -12.769275 +-51.990211 -12.656250 +-52.031250 -12.608696 +-52.076694 -12.656250 +-52.031250 -12.769275 +11 +53.437500 -20.279205 +52.031250 -20.763327 +50.625000 -19.807680 +50.498333 -19.687500 +50.278018 -18.281250 +50.625000 -18.072812 +52.031250 -17.991350 +53.437500 -17.184309 +53.705945 -18.281250 +53.713453 -19.687500 +53.437500 -20.279205 +15 +-49.218750 22.130273 +-47.812500 21.848556 +-46.406250 22.266320 +-46.032594 22.500000 +-45.520423 23.906250 +-46.161376 25.312500 +-46.406250 25.678498 +-47.767368 26.718750 +-47.812500 26.748872 +-47.857071 26.718750 +-49.218750 25.720046 +-49.431203 25.312500 +-50.074702 23.906250 +-49.793798 22.500000 +-49.218750 22.130273 +17 +49.218750 -81.651251 +47.812500 -81.773112 +46.406250 -81.803994 +45.000000 -81.731288 +43.593750 -81.632674 +42.187500 -81.602301 +41.309956 -81.562500 +42.187500 -81.361717 +43.593750 -80.526070 +43.796677 -80.156250 +45.000000 -79.998082 +46.406250 -79.923229 +47.812500 -80.011612 +48.793555 -80.156250 +49.218750 -80.686453 +49.838882 -81.562500 +49.218750 -81.651251 +17 +-39.375000 6.710116 +-38.127232 5.625000 +-37.968750 5.510868 +-36.562500 4.594427 +-35.370224 5.625000 +-35.156250 5.888631 +-34.569307 7.031250 +-34.784353 8.437500 +-35.156250 9.134016 +-36.023858 9.843750 +-36.562500 10.276281 +-37.968750 10.479633 +-38.800144 9.843750 +-39.375000 9.235854 +-39.803509 8.437500 +-39.643932 7.031250 +-39.375000 6.710116 +9 +-37.968750 -79.000331 +-38.305355 -78.750000 +-37.968750 -78.668837 +-36.562500 -78.407211 +-35.156250 -78.108183 +-34.555405 -78.750000 +-35.156250 -79.119605 +-36.562500 -79.310306 +-37.968750 -79.000331 +25 +37.968750 -19.756823 +36.562500 -19.842214 +35.156250 -19.759134 +34.900023 -19.687500 +33.750000 -18.932684 +33.078461 -18.281250 +32.343750 -17.574044 +31.671081 -16.875000 +31.112685 -15.468750 +31.690394 -14.062500 +32.343750 -13.177015 +32.671845 -12.656250 +33.147915 -11.250000 +33.750000 -10.898077 +35.156250 -11.108614 +35.478045 -11.250000 +36.562500 -12.092854 +37.296587 -12.656250 +37.451724 -14.062500 +37.491904 -15.468750 +37.968750 -15.868135 +38.360826 -16.875000 +38.924531 -18.281250 +38.253640 -19.687500 +37.968750 -19.756823 +13 +36.562500 35.497189 +36.269253 35.156250 +35.156250 34.318609 +33.750000 33.921775 +32.659890 35.156250 +32.666327 36.562500 +33.750000 37.436427 +34.194067 37.968750 +35.156250 38.746038 +36.562500 38.424938 +36.906875 37.968750 +36.968256 36.562500 +36.562500 35.497189 +9 +-32.343750 -21.622868 +-30.937500 -22.317386 +-30.075057 -21.093750 +-30.334127 -19.687500 +-30.937500 -19.486952 +-31.359574 -19.687500 +-32.343750 -20.604008 +-32.521906 -21.093750 +-32.343750 -21.622868 +5 +-28.125000 -7.433238 +-28.064344 -7.031250 +-28.125000 -6.960283 +-28.493667 -7.031250 +-28.125000 -7.433238 +43 +-28.125000 10.111180 +-27.872692 9.843750 +-26.718750 8.878913 +-26.138657 8.437500 +-25.607993 7.031250 +-26.321083 5.625000 +-25.373970 4.218750 +-25.312500 4.143587 +-23.906250 3.993665 +-22.629149 4.218750 +-23.175715 5.625000 +-22.654917 7.031250 +-22.500000 7.058086 +-21.093750 7.043736 +-19.687500 7.164520 +-18.281250 7.586194 +-16.927259 8.437500 +-16.875000 8.550746 +-15.540193 9.843750 +-15.468750 10.054461 +-14.062500 10.748058 +-13.229828 11.250000 +-12.947553 12.656250 +-12.656250 13.584620 +-12.588474 14.062500 +-12.656250 14.200068 +-14.062500 14.939655 +-15.468750 14.610599 +-16.875000 14.824652 +-18.281250 15.145906 +-19.687500 15.309409 +-21.093750 15.345255 +-21.563289 15.468750 +-22.500000 15.709424 +-23.906250 15.975394 +-25.312500 15.757352 +-26.718750 16.128684 +-28.125000 16.183810 +-29.253582 15.468750 +-29.276291 14.062500 +-29.065288 12.656250 +-28.871339 11.250000 +-28.125000 10.111180 +5 +-26.718750 -19.910451 +-26.531495 -19.687500 +-26.718750 -19.117406 +-26.971323 -19.687500 +-26.718750 -19.910451 +9 +-25.312500 -18.031714 +-24.293159 -16.875000 +-23.906250 -16.572110 +-23.457515 -15.468750 +-23.906250 -14.647915 +-25.312500 -15.178438 +-25.615255 -15.468750 +-25.960154 -16.875000 +-25.312500 -18.031714 +5 +-22.500000 -21.546706 +-21.980749 -21.093750 +-22.500000 -20.554158 +-23.126935 -21.093750 +-22.500000 -21.546706 +5 +-21.093750 1.658913 +-20.653926 2.812500 +-21.093750 3.352997 +-22.152298 2.812500 +-21.093750 1.658913 +15 +-16.875000 -9.197082 +-15.860564 -9.843750 +-15.543317 -11.250000 +-15.468750 -11.468057 +-14.077482 -11.250000 +-15.280564 -9.843750 +-15.195995 -8.437500 +-15.403105 -7.031250 +-15.468750 -6.802218 +-16.716261 -5.625000 +-16.875000 -5.048782 +-17.075917 -5.625000 +-17.491869 -7.031250 +-17.331500 -8.437500 +-16.875000 -9.197082 +7 +16.875000 14.978040 +17.128747 15.468750 +16.875000 15.697471 +15.468750 15.838396 +15.251421 15.468750 +15.468750 15.003191 +16.875000 14.978040 +17 +-9.843750 -83.115031 +-10.451625 -82.968750 +-9.843750 -82.628263 +-8.437500 -81.954442 +-8.028696 -81.562500 +-7.031250 -81.107454 +-5.625000 -80.641528 +-4.218750 -81.021991 +-2.812500 -81.560428 +-2.805834 -81.562500 +-2.812500 -81.844111 +-2.837075 -82.968750 +-4.218750 -83.357782 +-5.625000 -83.500332 +-7.031250 -83.575642 +-8.437500 -83.424978 +-9.843750 -83.115031 +9 +-9.843750 49.761952 +-10.364468 50.625000 +-10.107987 52.031250 +-9.843750 52.244193 +-8.437500 52.310668 +-7.985775 52.031250 +-8.071173 50.625000 +-8.437500 49.991502 +-9.843750 49.761952 +5 +9.843750 13.868736 +10.043219 14.062500 +9.843750 14.725453 +9.392606 14.062500 +9.843750 13.868736 +7 +-5.625000 58.419800 +-6.022052 59.062500 +-5.625000 59.303276 +-4.218750 59.589390 +-3.148167 59.062500 +-4.218750 58.057421 +-5.625000 58.419800 +13 +5.625000 87.121403 +4.218750 87.154575 +2.812500 87.166596 +1.406250 87.182080 +0.000000 87.177693 +-0.123442 87.187500 +0.000000 87.217782 +1.406250 87.214065 +2.812500 87.372804 +4.218750 87.379101 +5.625000 87.476305 +5.892808 87.187500 +5.625000 87.121403 +20 +-31.355969 88.593750 +-30.937500 88.250680 +-29.531250 87.601636 +-28.125000 87.505994 +-26.718750 87.559520 +-25.312500 87.574419 +-23.906250 87.284173 +-22.621459 87.187500 +-22.500000 87.141857 +-22.465087 87.187500 +-21.093750 87.531827 +-19.687500 87.705348 +-18.281250 87.720596 +-16.875000 87.710792 +-15.468750 87.974153 +-14.062500 88.230023 +-12.656250 88.440846 +-11.250000 88.577663 +-9.843750 88.571525 +-9.323322 88.593750 +142 +-178.593750 -83.074503 +-177.663796 -82.968750 +-177.187500 -82.190196 +-175.781250 -82.959595 +-175.771514 -82.968750 +-174.375000 -83.137169 +-172.968750 -83.690658 +-171.811795 -84.375000 +-171.562500 -84.579357 +-170.972943 -84.375000 +-170.156250 -84.021939 +-168.750000 -84.279420 +-168.660384 -84.375000 +-167.343750 -84.866250 +-165.937500 -85.169020 +-164.531250 -85.386692 +-163.125000 -85.369174 +-161.718750 -85.050157 +-160.312500 -84.617605 +-158.906250 -84.736428 +-157.500000 -85.175697 +-156.093750 -85.183423 +-155.558585 -84.375000 +-154.687500 -83.820391 +-153.281250 -83.262875 +-152.241551 -82.968750 +-151.875000 -82.608198 +-150.468750 -82.849528 +-150.428379 -82.968750 +-149.062500 -83.926792 +-147.691084 -82.968750 +-147.656250 -82.894793 +-147.604437 -82.968750 +-146.747221 -84.375000 +-146.913505 -85.781250 +-146.250000 -86.184830 +-144.843750 -86.070974 +-144.206427 -85.781250 +-144.462269 -84.375000 +-143.437500 -83.002815 +-143.413845 -82.968750 +-142.031250 -82.101963 +-140.625000 -81.629695 +-140.397425 -81.562500 +-139.218750 -80.857221 +-137.812500 -80.626356 +-136.406250 -80.182061 +-136.324094 -80.156250 +-135.000000 -79.566265 +-133.593750 -79.733119 +-132.187500 -80.090122 +-130.781250 -79.888006 +-129.375000 -78.938060 +-128.851988 -78.750000 +-127.968750 -78.659369 +-126.562500 -78.456484 +-125.156250 -78.226956 +-123.750000 -77.889316 +-122.343750 -77.523411 +-121.168167 -77.343750 +-120.937500 -76.955728 +-119.531250 -76.261133 +-119.057699 -75.937500 +-119.531250 -75.788052 +-120.937500 -75.630914 +-122.343750 -75.871880 +-123.750000 -75.863167 +-125.156250 -75.386562 +-126.562500 -74.837456 +-127.968750 -74.707703 +-129.375000 -74.633389 +-130.074508 -74.531250 +-130.781250 -74.337597 +-132.187500 -74.442779 +-133.152318 -74.531250 +-133.593750 -74.583309 +-135.000000 -74.702099 +-136.406250 -74.897397 +-137.812500 -75.096785 +-139.218750 -75.348287 +-140.625000 -75.586704 +-142.031250 -75.763489 +-142.748911 -75.937500 +-143.437500 -76.463008 +-144.682657 -77.343750 +-143.437500 -78.529577 +-143.175521 -78.750000 +-143.437500 -79.143915 +-144.115539 -80.156250 +-144.843750 -80.674685 +-145.922845 -80.156250 +-146.250000 -79.913215 +-147.108443 -78.750000 +-147.656250 -77.666240 +-148.356700 -77.343750 +-148.468597 -75.937500 +-148.954343 -74.531250 +-147.656250 -73.871071 +-146.345971 -73.125000 +-146.250000 -73.068785 +-144.843750 -72.141408 +-143.437500 -71.732372 +-143.366628 -71.718750 +-143.437500 -71.638573 +-144.843750 -70.957380 +-146.250000 -70.825006 +-147.656250 -70.939427 +-148.635495 -71.718750 +-148.870186 -73.125000 +-149.062500 -74.084642 +-149.744626 -74.531250 +-150.468750 -74.707566 +-151.875000 -74.878883 +-153.281250 -75.495415 +-154.687500 -75.467061 +-156.093750 -75.318765 +-157.500000 -75.080956 +-158.906250 -74.830340 +-159.584709 -75.937500 +-159.907727 -77.343750 +-158.906250 -78.035021 +-157.500000 -78.132049 +-156.093750 -78.681745 +-155.948366 -78.750000 +-156.093750 -78.817086 +-156.997978 -80.156250 +-157.500000 -80.361949 +-158.906250 -80.796566 +-160.312500 -80.797328 +-161.718750 -80.522745 +-163.125000 -80.357291 +-164.531250 -80.628194 +-165.937500 -81.137912 +-167.343750 -80.921740 +-168.750000 -80.499734 +-170.156250 -80.625745 +-171.562500 -80.882421 +-172.968750 -80.857620 +-174.375000 -80.793966 +-175.781250 -81.057317 +-177.187500 -81.428203 +-178.593750 -81.356696 +35 +-178.593750 -78.341262 +-177.187500 -78.517396 +-176.707363 -78.750000 +-175.781250 -79.279477 +-174.375000 -79.377026 +-173.332842 -78.750000 +-172.968750 -78.599197 +-171.562500 -78.460876 +-170.156250 -78.609143 +-168.750000 -78.080857 +-167.702328 -77.343750 +-167.343750 -77.067603 +-165.967284 -75.937500 +-165.937500 -75.915044 +-164.531250 -75.032185 +-163.125000 -74.578529 +-162.813008 -74.531250 +-162.131968 -73.125000 +-163.079344 -71.718750 +-163.125000 -71.708434 +-164.531250 -71.701386 +-164.576648 -71.718750 +-165.937500 -72.685020 +-166.611058 -73.125000 +-167.343750 -73.472194 +-168.750000 -73.475807 +-170.156250 -73.334462 +-171.562500 -73.428168 +-172.968750 -73.727112 +-174.282376 -74.531250 +-174.375000 -74.593943 +-175.781250 -75.178633 +-176.852321 -75.937500 +-177.187500 -76.036022 +-178.593750 -76.422641 +3 +-178.593750 -69.203348 +-178.504469 -68.906250 +-178.593750 -68.812604 +1384 +-178.593750 -12.325601 +-177.187500 -12.327762 +-177.107710 -12.656250 +-175.781250 -14.035694 +-175.757755 -14.062500 +-174.375000 -15.391260 +-174.261579 -15.468750 +-173.541380 -16.875000 +-172.968750 -17.352136 +-171.562500 -17.505321 +-170.156250 -17.895059 +-168.750000 -17.281779 +-168.140635 -16.875000 +-167.343750 -16.329772 +-165.937500 -16.510850 +-164.531250 -16.589585 +-164.121269 -16.875000 +-163.930408 -18.281250 +-163.523827 -19.687500 +-163.125000 -20.043561 +-161.718750 -20.235338 +-160.823133 -19.687500 +-160.312500 -19.292815 +-159.847264 -18.281250 +-159.495422 -16.875000 +-159.542604 -15.468750 +-158.906250 -14.284604 +-158.127843 -14.062500 +-157.500000 -13.906580 +-156.093750 -13.244207 +-155.804306 -12.656250 +-154.687500 -11.288771 +-153.281250 -12.080555 +-152.909873 -12.656250 +-152.891521 -14.062500 +-151.875000 -14.891804 +-150.468750 -15.097802 +-149.062500 -14.984863 +-147.656250 -14.417499 +-146.413462 -15.468750 +-146.250000 -15.768669 +-145.915661 -16.875000 +-144.843750 -18.144732 +-143.437500 -17.848553 +-142.031250 -16.891964 +-140.625000 -17.014837 +-139.218750 -17.203759 +-137.996824 -16.875000 +-138.097886 -15.468750 +-139.218750 -14.298819 +-140.242833 -14.062500 +-140.625000 -13.949353 +-142.031250 -13.581780 +-142.795516 -12.656250 +-143.437500 -11.540575 +-144.602415 -11.250000 +-144.843750 -10.465104 +-144.875106 -9.843750 +-144.843750 -9.812422 +-143.437500 -9.364161 +-142.031250 -8.878086 +-141.769427 -8.437500 +-140.625000 -7.578448 +-139.218750 -7.787832 +-137.812500 -7.833961 +-136.406250 -7.239652 +-135.903789 -7.031250 +-135.000000 -6.665549 +-133.593750 -6.799364 +-132.187500 -6.950945 +-130.781250 -6.947986 +-129.375000 -5.676384 +-129.343365 -5.625000 +-127.968750 -4.331926 +-126.562500 -4.703590 +-125.568843 -5.625000 +-125.156250 -6.692664 +-124.656545 -5.625000 +-124.415850 -4.218750 +-123.750000 -3.676120 +-123.264782 -2.812500 +-122.646715 -1.406250 +-122.401855 0.000000 +-123.026469 1.406250 +-123.750000 2.585507 +-124.016957 2.812500 +-125.156250 4.161987 +-126.562500 3.796223 +-126.769209 2.812500 +-127.968750 1.774758 +-129.375000 1.936191 +-130.246587 2.812500 +-129.975307 4.218750 +-129.746144 5.625000 +-130.781250 6.567402 +-131.208952 7.031250 +-130.986747 8.437500 +-130.781250 9.358547 +-130.635799 9.843750 +-130.781250 10.481350 +-130.919057 11.250000 +-132.187500 12.198707 +-133.593750 12.145711 +-135.000000 11.961556 +-135.574076 12.656250 +-135.917716 14.062500 +-135.227366 15.468750 +-135.000000 16.321715 +-134.893413 16.875000 +-134.194376 18.281250 +-133.625328 19.687500 +-133.593750 19.733269 +-132.187500 20.162482 +-131.283694 21.093750 +-130.781250 21.937811 +-130.392519 22.500000 +-129.375000 23.161279 +-128.833998 23.906250 +-128.397447 25.312500 +-128.365390 26.718750 +-127.968750 27.230627 +-126.562500 28.098351 +-125.156250 27.703525 +-123.750000 27.338716 +-122.343750 27.679587 +-121.806404 28.125000 +-120.937500 28.989486 +-119.531250 28.488628 +-119.279143 28.125000 +-118.629147 26.718750 +-118.164594 25.312500 +-118.125000 25.155565 +-117.199750 23.906250 +-118.125000 23.426552 +-119.531250 23.360436 +-120.937500 23.784565 +-121.822689 23.906250 +-122.343750 23.990882 +-122.573858 23.906250 +-123.750000 23.182183 +-124.385914 22.500000 +-125.156250 21.761890 +-126.562500 21.319941 +-127.264893 21.093750 +-127.968750 20.282415 +-128.333215 19.687500 +-127.968750 18.329769 +-127.949378 18.281250 +-127.968750 18.272235 +-129.375000 18.019262 +-129.819143 18.281250 +-130.781250 19.087913 +-131.710477 18.281250 +-132.187500 17.686063 +-132.508137 16.875000 +-132.279416 15.468750 +-132.187500 15.433507 +-130.781250 14.290891 +-130.638340 14.062500 +-129.375000 12.851891 +-129.022970 12.656250 +-127.968750 11.746169 +-127.631150 11.250000 +-126.765638 9.843750 +-126.562500 8.733325 +-126.277603 9.843750 +-125.156250 10.039860 +-123.750000 10.210527 +-122.343750 9.876885 +-122.239442 9.843750 +-120.937500 9.570497 +-119.531250 9.615160 +-118.717894 9.843750 +-118.125000 10.015898 +-117.281469 9.843750 +-118.125000 8.994211 +-118.244326 8.437500 +-118.412638 7.031250 +-118.125000 6.675593 +-117.292238 5.625000 +-116.718750 5.393610 +-115.312500 4.636852 +-114.358277 4.218750 +-113.906250 3.729165 +-113.259125 2.812500 +-113.144035 1.406250 +-113.392879 0.000000 +-112.547601 -1.406250 +-112.500000 -1.463510 +-111.093750 -2.590158 +-110.740987 -2.812500 +-109.687500 -3.613316 +-108.281250 -4.090602 +-107.649459 -4.218750 +-107.241649 -5.625000 +-107.754024 -7.031250 +-108.281250 -7.325987 +-109.687500 -7.540367 +-111.093750 -8.116614 +-111.318565 -8.437500 +-111.582255 -9.843750 +-112.500000 -10.884105 +-113.771936 -11.250000 +-113.906250 -11.293610 +-114.633702 -12.656250 +-114.274047 -14.062500 +-113.906250 -14.724516 +-112.960948 -15.468750 +-113.609585 -16.875000 +-113.906250 -17.077822 +-115.312500 -17.995911 +-115.929988 -18.281250 +-116.718750 -18.776775 +-117.150668 -19.687500 +-117.626318 -21.093750 +-117.857842 -22.500000 +-117.724193 -23.906250 +-116.718750 -24.332042 +-115.312500 -24.286932 +-114.122029 -23.906250 +-113.906250 -23.837375 +-112.500000 -23.030580 +-111.093750 -23.050824 +-110.103256 -23.906250 +-110.412649 -25.312500 +-110.571777 -26.718750 +-109.687500 -27.999147 +-109.571781 -28.125000 +-109.263269 -29.531250 +-108.875112 -30.937500 +-108.281250 -31.343144 +-106.875000 -32.066420 +-106.147207 -32.343750 +-105.468750 -32.618223 +-104.062500 -33.100901 +-102.656250 -33.219598 +-101.789909 -32.343750 +-101.250000 -31.568192 +-100.899911 -30.937500 +-99.844245 -29.531250 +-100.161909 -28.125000 +-99.843750 -27.680987 +-99.060914 -26.718750 +-98.437500 -26.325862 +-97.031250 -25.900631 +-95.625000 -25.503067 +-95.292846 -25.312500 +-95.625000 -25.252542 +-97.031250 -24.742979 +-98.184932 -23.906250 +-98.437500 -23.540465 +-98.944404 -22.500000 +-99.713874 -21.093750 +-99.843750 -20.943131 +-101.031923 -19.687500 +-100.895488 -18.281250 +-99.843750 -16.911668 +-99.817754 -16.875000 +-98.437500 -15.866274 +-97.031250 -15.611737 +-96.487769 -15.468750 +-95.625000 -15.064516 +-94.218750 -14.265819 +-93.669636 -14.062500 +-92.812500 -13.720035 +-92.356317 -14.062500 +-91.626980 -15.468750 +-91.406250 -15.621745 +-90.000000 -16.362580 +-88.593750 -16.381113 +-88.184315 -15.468750 +-88.546375 -14.062500 +-88.593750 -13.846511 +-88.865122 -12.656250 +-88.671747 -11.250000 +-88.593750 -11.151431 +-87.187500 -11.220891 +-85.781250 -9.865768 +-85.777779 -9.843750 +-85.781250 -9.833162 +-86.626573 -8.437500 +-87.187500 -7.602345 +-87.474947 -7.031250 +-87.187500 -6.241213 +-86.802877 -5.625000 +-86.651768 -4.218750 +-87.187500 -2.911579 +-87.219999 -2.812500 +-87.298181 -1.406250 +-88.593750 -0.970137 +-89.479996 -1.406250 +-90.000000 -1.605780 +-91.406250 -1.890243 +-91.805935 -1.406250 +-92.812500 -0.087882 +-94.218750 -0.146496 +-95.625000 -0.253886 +-96.169374 0.000000 +-96.223082 1.406250 +-95.730788 2.812500 +-95.625000 2.941231 +-94.270862 4.218750 +-94.994240 5.625000 +-95.625000 6.295356 +-96.719682 7.031250 +-97.031250 7.200337 +-98.437500 7.636878 +-99.843750 7.552114 +-100.574524 7.031250 +-101.250000 6.702445 +-102.656250 6.214754 +-104.062500 5.945980 +-105.468750 6.445391 +-105.912867 7.031250 +-106.363284 8.437500 +-106.683528 9.843750 +-105.825868 11.250000 +-105.468750 11.422034 +-104.062500 12.441178 +-103.703657 12.656250 +-102.729338 14.062500 +-103.161737 15.468750 +-104.062500 16.839284 +-104.108707 16.875000 +-105.468750 18.046807 +-105.773262 18.281250 +-105.468750 19.227238 +-105.359184 19.687500 +-105.468750 20.478753 +-106.875000 20.648339 +-107.979080 21.093750 +-108.281250 21.147749 +-109.687500 21.443362 +-111.093750 21.750025 +-112.049176 22.500000 +-112.500000 23.000975 +-113.502299 23.906250 +-113.906250 24.149921 +-115.125256 25.312500 +-115.312500 25.652877 +-116.105135 26.718750 +-116.612740 28.125000 +-116.718750 28.906518 +-116.839398 29.531250 +-117.405997 30.937500 +-118.125000 31.753802 +-118.753749 32.343750 +-119.125143 33.750000 +-119.531250 34.348796 +-120.548550 35.156250 +-120.937500 35.320985 +-122.343750 35.374462 +-122.818104 35.156250 +-123.750000 34.066350 +-123.943953 33.750000 +-124.263454 32.343750 +-125.156250 31.984664 +-126.562500 31.723836 +-127.677288 32.343750 +-127.968750 32.595952 +-128.790179 33.750000 +-129.375000 34.465940 +-130.358198 35.156250 +-130.781250 35.389237 +-132.187500 35.995474 +-132.685755 36.562500 +-132.567377 37.968750 +-132.927614 39.375000 +-132.562073 40.781250 +-132.187500 41.459391 +-130.781250 40.781581 +-130.780651 40.781250 +-129.375000 39.903767 +-128.906793 39.375000 +-128.460235 37.968750 +-127.968750 37.370351 +-126.768791 36.562500 +-126.562500 36.460602 +-125.156250 36.400948 +-124.972401 36.562500 +-124.385393 37.968750 +-124.778411 39.375000 +-125.156250 39.941474 +-126.556348 40.781250 +-125.156250 41.443645 +-123.750000 41.450319 +-122.343750 41.581112 +-121.343987 42.187500 +-120.937500 42.836504 +-120.525629 43.593750 +-119.531250 44.586860 +-118.125000 44.961585 +-117.492815 43.593750 +-117.269613 42.187500 +-116.718750 41.722203 +-115.312500 41.358466 +-113.906250 41.267200 +-112.500000 41.079731 +-111.385278 40.781250 +-111.093750 40.616964 +-110.041475 39.375000 +-109.687500 38.965756 +-108.612194 37.968750 +-108.281250 37.754318 +-107.536947 37.968750 +-106.875000 38.116611 +-105.468750 38.728740 +-104.062500 39.138382 +-103.605937 39.375000 +-102.770445 40.781250 +-102.656250 41.197956 +-102.189094 42.187500 +-102.016830 43.593750 +-102.340749 45.000000 +-102.656250 45.292661 +-104.062500 46.079743 +-104.473789 46.406250 +-105.468750 47.356199 +-106.875000 47.504751 +-108.281250 47.234511 +-109.687500 47.031782 +-111.093750 47.146728 +-112.498853 46.406250 +-112.500000 46.405225 +-112.523522 46.406250 +-112.712906 47.812500 +-112.500000 47.957234 +-111.556977 49.218750 +-111.663975 50.625000 +-112.042111 52.031250 +-112.500000 52.507914 +-113.906250 52.155381 +-114.218951 52.031250 +-115.312500 51.211494 +-116.718750 50.987784 +-117.013872 50.625000 +-117.624536 49.218750 +-117.634738 47.812500 +-118.066513 46.406250 +-118.125000 45.578898 +-118.319629 46.406250 +-119.531250 46.572159 +-120.459171 46.406250 +-120.937500 46.304143 +-122.343750 45.672185 +-123.750000 45.459538 +-125.156250 45.306982 +-126.562500 45.070266 +-127.968750 46.048096 +-128.566928 46.406250 +-129.261235 47.812500 +-128.472619 49.218750 +-127.968750 50.248566 +-127.619409 50.625000 +-126.562500 51.385580 +-125.156250 51.881393 +-123.750000 51.850377 +-122.567394 50.625000 +-122.343750 50.485737 +-120.937500 50.502321 +-120.759289 50.625000 +-120.937500 51.358516 +-121.201099 52.031250 +-122.343750 52.819564 +-123.373103 53.437500 +-123.226928 54.843750 +-122.528537 56.250000 +-122.467117 57.656250 +-123.750000 57.981996 +-123.928811 57.656250 +-125.156250 57.217820 +-126.562500 57.171261 +-127.968750 57.097721 +-129.375000 56.593731 +-130.471328 56.250000 +-130.781250 56.133552 +-130.938204 56.250000 +-132.187500 57.092740 +-132.709089 57.656250 +-133.593750 58.488699 +-135.000000 58.961786 +-135.469587 59.062500 +-136.406250 59.535849 +-136.628238 59.062500 +-136.410113 57.656250 +-137.376896 56.250000 +-137.812500 55.985185 +-139.218750 55.405598 +-140.230093 54.843750 +-140.625000 54.610251 +-142.031250 53.877775 +-143.202586 53.437500 +-142.031250 52.881808 +-141.168657 52.031250 +-140.625000 51.684285 +-139.218750 50.907031 +-138.473075 50.625000 +-137.812500 49.593459 +-137.620940 49.218750 +-137.303652 47.812500 +-137.386096 46.406250 +-137.812500 45.810271 +-139.218750 46.030749 +-140.625000 46.221419 +-141.399769 46.406250 +-142.031250 46.690440 +-143.437500 47.204555 +-144.843750 46.528178 +-145.024142 46.406250 +-146.250000 46.063598 +-147.656250 45.914297 +-149.062500 45.288818 +-149.746883 46.406250 +-150.468750 47.144657 +-150.806203 47.812500 +-151.875000 49.025495 +-152.018167 49.218750 +-153.281250 50.568832 +-154.687500 50.399006 +-156.093750 50.384394 +-157.500000 50.052116 +-158.906250 49.696357 +-160.312500 49.814895 +-161.668065 49.218750 +-161.718750 49.129527 +-161.859210 49.218750 +-162.967915 50.625000 +-162.223303 52.031250 +-161.718750 52.924819 +-161.433540 53.437500 +-161.718750 54.543326 +-161.921879 54.843750 +-161.718750 54.943123 +-160.312500 55.658433 +-159.725990 56.250000 +-159.213414 57.656250 +-159.444728 59.062500 +-158.906250 59.394512 +-157.500000 59.184737 +-157.116782 59.062500 +-156.093750 58.490995 +-155.244216 57.656250 +-156.093750 57.022096 +-156.919703 56.250000 +-157.500000 55.297501 +-157.848191 54.843750 +-157.500000 54.437307 +-156.093750 53.707790 +-154.687500 53.861825 +-153.613195 53.437500 +-153.281250 53.163367 +-151.875000 52.781644 +-151.586524 53.437500 +-150.848800 54.843750 +-150.468750 55.050763 +-149.062500 55.060021 +-148.103933 54.843750 +-147.656250 54.505439 +-147.057959 53.437500 +-147.656250 52.518358 +-148.020739 52.031250 +-147.656250 51.479453 +-146.351954 50.625000 +-146.250000 50.591014 +-146.203717 50.625000 +-144.843750 51.565931 +-144.237950 52.031250 +-143.589831 53.437500 +-143.943142 54.843750 +-143.437500 55.092808 +-142.031250 56.034607 +-141.837051 56.250000 +-140.731923 57.656250 +-140.625000 58.120114 +-140.248144 59.062500 +-139.218750 60.185579 +-137.812500 60.169775 +-137.218699 60.468750 +-137.812500 60.742375 +-139.218750 61.016931 +-139.703493 61.875000 +-140.625000 62.275653 +-142.031250 63.251905 +-142.107336 63.281250 +-142.031250 63.324479 +-140.987574 64.687500 +-140.625000 65.001601 +-139.414754 66.093750 +-140.625000 66.822067 +-142.031250 67.213718 +-143.437500 67.434161 +-143.633569 67.500000 +-144.843750 67.811839 +-146.250000 68.320708 +-147.656250 68.868702 +-147.680386 68.906250 +-147.656250 68.920490 +-146.250000 70.029341 +-145.793557 70.312500 +-144.843750 70.500153 +-143.437500 70.374318 +-143.073061 70.312500 +-142.031250 70.036226 +-140.625000 70.115438 +-139.218750 69.928749 +-137.812500 69.367365 +-136.406250 69.710595 +-135.299053 70.312500 +-135.000000 70.375645 +-133.593750 70.904327 +-132.381962 71.718750 +-132.187500 73.100680 +-130.781250 72.753199 +-129.375000 72.542247 +-127.968750 72.720939 +-127.061913 73.125000 +-126.562500 73.509151 +-125.262956 74.531250 +-125.156250 74.773170 +-123.750000 75.255487 +-122.680147 74.531250 +-123.073788 73.125000 +-123.750000 71.962880 +-123.957705 71.718750 +-125.156250 70.848402 +-126.562500 70.553449 +-127.968750 70.526929 +-129.375000 70.394697 +-129.599183 70.312500 +-130.289320 68.906250 +-129.375000 68.690829 +-127.968750 68.730446 +-126.704861 68.906250 +-126.562500 69.073927 +-125.156250 69.460600 +-123.750000 69.878291 +-123.295071 70.312500 +-123.070303 71.718750 +-122.343750 71.960884 +-120.937500 72.283663 +-119.531250 72.521341 +-118.670792 73.125000 +-118.291917 74.531250 +-118.125000 74.664004 +-116.718750 75.237854 +-115.312500 75.093736 +-114.954492 74.531250 +-115.079860 73.125000 +-115.312500 72.942572 +-116.718750 72.253898 +-117.482288 71.718750 +-117.307116 70.312500 +-116.718750 69.738333 +-115.312500 69.243513 +-114.878995 68.906250 +-113.906250 68.343070 +-112.500000 68.505126 +-111.093750 68.267427 +-109.687500 67.544623 +-108.869481 67.500000 +-108.281250 67.478843 +-108.059248 67.500000 +-106.875000 67.693792 +-105.468750 67.925833 +-104.849894 67.500000 +-104.062500 67.005764 +-102.938103 66.093750 +-102.656250 65.608734 +-101.250000 65.084039 +-99.843750 64.873977 +-99.506744 64.687500 +-99.843750 64.491257 +-100.705339 63.281250 +-100.762074 61.875000 +-100.913986 60.468750 +-99.843750 59.838072 +-98.437500 59.616033 +-97.031250 59.299043 +-96.669445 59.062500 +-95.625000 58.171815 +-94.218750 57.703261 +-94.079053 57.656250 +-92.890753 56.250000 +-92.812500 56.064158 +-91.406250 55.136652 +-90.000000 55.614190 +-89.548503 56.250000 +-88.593750 57.188268 +-88.305610 57.656250 +-87.187500 58.753281 +-86.364000 59.062500 +-85.781250 59.327406 +-84.375000 59.448323 +-82.968750 59.549838 +-81.562500 59.605076 +-80.156250 59.777160 +-78.750000 60.103619 +-77.343750 60.406497 +-75.937500 60.309040 +-74.531250 59.544750 +-73.297940 59.062500 +-73.125000 59.018731 +-71.718750 58.567148 +-70.312500 58.265452 +-68.906250 58.062621 +-67.662219 57.656250 +-67.500000 57.632372 +-66.093750 57.283921 +-64.687500 56.962470 +-63.281250 56.798691 +-61.875000 56.431604 +-60.984695 56.250000 +-60.468750 56.148676 +-60.286268 56.250000 +-59.062500 57.331552 +-58.758668 57.656250 +-57.656250 58.329217 +-56.582888 59.062500 +-56.250000 59.212731 +-54.843750 59.288054 +-53.461835 59.062500 +-53.437500 59.056864 +-53.365134 59.062500 +-52.031250 59.220624 +-50.625000 60.110510 +-50.054597 60.468750 +-49.218750 60.806072 +-47.812500 60.833352 +-46.406250 61.547065 +-46.173436 61.875000 +-45.000000 62.789763 +-44.091903 63.281250 +-43.593750 63.512684 +-42.187500 63.633894 +-40.781250 63.585562 +-39.375000 64.206339 +-38.443595 64.687500 +-37.968750 64.982994 +-36.562500 65.467600 +-35.156250 65.832526 +-33.750000 66.075154 +-32.343750 65.974805 +-30.937500 65.607630 +-29.531250 65.269412 +-28.125000 65.086983 +-26.989486 64.687500 +-26.718750 64.594737 +-25.312500 64.384161 +-24.565566 64.687500 +-23.906250 65.653720 +-23.611480 66.093750 +-22.500000 66.423257 +-21.228072 66.093750 +-21.093750 65.993485 +-19.687500 65.355188 +-18.281250 65.769806 +-17.339019 66.093750 +-16.875000 66.215070 +-15.468750 66.104054 +-15.423066 66.093750 +-14.062500 65.731791 +-12.656250 66.008707 +-11.250000 66.030197 +-9.843750 65.703711 +-8.437500 65.661726 +-7.031250 65.245894 +-6.043747 64.687500 +-5.625000 64.362512 +-4.218750 64.370997 +-2.812500 64.402706 +-1.406250 63.853783 +0.000000 63.759145 +1.406250 63.840866 +2.812500 63.901930 +4.218750 64.547552 +4.431032 64.687500 +5.625000 65.176806 +7.031250 65.687336 +8.437500 65.817887 +9.843750 65.445649 +10.199668 66.093750 +11.250000 66.558350 +12.444806 67.500000 +12.656250 67.625848 +14.030745 67.500000 +14.062500 67.495080 +15.468750 66.319097 +15.716793 66.093750 +15.468750 65.758347 +15.152072 64.687500 +14.860422 63.281250 +15.468750 62.686704 +16.875000 62.354826 +18.065155 63.281250 +18.281250 63.906373 +18.945183 64.687500 +19.687500 65.224755 +21.093750 66.084766 +21.109976 66.093750 +22.500000 67.172710 +23.044312 67.500000 +23.906250 67.832354 +25.271855 68.906250 +25.312500 68.937577 +26.718750 68.923742 +26.757808 68.906250 +28.125000 68.082836 +28.801306 67.500000 +29.531250 67.091856 +30.407434 66.093750 +30.937500 65.628593 +32.343750 65.256200 +33.316532 66.093750 +33.750000 66.474102 +34.846331 67.500000 +35.156250 67.868279 +36.562500 68.287225 +37.968750 68.411476 +39.375000 68.705282 +40.634196 67.500000 +40.564551 66.093750 +40.777559 64.687500 +39.375000 64.149165 +37.968750 63.338308 +37.454127 63.281250 +36.562500 63.109724 +36.389456 63.281250 +35.156250 63.819377 +33.750000 64.038321 +32.343750 63.436236 +32.210671 63.281250 +30.937500 62.148555 +30.551980 61.875000 +30.791809 60.468750 +30.937500 60.416730 +32.343750 60.102404 +33.750000 60.217957 +34.928722 60.468750 +35.156250 60.546190 +36.562500 60.565090 +36.676114 60.468750 +37.968750 60.080750 +39.375000 59.112948 +39.428208 59.062500 +40.653489 57.656250 +40.781250 57.482321 +41.524856 56.250000 +42.187500 55.185143 +42.732680 54.843750 +43.593750 53.938287 +45.000000 53.929742 +45.545360 53.437500 +46.027384 52.031250 +46.406250 51.591656 +47.812500 50.873536 +48.667796 52.031250 +49.218750 52.421439 +50.625000 52.557745 +51.105768 52.031250 +52.031250 51.078542 +53.437500 50.705650 +54.406442 52.031250 +54.332778 53.437500 +54.843750 54.191503 +55.741055 54.843750 +56.250000 55.179374 +57.656250 55.100479 +58.330429 54.843750 +59.062500 54.248331 +59.524560 53.437500 +59.062500 52.361345 +58.771624 52.031250 +57.656250 51.534425 +56.250000 50.864728 +55.772946 50.625000 +56.250000 50.480521 +57.656250 49.682129 +59.062500 50.591941 +59.089865 50.625000 +60.468750 51.446081 +61.875000 51.698452 +62.555931 52.031250 +63.275477 53.437500 +63.281250 53.443565 +63.293711 53.437500 +64.005977 52.031250 +63.409825 50.625000 +63.329860 49.218750 +63.382661 47.812500 +63.281250 47.658545 +62.910094 46.406250 +63.281250 45.704575 +64.687500 46.098845 +65.246659 46.406250 +66.093750 47.526024 +66.369086 47.812500 +66.905828 49.218750 +67.500000 49.819157 +68.342782 50.625000 +68.906250 51.158743 +69.539392 52.031250 +70.053689 53.437500 +70.312500 54.821916 +70.331561 54.843750 +71.718750 55.152218 +73.125000 55.655690 +73.526319 56.250000 +74.531250 57.083588 +75.055534 57.656250 +75.937500 58.335833 +77.343750 58.840568 +78.197010 59.062500 +78.750000 59.206735 +80.156250 59.405346 +81.562500 59.216531 +81.990724 59.062500 +82.968750 58.537053 +84.375000 57.961135 +85.781250 57.727711 +86.151570 57.656250 +87.187500 56.568997 +87.266821 56.250000 +87.187500 56.089626 +85.879962 54.843750 +85.781250 54.804430 +84.375000 54.407177 +82.968750 53.982749 +81.588648 53.437500 +81.562500 53.424424 +80.156250 53.239699 +79.246248 53.437500 +78.750000 53.496871 +77.343750 53.587658 +75.937500 53.471307 +75.825998 53.437500 +74.922233 52.031250 +75.937500 50.944744 +76.454553 50.625000 +77.343750 50.222560 +78.750000 49.404306 +78.991924 49.218750 +79.977899 47.812500 +80.156250 47.240508 +80.656630 46.406250 +80.156250 45.430087 +80.039014 45.000000 +78.750000 44.393987 +77.343750 44.042805 +75.937500 43.614129 +75.831041 43.593750 +74.531250 43.385278 +73.125000 43.472869 +71.718750 43.403432 +70.312500 43.528596 +68.906250 42.498296 +68.768276 42.187500 +68.906250 41.942173 +69.603986 40.781250 +70.312500 39.873294 +70.646613 39.375000 +71.718750 38.666396 +73.125000 38.580534 +74.531250 38.440246 +75.824902 37.968750 +75.937500 37.898061 +77.343750 37.266039 +78.750000 36.659161 +78.909073 36.562500 +79.679263 35.156250 +78.750000 34.152141 +78.463491 33.750000 +77.343750 32.777109 +77.067072 32.343750 +76.735956 30.937500 +75.937500 30.249884 +74.531250 30.003594 +73.125000 30.329284 +72.769447 30.937500 +71.718750 32.164090 +70.312500 31.527088 +69.792716 30.937500 +70.312500 29.652813 +70.513067 29.531250 +71.718750 29.055462 +72.533278 28.125000 +73.125000 27.531556 +74.531250 27.076165 +75.868625 26.718750 +75.937500 26.505551 +76.061428 25.312500 +75.937500 24.759027 +75.737806 23.906250 +75.702189 22.500000 +75.937500 21.950084 +76.515967 21.093750 +77.343750 20.660295 +78.750000 20.209929 +80.156250 20.823467 +80.427934 21.093750 +81.562500 22.213896 +82.968750 22.229256 +83.844208 21.093750 +84.375000 20.646008 +85.546678 21.093750 +85.027668 22.500000 +85.781250 23.596081 +86.178656 23.906250 +87.187500 24.598063 +88.229133 23.906250 +88.593750 23.629387 +89.824324 22.500000 +90.000000 22.202153 +90.346514 22.500000 +90.311898 23.906250 +90.021529 25.312500 +90.187645 26.718750 +91.406250 27.865193 +92.591957 28.125000 +92.812500 28.222241 +94.218750 29.126743 +94.587112 29.531250 +94.408996 30.937500 +94.218750 31.034451 +93.240617 32.343750 +94.218750 33.162722 +95.548933 32.343750 +95.625000 32.192157 +97.031250 31.544926 +98.437500 31.530854 +99.843750 32.050648 +100.449264 32.343750 +101.250000 32.497730 +101.646197 32.343750 +102.656250 31.777973 +103.763769 30.937500 +104.062500 30.560523 +105.468750 29.821247 +106.308714 29.531250 +105.577147 28.125000 +105.899493 26.718750 +106.780770 25.312500 +106.875000 25.185684 +108.014538 23.906250 +108.036367 22.500000 +108.281250 21.983504 +109.360990 21.093750 +109.687500 21.016205 +111.093750 20.529864 +111.857353 19.687500 +112.100574 18.281250 +112.153070 16.875000 +112.075129 15.468750 +112.056731 14.062500 +112.365575 12.656250 +112.459802 11.250000 +112.495075 9.843750 +112.500000 9.831654 +113.906250 8.488033 +113.987427 8.437500 +115.061460 7.031250 +114.689592 5.625000 +114.457445 4.218750 +114.539800 2.812500 +114.400088 1.406250 +114.593441 0.000000 +115.312500 -0.799129 +115.827742 -1.406250 +116.718750 -2.067856 +117.464138 -2.812500 +118.125000 -4.083083 +118.169338 -4.218750 +118.448274 -5.625000 +118.982707 -7.031250 +119.531250 -8.162339 +119.691812 -8.437500 +120.663394 -9.843750 +120.937500 -10.141955 +122.343750 -10.687256 +123.750000 -11.087834 +125.156250 -11.161653 +126.562500 -10.130254 +126.814405 -9.843750 +127.968750 -8.855269 +129.375000 -9.537957 +130.360243 -8.437500 +130.221354 -7.031250 +130.613379 -5.625000 +130.781250 -5.400862 +132.187500 -5.007829 +133.593750 -4.560606 +134.005953 -4.218750 +135.000000 -3.666763 +136.406250 -3.080682 +137.812500 -4.133877 +137.916655 -4.218750 +139.218750 -5.210513 +140.625000 -4.735486 +141.508583 -4.218750 +142.031250 -3.945764 +143.437500 -3.574935 +144.843750 -3.099932 +145.155145 -2.812500 +144.843750 -2.608586 +144.103673 -1.406250 +144.110372 0.000000 +144.843750 1.048675 +145.391773 1.406250 +146.095704 2.812500 +145.521514 4.218750 +144.843750 5.187587 +144.424828 5.625000 +143.437500 6.356932 +142.031250 6.495703 +140.625000 6.186173 +139.218750 6.028992 +138.315026 5.625000 +139.218750 4.233070 +139.221919 4.218750 +140.625000 2.853398 +140.668710 2.812500 +141.420807 1.406250 +140.625000 0.567769 +139.218750 0.417365 +137.812500 0.197958 +136.947100 0.000000 +136.406250 -0.172509 +135.499165 0.000000 +135.000000 0.094042 +134.481355 1.406250 +133.824124 2.812500 +133.593750 3.470010 +132.187500 3.669552 +130.781250 4.026531 +130.458358 4.218750 +130.781250 4.792505 +132.187500 4.933312 +133.593750 4.670801 +135.000000 5.111416 +135.966291 5.625000 +136.406250 6.376897 +136.698526 7.031250 +136.406250 7.374038 +135.000000 8.134334 +134.810127 8.437500 +133.593750 9.397594 +133.004856 9.843750 +133.226857 11.250000 +133.593750 11.712578 +134.349222 12.656250 +135.000000 13.809845 +135.378442 14.062500 +136.406250 15.376971 +136.478817 15.468750 +137.812500 16.211596 +139.218750 15.871643 +139.892420 15.468750 +140.619186 14.062500 +140.625000 14.056987 +142.031250 13.762160 +142.440918 14.062500 +142.394215 15.468750 +143.437500 16.293509 +143.984464 16.875000 +144.726084 18.281250 +144.843750 18.642527 +146.250000 19.389148 +147.372981 19.687500 +146.250000 19.861358 +145.149531 21.093750 +144.843750 21.302048 +143.799502 22.500000 +143.437500 22.959028 +142.811544 23.906250 +142.455432 25.312500 +142.291628 26.718750 +142.480942 28.125000 +143.437500 28.730875 +144.266964 29.531250 +144.843750 30.057971 +145.788829 30.937500 +146.250000 31.580436 +147.656250 32.252888 +147.944306 32.343750 +149.062500 33.231614 +150.426445 33.750000 +150.468750 33.799149 +151.875000 34.111338 +152.978665 35.156250 +153.281250 35.575737 +154.409172 35.156250 +154.687500 35.004683 +156.093750 34.502841 +156.875421 35.156250 +157.500000 35.427756 +158.906250 35.318430 +159.027322 35.156250 +159.638026 33.750000 +160.312500 33.116621 +161.718750 32.620990 +161.968759 32.343750 +162.723204 30.937500 +163.125000 30.172071 +163.360064 29.531250 +164.223246 28.125000 +164.531250 27.772747 +165.937500 26.825265 +167.343750 26.868244 +168.750000 27.755576 +169.398817 28.125000 +170.156250 28.303869 +170.423122 28.125000 +170.279622 26.718750 +170.156250 26.640093 +168.750000 26.173136 +167.343750 26.244473 +166.202962 25.312500 +165.937500 25.251691 +164.770435 23.906250 +164.531250 23.378753 +164.077089 22.500000 +163.125000 21.170455 +163.059387 21.093750 +161.936581 19.687500 +161.718750 19.606262 +161.320775 19.687500 +160.312500 20.060750 +159.177915 21.093750 +158.906250 21.384631 +158.709383 21.093750 +158.022301 19.687500 +157.541092 18.281250 +157.500000 18.209095 +156.794947 16.875000 +156.296118 15.468750 +156.303960 14.062500 +156.412873 12.656250 +156.093750 11.880169 +154.687500 11.475944 +154.273580 11.250000 +154.096695 9.843750 +153.281250 8.744407 +152.987202 8.437500 +151.875000 7.286005 +151.241190 7.031250 +150.468750 6.815056 +149.062500 5.737676 +148.928323 5.625000 +149.062500 5.009922 +149.654923 4.218750 +150.468750 4.028582 +150.785189 4.218750 +151.875000 5.181179 +152.203562 5.625000 +153.281250 7.027199 +153.286912 7.031250 +154.687500 8.191868 +155.192877 8.437500 +156.093750 8.975282 +157.500000 8.855243 +158.906250 8.776701 +159.404805 8.437500 +159.738723 7.031250 +158.906250 6.471687 +157.500000 5.687209 +156.965470 5.625000 +156.093750 5.540679 +154.687500 4.986487 +154.327622 4.218750 +154.128341 2.812500 +153.281250 1.538819 +152.303822 1.406250 +151.875000 1.373736 +151.635219 1.406250 +150.468750 1.664298 +149.062500 2.186000 +148.436358 2.812500 +147.656250 3.100265 +146.885901 2.812500 +147.366982 1.406250 +147.656250 1.201301 +148.876570 0.000000 +148.256564 -1.406250 +147.693101 -2.812500 +149.062500 -3.134056 +150.468750 -3.939235 +151.147515 -4.218750 +151.875000 -4.831919 +152.302841 -4.218750 +153.251736 -2.812500 +153.281250 -2.782441 +153.509307 -2.812500 +154.687500 -2.996112 +155.467179 -4.218750 +155.344807 -5.625000 +155.447334 -7.031250 +156.093750 -7.549302 +157.500000 -7.719873 +158.906250 -7.340623 +159.748074 -7.031250 +160.312500 -6.571400 +160.894217 -7.031250 +160.879976 -8.437500 +160.525929 -9.843750 +160.312500 -10.768905 +160.152321 -11.250000 +159.977555 -12.656250 +160.312500 -13.921416 +160.420446 -14.062500 +161.718750 -15.183276 +163.125000 -14.578753 +164.531250 -15.434759 +165.937500 -15.123218 +167.343750 -14.455508 +167.789270 -14.062500 +168.711264 -12.656250 +168.750000 -12.588595 +169.492969 -11.250000 +168.924829 -9.843750 +168.750000 -9.640772 +167.343750 -8.936274 +167.288411 -8.437500 +167.343750 -7.984400 +167.654162 -7.031250 +167.343750 -6.273141 +165.937500 -5.754317 +165.396550 -5.625000 +164.531250 -5.401532 +163.634665 -4.218750 +163.350012 -2.812500 +163.259380 -1.406250 +163.946344 0.000000 +164.531250 0.582112 +165.937500 0.901077 +167.343750 0.429840 +168.127466 0.000000 +168.750000 -0.432597 +170.156250 -1.333480 +170.295302 -1.406250 +171.562500 -2.640434 +172.073547 -2.812500 +172.968750 -3.453531 +173.361354 -2.812500 +174.375000 -1.943558 +175.781250 -1.891511 +176.730204 -2.812500 +176.265365 -4.218750 +175.781250 -5.385700 +174.375000 -5.421279 +172.968750 -5.026582 +172.621981 -5.625000 +171.607538 -7.031250 +172.295188 -8.437500 +172.964662 -9.843750 +172.236353 -11.250000 +171.562500 -11.929976 +171.055315 -12.656250 +170.749091 -14.062500 +170.156250 -15.326655 +170.029468 -15.468750 +168.750000 -16.832983 +168.718776 -16.875000 +168.024783 -18.281250 +168.123007 -19.687500 +168.750000 -20.280526 +170.156250 -20.587967 +171.562500 -20.708685 +172.968750 -19.938996 +173.173063 -19.687500 +172.968750 -19.559938 +171.816133 -18.281250 +171.562500 -17.973610 +170.795944 -16.875000 +170.840460 -15.468750 +171.562500 -15.356850 +172.968750 -15.424349 +173.128843 -15.468750 +174.375000 -16.021088 +175.478934 -15.468750 +175.781250 -15.017740 +176.188477 -14.062500 +176.762250 -12.656250 +177.187500 -11.613007 +178.593750 -11.587582 +180.000000 -11.958338 +22 +-178.593750 53.948948 +-177.814947 53.437500 +-177.187500 53.177963 +-176.335668 53.437500 +-175.781250 53.758579 +-174.375000 54.829357 +-174.303167 54.843750 +-174.195641 56.250000 +-174.375000 57.231386 +-174.505398 57.656250 +-174.375000 58.106893 +-173.709244 59.062500 +-172.968750 59.752542 +-171.723130 60.468750 +-172.968750 60.711163 +-174.375000 61.582704 +-175.093629 61.875000 +-175.781250 61.966713 +-177.187500 61.906670 +-177.429940 61.875000 +-178.341816 60.468750 +-178.593750 60.327648 +10 +-178.593750 75.666267 +-177.587081 75.937500 +-177.187500 76.087099 +-175.781250 76.432597 +-174.375000 76.953511 +-173.802517 77.343750 +-174.375000 78.326690 +-175.781250 78.429438 +-177.187500 78.019279 +-178.593750 77.863188 +406 +-178.593750 79.331969 +-177.187500 79.259230 +-175.781250 78.944465 +-174.375000 78.908868 +-172.968750 79.493794 +-171.736615 80.156250 +-171.562500 80.247190 +-170.156250 81.172839 +-168.750000 81.513436 +-167.343750 81.444233 +-165.937500 81.244032 +-164.531250 81.152768 +-163.125000 81.329658 +-161.718750 81.479378 +-160.312500 81.403817 +-158.906250 81.103577 +-157.500000 81.030292 +-156.093750 81.164631 +-154.687500 81.297489 +-153.281250 81.396979 +-151.875000 81.481582 +-150.468750 81.323893 +-149.062500 81.017521 +-147.656250 80.797345 +-146.250000 80.687509 +-144.843750 80.716064 +-143.437500 80.950506 +-142.099781 81.562500 +-142.031250 81.599344 +-140.625000 82.152477 +-139.218750 82.306724 +-137.812500 82.445129 +-136.406250 82.572991 +-135.000000 82.282403 +-133.593750 82.189501 +-132.187500 82.298989 +-130.781250 82.438371 +-130.024795 82.968750 +-129.375000 83.171908 +-127.968750 83.321867 +-126.562500 83.375515 +-125.156250 83.558850 +-123.750000 83.865630 +-122.343750 84.270672 +-121.678981 84.375000 +-121.301098 85.781250 +-120.937500 85.858896 +-120.547312 85.781250 +-120.403078 84.375000 +-119.531250 84.153890 +-118.125000 83.773685 +-116.718750 83.403846 +-115.657349 82.968750 +-115.312500 82.624891 +-114.373541 81.562500 +-113.906250 80.285385 +-113.849944 80.156250 +-113.906250 79.729977 +-114.069473 78.750000 +-113.906250 78.581977 +-112.500000 78.324332 +-111.093750 78.168603 +-109.687500 78.295087 +-109.184564 78.750000 +-108.281250 79.361306 +-106.875000 80.060199 +-106.581060 80.156250 +-105.468750 80.470939 +-104.120788 81.562500 +-104.062500 81.710858 +-102.656250 82.739365 +-101.250000 82.548435 +-99.843750 82.324015 +-98.437500 81.694397 +-98.266591 81.562500 +-97.031250 80.903628 +-95.625000 80.760775 +-94.218750 81.026597 +-93.415942 81.562500 +-92.812500 82.346088 +-91.406250 82.364515 +-90.000000 82.106445 +-88.593750 82.257154 +-87.187500 81.947858 +-86.346181 81.562500 +-85.781250 81.325335 +-84.375000 81.115493 +-82.968750 81.207732 +-81.562500 81.370178 +-80.156250 81.382693 +-78.750000 81.431082 +-77.956106 81.562500 +-77.343750 82.490395 +-77.255053 82.968750 +-75.937500 83.509660 +-74.531250 83.715538 +-73.125000 83.787786 +-71.718750 83.978558 +-70.312500 83.802459 +-69.626720 82.968750 +-68.906250 81.682623 +-68.558769 81.562500 +-67.500000 81.372773 +-67.069659 81.562500 +-66.575511 82.968750 +-67.203329 84.375000 +-67.500000 84.721260 +-68.222031 85.781250 +-67.500000 86.017774 +-66.093750 86.221835 +-64.687500 86.214301 +-63.281250 85.816897 +-63.165957 85.781250 +-61.875000 85.079852 +-60.468750 85.132866 +-59.062500 85.729851 +-58.978335 85.781250 +-57.656250 86.005804 +-56.250000 86.147823 +-54.843750 86.168213 +-53.437500 86.259770 +-52.031250 86.190003 +-50.625000 85.907020 +-49.866881 85.781250 +-49.218750 85.151831 +-47.812500 84.707287 +-46.406250 84.415871 +-45.000000 84.431776 +-43.593750 84.743280 +-42.187500 84.787531 +-40.781250 84.728162 +-39.439808 85.781250 +-39.968084 87.187500 +-39.375000 87.288937 +-37.968750 87.273161 +-37.425492 87.187500 +-36.562500 86.581856 +-35.208296 85.781250 +-35.156250 85.727911 +-33.750000 85.210167 +-32.343750 84.542997 +-31.307172 84.375000 +-30.937500 84.307950 +-30.833194 84.375000 +-29.531250 85.550610 +-28.125000 85.480069 +-26.718750 84.906132 +-25.312500 84.807358 +-23.906250 85.072795 +-22.500000 84.935019 +-21.299486 84.375000 +-21.093750 84.261998 +-20.199033 84.375000 +-19.687500 84.410860 +-18.281250 84.582142 +-16.875000 84.453558 +-16.723787 84.375000 +-15.468750 83.644247 +-14.062500 83.057626 +-12.656250 83.312407 +-11.250000 83.917734 +-9.843750 84.129933 +-8.437500 84.205708 +-8.034574 82.968750 +-7.031250 82.331391 +-5.625000 82.101104 +-4.218750 82.219377 +-2.812500 82.698072 +-1.796308 82.968750 +-1.406250 83.161537 +-0.274640 82.968750 +0.000000 82.921535 +1.406250 82.595261 +2.812500 82.171758 +4.218750 81.975234 +5.625000 81.981445 +7.031250 82.265549 +8.437500 82.866703 +9.843750 82.892866 +11.250000 82.263664 +12.656250 81.775895 +12.984646 81.562500 +14.062500 80.308941 +15.406157 81.562500 +15.468750 81.589081 +16.875000 82.259799 +18.281250 82.273679 +19.687500 82.358055 +21.093750 82.397413 +22.500000 82.131268 +23.906250 82.720307 +24.376129 82.968750 +25.312500 83.246126 +26.718750 83.280067 +27.575762 82.968750 +26.981371 81.562500 +26.718750 80.637623 +26.636482 80.156250 +26.718750 80.065128 +28.125000 79.789475 +28.453564 80.156250 +28.941256 81.562500 +29.531250 82.631850 +29.802671 82.968750 +29.531250 83.655121 +28.675414 84.375000 +29.531250 84.440940 +30.060393 84.375000 +30.937500 83.961999 +32.343750 83.631328 +33.750000 83.237193 +35.156250 83.399554 +36.562500 83.939093 +37.621762 84.375000 +37.968750 84.442853 +39.162667 84.375000 +39.375000 84.239385 +39.547478 84.375000 +40.781250 84.497105 +42.187500 84.714748 +43.593750 84.603911 +45.000000 84.429181 +45.129656 84.375000 +46.406250 83.126346 +46.548131 82.968750 +47.812500 82.271276 +49.218750 81.825168 +50.625000 82.175905 +52.031250 82.652189 +53.437500 82.646626 +54.843750 82.497849 +56.250000 82.257932 +57.656250 82.017932 +59.062500 82.134070 +60.468750 82.462655 +61.875000 82.472129 +63.174746 81.562500 +63.281250 81.483374 +64.687500 81.134980 +66.093750 80.870625 +67.500000 80.760289 +68.906250 80.602504 +70.312500 80.763492 +71.718750 81.556115 +73.125000 80.847501 +74.531250 81.100705 +75.937500 81.379472 +76.657157 81.562500 +77.343750 81.793424 +78.750000 82.204231 +80.156250 81.981543 +81.230473 81.562500 +81.562500 81.478496 +82.968750 81.399680 +84.375000 81.066462 +85.668816 80.156250 +85.781250 80.077919 +87.187500 79.550656 +88.593750 79.211353 +90.000000 78.915115 +91.406250 79.076605 +92.812500 79.091939 +93.722103 78.750000 +94.218750 78.527806 +95.625000 78.477636 +97.031250 78.734451 +98.437500 78.585769 +99.843750 78.309156 +101.250000 78.265551 +102.623196 78.750000 +102.656250 78.763553 +104.062500 79.228852 +105.468750 79.396508 +106.875000 79.956133 +107.105861 80.156250 +107.068586 81.562500 +106.875000 81.644842 +105.468750 81.873091 +104.466187 81.562500 +104.062500 81.450819 +102.656250 80.957244 +101.250000 80.868700 +99.843750 80.911790 +98.437500 80.693136 +97.031250 80.608260 +95.625000 80.749515 +94.218750 80.662402 +92.812500 80.509900 +91.406250 80.583252 +90.000000 80.924032 +88.691207 81.562500 +88.593750 81.612815 +87.187500 82.290968 +86.113518 82.968750 +86.984588 84.375000 +87.187500 84.497740 +88.593750 84.446881 +88.853143 84.375000 +90.000000 84.170561 +91.406250 83.890758 +92.812500 83.487185 +94.218750 83.785181 +95.625000 84.134001 +96.777434 82.968750 +97.031250 82.686870 +98.437500 82.116269 +99.843750 82.039881 +101.250000 82.263686 +102.266295 82.968750 +102.656250 83.165679 +104.062500 83.526728 +105.468750 83.544477 +106.875000 83.595541 +108.281250 83.486184 +109.687500 83.469270 +111.093750 83.385247 +112.500000 83.165114 +113.906250 83.057511 +115.312500 83.057543 +116.718750 83.119189 +118.125000 83.032425 +118.491295 82.968750 +119.531250 82.584230 +120.029765 81.562500 +119.883099 80.156250 +120.937500 79.462285 +122.343750 79.217306 +123.376078 78.750000 +123.336658 77.343750 +123.750000 76.829966 +125.156250 77.151449 +125.516637 77.343750 +125.948218 78.750000 +125.630790 80.156250 +126.562500 81.198575 +126.894923 81.562500 +126.562500 82.439904 +126.384780 82.968750 +125.156250 84.291951 +123.750000 84.307550 +122.343750 83.764588 +121.557235 84.375000 +122.343750 84.679052 +123.750000 84.430933 +125.156250 84.446459 +126.562500 84.544300 +127.129275 84.375000 +127.968750 83.997113 +129.375000 83.113513 +130.260738 84.375000 +130.781250 84.531482 +132.187500 84.825196 +133.593750 84.832421 +135.000000 84.788159 +136.406250 84.962298 +137.812500 85.106347 +139.218750 84.827573 +140.625000 84.650320 +142.031250 84.626786 +143.437500 84.693429 +144.843750 84.470226 +145.057960 84.375000 +144.843750 83.672571 +143.471007 82.968750 +144.843750 82.753481 +146.250000 81.685266 +146.475339 81.562500 +147.656250 81.341890 +149.062500 81.072856 +150.468750 80.851208 +151.875000 81.252111 +152.546998 81.562500 +153.281250 81.972479 +154.687500 82.293691 +155.543021 82.968750 +156.093750 83.137792 +157.500000 83.228753 +158.906250 83.264549 +159.694078 82.968750 +160.312500 82.173006 +161.718750 81.715821 +163.125000 81.867286 +164.531250 82.423505 +165.224551 82.968750 +165.937500 83.774311 +167.343750 83.765619 +168.750000 83.627099 +170.156250 83.537290 +171.562500 83.452229 +172.968750 83.356621 +174.375000 83.142664 +175.153761 82.968750 +174.375000 81.755008 +174.222593 81.562500 +172.968750 80.994214 +171.562500 80.724294 +170.156250 80.436898 +169.025561 80.156250 +170.156250 79.987733 +171.562500 79.823459 +172.968750 79.682404 +174.375000 79.505692 +175.781250 79.340260 +177.187500 79.232312 +178.593750 79.125884 +180.000000 79.091193 +68 +-178.593750 85.296338 +-177.187500 85.194078 +-175.781250 85.126861 +-174.375000 85.287602 +-172.968750 85.508861 +-171.562500 85.482217 +-170.156250 85.098093 +-168.750000 84.714939 +-167.343750 84.676974 +-165.937500 84.744987 +-164.531250 85.108848 +-163.125000 85.495369 +-161.718750 85.097650 +-160.430576 84.375000 +-160.312500 84.330094 +-158.906250 84.079333 +-157.500000 84.333698 +-157.146924 84.375000 +-156.093750 84.547155 +-155.382202 84.375000 +-154.687500 84.222921 +-153.281250 84.156326 +-151.875000 84.286279 +-150.468750 84.186661 +-149.062500 84.251362 +-147.656250 84.230369 +-146.250000 84.272474 +-145.740418 84.375000 +-144.843750 84.695129 +-143.437500 84.855622 +-142.031250 84.707344 +-140.625000 84.665922 +-139.218750 84.780402 +-137.812500 85.035476 +-136.406250 85.703972 +-136.300276 85.781250 +-136.406250 86.456004 +-137.812500 86.469623 +-139.218750 86.523211 +-140.625000 86.884892 +-141.784425 87.187500 +-142.031250 87.227916 +-143.437500 87.225965 +-144.843750 87.372298 +-146.250000 87.486972 +-147.656250 87.500131 +-149.062500 87.442410 +-150.468750 87.375957 +-151.875000 87.368879 +-153.281250 87.495942 +-154.687500 87.626514 +-156.093750 87.546390 +-157.500000 87.441162 +-158.906250 87.471060 +-160.312500 87.598191 +-161.718750 87.760465 +-163.125000 87.785574 +-164.531250 87.789330 +-165.937500 87.869772 +-167.343750 87.861235 +-168.750000 87.816643 +-170.156250 87.798615 +-171.562500 87.821654 +-172.968750 87.792901 +-174.375000 87.772386 +-175.781250 87.837514 +-177.187500 87.774178 +-178.593750 87.611677 +10 +180.000000 -83.100088 +178.593750 -83.065759 +177.449383 -82.968750 +177.187500 -82.625937 +175.781250 -81.825432 +175.237330 -81.562500 +175.781250 -80.872040 +177.187500 -80.961763 +178.593750 -81.519152 +180.000000 -81.439042 +317 +180.000000 -77.800430 +179.338198 -78.750000 +178.593750 -79.084745 +177.187500 -79.859767 +175.781250 -79.977043 +174.375000 -79.850704 +173.551983 -80.156250 +172.968750 -80.495768 +171.562500 -81.070946 +170.521173 -81.562500 +171.088442 -82.968750 +170.156250 -83.048051 +169.956400 -82.968750 +169.414985 -81.562500 +168.750000 -81.321826 +167.343750 -80.867546 +165.937500 -81.275925 +165.581981 -81.562500 +164.531250 -81.834998 +163.125000 -82.266839 +161.718750 -82.676955 +160.417155 -82.968750 +160.312500 -82.989159 +158.938560 -84.375000 +159.863621 -85.781250 +160.312500 -86.100575 +161.718750 -86.838034 +162.161151 -87.187500 +161.718750 -87.234999 +160.312500 -87.489362 +158.906250 -87.604124 +157.500000 -87.423854 +156.261739 -87.187500 +156.093750 -87.111811 +154.687500 -86.683513 +153.281250 -85.989091 +152.863133 -85.781250 +151.875000 -84.543935 +151.669829 -84.375000 +151.875000 -84.141938 +153.110406 -82.968750 +153.281250 -82.795630 +154.687500 -82.287067 +156.093750 -81.911086 +157.500000 -82.093592 +158.906250 -82.357527 +159.756252 -81.562500 +160.312500 -80.964681 +161.327902 -80.156250 +160.890152 -78.750000 +160.312500 -78.307231 +159.516732 -78.750000 +158.906250 -78.901974 +157.500000 -79.056835 +157.089234 -78.750000 +156.093750 -77.576099 +154.687500 -77.640519 +153.281250 -78.418748 +151.875000 -78.069238 +150.468750 -78.296237 +149.062500 -78.722072 +148.904225 -78.750000 +147.656250 -79.117327 +146.250000 -79.557836 +144.843750 -80.127431 +144.626314 -80.156250 +143.437500 -80.310323 +142.929665 -80.156250 +142.031250 -79.927148 +140.625000 -79.718503 +139.218750 -79.721713 +137.812500 -79.757929 +136.406250 -79.785111 +135.000000 -79.710410 +133.593750 -79.790429 +132.187500 -79.908362 +130.781250 -79.965891 +129.375000 -80.142944 +129.241929 -80.156250 +127.968750 -80.321374 +126.562500 -80.628708 +125.156250 -80.589222 +124.473612 -80.156250 +123.750000 -79.951147 +122.343750 -79.920240 +120.937500 -79.864964 +119.531250 -79.778764 +118.125000 -79.701475 +116.718750 -79.082996 +116.325407 -78.750000 +115.312500 -77.733284 +114.626451 -77.343750 +115.072086 -75.937500 +115.312500 -75.827156 +116.718750 -75.535984 +118.125000 -74.828278 +118.655523 -74.531250 +119.531250 -74.266015 +120.937500 -73.938040 +122.343750 -73.599867 +123.046724 -74.531250 +123.032749 -75.937500 +123.750000 -76.139933 +124.852685 -75.937500 +125.156250 -75.190588 +125.369816 -74.531250 +125.156250 -74.202413 +123.750000 -73.504896 +123.158357 -73.125000 +123.750000 -73.065775 +125.156250 -72.948099 +126.562500 -72.707721 +127.968750 -72.549543 +129.375000 -72.544008 +130.781250 -72.255859 +131.623718 -71.718750 +132.187500 -71.507223 +133.593750 -71.328464 +135.000000 -71.580855 +135.855211 -71.718750 +136.406250 -72.174785 +137.812500 -71.798412 +139.218750 -71.777823 +140.625000 -71.890210 +142.031250 -72.002788 +143.437500 -72.431833 +144.824388 -73.125000 +144.843750 -73.139299 +146.250000 -73.676844 +147.656250 -73.632805 +149.062500 -73.571050 +150.080169 -73.125000 +149.764239 -71.718750 +149.062500 -70.977637 +147.656250 -70.819054 +146.250000 -70.397994 +146.022525 -70.312500 +144.843750 -69.923212 +143.437500 -69.937042 +142.031250 -70.017866 +140.625000 -69.791925 +139.218750 -69.235266 +138.604356 -68.906250 +137.812500 -68.496091 +136.406250 -67.948142 +135.000000 -67.525501 +133.593750 -68.201138 +132.925789 -68.906250 +132.187500 -69.379830 +130.781250 -69.622101 +129.375000 -69.670227 +127.968750 -69.584262 +126.562500 -69.310685 +125.156250 -69.210369 +123.750000 -69.306834 +122.343750 -69.381294 +120.937500 -69.425308 +119.531250 -69.483780 +118.172263 -70.312500 +118.125000 -70.327799 +116.718750 -70.613012 +115.312500 -70.805294 +114.557497 -70.312500 +115.312500 -69.947402 +116.718750 -69.223549 +117.085401 -68.906250 +116.718750 -68.793150 +115.312500 -67.863339 +113.906250 -67.842379 +112.561648 -68.906250 +112.500000 -68.947424 +111.093750 -69.158473 +109.687500 -68.992719 +109.466601 -68.906250 +108.281250 -67.950431 +106.875000 -68.083300 +105.468750 -68.270549 +104.062500 -67.882574 +102.656250 -67.595226 +102.357483 -67.500000 +102.656250 -67.232574 +104.062500 -67.009536 +105.468750 -66.442975 +106.085934 -66.093750 +106.875000 -65.704137 +108.281250 -65.495987 +109.687500 -64.859702 +111.093750 -64.955393 +112.499948 -66.093750 +112.500000 -66.093784 +113.906250 -66.512865 +114.252874 -66.093750 +115.312500 -65.679427 +116.718750 -64.973863 +118.034871 -64.687500 +118.125000 -64.575663 +119.399843 -63.281250 +118.125000 -62.796978 +116.718750 -62.377302 +116.408640 -61.875000 +115.312500 -61.234656 +113.906250 -61.350651 +112.500000 -60.805616 +112.286718 -60.468750 +112.500000 -60.303939 +113.906250 -59.224582 +114.122315 -59.062500 +115.312500 -58.450930 +116.388673 -57.656250 +116.718750 -57.345483 +117.380456 -56.250000 +117.799123 -54.843750 +118.125000 -54.610016 +119.531250 -54.280994 +120.937500 -54.026615 +122.343750 -54.534431 +122.622121 -54.843750 +123.750000 -55.881520 +125.156250 -55.897938 +126.562500 -55.903096 +127.028733 -56.250000 +127.968750 -56.713012 +129.104486 -57.656250 +129.375000 -58.516543 +129.659217 -59.062500 +129.771338 -60.468750 +130.761465 -61.875000 +130.781250 -62.080332 +130.852815 -61.875000 +132.187500 -61.789879 +133.593750 -61.369864 +135.000000 -60.964542 +136.406250 -60.804611 +137.812500 -60.761533 +139.218750 -60.511724 +139.284496 -60.468750 +140.625000 -59.896806 +141.639917 -59.062500 +142.031250 -58.714462 +143.437500 -58.297682 +144.518372 -57.656250 +144.843750 -57.391675 +145.711346 -56.250000 +146.250000 -55.749614 +147.656250 -56.214867 +147.684759 -56.250000 +147.656250 -56.759543 +147.580561 -57.656250 +146.250000 -58.447717 +145.249860 -59.062500 +144.843750 -59.503912 +144.251283 -60.468750 +143.437500 -61.092583 +142.031250 -61.671372 +141.564670 -61.875000 +140.625000 -62.215507 +139.218750 -62.657873 +138.028342 -63.281250 +137.812500 -63.370359 +136.406250 -63.803651 +135.000000 -63.984341 +133.593750 -64.076652 +132.187500 -63.896873 +130.781250 -63.376216 +130.239640 -64.687500 +130.781250 -64.942315 +132.187500 -65.891713 +132.476870 -66.093750 +133.593750 -66.624002 +135.000000 -67.408014 +136.141575 -66.093750 +136.406250 -65.989130 +137.812500 -65.891131 +139.218750 -65.997865 +140.625000 -65.673126 +142.031250 -65.271158 +143.437500 -65.271556 +144.843750 -65.695484 +145.412350 -66.093750 +146.250000 -66.877628 +147.656250 -67.120413 +149.062500 -67.453448 +149.140897 -67.500000 +150.468750 -68.884260 +150.540915 -68.906250 +151.875000 -69.207029 +153.054712 -68.906250 +153.281250 -68.847166 +154.687500 -68.515149 +156.093750 -68.270558 +157.500000 -67.641058 +157.813821 -67.500000 +158.906250 -66.936711 +160.293885 -66.093750 +160.312500 -66.085954 +161.718750 -66.056091 +161.866497 -66.093750 +163.125000 -66.604278 +164.225483 -67.500000 +164.531250 -67.985336 +165.937500 -68.607891 +167.244352 -68.906250 +167.343750 -68.934276 +168.750000 -69.602597 +169.620400 -70.312500 +170.156250 -70.901988 +170.828364 -71.718750 +171.562500 -72.574838 +172.968750 -72.838055 +174.375000 -72.650456 +175.323441 -73.125000 +175.781250 -73.406944 +177.165471 -73.125000 +177.187500 -73.121477 +178.593750 -72.950471 +179.624034 -73.125000 +180.000000 -73.233808 +3 +180.000000 -69.415129 +178.629710 -68.906250 +180.000000 -68.643290 +170 +180.000000 50.641887 +179.878185 50.625000 +178.593750 50.312672 +178.131594 50.625000 +177.187500 51.128593 +175.781250 51.469122 +174.375000 51.153376 +172.968750 51.047568 +172.250018 50.625000 +171.562500 50.245626 +170.877232 49.218750 +170.190226 47.812500 +170.156250 47.209145 +170.068962 46.406250 +169.616797 45.000000 +169.367513 43.593750 +170.156250 42.359650 +171.562500 42.598285 +172.843045 42.187500 +172.968750 41.443651 +173.088449 40.781250 +173.334682 39.375000 +173.635829 37.968750 +174.375000 37.473728 +174.953203 36.562500 +174.601489 35.156250 +174.375000 35.015917 +174.121023 35.156250 +173.036286 36.562500 +172.968750 36.693703 +171.562500 37.026714 +171.110143 36.562500 +170.156250 36.274171 +168.750000 36.312520 +168.469132 36.562500 +167.343750 37.745630 +167.064075 37.968750 +165.937500 39.373768 +165.934997 39.375000 +164.531250 40.583934 +163.997146 40.781250 +163.125000 41.106493 +162.446508 40.781250 +161.718750 40.332430 +160.499258 40.781250 +160.312500 40.834760 +158.906250 41.126096 +157.500000 40.987721 +156.093750 40.866394 +154.687500 41.321807 +153.444507 42.187500 +153.281250 42.321581 +151.875000 42.535481 +150.468750 42.572522 +149.062500 43.561799 +149.025011 43.593750 +147.680910 45.000000 +147.656250 45.026397 +146.250000 45.101772 +144.843750 45.626543 +143.635283 46.406250 +143.437500 46.559391 +142.031250 47.269982 +140.719044 47.812500 +140.625000 47.907744 +139.218750 48.102734 +137.812500 48.398070 +137.169523 49.218750 +137.121799 50.625000 +137.812500 51.214680 +138.841406 52.031250 +139.218750 52.565651 +139.993007 53.437500 +139.284711 54.843750 +139.218750 54.866850 +137.812500 55.192986 +136.406250 55.417738 +135.397330 54.843750 +135.000000 54.584354 +134.041919 53.437500 +133.632198 52.031250 +133.593750 52.010221 +132.187500 51.898565 +131.603667 52.031250 +130.781250 52.309083 +129.375000 52.949461 +128.656553 53.437500 +127.968750 53.804085 +126.562500 53.936453 +125.501883 53.437500 +125.156250 53.288588 +124.739935 53.437500 +124.473843 54.843750 +125.156250 55.363494 +126.562500 56.052607 +127.336292 56.250000 +127.968750 56.455304 +129.375000 57.499584 +129.522799 57.656250 +130.549047 59.062500 +130.781250 59.310376 +132.187500 60.450123 +132.265498 60.468750 +133.593750 61.586165 +133.782726 61.875000 +135.000000 62.539294 +135.860650 63.281250 +136.406250 63.500069 +137.812500 64.004030 +139.218750 64.035193 +140.117276 63.281250 +140.029215 61.875000 +139.218750 60.851006 +138.338847 60.468750 +139.218750 60.068120 +140.625000 59.545742 +141.734892 59.062500 +142.031250 58.420213 +143.437500 58.633324 +143.835825 57.656250 +144.843750 56.826047 +146.250000 56.782205 +147.656250 57.464941 +147.949880 57.656250 +149.062500 58.991440 +149.162213 59.062500 +150.468750 59.641216 +151.875000 59.587276 +153.281250 60.404705 +153.317687 60.468750 +153.753017 61.875000 +154.687500 62.552746 +155.743355 61.875000 +156.093750 61.285963 +156.918492 60.468750 +157.500000 60.128736 +158.906250 60.057622 +160.312500 59.708821 +161.718750 59.277119 +163.125000 59.304455 +164.531250 60.399829 +164.561540 60.468750 +164.531250 60.479520 +163.125000 60.994059 +161.718750 61.528300 +161.034767 61.875000 +161.718750 62.343392 +162.944669 63.281250 +163.125000 63.321466 +164.531250 63.663969 +165.937500 64.270390 +167.217708 64.687500 +167.343750 64.851861 +168.750000 64.864506 +168.933823 64.687500 +169.691862 63.281250 +169.798667 61.875000 +170.156250 60.642878 +171.562500 60.742072 +172.151048 60.468750 +172.899874 59.062500 +172.968750 59.037773 +174.056748 57.656250 +174.375000 57.209091 +175.781250 57.406958 +176.251867 57.656250 +177.187500 58.431782 +178.294491 59.062500 +178.593750 59.391728 +180.000000 59.923654 +11 +180.000000 72.989268 +179.480379 73.125000 +178.593750 73.297022 +177.187500 73.521691 +175.781250 73.331039 +175.075672 74.531250 +174.441622 75.937500 +175.781250 76.455504 +177.187500 76.565678 +178.593750 76.686122 +180.000000 77.019162 +3 +180.000000 82.886765 +179.769414 82.968750 +180.000000 82.998127 +10 +180.000000 85.557287 +178.593750 85.590039 +177.187500 85.598879 +176.159573 85.781250 +175.781250 86.098358 +174.500669 87.187500 +175.781250 87.377037 +177.187500 87.586936 +178.593750 87.650397 +180.000000 87.614138 +5 +-177.187500 -70.724070 +-176.556109 -70.312500 +-177.187500 -70.061332 +-177.837362 -70.312500 +-177.187500 -70.724070 +27 +-175.781250 -4.185797 +-176.290990 -2.812500 +-175.947810 -1.406250 +-175.781250 -0.918255 +-174.375000 -0.672778 +-172.968750 -0.730001 +-172.567509 0.000000 +-171.914555 1.406250 +-171.562500 1.764109 +-170.664610 1.406250 +-170.156250 1.300477 +-168.750000 0.726672 +-167.980458 0.000000 +-167.343750 -1.074586 +-167.168019 -1.406250 +-167.343750 -1.937090 +-167.787847 -2.812500 +-168.750000 -3.689457 +-169.295526 -4.218750 +-170.156250 -5.126315 +-170.849914 -5.625000 +-171.562500 -5.919067 +-172.333833 -5.625000 +-172.968750 -5.386705 +-174.375000 -4.491744 +-175.725395 -4.218750 +-175.781250 -4.185797 +7 +-172.968750 69.978253 +-173.137167 70.312500 +-172.968750 70.340810 +-171.562500 70.508305 +-171.043297 70.312500 +-171.562500 69.990032 +-172.968750 69.978253 +5 +174.375000 72.993497 +173.900543 73.125000 +174.375000 73.250453 +174.883606 73.125000 +174.375000 72.993497 +15 +172.968750 71.362831 +171.562500 70.931449 +170.156250 70.870847 +168.750000 70.805740 +167.343750 70.595856 +165.937500 70.893645 +165.597688 71.718750 +165.937500 71.842725 +167.343750 72.052051 +168.750000 72.123490 +170.156250 72.388304 +171.562500 72.765918 +172.968750 72.762253 +173.486548 71.718750 +172.968750 71.362831 +9 +172.968750 75.337670 +171.562500 75.213013 +170.156250 75.851505 +169.922582 75.937500 +170.156250 76.009230 +171.562500 76.427795 +172.968750 76.436637 +174.344073 75.937500 +172.968750 75.337670 +9 +-170.156250 -71.369085 +-169.077367 -71.718750 +-168.750000 -71.765966 +-168.719111 -71.718750 +-167.873141 -70.312500 +-168.750000 -69.863644 +-170.156250 -70.217623 +-170.367427 -70.312500 +-170.156250 -71.369085 +7 +-170.156250 4.153276 +-170.171856 4.218750 +-170.156250 4.232262 +-168.750000 4.313428 +-168.596199 4.218750 +-168.750000 3.532607 +-170.156250 4.153276 +7 +-170.156250 26.246667 +-171.060265 26.718750 +-170.156250 27.698371 +-168.750000 27.146318 +-167.950217 26.718750 +-168.750000 26.398220 +-170.156250 26.246667 +15 +-170.156250 58.828053 +-170.795052 59.062500 +-171.421107 60.468750 +-170.156250 60.750145 +-168.750000 61.219535 +-167.343750 61.476800 +-165.937500 61.496256 +-164.699038 60.468750 +-165.937500 59.293082 +-166.266796 59.062500 +-167.343750 58.463647 +-168.549912 57.656250 +-168.750000 57.314529 +-168.989091 57.656250 +-170.156250 58.828053 +9 +171.562500 40.651566 +171.721328 40.781250 +171.562500 40.796730 +170.156250 40.874746 +168.750000 41.988087 +167.911210 40.781250 +168.750000 40.499947 +170.156250 40.759695 +171.562500 40.651566 +11 +170.156250 59.028594 +170.266152 59.062500 +170.156250 59.618279 +168.750000 59.792205 +167.343750 59.501334 +165.937500 59.098906 +165.855128 59.062500 +165.937500 59.046009 +167.343750 58.614741 +168.750000 58.698761 +170.156250 59.028594 +5 +-167.343750 74.468518 +-167.493484 74.531250 +-167.343750 74.585522 +-167.305156 74.531250 +-167.343750 74.468518 +5 +-165.937500 49.177511 +-165.958594 49.218750 +-165.937500 49.263762 +-165.824752 49.218750 +-165.937500 49.177511 +33 +167.343750 52.807305 +167.796246 53.437500 +167.343750 54.821807 +167.338815 54.843750 +165.937500 55.689073 +164.531250 55.852851 +163.125000 55.589236 +161.718750 55.565869 +160.458207 54.843750 +160.312500 54.721531 +159.045641 53.437500 +158.906250 53.164975 +158.064891 52.031250 +157.500000 51.543989 +156.753851 50.625000 +156.293244 49.218750 +156.998902 47.812500 +157.500000 46.550549 +157.594164 46.406250 +158.906250 45.766514 +160.312500 46.331667 +160.361737 46.406250 +160.764362 47.812500 +161.718750 49.053224 +161.901084 49.218750 +162.111226 50.625000 +161.718750 51.172398 +161.370405 52.031250 +161.718750 52.273311 +163.125000 52.782049 +164.531250 52.516285 +165.937500 52.224011 +167.343750 52.807305 +5 +167.343750 67.408615 +167.106503 67.500000 +167.343750 67.564576 +167.704555 67.500000 +167.343750 67.408615 +13 +-164.531250 0.360609 +-165.036916 1.406250 +-165.285094 2.812500 +-165.196024 4.218750 +-164.600424 5.625000 +-164.531250 5.755919 +-163.125000 6.527719 +-162.605604 5.625000 +-162.447032 4.218750 +-163.125000 2.819157 +-163.133524 2.812500 +-164.067544 1.406250 +-164.531250 0.360609 +5 +-164.531250 55.481206 +-165.176020 56.250000 +-164.531250 56.658112 +-163.706255 56.250000 +-164.531250 55.481206 +31 +-163.125000 61.434107 +-164.462844 61.875000 +-164.319762 63.281250 +-163.125000 63.598575 +-161.718750 63.781564 +-160.312500 63.893349 +-158.906250 64.343913 +-158.411557 64.687500 +-157.500000 65.201878 +-156.544741 66.093750 +-156.686005 67.500000 +-156.093750 68.027935 +-154.687500 68.593667 +-153.302987 68.906250 +-153.281250 68.910572 +-153.264045 68.906250 +-151.907249 67.500000 +-151.875000 67.422113 +-150.665575 66.093750 +-151.636924 64.687500 +-151.875000 64.643274 +-153.281250 64.383037 +-154.687500 64.481306 +-156.093750 64.324701 +-157.002034 63.281250 +-157.500000 62.886670 +-158.906250 62.230080 +-159.586681 61.875000 +-160.312500 60.942639 +-161.718750 61.145552 +-163.125000 61.434107 +7 +164.531250 -86.386359 +165.522516 -85.781250 +164.531250 -85.583778 +163.125000 -85.680102 +162.635716 -85.781250 +163.125000 -86.379598 +164.531250 -86.386359 +7 +164.531250 67.050832 +163.125000 66.420502 +162.357093 67.500000 +163.125000 67.968675 +164.531250 68.574400 +165.574447 67.500000 +164.531250 67.050832 +13 +-160.312500 -4.233888 +-160.321658 -4.218750 +-160.312500 -4.156171 +-160.114333 -2.812500 +-158.906250 -2.283830 +-157.500000 -2.536687 +-157.247882 -2.812500 +-157.074911 -4.218750 +-157.437684 -5.625000 +-157.500000 -5.816869 +-158.906250 -6.053979 +-159.423176 -5.625000 +-160.312500 -4.233888 +69 +-158.906250 6.969594 +-159.009628 7.031250 +-159.384268 8.437500 +-158.906250 9.393038 +-157.500000 9.500674 +-156.787946 9.843750 +-156.543789 11.250000 +-156.093750 12.423677 +-154.687500 12.575201 +-154.622559 12.656250 +-154.634222 14.062500 +-154.687500 14.226861 +-155.341944 14.062500 +-156.093750 13.448515 +-156.243960 14.062500 +-157.241409 15.468750 +-156.909156 16.875000 +-156.093750 17.891817 +-155.414137 18.281250 +-154.687500 18.441902 +-154.022848 18.281250 +-153.281250 17.985846 +-151.875000 17.837948 +-150.468750 18.056136 +-149.610551 18.281250 +-149.062500 18.519018 +-147.656250 18.655927 +-146.250000 19.256858 +-145.946936 19.687500 +-144.843750 20.283747 +-143.437500 19.988902 +-143.297930 19.687500 +-143.437500 19.434330 +-144.339211 18.281250 +-144.843750 17.781611 +-146.250000 17.490964 +-146.600563 16.875000 +-146.250000 15.962005 +-144.843750 15.601832 +-144.652277 15.468750 +-143.437500 15.057093 +-142.031250 14.652923 +-141.289004 14.062500 +-140.625000 12.902439 +-140.586060 12.656250 +-140.076089 11.250000 +-140.625000 10.339131 +-141.646530 9.843750 +-142.031250 9.698331 +-143.437500 9.493314 +-144.843750 9.297748 +-146.250000 9.398202 +-146.555992 9.843750 +-146.904779 11.250000 +-147.363086 12.656250 +-147.656250 13.196425 +-149.062500 12.680189 +-149.082298 12.656250 +-150.397483 11.250000 +-150.468750 10.864180 +-151.875000 10.508968 +-153.171607 9.843750 +-153.281250 9.773936 +-154.687500 9.184324 +-156.093750 9.431895 +-156.700801 8.437500 +-156.623922 7.031250 +-157.500000 6.587030 +-158.906250 6.969594 +23 +160.312500 24.837475 +160.683906 25.312500 +160.675083 26.718750 +160.312500 27.248754 +159.792848 28.125000 +159.570960 29.531250 +159.323290 30.937500 +158.906250 32.162382 +157.500000 32.286342 +156.936424 32.343750 +156.093750 32.675843 +155.592388 32.343750 +154.764276 30.937500 +155.187278 29.531250 +155.634098 28.125000 +155.838618 26.718750 +155.517750 25.312500 +155.573593 23.906250 +156.093750 23.389260 +157.500000 23.299662 +158.906250 23.691889 +159.083110 23.906250 +160.312500 24.837475 +9 +160.312500 67.360055 +158.906250 67.249853 +158.652518 67.500000 +158.865661 68.906250 +158.906250 68.945146 +160.312500 69.126588 +160.674689 68.906250 +160.650431 67.500000 +160.312500 67.360055 +5 +158.906250 79.961702 +157.730902 80.156250 +158.906250 80.544634 +159.259668 80.156250 +158.906250 79.961702 +9 +157.500000 -32.555702 +157.631873 -32.343750 +157.917494 -30.937500 +157.500000 -30.060722 +156.093750 -30.469038 +155.972303 -30.937500 +156.093750 -31.310210 +157.160895 -32.343750 +157.500000 -32.555702 +33 +-154.687500 4.134429 +-154.709982 4.218750 +-154.687500 4.250225 +-153.281250 5.052005 +-152.402878 5.625000 +-151.875000 6.500158 +-151.624817 7.031250 +-151.003494 8.437500 +-150.468750 9.462677 +-149.062500 8.976497 +-147.929741 8.437500 +-147.656250 8.246465 +-146.878975 7.031250 +-146.478437 5.625000 +-146.250000 4.927228 +-145.830927 4.218750 +-145.604128 2.812500 +-145.692519 1.406250 +-146.171860 0.000000 +-146.250000 -0.080024 +-147.650802 -1.406250 +-147.618174 -2.812500 +-147.656250 -3.415624 +-148.206857 -2.812500 +-147.665286 -1.406250 +-148.033838 0.000000 +-149.062500 0.947391 +-150.019252 1.406250 +-150.468750 1.519711 +-151.875000 2.009817 +-153.281250 2.508784 +-154.001973 2.812500 +-154.687500 4.134429 +5 +-154.687500 74.287374 +-155.408206 74.531250 +-154.687500 74.899435 +-154.145037 74.531250 +-154.687500 74.287374 +13 +153.281250 14.673318 +154.157510 15.468750 +153.631241 16.875000 +153.281250 17.071933 +151.875000 17.536866 +150.468750 17.190356 +149.806543 16.875000 +149.515700 15.468750 +150.025639 14.062500 +150.468750 13.204872 +151.875000 13.060795 +152.823067 14.062500 +153.281250 14.673318 +5 +-150.468750 -8.511414 +-150.575316 -8.437500 +-150.468750 -8.288280 +-150.156950 -8.437500 +-150.468750 -8.511414 +7 +151.875000 -42.279095 +152.009052 -42.187500 +151.955866 -40.781250 +151.875000 -40.660807 +151.696015 -40.781250 +151.764615 -42.187500 +151.875000 -42.279095 +7 +151.875000 -26.776576 +151.925737 -26.718750 +151.891857 -25.312500 +151.875000 -25.257020 +151.834491 -25.312500 +151.706659 -26.718750 +151.875000 -26.776576 +15 +151.875000 -19.863893 +151.940681 -19.687500 +151.984200 -18.281250 +151.875000 -18.097815 +150.468750 -17.100850 +149.600674 -18.281250 +149.062500 -19.295644 +148.841408 -19.687500 +148.532408 -21.093750 +148.494002 -22.500000 +149.062500 -23.138208 +150.468750 -23.518462 +151.150898 -22.500000 +151.438479 -21.093750 +151.875000 -19.863893 +19 +151.875000 71.832264 +150.661374 71.718750 +150.468750 71.702499 +149.062500 71.218632 +147.656250 70.951896 +146.250000 71.100803 +144.843750 71.433258 +144.232561 71.718750 +144.409225 73.125000 +144.843750 73.425547 +146.250000 73.820230 +147.656250 73.961749 +149.062500 74.049821 +150.357944 74.531250 +150.468750 74.595973 +151.875000 74.953325 +153.205162 74.531250 +153.138389 73.125000 +151.875000 71.832264 +9 +149.062500 18.464869 +149.757339 19.687500 +149.062500 19.937414 +147.809672 19.687500 +147.656250 19.498447 +147.228360 18.281250 +147.656250 17.806907 +148.837497 18.281250 +149.062500 18.464869 +21 +147.656250 -42.351370 +148.036538 -42.187500 +147.656250 -41.652457 +146.924643 -40.781250 +146.250000 -40.639470 +145.414124 -40.781250 +144.843750 -40.879326 +143.437500 -41.210545 +142.031250 -41.439677 +140.836359 -42.187500 +140.625000 -42.537401 +140.246929 -43.593750 +140.625000 -44.586004 +140.890293 -45.000000 +142.031250 -45.602775 +143.437500 -46.038257 +144.843750 -45.809601 +145.970659 -45.000000 +146.250000 -44.529644 +146.833282 -43.593750 +147.656250 -42.351370 +5 +147.656250 34.933499 +146.804324 35.156250 +147.656250 35.320998 +148.671801 35.156250 +147.656250 34.933499 +11 +146.250000 -30.958365 +146.288015 -30.937500 +146.935844 -29.531250 +146.250000 -28.884073 +144.843750 -28.483211 +143.437500 -29.390040 +143.238292 -29.531250 +142.948592 -30.937500 +143.437500 -31.185540 +144.843750 -31.454856 +146.250000 -30.958365 +7 +146.250000 59.968111 +144.843750 59.746360 +144.529411 60.468750 +144.843750 60.776216 +146.250000 61.076016 +147.094388 60.468750 +146.250000 59.968111 +5 +-143.437500 77.337729 +-143.450190 77.343750 +-143.437500 77.364143 +-143.426778 77.343750 +-143.437500 77.337729 +51 +144.843750 -86.474902 +145.685315 -85.781250 +144.843750 -84.693479 +144.564674 -84.375000 +143.437500 -83.282728 +142.031250 -83.161359 +140.625000 -83.391516 +139.218750 -83.540000 +137.812500 -83.330898 +136.406250 -83.396805 +135.000000 -83.785715 +134.569670 -84.375000 +133.593750 -84.699798 +132.187500 -84.782136 +130.934321 -84.375000 +132.186473 -82.968750 +130.781250 -82.635980 +129.375000 -82.526063 +127.968750 -82.569042 +126.562500 -82.444939 +125.156250 -82.289200 +123.750000 -82.746117 +123.485473 -82.968750 +123.750000 -83.047470 +125.156250 -83.563428 +126.562500 -84.336229 +126.621263 -84.375000 +126.562500 -84.397852 +125.156250 -85.008358 +123.750000 -85.452581 +122.343750 -85.616552 +120.937500 -85.668057 +119.896164 -85.781250 +120.937500 -86.272238 +122.343750 -86.507317 +123.750000 -86.479970 +125.156250 -86.464265 +126.562500 -86.284496 +127.968750 -86.181200 +129.375000 -86.368542 +130.781250 -86.702370 +132.187500 -87.037166 +133.593750 -87.113207 +135.000000 -87.043269 +136.406250 -87.018887 +137.812500 -86.906130 +139.218750 -86.467785 +140.625000 -86.272949 +142.031250 -86.426778 +143.437500 -86.696689 +144.843750 -86.474902 +23 +144.843750 -75.958386 +143.841525 -77.343750 +143.437500 -77.492833 +142.031250 -77.355548 +141.990501 -77.343750 +140.625000 -76.138685 +139.218750 -76.359075 +137.812500 -76.043540 +137.594130 -75.937500 +136.406250 -74.845668 +135.000000 -74.683026 +134.569200 -74.531250 +135.000000 -73.426535 +136.406250 -73.908939 +137.812500 -74.288543 +139.218750 -74.478615 +139.424323 -74.531250 +140.625000 -75.605024 +142.031250 -75.466849 +143.437500 -75.208415 +144.843750 -75.919419 +144.854655 -75.937500 +144.843750 -75.958386 +7 +144.843750 -18.551187 +144.995950 -18.281250 +144.881931 -16.875000 +144.843750 -16.827952 +144.739949 -16.875000 +144.449223 -18.281250 +144.843750 -18.551187 +13 +144.843750 36.477521 +143.437500 35.739184 +142.031250 35.760739 +140.625000 36.182811 +139.940527 36.562500 +140.625000 37.282421 +141.145330 37.968750 +142.031250 38.480523 +143.437500 38.730213 +144.794391 37.968750 +144.843750 37.235308 +144.896766 36.562500 +144.843750 36.477521 +7 +-142.031250 -31.561164 +-140.625000 -31.330655 +-140.332281 -30.937500 +-140.625000 -30.549603 +-142.031250 -30.056918 +-142.450419 -30.937500 +-142.031250 -31.561164 +9 +-140.625000 -3.635454 +-140.766988 -2.812500 +-140.625000 -2.323398 +-139.218750 -2.536007 +-138.699393 -2.812500 +-138.985489 -4.218750 +-139.218750 -4.454438 +-140.215655 -4.218750 +-140.625000 -3.635454 +7 +-140.625000 15.117256 +-140.874558 15.468750 +-140.625000 15.680044 +-139.218750 16.168768 +-138.344300 15.468750 +-139.218750 15.231294 +-140.625000 15.117256 +15 +142.031250 82.355564 +140.625000 82.049687 +139.218750 81.745349 +139.025861 81.562500 +137.812500 81.181662 +136.406250 81.291932 +136.141025 81.562500 +136.406250 82.395811 +136.705337 82.968750 +137.812500 83.502043 +139.218750 83.801970 +140.625000 83.900423 +142.031250 83.700263 +143.425052 82.968750 +142.031250 82.355564 +53 +-139.218750 -28.046434 +-139.148627 -28.125000 +-137.812500 -29.302677 +-137.390159 -29.531250 +-136.406250 -30.652912 +-135.000000 -30.582866 +-133.593750 -30.781694 +-133.049883 -30.937500 +-132.187500 -31.523966 +-131.720017 -32.343750 +-131.952518 -33.750000 +-132.187500 -34.205171 +-133.473110 -35.156250 +-133.593750 -35.471788 +-133.737765 -35.156250 +-135.000000 -33.796286 +-135.020094 -33.750000 +-136.038242 -32.343750 +-136.406250 -31.362324 +-137.812500 -31.857060 +-138.093995 -32.343750 +-138.268583 -33.750000 +-137.812500 -34.472300 +-137.478930 -35.156250 +-136.545174 -36.562500 +-136.406250 -36.914260 +-135.000000 -37.622727 +-133.593750 -37.028290 +-132.187500 -37.081155 +-130.781250 -37.028903 +-129.375000 -36.888732 +-128.553024 -36.562500 +-128.378803 -35.156250 +-127.968750 -33.928759 +-127.902437 -33.750000 +-127.740902 -32.343750 +-127.968750 -31.904963 +-128.498445 -30.937500 +-128.360165 -29.531250 +-128.459788 -28.125000 +-129.375000 -27.570788 +-130.781250 -27.255549 +-131.403759 -26.718750 +-132.187500 -26.416275 +-133.593750 -26.225251 +-135.000000 -26.266114 +-136.406250 -25.472073 +-136.573951 -25.312500 +-137.812500 -24.660089 +-139.218750 -24.590196 +-139.884670 -25.312500 +-139.815110 -26.718750 +-139.218750 -28.046434 +5 +139.218750 -47.959639 +139.355983 -47.812500 +139.218750 -47.655076 +139.124987 -47.812500 +139.218750 -47.959639 +11 +139.218750 -30.243519 +140.029282 -29.531250 +139.218750 -28.215592 +139.164261 -28.125000 +137.812500 -27.159379 +136.406250 -27.435952 +135.923955 -28.125000 +136.330557 -29.531250 +136.406250 -29.574440 +137.812500 -30.225474 +139.218750 -30.243519 +7 +-136.406250 -17.144887 +-135.000000 -17.321898 +-133.620181 -16.875000 +-135.000000 -16.299467 +-136.406250 -16.112672 +-137.601895 -16.875000 +-136.406250 -17.144887 +9 +-136.406250 50.251438 +-137.045409 50.625000 +-136.866596 52.031250 +-136.406250 52.290473 +-135.551754 52.031250 +-135.000000 51.799147 +-133.659412 50.625000 +-135.000000 49.951991 +-136.406250 50.251438 +7 +137.812500 26.615656 +136.406250 26.289368 +135.163074 26.718750 +136.406250 27.211065 +137.812500 26.827920 +137.860494 26.718750 +137.812500 26.615656 +19 +137.812500 38.296298 +136.406250 38.615208 +135.000000 38.244094 +134.437711 37.968750 +133.593750 37.557859 +132.187500 37.809978 +131.991863 37.968750 +130.781250 38.613981 +129.997382 39.375000 +129.719693 40.781250 +130.781250 41.477242 +132.187500 41.856487 +133.593750 41.955402 +135.000000 41.823686 +136.406250 41.142029 +136.856245 40.781250 +137.812500 40.247287 +138.528067 39.375000 +137.812500 38.296298 +5 +136.406250 -24.534966 +136.934534 -23.906250 +136.406250 -23.178249 +135.966041 -23.906250 +136.406250 -24.534966 +5 +-133.593750 -41.043905 +-133.120375 -40.781250 +-133.593750 -40.591006 +-133.868478 -40.781250 +-133.593750 -41.043905 +5 +-133.593750 42.638152 +-134.127632 43.593750 +-133.593750 44.931646 +-132.385207 43.593750 +-133.593750 42.638152 +9 +-133.593750 73.662484 +-134.492068 74.531250 +-133.593750 75.069474 +-132.545819 75.937500 +-132.187500 76.190369 +-131.220444 75.937500 +-131.639075 74.531250 +-132.187500 73.134571 +-133.593750 73.662484 +19 +133.593750 -22.929624 +134.023727 -22.500000 +133.965041 -21.093750 +133.593750 -20.505307 +132.187500 -20.093300 +131.951330 -21.093750 +130.781250 -22.474831 +130.754605 -22.500000 +129.375000 -23.755458 +128.849090 -23.906250 +129.375000 -24.469298 +129.988378 -25.312500 +130.781250 -26.457381 +131.873318 -26.718750 +132.187500 -26.798246 +132.353290 -26.718750 +133.179671 -25.312500 +133.213194 -23.906250 +133.593750 -22.929624 +5 +-130.781250 80.076186 +-130.840604 80.156250 +-130.781250 80.207185 +-130.723076 80.156250 +-130.781250 80.076186 +7 +132.187500 15.680489 +130.781250 16.045101 +130.031606 16.875000 +130.781250 17.938822 +132.187500 17.862433 +132.758948 16.875000 +132.187500 15.680489 +33 +132.187500 22.092243 +130.781250 22.198063 +130.663581 22.500000 +130.582122 23.906250 +130.195159 25.312500 +129.375000 25.803024 +129.124905 25.312500 +127.968750 24.642984 +126.616400 25.312500 +127.044152 26.718750 +127.263125 28.125000 +126.562500 29.050380 +126.138224 29.531250 +126.562500 30.140957 +127.968750 30.617312 +128.420368 30.937500 +129.375000 31.402863 +130.598897 32.343750 +130.781250 33.039039 +132.039144 32.343750 +132.187500 32.302544 +132.761370 30.937500 +132.775344 29.531250 +132.199301 28.125000 +132.187500 28.093918 +130.781250 27.205742 +130.212255 26.718750 +130.781250 25.819190 +132.187500 26.375701 +133.077934 25.312500 +132.832096 23.906250 +132.668130 22.500000 +132.187500 22.092243 +39 +-129.375000 -85.455343 +-127.968750 -85.227983 +-126.562500 -85.071287 +-125.156250 -84.904661 +-123.750000 -84.734731 +-122.343750 -84.671760 +-120.937500 -84.543325 +-119.766931 -84.375000 +-119.531250 -84.311637 +-118.125000 -84.293152 +-117.290166 -84.375000 +-116.718750 -84.403839 +-115.312500 -84.545313 +-113.906250 -84.704008 +-112.500000 -84.595322 +-111.364790 -84.375000 +-111.093750 -84.177433 +-109.687500 -83.385934 +-108.708410 -82.968750 +-109.242638 -81.562500 +-109.687500 -81.344152 +-111.093750 -81.128956 +-112.500000 -81.171727 +-113.906250 -81.407586 +-115.312500 -81.373297 +-116.718750 -81.022458 +-118.125000 -81.112250 +-119.531250 -81.336414 +-120.937500 -81.459192 +-121.705574 -81.562500 +-122.343750 -81.659035 +-123.750000 -82.068951 +-125.156250 -82.574037 +-126.250473 -82.968750 +-126.562500 -83.147638 +-127.968750 -83.560480 +-129.375000 -83.823089 +-130.702929 -84.375000 +-129.375000 -85.455343 +17 +-129.375000 -72.977420 +-129.144141 -73.125000 +-127.968750 -74.010276 +-126.562500 -73.840620 +-125.156250 -73.159922 +-123.750000 -73.250821 +-122.343750 -73.346122 +-122.191684 -73.125000 +-122.343750 -71.830631 +-122.380537 -71.718750 +-123.750000 -71.146399 +-125.156250 -71.219709 +-126.562500 -71.022007 +-127.968750 -70.784244 +-129.375000 -70.861243 +-130.725143 -71.718750 +-129.375000 -72.977420 +23 +-127.968750 -24.450400 +-126.562500 -25.302804 +-125.156250 -24.458824 +-123.750000 -25.203598 +-122.728192 -25.312500 +-122.343750 -25.340112 +-122.267313 -25.312500 +-120.937500 -24.901090 +-119.789531 -23.906250 +-120.298130 -22.500000 +-120.937500 -21.684971 +-121.528858 -21.093750 +-122.343750 -19.806195 +-122.556211 -19.687500 +-123.750000 -19.280334 +-124.729000 -19.687500 +-124.213121 -21.093750 +-124.384900 -22.500000 +-125.156250 -23.752264 +-126.562500 -23.237504 +-127.968750 -23.600721 +-128.112967 -23.906250 +-127.968750 -24.450400 +5 +-127.968750 6.744549 +-127.689441 7.031250 +-127.968750 7.524993 +-128.158574 7.031250 +-127.968750 6.744549 +7 +-127.968750 60.302372 +-126.562500 60.404920 +-126.386271 60.468750 +-126.562500 60.608382 +-127.968750 61.130204 +-128.129590 60.468750 +-127.968750 60.302372 +5 +129.375000 -46.592298 +129.543437 -46.406250 +129.375000 -46.228775 +128.863452 -46.406250 +129.375000 -46.592298 +11 +129.375000 68.612956 +127.968750 67.507722 +127.954858 67.500000 +126.562500 67.154848 +125.629138 67.500000 +126.221777 68.906250 +126.562500 69.125332 +127.968750 69.452117 +129.375000 69.437068 +129.772048 68.906250 +129.375000 68.612956 +5 +-123.750000 -7.252094 +-123.640811 -7.031250 +-123.750000 -6.645968 +-124.711062 -7.031250 +-123.750000 -7.252094 +13 +125.156250 19.455528 +123.750000 19.304777 +123.286205 19.687500 +122.343750 20.785172 +121.427580 21.093750 +122.343750 22.356226 +122.460373 22.500000 +123.750000 22.712268 +124.198399 22.500000 +125.156250 21.891648 +126.120708 21.093750 +125.437125 19.687500 +125.156250 19.455528 +9 +123.750000 -22.047196 +124.184600 -21.093750 +124.468266 -19.687500 +123.750000 -18.750721 +122.343750 -18.878091 +121.229319 -19.687500 +121.260731 -21.093750 +122.343750 -21.499514 +123.750000 -22.047196 +7 +-120.937500 -54.234096 +-119.531250 -54.199014 +-118.897832 -53.437500 +-119.531250 -52.743627 +-120.937500 -52.721303 +-121.310162 -53.437500 +-120.937500 -54.234096 +9 +-120.937500 4.191960 +-119.531250 4.176633 +-119.481580 4.218750 +-118.909088 5.625000 +-119.531250 6.153830 +-120.937500 6.030996 +-121.616277 5.625000 +-120.996689 4.218750 +-120.937500 4.191960 +5 +120.937500 82.956235 +120.965735 82.968750 +120.937500 83.014862 +120.878948 82.968750 +120.937500 82.956235 +7 +119.531250 -81.650102 +119.878968 -81.562500 +119.531250 -81.310615 +118.125000 -81.438484 +117.977976 -81.562500 +118.125000 -81.640447 +119.531250 -81.650102 +15 +119.531250 -21.204518 +120.275426 -21.093750 +119.531250 -20.572836 +119.434738 -19.687500 +118.965861 -18.281250 +118.125000 -17.210942 +116.718750 -18.105533 +116.607778 -18.281250 +116.030642 -19.687500 +116.178056 -21.093750 +116.718750 -22.057419 +117.959914 -22.500000 +118.125000 -22.538153 +118.193258 -22.500000 +119.531250 -21.204518 +11 +119.531250 19.238925 +118.125000 18.658878 +116.718750 19.640992 +116.669180 19.687500 +116.718750 19.782345 +118.125000 20.731798 +119.277723 21.093750 +119.531250 21.413105 +120.279211 21.093750 +120.130013 19.687500 +119.531250 19.238925 +881 +-115.312500 -77.447150 +-113.906250 -77.591307 +-112.500000 -77.681123 +-111.093750 -78.053071 +-109.687500 -78.401119 +-108.281250 -78.374127 +-106.875000 -78.311399 +-105.468750 -78.225118 +-104.062500 -78.178960 +-102.656250 -78.232955 +-101.250000 -77.990336 +-100.142709 -77.343750 +-99.843750 -77.044925 +-98.437500 -76.465869 +-97.031250 -76.523088 +-95.625000 -76.494886 +-94.218750 -76.243261 +-92.812500 -76.189724 +-91.406250 -76.285520 +-90.000000 -76.269320 +-88.593750 -76.227235 +-87.187500 -76.104852 +-86.022064 -75.937500 +-85.781250 -75.849820 +-84.375000 -75.707691 +-82.968750 -75.550152 +-81.562500 -75.609541 +-81.195731 -75.937500 +-80.156250 -76.324190 +-78.750000 -76.680142 +-77.343750 -76.895532 +-76.279750 -77.343750 +-75.937500 -77.792662 +-75.048571 -78.750000 +-75.937500 -79.273477 +-77.343750 -79.751343 +-78.750000 -79.694376 +-80.156250 -79.548651 +-81.562500 -79.471373 +-82.968750 -79.502088 +-84.375000 -79.756508 +-85.781250 -80.099523 +-86.143449 -80.156250 +-87.187500 -80.489092 +-88.325397 -80.156250 +-88.593750 -80.116222 +-90.000000 -79.967167 +-91.406250 -80.104007 +-92.594258 -80.156250 +-92.812500 -80.181572 +-94.218750 -80.369689 +-95.625000 -80.555556 +-97.031250 -80.900621 +-98.437500 -81.462717 +-98.736202 -81.562500 +-98.437500 -82.204816 +-97.031250 -82.840094 +-95.625000 -82.607537 +-94.218750 -82.576783 +-92.812500 -82.608808 +-91.406250 -82.570536 +-90.000000 -82.192028 +-88.593750 -82.012969 +-87.187500 -82.200973 +-85.781250 -82.237450 +-84.375000 -82.252141 +-82.968750 -82.401675 +-81.562500 -82.638757 +-80.156250 -82.818835 +-78.750000 -82.715427 +-77.343750 -82.728646 +-76.695430 -82.968750 +-75.937500 -83.156141 +-74.531250 -83.612393 +-73.125000 -83.654786 +-71.718750 -83.414023 +-70.312500 -83.143546 +-69.868411 -82.968750 +-70.259240 -81.562500 +-70.312500 -81.551185 +-70.512617 -81.562500 +-71.718750 -81.652241 +-72.066726 -81.562500 +-73.125000 -80.901313 +-73.653309 -80.156250 +-73.125000 -79.610199 +-72.639557 -78.750000 +-71.718750 -77.455892 +-71.658337 -77.343750 +-70.467827 -75.937500 +-70.312500 -75.535557 +-69.242492 -74.531250 +-68.906250 -74.446040 +-67.500000 -73.854211 +-66.093750 -73.484328 +-64.687500 -73.435005 +-63.281250 -73.565473 +-61.875000 -73.902487 +-60.586766 -74.531250 +-60.468750 -74.604085 +-59.062500 -75.070337 +-57.656250 -75.309179 +-56.250000 -75.225800 +-54.843750 -74.819249 +-53.996801 -74.531250 +-53.437500 -74.274209 +-52.521547 -74.531250 +-52.031250 -74.842322 +-51.212904 -75.937500 +-52.031250 -76.677977 +-53.437500 -77.268885 +-53.550290 -77.343750 +-54.843750 -78.341896 +-55.570339 -78.750000 +-55.179121 -80.156250 +-54.843750 -80.209252 +-53.437500 -80.213911 +-52.786431 -80.156250 +-52.031250 -79.913524 +-50.983458 -78.750000 +-50.625000 -78.306691 +-49.509266 -77.343750 +-49.218750 -77.195360 +-47.812500 -76.691921 +-46.406250 -76.533161 +-45.000000 -76.735944 +-43.593750 -77.085978 +-42.187500 -76.909865 +-40.781250 -77.083200 +-39.375000 -77.188880 +-37.968750 -77.160519 +-36.562500 -76.555376 +-35.156250 -76.128382 +-33.750000 -76.326568 +-32.652261 -77.343750 +-32.343750 -78.057980 +-30.937500 -77.768860 +-29.935046 -77.343750 +-29.531250 -77.216598 +-29.270353 -77.343750 +-29.455619 -78.750000 +-29.531250 -78.950300 +-30.591239 -80.156250 +-30.937500 -80.802543 +-32.343750 -80.526428 +-33.750000 -80.777754 +-35.156250 -81.146187 +-36.562500 -81.220504 +-37.968750 -81.409234 +-38.420303 -81.562500 +-37.968750 -81.998908 +-36.562500 -82.546461 +-35.156250 -82.308148 +-33.750000 -82.131398 +-32.343750 -81.771467 +-30.937500 -81.770560 +-29.531250 -82.027049 +-28.125000 -81.868227 +-26.718750 -81.735513 +-25.312500 -81.761931 +-23.906250 -81.812005 +-22.584156 -81.562500 +-23.906250 -81.351023 +-25.312500 -81.348170 +-26.718750 -80.389876 +-26.795619 -80.156250 +-26.718750 -80.103609 +-25.312500 -78.809250 +-25.268086 -78.750000 +-23.906250 -77.730308 +-23.475842 -77.343750 +-22.612489 -75.937500 +-22.500000 -75.196122 +-21.093750 -74.782902 +-19.687500 -75.277830 +-18.281250 -75.681945 +-16.875000 -75.252101 +-15.468750 -75.038139 +-14.204971 -75.937500 +-15.468750 -76.887448 +-16.875000 -76.927763 +-18.281250 -76.288266 +-19.687500 -76.845032 +-20.048292 -77.343750 +-20.545288 -78.750000 +-19.687500 -79.353625 +-18.281250 -79.823440 +-17.515147 -80.156250 +-16.920594 -81.562500 +-16.875000 -81.664342 +-16.398663 -82.968750 +-16.875000 -83.767637 +-17.088468 -84.375000 +-16.875000 -84.585903 +-15.468750 -84.900615 +-14.062500 -84.885838 +-12.857787 -84.375000 +-13.175517 -82.968750 +-12.656250 -82.315283 +-12.198160 -81.562500 +-11.250000 -80.422421 +-9.843750 -80.315093 +-8.437500 -80.348836 +-8.001569 -80.156250 +-7.031250 -78.987871 +-6.794517 -78.750000 +-5.625000 -77.986770 +-4.218750 -78.578049 +-4.068347 -78.750000 +-3.313414 -80.156250 +-2.812500 -80.386780 +-1.406250 -80.734185 +0.000000 -80.353150 +0.604253 -80.156250 +1.406250 -79.684890 +2.812500 -79.917447 +3.322493 -80.156250 +4.218750 -80.437140 +5.625000 -80.505041 +7.031250 -80.361499 +8.150145 -80.156250 +8.437500 -79.876291 +9.843750 -79.172877 +11.250000 -79.831032 +11.552001 -80.156250 +12.656250 -80.474542 +14.062500 -80.960097 +15.468750 -81.285414 +16.875000 -81.271627 +18.244614 -81.562500 +18.281250 -81.572713 +19.687500 -81.749941 +20.821452 -81.562500 +21.093750 -81.518711 +22.500000 -81.375288 +23.900988 -80.156250 +23.906250 -80.147700 +23.921229 -80.156250 +25.312500 -80.415859 +26.718750 -80.976161 +28.125000 -81.162548 +29.531250 -80.805128 +30.937500 -80.161755 +30.990672 -80.156250 +32.343750 -79.993211 +33.750000 -79.848774 +35.156250 -79.558576 +36.562500 -79.548512 +37.968750 -79.678802 +39.375000 -79.694210 +40.781250 -79.573048 +42.187500 -79.410066 +43.593750 -79.235263 +45.000000 -79.079182 +46.406250 -78.992372 +47.812500 -78.991749 +49.218750 -78.952186 +50.625000 -78.923554 +52.031250 -79.002770 +53.437500 -79.690981 +53.532842 -80.156250 +54.843750 -80.487486 +56.250000 -80.878107 +57.656250 -81.124064 +59.062500 -81.345853 +60.468750 -81.308606 +61.875000 -81.281869 +63.281250 -81.346471 +64.687500 -81.044257 +66.093750 -80.558356 +67.500000 -80.189384 +67.566450 -80.156250 +67.500000 -80.143362 +66.093750 -79.901938 +64.687500 -79.293965 +63.281250 -78.778661 +61.875000 -78.809457 +60.468750 -78.885697 +59.522564 -78.750000 +59.062500 -78.705397 +57.656250 -78.517021 +56.250000 -78.474452 +54.843750 -78.559133 +53.437500 -78.608572 +52.413278 -77.343750 +53.437500 -76.683455 +54.843750 -76.508623 +56.250000 -76.279903 +57.656250 -75.971314 +59.062500 -76.057766 +60.468750 -76.102572 +61.753223 -75.937500 +61.875000 -75.906975 +63.281250 -75.485486 +64.687500 -75.121914 +65.702728 -74.531250 +66.093750 -74.103256 +67.500000 -73.488444 +68.906250 -73.663676 +70.312500 -74.316287 +71.345188 -74.531250 +71.718750 -74.791028 +72.254851 -74.531250 +73.125000 -74.405733 +74.531250 -74.159692 +75.937500 -73.975274 +77.343750 -73.483059 +77.704328 -73.125000 +78.144228 -71.718750 +77.428895 -70.312500 +77.343750 -69.952284 +76.943166 -68.906250 +76.876980 -67.500000 +77.343750 -66.901057 +78.483451 -67.500000 +77.755638 -68.906250 +78.750000 -69.343892 +80.156250 -69.371677 +80.897808 -68.906250 +80.156250 -68.042396 +79.024366 -67.500000 +78.750000 -67.433148 +77.657898 -66.093750 +77.724706 -64.687500 +77.343750 -64.291699 +75.937500 -63.937985 +74.886791 -63.281250 +75.861121 -61.875000 +75.937500 -61.806532 +77.343750 -60.748803 +77.591538 -60.468750 +77.343750 -60.040120 +75.937500 -59.469374 +75.151499 -59.062500 +74.531250 -58.915608 +73.125000 -57.893064 +72.744624 -57.656250 +71.718750 -56.787405 +70.312500 -56.884700 +68.906250 -57.294294 +67.708291 -57.656250 +67.500000 -57.724501 +66.093750 -58.171061 +64.687500 -57.711847 +64.648305 -57.656250 +63.880729 -56.250000 +63.281250 -55.916296 +61.875000 -55.543823 +60.468750 -56.127440 +59.968362 -56.250000 +59.062500 -56.377330 +57.656250 -56.793390 +56.250000 -57.372417 +55.495109 -57.656250 +54.843750 -57.911629 +53.437500 -57.841973 +53.122623 -57.656250 +52.522896 -56.250000 +52.031250 -55.911836 +50.625000 -55.269633 +49.678480 -54.843750 +49.218750 -54.613270 +47.812500 -53.786070 +47.408212 -53.437500 +46.406250 -52.329232 +46.193186 -52.031250 +46.406250 -51.294456 +47.051161 -50.625000 +46.406250 -49.475363 +46.312596 -49.218750 +46.406250 -49.043250 +46.661531 -47.812500 +47.812500 -47.025196 +49.025889 -46.406250 +49.218750 -46.188721 +50.625000 -45.195547 +50.809602 -45.000000 +50.797206 -43.593750 +51.016151 -42.187500 +52.023905 -40.781250 +52.031250 -40.775047 +53.190884 -39.375000 +53.437500 -39.155482 +54.843750 -38.446263 +56.250000 -38.504194 +57.656250 -39.233855 +58.700828 -39.375000 +59.062500 -39.419623 +59.185377 -39.375000 +60.397283 -37.968750 +59.973988 -36.562500 +60.468750 -35.917299 +61.311461 -35.156250 +61.875000 -34.643584 +63.276024 -35.156250 +63.281250 -35.163367 +63.296746 -35.156250 +64.687500 -35.037812 +66.093750 -34.447915 +67.498866 -33.750000 +67.500000 -33.748809 +68.608267 -32.343750 +68.906250 -31.736687 +69.372582 -30.937500 +69.816904 -29.531250 +69.537481 -28.125000 +68.906250 -26.931109 +67.500000 -27.402273 +66.471071 -28.125000 +66.093750 -28.312363 +64.895029 -29.531250 +64.687500 -29.740314 +63.281250 -30.876732 +62.952587 -29.531250 +63.281250 -28.948584 +64.096262 -28.125000 +64.243534 -26.718750 +63.281250 -25.702033 +62.591557 -25.312500 +61.875000 -25.048336 +60.468750 -24.866129 +59.544948 -25.312500 +59.062500 -25.500284 +57.656250 -25.967605 +56.250000 -26.384655 +54.843750 -26.282786 +53.437500 -25.807014 +52.584962 -25.312500 +52.031250 -24.970228 +50.625000 -25.024195 +49.855519 -25.312500 +49.218750 -25.600528 +47.812500 -25.567733 +46.406250 -25.915196 +45.145749 -26.718750 +46.066046 -28.125000 +46.406250 -29.051262 +46.535264 -29.531250 +46.839107 -30.937500 +46.809348 -32.343750 +46.406250 -33.007618 +45.326865 -33.750000 +45.395336 -35.156250 +46.406250 -35.382202 +47.812500 -35.798588 +48.605715 -36.562500 +47.926357 -37.968750 +47.812500 -38.116484 +46.406250 -38.277511 +45.000000 -38.283647 +43.593750 -39.369637 +43.568698 -39.375000 +42.187500 -39.561181 +40.984952 -39.375000 +40.781250 -39.327420 +40.439817 -39.375000 +39.375000 -39.472480 +39.003788 -39.375000 +37.968750 -38.950499 +36.562500 -38.592547 +35.156250 -39.287750 +34.977406 -39.375000 +33.750000 -40.064974 +33.386377 -40.781250 +33.364571 -42.187500 +32.905106 -43.593750 +32.343750 -43.775624 +30.937500 -44.154102 +29.531250 -44.566689 +28.349385 -45.000000 +28.125000 -45.189585 +27.408206 -46.406250 +27.874137 -47.812500 +28.125000 -48.906901 +28.318237 -49.218750 +28.125000 -49.358756 +26.718750 -50.125317 +25.312500 -50.031236 +23.906250 -49.591237 +22.500000 -49.396881 +21.093750 -49.924146 +19.687500 -49.830607 +19.565792 -49.218750 +18.281250 -48.472247 +16.875000 -48.549085 +15.468750 -48.259611 +14.229590 -47.812500 +14.062500 -47.769175 +12.656250 -47.457132 +11.250000 -47.210638 +10.504989 -46.406250 +10.742987 -45.000000 +11.250000 -44.097311 +12.656250 -44.216300 +14.062500 -44.136702 +15.468750 -44.382382 +16.875000 -44.430659 +18.008011 -43.593750 +18.281250 -43.209723 +19.390536 -42.187500 +19.687500 -41.813879 +19.988741 -42.187500 +21.093750 -43.397115 +21.205817 -43.593750 +22.199282 -45.000000 +22.500000 -45.207581 +23.086880 -45.000000 +23.906250 -44.783284 +25.101554 -43.593750 +25.312500 -42.590329 +25.397751 -42.187500 +26.718750 -41.056289 +27.245276 -40.781250 +28.125000 -40.144629 +29.116514 -39.375000 +28.125000 -38.716152 +26.718750 -38.381469 +25.312500 -38.533672 +23.906250 -38.796572 +22.500000 -38.907078 +21.093750 -38.737576 +19.828960 -37.968750 +19.687500 -37.857856 +18.281250 -36.629732 +16.875000 -36.864157 +15.816946 -37.968750 +15.468750 -38.529118 +14.600654 -39.375000 +14.062500 -39.679781 +12.656250 -40.126055 +11.250000 -40.398780 +10.317833 -39.375000 +11.172241 -37.968750 +11.250000 -37.906216 +12.656250 -37.409234 +13.727085 -36.562500 +14.062500 -36.170020 +15.282309 -35.156250 +15.468750 -35.040175 +16.875000 -35.003388 +18.281250 -34.618805 +19.439806 -33.750000 +19.687500 -33.512154 +20.800125 -32.343750 +21.093750 -31.248620 +21.233797 -30.937500 +22.234615 -29.531250 +22.500000 -29.102057 +23.486711 -28.125000 +23.906250 -27.878430 +25.312500 -27.889396 +26.718750 -27.646903 +28.125000 -27.185665 +29.269310 -28.125000 +29.531250 -28.432141 +30.726377 -29.531250 +30.937500 -29.606426 +31.102093 -29.531250 +32.343750 -28.773839 +32.916939 -28.125000 +33.750000 -27.119555 +34.041977 -26.718750 +33.750000 -26.160135 +32.343750 -25.942622 +30.937500 -26.168961 +29.531250 -26.058998 +29.179592 -25.312500 +29.197799 -23.906250 +29.531250 -23.031526 +29.707994 -22.500000 +29.838533 -21.093750 +29.531250 -20.651187 +28.125000 -20.188595 +27.361605 -19.687500 +28.125000 -18.727536 +28.159767 -18.281250 +28.125000 -17.812783 +28.066051 -16.875000 +27.749962 -15.468750 +27.075378 -14.062500 +26.718750 -13.327967 +26.250004 -12.656250 +25.821620 -11.250000 +25.312500 -10.852310 +23.906250 -10.850426 +22.500000 -10.868452 +21.757038 -9.843750 +21.093750 -9.099403 +19.757003 -8.437500 +20.124174 -7.031250 +20.454323 -5.625000 +19.980882 -4.218750 +19.687500 -4.086816 +19.373658 -4.218750 +18.281250 -4.697256 +17.392866 -5.625000 +17.483833 -7.031250 +18.281250 -7.809702 +19.621939 -8.437500 +18.854619 -9.843750 +18.423827 -11.250000 +19.687500 -11.912059 +20.459379 -12.656250 +20.575526 -14.062500 +20.986288 -15.468750 +21.093750 -15.622604 +22.446611 -16.875000 +22.500000 -16.980645 +23.118256 -18.281250 +23.906250 -19.413538 +25.312500 -19.558552 +26.067991 -19.687500 +26.718750 -20.427975 +27.134096 -21.093750 +26.718750 -21.225773 +25.312500 -21.850200 +24.872965 -22.500000 +23.906250 -23.493768 +23.652642 -23.906250 +22.834666 -25.312500 +22.500000 -26.239090 +21.879208 -26.718750 +21.093750 -26.993474 +19.687500 -27.537517 +19.104195 -28.125000 +18.281250 -29.489139 +18.247675 -29.531250 +17.030325 -30.937500 +16.875000 -31.080148 +15.468750 -32.302941 +15.357848 -32.343750 +14.062500 -32.935401 +12.656250 -32.878034 +11.250000 -33.002124 +9.996592 -32.343750 +9.843750 -32.234601 +8.902506 -30.937500 +8.527897 -29.531250 +9.843750 -28.977238 +11.250000 -28.128031 +11.253307 -28.125000 +12.444280 -26.718750 +12.656250 -26.201390 +13.211199 -25.312500 +12.656250 -23.996731 +11.250000 -24.394446 +9.843750 -24.389606 +8.437500 -24.630840 +7.445284 -25.312500 +7.031250 -26.191050 +6.800003 -26.718750 +5.707625 -28.125000 +5.625000 -28.145328 +5.598249 -28.125000 +4.218750 -27.422089 +3.366377 -26.718750 +2.812500 -25.857219 +2.327381 -25.312500 +1.406250 -24.663379 +0.484398 -25.312500 +0.000000 -25.701983 +-1.011373 -26.718750 +-1.406250 -27.070056 +-2.812500 -27.901748 +-4.218750 -27.909926 +-4.813516 -28.125000 +-5.625000 -28.297245 +-7.031250 -29.246566 +-7.514002 -29.531250 +-8.437500 -30.134187 +-9.843750 -30.677887 +-10.329100 -30.937500 +-11.250000 -31.688678 +-12.091868 -32.343750 +-12.656250 -32.899601 +-14.062500 -33.339353 +-15.468750 -33.650762 +-16.875000 -33.317069 +-17.962212 -32.343750 +-18.281250 -32.181323 +-19.687500 -31.653508 +-21.093750 -31.770045 +-21.355235 -32.343750 +-21.093750 -33.445223 +-20.961542 -33.750000 +-19.687500 -35.151655 +-19.683463 -35.156250 +-19.415444 -36.562500 +-19.603407 -37.968750 +-19.687500 -38.068058 +-21.093750 -38.278371 +-22.207650 -39.375000 +-22.500000 -39.752316 +-23.344436 -40.781250 +-23.906250 -41.321543 +-25.312500 -42.133943 +-25.397421 -42.187500 +-25.340386 -43.593750 +-25.312500 -43.648946 +-24.740051 -45.000000 +-24.597978 -46.406250 +-23.906250 -46.753444 +-22.500000 -47.083701 +-21.093750 -47.468430 +-20.735627 -47.812500 +-21.093750 -48.393209 +-21.804744 -49.218750 +-22.500000 -49.519006 +-23.906250 -49.994262 +-25.312500 -50.544564 +-25.429742 -50.625000 +-26.198183 -52.031250 +-26.718750 -53.035658 +-26.988748 -53.437500 +-28.125000 -54.319336 +-28.762813 -54.843750 +-29.531250 -55.987913 +-29.664066 -56.250000 +-30.201351 -57.656250 +-30.937500 -58.859137 +-31.427630 -59.062500 +-32.343750 -59.246649 +-33.750000 -59.724162 +-35.156250 -59.648085 +-36.126559 -59.062500 +-36.509169 -57.656250 +-36.562500 -57.607177 +-37.968750 -57.538915 +-39.375000 -57.515648 +-40.781250 -57.638662 +-42.187500 -57.606683 +-42.852514 -57.656250 +-43.593750 -57.723201 +-45.000000 -58.194976 +-46.406250 -58.172819 +-47.812500 -57.867570 +-48.461290 -57.656250 +-49.218750 -57.407932 +-50.625000 -56.425516 +-51.005239 -56.250000 +-52.031250 -55.826517 +-53.437500 -55.647636 +-54.843750 -55.808149 +-56.250000 -55.964767 +-56.902476 -56.250000 +-57.656250 -56.546356 +-59.062500 -57.584260 +-59.237526 -57.656250 +-60.468750 -58.307402 +-61.875000 -57.930781 +-62.656085 -57.656250 +-63.281250 -57.551675 +-63.617022 -57.656250 +-64.687500 -57.944866 +-66.093750 -57.739447 +-66.219969 -57.656250 +-67.500000 -56.699493 +-68.089588 -56.250000 +-68.906250 -55.587697 +-70.071239 -54.843750 +-70.312500 -54.495286 +-70.851684 -54.843750 +-71.718750 -54.997388 +-73.087848 -56.250000 +-73.125000 -56.274277 +-74.531250 -57.553948 +-74.731020 -57.656250 +-75.937500 -57.804397 +-76.258190 -57.656250 +-76.381029 -56.250000 +-77.343750 -55.574775 +-78.750000 -56.091296 +-79.096172 -56.250000 +-79.164586 -57.656250 +-80.060243 -59.062500 +-80.156250 -59.167279 +-81.562500 -59.686865 +-82.288022 -60.468750 +-82.968750 -61.400969 +-83.843957 -61.875000 +-83.926099 -63.281250 +-84.375000 -63.626811 +-85.757441 -64.687500 +-85.781250 -64.694756 +-86.014650 -64.687500 +-87.187500 -64.624144 +-87.575315 -64.687500 +-88.593750 -64.785443 +-90.000000 -64.915187 +-91.406250 -64.810275 +-92.812500 -65.181700 +-94.218750 -65.240188 +-95.625000 -64.993006 +-96.913584 -66.093750 +-97.031250 -66.563743 +-98.437500 -66.726004 +-99.843750 -66.721451 +-101.250000 -67.187630 +-101.806713 -67.500000 +-101.250000 -68.023290 +-99.843750 -68.605954 +-99.449917 -68.906250 +-99.046259 -70.312500 +-98.437500 -71.106329 +-97.031250 -70.884319 +-96.489045 -70.312500 +-95.625000 -69.711967 +-94.218750 -69.223833 +-92.812500 -69.054828 +-91.839249 -68.906250 +-91.406250 -68.819313 +-90.000000 -68.616859 +-88.593750 -68.808380 +-87.187500 -68.870818 +-85.781250 -68.814464 +-84.375000 -68.530380 +-82.968750 -68.014550 +-81.562500 -67.597381 +-81.382572 -67.500000 +-80.512423 -66.093750 +-80.271504 -64.687500 +-80.156250 -64.432854 +-78.974649 -63.281250 +-78.750000 -63.171763 +-77.343750 -62.700465 +-75.937500 -62.984853 +-74.813358 -63.281250 +-75.604549 -64.687500 +-75.937500 -64.991050 +-77.234807 -66.093750 +-77.343750 -66.193658 +-78.750000 -67.338513 +-79.202956 -67.500000 +-80.156250 -67.932195 +-80.906247 -68.906250 +-81.562500 -69.584917 +-82.574322 -70.312500 +-82.968750 -70.929680 +-84.375000 -71.245703 +-85.781250 -71.376320 +-87.187500 -71.139736 +-88.593750 -71.076769 +-90.000000 -71.708587 +-90.013474 -71.718750 +-90.000000 -71.857722 +-89.842488 -73.125000 +-90.000000 -74.148207 +-90.109379 -74.531250 +-91.406250 -74.961388 +-92.812500 -75.187703 +-94.218750 -74.535355 +-94.221237 -74.531250 +-94.218750 -74.463547 +-94.132802 -73.125000 +-94.218750 -73.105143 +-95.625000 -73.080479 +-95.909445 -73.125000 +-97.031250 -73.385106 +-98.437500 -73.464607 +-99.843750 -73.792805 +-100.473474 -73.125000 +-101.250000 -71.842904 +-102.656250 -71.746703 +-104.062500 -71.927401 +-105.468750 -72.995223 +-105.593336 -73.125000 +-106.875000 -74.024175 +-107.477205 -74.531250 +-108.281250 -74.951179 +-109.687500 -75.175917 +-110.878631 -74.531250 +-111.093750 -74.187138 +-112.500000 -73.855567 +-113.906250 -73.662539 +-114.836770 -73.125000 +-115.312500 -72.659003 +-115.838981 -73.125000 +-115.501829 -74.531250 +-115.795371 -75.937500 +-115.638327 -77.343750 +-115.312500 -77.447150 +7 +-115.312500 9.744968 +-116.060586 9.843750 +-115.312500 10.395227 +-113.906250 10.184610 +-113.656837 9.843750 +-113.906250 9.231661 +-115.312500 9.744968 +19 +116.718750 -35.720444 +117.159259 -35.156250 +117.196228 -33.750000 +116.718750 -33.562521 +115.312500 -33.415460 +113.906250 -33.184332 +112.500000 -33.051669 +111.093750 -33.666385 +111.004759 -33.750000 +110.603655 -35.156250 +110.697293 -36.562500 +111.093750 -37.099271 +112.320396 -37.968750 +112.500000 -38.048069 +113.906250 -38.647423 +115.105798 -37.968750 +115.312500 -37.590113 +115.774293 -36.562500 +116.718750 -35.720444 +7 +-113.906250 -88.737846 +-112.500000 -88.627716 +-112.420284 -88.593750 +-112.500000 -88.571256 +-113.906250 -88.523642 +-113.991674 -88.593750 +-113.906250 -88.737846 +15 +-113.906250 -51.253915 +-112.500000 -50.745104 +-111.093750 -50.653677 +-109.687500 -51.302776 +-108.589539 -52.031250 +-108.281250 -52.377335 +-107.989567 -52.031250 +-107.541281 -50.625000 +-108.281250 -49.907218 +-109.687500 -50.181126 +-111.093750 -50.606575 +-112.500000 -50.560000 +-113.906250 -50.251730 +-114.810546 -50.625000 +-113.906250 -51.253915 +5 +-113.906250 44.889936 +-114.190422 45.000000 +-113.906250 46.239910 +-113.565607 45.000000 +-113.906250 44.889936 +5 +-113.906250 71.693745 +-113.923849 71.718750 +-113.906250 71.742056 +-113.866819 71.718750 +-113.906250 71.693745 +53 +115.312500 -85.958491 +115.850283 -85.781250 +115.312500 -85.626144 +113.906250 -84.875728 +112.689730 -84.375000 +113.906250 -83.173293 +114.063281 -82.968750 +113.906250 -82.164525 +113.329033 -81.562500 +112.500000 -81.476337 +112.266908 -81.562500 +111.749555 -82.968750 +111.400829 -84.375000 +111.093750 -84.440257 +111.021623 -84.375000 +110.050429 -82.968750 +109.687500 -82.909251 +108.281250 -82.722275 +106.875000 -82.500840 +105.468750 -81.777323 +104.983830 -81.562500 +104.062500 -80.712686 +102.656250 -81.029050 +101.250000 -81.156874 +99.843750 -80.996324 +98.437500 -80.992596 +97.031250 -81.151754 +95.625000 -81.354267 +94.929130 -81.562500 +95.625000 -81.642207 +97.031250 -81.810575 +98.437500 -82.072784 +99.843750 -82.331246 +101.063957 -82.968750 +101.250000 -83.439464 +101.700587 -84.375000 +101.250000 -84.659664 +99.843750 -85.512022 +99.280635 -85.781250 +99.843750 -85.953388 +101.250000 -86.125277 +102.656250 -85.967059 +104.062500 -86.006639 +105.468750 -85.807808 +105.628332 -85.781250 +106.875000 -85.169380 +108.281250 -85.613354 +108.724718 -85.781250 +109.687500 -85.889816 +111.093750 -86.002658 +112.500000 -86.211286 +113.906250 -86.269200 +115.312500 -85.958491 +7 +115.312500 -43.140101 +116.283837 -42.187500 +115.379511 -40.781250 +115.312500 -40.586407 +115.226258 -40.781250 +114.527527 -42.187500 +115.312500 -43.140101 +5 +-112.500000 -64.984389 +-111.304440 -64.687500 +-112.500000 -63.943684 +-112.794330 -64.687500 +-112.500000 -64.984389 +5 +113.906250 79.656362 +113.695355 80.156250 +113.906250 80.311099 +114.232683 80.156250 +113.906250 79.656362 +87 +112.500000 -73.457528 +112.882848 -73.125000 +112.500000 -72.322224 +111.093750 -72.168097 +109.687500 -72.056785 +109.195972 -71.718750 +108.281250 -71.126978 +106.875000 -70.526609 +105.468750 -70.491664 +104.062500 -71.016471 +102.968971 -71.718750 +102.656250 -71.972576 +101.250000 -72.804118 +100.762203 -73.125000 +99.843750 -73.476455 +98.437500 -73.836158 +97.031250 -73.959558 +95.625000 -74.067819 +94.218750 -74.264967 +92.812500 -74.433615 +91.406250 -74.529005 +91.000896 -74.531250 +90.000000 -74.536852 +89.875593 -74.531250 +88.593750 -74.442691 +87.187500 -74.123206 +85.781250 -74.041427 +84.375000 -74.014059 +82.968750 -73.996033 +81.562500 -74.520669 +81.544964 -74.531250 +80.156250 -74.847016 +78.750000 -75.080752 +77.343750 -75.662979 +77.007456 -75.937500 +75.937500 -76.424224 +74.531250 -76.411327 +73.125000 -76.560414 +71.718750 -77.122412 +70.312500 -76.480278 +69.279991 -75.937500 +68.906250 -75.805425 +67.500000 -75.652077 +66.847045 -75.937500 +67.500000 -76.472304 +68.011480 -77.343750 +68.906250 -77.848437 +70.312500 -78.532454 +70.484039 -78.750000 +70.593474 -80.156250 +71.718750 -80.642056 +72.562623 -81.562500 +73.125000 -81.732795 +74.531250 -81.981147 +75.937500 -82.041671 +77.343750 -82.022954 +78.750000 -81.801250 +79.620094 -81.562500 +80.156250 -81.146530 +81.562500 -80.359981 +81.972181 -80.156250 +82.968750 -79.855624 +84.375000 -79.529189 +85.781250 -79.312500 +87.187500 -79.164967 +88.593750 -78.993118 +90.000000 -78.826954 +90.751604 -78.750000 +91.406250 -78.664991 +92.812500 -78.218580 +94.218750 -77.441865 +94.516411 -77.343750 +95.625000 -77.034063 +97.031250 -76.835891 +98.437500 -76.598856 +99.843750 -76.449105 +101.250000 -76.258809 +102.656250 -75.967069 +102.757372 -75.937500 +104.062500 -75.339623 +105.468750 -74.744235 +105.857251 -74.531250 +106.875000 -73.694173 +108.281250 -73.598113 +109.687500 -73.722695 +111.093750 -73.765074 +112.500000 -73.457528 +7 +111.093750 74.123237 +109.687500 74.443066 +109.592391 74.531250 +109.687500 74.657625 +111.093750 75.615621 +112.403738 74.531250 +111.093750 74.123237 +7 +-108.281250 -70.875893 +-106.875000 -70.444395 +-106.750063 -70.312500 +-106.875000 -69.621548 +-108.281250 -70.144324 +-108.486198 -70.312500 +-108.281250 -70.875893 +21 +-108.281250 58.486371 +-106.875000 58.627152 +-106.005056 59.062500 +-105.468750 59.637888 +-104.062500 60.243661 +-102.881802 59.062500 +-102.656250 58.998235 +-102.305993 59.062500 +-102.497352 60.468750 +-102.656250 60.489768 +-104.062500 60.894232 +-104.312325 61.875000 +-104.403597 63.281250 +-105.468750 63.747303 +-106.875000 63.799368 +-107.463158 63.281250 +-108.281250 62.178753 +-108.554841 61.875000 +-109.455720 60.468750 +-108.958510 59.062500 +-108.281250 58.486371 +27 +-108.281250 87.145888 +-106.875000 87.148184 +-105.468750 87.043535 +-104.062500 86.937555 +-102.656250 86.936496 +-101.250000 86.916324 +-99.843750 86.773125 +-98.437500 86.687809 +-97.031250 86.744422 +-95.625000 86.638913 +-94.218750 86.563712 +-92.812500 86.791471 +-91.450299 87.187500 +-92.812500 87.342176 +-94.218750 87.621566 +-95.625000 87.797400 +-97.031250 87.705699 +-98.437500 87.705831 +-99.843750 87.665705 +-101.250000 87.538396 +-102.656250 87.502028 +-104.062500 87.506683 +-105.468750 87.363172 +-106.875000 87.226273 +-108.281250 87.222806 +-108.674456 87.187500 +-108.281250 87.145888 +17 +109.687500 0.990089 +109.781381 1.406250 +109.780166 2.812500 +109.918171 4.218750 +109.687500 4.873347 +108.776445 5.625000 +108.281250 5.790241 +107.887921 5.625000 +106.875000 5.235046 +105.980008 4.218750 +106.008190 2.812500 +105.719718 1.406250 +105.715757 0.000000 +106.875000 -0.962552 +108.281250 -1.220575 +109.425159 0.000000 +109.687500 0.990089 +57 +-106.875000 -58.401031 +-106.299807 -59.062500 +-105.468750 -59.558759 +-104.062500 -59.682541 +-102.656250 -60.315797 +-102.564411 -60.468750 +-102.656250 -60.914944 +-102.783517 -61.875000 +-102.736243 -63.281250 +-102.656250 -63.350838 +-101.250000 -63.644687 +-99.843750 -63.428384 +-99.371987 -63.281250 +-98.437500 -62.595491 +-97.493559 -61.875000 +-97.031250 -61.655447 +-95.625000 -61.812953 +-94.375636 -61.875000 +-94.218750 -61.887565 +-92.812500 -62.853018 +-92.037429 -63.281250 +-91.406250 -63.964569 +-91.223923 -63.281250 +-90.000000 -61.951289 +-89.710334 -61.875000 +-88.593750 -61.271816 +-87.702133 -60.468750 +-88.593750 -59.401204 +-89.555280 -59.062500 +-90.000000 -58.061579 +-91.406250 -58.459479 +-92.812500 -58.190851 +-94.218750 -58.276326 +-95.625000 -58.423012 +-97.031250 -58.209410 +-98.437500 -57.842215 +-98.967319 -57.656250 +-99.843750 -56.386884 +-99.954541 -56.250000 +-100.348297 -54.843750 +-99.843750 -54.111859 +-99.361283 -53.437500 +-98.971032 -52.031250 +-99.843750 -51.389835 +-101.250000 -51.498468 +-102.656250 -51.739533 +-103.165470 -52.031250 +-104.062500 -52.983415 +-104.817893 -53.437500 +-104.771689 -54.843750 +-104.062500 -55.992307 +-103.901885 -56.250000 +-104.062500 -56.678727 +-105.468750 -56.729231 +-106.875000 -57.211001 +-107.290991 -57.656250 +-106.875000 -58.401031 +7 +-104.062500 -82.996148 +-102.656250 -83.065019 +-101.820936 -82.968750 +-102.656250 -81.917859 +-104.062500 -81.825902 +-104.278848 -82.968750 +-104.062500 -82.996148 +5 +-104.062500 21.040019 +-103.943158 21.093750 +-104.062500 21.119932 +-104.592526 21.093750 +-104.062500 21.040019 +7 +-102.656250 76.253681 +-102.891801 77.343750 +-102.656250 77.585830 +-101.250000 77.997898 +-99.998293 77.343750 +-101.250000 76.794690 +-102.656250 76.253681 +11 +-101.250000 20.821615 +-100.117984 21.093750 +-99.843750 21.230575 +-98.437500 22.448574 +-98.314106 22.500000 +-98.437500 22.577527 +-99.843750 23.039453 +-101.250000 22.859185 +-101.830174 22.500000 +-101.995623 21.093750 +-101.250000 20.821615 +7 +102.656250 -63.292950 +102.697341 -63.281250 +102.656250 -63.266249 +101.250000 -63.249231 +101.175744 -63.281250 +101.250000 -63.711887 +102.656250 -63.292950 +31 +101.250000 -23.254723 +101.905508 -22.500000 +102.028465 -21.093750 +101.250000 -19.754991 +101.101078 -19.687500 +99.843750 -19.049650 +98.437500 -18.516278 +97.829216 -18.281250 +97.031250 -18.106356 +95.625000 -17.570554 +94.971126 -16.875000 +94.218750 -15.766327 +93.670486 -15.468750 +92.812500 -14.639022 +91.406250 -14.666869 +90.000000 -14.720312 +89.123723 -15.468750 +89.817359 -16.875000 +90.000000 -17.050295 +91.406250 -17.402545 +92.465820 -18.281250 +92.812500 -18.429249 +94.218750 -19.438762 +94.650410 -19.687500 +95.625000 -20.511335 +97.031250 -21.086212 +97.036873 -21.093750 +98.209249 -22.500000 +98.437500 -22.663235 +99.843750 -23.736705 +101.250000 -23.254723 +11 +101.250000 2.404692 +101.656762 2.812500 +102.197691 4.218750 +101.640374 5.625000 +101.250000 5.930297 +100.971577 5.625000 +99.956070 4.218750 +99.843750 3.618401 +99.719871 2.812500 +99.843750 2.601869 +101.250000 2.404692 +19 +99.843750 -66.568660 +100.606520 -66.093750 +100.894203 -64.687500 +99.843750 -64.305557 +98.437500 -64.211230 +97.031250 -64.107310 +95.625000 -64.159305 +94.218750 -64.412806 +93.521382 -64.687500 +92.812500 -65.576869 +92.318150 -66.093750 +92.812500 -66.736479 +93.345922 -67.500000 +94.218750 -67.985727 +95.625000 -68.221034 +97.031250 -68.168635 +98.437500 -67.729946 +98.976308 -67.500000 +99.843750 -66.568660 +5 +-97.031250 36.150934 +-95.853460 36.562500 +-97.031250 36.802531 +-97.314036 36.562500 +-97.031250 36.150934 +5 +-97.031250 63.279573 +-97.038285 63.281250 +-97.031250 63.287057 +-97.025147 63.281250 +-97.031250 63.279573 +65 +-95.625000 -36.899085 +-94.218750 -36.964380 +-92.812500 -36.876635 +-92.208598 -36.562500 +-91.406250 -36.242249 +-90.000000 -35.972474 +-88.593750 -36.143222 +-87.572380 -36.562500 +-87.187500 -36.719268 +-85.781250 -37.806428 +-85.405056 -37.968750 +-84.375000 -38.952627 +-83.984971 -37.968750 +-84.062603 -36.562500 +-83.578321 -35.156250 +-82.968750 -34.743168 +-81.893276 -35.156250 +-81.562500 -35.352204 +-80.714973 -35.156250 +-80.573472 -33.750000 +-80.505257 -32.343750 +-80.586641 -30.937500 +-80.156250 -30.558794 +-79.355956 -29.531250 +-78.750000 -28.642044 +-78.088156 -28.125000 +-78.750000 -27.489387 +-79.373442 -26.718750 +-79.672522 -25.312500 +-78.948112 -23.906250 +-78.895257 -22.500000 +-78.932203 -21.093750 +-80.156250 -20.063917 +-81.562500 -19.929490 +-82.968750 -20.616335 +-83.796559 -21.093750 +-84.375000 -21.454204 +-84.656709 -21.093750 +-85.089068 -19.687500 +-85.781250 -18.901285 +-86.661863 -18.281250 +-87.187500 -17.804643 +-87.623408 -18.281250 +-88.495483 -19.687500 +-88.593750 -19.887811 +-89.167792 -21.093750 +-89.661716 -22.500000 +-90.000000 -22.995541 +-90.364309 -23.906250 +-91.406250 -24.983853 +-92.474651 -25.312500 +-92.812500 -25.569178 +-94.218750 -26.511384 +-94.332108 -26.718750 +-94.218750 -26.834538 +-93.659158 -28.125000 +-94.178073 -29.531250 +-94.218750 -29.656834 +-95.221882 -30.937500 +-94.773693 -32.343750 +-95.625000 -33.258717 +-95.951363 -33.750000 +-96.586100 -35.156250 +-96.080357 -36.562500 +-95.625000 -36.899085 +37 +-95.625000 21.621992 +-95.365410 21.093750 +-94.367903 19.687500 +-94.218750 19.091899 +-93.785630 18.281250 +-92.812500 17.729790 +-91.406250 17.978389 +-90.152054 18.281250 +-91.406250 19.245708 +-91.547667 19.687500 +-91.406250 19.912558 +-90.000000 20.103235 +-89.970663 19.687500 +-89.987515 18.281250 +-89.406590 16.875000 +-88.593750 15.705743 +-87.187500 16.044443 +-86.679121 16.875000 +-85.781250 17.672721 +-85.357526 18.281250 +-85.611664 19.687500 +-85.781250 19.824324 +-87.187500 20.679722 +-88.324497 21.093750 +-88.593750 22.072178 +-88.881188 22.500000 +-89.076427 23.906250 +-88.773923 25.312500 +-90.000000 25.426408 +-90.176131 25.312500 +-91.406250 24.453623 +-92.812500 25.308849 +-94.218750 25.107324 +-95.625000 24.185900 +-96.258613 23.906250 +-96.413371 22.500000 +-95.625000 21.621992 +9 +-94.218750 10.128445 +-92.812500 10.738106 +-92.330833 11.250000 +-91.857230 12.656250 +-92.812500 13.299316 +-94.218750 12.843586 +-94.386323 12.656250 +-94.957220 11.250000 +-94.218750 10.128445 +9 +95.625000 -85.929058 +96.509071 -85.781250 +95.625000 -85.640755 +94.218750 -85.650530 +92.812500 -85.769199 +92.750223 -85.781250 +92.812500 -85.793698 +94.218750 -85.925093 +95.625000 -85.929058 +7 +-92.812500 25.318635 +-92.100391 26.718750 +-91.607920 28.125000 +-92.812500 28.823738 +-93.798143 28.125000 +-93.504254 26.718750 +-92.812500 25.318635 +7 +94.218750 75.266702 +92.812500 75.635246 +92.638920 75.937500 +92.812500 76.030999 +94.218750 76.615104 +95.306432 75.937500 +94.218750 75.266702 +9 +-91.406250 2.779857 +-91.217836 2.812500 +-90.000000 3.111012 +-89.473583 4.218750 +-90.000000 4.572675 +-91.406250 4.361185 +-91.830498 4.218750 +-91.504364 2.812500 +-91.406250 2.779857 +23 +-90.000000 -57.474306 +-89.931535 -57.656250 +-88.593750 -58.760711 +-87.187500 -58.311908 +-85.781250 -58.508060 +-84.614628 -59.062500 +-84.375000 -59.161953 +-83.969102 -59.062500 +-82.968750 -58.804537 +-81.964114 -57.656250 +-82.238318 -56.250000 +-82.968750 -55.317387 +-83.224950 -54.843750 +-83.357149 -53.437500 +-84.375000 -52.717808 +-85.781250 -52.640000 +-87.187500 -53.425348 +-87.190373 -53.437500 +-87.912126 -54.843750 +-88.593750 -55.215088 +-90.000000 -55.839980 +-90.602209 -56.250000 +-90.000000 -57.474306 +13 +-90.000000 -45.769485 +-89.410762 -46.406250 +-88.593750 -46.912695 +-87.187500 -46.574053 +-86.841986 -46.406250 +-86.025973 -45.000000 +-86.629186 -43.593750 +-87.187500 -42.536627 +-88.593750 -42.305208 +-89.769451 -43.593750 +-90.000000 -43.754802 +-90.471456 -45.000000 +-90.000000 -45.769485 +19 +-90.000000 48.541140 +-89.339251 47.812500 +-88.593750 46.983803 +-87.704230 47.812500 +-87.187500 48.255374 +-86.436111 49.218750 +-85.781250 50.013753 +-84.849441 50.625000 +-84.375000 51.263487 +-83.986621 52.031250 +-84.375000 52.340253 +-85.781250 52.645714 +-86.801642 52.031250 +-87.187500 51.656446 +-88.593750 51.356542 +-89.798034 50.625000 +-90.000000 50.336559 +-90.453323 49.218750 +-90.000000 48.541140 +9 +-90.000000 65.525849 +-90.395514 66.093750 +-90.000000 66.338879 +-88.745156 67.500000 +-88.593750 67.695664 +-88.354294 67.500000 +-88.254270 66.093750 +-88.593750 65.796701 +-90.000000 65.525849 +21 +-90.000000 72.461189 +-90.867734 73.125000 +-90.000000 74.365692 +-89.834430 74.531250 +-88.593750 74.868821 +-87.187500 74.944117 +-85.781250 74.966118 +-84.375000 74.800992 +-82.968750 74.584199 +-81.923925 74.531250 +-81.562500 74.020529 +-81.484797 73.125000 +-81.562500 73.064291 +-82.968750 72.623956 +-84.375000 72.297906 +-85.781250 71.895584 +-86.131822 71.718750 +-87.187500 71.086865 +-88.593750 70.919531 +-89.491736 71.718750 +-90.000000 72.461189 +7 +90.000000 16.769948 +90.773445 16.875000 +90.282464 18.281250 +90.000000 18.453628 +89.861983 18.281250 +89.746893 16.875000 +90.000000 16.769948 +7 +-87.187500 -61.895966 +-85.781250 -61.981237 +-85.278561 -61.875000 +-85.781250 -61.634811 +-87.187500 -61.755490 +-87.281182 -61.875000 +-87.187500 -61.895966 +5 +-87.187500 -50.855100 +-87.147032 -50.625000 +-87.187500 -50.587252 +-87.281913 -50.625000 +-87.187500 -50.855100 +13 +87.187500 -17.681495 +87.794202 -16.875000 +87.446947 -15.468750 +87.187500 -15.244944 +85.781250 -14.980785 +85.394412 -15.468750 +84.375000 -15.968378 +83.330585 -16.875000 +83.011012 -18.281250 +84.375000 -18.785921 +85.781250 -18.968217 +86.930950 -18.281250 +87.187500 -17.681495 +15 +84.375000 -29.884071 +85.052973 -29.531250 +84.565062 -28.125000 +84.375000 -27.767324 +83.209446 -26.718750 +82.968750 -26.592598 +81.562500 -25.851473 +80.156250 -26.409045 +79.961741 -26.718750 +80.156250 -27.500521 +80.338578 -28.125000 +81.058715 -29.531250 +81.562500 -30.194499 +82.968750 -30.222619 +84.375000 -29.884071 +19 +-81.562500 -73.163199 +-81.637263 -73.125000 +-81.562500 -72.955251 +-80.156250 -72.121604 +-79.531829 -71.718750 +-78.750000 -71.515571 +-77.343750 -71.493079 +-75.937500 -71.674514 +-75.798361 -71.718750 +-74.531250 -72.164990 +-73.125000 -72.863064 +-72.488807 -73.125000 +-73.125000 -73.663123 +-74.531250 -74.349671 +-75.937500 -74.071860 +-77.343750 -73.759734 +-78.750000 -73.663990 +-80.156250 -73.542955 +-81.562500 -73.163199 +11 +-81.562500 86.939993 +-80.156250 86.872754 +-78.750000 86.921762 +-77.343750 87.148621 +-77.187543 87.187500 +-77.343750 87.274361 +-78.750000 87.746306 +-80.156250 87.676526 +-81.562500 87.444789 +-82.869968 87.187500 +-81.562500 86.939993 +11 +-80.156250 4.225714 +-78.750000 4.905835 +-78.138423 5.625000 +-77.343750 6.545848 +-76.751685 7.031250 +-77.343750 8.096304 +-78.750000 8.361776 +-80.156250 8.055889 +-81.075477 7.031250 +-81.149530 5.625000 +-80.156250 4.225714 +7 +81.562500 29.409075 +81.274249 29.531250 +81.545598 30.937500 +81.562500 30.954413 +81.571471 30.937500 +81.697521 29.531250 +81.562500 29.409075 +7 +80.156250 -19.888954 +80.307056 -19.687500 +80.156250 -19.493750 +78.750000 -18.901361 +78.389892 -19.687500 +78.750000 -20.117004 +80.156250 -19.888954 +13 +-75.937500 -44.175142 +-75.740060 -45.000000 +-74.531250 -45.692428 +-73.392605 -45.000000 +-73.125000 -44.481357 +-72.845263 -43.593750 +-73.125000 -42.961032 +-74.259116 -42.187500 +-74.531250 -42.050907 +-74.867681 -42.187500 +-75.937500 -43.263576 +-76.034779 -43.593750 +-75.937500 -44.175142 +5 +-75.937500 75.543730 +-76.981359 75.937500 +-75.937500 76.463646 +-75.436563 75.937500 +-75.937500 75.543730 +21 +-74.531250 -52.142225 +-73.125000 -53.305957 +-72.604311 -53.437500 +-71.718750 -54.252245 +-71.125507 -53.437500 +-70.312500 -52.572162 +-70.105087 -52.031250 +-69.782434 -50.625000 +-68.906250 -49.293594 +-68.769420 -49.218750 +-68.906250 -48.813635 +-69.253026 -47.812500 +-70.312500 -47.206309 +-71.718750 -46.514043 +-73.125000 -46.966773 +-73.997590 -47.812500 +-74.531250 -48.227970 +-75.586564 -49.218750 +-75.604088 -50.625000 +-74.612707 -52.031250 +-74.531250 -52.142225 +5 +-73.125000 72.924197 +-74.311487 73.125000 +-73.125000 73.312106 +-72.267969 73.125000 +-73.125000 72.924197 +35 +-71.718750 -21.768828 +-70.489361 -22.500000 +-70.312500 -22.681685 +-69.780968 -23.906250 +-69.756018 -25.312500 +-68.906250 -26.026856 +-67.547058 -26.718750 +-67.500000 -26.737109 +-66.093750 -27.600716 +-64.807548 -28.125000 +-64.687500 -28.203753 +-63.281250 -28.793535 +-61.875000 -28.977202 +-61.273836 -28.125000 +-60.468750 -27.374394 +-59.753578 -26.718750 +-59.062500 -26.230311 +-57.656250 -25.657664 +-57.260011 -25.312500 +-56.627497 -23.906250 +-57.656250 -23.293106 +-58.921645 -22.500000 +-59.062500 -22.435837 +-60.468750 -21.128312 +-60.524982 -21.093750 +-61.875000 -20.236040 +-63.281250 -20.114477 +-64.687500 -19.871326 +-66.093750 -19.777007 +-67.500000 -20.205162 +-68.906250 -20.436961 +-70.312500 -19.821953 +-71.718750 -20.349205 +-72.362307 -21.093750 +-71.718750 -21.768828 +11 +73.125000 -70.715143 +71.718750 -71.121918 +70.312500 -71.405525 +68.906250 -71.647417 +68.543123 -70.312500 +68.906250 -69.689478 +70.312500 -69.223103 +71.718750 -69.364251 +73.125000 -69.910571 +73.833506 -70.312500 +73.125000 -70.715143 +9 +73.125000 43.738555 +74.040002 45.000000 +74.277886 46.406250 +73.125000 46.953061 +71.718750 46.915355 +70.799620 46.406250 +70.617918 45.000000 +71.718750 43.761114 +73.125000 43.738555 +9 +71.718750 73.105561 +70.312500 72.900784 +69.683686 73.125000 +69.647346 74.531250 +70.312500 74.764708 +71.187468 74.531250 +71.718750 73.233386 +71.734080 73.125000 +71.718750 73.105561 +23 +-67.500000 -80.526663 +-66.093750 -80.308398 +-64.850007 -80.156250 +-64.687500 -80.124258 +-64.469460 -80.156250 +-63.281250 -80.368254 +-61.875000 -80.624865 +-60.861154 -80.156250 +-60.468750 -79.779757 +-59.062500 -78.853713 +-58.957622 -78.750000 +-59.062500 -78.692591 +-60.468750 -78.459397 +-61.875000 -78.401961 +-63.281250 -77.696438 +-63.912729 -77.343750 +-64.687500 -77.206565 +-65.022301 -77.343750 +-66.093750 -77.968924 +-67.500000 -78.573207 +-67.831181 -78.750000 +-68.470559 -80.156250 +-67.500000 -80.526663 +11 +68.906250 54.853517 +67.500000 55.461256 +66.093750 55.724327 +65.324178 56.250000 +64.896849 57.656250 +66.093750 58.780206 +67.500000 58.623635 +68.812059 57.656250 +68.906250 57.550458 +70.118462 56.250000 +68.906250 54.853517 +9 +-66.093750 -42.001224 +-65.326060 -42.187500 +-64.687500 -42.462091 +-63.881724 -42.187500 +-63.999799 -40.781250 +-64.687500 -40.274890 +-66.093750 -39.380806 +-67.186720 -40.781250 +-66.093750 -42.001224 +7 +67.500000 -67.791308 +66.093750 -67.736568 +64.887107 -67.500000 +66.093750 -67.077246 +67.500000 -67.193416 +67.886679 -67.500000 +67.500000 -67.791308 +9 +67.500000 -62.619611 +66.382956 -63.281250 +66.093750 -63.367214 +65.770301 -63.281250 +64.782108 -61.875000 +66.093750 -61.584713 +67.500000 -61.388378 +68.370966 -61.875000 +67.500000 -62.619611 +5 +67.500000 77.513026 +66.819473 78.750000 +67.500000 79.127997 +68.645239 78.750000 +67.500000 77.513026 +25 +63.281250 -49.692852 +63.788330 -49.218750 +63.337755 -47.812500 +63.281250 -47.776360 +61.875000 -47.608452 +61.104906 -47.812500 +60.468750 -48.080272 +59.119805 -49.218750 +59.062500 -49.389695 +57.656250 -50.066995 +56.250000 -49.297097 +55.288682 -49.218750 +54.843750 -49.191586 +54.796374 -49.218750 +53.491722 -50.625000 +54.526567 -52.031250 +54.843750 -52.257312 +56.250000 -52.289724 +57.222271 -52.031250 +57.656250 -51.696070 +59.062500 -51.171326 +60.468750 -50.924941 +61.340386 -50.625000 +61.875000 -50.510832 +63.281250 -49.692852 +11 +-60.468750 -39.516983 +-60.325260 -39.375000 +-59.062500 -38.072102 +-59.020595 -37.968750 +-59.009590 -36.562500 +-59.062500 -36.507559 +-60.468750 -35.635035 +-61.543683 -36.562500 +-61.724868 -37.968750 +-60.587116 -39.375000 +-60.468750 -39.516983 +11 +61.875000 -73.224048 +60.468750 -73.575181 +59.062500 -73.521288 +58.123072 -73.125000 +59.062500 -72.536193 +60.410955 -71.718750 +60.468750 -71.678022 +61.875000 -71.691886 +61.925332 -71.718750 +62.049215 -73.125000 +61.875000 -73.224048 +5 +61.875000 73.963209 +61.025004 74.531250 +61.875000 74.994401 +62.702243 74.531250 +61.875000 73.963209 +23 +59.062500 32.664286 +60.245105 33.750000 +60.306007 35.156250 +60.408808 36.562500 +60.197067 37.968750 +59.062500 38.354738 +58.050140 37.968750 +57.656250 37.733824 +56.341282 36.562500 +56.250000 36.494218 +55.130114 35.156250 +54.892461 33.750000 +54.850086 32.343750 +54.843750 32.314196 +54.438538 30.937500 +54.016941 29.531250 +54.843750 28.994792 +56.250000 29.456315 +56.370334 29.531250 +57.281324 30.937500 +57.656250 31.273500 +58.574251 32.343750 +59.062500 32.664286 +5 +-56.250000 -52.551643 +-56.103498 -52.031250 +-56.250000 -51.970050 +-56.392427 -52.031250 +-56.250000 -52.551643 +5 +-56.250000 84.214629 +-56.613060 84.375000 +-56.250000 84.534186 +-55.931166 84.375000 +-56.250000 84.214629 +7 +56.250000 78.350120 +54.843750 78.511345 +54.478598 78.750000 +54.843750 78.990731 +56.250000 79.312757 +57.160591 78.750000 +56.250000 78.350120 +21 +-53.437500 -31.041518 +-52.031250 -32.282951 +-51.940787 -32.343750 +-50.625000 -32.765785 +-49.218750 -32.897371 +-47.812500 -32.652363 +-47.393428 -32.343750 +-47.169616 -30.937500 +-47.812500 -30.434156 +-49.218750 -29.859077 +-49.810112 -29.531250 +-50.588956 -28.125000 +-50.625000 -28.053249 +-51.347025 -26.718750 +-52.031250 -26.115905 +-53.437500 -26.031407 +-54.075086 -26.718750 +-54.646531 -28.125000 +-54.311046 -29.531250 +-53.608458 -30.937500 +-53.437500 -31.041518 +43 +54.843750 -85.036210 +55.415899 -84.375000 +54.843750 -83.296557 +53.437500 -83.027114 +53.387383 -82.968750 +52.031250 -82.581868 +50.625000 -82.438764 +49.218750 -82.525131 +47.812500 -82.575505 +46.406250 -82.566085 +45.000000 -82.507188 +43.593750 -82.495293 +42.187500 -82.576474 +40.781250 -82.575784 +39.375000 -82.460530 +37.968750 -82.393470 +36.562500 -82.444265 +35.156250 -82.430141 +33.750000 -82.379204 +32.343750 -82.789010 +32.061693 -82.968750 +30.937500 -84.289054 +30.738357 -84.375000 +30.937500 -84.398856 +32.343750 -84.577097 +33.750000 -84.471499 +35.156250 -84.401573 +36.562500 -84.526355 +37.968750 -84.590771 +39.375000 -84.618557 +40.781250 -84.650891 +42.187500 -84.719229 +43.593750 -84.769362 +45.000000 -84.481833 +45.823812 -84.375000 +46.406250 -84.242680 +46.832301 -84.375000 +47.812500 -84.493086 +49.218750 -84.712423 +50.625000 -84.792404 +52.031250 -84.761336 +53.437500 -84.882516 +54.843750 -85.036210 +7 +54.843750 -68.947377 +53.437500 -68.934047 +53.234191 -68.906250 +53.437500 -68.892326 +54.843750 -68.891126 +54.900826 -68.906250 +54.843750 -68.947377 +9 +-49.218750 -81.887921 +-47.812500 -82.047590 +-46.731946 -81.562500 +-47.486038 -80.156250 +-47.812500 -80.124917 +-48.609076 -80.156250 +-49.218750 -80.264256 +-49.611378 -81.562500 +-49.218750 -81.887921 +13 +50.625000 46.010541 +50.852182 46.406250 +50.625000 47.620346 +50.541046 47.812500 +49.218750 48.748301 +47.812500 48.329288 +47.531596 47.812500 +47.183953 46.406250 +47.356748 45.000000 +47.812500 44.441934 +49.218750 44.491955 +49.763469 45.000000 +50.625000 46.010541 +23 +49.218750 27.597499 +49.826862 28.125000 +49.218750 29.375228 +49.135904 29.531250 +48.303960 30.937500 +47.812500 32.025180 +47.280877 32.343750 +46.406250 32.895825 +45.975151 32.343750 +45.136029 30.937500 +45.000000 30.615551 +43.593750 30.324844 +42.187500 29.573000 +42.166395 29.531250 +42.187500 29.499166 +43.593750 28.737228 +45.000000 28.756923 +45.356660 28.125000 +46.406250 27.127809 +47.762684 26.718750 +47.812500 26.712392 +47.834100 26.718750 +49.218750 27.597499 +9 +49.218750 74.186665 +47.812500 73.973268 +46.406250 74.346528 +46.303403 74.531250 +46.406250 74.739779 +47.812500 75.573638 +49.218750 74.696413 +49.695974 74.531250 +49.218750 74.186665 +13 +47.812500 13.462659 +48.478066 14.062500 +48.922295 15.468750 +49.158756 16.875000 +47.868535 18.281250 +47.812500 18.317870 +46.406250 18.518897 +45.023042 18.281250 +45.181955 16.875000 +46.176250 15.468750 +46.406250 15.110918 +47.416771 14.062500 +47.812500 13.462659 +17 +45.000000 -56.485711 +43.593750 -56.450045 +42.310936 -57.656250 +42.187500 -58.600236 +40.781250 -58.406702 +39.375000 -57.686032 +39.320821 -57.656250 +39.375000 -57.579740 +40.019177 -56.250000 +40.781250 -55.140981 +40.950544 -54.843750 +42.187500 -54.077050 +43.593750 -53.913389 +45.000000 -54.251026 +45.699496 -54.843750 +45.729117 -56.250000 +45.000000 -56.485711 +9 +45.000000 64.671960 +44.414966 64.687500 +43.593750 65.782574 +43.493038 66.093750 +43.593750 66.117214 +43.618928 66.093750 +45.000000 64.748964 +45.425409 64.687500 +45.000000 64.671960 +27 +45.000000 79.770432 +44.045242 78.750000 +43.593750 78.000909 +42.187500 77.601891 +40.781250 77.502131 +40.497241 77.343750 +39.375000 76.241811 +37.968750 76.962980 +37.561252 77.343750 +36.562500 78.222311 +36.174407 78.750000 +36.562500 79.202949 +37.968750 80.097954 +38.139869 80.156250 +39.375000 80.545218 +40.781250 81.107163 +41.260327 81.562500 +40.781250 82.458748 +40.095521 82.968750 +40.781250 83.749047 +42.187500 83.877583 +43.593750 83.987971 +45.000000 83.783952 +45.739747 82.968750 +46.190017 81.562500 +45.303378 80.156250 +45.000000 79.770432 +5 +42.187500 -34.242124 +43.043210 -33.750000 +42.187500 -33.526210 +41.761880 -33.750000 +42.187500 -34.242124 +7 +42.187500 74.024704 +41.206873 74.531250 +41.615273 75.937500 +42.187500 76.359022 +42.532783 75.937500 +42.748664 74.531250 +42.187500 74.024704 +11 +40.781250 -32.503213 +40.855535 -32.343750 +40.781250 -32.243279 +40.311637 -30.937500 +39.375000 -30.330374 +37.968750 -29.775021 +36.721178 -30.937500 +37.369707 -32.343750 +37.968750 -32.986083 +39.375000 -33.217595 +40.781250 -32.503213 +5 +-37.968750 -74.563334 +-38.020453 -74.531250 +-37.968750 -74.498982 +-37.853074 -74.531250 +-37.968750 -74.563334 +17 +37.968750 70.989874 +36.562500 70.742193 +35.156250 71.307662 +33.750000 70.507940 +33.338951 70.312500 +32.343750 70.143299 +31.894094 70.312500 +31.867035 71.718750 +32.343750 72.096693 +33.750000 72.335935 +35.156250 72.849971 +35.302947 73.125000 +36.562500 73.562019 +37.968750 73.276519 +38.674900 73.125000 +38.860264 71.718750 +37.968750 70.989874 +15 +-35.156250 -73.285660 +-35.298467 -73.125000 +-35.156250 -72.818768 +-34.824334 -71.718750 +-33.750000 -70.728321 +-32.860519 -70.312500 +-32.343750 -69.957925 +-30.937500 -70.127264 +-30.690422 -70.312500 +-30.039299 -71.718750 +-30.937500 -72.143757 +-32.343750 -72.590461 +-33.240776 -73.125000 +-33.750000 -73.618471 +-35.156250 -73.285660 +7 +36.562500 25.111108 +37.330748 25.312500 +37.562741 26.718750 +36.562500 27.265814 +35.511075 26.718750 +35.892646 25.312500 +36.562500 25.111108 +5 +-33.750000 -48.416730 +-32.713977 -47.812500 +-33.750000 -46.959907 +-33.930475 -47.812500 +-33.750000 -48.416730 +5 +-33.750000 -45.134808 +-33.734045 -45.000000 +-33.750000 -44.784744 +-33.790603 -45.000000 +-33.750000 -45.134808 +7 +32.343750 -38.544800 +32.988007 -37.968750 +32.343750 -37.695003 +30.937500 -37.929353 +30.872006 -37.968750 +30.937500 -38.039964 +32.343750 -38.544800 +7 +30.937500 -55.026902 +29.531250 -55.422303 +29.271664 -54.843750 +29.531250 -54.556378 +30.937500 -54.249788 +31.176423 -54.843750 +30.937500 -55.026902 +19 +-28.125000 -76.044125 +-28.173609 -75.937500 +-28.125000 -75.903605 +-26.718750 -74.760908 +-26.513502 -74.531250 +-25.312500 -73.951330 +-23.960041 -73.125000 +-23.906250 -73.087086 +-22.500000 -72.776960 +-21.093750 -72.999045 +-21.021759 -73.125000 +-21.093750 -73.322691 +-22.500000 -74.279757 +-22.660453 -74.531250 +-23.906250 -75.061560 +-25.312500 -75.774359 +-25.495808 -75.937500 +-26.718750 -76.492488 +-28.125000 -76.044125 +9 +-25.312500 -85.819654 +-23.906250 -85.907644 +-22.500000 -85.799598 +-22.421040 -85.781250 +-22.500000 -85.740648 +-23.906250 -85.601065 +-25.312500 -85.741601 +-25.444361 -85.781250 +-25.312500 -85.819654 +9 +26.718750 -84.461209 +27.970272 -84.375000 +26.718750 -83.980015 +25.312500 -83.766593 +23.906250 -84.156484 +23.814727 -84.375000 +23.906250 -84.391009 +25.312500 -84.485201 +26.718750 -84.461209 +11 +26.718750 -32.833905 +27.043433 -32.343750 +27.032616 -30.937500 +26.718750 -30.368426 +25.312500 -30.124245 +24.547786 -30.937500 +23.906250 -31.592928 +23.281180 -32.343750 +23.906250 -32.993929 +25.312500 -33.426478 +26.718750 -32.833905 +9 +25.312500 -75.960030 +23.906250 -76.205680 +22.500000 -75.983087 +22.416174 -75.937500 +22.500000 -75.904872 +23.906250 -75.643148 +25.312500 -75.893382 +25.600471 -75.937500 +25.312500 -75.960030 +9 +16.875000 -12.048682 +18.164450 -11.250000 +16.917150 -9.843750 +16.875000 -9.828710 +16.776923 -9.843750 +15.468750 -10.069468 +14.719881 -11.250000 +15.468750 -12.373568 +16.875000 -12.048682 +9 +16.875000 77.041021 +15.468750 76.738451 +14.062500 77.119721 +13.786437 77.343750 +14.062500 78.053720 +15.468750 78.273339 +16.875000 78.035382 +17.239179 77.343750 +16.875000 77.041021 +5 +16.875000 85.742199 +16.996236 85.781250 +16.875000 85.804517 +16.572978 85.781250 +16.875000 85.742199 +5 +14.062500 -24.049254 +14.218972 -23.906250 +14.062500 -23.691899 +13.055151 -23.906250 +14.062500 -24.049254 +5 +12.656250 80.043520 +12.581502 80.156250 +12.656250 80.501472 +13.287213 80.156250 +12.656250 80.043520 +13 +12.656250 85.615538 +13.098946 85.781250 +12.656250 85.830122 +11.250000 85.907375 +9.843750 85.864231 +8.437500 85.906984 +7.031250 85.812674 +6.785576 85.781250 +7.031250 85.717353 +8.437500 85.491989 +9.843750 85.476684 +11.250000 85.407099 +12.656250 85.615538 +11 +-9.843750 -75.055633 +-10.516287 -74.531250 +-9.843750 -74.101862 +-8.437500 -73.898514 +-7.031250 -73.750515 +-5.625000 -74.183735 +-5.328005 -74.531250 +-5.625000 -74.625335 +-7.031250 -74.727905 +-8.437500 -74.786327 +-9.843750 -75.055633 +9 +11.250000 -56.617812 +9.843750 -56.548894 +9.327744 -56.250000 +9.589713 -54.843750 +9.843750 -54.649872 +11.250000 -54.725869 +11.401676 -54.843750 +11.993411 -56.250000 +11.250000 -56.617812 +7 +9.843750 1.367368 +10.186954 1.406250 +9.994340 2.812500 +9.843750 2.847075 +9.812549 2.812500 +9.812555 1.406250 +9.843750 1.367368 +7 +8.437500 -8.540763 +8.663317 -8.437500 +9.473741 -7.031250 +8.437500 -6.460477 +7.532672 -7.031250 +8.205522 -8.437500 +8.437500 -8.540763 +7 +-4.218750 -84.478383 +-2.812500 -84.542701 +-2.417838 -84.375000 +-2.812500 -84.268857 +-4.218750 -84.339264 +-4.670450 -84.375000 +-4.218750 -84.478383 +5 +5.625000 -59.383718 +5.348560 -59.062500 +5.625000 -58.867506 +5.800070 -59.062500 +5.625000 -59.383718 +5 +1.406250 -70.714274 +1.142810 -70.312500 +1.406250 -70.065286 +2.088889 -70.312500 +1.406250 -70.714274 diff --git a/Src/Celbody/SPICE/Config/Moon/Label.cfg b/Src/Celbody/SPICE/Config/Moon/Label.cfg new file mode 100644 index 000000000..2f6935239 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Moon/Label.cfg @@ -0,0 +1,15 @@ +E x S 255 64 64 Landing sites +A o O 192 128 128 Astronaut-named features +a x S 255 255 255 Catena +C x O 255 192 128 Crater +D x S 192 192 255 Dorsum +L x N 128 128 255 Lacus +m x N 192 192 255 Mare +M x D 255 128 0 Mons +P x S 255 255 255 Palus +p x D 255 128 192 Promontorium +r x S 192 192 64 Rima +R x S 255 255 255 Rupes +s o O 192 128 64 Satellite features +S x S 255 255 255 Sinus +V x N 128 255 128 Vallis \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Neptune.cfg b/Src/Celbody/SPICE/Config/Neptune.cfg new file mode 100644 index 000000000..f29fc69f4 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Neptune.cfg @@ -0,0 +1,43 @@ +; === Configuration file for planet Neptune === +Name = Neptune +Module = spice +Kernel = Kernels\orbiter.bsp +Body = NEPTUNE +Barycenter = NEPTUNE BARYCENTER +ParentBarycenter = SSB +Origin = SUN +Interval = 17000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.024569e+26 +Mass = 1.024355200305071e26 ; NEP095 GM=6.835102266003616E+06 km^3/s^2 +Size = 2.4624e7 ; mean radius +JCoeff = 0.004 ; J2 coefficient for gravitational potential +AlbedoRGB = 0.68 0.91 1.25 + +; === Rotation Elements === +; IAU_NEPTUNE +SidRotPeriod = 57996.0 +SidRotOffset = 1.0611654885108948 +Obliquity = 0.591115007710323 +LAN = 3.901190689896669 +LAN_MJD = 51544.5 +PrecessionPeriod = 15951423.904352069 +PrecessionObliquity = 0.14116830724828794 +PrecessionLAN = -0.08404086327549913 + +;=== Atmospheric Parameters === +AtmPressure0 = 41.4e4 ; so called 'surface' +AtmDensity0 = 0.5093 ; ? varies by depth +AtmGasConstant = 144.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 1.3333 ; ? specific heat ratio c_p/c_v +AtmAltLimit = 1800e3 +AtmHorizonAlt = 110e3 ; horizon rendering altitude [m] +AtmColor0 = 0.28 0.57 0.83 +AtmHazeColor = 0.38 0.43 0.73 +AtmHazeDensity = 1.5 +AtmHazeExtent = 0.14 + +; === Data for the Visual === +MaxPatchResolution = 6 ; highest sphere patch level + diff --git a/Src/Celbody/SPICE/Config/Nereid.cfg b/Src/Celbody/SPICE/Config/Nereid.cfg new file mode 100644 index 000000000..3f92cfa25 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Nereid.cfg @@ -0,0 +1,22 @@ +; === Configuration file for moon Nereid(Neptune) === +Name = Nereid +Module = spice +Kernel = Kernels\orbiter.bsp +Barycenter = NEREID +Body = NEREID +Origin = NEPTUNE +ParentBarycenter = NEPTUNE BARYCENTER +Interval = 18000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.317e19 ; Approx. Calculated using Phoebe's Density +Mass = 3.087257e19 ; GM=2.06 km^3/s^2 ( http://ssd.jpl.nasa.gov/?sat_phys_par ) +Size = 165e3 +SidRotPeriod = 41472.0 ; by Chode +SidRotOffset = 0 +Obliquity = 0.51452 ; inherit from Neptune +LAN = 2.29898 ; inherit from Neptune +AlbedoRGB = 0.17 0.16 0.17 ; by VF2_Rolf + +; === Visualisation Parameters === +MaxPatchResolution = 4 diff --git a/Src/Celbody/SPICE/Config/Nix.cfg b/Src/Celbody/SPICE/Config/Nix.cfg new file mode 100644 index 000000000..fa304e7ac --- /dev/null +++ b/Src/Celbody/SPICE/Config/Nix.cfg @@ -0,0 +1,27 @@ +; === Configuration file for Nix === +Name = Nix +Module = spice +Kernel = Kernels\orbiter.bsp +Body = NIX +Origin = PLUTO +Barycenter = NIX +ParentBarycenter = PLUTO BARYCENTER +Interval = 8600 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +;Mass = 4.5682046224475953e16 ; PLU043 GM=3.048175648169760E-03 km^3/s^2 +Mass = 2.6976031795749e16 ; PLU058 GM=1.800000000000000E-03 km^3/s^2 +Size = 45.5e3 ; radius (~ 23 ? 68 km) +SidRotPeriod = 2147472.337824 ; ? +SidRotOffset = 0 ; ? +Obliquity = 1.967795 ; ? +LAN = 0.831117 ; ? + +; === Visualisation Parameters === +AlbedoRGB = 0.51 0.51 0.50 + +; === Visualisation Parameters === +MaxPatchResolution = 0 diff --git a/Src/Celbody/SPICE/Config/Oberon.cfg b/Src/Celbody/SPICE/Config/Oberon.cfg new file mode 100644 index 000000000..7d12cf9b5 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Oberon.cfg @@ -0,0 +1,37 @@ +; === Configuration file for moon Oberon(Uranus) === +Name = Oberon +Module = spice +Kernel = Kernels\orbiter.bsp +Body = OBERON +Origin = URANUS +Barycenter = OBERON +ParentBarycenter = URANUS BARYCENTER +Interval = 4140 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 3.03e21 +Mass = 3.07711743496247e21 ; URA111 GM=2.053234302535623E+02 km^3/s^2 +Size = 761.4e3 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 2.927886186 +PrecessionObliquity = 1.434545402 +PrecessionPeriod = 26064.42255 +LAN = 4.990921993 +LAN_MJD = 51544.5 +Obliquity = 0.002746236454 +SidRotOffset = 4.639499899 +SidRotPeriod = -1163223.242 +;SidRotPeriod (days): -13.46323197 +;SidRotPeriod (days - node to node): -13.45628133 +;Precession Period (years): 71.36049978 +;Obliquity (deg): 0.1573477584 +;Ecliptic LAN (rad): 2.925221366 +;Ecliptic Obliquity (rad): 1.435300945 +;Ecliptic SidRotOffset (rad): 3.38763382 +;Axis RMS Error (deg): 0.4880827534 + +; === Visualisation Parameters === +AlbedoRGB = 0.26 0.23 0.21 ; by VF2_Rolf +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Phobos.cfg b/Src/Celbody/SPICE/Config/Phobos.cfg new file mode 100644 index 000000000..e1a0ee602 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Phobos.cfg @@ -0,0 +1,32 @@ +; === Configuration file for moon Phobos(Mars) === +Name = Phobos +Module = spice +Kernel = Kernels\orbiter.bsp +Body = PHOBOS +Origin = MARS +Barycenter = PHOBOS +ParentBarycenter = MARS BARYCENTER +Interval = 300 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 10.8e15 +Mass = 1.0621881558577e16 ; MAR097 GM=7.087546066894452E-04 km^3/s^2 +Size = 11.2667e3 ; mean radius (13.5x10.8x9.4) + +; === Rotation and precession parameters === +; IAU_PHOBOS +SidRotPeriod = 27553.83484158762 +SidRotOffset = 0.8051980471380209 +Obliquity = 0.01886914610236709 +LAN = 2.2458596148513834 +LAN_MJD = 51544.5 +PrecessionPeriod = -826.0891684635873 +PrecessionObliquity = 0.46594612863128115 +PrecessionLAN = 4.588345387536715 + +; === Visualisation Parameters === +AlbedoRGB = 0.37 0.36 0.39 +TileFormat = 2 +MaxPatchResolution = 8 +HorizonExcess = 10 +BBExcess = 0.4 diff --git a/Src/Celbody/SPICE/Config/Phoebe.cfg b/Src/Celbody/SPICE/Config/Phoebe.cfg new file mode 100644 index 000000000..55538a2a5 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Phoebe.cfg @@ -0,0 +1,24 @@ +; === Configuration file for moon Phoebe(Saturn) === +Name = Phoebe +Module = spice +Kernel = Kernels\orbiter.bsp +Body = PHOEBE +Origin = SATURN +Barycenter = PHOEBE +ParentBarycenter = SATURN BARYCENTER +Interval = 24000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 0.8292e19 +Mass = 8.28655449440212e18 ; SAT375 GM=5.529278065380264E-01 km^3/s^2 +Size = 106.6e3 + +; === Rotation and precession parameters === +LAN = 5.4689216497 +Obliquity = 0.5208361962 ;IAU_PHOEBE +SidRotOffset = 1.2552050404 +SidRotPeriod = 33415.2 + +; === Visualisation Parameters === +AlbedoRGB = 0.06 0.06 0.06 +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Pluto.cfg b/Src/Celbody/SPICE/Config/Pluto.cfg new file mode 100644 index 000000000..0431b6bf3 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Pluto.cfg @@ -0,0 +1,43 @@ +; === Configuration file for Pluto === +Name = Pluto +Module = spice +Kernel = Kernels\orbiter.bsp +Body = PLUTO +Origin = SUN +Barycenter = PLUTO BARYCENTER +ParentBarycenter = SSB +Interval = 8000 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +Mass = 1.303786648993844e22 ; PLU058 GM=8.699633756209835E+02 km^3/s^2 +Size = 1.195e6 ; mean radius + +; === Rotation and precession parameters === +;IAU_PLUTO +LAN = 0.826428321774908 +Obliquity = 1.9690028654425586 +SidRotOffset = 2.4401257420395033 +SidRotPeriod = 551856.0671233265 +LAN_MJD = 51544.5 + +; === Visualisation Parameters === +AlbedoRGB = 0.66 0.63 0.44 + +;=== Atmospheric Parameters === +AtmPressure0 = 0.3 ; pressure at reference level [Pa] +AtmDensity0 = 0.000953 ; +AtmGasConstant = 286.91 ; specific gas constant [J/(K kg)] +AtmGamma = 1.4 ; specific heat ratio c_p/c_v +AtmAltLimit = 100e3 ; +AtmHorizonAlt = 50e3 ; horizon rendering altitude [m] +AtmColor0 = 0.015 0.015 0.050 ; faint blue atmosphere +AtmHazeColor = 0.150 0.150 0.155 +AtmHazeDensity = 0.65 +AtmHazeExtent = 0.1 +AtmHazeShift = -0.002 + +; === Data for the Visual === +MaxPatchResolution = 8 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Proteus.cfg b/Src/Celbody/SPICE/Config/Proteus.cfg new file mode 100644 index 000000000..7af528641 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Proteus.cfg @@ -0,0 +1,24 @@ +; === Configuration file for moon Proteus(Neptune) === +Name = Proteus +Module = spice +Kernel = Kernels\orbiter.bsp +Body = PROTEUS +Barycenter = PROTEUS +Origin = NEPTUNE +ParentBarycenter = NEPTUNE BARYCENTER +Interval = 515 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 2.346e19 ; Approx. Calculated using Phoebe's Density +Mass = 5.035526e19 ; GM=3.36 km^3/s^2 ( http://ssd.jpl.nasa.gov/?sat_phys_par ) +Size = 200e3 +SidRotPeriod = 96968.016 ; 1.122315 days + +SidRotOffset = 4.35902303 ;IAU J2000 +Obliquity = 0.50476492 ;IAU J2000 +LAN = 3.98195745 ;IAU J2000 + +AlbedoRGB = 0.19 0.19 0.19 ; by VF2_Rolf + +; === Visualisation Parameters === +MaxPatchResolution = 4 diff --git a/Src/Celbody/SPICE/Config/Rhea.cfg b/Src/Celbody/SPICE/Config/Rhea.cfg new file mode 100644 index 000000000..ee13dd280 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Rhea.cfg @@ -0,0 +1,39 @@ +; === Configuration file for moon Rhea(Saturn) === +Name = Rhea +Module = spice +Kernel = Kernels\orbiter.bsp +Body = RHEA +Origin = SATURN +Barycenter = RHEA +ParentBarycenter = SATURN BARYCENTER +Interval = 1510 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 2.49e21 +Mass = 2.307091834825272e21 ; SAT375 GM=1.539427790613676E+02 km^3/s^2 +Size = 7.64e5 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 6.094968867 +PrecessionObliquity = 0.4919939866 +PrecessionPeriod = -12945.41576 +LAN = 5.32513397 +LAN_MJD = 51544.5 +Obliquity = 0.006183031585 +SidRotOffset = 1.22441763 +SidRotPeriod = 390312.2289 +;SidRotPeriod (days): 4.517502649 +;SidRotPeriod (days - node to node): 4.515926777 +;Precession Period (years): -35.44261672 +;Obliquity (deg): 0.3542616144 +;Ecliptic LAN (rad): 6.084331971 +;Ecliptic Obliquity (rad): 0.4955736381 +;Ecliptic SidRotOffset (rad): 1.095532053 +;Axis RMS Error (deg): 1.153824146 +;Lat/Lon RMS Error (deg): 0.00772789982 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.24 0.23 0.23 ; by VF2_Rolf +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Saturn.cfg b/Src/Celbody/SPICE/Config/Saturn.cfg new file mode 100644 index 000000000..3ba6ab5a0 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Saturn.cfg @@ -0,0 +1,46 @@ +; === Configuration file for planet Saturn === +Name = Saturn +Module = spice +Kernel = Kernels\orbiter.bsp +Body = SATURN +Origin = SUN +Barycenter = SATURN BARYCENTER +ParentBarycenter = SSB +Interval = 23000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 5.6846272e+26 +Mass = 5.684630129981082e26 ; SAT427 GM=3.793120615901047E+07 km^3/s^2 +Size = 5.8232e7 ; mean radius +JCoeff = 0.01645 ; J2 coefficient for gravitational potential +AlbedoRGB = 1.19 1.11 0.96 ; 1.92 1.81 1.51 + +; === Rotation and precession parameters === +;IAU_SATURN +SidRotPeriod = 38362.40004457486 +SidRotOffset = 3.0395023038667355 +Obliquity = 0.26907950702559263 +LAN = 0.17867355835954163 +LAN_MJD = 51544.5 +PrecessionPeriod = -613896348.4853507 +PrecessionObliquity = 0.2225054966231058 +PrecessionLAN = 5.999769477347 + +; === Ring Parameters === +RingMinRadius = 1.278 ; inner ring radius in units of planet radius +RingMaxRadius = 2.407 ; outer ring radius + +;=== Atmospheric Parameters === +AtmPressure0 = 75.4e4 +AtmDensity0 = 0.7293 +AtmGasConstant = 174.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 1.3333 ; specific heat ratio c_p/c_v +AtmAltLimit = 2900e3 +AtmHorizonAlt = 750e3 ; horizon rendering altitude [m] +AtmColor0 = 0.89 0.85 0.68 +AtmHazeColor = 0.34 0.34 0.43 +AtmHazeDensity = 0.61 +AtmHazeExtent = 0.011 + +; === Data for the Visual === +MaxPatchResolution = 6 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Sol.cfg b/Src/Celbody/SPICE/Config/Sol.cfg new file mode 100644 index 000000000..3329ec99c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sol.cfg @@ -0,0 +1,43 @@ +; === Configuration file for solar system === +Name = Sol + +Star1 = Sun +Planet1 = Mercury +Planet2 = Venus +Planet3 = Earth +Earth:Moon1 = Moon +Planet4 = Mars +Mars:Moon1 = Phobos +Mars:Moon2 = Deimos +Planet5 = Jupiter +Jupiter:Moon1 = Io +Jupiter:Moon2 = Europa +Jupiter:Moon3 = Ganymede +Jupiter:Moon4 = Callisto +Jupiter:Moon5 = Amalthea +Jupiter:Moon6 = Himalia +Planet6 = Saturn +Saturn:Moon1 = Mimas +Saturn:Moon2 = Enceladus +Saturn:Moon3 = Tethys +Saturn:Moon4 = Dione +Saturn:Moon5 = Rhea +Saturn:Moon6 = Titan +Saturn:Moon7 = Hyperion +Saturn:Moon8 = Iapetus +Saturn:Moon9 = Phoebe +Planet7 = Uranus +Uranus:Moon1 = Miranda +Uranus:Moon2 = Ariel +Uranus:Moon3 = Umbriel +Uranus:Moon4 = Titania +Uranus:Moon5 = Oberon +Planet8 = Neptune +Neptune:Moon1 = Triton +Neptune:Moon2 = Proteus +Neptune:Moon3 = Nereid +Planet9 = Pluto +Pluto:Moon1 = Charon +Pluto:Moon2 = Nix +Pluto:Moon3 = Hydra +Planet10 = Vesta diff --git a/Src/Celbody/SPICE/Config/Sol/Marker/Apollo AGC navigation stars.mkr b/Src/Celbody/SPICE/Config/Sol/Marker/Apollo AGC navigation stars.mkr new file mode 100644 index 000000000..46ec466b8 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sol/Marker/Apollo AGC navigation stars.mkr @@ -0,0 +1,47 @@ +BEGIN_HEADER +InitialState off +Frame Celestial +Size 1.5 +ColourIdx 4 +ShapeIdx 5 +END_HEADER + +BEGIN_DATA + + 2.0971 +29.0906 : RA 00 08 23.3 Dec +29 05 26 : Alpheratz (01) + 10.8975 -17.9867 : RA 00 43 35.4 Dec -17 59 12 : Diphda (02) + 28.5988 +63.6700 : RA 01 54 23.7 Dec +63 40 12 : Navi (03) + 24.4288 -57.2367 : RA 01 37 42.9 Dec -57 14 12 : Achernar (04) + 37.9529 +89.2642 : RA 02 31 48.7 Dec +89 15 51 : Polaris (05) + 44.5654 -40.3047 : RA 02 58 15.7 Dec -40 18 17 : Acamar (06) + 45.5700 +4.0897 : RA 03 02 16.8 Dec +04 05 23 : Menkar (07) + 51.0808 +49.8611 : RA 03 24 19.4 Dec +49 51 40 : Mirfak (10) + 68.9800 +16.5092 : RA 04 35 55.2 Dec +16 30 33 : Aldebaran (11) + 78.6346 -8.2017 : RA 05 14 32.3 Dec -08 12 06 : Rigel (12) + 79.1725 +45.9981 : RA 05 16 41.4 Dec +45 59 53 : Capella (13) + 95.9879 -52.6958 : RA 06 23 57.1 Dec -52 41 45 : Canopus (14) +101.2871 -16.7161 : RA 06 45 08.9 Dec -16 42 58 : Sirius (15) +114.8254 +5.2250 : RA 07 39 18.1 Dec +05 13 30 : Procyon (16) +122.3833 -47.3367 : RA 08 09 32.0 Dec -47 20 12 : Regor (17) +134.8017 +48.0417 : RA 08 59 12.4 Dec +48 02 30 : Dnoces (20) +141.8967 -8.65861 : RA 09 27 35.2 Dec -08 39 31 : Alphard (21) +152.0929 +11.9672 : RA 10 08 22.3 Dec +11 58 02 : Regulus (22) +177.2650 +14.5719 : RA 11 49 03.6 Dec +14 34 19 : Denebola (23) +183.9517 -17.5419 : RA 12 15 48.4 Dec -17 32 31 : Gienah Ghu. (24) +186.6496 -63.0992 : RA 12 26 35.9 Dec -63 05 57 : Acrux (25) +201.2983 -11.1614 : RA 13 25 11.6 Dec -11 09 41 : Spica (26) +206.8850 +49.3133 : RA 13 47 32.4 Dec +49 18 48 : Alkaid (27) +211.6708 -36.3700 : RA 14 06 41.0 Dec -36 22 12 : Menkent (30) +213.9154 +19.1825 : RA 14 15 39.7 Dec +19 10 57 : Arcturus (31) +233.6721 +26.7147 : RA 15 34 41.3 Dec +26 42 53 : Alphecca (32) +247.3517 -26.4319 : RA 16 29 24.4 Dec -26 25 55 : Antares (33) +252.1663 -69.0278 : RA 16 48 39.9 Dec -69 01 40 : Atria (34) +263.7338 +12.5600 : RA 17 34 56.1 Dec +12 33 36 : Rasalhague (35) +279.2346 +38.7836 : RA 18 36 56.3 Dec +38 47 01 : Vega (36) +283.8163 -26.2967 : RA 18 55 15.9 Dec -26 17 48 : Nunki (37) +297.6958 +8.8683 : RA 19 50 47.0 Dec +08 52 06 : Altair (40) +305.2529 -14.7814 : RA 20 21 00.7 Dec -14 46 53 : Dabih (41) +306.4121 -56.7350 : RA 20 25 38.9 Dec -56 44 06 : Peacock (42) +310.3579 +45.2803 : RA 20 41 25.9 Dec +45 16 49 : Deneb (43) +326.0467 +9.8750 : RA 21 44 11.2 Dec +09 52 30 : Enif (44) +344.4129 -29.6222 : RA 22 57 39.1 Dec -29 37 20 : Fomalhaut (45) \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Sol/Marker/Common star names.mkr b/Src/Celbody/SPICE/Config/Sol/Marker/Common star names.mkr new file mode 100644 index 000000000..f1d63e77c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sol/Marker/Common star names.mkr @@ -0,0 +1,199 @@ +BEGIN_HEADER +InitialState on +Frame Celestial +Size 1 +ColourIdx 3 +ShapeIdx 5 +END_HEADER + +BEGIN_DATA + 44.5654 -40.3047 : Acamar + 24.4288 -57.2367 : Achernar +186.6496 -63.0992 : Acrux +134.6217 +11.8578 : Acubens +154.1725 +23.4172 : Adhafera +104.6563 -28.9719 : Adhara +332.0583 -46.9611 : Al Na'ir +311.9192 -9.49583 : Albali +292.6804 +27.9597 : Albireo +182.1033 -24.7289 : Alchiba +201.3063 +54.9881 : Alcor + 56.8713 +24.1050 : Alcyone + 68.9800 +16.5092 : Aldebaran +319.6450 +62.5856 : Alderamin +322.1650 +70.5608 : Alfirk +304.5138 -12.5447 : Algedi + 3.3092 +15.1836 : Algenib +154.9933 +19.8417 : Algieba + 47.0421 +40.9556 : Algol +187.4663 -16.5156 : Algorab + 99.4279 +16.3992 : Alhena +193.5071 +55.9597 : Alioth +206.8850 +49.3133 : Alkaid +231.1225 +37.3772 : Alkalurops +164.9438 -18.2989 : Alkes + 30.9750 +42.3297 : Almach +271.4521 -30.4242 : Alnasl + 84.0533 -1.2019 : Alnilam + 85.1896 -1.9428 : Alnitak +141.8967 -8.6586 : Alphard +233.6721 +26.7147 : Alphecca + 2.0971 +29.0906 : Alpheratz +256.3321 +54.4703 : Alrakis + 30.5117 +2.7636 : Alrescha +298.8283 +6.4067 : Alshain +297.6958 +8.8683 : Altair +288.1388 +67.6617 : Altais +142.9300 +22.9678 : Alterf +111.0238 -29.3031 : Aludra +169.5454 +31.5292 : Alula Aus. +169.6196 +33.0942 : Alula Bor. +284.0550 +4.2036 : Alya +334.2083 -7.7833 : Ancha + 6.5708 -42.3061 : Ankaa +247.3521 -26.4319 : Antares +213.9154 +19.1825 : Arcturus +290.6596 -44.4589 : Arkab + 83.1825 -17.8222 : Arneb +285.6529 -29.8803 : Ascella +131.1713 +18.1542 : Asellus Aus. +130.8213 +21.4686 : Asellus Bor. +139.2725 -59.2753 : Aspidiske + 58.5329 +31.8836 : Atik + 57.2904 +24.0533 : Atlas +252.1663 -69.0278 : Atria +125.6283 -59.5097 : Avior + 44.1071 -8.8981 : Azha + 27.8650 -10.3350 : Baten Kaitos + 62.9663 -6.8375 : Beid + 81.2829 +6.3497 : Bellatrix + 88.7929 +7.4069 : Betelgeuse +332.5500 +6.1978 : Biham + 95.9879 -52.6956 : Canopus + 79.1725 +45.9981 : Capella + 2.2946 +59.1497 : Caph +113.6496 +31.8883 : Castor +265.8683 +4.5672 : Cebalrai + 56.2008 +24.2894 : Celaeno +188.4354 +41.3575 : Chara +168.5600 +15.4294 : Chertan +194.0071 +38.3183 : Cor Caroli + 76.9625 -5.0864 : Cursa +305.2529 -14.7814 : Dabih +310.3579 +45.2803 : Deneb +326.7600 -16.1272 : Deneb Algedi + 10.8975 -17.9867 : Deneb Kaitos +177.2650 +14.5719 : Denebola +165.9321 +61.7508 : Dubhe +231.2325 +58.9661 : Edasich + 56.2188 +24.1133 : Electra + 81.5729 +28.6075 : Elnath +269.1517 +51.4889 : Eltanin +326.0467 +9.8750 : Enif +354.8367 +77.6325 : Errai +344.4129 -29.6222 : Formalhaut + 95.0783 -30.0633 : Furud + 187.791 -57.1133 : Gacrux +172.8508 +69.3311 : Giausar +183.9517 -17.5419 : Gineah +111.7875 +8.2894 : Gomeisa +241.3592 -19.8053 : Graffias +268.3821 +56.8728 : Grumium + 31.7933 +23.4625 : Hamal +340.3654 +10.8314 : Homam +221.2467 +27.0742 : Izar +276.0429 -34.3847 : Kaus Australis +276.9925 -25.4217 : Kaus Borealis +275.2488 -29.8281 : Kaus Media + 63.8179 -7.6528 : Keid +318.9558 +5.2478 : Kitalpha +222.6763 +74.1556 : Kochab +247.5550 +21.4897 : Kornephoros +330.9413 +64.6283 : Kurhah +262.6908 -37.2958 : Lesath + 56.4567 +24.3678 : Maia +247.7283 +1.9839 : Marfik +346.1904 +15.2053 : Markab +340.7504 +30.2214 : Matar +100.9829 +25.1311 : Mebsuta +183.8567 +57.0325 : Megrez + 83.7846 +9.9344 : Meissa +106.0271 +20.5703 : Mekbuda + 89.8821 +44.9475 : Menkalinan + 45.5700 +4.0897 : Menkar +211.6708 -36.3700 : Menkent + 59.7413 +35.7911 : Menkib +165.4604 +56.3825 : Merak + 56.5817 +23.9483 : Merope + 28.3825 +19.2936 : Mesartim +138.3000 -69.7172 : Miaplacidus + 83.0017 -0.2992 : Mintaka + 34.8363 -2.9775 : Mira + 17.4329 +35.6206 : Mirach + 51.0808 +49.8611 : Mirfak + 95.6750 -17.9558 : Mirzam +200.9813 +54.9253 : Mizar +208.6713 +18.3978 : Muphrid +127.5663 +60.7181 : Muscida +325.0229 -16.6622 : Nashira +225.4867 +40.3906 : Nekkar + 82.0613 -20.7594 : Nihal +283.8163 -26.2967 : Nunki +231.9571 +29.1058 : Nusakan +306.4121 -56.7350 : Peacock + 84.9121 -34.0742 : Phact +178.4575 +53.6947 : Phecda +230.1821 +71.8339 : Pherkad + 57.2967 +24.1367 : Pleione + 37.9529 +89.2642 : Polaris +116.3288 +28.0261 : Pollux +190.4150 -1.4494 : Porrima +114.8254 +5.2250 : Procyon + 93.7196 +22.5067 : Propus +148.1908 +26.0069 : Rasalas +258.6621 +14.3903 : Rasalgethi +263.7338 +12.5600 : Rasalhague +262.6083 +52.3014 : Rastaban +152.0929 +11.9672 : Regulus + 78.6346 -8.2017 : Rigel +219.9021 -60.8342 : Rigil Kentaurus + 21.4542 +60.2353 : Ruchbah +290.9717 -40.6161 : Rukbat +257.5946 -15.7250 : Sabik +335.4142 -1.3872 : Sadachbia +342.5008 +24.6017 : Sadalbari +331.4458 -0.3197 : Sadalmelik +322.8896 -5.5711 : Sadalsuud +305.5571 +40.2567 : Sadr + 86.9392 -9.6697 : Saiph +345.9438 +28.0828 : Scheat + 10.1271 +56.5372 : Schedar +218.0196 +38.3083 : Seginus +263.4021 -37.1039 : Shaula +282.5200 +33.3628 : Sheliak + 28.6600 +20.8081 : Sheratan +101.2871 -16.7161 : Sirius +343.6625 -15.8208 : Skat +201.2983 -11.1614 : Spica + 56.4767 +24.5547 : Sterope +284.7358 +32.6894 : Sulafat +214.0038 -6.0006 : Syrma +134.8017 +48.0417 : Talitha +155.5821 +41.4994 : Tania Australis +154.2742 +42.9144 : Tania Borealis +296.5650 +10.6133 : Tarazed + 56.3021 +24.4672 : Taygeta +211.0971 +64.3758 : Thuban +236.0671 +6.4256 : Unukalhai +279.2341 +38.7836 : Vega +195.5442 +10.9592 : Vindemiatrix +110.0308 +21.9822 : Wasat + 87.7400 -35.7683 : Wazn +244.5804 -4.6925 : Yed Posterior +243.5863 -3.6944 : Yed Prior +184.9767 -0.6669 : Zaniah + 59.5075 -13.5086 : Zanurak +177.6738 +1.7647 : Zavijava +168.5271 +20.5236 : Zosma +222.7196 -16.0417 : Zubenelgenubi +229.2517 -9.3831 : Zubeneschamali \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Sol/Marker/Galactic.mkr b/Src/Celbody/SPICE/Config/Sol/Marker/Galactic.mkr new file mode 100644 index 000000000..6f815015c --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sol/Marker/Galactic.mkr @@ -0,0 +1,12 @@ +BEGIN_HEADER +InitialState off +Frame Celestial +Size 1.5 +ColourIdx 4 +ShapeIdx 5 +END_HEADER + +BEGIN_DATA + +192.859508 +27.128336 : RA 12 51 26.282 Dec +27 07 42.01 : Galactic North Pole +266.405100 -28.936175 : RA 17 45 37.224 Dec -28 56 10.23 : Galactic Reference axis diff --git a/Src/Celbody/SPICE/Config/Sol/Marker/Messier objects.mkr b/Src/Celbody/SPICE/Config/Sol/Marker/Messier objects.mkr new file mode 100644 index 000000000..12612a74f --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sol/Marker/Messier objects.mkr @@ -0,0 +1,118 @@ +BEGIN_HEADER +InitialState off +Frame Celestial +Size 0.7 +ColourIdx 2 +ShapeIdx 1 +END_HEADER + +BEGIN_DATA + 83.625 +22.017 : M1 +323.375 -0.817 : M2 +205.550 +28.383 : M3 +245.900 -26.533 : M4 +229.650 +2.083 : M5 +265.025 -32.217 : M6 +268.475 -34.817 : M7 +270.950 -24.383 : M8 +259.800 -18.517 : M9 +254.275 -4.100 : M10 +282.775 -6.267 : M11 +251.800 -1.950 : M12 +250.425 +36.467 : M13 +264.400 -3.250 : M14 +322.500 +12.167 : M15 +274.700 -13.783 : M16 +275.200 -16.183 : M17 +274.975 -17.133 : M18 +255.650 -26.267 : M19 +270.575 -23.033 : M20 +271.150 -22.500 : M21 +279.100 -23.900 : M22 +269.200 -19.017 : M23 +274.225 -18.483 : M24 +277.900 -19.250 : M25 +281.300 -9.400 : M26 +299.900 +22.717 : M27 +276.125 -24.867 : M28 +305.975 +38.533 : M29 +325.100 -23.183 : M30 + 10.675 +41.267 : M31 + 10.675 +40.867 : M32 + 23.475 +30.650 : M33 + 40.500 +42.783 : M34 + 92.225 +24.333 : M35 + 84.025 +34.133 : M36 + 88.100 +32.550 : M37 + 82.100 +35.833 : M38 +323.050 +48.433 : M39 +185.575 +58.083 : M40 +101.500 -20.767 : M41 + 83.850 -5.450 : M42 + 83.900 -5.267 : M43 +130.025 +19.983 : M44 + 56.750 +24.117 : M45 +115.450 -14.817 : M46 +114.150 -14.500 : M47 +123.450 -5.800 : M48 +187.450 +8.000 : M49 +105.700 -8.350 : M50 +202.475 +47.200 : M51 +351.050 +61.583 : M52 +198.225 +18.167 : M53 +283.775 -30.483 : M54 +295.000 -30.967 : M55 +289.150 +30.183 : M56 +283.400 +33.033 : M57 +189.425 +11.817 : M58 +190.500 +11.650 : M59 +190.925 +11.550 : M60 +185.475 +4.467 : M61 +255.300 -30.117 : M62 +198.950 +42.033 : M63 +194.175 +21.683 : M64 +169.725 +13.083 : M65 +170.050 +12.983 : M66 +132.900 +11.817 : M67 +189.875 -26.750 : M68 +277.850 -32.350 : M69 +280.800 -32.300 : M70 +298.450 +18.783 : M71 +313.375 -12.533 : M72 +314.775 -12.633 : M73 + 24.175 +15.783 : M74 +301.525 -21.917 : M75 + 25.600 +51.567 : M76 + 40.675 -0.017 : M77 + 86.675 +0.050 : M78 + 81.125 -24.550 : M79 +244.250 -22.983 : M80 +148.900 +69.067 : M81 +148.950 +69.683 : M82 +204.250 -29.867 : M83 +186.275 +12.883 : M84 +186.350 +18.183 : M85 +186.550 +12.950 : M86 +187.700 +12.400 : M87 +188.000 +14.417 : M88 +188.925 +12.550 : M89 +189.200 +13.167 : M90 +188.850 +14.500 : M91 +259.275 +43.133 : M92 +116.150 -23.867 : M93 +192.725 +41.117 : M94 +161.000 +11.700 : M95 +161.700 +11.817 : M96 +168.700 +55.017 : M97 +183.450 +14.900 : M98 +184.700 +14.417 : M99 +185.725 +15.817 : M100 +210.800 +54.350 : M101 + 23.300 +60.700 : M103 +190.000 -11.617 : M104 +161.950 +12.583 : M105 +184.750 +47.300 : M106 +248.125 -13.050 : M107 +167.875 +55.667 : M108 +179.400 +53.383 : M109 + 10.100 +41.683 : M110 \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Sun.cfg b/Src/Celbody/SPICE/Config/Sun.cfg new file mode 100644 index 000000000..019f0ae6b --- /dev/null +++ b/Src/Celbody/SPICE/Config/Sun.cfg @@ -0,0 +1,17 @@ +; === Configuration file for star Sun === +Name = Sun +Module = spice +Body = SUN +Kernel = Kernels\orbiter.bsp,Kernels\codes_300ast_20100725.tf,Kernels\naif0012.tls,Kernels\pck00010.tpc +Origin = SSB +Barycenter = SSB +ParentBarycenter = SSB +Interval = 100000 ; Error < 0.005m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 60806.5 ; MJD + + +;Mass = 1.9889194444e+30 +Mass = 1.98891944569169421e30 ; DE440 GM=132712440041.279419 km^3/s^2 +Size = 6.96e8 ; mean radius diff --git a/Src/Celbody/SPICE/Config/Tethys.cfg b/Src/Celbody/SPICE/Config/Tethys.cfg new file mode 100644 index 000000000..a8c1f4514 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Tethys.cfg @@ -0,0 +1,39 @@ +; === Configuration file for moon Tethys(Saturn) === +Name = Tethys +Module = spice +Kernel = Kernels\orbiter.bsp +Body = TETHYS +Origin = SATURN +Barycenter = TETHYS +ParentBarycenter = SATURN BARYCENTER +Interval = 730 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 6.22e20 +Mass = 6.17613547716701e20 ; SAT375 GM=4.121081982358982E+01 km^3/s^2 +Size = 5.30e5 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 6.099574885 +PrecessionObliquity = 0.4902760331 +PrecessionPeriod = -1819.770128 +LAN = 4.539459438 +LAN_MJD = 51544.5 +Obliquity = 0.01904221653 +SidRotOffset = 4.370713573 +SidRotPeriod = 163106.1062 +;SidRotPeriod (days): 1.887802155 +;SidRotPeriod (days - node to node): 1.885846161 +;Precession Period (years): -4.982259078 +;Obliquity (deg): 1.091038639 +;Ecliptic LAN (rad): 6.059508025 +;Ecliptic Obliquity (rad): 0.4873312013 +;Ecliptic SidRotOffset (rad): 1.999309877 +;Axis RMS Error (deg): 3.745438057 +;Lat/Lon RMS Error (deg): 1.527177945 + +; === Visualisation Parameters === +TileFormat = 2 +AlbedoRGB = 0.27 0.27 0.28 ; by VF2_Rolf +MaxPatchResolution = 9 diff --git a/Src/Celbody/SPICE/Config/Titan.cfg b/Src/Celbody/SPICE/Config/Titan.cfg new file mode 100644 index 000000000..dd0f176fd --- /dev/null +++ b/Src/Celbody/SPICE/Config/Titan.cfg @@ -0,0 +1,65 @@ +; === Configuration file for moon Titan(Saturn) === +Name = Titan +Module = spice +Kernel = Kernels\orbiter.bsp +Body = TITAN +Origin = SATURN +Barycenter = TITAN +ParentBarycenter = SATURN BARYCENTER +Interval = 4100 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.35e23 +Mass = 1.3455251820394853e23 ; SAT375 GM=8.978137874424849E+03 km^3/s^2 +Size = 2.575e6 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 6.09722072 +PrecessionObliquity = 0.4791409942 +PrecessionPeriod = -242410.2823 +LAN = 6.076172269 +LAN_MJD = 51544.5 +Obliquity = 0.005036124126 +SidRotOffset = 5.891272887 +SidRotPeriod = 1377686.736 +;SidRotPeriod (days): 15.94544833 +;SidRotPeriod (days - node to node): 15.94439954 +;Precession Period (years): -663.6831823 +;Obliquity (deg): 0.2885486575 +;Ecliptic LAN (rad): 6.094996524 +;Ecliptic Obliquity (rad): 0.4840706138 +;Ecliptic SidRotOffset (rad): 5.107486471 +;Axis RMS Error (deg): 0.008960204995 +;Lat/Lon RMS Error (deg): 0.000125720235 + +; === Atmospheric Parameters === +AtmPressure0 = 146e3 ; Pa +AtmDensity0 = 6.131 ; kg/m^3 +AtmGasConstant = 285.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 1.3941 ; ? specific heat ratio c_p/c_v +AtmAltLimit = 600e3 ; Atmosphere limit [m] +AtmHorizonAlt = 300e3 ; horizon rendering altitude [m] +AtmColor0 = 0.51 0.28 0.18 ; 1 0.96 0.76 +AtmHazeColor = 0.18 0.34 0.41 ; 0.96 0.82 0.75 +AtmHazeDensity = 0.119 +AtmHazeExtent = 0.024 ; 0.2 +AtmHazeShift = 0.0117 ; 0.025 +AtmFogParam = 3.9e-5 1.5e-5 20e3 +AtmFogColor = 0.80 0.6 0.3 + +; === Cloud parameters === +CloudAlt = 30e3 ; altitude of cloud layer +CloudRotPeriod = 1.06e5 ; not relevant here (homogeneous cloud layer) +CloudShadowDepth = 0.9466 +CloudMicrotextureAlt = 65e3 400e3 ; 65e3 125e3 + +; === Visualisation Parameters === +;TileFormat = 2 +;CloudFormat = 2 +;LabelFormat = 2 +AlbedoRGB = 0.31 0.20 0.21 +MaxPatchResolution = 10 +MinCloudResolution = 1 ; cloud layer from th resolution +MaxCloudResolution = 7 ; highest cloud resolution level +MinElevation = -2000 \ No newline at end of file diff --git a/Src/Celbody/SPICE/Config/Titan/Label.cfg b/Src/Celbody/SPICE/Config/Titan/Label.cfg new file mode 100644 index 000000000..40a537a90 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Titan/Label.cfg @@ -0,0 +1,23 @@ +A x S 255 255 255 Albedo feature +C x S 255 255 255 Collis +c x O 255 192 128 Crater +F x S 255 255 255 Facula +f x S 255 255 255 Fluctus +l x S 255 255 255 Labyrinthus +L x N 128 128 255 Lacus +R x O 255 255 255 Large ringed feature +B x S 255 255 255 Macula +m x N 192 192 255 Mare +M x D 255 128 0 Mons +p x S 255 255 255 Patera +P x S 255 255 255 Platinis +r x S 255 255 255 Regio +S x S 255 255 255 Sinus +T x S 255 255 255 Terra +U x S 255 255 255 Unda +u x S 255 255 255 Flumen +V x S 255 255 255 Virga +a x S 255 255 255 Arcus +I x S 255 255 255 Insula +N x S 255 255 255 Lacuna +t x S 255 255 255 Fretum diff --git a/Src/Celbody/SPICE/Config/Titan/Marker/Titan Probes.mkr b/Src/Celbody/SPICE/Config/Titan/Marker/Titan Probes.mkr new file mode 100644 index 000000000..483489029 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Titan/Marker/Titan Probes.mkr @@ -0,0 +1,9 @@ +; Landing coordinate points of probes on Titan + +BEGIN_HEADER +InitialState on +ColourIdx 2 +END_HEADER + +BEGIN_DATA ++170 -10 : Cassini-Huygens : Huygens lander diff --git a/Src/Celbody/SPICE/Config/Titania.cfg b/Src/Celbody/SPICE/Config/Titania.cfg new file mode 100644 index 000000000..3de73d003 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Titania.cfg @@ -0,0 +1,37 @@ +; === Configuration file for moon Titania(Uranus) === +Name = Titania +Module = spice +Kernel = Kernels\orbiter.bsp +Body = TITANIA +Origin = URANUS +Barycenter = TITANIA +ParentBarycenter = URANUS BARYCENTER +Interval = 3040 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 3.49e21 +Mass = 3.401133598409685e21 ; URA111 GM=2.269437003741248E+02 km^3/s^2 +Size = 788.9e3 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 2.927884294 +PrecessionObliquity = 1.434546704 +PrecessionPeriod = 174445.4332 +LAN = 3.563729957 +LAN_MJD = 51544.5 +Obliquity = 0.004887419808 +SidRotOffset = 1.022146216 +SidRotPeriod = -752186.7721 +;SidRotPeriod (days): -8.705865418 +;SidRotPeriod (days - node to node): -8.705430971 +;Precession Period (years): 477.6055665 +;Obliquity (deg): 0.2800285277 +;Ecliptic LAN (rad): 2.925861883 +;Ecliptic Obliquity (rad): 1.430088603 +;Ecliptic SidRotOffset (rad): 4.587409478 +;Axis RMS Error (deg): 0.002503215393 + +; === Visualisation Parameters === +AlbedoRGB = 0.25 0.19 0.20 ; by VF2_Rolf +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Triton.cfg b/Src/Celbody/SPICE/Config/Triton.cfg new file mode 100644 index 000000000..21efa29c2 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Triton.cfg @@ -0,0 +1,46 @@ +; === Configuration file for moon Triton(Neptune) === +Name = Triton +Module = spice +Kernel = Kernels\orbiter.bsp +Body = TRITON +Barycenter = TRITON +Origin = NEPTUNE +ParentBarycenter = NEPTUNE BARYCENTER +Interval = 2160 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 2.14e22 +Mass = 2.13949626865285e22 ; NEP081 GM=1.427598140725034e+03 km^3/s^2 +Size = 1.3525e6 + +PrecessionLAN = 4.0001 ;IAU J2000 +PrecessionObliquity = 0.48928 +PrecessionPeriod = 251338 +LAN = -0.4656 +LAN_MJD = 51544.5 +Obliquity = 0.02692416821 +SidRotPeriod = -507760.19 +SidRotOffset = 1.79136584 + +AlbedoRGB = 0.28 0.25 0.28 ; by VF2_Rolf + +;=== Atmospheric Parameters === +AtmPressure0 = 1.45 ; pressure at reference level [Pa] +AtmDensity0 = 0.0001 ; ? +AtmGasConstant = 297 ; specific gas constant [J/(K kg)] +AtmGamma = 1.4 ; specific heat ratio c_p/c_v +AtmAltLimit = 20e3 ; +AtmHorizonAlt = 7e3 ; ? horizon rendering altitude [m] +AtmColor0 = 0.06 0.06 0.07 ; ? faint blue atmosphere +AtmHazeColor = 0.18 0.18 0.18 +AtmHazeDensity = 0.75 +AtmHazeExtent = 0.924 + +; === Cloud parameters === +CloudAlt = 13e3 ; altitude of cloud layer approx 13km +CloudRotPeriod = 49e4 ; ? thin dark clouds from plentiful geysers + +; === Visualisation Parameters === +MaxPatchResolution = 7 +MinCloudResolution = 1 ; cloud layer from this resolution +MaxCloudResolution = 7 ; highest cloud resolution level diff --git a/Src/Celbody/SPICE/Config/Umbriel.cfg b/Src/Celbody/SPICE/Config/Umbriel.cfg new file mode 100644 index 000000000..27ed12f21 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Umbriel.cfg @@ -0,0 +1,37 @@ +; === Configuration file for moon Umbriel(Uranus) === +Name = Umbriel +Module = spice +Kernel = Kernels\orbiter.bsp +Body = UMBRIEL +Origin = URANUS +Barycenter = UMBRIEL +ParentBarycenter = URANUS BARYCENTER +Interval = 1610 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 1.27e21 +Mass = 1.2752676388763e21 ; URA111 GM=8.509338094489388E+01 km^3/s^2 +Size = 584.7e3 + +; === Rotation and precession parameters === +; ref: see www.orbiter-forum.com/showthread.php?t=8185 +PrecessionLAN = 2.927843972 +PrecessionObliquity = 1.434576005 +PrecessionPeriod = 140917.7226 +LAN = 4.116612467 +LAN_MJD = 51544.5 +Obliquity = 0.00349985134 +SidRotOffset = 0.9982461153 +SidRotPeriod = -358056.8261 +;SidRotPeriod (days): -4.144176228 +;SidRotPeriod (days - node to node): -4.144054359 +;Precession Period (years): 385.8116977 +;Obliquity (deg): 0.2005267107 +;Ecliptic LAN (rad): 2.924919222 +;Ecliptic Obliquity (rad): 1.432612636 +;Ecliptic SidRotOffset (rad): 5.111199681 +;Axis RMS Error (deg): 0.03231203637 + +; === Visualisation Parameters === +AlbedoRGB = 0.17 0.17 0.15 ; by VF2_Rolf +MaxPatchResolution = 5 diff --git a/Src/Celbody/SPICE/Config/Uranus.cfg b/Src/Celbody/SPICE/Config/Uranus.cfg new file mode 100644 index 000000000..0fcc20cbd --- /dev/null +++ b/Src/Celbody/SPICE/Config/Uranus.cfg @@ -0,0 +1,43 @@ +; === Configuration file for planet Uranus === +Name = Uranus +Module = spice +Kernel = Kernels\orbiter.bsp +Body = URANUS +Origin = SUN +Barycenter = URANUS BARYCENTER +ParentBarycenter = SSB +Interval = 15000 ; Error < 0.5m + +; === Physical Parameters === +;Mass = 8.6832054e+25 +Mass = 8.68321194960129e25 ; URA111 GM=5.793951322279009E+06 km^3/s^2 +Size = 2.5362e7 ; mean radius +JCoeff = 0.012 ; J2 coefficient for gravitational potential +AlbedoRGB = 1.06 1.27 1.21 + +; === Rotation and precession parameters === +; IAU_URANUS +SidRotPeriod = -62064.00000091947 +SidRotOffset = 0.503852406633297 +Obliquity = 1.4360255190442477 +LAN = 2.9259865347903826 +LAN_MJD = 51544.5 + +; === Ring Parameters === +RingMinRadius = 1.335 ; inner radius of ring system +RingMaxRadius = 2.005 ; outer epsilon ring radius + +;=== Atmospheric Parameters === +AtmPressure0 = 45.4e4 ; ? so called 'surface' +AtmDensity0 = 0.5293 ; ? varies by depth +AtmGasConstant = 194.92 ; ? specific gas constant [J/(K kg)] +AtmGamma = 1.3333 ; ? specific heat ratio c_p/c_v +AtmAltLimit = 2600e3 +AtmHorizonAlt = 260e3 ; horizon rendering altitude [m] +AtmColor0 = 0.19 0.41 0.40 +AtmHazeColor = 0.42 0.55 0.57 +AtmHazeDensity = 1.5 +AtmHazeExtent = 0.16 + +; === Data for the Visual === +MaxPatchResolution = 6 ; highest sphere patch level diff --git a/Src/Celbody/SPICE/Config/Venus.cfg b/Src/Celbody/SPICE/Config/Venus.cfg new file mode 100644 index 000000000..145b36b81 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Venus.cfg @@ -0,0 +1,53 @@ +; === Configuration file for planet Venus === +Name = Venus +Module = spice +Kernel = Kernels\orbiter.bsp +Body = VENUS +Origin = SUN +Barycenter = VENUS +ParentBarycenter = SSB +Interval = 20000 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +;Mass = 4.86855374e+24 +Mass = 4.8685531705e24 ; DE440 GM=324858.592000 km^3/s^2 +Size = 6.05184e6 ; mean radius +JCoeff = 0.000027 ; J2 coefficient for gravitational potential +AlbedoRGB = 1.76 1.58 1.32 + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = mod_shgj120p.a01 ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + +; === Rotation and precession parameters === +;IAU_VENUS +SidRotPeriod = -20996797.016381063 +SidRotOffset = 3.8842534528048906 +Obliquity = 0.021624781527151526 +LAN = 5.239246958135948 +LAN_MJD = 51544.5 + +; === Atmospheric Parameters === +AtmPressure0 = 9200e3 ; Pa +AtmDensity0 = 65 ; kg/m^3 +AtmGasConstant = 188.92 ; specific gas constant [J/(K kg)] +AtmGamma = 1.2857 ; specific heat ratio c_p/c_v +AtmAltLimit = 600e3 ; Atmosphere limit [m] +AtmHazeShift = 0.01 +AtmHorizonAlt = 300e3 ; horizon rendering altitude [m] +;AtmColor0 = 0.89 0.85 0.68 +AtmColor0 = 1 0.96 0.76 + +; === Cloud parameters === +CloudAlt = 60e3 ; altitude of cloud layer, 75 km above surface +CloudRotPeriod = 3.46e5 ; Fixed negative number problem +CloudMicrotextureAlt = 120e3 400e3 + +; === Data for the Visual === +MaxPatchResolution = 8 ; highest sphere patch level +MinCloudResolution = 1 ; cloud layer from th resolution +MaxCloudResolution = 7 ; highest cloud resolution level diff --git a/Src/Celbody/SPICE/Config/Vesta.cfg b/Src/Celbody/SPICE/Config/Vesta.cfg new file mode 100644 index 000000000..3592ba5a8 --- /dev/null +++ b/Src/Celbody/SPICE/Config/Vesta.cfg @@ -0,0 +1,36 @@ +; === Configuration file for planet Venus === +Name = Vesta +Module = spice +Kernel = Kernels\orbiter.bsp +Body = VESTA +Origin = SUN +Barycenter = VESTA +ParentBarycenter = SSB +Interval = 100100 ; Error < 0.5m +;=== Optional parameters === +;Beginning = 36934.5 ; MJD +;Ending = 69806.5 ; MJD + +; === Physical Parameters === +Mass = 2.59093290611e20 ; DE440 GM=17.288233 km^3/s^2 +;Mass = 2.59076e20 +Size = 2.6157e5 ; mean radius +JCoeff = 0.004 ; J2 coefficient for gravitational potential +AlbedoRGB = 0.68 0.91 1.25 + +; === Gravity Models === +; ref: see Doc/Technotes/gravity.pdf for details on implimentation and usage +GravModelPath = JGDWN_VES20H_SHA.TAB ; the name of the gravity model file to load, located in /GravityModels +GravCoeffCutoff = 10 ; the maximum number of terms to load. + +; === Rotation Elements === +SidRotPeriod = 19231.2 +SidRotOffset = 0 ; ? +Obliquity = 0 ; ? +LAN = 0 ; ? + +; === Data for the Visual === +TileFormat = 2 +MaxPatchResolution = 11 ; highest sphere patch level +HorizonExcess = 10 +BBExcess = 0.01 diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCK.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCK.h new file mode 100644 index 000000000..894d4e9a6 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCK.h @@ -0,0 +1,155 @@ +/* + +-Header_File SpiceCK.h ( CSPICE CK definitions ) + +-Abstract + + Perform CSPICE definitions to support CK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE CK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceCK05Subtype Typedef for enum indicating the + mathematical representation used + in an CK type 05 segment. Possible + values and meanings are: + + C05TP0: + + Hermite interpolation, 8- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components. + + Quaternions are unitless. Quaternion + time derivatives have units of + 1/second. + + + C05TP1: + + Lagrange interpolation, 4- + element packets containing + + q0, q1, q2, q3, + + where q0, q1, q2, q3 represent + quaternion components. Quaternion + derivatives are obtained by + differentiating interpolating + polynomials. + + + C05TP2: + + Hermite interpolation, 14- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt, + av0, av1, av2, + dav0/dt, dav1/dt, dav2/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components, + av0, av1, av2 represent angular + velocity components, and + dav0/dt, dav1/dt, dav2/dt represent + angular acceleration components. + + + C05TP3: + + Lagrange interpolation, 7- + element packets containing + + q0, q1, q2, q3, + av0, av1, av2 + + where q0, q1, q2, q3 represent + quaternion components and + av0, av1, av2 represent angular + velocity components. + + + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 20-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_CK_H + + #define HAVE_SPICE_CK_H + + + + /* + CK type 05 subtype codes: + */ + + enum _SpiceCK05Subtype { C05TP0, C05TP1, C05TP2, C05TP3 }; + + + typedef enum _SpiceCK05Subtype SpiceCK05Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCel.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCel.h new file mode 100644 index 000000000..7b0537e9e --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceCel.h @@ -0,0 +1,441 @@ +/* + +-Header_File SpiceCel.h ( CSPICE Cell definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceCell data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CELLS + +-Particulars + + This header defines structures, macros, and enumerated types that + may be referenced in application code that calls CSPICE cell + functions. + + CSPICE cells are data structures that implement functionality + parallel to that of the cell abstract data type in SPICELIB. In + CSPICE, a cell is a C structure containing bookkeeping information, + including a pointer to an associated data array. + + For numeric data types, the data array is simply a SPICELIB-style + cell, including a valid control area. For character cells, the data + array has the same number of elements as the corresponding + SPICELIB-style cell, but the contents of the control area are not + maintained, and the data elements are null-terminated C-style + strings. + + CSPICE cells should be declared using the declaration macros + provided in this header file. See the table of macros below. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceCell Structure containing CSPICE cell metadata. + + The members are: + + dtype: Data type of cell: character, + integer, or double precision. + + dtype has type + SpiceCellDataType. + + length: For character cells, the + declared length of the + cell's string array. + + size: The maximum number of data + items that can be stored in + the cell's data array. + + card: The cell's "cardinality": the + number of data items currently + present in the cell. + + isSet: Boolean flag indicating whether + the cell is a CSPICE set. + Sets have no duplicate data + items, and their data items are + stored in increasing order. + + adjust: Boolean flag indicating whether + the cell's data area has + adjustable size. Adjustable + size cell data areas are not + currently implemented. + + init: Boolean flag indicating whether + the cell has been initialized. + + base: is a void pointer to the + associated data array. base + points to the start of the + control area of this array. + + data: is a void pointer to the + first data slot in the + associated data array. This + slot is the element following + the control area. + + + ConstSpiceCell A const SpiceCell. + + + + + Declaration Macros + ================== + + Name Description + ---- ---------- + + SPICECHAR_CELL ( name, size, length ) Declare a + character CSPICE + cell having cell + name name, + maximum cell + cardinality size, + and string length + length. The + macro declares + both the cell and + the associated + data array. The + name of the data + array begins with + "SPICE_". + + + SPICEDOUBLE_CELL ( name, size ) Like SPICECHAR_CELL, + but declares a + double precision + cell. + + + SPICEINT_CELL ( name, size ) Like + SPICECHAR_CELL, + but declares an + integer cell. + + Assignment Macros + ================= + + Name Description + ---- ---------- + SPICE_CELL_SET_C( item, i, cell ) Assign the ith + element of a + character cell. + Arguments cell + and item are + pointers. + + SPICE_CELL_SET_D( item, i, cell ) Assign the ith + element of a + double precision + cell. Argument + cell is a + pointer. + + SPICE_CELL_SET_I( item, i, cell ) Assign the ith + element of an + integer cell. + Argument cell is + a pointer. + + + Fetch Macros + ============== + + Name Description + ---- ---------- + SPICE_CELL_GET_C( cell, i, lenout, item ) Fetch the ith + element from a + character cell. + Arguments cell + and item are + pointers. + Argument lenout + is the available + space in item. + + SPICE_CELL_GET_D( cell, i, item ) Fetch the ith + element from a + double precision + cell. Arguments + cell and item are + pointers. + + SPICE_CELL_GET_I( cell, i, item ) Fetch the ith + element from an + integer cell. + Arguments cell + and item are + pointers. + Element Pointer Macros + ====================== + + Name Description + ---- ---------- + SPICE_CELL_ELEM_C( cell, i ) Macro evaluates + to a SpiceChar + pointer to the + ith data element + of a character + cell. Argument + cell is a + pointer. + + SPICE_CELL_ELEM_D( cell, i ) Macro evaluates + to a SpiceDouble + pointer to the + ith data element + of a double + precision cell. + Argument cell is + a pointer. + + SPICE_CELL_ELEM_I( cell, i ) Macro evaluates + to a SpiceInt + pointer to the + ith data element + of an integer + cell. Argument + cell is a + pointer. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 22-AUG-2002 (NJB) + +*/ +#ifndef HAVE_SPICE_CELLS_H + + #define HAVE_SPICE_CELLS_H + + + /* + Data type codes: + */ + typedef enum _SpiceDataType SpiceCellDataType; + + + /* + Cell structure: + */ + struct _SpiceCell + + { SpiceCellDataType dtype; + SpiceInt length; + SpiceInt size; + SpiceInt card; + SpiceBoolean isSet; + SpiceBoolean adjust; + SpiceBoolean init; + void * base; + void * data; }; + + typedef struct _SpiceCell SpiceCell; + + typedef const SpiceCell ConstSpiceCell; + + + /* + SpiceCell control area size: + */ + #define SPICE_CELL_CTRLSZ 6 + + + /* + Declaration macros: + */ + + #define SPICECHAR_CELL( name, size, length ) \ + \ + static SpiceChar SPICE_CELL_##name[SPICE_CELL_CTRLSZ + size][length]; \ + \ + static SpiceCell name = \ + \ + { SPICE_CHR, \ + length, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEDOUBLE_CELL( name, size ) \ + \ + static SpiceDouble SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_DP, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEINT_CELL( name, size ) \ + \ + static SpiceInt SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_INT, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + /* + Access macros for individual elements: + */ + + /* + Data element pointer macros: + */ + + #define SPICE_CELL_ELEM_C( cell, i ) \ + \ + ( ( (SpiceChar *) (cell)->data ) + (i)*( (cell)->length ) ) + + + #define SPICE_CELL_ELEM_D( cell, i ) \ + \ + ( ( (SpiceDouble *) (cell)->data )[(i)] ) + + + #define SPICE_CELL_ELEM_I( cell, i ) \ + \ + ( ( (SpiceInt *) (cell)->data )[(i)] ) + + + /* + "Fetch" macros: + */ + + #define SPICE_CELL_GET_C( cell, i, lenout, item ) \ + \ + { \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( (cell)->length, 0, (lenout-1) ) \ + * sizeof ( SpiceChar ); \ + \ + memmove ( (item), SPICE_CELL_ELEM_C((cell), (i)), nBytes ); \ + \ + item[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_GET_D( cell, i, item ) \ + \ + ( (*item) = ( (SpiceDouble *) (cell)->data)[i] ) + + + #define SPICE_CELL_GET_I( cell, i, item ) \ + \ + ( (*item) = ( (SpiceInt *) (cell)->data)[i] ) + + + /* + Assignment macros: + */ + + #define SPICE_CELL_SET_C( item, i, cell ) \ + \ + { \ + SpiceChar * sPtr; \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( strlen(item), 0, (cell)->length - 1 ) \ + * sizeof ( SpiceChar ); \ + \ + sPtr = SPICE_CELL_ELEM_C((cell), (i)); \ + \ + memmove ( sPtr, (item), nBytes ); \ + \ + sPtr[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_SET_D( item, i, cell ) \ + \ + ( ( (SpiceDouble *) (cell)->data)[i] = (item) ) + + + #define SPICE_CELL_SET_I( item, i, cell ) \ + \ + ( ( (SpiceInt *) (cell)->data)[i] = (item) ) + + + /* + The enum SpiceTransDir is used to indicate language translation + direction: C to Fortran or vice versa. + */ + enum _SpiceTransDir { C2F = 0, F2C = 1 }; + + typedef enum _SpiceTransDir SpiceTransDir; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDAS.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDAS.h new file mode 100644 index 000000000..72e928755 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDAS.h @@ -0,0 +1,116 @@ + +/* + +-Header_File SpiceDAS.h ( CSPICE DAS-specific definitions ) + +-Abstract + + Perform CSPICE DAS-specific definitions, including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DAS + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE DAS functions. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_DAS_FTSIZE is the maximum number of DAS files that can be + open at any one time. + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that + require a data type specifier. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 07-APR-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_DAS_H + + #define HAVE_SPICE_DAS_H + + + /* + Constants + */ + + + /* + Fortran maximum number of DAS files that can be open at any one time: + */ + #define SPICE_DAS_FTSIZE 5000 + + + /* + DAS data type specifiers used in all DAS routines that require + a data type either as input or to extract data from an output + array. + + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that require a + data type specifier. + */ + #define SPICE_DAS_CHARDT 0 + #define SPICE_DAS_DPDT 1 + #define SPICE_DAS_INTDT 2 + + +#endif + +/* +End of header file SpiceDAS.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDLA.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDLA.h new file mode 100644 index 000000000..c429850dc --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDLA.h @@ -0,0 +1,345 @@ +/* + +-Header_File SpiceDLA.h ( CSPICE DLA-specific definitions ) + +-Abstract + + Perform CSPICE DLA-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DLA functions. + + + Macros + ====== + + Dimensions + ---------- + + Name Description + ---- ----------- + SPICE_DLA_DSCSIZ Size of a SPICELIB DLA descriptor, + measured in multiples of the size of a + SpiceInt. A DLA descriptor `DLADescr' + can be declared + + SpiceInt DLADescr [SPICE_DLA_DSCSIZ]; + + This parameter is provided for + compatibility with f2c'd SPICELIB + interfaces; CSPICE wrappers should pass + DLA descriptors via pointers to the + SpiceDLADescr structure defined below. + + + DLA File Offsets + ---------------- + + These parameters are provided to support CSPICE wrapper testing. + + Name Description + ---- ----------- + SPICE_DLA_VERIDX DAS integer address of DLA version code. + + SPICE_DLA_LLBIDX DAS integer addresses of first segment linked + list pointer. + + SPICE_DLA_LLEIDX DAS integer addresses of last segment linked + list pointer. + + + Structure Offsets + ------------------------- + + These parameters are provided to support CSPICE wrapper + implementation. + + + Name Description + ---- ----------- + SPICE_DLA_BWDIDX Backward pointer index in a DLA + descriptor. + + SPICE_DLA_FWDIDX Forward pointer index in a DLA + descriptor. + + SPICE_DLA_IBSIDX Integer base address index in a + DLA descriptor. + + SPICE_DLA_ISZIDX Integer component size index in a + DLA descriptor. + + SPICE_DLA_DBSIDX D.p. base address index in a DLA + descriptor. + + SPICE_DLA_DSZIDX D.p. component size index in a + DLA descriptor. + + SPICE_DLA_CBSIDX Character base address index in a + DLA descriptor. + + SPICE_DLA_CSZIDX Character component size index in a + DLA descriptor. + + + Other DLA parameters + -------------------- + + Name Description + ---- ----------- + SPICE_DLA_NULPTR Null pointer parameter. + + SPICE_DLA_FMTVER DLA format version. + + + Structures + ========== + + DLA API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDLADescr DLA descriptor. + + Note: the "base addresses" described + below are the *predecessors* of the + first addresses occupied by the + respective components of each data type. + + The structure members are: + + bwdptr: backward pointer. Data + type is SpiceInt. + + fwdptr: forward pointer. Data + type is SpiceInt. + + ibase: base DAS address of the + integer component of a + DLA segment. + + isize: number of elements in the + integer component of a + DLA segment. + + dbase: base DAS address of + double precision + component of a DLA + segment. + + dsize: number of elements in the + double precision + component of a DLA + segment. + + cbase: base DAS address of + character component of a + DLA segment. + + csize: number of elements in the + character component of a + DLA segment. + + + + ConstSpiceDLADescr A constant DLA descriptor. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 24-SEP-2021 (JDR) + + Added DLA File Offsets and Other DLA parameters, required for CSPICE + wrappers' testing. + + -CSPICE Version 1.1.0, 21-JAN-2016 (NJB) + + Updated to remove + + f2c_proto.h + dla_proto.h + + The prototypes declared in these headers have been moved + to the files + + SpiceZfc.h + SpiceZpr.h + + -DSKLIB_C Version 1.0.1, 12-FEB-2010 (NJB) + + Updated to include + + f2c_proto.h + dla_proto.h + + + -DSKLIB_C Version 1.0.1, 09-FEB-2007 (NJB) + + Comments were corrected: names of structure members bwdptr and + fwdptr in the comments now match the names used in the structure + definition. + + -DSKLIB_C Version 1.0.0, 26-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DLA_H + + #define HAVE_SPICE_DLA_H + + + + /* + DAS integer address of DLA version code. + */ + #define SPICE_DLA_VERIDX 1 + + /* + Linked list parameters + + Logical arrays (aka "segments") in a DAS linked array (DLA) file + are organized as a doubly linked list. Each logical array may + actually consist of character, double precision, and integer + components. A component of a given data type occupies a + contiguous range of DAS addresses of that type. Any or all + array components may be empty. + + The segment descriptors in a SPICE DLA (DAS linked array) file + are connected by a doubly linked list. Each node of the list is + represented by a pair of integers acting as forward and backward + pointers. Each pointer pair occupies the first two integers of a + segment descriptor in DAS integer address space. The DLA file + contains pointers to the first integers of both the first and + last segment descriptors. + + At the DLA level of a file format implementation, there is + no knowledge of the data contents. Hence segment descriptors + provide information only about file layout (in contrast with + the DAF system). Metadata giving specifics of segment contents + are stored within the segments themselves in DLA-based file + formats. + + + Parameter declarations follow. + + DAS integer addresses of first and last segment linked list + pointer pairs. The contents of these pointers + are the DAS addresses of the first integers belonging + to the first and last link pairs, respectively. + + The acronyms "LLB" and "LLE" denote "linked list begin" + and "linked list end" respectively. + */ + #define SPICE_DLA_LLBIDX SPICE_DLA_VERIDX + 1 + #define SPICE_DLA_LLEIDX SPICE_DLA_LLBIDX + 1 + + /* + Null pointer parameter. + */ + #define SPICE_DLA_NULPTR -1 + + + /* + DLA descriptor dimension: + */ + #define SPICE_DLA_DSCSIZ 8 + + /* + DLA descriptor index parameters: + */ + #define SPICE_DLA_BWDIDX 0 + #define SPICE_DLA_FWDIDX 1 + #define SPICE_DLA_IBSIDX 2 + #define SPICE_DLA_ISZIDX 3 + #define SPICE_DLA_DBSIDX 4 + #define SPICE_DLA_DSZIDX 5 + #define SPICE_DLA_CBSIDX 6 + #define SPICE_DLA_CSZIDX 7 + + + + /* + Structures + */ + + /* + DLA segment descriptor: + */ + struct _SpiceDLADescr + + { SpiceInt bwdptr; + SpiceInt fwdptr; + SpiceInt ibase; + SpiceInt isize; + SpiceInt dbase; + SpiceInt dsize; + SpiceInt cbase; + SpiceInt csize; }; + + typedef struct _SpiceDLADescr SpiceDLADescr; + + /* + Constant DLA segment descriptor: + */ + typedef const SpiceDLADescr ConstSpiceDLADescr; + + + /* + Other DLA parameters: + + + DLA format version. (This number is expected to occur very + rarely at integer address SPICE_DLA_VERIDX in uninitialized DLA files.) + */ + #define SPICE_DLA_FMTVER 1000000 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDSK.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDSK.h new file mode 100644 index 000000000..c6d95d087 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDSK.h @@ -0,0 +1,903 @@ +/* + +-Header_File SpiceDSK.h ( CSPICE DSK-specific definitions ) + +-Abstract + + Perform CSPICE DSK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DSK functions. + + + General definitions + =================== + + Macros + ====== + + + Dimensions + ---------- + + Name Description + ---- ----------- + + SPICE_DSK_DSCSIZ Size of a Fortran DSK descriptor, + measured in multiples of the size of a + SpiceDouble. A array `descr' containing + such a descriptor can be declared + + SpiceDouble descr[SPICE_DSK_DSCSIZ]; + + Such arrays normally should be used only + in the implementations of CSPICE + wrappers. + + + Data class values + ----------------- + + Name Description + ---- ----------- + + SPICE_DSK_SVFCLS (Class 1) indicates a surface + that can be represented as a single-valued + function of its domain coordinates. + + An example is a surface defined by a + function that maps each planetodetic + longitude and latitude pair to a unique + altitude. + + SPICE_DSK_GENCLS (Class 2) indicates a general surface. + Surfaces that have multiple points for a + given pair of domain coordinates---for + example, multiple radii for a given + latitude and longitude---belong to class + 2. + + + Coordinate system values + ------------------------ + + Name Description + ---- ----------- + + SPICE_DSK_LATSYS Code 1 refers to the planetocentric + latitudinal system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is latitude. The + third coordinate is radius. + + + SPICE_DSK_CYLSYS Code 2 refers to the cylindrical system. + + In this system, the first tangential + coordinate is radius and the second + tangential coordinate is longitude. The + third, orthogonal coordinate is Z. + + + SPICE_DSK_RECSYS Code 3 refers to the rectangular system. + + In this system, the first tangential + coordinate is X and the second + tangential coordinate is Y. The third, + orthogonal coordinate is Z. + + + SPICE_DSK_PDTSYS Code 4 refers to the + planetodetic/geodetic system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is planetodectic + latitude. The third, orthogonal + coordinate is altitude. + + + Structures + ========== + + + DSK API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDSKDescr DSK descriptor. + + The structure members are: + + surfce: Surface ID code. Data + type is SpiceInt. + + center: Center ID code. Data + type is SpiceInt. + + dclass: Data class ID code. Data + type is SpiceInt. + + dtype: DSK Data type. Data + type is SpiceInt. + + frmcde: Reference frame ID code. Data + type is SpiceInt. + + corsys: Coordinate system ID code. Data + type is SpiceInt. + + corpar: Coordinate system parameters. + Data type is SpiceDouble. This + is an array of length 10. + + co1min: Minimum value of first + coordinate. Data type is + SpiceDouble. + + co1max: Maximum value of first + coordinate. Data type is + SpiceDouble. + + co2min: Minimum value of second + coordinate. Data type is + SpiceDouble. + + co2max: Maximum value of second + coordinate. Data type is + SpiceDouble. + + co3min: Minimum value of third + coordinate. Data type is + SpiceDouble. + + co3max: Maximum value of third + coordinate. Data type is + SpiceDouble. + + start: Coverage start time, expressed + as seconds past J2000 TDB. + + stop: Coverage stop time, expressed + as seconds past J2000 TDB. + + + + ConstSpiceDSKDescr A constant DSK descriptor. + + + + + + Type 2 definitions + ================== + + + Type 2 Macros + ============= + + + Limits on plate model capacity + ------------------------------ + + This section contains parameter descriptions. See declarations + located near the end of the file for parameter values. + + The maximum number of vertices and plates in a single-segment + type 2 plate model are provided here. Larger models must be + distributed across multiple segments, which typically are in + separate files. + + These values can be used to dimension arrays, or to use as limit + checks. + + The value of SPICE_DSK02_MAXPLT is determined from + SPICE_DSK02_MAXVRT via Euler's Formula for simple polyhedra having + triangular faces. + + + Name Description + ---- ----------- + + SPICE_DSK02_MAXVRT Maximum number of vertices the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXPLT Maximum number of plates the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXCGR Maximum number of elements permitted + in the coarse voxel grid. This parameter + is not used directly in CSPICE; rather + it is a convenience parameter that mirrors + the parameter MAXCGR declared in the + SPICELIB INCLUDE file + + dsk02.inc + + + SPICE_DSK02_MAXVXP Maximum size of voxel-plate pointer array. + + + SPICE_DSK02_MXNVLS Maximum size of voxel-plate association list. + + + SPICE_DSK02_MAXCEL Maximum size of spatial index cell workspace. + + + SPICE_DSK02_SPAISZ Maximum size of array containing + integer component of spatial index. + This size is used by MKDSK. Many + applications may be able to use + smaller dimensions than the value + specified by this parameter. + + SPICE_DSK02_SPADSZ Size of double precision component + of spatial index. + + + Integer keyword parameters + -------------------------- + + The following parameters may be passed to dski02_c to identify + type 2 DSK shape model SpiceInt type data or model parameters to + be returned. + + + Name Description + ---- ---------- + + SPICE_DSK02_KWNV Number of vertices in model. + + SPICE_DSK02_KWNP Number of plates in model. + + SPICE_DSK02_KWNVXT Total number of voxels in fine grid. + + SPICE_DSK02_KWVGRX Voxel grid extent. This extent is + an array of three integers + indicating the number of voxels in + the X, Y, and Z directions in the + fine voxel grid. + + SPICE_DSK02_KWCGSC Coarse voxel grid scale. The extent + of the fine voxel grid is related to + the extent of the coarse voxel grid + by this scale factor. + + SPICE_DSK02_KWVXPS Size of the voxel-to-plate pointer + list. + + SPICE_DSK02_KWVXLS Voxel-plate correspondence list size. + + SPICE_DSK02_KWVTLS Vertex-plate correspondence list + size. + + SPICE_DSK02_KWPLAT Plate array. For each plate, this + array contains the indices of the + plate's three vertices. The ordering + of the array members is: + + Plate 1 vertex index 1 + Plate 1 vertex index 2 + Plate 1 vertex index 3 + Plate 2 vertex index 1 + ... + + The vertex indices in this array start + at 1 and end at NV, the number of + vertices in the model. + + SPICE_DSK02_KWVXPT Voxel-plate pointer list. This list + contains pointers that map fine + voxels to lists of plates that + intersect those voxels. Note that + only fine voxels belonging to + non-empty coarse voxels are in the + domain of this mapping. + + SPICE_DSK02_KWVXPL Voxel-plate correspondence list. + This list contains lists of plates + that intersect fine voxels. (This + list is the data structure into + which the voxel-to-plate pointers + point.) This list can contain + empty lists. Plate IDs in this + list start at 1 and end at NP, + the number of plates in the model. + + SPICE_DSK02_KWVTPT Vertex-plate pointer list. This list + contains pointers that map vertices + to lists of plates to which those + vertices belong. + + Note that the size of this list is + always NV, the number of vertices. + Hence there's no need for a separate + keyword for the size of this list. + + SPICE_DSK02_KWVTPL Vertex-plate correspondence list. + This list contains, for each vertex, + the indices of the plates to which that + vertex belongs. Plate IDs in this list + start at 1 and end at NP, the number of + plates in the model. + + SPICE_DSK02_KWCGPT Coarse voxel grid pointers. This is + an array of pointers mapping coarse + voxels to lists of pointers in the + voxel-plate pointer list. Each + non-empty coarse voxel maps to a + list of pointers; every fine voxel + contained in a non-empty coarse voxel + has its own pointers. Grid elements + corresponding to empty coarse voxels + contain non-positive values. + + + Double precision keyword parameters + ----------------------------------- + + The following parameters may be passed to dskd02_c to identify + type 2 DSK shape model SpiceDouble type data or model parameters to + be returned. + + + SPICE_DSK02_KWDSC Array containing contents of Fortran + DSK descriptor of segment. Note + that DSK descriptors are not to be + confused with DLA descriptors, which + contain segment component base address + and size information. The dimension of + this array is SPICE_DSK_DSCSIZ. + + SPICE_DSK02_KWVTBD Vertex bounds. This is an array of + six values giving the minimum and + maximum values of each component of the + vertex set. + + SPICE_DSK02_KWVXOR Voxel grid origin. This is the location + of the voxel grid origin in the + body-fixed frame associated with the + target body. + + SPICE_DSK02_KWVXSZ Voxel size. DSK voxels are cubes; the + edge length of each cube is given by the + voxel size. This size applies to the + fine voxel grid. Units are km. + + SPICE_DSK02_KWVERT Vertex coordinates. + + + + + Type 4 definitions + ================== + + To be added post-N0066. + + + API-specific definitions + ======================== + + Parameters for dskxsi_c: + + SPICE_DSKXSI_DCSIZE Size of `dc' output array. + SPICE_DSKXSI_ICSIZE Size of `ic' output array. + + These sizes may be increased in a future version + of the CSPICE Toolkit. + + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 02-NOV-2016 (NJB) + + Removed type 4 macros. + + 21-MAR-2016 (NJB) + + Changed type 2 keyword parameter names to use the + substring DSK02 rather than DSK. + + 26-FEB-2016 (NJB) + + Added parameter declarations for type 2 spatial index. Added + parameter declaration for data class 2. Renamed parameter + SPICE_DSK_MAXCGR to SPICE_DSK02_MAXCGR. Added parameter + declarations for the API dskxsi_c. Removed include statement + for SpiceDLA.h. Made miscellaneous updates to comments. + + DSKLIB_C 02-MAY-2014 (NJB) + + Added include guards for + + SpiceZdf.h + SpiceDLA.h + + Removed reference to + + dsk_proto.h + + Last update was 13-NOV-2012 (NJB) + + Updated to support DSK type 4. The SpiceDSKDescr type and + supporting definitions have been added. The file has been + reorganized so as to group together data type-specific + definitions. + + DSKLIB_C Version 3.0.0, 13-MAY-2010 (NJB) + + Updated for compatibility with new DSK type 2 segment + design. + + DSKLIB_C Version 2.0.0, 12-FEB-2010 (NJB) + + Updated to include + + SpiceDLA.h + f2c_proto.h + dsk_proto.h + + DSKLIB_C Version 1.0.0, 30-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DSK_H + + #define HAVE_SPICE_DSK_H + + /* + Prototypes + */ + #ifndef HAVE_SPICEDEFS_H + #include "SpiceZdf.h" + #endif + + + /* + General Constants + */ + + + /* + Dimension parameters + */ + + /* + Size of a SPICELIB DSK descriptor (in units of d.p. numbers): + */ + #define SPICE_DSK_DSCSIZ 24 + + /* + Number of coordinate system parameters in DSK descriptor: + */ + #define SPICE_DSK_NSYPAR 10 + + + /* + Index parameters + */ + /* + Fortran DSK descriptor index parameters: + */ + #define SPICE_DSK_SRFIDX 0 + #define SPICE_DSK_CTRIDX 1 + #define SPICE_DSK_CLSIDX 2 + #define SPICE_DSK_TYPIDX 3 + #define SPICE_DSK_FRMIDX 4 + #define SPICE_DSK_SYSIDX 5 + #define SPICE_DSK_PARIDX 6 + + /* + The offset between the indices immediately above and below + is given by the parameter SPICE_DSK_NSYPAR. Literal values + are used below for convenience of the reader. + */ + #define SPICE_DSK_MN1IDX 16 + #define SPICE_DSK_MX1IDX 17 + #define SPICE_DSK_MN2IDX 18 + #define SPICE_DSK_MX2IDX 19 + #define SPICE_DSK_MN3IDX 20 + #define SPICE_DSK_MX3IDX 21 + #define SPICE_DSK_BTMIDX 22 + #define SPICE_DSK_ETMIDX 23 + + + + + /* + Data class parameters + */ + + /* + Single-valued surface data class + */ + #define SPICE_DSK_SVFCLS 1 + + /* + General surface data class + */ + #define SPICE_DSK_GENCLS 2 + + + /* + Coordinate system parameters + */ + + /* + Latitudinal coordinate system + */ + #define SPICE_DSK_LATSYS 1 + + /* + Cylindrical coordinate system + */ + #define SPICE_DSK_CYLSYS 2 + + /* + Rectangular coordinate system + */ + #define SPICE_DSK_RECSYS 3 + + /* + Planetodetic coordinate system + */ + #define SPICE_DSK_PDTSYS 4 + + + /* + Structures + */ + + /* + DSK segment descriptor: + */ + struct _SpiceDSKDescr + + { SpiceInt surfce; + SpiceInt center; + SpiceInt dclass; + SpiceInt dtype; + SpiceInt frmcde; + SpiceInt corsys; + SpiceDouble corpar [SPICE_DSK_NSYPAR]; + SpiceDouble co1min; + SpiceDouble co1max; + SpiceDouble co2min; + SpiceDouble co2max; + SpiceDouble co3min; + SpiceDouble co3max; + SpiceDouble start; + SpiceDouble stop; }; + + typedef struct _SpiceDSKDescr SpiceDSKDescr; + + /* + Constant DSK segment descriptor: + */ + typedef const SpiceDSKDescr ConstSpiceDSKDescr; + + + + + /* + + Type 2 definitions + ================== + + */ + + /* + Dimension parameters + */ + + /* + Maximum vertex count for single segment: + */ + #define SPICE_DSK02_MAXVRT 16000002 + + /* + Maximum plate count for single segment: + */ + #define SPICE_DSK02_MAXPLT ( 2 * (SPICE_DSK02_MAXVRT - 2 ) ) + + /* + The maximum allowed number of vertices, not taking into + account shared vertices. + + Note that this value is not sufficient to create a vertex-plate + mapping for a model of maximum plate count. + */ + #define SPICE_DSK02_MAXNPV ( 3 * (SPICE_DSK02_MAXPLT/2) + 1 ) + + /* + Maximum number of fine voxels. + */ + #define SPICE_DSK02_MAXVOX 100000000 + + /* + Maximum size of the coarse voxel grid array (in units of + integers): + */ + #define SPICE_DSK02_MAXCGR 100000 + + /* + Maximum allowed number of vertex or plate + neighbors a vertex may have. + */ + #define SPICE_DSK02_MAXEDG 120 + + + /* + DSK type 2 spatial index parameters + =================================== + + DSK type 2 spatial index integer component + ------------------------------------------ + + +-----------------+ + | VGREXT | (voxel grid extents, 3 integers) + +-----------------+ + | CGRSCL | (coarse voxel grid scale, 1 integer) + +-----------------+ + | VOXNPT | (size of voxel-plate pointer list) + +-----------------+ + | VOXNPL | (size of voxel-plate list) + +-----------------+ + | VTXNPL | (size of vertex-plate list) + +-----------------+ + | CGRPTR | (coarse grid occupancy pointers) + +-----------------+ + | VOXPTR | (voxel-plate pointer array) + +-----------------+ + | VOXPLT | (voxel-plate list) + +-----------------+ + | VTXPTR | (vertex-plate pointer array) + +-----------------+ + | VTXPLT | (vertex-plate list) + +-----------------+ + */ + + /* + Index parameters + */ + + /* + Grid extent index: + */ + #define SPICE_DSK02_SIVGRX 0 + + /* + Coarse grid scale index: + */ + #define SPICE_DSK02_SICGSC ( SPICE_DSK02_SIVGRX + 3 ) + + /* + Voxel pointer count index: + */ + #define SPICE_DSK02_SIVXNP ( SPICE_DSK02_SICGSC + 1 ) + + /* + Voxel-plate list count index: + */ + #define SPICE_DSK02_SIVXNL ( SPICE_DSK02_SIVXNP + 1 ) + + /* + Vertex-plate list count index: + */ + #define SPICE_DSK02_SIVTNL ( SPICE_DSK02_SIVXNL + 1 ) + + /* + Coarse grid pointer array index: + */ + #define SPICE_DSK02_SICGRD ( SPICE_DSK02_SIVTNL + 1 ) + + + /* + Spatial index integer component dimensions + */ + + /* + Size of fixed-size portion of integer component: + */ + #define SPICE_DSK02_IXIFIX ( SPICE_DSK02_MAXCGR + 7 ) + + + /* + + DSK type 2 spatial index double precision component + --------------------------------------------------- + + +-----------------+ + | Vertex bounds | 6 values (min/max for each component) + +-----------------+ + | Voxel origin | 3 elements + +-----------------+ + | Voxel size | 1 element + +-----------------+ + + */ + + + /* + Spatial index double precision indices + */ + + /* + Vertex bounds index: + */ + #define SPICE_DSK02_SIVTBD 0 + + /* + Voxel grid origin index: + */ + #define SPICE_DSK02_SIVXOR ( SPICE_DSK02_SIVTBD + 6 ) + + /* + Voxel size index: + */ + #define SPICE_DSK02_SIVXSZ ( SPICE_DSK02_SIVXOR + 3 ) + + + /* + Spatial index double precision component dimensions + */ + + /* + Size of fixed-size portion of double precision component: + */ + #define SPICE_DSK02_IXDFIX 10 + + /* + Size of double precision component. This is a convenience + parameter chosen to have a name consisent with the + integer spatial index size. + */ + #define SPICE_DSK02_SPADSZ SPICE_DSK02_IXDFIX + + /* + The limits below are used to define a suggested maximum + size for the integer component of the spatial index. + */ + + /* + Maximum number of entries in voxel-plate pointer array: + */ + #define SPICE_DSK02_MAXVXP ( SPICE_DSK02_MAXPLT /2 ) + + /* + Maximum cell size: + */ + #define SPICE_DSK02_MAXCEL 60000000 + + /* + Maximum number of entries in voxel-plate list: + */ + #define SPICE_DSK02_MXNVLS SPICE_DSK02_MAXCEL + \ + ( SPICE_DSK02_MAXVXP / 2 ) + + /* + Spatial index integer component size: + */ + #define SPICE_DSK02_SPAISZ ( SPICE_DSK02_IXIFIX + \ + SPICE_DSK02_MAXVXP + \ + SPICE_DSK02_MXNVLS + \ + SPICE_DSK02_MAXVRT + \ + SPICE_DSK02_MAXNPV ) + + + + + /* + Keyword parameters for SpiceInt data items: + */ + + /* + Index parameters + */ + #define SPICE_DSK02_KWNV 1 + #define SPICE_DSK02_KWNP (SPICE_DSK02_KWNV + 1) + #define SPICE_DSK02_KWNVXT (SPICE_DSK02_KWNP + 1) + #define SPICE_DSK02_KWVGRX (SPICE_DSK02_KWNVXT + 1) + #define SPICE_DSK02_KWCGSC (SPICE_DSK02_KWVGRX + 1) + #define SPICE_DSK02_KWVXPS (SPICE_DSK02_KWCGSC + 1) + #define SPICE_DSK02_KWVXLS (SPICE_DSK02_KWVXPS + 1) + #define SPICE_DSK02_KWVTLS (SPICE_DSK02_KWVXLS + 1) + #define SPICE_DSK02_KWPLAT (SPICE_DSK02_KWVTLS + 1) + #define SPICE_DSK02_KWVXPT (SPICE_DSK02_KWPLAT + 1) + #define SPICE_DSK02_KWVXPL (SPICE_DSK02_KWVXPT + 1) + #define SPICE_DSK02_KWVTPT (SPICE_DSK02_KWVXPL + 1) + #define SPICE_DSK02_KWVTPL (SPICE_DSK02_KWVTPT + 1) + #define SPICE_DSK02_KWCGPT (SPICE_DSK02_KWVTPL + 1) + + + /* + Keyword parameters for SpiceDouble data items: + */ + #define SPICE_DSK02_KWDSC (SPICE_DSK02_KWCGPT + 1) + #define SPICE_DSK02_KWVTBD (SPICE_DSK02_KWDSC + 1) + #define SPICE_DSK02_KWVXOR (SPICE_DSK02_KWVTBD + 1) + #define SPICE_DSK02_KWVXSZ (SPICE_DSK02_KWVXOR + 1) + #define SPICE_DSK02_KWVERT (SPICE_DSK02_KWVXSZ + 1) + + + /* + + Type 4 definitions + ================== + + These definitions should be treated as "SPICE private." They + may change in a future version of the SPICE Toolkit. They + should not be referenced by user applications. + + To be added post-N0066. + + */ + + + + /* + API-specific definitions + ======================== + + Parameters for dskxsi_c: + */ + #define SPICE_DSKXSI_DCSIZE 1 + #define SPICE_DSKXSI_ICSIZE 1 + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDtl.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDtl.h new file mode 100644 index 000000000..7b1018c52 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceDtl.h @@ -0,0 +1,251 @@ + +/* + +-Header_File SpiceDtl.h ( CSPICE DSK tolerance definitions ) + +-Abstract + + Define CSPICE DSK tolerance and margin macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DSK + +-Particulars + + This file contains declarations of tolerance and margin values + used by the DSK subsystem. + + The values declared in this file are accessible at run time + through the routines + + dskgtl_c {DSK, get tolerance value} + dskstl_c {DSK, set tolerance value} + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 27-FEB-2016 (NJB) + +*/ + + +#ifndef HAVE_SPICE_DSKTOL_H + + #define HAVE_SPICE_DSKTOL_H + + +/* + Parameter declarations + ====================== + + DSK type 2 plate expansion factor + --------------------------------- + + The factor SPICE_DSK_XFRACT is used to slightly expand plates + read from DSK type 2 segments in order to perform ray-plate + intercept computations. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + Plate expansion is done by computing the difference vectors + between a plate's vertices and the plate's centroid, scaling + those differences by (1 + SPICE_DSK_XFRACT), then producing new + vertices by adding the scaled differences to the centroid. This + process doesn't affect the stored DSK data. + + Plate expansion is also performed when surface points are mapped + to plates on which they lie, as is done for illumination angle + computations. + + This parameter is user-adjustable. + */ + #define SPICE_DSK_XFRACT ( 1.0e-10 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYXFR 1 + + + /* + Greedy segment selection factor + ------------------------------- + + The factor SGREED is used to slightly expand DSK segment + boundaries in order to select segments to consider for + ray-surface intercept computations. The effect of this factor is + to make the multi-segment intercept algorithm consider all + segments that are sufficiently close to the ray of interest, even + if the ray misses those segments. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + The exact way this parameter is used is dependent on the + coordinate system of the segment to which it applies, and the DSK + software implementation. This parameter may be changed in a + future version of SPICE. + */ + #define SPICE_DSK_SGREED ( 1.0e-8 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSGR ( SPICE_DSK_KEYXFR + 1 ) + + + /* + Segment pad margin + ------------------ + + The segment pad margin is a scale factor used to determine when a + point resulting from a ray-surface intercept computation, if + outside the segment's boundaries, is close enough to the segment + to be considered a valid result. + + This margin is required in order to make DSK segment padding + (surface data extending slightly beyond the segment's coordinate + boundaries) usable: if a ray intersects the pad surface outside + the segment boundaries; the pad is useless if the intercept is + automatically rejected. + + However, an excessively large value for this parameter is + detrimental, since a ray-surface intercept solution found "in" a + segment will supersede solutions in segments farther from the ray's + vertex. Solutions found outside of a segment thus can mask solutions + that are closer to the ray's vertex by as much as the value of this + margin, when applied to a segment's boundary dimensions. + */ + #define SPICE_DSK_SGPADM ( 1.0e-10 ) + + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSPM ( SPICE_DSK_KEYSGR + 1 ) + + + /* + Surface-point membership margin + ------------------------------- + + The surface-point membership margin limits the distance + between a point and a surface to which the point is + considered to belong. The margin is a scale factor applied + to the size of the segment containing the surface. + + This margin is used to map surface points to outward + normal vectors at those points. + + If this margin is set to an excessively small value, + routines that make use of the surface-point mapping won't + work properly. + */ + #define SPICE_DSK_PTMEMM ( 1.0e-7 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYPTM ( SPICE_DSK_KEYSPM + 1 ) + + + /* + Angular rounding margin + ----------------------- + + This margin specifies an amount by which angular values + may deviate from their proper ranges without a SPICE error + condition being signaled. + + For example, if an input latitude exceeds pi/2 radians by a + positive amount less than this margin, the value is treated as + though it were pi/2 radians. + + Units are radians. + */ + #define SPICE_DSK_ANGMRG ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYAMG ( SPICE_DSK_KEYPTM + 1 ) + + + /* + Longitude alias margin + ---------------------- + + This margin specifies an amount by which a longitude + value can be outside a given longitude range without + being considered eligible for transformation by + addition or subtraction of 2*pi radians. + + A longitude value, when compared to the endpoints of + a longitude interval, will be considered to be equal + to an endpoint if the value is outside the interval + differs from that endpoint by a magnitude less than + the alias margin. + + + Units are radians. + */ + #define SPICE_DSK_LONALI ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYLAL ( SPICE_DSK_KEYAMG + 1 ) + + + +#endif + +/* +End of header file SpiceDtl.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEK.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEK.h new file mode 100644 index 000000000..cbe213fb0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEK.h @@ -0,0 +1,448 @@ +/* + +-Header_File SpiceEK.h ( CSPICE EK-specific definitions ) + +-Abstract + + Perform CSPICE EK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls CSPICE + EK functions. + + + Macros + ====== + + General limits + -------------- + + Name Description + ---- ---------- + SPICE_EK_MXCLSG Maximum number of columns per segment. + + SPICE_EK_TYPLEN Maximum length of a short string + indicating a data type (one of + {"CHR", "DP", "INT", "TIME"}). Such + strings are returned by some of the + Fortran SPICELIB EK routines, hence also + by their f2c'd counterparts. + + Sizes of EK objects + ------------------- + + Name Description + ---- ---------- + + SPICE_EK_CNAMSZ Maximum length of column name. + SPICE_EK_CSTRLN Length of string required to hold column + name. + SPICE_EK_TNAMSZ Maximum length of table name. + SPICE_EK_TSTRLN Length of string required to hold table + name. + + + Query-related limits + -------------------- + + Name Description + ---- ---------- + + SPICE_EK_MAXQRY Maximum length of an input query. This + value is currently equivalent to + twenty-five 80-character lines. + + SPICE_EK_MAXQSEL Maximum number of columns that may be + listed in the `SELECT clause' of a query. + + SPICE_EK_MAXQTAB Maximum number of tables that may be + listed in the `FROM clause' of a query. + + SPICE_EK_MAXQCON Maximum number of relational expressions + that may be listed in the `constraint + clause' of a query. + + This limit applies to a query when it is + represented in `normalized form': that + is, the constraints have been expressed + as a disjunction of conjunctions of + relational expressions. The number of + relational expressions in a query that + has been expanded in this fashion may be + greater than the number of relations in + the query as orginally written. For + example, the expression + + ( ( A LT 1 ) OR ( B GT 2 ) ) + AND + ( ( C NE 3 ) OR ( D EQ 4 ) ) + + which contains 4 relational expressions, + expands to the equivalent normalized + constraint + + ( ( A LT 1 ) AND ( C NE 3 ) ) + OR + ( ( A LT 1 ) AND ( D EQ 4 ) ) + OR + ( ( B GT 2 ) AND ( C NE 3 ) ) + OR + ( ( B GT 2 ) AND ( D EQ 4 ) ) + + which contains eight relational + expressions. + + + + SPICE_EK_MAXQJOIN Maximum number of tables that can be + joined. + + SPICE_EK_MAXQJCON Maximum number of join constraints + allowed. + + SPICE_EK_MAXQORD Maximum number of columns that may be + used in the `order-by clause' of a query. + + SPICE_EK_MAXQTOK Maximum number of tokens in a query. + Tokens + are reserved words, column names, + parentheses, and values. Literal strings + and time values count as single tokens. + + SPICE_EK_MAXQNUM Maximum number of numeric tokens in a + query. + + SPICE_EK_MAXQCLN Maximum total length of character tokens + in a query. + + SPICE_EK_MAXQSTR Maximum length of literal string values + allowed in queries. + + + Codes + ----- + + Name Description + ---- ---------- + + SPICE_EK_VARSIZ Code used to indicate variable-size + objects. Usually this is used in a + context where a non-negative integer + indicates the size of a fixed-size object + and the presence of this code indicates a + variable-size object. + + The value of this constant must match the + parameter IFALSE used in the Fortran + library SPICELIB. + + + Enumerated Types + ================ + + Enumerated code values + ---------------------- + + Name Description + ---- ---------- + SpiceEKDataType Codes for data types used in the EK + interface: character, double precision, + integer, and "time." + + The values are: + + { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3 } + + + + SpiceEKExprClass Codes for types of expressions that may + appear in the SELECT clause of EK + queries. Values and meanings are: + + + SPICE_EK_EXP_COL Selected item was a + column. The column + may qualified by a + table name. + + SPICE_EK_EXP_FUNC Selected item was + a simple function + invocation of the + form + + F ( ) + + or else was + + COUNT(*) + + SPICE_EK_EXP_EXPR Selected item was a + more general + expression than + those shown above. + + + Numeric values are: + + { SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 } + + + Structures + ========== + + EK API structures + ----------------- + + Name Description + ---- ---------- + + SpiceEKAttDsc EK column attribute descriptor. Note + that this object is distinct from the EK + column descriptors used internally in + the EK routines; those descriptors + contain pointers as well as attribute + information. + + The members are: + + cclass: Column class code. + + dtype: Data type code: has type + SpiceEKDataType. + + strlen: String length. Applies to + SPICE_CHR type. Value is + SPICE_EK_VARSIZ for + variable-length strings. + + size: Column entry size; this is + the number of array + elements in a column + entry. The value is + SPICE_EK_VARSIZ for + variable-size columns. + + indexd: Index flag; value is + SPICETRUE if the column is + indexed, SPICEFALSE + otherwise. + + nullok: Null flag; value is + SPICETRUE if the column + may contain null values, + SPICEFALSE otherwise. + + + + SpiceEKSegSum EK segment summary. This structure + contains user interface level descriptive + information. The structure contains the + following members: + + tabnam The name of the table to + which the segment belongs. + + nrows The number of rows in the + segment. + + ncols The number of columns in + the segment. + + cnames An array of names of + columns in the segment. + Column names may contain + as many as SPICE_EK_CNAMSZ + characters. The array + contains room for + SPICE_EK_MXCLSG column + names. + + cdescrs An array of column + attribute descriptors of + type SpiceEKAttDsc. + The array contains room + for SPICE_EK_MXCLSG + descriptors. The Ith + descriptor corresponds to + the column whose name is + the Ith element of the + array cnames. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.0.0 27-JUL-2002 (NJB) + + Defined SpiceEKDataType using SpiceDataType. Removed declaration + of enum _SpiceEKDataType. + + -CSPICE Version 1.0.0, 05-JUL-1999 (NJB) + + Renamed _SpiceEKAttDsc member "class" to "cclass." The + former name is a reserved word in C++. + + + -CSPICE Version 1.0.0, 24-FEB-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_EK_H + + #define HAVE_SPICE_EK_H + + + + /* + Constants + */ + + /* + Sizes of EK objects: + */ + + #define SPICE_EK_CNAMSZ 32 + #define SPICE_EK_CSTRLN ( SPICE_EK_CNAMSZ + 1 ) + #define SPICE_EK_TNAMSZ 64 + #define SPICE_EK_TSTRLN ( SPICE_EK_TNAMSZ + 1 ) + + + + /* + Maximum number of columns per segment: + */ + + #define SPICE_EK_MXCLSG 100 + + + /* + Maximum length of string indicating data type: + */ + + #define SPICE_EK_TYPLEN 4 + + + /* + Query-related limits (see header for details): + */ + + #define SPICE_EK_MAXQRY 2000 + #define SPICE_EK_MAXQSEL 50 + #define SPICE_EK_MAXQTAB 10 + #define SPICE_EK_MAXQCON 1000 + #define SPICE_EK_MAXQJOIN 10 + #define SPICE_EK_MAXQJCON 100 + #define SPICE_EK_MAXQORD 10 + #define SPICE_EK_MAXQTOK 500 + #define SPICE_EK_MAXQNUM 100 + #define SPICE_EK_MAXQCLN SPICE_EK_MAXQRY + #define SPICE_EK_MAXQSTR 1024 + + + + /* + Code indicating "variable size": + */ + #define SPICE_EK_VARSIZ (-1) + + + + /* + Data type codes: + */ + typedef SpiceDataType SpiceEKDataType; + + + + /* + SELECT clause expression type codes: + */ + enum _SpiceEKExprClass{ SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 }; + + typedef enum _SpiceEKExprClass SpiceEKExprClass; + + + + /* + EK column attribute descriptor: + */ + + struct _SpiceEKAttDsc + + { SpiceInt cclass; + SpiceEKDataType dtype; + SpiceInt strlen; + SpiceInt size; + SpiceBoolean indexd; + SpiceBoolean nullok; }; + + typedef struct _SpiceEKAttDsc SpiceEKAttDsc; + + + + /* + EK segment summary: + */ + + struct _SpiceEKSegSum + + { SpiceChar tabnam [SPICE_EK_TSTRLN]; + SpiceInt nrows; + SpiceInt ncols; + SpiceChar cnames [SPICE_EK_MXCLSG][SPICE_EK_CSTRLN]; + SpiceEKAttDsc cdescrs[SPICE_EK_MXCLSG]; }; + + typedef struct _SpiceEKSegSum SpiceEKSegSum; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEll.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEll.h new file mode 100644 index 000000000..d0c123ab0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceEll.h @@ -0,0 +1,115 @@ +/* + +-Header_File SpiceEll.h ( CSPICE Ellipse definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceEllipse data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Ellipse functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceEllipse Structure representing an ellipse in 3- + dimensional space. + + The members are: + + center: Vector defining ellipse's + center. + + semiMajor: Vector defining ellipse's + semi-major axis. + + semiMinor: Vector defining ellipse's + semi-minor axis. + + The ellipse is the set of points + + {X: X = center + + cos(theta) * semiMajor + + sin(theta) * semiMinor, + + theta in [0, 2*Pi) } + + + ConstSpiceEllipse A const SpiceEllipse. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_ELLIPSES + + #define HAVE_SPICE_ELLIPSES + + + + /* + Ellipse structure: + */ + + struct _SpiceEllipse + + { SpiceDouble center [3]; + SpiceDouble semiMajor [3]; + SpiceDouble semiMinor [3]; }; + + typedef struct _SpiceEllipse SpiceEllipse; + + typedef const SpiceEllipse ConstSpiceEllipse; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceErr.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceErr.h new file mode 100644 index 000000000..21e76605c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceErr.h @@ -0,0 +1,141 @@ +/* + +-Header_File SpiceErr.h ( CSPICE error handling definitions ) + +-Abstract + + Perform CSPICE definitions for error handling APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE error handling functions. + + + CONSTANTS + ========== + + Name Description + ---- ---------- + + SPICE_ERROR_LMSGLN Maximum length of a long error message, + including the null terminator. + + SPICE_ERROR_SMSGLN Maximum length of a short error message, + including the null terminator. + + SPICE_ERROR_XMSGLN Maximum length of a short error + explanation message, including the null + terminator. + + SPICE_ERROR_MODLEN Maximum length of a module name + appearing in the traceback message, + including the null terminator. + + SPICE_ERROR_MAXMOD Maximum count of module names + appearing in the traceback message. + + SPICE_ERROR_TRCLEN Maximum length of a traceback message, + including the null terminator. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 05-NOV-2013 (NJB) + +*/ + +#ifndef HAVE_SPICE_ERROR_HANDLING + + #define HAVE_SPICE_ERROR_HANDLING + + + /* + Local constants + */ + #define ARROWLEN 5 + + /* + Public constants + */ + + /* + Long error message length, which is equal to + + ( 23 * 80 ) + 1 + + */ + #define SPICE_ERROR_LMSGLN 1841 + + /* + Short error message length: + */ + #define SPICE_ERROR_SMSGLN 26 + + /* + Short error message explanation length: + */ + #define SPICE_ERROR_XMSGLN 81 + + /* + Module name length for traceback entries: + */ + #define SPICE_ERROR_MODLEN 33 + + /* + Maximum module count for traceback string: + */ + #define SPICE_ERROR_MAXMOD 100 + + /* + Maximum length of traceback string returned + by qcktrc_c. + */ + #define SPICE_ERROR_TRCLEN ( ( SPICE_ERROR_MAXMOD \ + * ( SPICE_ERROR_MODLEN-1 ) ) \ + + ( ARROWLEN \ + * ( SPICE_ERROR_MAXMOD-1 ) ) \ + + 1 ) +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceFrm.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceFrm.h new file mode 100644 index 000000000..89b5c4d08 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceFrm.h @@ -0,0 +1,243 @@ +/* + +-Header_File SpiceFrm.h ( CSPICE frame subsystem definitions ) + +-Abstract + + Perform CSPICE definitions for frame subsystem APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CK + FRAMES + PCK + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE frame subsystem APIs. + + + CONSTANTS + ========== + + + Frame counts + ------------ + + The following parameter are counts of built-in frames. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE files + + ninert.inc + nninrt.inc + + Name Description + ---- ---------- + + SPICE_NFRAME_NINERT Number of built-in inertial frames. + SPICE_NFRAME_NNINRT Number of built-in non-inertial frames. + + + + Frame classes + ------------- + + The following parameters identify SPICE frame classes. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE file frmtyp.inc. See the Frames Required Reading for a + detailed discussion of frame classes. + + + Name Description + ---- ---------- + + SPICE_FRMTYP_INERTL an inertial frame that is listed in the + f2c'd routine chgirf_ and that requires + no external file to compute the + transformation from or to any other + inertial frame. + + + SPICE_FRMTYP_PCK is a frame that is specified relative + to some built-in, inertial frame (of + class SPICE_FRMTYP_INERTL) and that has + an IAU model that may be retrieved from + the PCK system via a call to the + routine tisbod_c. + + + SPICE_FRMTYP_CK is a frame defined by a C-kernel. + + + SPICE_FRMTYP_TK is a "text kernel" frame. These frames + are offset from their associated + "relative" frames by a constant + rotation. + + + SPICE_FRMTYP_DYN is a "dynamic" frame. These currently + are limited to parameterized frames + where the full frame definition depends + on parameters supplied via a frame + kernel. + + SPICE_FRMTYP_SWTCH is a "switch" frame. These frames have + orientation defined by their alignment with + base frames selected from a prioritized list. + The base frames optionally have associated + time intervals of applicability. + + SPICE_FRMTYP_ALL indicates any of the above classes. + This parameter is used in APIs that + fetch information about frames of a + specified class. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 26-AUG-2021 (JDR) (NJB) (BVS) + + Added parameter SWTCH to support the switch frame class. + + Increased the number of non-inertial frames from 106 to 124 + in order to accommodate the following PCK based frames: + + IAU_52_EUROPA + IAU_NIX + IAU_HYDRA + IAU_RYUGU + IAU_ARROKOTH + IAU_DIDYMOS_BARYCENTER + IAU_DIDYMOS + IAU_DIMORPHOS + IAU_DONALDJOHANSON + IAU_EURYBATES + IAU_EURYBATES_BARYCENTER + IAU_QUETA + IAU_POLYMELE + IAU_LEUCUS + IAU_ORUS + IAU_PATROCLUS_BARYCENTER + IAU_PATROCLUS + IAU_MENOETIUS + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.1.0, 25-JAN-2016 (EDW) + + Increased the number of non-inertial frames from 105 to 106 + in order to accommodate the following PCK based frame: + + IAU_BENNU + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.0.0, 23-MAY-2012 (NJB) + +*/ + +#ifndef HAVE_SPICE_FRAME_DEFS + + #define HAVE_SPICE_FRAME_DEFS + + + /* + Frame counts: + */ + + /* + Number of built-in inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file ninert.inc. + */ + #define SPICE_NFRAME_NINERT 21 + + /* + Number of built-in non-inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file nninrt.inc. + */ + #define SPICE_NFRAME_NNINRT 124 + + + + /* + The frame class codes defined here are identical + to those used in SPICELIB. + */ + + /* + Inertial, built-in frames: + */ + #define SPICE_FRMTYP_INERTL 1 + + /* + PCK frames: + */ + #define SPICE_FRMTYP_PCK 2 + + /* + CK frames: + */ + #define SPICE_FRMTYP_CK 3 + + /* + TK frames: + */ + #define SPICE_FRMTYP_TK 4 + + /* + Dynamic frames: + */ + #define SPICE_FRMTYP_DYN 5 + + /* + Switch frames: + */ + #define SPICE_FRMTYP_SWTCH 6 + + /* + All frame classes: + */ + #define SPICE_FRMTYP_ALL ( -1 ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceGF.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceGF.h new file mode 100644 index 000000000..fec0986b7 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceGF.h @@ -0,0 +1,351 @@ +/* + +-Header_File SpiceGF.h ( CSPICE GF-specific definitions ) + +-Abstract + + Perform CSPICE GF-specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + GF + +-Keywords + + GEOMETRY + SEARCH + +-Exceptions + + None + +-Files + + None + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE GF functions. + + + Macros + ====== + + Workspace parameters + -------------------- + + CSPICE applications normally don't declare workspace arguments + and therefore don't directly reference workspace size parameters. + However, CSPICE GF APIs dealing with numeric constraints + dynamically allocate workspace memory; the amount allocated + depends on the number of intervals the workspace windows can + hold. This amount is an input argument to the GF numeric quantity + APIs. + + The parameters below are used to calculate the amount of memory + required. Each workspace window contains 6 double precision + numbers in its control area and 2 double precision numbers for + each interval it can hold. + + + Name Description + ---- ---------- + SPICE_GF_NWMAX Maximum number of windows required for + a user-defined workspace array. + + SPICE_GF_NWDIST Number of workspace windows used by + gfdist_c and the underlying SPICELIB + routine GFDIST. + + SPICE_GF_NWILUM Number of workspace windows used by + gfilum_c and the underlying SPICELIB + routine GFILUM. + + SPICE_GF_NWSEP Number of workspace windows used by + gfsep_c and the underlying SPICELIB + routine GFSEP. + + SPICE_GF_NWRR Number of workspace windows used by + gfrr_c and the underlying SPICELIB + routine GFRR. + + SPICE_GF_NWPA Number of workspace windows used by + gfpa_c and the underlying SPICELIB + routine GFPA. + + + Field of view (FOV) parameters + ------------------------------ + + Name Description + ---- ---------- + SPICE_GF_MAXVRT Maximum allowed number of boundary + vectors for a polygonal FOV. + + SPICE_GF_CIRFOV Parameter identifying a circular FOV. + + SPICE_GF_ELLFOV Parameter identifying a elliptical FOV. + + SPICE_GF_POLFOV Parameter identifying a polygonal FOV. + + SPICE_GF_RECFOV Parameter identifying a rectangular FOV. + + SPICE_GF_SHPLEN Parameter specifying maximum length of + a FOV shape name. + + SPICE_GF_MARGIN is a small positive number used to + constrain the orientation of the + boundary vectors of polygonal FOVs. Such + FOVs must satisfy the following + constraints: + + 1) The boundary vectors must be + contained within a right circular + cone of angular radius less than + than (pi/2) - SPICE_GF_MARGIN radians; + in other words, there must be a vector + A such that all boundary vectors + have angular separation from A of + less than (pi/2)-SPICE_GF_MARGIN + radians. + + 2) There must be a pair of boundary + vectors U, V such that all other + boundary vectors lie in the same + half space bounded by the plane + containing U and V. Furthermore, all + other boundary vectors must have + orthogonal projections onto a plane + normal to this plane such that the + projections have angular separation + of at least 2*SPICE_GF_MARGIN radians + from the plane spanned by U and V. + + SPICE_GF_MARGIN is currently set to 1.e-12. + + + Occultation parameters + ---------------------- + + SPICE_GF_ANNULR Parameter identifying an "annular + occultation." This geometric condition + is more commonly known as a "transit." + The limb of the background object must + not be blocked by the foreground object + in order for an occultation to be + "annular." + + SPICE_GF_ANY Parameter identifying any type of + occultation or transit. + + SPICE_GF_FULL Parameter identifying a full + occultation: the foreground body + entirely blocks the background body. + + SPICE_GF_PARTL Parameter identifying an "partial + occultation." This is an occultation in + which the foreground body blocks part, + but not all, of the limb of the + background body. + + + + Target shape parameters + ----------------------- + + SPICE_GF_EDSHAP Parameter indicating a target object's + shape is modeled as an ellipsoid. + + SPICE_GF_PTSHAP Parameter indicating a target object's + shape is modeled as a point. + + SPICE_GF_RYSHAP Parameter indicating a target object's + "shape" is modeled as a ray emanating + from an observer's location. This model + may be used in visibility computations + for targets whose direction, but not + position, relative to an observer is + known. + + SPICE_GF_SPSHAP Parameter indicating a target object's + shape is modeled as a sphere. + + + + Search parameters + ----------------- + + These parameters affect the manner in which GF searches are + performed. + + SPICE_GF_ADDWIN is a parameter used in numeric quantity + searches that use an equality + constraint. This parameter is used to + expand the confinement window (the + window over which the search is + performed) by a small amount at both + ends. This expansion accommodates the + case where a geometric quantity is equal + to a reference value at a boundary point + of the original confinement window. + + SPICE_GF_CNVTOL is the default convergence tolerance + used by GF routines that don't support a + user-supplied tolerance value. GF + searches for roots will terminate when a + root is bracketed by times separated by + no more than this tolerance. Units are + seconds. + + Configuration parameter + ----------------------- + + SPICE_GFEVNT_MAXPAR Parameter indicating the maximum number of + elements needed for the 'qnames' and 'q*pars' + arrays used in gfevnt_c. + + SpiceChar qcpars[SPICE_GFEVNT_MAXPAR][LNSIZE]; + SpiceDouble qdpars[SPICE_GFEVNT_MAXPAR]; + SpiceInt qipars[SPICE_GFEVNT_MAXPAR]; + SpiceBoolean qlpars[SPICE_GFEVNT_MAXPAR]; + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + L.S. Elson (JPL) + +-Version + + -CSPICE Version 2.1.2, 05-FEB-2020 (JDR) + + Corrected description of parameter SPICE_GF_MARGIN. + + -CSPICE Version 2.1.1, 29-NOV-2016 (NJB) + + Corrected description of parameter SPICE_GF_SPSHAP. + + -CSPICE Version 2.1.0, 23-FEB-2012 (NJB) + + Added parameters: + + SPICE_GF_NWILUM + SPICE_GF_NWRR + SPICE_GF_NWPA + + -CSPICE Version 2.0.0, 23-JUN-2009 (NJB) + + Added parameter for maximum length of FOV shape string. + + -CSPICE Version 1.0.0, 11-MAR-2009 (NJB) + +*/ + + +#ifndef HAVE_SPICE_GF_H + + #define HAVE_SPICE_GF_H + + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Workspace parameters + */ + #define SPICE_GF_NWMAX 15 + #define SPICE_GF_NWDIST 5 + #define SPICE_GF_NWILUM 5 + #define SPICE_GF_NWSEP 5 + #define SPICE_GF_NWRR 5 + #define SPICE_GF_NWPA 5 + + + /* + Field of view (FOV) parameters + */ + #define SPICE_GF_MAXVRT 10000 + #define SPICE_GF_CIRFOV "CIRCLE" + #define SPICE_GF_ELLFOV "ELLIPSE" + #define SPICE_GF_POLFOV "POLYGON" + #define SPICE_GF_RECFOV "RECTANGLE" + #define SPICE_GF_SHPLEN 10 + #define SPICE_GF_MARGIN ( 1.e-12 ) + + + /* + Occultation parameters + */ + #define SPICE_GF_ANNULR "ANNULAR" + #define SPICE_GF_ANY "ANY" + #define SPICE_GF_FULL "FULL" + #define SPICE_GF_PARTL "PARTIAL" + + + /* + Target shape parameters + */ + #define SPICE_GF_EDSHAP "ELLIPSOID" + #define SPICE_GF_PTSHAP "POINT" + #define SPICE_GF_RYSHAP "RAY" + #define SPICE_GF_SPSHAP "SPHERE" + + + /* + Search parameters + */ + #define SPICE_GF_ADDWIN 1.0 + #define SPICE_GF_CNVTOL 1.e-6 + + + /* + Configuration parameters. + */ + #define SPICE_GFEVNT_MAXPAR 10 + + +#endif + + +/* + End of header file SpiceGF.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOccult.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOccult.h new file mode 100644 index 000000000..0caab7c3c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOccult.h @@ -0,0 +1,147 @@ +/* + +-Header_File SpiceOccult.h ( CSPICE Occultation specific definitions ) + +-Abstract + + Perform CSPICE occultation specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Keywords + + OCCULTATION + GEOMETRY + ELLIPSOID + +-Exceptions + + None + +-Files + + None + +-Particulars + + The following integer codes indicate the geometric relationship + of the three bodies. + + The meaning of the sign of each code is given below. + + Code sign Meaning + --------- ------------------------------ + > 0 The second ellipsoid is + partially or fully occulted + by the first. + + < 0 The first ellipsoid is + partially of fully + occulted by the second. + + = 0 No occultation. + + The meanings of the codes are given below. The variable names + indicate the type of occultation and which target is in the back. + For example, SPICE_OCCULT_TOTAL1 represents a total occultation in which + the first target is in the back (or occulted by) the second target. + + Name Code Meaning + ------ ----- ------------------------------ + SPICE_OCCULT_TOTAL1 -3 Total occultation of first + target by second. + + SPICE_OCCULT_ANNLR1 -2 Annular occultation of first + target by second. The second + target does not block the limb + of the first. + + SPICE_OCCULT_PARTL1 -1 Partial occultation of first + target by second target. + + SPICE_OCCULT_NOOCC 0 No occultation or transit: both + objects are completely visible + to the observer. + + SPICE_OCCULT_PARTL2 1 Partial occultation of second + target by first target. + + SPICE_OCCULT_ANNLR2 2 Annular occultation of second + target by first. + + SPICE_OCCULT_TOTAL2 3 Total occultation of second + target by first. + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + S.C. Krening (JPL) + N.J. Bachman (JPL) + +-Version + + -CSPICE Version 1.0.0, 23-FEB-2012 (SCK) + +*/ + + +#ifndef HAVE_SPICE_OCCULT_H + + #define HAVE_SPICE_OCCULT_H + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Occultation parameters + */ + + #define SPICE_OCCULT_TOTAL1 -3 + #define SPICE_OCCULT_ANNLR1 -2 + #define SPICE_OCCULT_PARTL1 -1 + #define SPICE_OCCULT_NOOCC 0 + #define SPICE_OCCULT_PARTL2 1 + #define SPICE_OCCULT_ANNLR2 2 + #define SPICE_OCCULT_TOTAL2 3 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOsc.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOsc.h new file mode 100644 index 000000000..9bb9a937b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceOsc.h @@ -0,0 +1,86 @@ +/* + +-Header_File SpiceOsc.h ( CSPICE osculating element definitions ) + +-Abstract + + Perform CSPICE definitions for osculating element routines. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE osculating element functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_OSCLTX_NELTS Length of output element array + returned by oscltx_c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 25-JAN-2017 (NJB) + +*/ + +#ifndef HAVE_SPICE_OSC + + #define HAVE_SPICE_OSC + + + /* + Constants + */ + #define SPICE_OSCLTX_NELTS 20 + +#endif + + +/* + End of header file SpiceOsc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpicePln.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpicePln.h new file mode 100644 index 000000000..839fb1560 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpicePln.h @@ -0,0 +1,106 @@ +/* + +-Header_File SpicePln.h ( CSPICE Plane definitions ) + +-Abstract + + Perform CSPICE definitions for the SpicePlane data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Plane functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpicePlane Structure representing a plane in 3- + dimensional space. + + The members are: + + normal: Vector normal to plane. + + constant: Constant of plane equation + + Plane = + + {X: = constant} + + + + ConstSpicePlane A const SpicePlane. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_PLANES + + #define HAVE_SPICE_PLANES + + + + /* + Plane structure: + */ + + struct _SpicePlane + + { SpiceDouble normal [3]; + SpiceDouble constant; }; + + typedef struct _SpicePlane SpicePlane; + + typedef const SpicePlane ConstSpicePlane; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSCLK.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSCLK.h new file mode 100644 index 000000000..64053efcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSCLK.h @@ -0,0 +1,90 @@ + +/* + +-Header_File SpiceSCLK.h ( CSPICE SCLK-specific definitions ) + +-Abstract + + Perform CSPICE definitions to support SCLK wrapper interfaces, + including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + SCLK + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE SCLK interfaces. + + The parameters below define sizes and limits used by the SCLK system. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_SCLK_MXPART is the maximum number of partitions in a given + SCLK file. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 16-SEP-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_SCLK_H + + #define HAVE_SPICE_SCLK_H + + + /* + Maximum number of partitions in a SCLK file: + */ + #define SPICE_SCLK_MXPART 9999 + + +#endif + +/* +End of header file SpiceSCLK.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSPK.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSPK.h new file mode 100644 index 000000000..a4c8eac5f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSPK.h @@ -0,0 +1,128 @@ +/* + +-Header_File SpiceSPK.h ( CSPICE SPK definitions ) + +-Abstract + + Perform CSPICE definitions to support SPK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE SPK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceSPK18Subtype Typedef for enum indicating the + mathematical representation used + in an SPK type 18 segment. Possible + values and meanings are: + + S18TP0: + + Hermite interpolation, 12- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt, + vx, vy, vz, dvx/dt, dvy/dt, dvz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. Note well: vx, vy, and + vz *are not necessarily equal* to the + time derivatives of x, y, and z. + This packet structure mimics that of + the Rosetta/MEX orbit file from which + the data are taken. + + Position units are kilometers, + velocity units are kilometers per + second, and acceleration units are + kilometers per second per second. + + + S18TP1: + + Lagrange interpolation, 6- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. + + Position units are kilometers; + velocity units are kilometers per + second. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 16-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_SPK_H + + #define HAVE_SPICE_SPK_H + + + + /* + SPK type 18 subtype codes: + */ + + enum _SpiceSPK18Subtype { S18TP0, S18TP1 }; + + + typedef enum _SpiceSPK18Subtype SpiceSPK18Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSrf.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSrf.h new file mode 100644 index 000000000..97537426c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceSrf.h @@ -0,0 +1,94 @@ +/* + +-Header_File SpiceSrf.h ( CSPICE surface definitions ) + +-Abstract + + Perform CSPICE definitions for surface name-ID mapping. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE surface name-ID mapping functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_SRF_SFNMLN Maximum length of a surface name, + including the terminating null + character. + + SPICE_SRF_MAXSRF Maximum number of surfaces that + can be accommodated in a surface + list. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 30-AUG-2016 (NJB) + + Added macro SPICE_SRF_MAXSRF + + 22-JAN-2016 (NJB) + + Original version. +*/ + +#ifndef HAVE_SRF + + #define HAVE_SRF + + + /* + Constants + */ + #define SPICE_SRF_SFNMLN 37 + + #define SPICE_SRF_MAXSRF 100 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceUsr.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceUsr.h new file mode 100644 index 000000000..53ac70bcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceUsr.h @@ -0,0 +1,296 @@ +/* + +-Header_File SpiceUsr.h ( CSPICE user interface definitions ) + +-Abstract + + Perform CSPICE user interface declarations, including type + definitions and function prototype declarations. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This file is an umbrella header that includes all header files + required to support the CSPICE application programming interface + (API). Users' application code that calls CSPICE need include only + this single header file. This file includes function prototypes for + the entire set of CSPICE routines. Typedef statements used to create + SPICE data types are also included. + + + About SPICE data types + ====================== + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> enum { SPICEFALSE = 0, SPICETRUE = 1 } + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On all currently supported + platforms, type double occupies 8 bytes and type int occupies 4 + bytes. Other platforms may require a SpiceInt to map to type long. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + About CSPICE function prototypes + ================================ + + Because CSPICE function prototypes enable substantial compile-time + error checking, we recommend that user applications always reference + them. Including the header file SpiceUsr.h in any module that calls + CSPICE will automatically make the prototypes available. + + + About CSPICE C style + ==================== + + CSPICE is written in ANSI C. No attempt has been made to support K&R + conventions or restrictions. + + + About C++ compatibility + ======================= + + The preprocessor directive -D__cplusplus should be used when + compiling C++ source code that includes this header file. This + directive will suppress mangling of CSPICE names, permitting linkage + to a CSPICE object library built from object modules produced by + an ANSI C compiler. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + S.C. Krening (JPL) + E.D. Wright (JPL) + +-Restrictions + + The #include statements contained in this file are not part of + the CSPICE API. The set of files included may change without notice. + Users should not include these files directly in their own + application code. + +-Version + + -CSPICE Version 7.0.0, 16-SEP-2020 (JDR) + + Updated to include header file + + SpiceDAS.h + SpiceSCLK.h + + -CSPICE Version 6.0.0, 07-FEB-2010 (NJB) + + Now includes SpiceOsc.h. + + 27-FEB-2016 (NJB) + + Updated to include header files + + SpiceDLA.h + SpiceDSK.h + SpiceSrf.h + SpiceDtl.h + + -CSPICE Version 5.0.0, 11-MAY-2012 (NJB) (SCK) + + Updated to include header files + + SpiceErr.h + SpiceFrm.h + SpiceOccult.h + + -CSPICE Version 4.0.0, 30-SEP-2008 (NJB) + + Updated to include header file + + SpiceGF.h + + -CSPICE Version 3.0.0, 19-AUG-2002 (NJB) + + Updated to include header files + + SpiceCel.h + SpiceCK.h + SpiceSPK.h + + -CSPICE Version 3.0.0, 17-FEB-1999 (NJB) + + Updated to support suppression of name mangling when included in + C++ source code. Also now interface macros to intercept function + calls and perform automatic type casting. + + Now includes platform macro definition header file. + + References to types SpiceVoid and ConstSpiceVoid were removed. + + -CSPICE Version 2.0.0, 06-MAY-1998 (NJB) (EDW) + +*/ + +#ifdef __cplusplus + extern "C" { +#endif + + +#ifndef HAVE_SPICE_USER + + #define HAVE_SPICE_USER + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + /* + Include CSPICE data type definitions. + */ + #include "SpiceZdf.h" + + /* + Include the CSPICE error handling interface definitions. + */ + #include "SpiceErr.h" + + /* + Include the CSPICE EK interface definitions. + */ + #include "SpiceEK.h" + + /* + Include the CSPICE frame subsystem API definitions. + */ + #include "SpiceFrm.h" + + /* + Include the CSPICE Cell interface definitions. + */ + #include "SpiceCel.h" + + /* + Include the CSPICE CK interface definitions. + */ + #include "SpiceCK.h" + + /* + Include the CSPICE SCLK interface definitions. + */ + #include "SpiceSCLK.h" + + /* + Include the CSPICE SPK interface definitions. + */ + #include "SpiceSPK.h" + + /* + Include the CSPICE GF interface definitions. + */ + #include "SpiceGF.h" + + /* + Include the CSPICE occultation definitions. + */ + #include "SpiceOccult.h" + + /* + Include the CSPICE DAS definitions. + */ + #include "SpiceDAS.h" + + /* + Include the CSPICE DLA definitions. + */ + #include "SpiceDLA.h" + + /* + Include the CSPICE DSK definitions. + */ + #include "SpiceDSK.h" + + /* + Include the CSPICE DSK tolerance definitions. + */ + #include "SpiceDtl.h" + + /* + Include the CSPICE surface definitions. + */ + #include "SpiceSrf.h" + + /* + Include oscltx_c definitions. + */ + #include "SpiceOsc.h" + + /* + Include CSPICE prototypes. + */ + #include "SpiceZpr.h" + + /* + Define the CSPICE function interface macros. + */ + #include "SpiceZim.h" + + + +#endif + + +#ifdef __cplusplus + } +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZad.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZad.h new file mode 100644 index 000000000..0414ecd2b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZad.h @@ -0,0 +1,215 @@ +/* + +-Header_File SpiceZad.h ( CSPICE adapter definitions ) + +-Abstract + + Perform CSPICE declarations to support passed-in function + adapters used in wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header file contains declarations used by the CSPICE + passed-in function adapter ("PFA") system. This system enables + CSPICE wrapper functions to support passed-in function + arguments whose prototypes are C-style, even when these + functions are to be called from f2c'd Fortran routines + expecting f2c-style interfaces. + + This header declares: + + - The prototype for the passed-in function argument + pointer storage and fetch routines + + zzadsave_c + zzadget_c + + - Prototypes for CSPICE adapter functions. Each passed-in + function argument in a CSPICE wrapper has a corresponding + adapter function. The adapter functions have interfaces + that match those of their f2c'd counterparts; this allows + the adapters to be called by f2c'd SPICELIB code. The + adapters look up saved function pointers for routines + passed in by the wrapper's caller and call these functions. + + - Values for the enumerated type SpicePassedInFunc. These + values are used to map function pointers to the + functions they represent, enabling adapters to call + the correct passed-in functions. + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.3.0, 07-FEB-2021 (JDR) + + Removed spurious comma at the end of enumerator list + "SpicePassedInFunc" to comply with ANSI-C standard. + + -CSPICE Version 2.2.0, 29-NOV-2011 (EDW) + + Updated to support the user defined boolean function capability. + + -CSPICE Version 2.1.0, 21-DEC-2009 (EDW) + + Updated to support the user defined scalar function capability. + + -CSPICE Version 2.0.0, 29-JAN-2009 (NJB) + + Now conditionally includes SpiceZfc.h. + + Updated to reflect new calling sequence of f2c'd + routine gfrefn_. Some header updates were made + as well. + + -CSPICE Version 1.0.0, 29-MAR-2008 (NJB) + +*/ + + +/* + This file has dependencies defined in SpiceZfc.h. Include that + file if it hasn't already been included. +*/ +#ifndef HAVE_SPICEF2C_H + #include "SpiceZfc.h" +#endif + + + +#ifndef HAVE_SPICE_ZAD_H + + #define HAVE_SPICE_ZAD_H + + + + /* + Prototypes for GF adapters: + */ + + logical zzadbail_c ( void ); + + + int zzadstep_c ( doublereal * et, + doublereal * step ); + + + int zzadrefn_c ( doublereal * t1, + doublereal * t2, + logical * s1, + logical * s2, + doublereal * t ); + + + int zzadrepf_c ( void ); + + + int zzadrepi_c ( doublereal * cnfine, + char * srcpre, + char * srcsuf, + ftnlen srcprelen, + ftnlen srcsuflen ); + + + int zzadrepu_c ( doublereal * ivbeg, + doublereal * ivend, + doublereal * et ); + + + int zzadfunc_c ( doublereal * et, + doublereal * value ); + + + int zzadqdec_c ( U_fp udfunc, + doublereal * et, + logical * xbool ); + + /* + Define the enumerated type + + SpicePassedInFunc + + for names of passed-in functions. Using this type gives + us compile-time checking and avoids string comparisons. + */ + enum _SpicePassedInFunc { + UDBAIL, + UDREFN, + UDREPF, + UDREPI, + UDREPU, + UDSTEP, + UDFUNC, + UDQDEC + }; + + typedef enum _SpicePassedInFunc SpicePassedInFunc; + + /* + SPICE_N_PASSED_IN_FUNC is the count of SpicePassedInFunc values. + */ + #define SPICE_N_PASSED_IN_FUNC 8 + + + /* + CSPICE wrappers supporting passed-in function arguments call + the adapter setup interface function once per each such argument; + these calls save the function pointers for later use within the + f2c'd code that calls passed-in functions. The saved pointers + will be used in calls by the adapter functions whose prototypes + are declared above. + + Prototypes for adapter setup interface: + */ + void zzadsave_c ( SpicePassedInFunc functionID, + void * functionPtr ); + + void * zzadget_c ( SpicePassedInFunc functionID ); + + +#endif + +/* +End of header file SpiceZad.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZdf.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZdf.h new file mode 100644 index 000000000..8dc2ab972 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZdf.h @@ -0,0 +1,274 @@ +/* + +-Header_File SpiceZdf.h ( CSPICE definitions ) + +-Abstract + + Define CSPICE data types via typedefs; also define some user-visible + enumerated types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + CSPICE data types + ================= + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> int + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On most currently supported + platforms, type double occupies 8 bytes and type long occupies 4 + bytes. Other platforms may require a SpiceInt to map to type int. + The Alpha/Digital Unix platform is an example of the latter case. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + CSPICE enumerated types + ======================= + + These are provided to enhance readability of the code. + + Type name Value set + --------- --------- + + _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 } + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 6.3.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 6.2.0, 10-MAR-2014 (BVS) + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 5.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 4.0.0 27-JUL-2002 (NJB) + + Added definition of SpiceDataType. + + -CSPICE Version 3.0.0 18-SEP-1999 (NJB) + + SpiceBoolean implementation changed from enumerated type to + typedef mapping to int. + + -CSPICE Version 2.0.0 29-JAN-1999 (NJB) + + Made definition of SpiceInt and ConstSpiceInt platform + dependent to accommodate the Alpha/Digital Unix platform. + + Removed definitions of SpiceVoid and ConstSpiceVoid. + + -CSPICE Version 1.0.0 25-OCT-1997 (KRG) (NJB) (EDW) +*/ + + #ifndef HAVE_SPICEDEFS_H + #define HAVE_SPICEDEFS_H + + /* + Include platform definitions, if they haven't been executed already. + */ + #ifndef HAVE_PLATFORM_MACROS_H + #include "SpiceZpl.h" + #endif + + /* + Basic data types. These are defined to be compatible with the + types used by f2c, and so they follow the Fortran notion of what + these things are. See the f2c documentation for the details + about the choices for the sizes of these types. + */ + typedef char SpiceChar; + typedef double SpiceDouble; + typedef float SpiceFloat; + + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef int SpiceInt; + #else + typedef long SpiceInt; + #endif + + + typedef const char ConstSpiceChar; + typedef const double ConstSpiceDouble; + typedef const float ConstSpiceFloat; + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef const int ConstSpiceInt; + #else + typedef const long ConstSpiceInt; + #endif + + + /* + More basic data types. These give mnemonics for some other data + types in C that are not used in Fortran written by NAIF or + supported by ANSI Fortran 77. These are for use in C functions + but should not be passed to any C SPICE wrappers, ``*_c.c'' + since they are not Fortran compatible. + */ + typedef long SpiceLong; + typedef short SpiceShort; + + /* + Unsigned data types + */ + typedef unsigned char SpiceUChar; + typedef unsigned int SpiceUInt; + typedef unsigned long SpiceULong; + typedef unsigned short SpiceUShort; + + /* + Signed data types + */ + typedef signed char SpiceSChar; + + /* + Other basic types + */ + typedef int SpiceBoolean; + typedef const int ConstSpiceBoolean; + + #define SPICETRUE 1 + #define SPICEFALSE 0 + + + enum _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 }; + + typedef enum _Spicestatus SpiceStatus; + + + enum _SpiceDataType { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3, + SPICE_BOOL = 4 }; + + + typedef enum _SpiceDataType SpiceDataType; + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZfc.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZfc.h new file mode 100644 index 000000000..a6a99897a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZfc.h @@ -0,0 +1,16163 @@ +/* + +-Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes ) + +-Abstract + + Define prototypes for functions produced by converting Fortran + SPICELIB routines to C using f2c. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.1.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 7.0.0, 10-MAR-2014 (BVS) + + Reformatted version lines. + + Now this header conditionally includes SpiceUsr.h. + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Added typedefs for the PC-LINUX-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 5.0.0, 06-MAR-2005 (NJB) + + Added typedefs for pointers to functions. This change was + made to support CSPICE wrappers for geometry finder routines. + + Added typedefs for the SUN-SOLARIS-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 4.1.0, 24-MAY-2001 (WLT) + + Moved the #ifdef __cplusplus so that it appears after the + typedefs. This allows us to more easily wrap CSPICE in a + namespace for C++. + + -CSPICE Version 4.0.0, 09-FEB-1999 (NJB) + + Updated to accommodate the Alpha/Digital Unix platform. + Also updated to support inclusion in C++ code. + + -CSPICE Version 3.0.0, 02-NOV-1998 (NJB) + + Updated for SPICELIB version N0049. + + -CSPICE Version 2.0.0, 15-SEP-1997 (NJB) + + Changed variable name "typid" to "typid" in prototype + for zzfdat_. This was done to enable compilation under + Borland C++. + + -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG) + +-Index_Entries + + prototypes of f2c'd SPICELIB functions + +*/ + + +/* + Include SpiceUsr.h if it hasn't already been included + by the current compilation unit. +*/ +#ifndef HAVE_SPICE_USER + #include "SpiceUsr.h" +#endif + + + +#ifndef HAVE_SPICEF2C_H +#define HAVE_SPICEF2C_H + + +/* + Include Files: + + Many of the prototypes below use data types defined by f2c. We + copy here the f2c definitions that occur in prototypes of functions + produced by running f2c on Fortran SPICELIB routines. + + The reason we don't simply conditionally include f2c.h itself here + is that f2c.h defines macros that conflict with stdlib.h on some + systems. It's simpler to just replicate the few typedefs we need. +*/ + +#if ( defined( CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined( CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined( CSPICE_PC_LINUX_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + #define VOID void + + typedef VOID H_f; + typedef int integer; + typedef double doublereal; + typedef int logical; + typedef int ftnlen; + + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#else + + #define VOID void + + typedef VOID H_f; + typedef long integer; + typedef double doublereal; + typedef long logical; + typedef long ftnlen; + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#endif + + +#ifdef __cplusplus + extern "C" { +#endif + + +/* + Function prototypes for functions created by f2c are listed below. + See the headers of the Fortran routines for descriptions of the + routines' interfaces. + + The functions listed below are those expected to be called by + C-SPICELIB wrappers. Prototypes are not currently provided for other + f2c'd functions. + +*/ + +/* +-Prototypes +*/ + +extern logical accept_(logical *ok); +extern logical allowd_(void); + +extern logical alltru_(logical *logcls, integer *n); + +extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndd_(doublereal *item, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndi_(integer *item, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); + +extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); +/*:ref: ident_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int azlcpo_(char *method, char *target, doublereal *et, char *abcorr, logical *azccw, logical *elplsz, doublereal *obspos, char *obsctr, char *obsref, doublereal *azlsta, doublereal *lt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recazl_ 14 6 7 12 12 7 7 7 */ +/*:ref: dazldr_ 14 6 7 7 7 12 12 7 */ + +extern int azlrec_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern doublereal b1900_(void); + +extern doublereal b1950_(void); + +extern logical badkpv_(char *caller, char *name__, char *comp, integer *size, integer *divby, char *type__, ftnlen caller_len, ftnlen name_len, ftnlen comp_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical bedec_(char *string, ftnlen string_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical beint_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical benum_(char *string, ftnlen string_len); +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: bedec_ 12 2 13 124 */ +/*:ref: beint_ 12 2 13 124 */ + +extern logical beuns_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int bltfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ + +extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodc2s_(integer *code, char *name__, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int boddef_(char *name__, integer *code, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzboddef_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ + +extern logical bodfnd_(integer *body, char *item, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: rtpool_ 14 5 13 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); + +extern integer brckti_(integer *number, integer *end1, integer *end2); + +extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); + +extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); + +extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer bsrchi_(integer *value, integer *ndim, integer *array); + +extern integer cardc_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardd_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardi_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer chbase_(void); + +extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); + +extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); + +extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); + +extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); +extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); +extern int irfnum_(char *name__, integer *index, ftnlen name_len); +extern int irfnam_(integer *index, char *name__, ftnlen name_len); +extern int irfdef_(integer *index); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ + +extern int ckbsr_(char *fname, integer *handle, integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *descr, char *segid, logical *found, ftnlen fname_len, ftnlen segid_len); +extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); +extern int ckupf_(integer *handle); +extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); +extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); +extern int ckhave_(logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ + +extern int ckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckcov_(char *ckfnm, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ckfnm_len, ftnlen level_len, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mtxm_ 14 3 7 7 7 */ +/*:ref: raxisa_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: qdq2av_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: rav2xf_ 14 3 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: xf2rav_ 14 3 7 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr02_ 14 3 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknm06_(integer *handle, doublereal *descr, integer *nmini); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ + +extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckobj_(char *ckfnm, integer *ids, ftnlen ckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke01_ 14 5 12 7 7 7 7 */ +/*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ +/*:ref: cke02_ 14 5 12 7 7 7 7 */ +/*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke03_ 14 5 12 7 7 7 7 */ +/*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke04_ 14 5 12 7 7 7 7 */ +/*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke06_ 14 5 12 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstcld_ 4 3 7 4 7 */ + +extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ + +extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: touchl_ 12 1 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int ckw01_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw02_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, char *segid, integer *nrec, doublereal *start, doublereal *stop, doublereal *quats, doublereal *avvs, doublereal *rates, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw03_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzck4i2d_ 14 4 4 4 7 7 */ +/*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ + +extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ + +extern int ckw04e_(integer *handle, doublereal *endtim); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrs_ 14 1 7 */ + +extern int ckw05_(integer *handle, integer *subtyp, integer *degree, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *n, doublereal *sclkdp, doublereal *packts, doublereal *rate, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: even_ 12 1 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int clearc_(integer *ndim, char *array, ftnlen array_len); + +extern int cleard_(integer *ndim, doublereal *array); + +extern int cleari_(integer *ndim, integer *array); + +extern doublereal clight_(void); + +extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); + +extern int conics_(doublereal *elts, doublereal *et, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ + +extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int copyd_(doublereal *cell, doublereal *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyi_(integer *cell, integer *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ + +extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyllat_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int cylrec_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *rectan); + +extern int cylsph_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *slon); + +extern doublereal dacosh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal dacosn_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ + +extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ +/*:ref: dafarr_ 14 2 4 4 */ + +extern int dafah_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, integer *unit, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dafonw_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dafcls_(integer *handle); +extern int dafhsf_(integer *handle, integer *nd, integer *ni); +extern int dafhlu_(integer *handle, integer *unit); +extern int dafluh_(integer *unit, integer *handle); +extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); +extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dafhof_(integer *fhset); +extern int dafsih_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); +extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); +extern int dafada_(doublereal *data, integer *n); +extern int dafena_(void); +extern int dafcad_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafwda_ 14 4 4 4 4 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ + +extern int dafarr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ + +extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ + +extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); +extern int dafbfs_(integer *handle); +extern int daffna_(logical *found); +extern int dafbbs_(integer *handle); +extern int daffpa_(logical *found); +extern int dafgs_(doublereal *sum); +extern int dafgn_(char *name__, ftnlen name_len); +extern int dafgh_(integer *handle); +extern int dafrs_(doublereal *sum); +extern int dafrn_(char *name__, ftnlen name_len); +extern int dafws_(doublereal *sum); +extern int dafcs_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ + +extern int dafgda_(integer *handle, integer *baddr, integer *eaddr, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); +extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int dafra_(integer *handle, integer *iorder, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isordv_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafws_ 14 1 7 */ +/*:ref: dafrn_ 14 2 13 124 */ + +extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ + +extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dafrrr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); +extern int dafarw_(integer *addr__, integer *recno, integer *wordno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); +extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); +extern int dafnrr_(integer *reads, integer *reqs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: minai_ 14 4 4 4 4 4 */ +/*:ref: zzdafgdr_ 14 4 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafena_ 14 0 */ + +extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ + +extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasacr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: readla_ 14 6 4 4 4 13 12 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ +/*:ref: dasac_ 14 4 4 4 13 124 */ + +extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: daswrc_ 14 4 4 4 13 124 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadd_(integer *handle, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: daswrd_ 14 3 4 4 7 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadi_(integer *handle, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: wrencc_ 14 4 4 4 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dascls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dashof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dassdr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dascud_(integer *handle, integer *type__, integer *nwords); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ + +extern int dasdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasrcr_ 14 2 4 4 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ + +extern int dasecu_(integer *handle, integer *comlun, logical *comnts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasec_ 14 6 4 4 4 13 12 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ + +extern int dasfm_(char *fname, char *ftype, char *ifname, integer *handle, integer *unit, integer *free, integer *lastla, integer *lastrc, integer *lastwd, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dasops_(integer *handle); +extern int dasllc_(integer *handle); +extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dashlu_(integer *handle, integer *unit); +extern int dasluh_(integer *unit, integer *handle); +extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); +extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dashof_(integer *fhset); +extern int dassih_(integer *handle, char *access, ftnlen access_len); +extern int dasham_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern doublereal dasine_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrcr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ + +extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrd_ 14 5 4 4 4 4 7 */ + +extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrwr_(integer *handle, integer *recno, char *recc, doublereal *recd, integer *reci, integer *first, integer *last, doublereal *datad, integer *datai, char *datac, ftnlen recc_len, ftnlen datac_len); +extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswrd_(integer *handle, integer *recno, doublereal *recd); +extern int daswri_(integer *handle, integer *recno, integer *reci); +extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); +extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswbr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzdasgrd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int dassdr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencc_ 14 4 4 4 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ + +extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ + +extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ + +extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern doublereal datanh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dazldr_(doublereal *x, doublereal *y, doublereal *z__, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ + +extern doublereal dcbrt_(doublereal *x); + +extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int delfil_(char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: getlun_ 14 1 4 */ + +extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern doublereal det_(doublereal *m1); + +extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern doublereal dhfa_(doublereal *state, doublereal *bodyr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rquad_ 14 5 7 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ + +extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int diffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabbs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabfs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabns_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int dlaens_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlafns_(integer *handle, integer *dladsc, integer *nxtdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlafps_(integer *handle, integer *dladsc, integer *prvdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2); + +extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdnpt_ 14 8 7 7 7 7 7 7 7 12 */ + +extern int dp2hx_(doublereal *number, char *hxstr, integer *hxssiz, ftnlen hxstr_len); +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ + +extern doublereal dpr_(void); + +extern int dpspce_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ + +extern int drdazl_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ + +extern int drdcyl_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *jacobi); + +extern int drdgeo_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int drdlat_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *jacobi); + +extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ + +extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *jacobi); + +extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskcls_(integer *handle, logical *optmiz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int dskobj_(char *dskfnm, integer *bodids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ + +extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dsksrf_(char *dskfnm, integer *bodyid, integer *srfids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dsktol_(integer *keywrd, doublereal *dpval); +extern int dskgtl_(integer *keywrd, doublereal *dpval); +extern int dskstl_(integer *keywrd, doublereal *dpval); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: return_ 12 0 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ + +extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dlabns_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dlaens_ 14 1 4 */ + +extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ +/*:ref: zztogrid_ 14 4 7 7 7 7 */ +/*:ref: xdda_ 14 6 7 7 4 4 4 4 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: insang_ 14 6 7 7 7 7 12 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ + +extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */ + +extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ + +extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dvcrss_ 14 3 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ + +extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern doublereal dvdot_(doublereal *s1, doublereal *s2); + +extern int dvhat_(doublereal *s1, doublereal *sout); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern doublereal dvnorm_(doublereal *state); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern doublereal dvsep_(doublereal *s1, doublereal *s2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzdiv_ 7 2 7 7 */ + +extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep); +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */ + +extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int ekaclc_(integer *handle, integer *segno, char *column, char *cvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ +/*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ + +extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ +/*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ +/*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ + +extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ + +extern int ekappr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: ekinsr_ 14 3 4 4 4 */ + +extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxdfid_ 14 1 4 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekpdec_ 14 3 13 4 124 */ +/*:ref: zzekstyp_ 4 2 4 4 */ +/*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ +/*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ + +extern int ekcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekdelr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekde01_ 14 4 4 4 4 4 */ +/*:ref: zzekde02_ 14 4 4 4 4 4 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekff01_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ + +extern int ekifld_(integer *handle, char *tabnam, integer *ncols, integer *nrows, char *cnames, char *decls, integer *segno, integer *rcptrs, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekif01_ 14 3 4 4 4 */ +/*:ref: zzekif02_ 14 2 4 4 */ + +extern int ekinsr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ + +extern integer eknseg_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrsz_ 4 2 4 4 */ + +extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekops_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopw_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekpsel_(char *query, integer *n, integer *xbegs, integer *xends, char *xtypes, char *xclass, char *tabs, char *cols, logical *error, char *errmsg, ftnlen query_len, ftnlen xtypes_len, ftnlen xclass_len, ftnlen tabs_len, ftnlen cols_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int ekqmgr_(integer *cindex, integer *elment, char *eqryc, doublereal *eqryd, integer *eqryi, char *fname, integer *row, integer *selidx, char *column, integer *handle, integer *n, char *table, integer *attdsc, integer *ccount, logical *found, integer *nelt, integer *nmrows, logical *semerr, char *errmsg, char *cdata, doublereal *ddata, integer *idata, logical *null, ftnlen eqryc_len, ftnlen fname_len, ftnlen column_len, ftnlen table_len, ftnlen errmsg_len, ftnlen cdata_len); +extern int eklef_(char *fname, integer *handle, ftnlen fname_len); +extern int ekuef_(integer *handle); +extern int ekntab_(integer *n); +extern int ektnam_(integer *n, char *table, ftnlen table_len); +extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); +extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); +extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); +extern int eknelt_(integer *selidx, integer *row, integer *nelt); +extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); +extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); +extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: ekcls_ 14 1 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: appndc_ 14 4 13 13 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekqcnj_ 14 3 4 4 4 */ +/*:ref: zzekqcon_ 14 24 4 13 7 4 4 13 4 13 4 4 13 4 13 4 4 4 4 7 4 124 124 124 124 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekrplk_ 14 4 4 4 4 4 */ +/*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ +/*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekweed_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ + +extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int ekshdw_(integer *handle, logical *isshad); + +extern int ekssum_(integer *handle, integer *segno, char *tabnam, integer *nrows, integer *ncols, char *cnames, char *dtypes, integer *sizes, integer *strlns, logical *indexd, logical *nullok, ftnlen tabnam_len, ftnlen cnames_len, ftnlen dtypes_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ + +extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); +/*:ref: vequ_ 14 2 7 7 */ + +extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int enchar_(integer *number, char *string, ftnlen string_len); +extern int dechar_(char *string, integer *number, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbase_ 4 0 */ + +extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); +extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kepleq_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: putact_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: putdev_ 14 2 13 124 */ + +extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errhan_(char *marker, integer *handle, ftnlen marker_len); +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errint_(char *marker, integer *intnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: setprt_ 12 5 12 12 12 12 12 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int et2lst_(doublereal *et, integer *body, doublereal *lon, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int etcal_(doublereal *et, char *calstr, ftnlen calstr_len); +/*:ref: spd_ 7 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: lstlti_ 4 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ + +extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ + +extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern logical even_(integer *ival); + +extern int evsgp4_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ + +extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); + +extern int excess_(integer *number, char *struct__, ftnlen struct_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical exists_(char *fname, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); + +extern integer fetchc_(integer *nth, char *set, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchd_(integer *nth, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchi_(integer *nth, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern int filld_(doublereal *value, integer *ndim, doublereal *array); + +extern int filli_(integer *value, integer *ndim, integer *array); + +extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int fndlun_(integer *unit); +extern int reslun_(integer *unit); +extern int frelun_(integer *unit); + +extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); + +extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int frame_(doublereal *x, doublereal *y, doublereal *z__); +/*:ref: vhatip_ 14 1 7 */ + +extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); +extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); +extern int frinfo_(integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found); +extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); +extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int ccifrm_(integer *frclss, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frmget_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer frstnb_(char *string, ftnlen string_len); + +extern integer frstnp_(char *string, ftnlen string_len); + +extern integer frstpc_(char *string, ftnlen string_len); + +extern integer gcd_(integer *a, integer *b); + +extern int georec_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: zzckspk_ 14 3 4 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int getfvn_(char *inst, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen inst_len, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 7 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfov_ 14 9 7 4 13 13 7 4 7 124 124 */ + +extern int getlun_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical gfbail_(void); + +extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */ +/*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */ + +extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t); +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time); +extern int gfrepf_(void); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */ +/*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgfwkin_ 14 1 7 */ +/*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ + +extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfstep_(doublereal *time, doublereal *step); +extern int gfsstp_(doublereal *step); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int gfstol_(doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern doublereal halfpi_(void); + +extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ + +extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: intmin_ 4 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int ident_(doublereal *matrix); + +extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ + +extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */ +/*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pl2psv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ + +extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrti_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); + +extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int interd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int interi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int intord_(integer *n, char *string, ftnlen string_len); +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int intstr_(integer *number, char *string, ftnlen string_len); + +extern int inttxt_(integer *n, char *string, ftnlen string_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int invert_(doublereal *m, doublereal *mout); +/*:ref: det_ 7 1 7 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern int invort_(doublereal *m, doublereal *mit); +/*:ref: dpmax_ 7 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int invstm_(doublereal *mat, doublereal *invmat); +/*:ref: xposbl_ 14 5 7 4 4 4 7 */ + +extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ + +extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical isopen_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical isordv_(integer *array, integer *n); + +extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer isrchi_(integer *value, integer *ndim, integer *array); + +extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern doublereal j1900_(void); + +extern doublereal j1950_(void); + +extern doublereal j2000_(void); + +extern doublereal j2100_(void); + +extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); +extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal jyear_(void); + +extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *srcfil, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int furnsh_(char *file, ftnlen file_len); +extern int ktotal_(char *kind, integer *count, ftnlen kind_len); +extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kinfo_(char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kclear_(void); +extern int unload_(char *file, ftnlen file_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ +/*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dvpool_ 14 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: spkuef_ 14 1 4 */ +/*:ref: ckupf_ 14 1 4 */ +/*:ref: pckuof_ 14 1 4 */ +/*:ref: ekuef_ 14 1 4 */ +/*:ref: zzdskusf_ 14 1 4 */ +/*:ref: clpool_ 14 0 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kpsolv_ 7 1 7 */ + +extern int kplfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: validi_ 14 3 4 4 4 */ + +extern doublereal kpsolv_(doublereal *evec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *wordsq, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen wordsq_len, ftnlen substr_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ + +extern integer lastnb_(char *string, ftnlen string_len); + +extern integer lastpc_(char *string, ftnlen string_len); + +extern int latcyl_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int latrec_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rectan); + +extern int latsph_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *slon); +/*:ref: halfpi_ 7 0 */ + +extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int lnkan_(integer *pool, integer *new__); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkfsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkhl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkila_(integer *prev, integer *list, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkilb_(integer *list, integer *next, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkini_(integer *size, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnknfn_(integer *pool); + +extern integer lnknxt_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkprv_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnksiz_(integer *pool); + +extern integer lnktl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkxsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnksiz_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ + +extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ + +extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); + +extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); + +extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ + +extern integer lstcld_(doublereal *x, integer *n, doublereal *array); + +extern integer lstcli_(integer *x, integer *n, integer *array); + +extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstled_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlei_(integer *x, integer *n, integer *array); + +extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstltd_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlti_(integer *x, integer *n, integer *array); + +extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ + +extern integer ltrim_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4dec_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ + +extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); + +extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len); +extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +extern int lxdfid_(integer *idspec); +extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ + +extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); + +extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int m2q_(doublereal *r__, doublereal *q); +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ +/*:ref: nechr_ 12 4 13 13 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ + +extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); + +extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); + +extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); + +extern int mequ_(doublereal *m1, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); + +extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); + +extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); + +extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); + +extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); + +extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); + +extern int mtxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); + +extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1r2, integer *nc2, doublereal *mout); + +extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); + +extern int mxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); + +extern integer nblen_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); + +extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: reordd_ 14 3 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ + +extern logical notru_(logical *logcls, integer *n); + +extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); +/*:ref: dpmax_ 7 0 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: pi_ 7 0 */ + +extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: pjelpl_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: npelpt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjpi_ 14 5 7 7 7 7 12 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); + +extern int nvc2pl_(doublereal *normal, doublereal *konst, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfocst_ 14 2 7 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical odd_(integer *ival); + +extern logical opsgnd_(doublereal *x, doublereal *y); + +extern logical opsgni_(integer *x, integer *y); + +extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer ordd_(doublereal *item, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderd_(doublereal *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderi_(integer *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern integer ordi_(integer *item, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dacosh_ 7 1 7 */ + +extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: oscelt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int outmsg_(char *list, ftnlen list_len); +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: trcdep_ 14 1 4 */ +/*:ref: trcnam_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int partof_(doublereal *ma, doublereal *d__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int pck03e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); +extern int pckuof_(integer *handle); +extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int pckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckcov_(char *pckfnm, integer *idcode, doublereal *cover, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckfrm_(char *pckfnm, integer *ids, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pckr03_ 14 4 4 7 7 7 */ +/*:ref: pcke03_ 14 3 7 7 7 */ +/*:ref: pckr20_ 14 4 4 7 7 7 */ +/*:ref: pcke20_ 14 3 7 7 7 */ + +extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckw02_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); + +extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ + +extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern doublereal pi_(void); + +extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *konst); +/*:ref: vequ_ 14 2 7 7 */ + +extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ + +extern integer plnsns_(integer *bodid); +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts); + +extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npsgpt_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ + +extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: det_ 7 1 7 */ + +extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); + +extern int pool_(char *fname, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen fname_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int clpool_(void); +extern int ldpool_(char *fname, ftnlen fname_len); +extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int expool_(char *name__, logical *found, ftnlen name_len); +extern int wrpool_(integer *unit); +extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); +extern int cvpool_(char *agent, logical *update, ftnlen agent_len); +extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); +extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); +extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); +extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); +extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); +extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); +extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); +extern int dvpool_(char *name__, ftnlen name_len); +extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int dwpool_(char *agent, ftnlen agent_len); +extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int zzpctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: rdknew_ 14 2 13 124 */ +/*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lstltc_ 4 5 13 4 13 124 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: removc_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ + +extern doublereal prodad_(doublereal *array, integer *n); + +extern integer prodai_(integer *array, integer *n); + +extern int prompt_(char *dspmsg, char *buffer, ftnlen dspmsg_len, ftnlen buffer_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: stmp03_ 14 5 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prsint_(char *string, integer *intval, ftnlen string_len); +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prtenc_(integer *number, char *string, ftnlen string_len); +extern int prtdec_(char *string, integer *number, ftnlen string_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); +extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); +extern logical msgsel_(char *type__, ftnlen type_len); +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ + +extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int putact_(integer *action); +extern int getact_(integer *action); + +extern int putdev_(char *device, ftnlen device_len); +extern int getdev_(char *device, ftnlen device_len); + +extern int putlms_(char *msg, ftnlen msg_len); +extern int getlms_(char *msg, ftnlen msg_len); + +extern int putsms_(char *msg, ftnlen msg_len); +extern int getsms_(char *msg, ftnlen msg_len); + +extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int q2m_(doublereal *q, doublereal *r__); + +extern int qderiv_(integer *ndim, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ + +extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: qxq_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2q_ 14 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); +extern int rdknew_(char *kernel, ftnlen kernel_len); +extern int rdkdat_(char *line, logical *eof, ftnlen line_len); +extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzsetnnread_ 14 1 12 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ + +extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ + +extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +extern int cltext_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: getlun_ 14 1 4 */ + +extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ + +extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int recazl_(doublereal *rectan, logical *azccw, logical *elplsz, doublereal *range, doublereal *az, doublereal *el); +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *clon, doublereal *z__); +/*:ref: twopi_ 7 0 */ + +extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *slon); + +extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: rotget_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); + +extern int reordd_(integer *iorder, integer *ndim, doublereal *array); + +extern int reordi_(integer *iorder, integer *ndim, integer *array); + +extern int reordl_(integer *iorder, integer *ndim, logical *array); + +extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); + +extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmct_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repml_(char *in, char *marker, logical *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmot_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intord_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ + +extern int reset_(void); +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ + +extern logical return_(void); +/*:ref: failed_ 12 0 */ +/*:ref: getact_ 14 1 4 */ + +extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); +/*:ref: shellc_ 14 3 4 13 124 */ + +extern int rmdupd_(integer *nelt, doublereal *array); +/*:ref: shelld_ 14 2 4 7 */ + +extern int rmdupi_(integer *nelt, integer *array); +/*:ref: shelli_ 14 2 4 4 */ + +extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); + +extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); + +extern doublereal rpd_(void); + +extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern integer rtrim_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: diags2_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); + +extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical sameai_(integer *a1, integer *a2, integer *ndim); + +extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); +/*:ref: nechr_ 12 4 13 13 124 124 */ + +extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); + +extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, integer *npartn, doublereal *parbeg, doublereal *parend, integer *clktyp, ftnlen clkstr_len); +extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); +extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scty01_(integer *sc, integer *clktyp); +extern int scpr01_(integer *sc, integer *npartn, doublereal *parbeg, doublereal *parend); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzscup01_ 14 21 4 4 4 4 4 4 7 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); +extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); +/*:ref: isrchi_ 4 3 4 4 4 */ + +extern int scardc_(integer *card, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int scardd_(integer *card, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scardi_(integer *card, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: scfmt_ 14 4 4 7 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scec01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sce2t_ 14 3 4 7 7 */ +/*:ref: scdecd_ 14 4 4 7 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scet01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sctiks_ 14 4 4 13 7 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scfm01_ 14 4 4 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); +extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); +extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ + +extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ + +extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpr01_ 14 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scencd_ 14 4 4 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scte01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: sctk01_ 14 4 4 13 7 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern integer sctype_(integer *sc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scty01_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical seterr_(logical *status); +extern logical failed_(void); + +extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int setmsg_(char *msg, ftnlen msg_len); +/*:ref: allowd_ 12 0 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len); +extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); +extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); +extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwes_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafcad_ 14 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafena_ 14 0 */ + +extern int sharpr_(doublereal *rot); +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int shellc_(integer *ndim, char *array, ftnlen array_len); +/*:ref: swapc_ 14 4 13 13 124 124 */ + +extern int shelld_(integer *ndim, doublereal *array); +/*:ref: swapd_ 14 2 7 7 */ + +extern int shelli_(integer *ndim, integer *array); +/*:ref: swapi_ 14 2 4 4 */ + +extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ + +extern int sigerr_(char *msg, ftnlen msg_len); +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: freeze_ 14 0 */ +/*:ref: outmsg_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ +/*:ref: byebye_ 14 2 13 124 */ + +extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */ + +extern integer sizec_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sized_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sizei_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical smsgnd_(doublereal *x, doublereal *y); + +extern logical smsgni_(integer *x, integer *y); + +extern logical somfls_(logical *logcls, integer *n); + +extern logical somtru_(logical *logcls, integer *n); + +extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: spct2b_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ +/*:ref: countc_ 4 5 4 4 4 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafarr_ 14 2 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: spcb2t_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: spcec_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spcdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcec_(integer *handle, integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int spcopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); +extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dafopw_ 14 3 13 4 124 */ +/*:ref: spcac_ 14 6 4 4 13 13 124 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern doublereal spd_(void); + +extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slon, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *radius, doublereal *lon, doublereal *lat); +/*:ref: halfpi_ 7 0 */ + +extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *rectan); + +extern doublereal sphsd_(doublereal *radius, doublereal *lon1, doublereal *lat1, doublereal *lon2, doublereal *lat2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int spk14e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int spklef_(char *fname, integer *handle, ftnlen fname_len); +extern int spkuef_(integer *handle); +extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int spkcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcov_(char *spkfnm, integer *idcode, doublereal *cover, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spke01_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbint_ 14 6 7 4 7 7 7 7 */ + +extern int spke03_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ + +extern int spke05_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke08_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ + +extern int spke09_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke10_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzteme_ 14 3 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke12_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke13_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke14_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ + +extern int spke18_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spke19_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbigr_ 14 6 4 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int spke21_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int spkezr_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *starg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int spkobj_(char *spkfnm, integer *ids, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkopa_(char *file, integer *handle, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafopw_ 14 3 13 4 124 */ + +extern int spkopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int spkpos_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *ptarg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: spkr01_ 14 4 4 7 7 7 */ +/*:ref: spke01_ 14 3 7 7 7 */ +/*:ref: spkr02_ 14 4 4 7 7 7 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: spkr03_ 14 4 4 7 7 7 */ +/*:ref: spke03_ 14 3 7 7 7 */ +/*:ref: spkr05_ 14 4 4 7 7 7 */ +/*:ref: spke05_ 14 3 7 7 7 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: spke08_ 14 3 7 7 7 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: spke09_ 14 3 7 7 7 */ +/*:ref: spkr10_ 14 4 4 7 7 7 */ +/*:ref: spke10_ 14 3 7 7 7 */ +/*:ref: spkr12_ 14 4 4 7 7 7 */ +/*:ref: spke12_ 14 3 7 7 7 */ +/*:ref: spkr13_ 14 4 4 7 7 7 */ +/*:ref: spke13_ 14 3 7 7 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkr14_ 14 4 4 7 7 7 */ +/*:ref: spke14_ 14 3 7 7 7 */ +/*:ref: spkr15_ 14 4 4 7 7 7 */ +/*:ref: spke15_ 14 3 7 7 7 */ +/*:ref: spkr17_ 14 4 4 7 7 7 */ +/*:ref: spke17_ 14 3 7 7 7 */ +/*:ref: spkr18_ 14 4 4 7 7 7 */ +/*:ref: spke18_ 14 3 7 7 7 */ +/*:ref: spkr19_ 14 4 4 7 7 7 */ +/*:ref: spke19_ 14 3 7 7 7 */ +/*:ref: spkr20_ 14 4 4 7 7 7 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: spkr21_ 14 4 4 7 7 7 */ +/*:ref: spke21_ 14 3 7 7 7 */ + +extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: spk14a_ 14 4 4 4 7 7 */ +/*:ref: spk14e_ 14 1 4 */ + +extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: spks01_ 14 5 4 4 4 7 7 */ +/*:ref: dafena_ 14 0 */ +/*:ref: spks02_ 14 5 4 4 4 7 7 */ +/*:ref: spks03_ 14 5 4 4 4 7 7 */ +/*:ref: spks05_ 14 5 4 4 4 7 7 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: spks10_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks12_ 14 5 4 4 4 7 7 */ +/*:ref: spks13_ 14 5 4 4 4 7 7 */ +/*:ref: spks14_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks15_ 14 5 4 4 4 7 7 */ +/*:ref: spks17_ 14 5 4 4 4 7 7 */ +/*:ref: spks18_ 14 5 4 4 4 7 7 */ +/*:ref: spks19_ 14 5 4 4 4 7 7 */ +/*:ref: spks20_ 14 5 4 4 4 7 7 */ +/*:ref: spks21_ 14 5 4 4 4 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *baddrs, integer *eaddrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkw01_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw02_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw03_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw05_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *gm, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw09_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw10_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *consts, integer *n, doublereal *elems, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw13_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw15_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *tp, doublereal *pa, doublereal *p, doublereal *ecc, doublereal *j2flg, doublereal *pv, doublereal *gm, doublereal *j2, doublereal *radius, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw17_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw18_(integer *handle, integer *subtyp, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *packts, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int srfrec_(integer *body, doublereal *lon, doublereal *lat, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ + +extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfxpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *dist, doublereal *trgepc, doublereal *obspos, logical *found, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int ssizec_(integer *size, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int ssized_(integer *size, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ssizei_(integer *size, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: ekcls_ 14 1 4 */ + +extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ +/*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ +/*:ref: rpd_ 7 0 */ + +extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern int stdio_(char *name__, integer *unit, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stpool_(char *item, integer *nth, char *contin, char *nthstr, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen nthstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int str2et_(char *timstr, doublereal *et, ftnlen timstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: tchckd_ 14 2 13 124 */ +/*:ref: tparch_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ + +extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int subpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *alt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int subsol_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ + +extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern doublereal sumad_(doublereal *array, integer *n); + +extern integer sumai_(integer *array, integer *n); + +extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ + +extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: cyadip_ 14 5 4 13 4 7 124 */ + +extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: cyaiip_ 14 5 4 13 4 4 124 */ + +extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int swapd_(doublereal *a, doublereal *b); + +extern int swapi_(integer *a, integer *b); + +extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupc_(char *name__, char *copy, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetc_(char *name__, char *tabsym, integer *tabptr, char *tabval, integer *n, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthc_(char *name__, integer *nth, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shellc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelld_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopc_(char *name__, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syputc_(char *name__, char *values, integer *n, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen values_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ + +extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ + +extern int syrenc_(char *old, char *new__, char *tabsym, integer *tabptr, char *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapad_ 14 5 4 4 4 4 7 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syselc_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, char *tabval, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseld_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseli_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, integer *tabval, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnc_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnd_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrni_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tangpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, char *dref, doublereal *dvec, doublereal *tanpt, doublereal *alt, doublereal *range, doublereal *srfpt, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vrel_ 7 2 7 7 */ + +extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); +extern int tparch_(char *type__, ftnlen type_len); +extern int tchckd_(char *type__, ftnlen type_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int texpyr_(integer *year); +extern int tsetyr_(integer *year); + +extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ + +extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scanpr_ 14 5 4 13 4 4 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: pckmat_ 14 5 4 7 4 7 12 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int tkfram_(integer *frcode, doublereal *rot, integer *frame, logical *found); +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: locati_ 14 6 4 4 4 4 4 12 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: sharpr_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ + +extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int tostdo_(char *line, ftnlen line_len); +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: writln_ 14 3 13 4 124 */ + +extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); + +extern doublereal touchd_(doublereal *dp); + +extern integer touchi_(integer *int__); + +extern logical touchl_(logical *log__); + +extern int tparse_(char *string, doublereal *sp2000, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int tpartv_(char *string, doublereal *tvec, integer *ntvec, char *type__, char *modify, logical *mods, logical *yabbrv, logical *succes, char *pictur, char *error, ftnlen string_len, ftnlen type_len, ftnlen modify_len, ftnlen pictur_len, ftnlen error_len); +/*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ +/*:ref: zztokns_ 12 4 13 13 124 124 */ +/*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzrept_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ +/*:ref: zzist_ 12 2 13 124 */ +/*:ref: zznote_ 12 4 13 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ +/*:ref: zzgrep_ 12 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzispt_ 12 4 13 4 4 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern int tpictr_(char *sample, char *pictur, logical *ok, char *errmsg, ftnlen sample_len, ftnlen pictur_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ + +extern doublereal trace_(doublereal *matrix); + +extern doublereal traceg_(doublereal *matrix, integer *ndim); + +extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); +extern int chkin_(char *module, ftnlen module_len); +extern int chkout_(char *module, ftnlen module_len); +extern int trcdep_(integer *depth); +extern int trcmxd_(integer *depth); +extern int trcnam_(integer *index, char *name__, ftnlen name_len); +extern int qcktrc_(char *trace, ftnlen trace_len); +extern int freeze_(void); +extern int trcoff_(void); +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern doublereal trgsep_(doublereal *et, char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspin_ 14 20 13 13 13 13 13 13 13 13 4 4 7 4 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordi_ 14 3 4 4 4 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal twopi_(void); + +extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern doublereal tyear_(void); + +extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: uddf_ 14 4 200 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int udf_(doublereal *x, doublereal *value); + +extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int unioni_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: somfls_ 12 2 12 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: setc_ 12 6 13 13 13 124 124 124 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ + +extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); +/*:ref: vnorm_ 7 1 7 */ + +extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ + +extern int validd_(integer *size, integer *n, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int validi_(integer *size, integer *n, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupi_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern doublereal vdist_(doublereal *v1, doublereal *v2); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern doublereal vdot_(doublereal *v1, doublereal *v2); + +extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern int vequ_(doublereal *vin, doublereal *vout); + +extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vhat_(doublereal *v1, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vhatip_(doublereal *v); +/*:ref: vnorm_ 7 1 7 */ + +extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); + +extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vminus_(doublereal *v1, doublereal *vout); + +extern doublereal vnorm_(doublereal *v1); + +extern doublereal vnormg_(doublereal *v1, integer *ndim); + +extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); + +extern int vperp_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int vproj_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern doublereal vrel_(doublereal *v1, doublereal *v2); +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); + +extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); + +extern int vsclip_(doublereal *s, doublereal *v); + +extern doublereal vsep_(doublereal *v1, doublereal *v2); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: pi_ 7 0 */ + +extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: pi_ 7 0 */ + +extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); + +extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); + +extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); + +extern logical vzero_(doublereal *v); + +extern logical vzerog_(doublereal *v, integer *ndim); + +extern integer wdcnt_(char *string, ftnlen string_len); + +extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer wncard_(doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int wncond_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical wnelmd_(doublereal *point, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnextd_(char *side, doublereal *window, ftnlen side_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfild_(doublereal *smlgap, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfltd_(doublereal *smlint, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: wnincd_ 12 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *idxsml, integer *idxlon); +/*:ref: return_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnvald_(integer *size, integer *n, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dp2hx_ 14 4 7 13 4 124 */ + +extern int wrenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ + +extern int writln_(char *line, integer *unit, ftnlen line_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ +/*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); +extern int clline_(char *device, ftnlen device_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzingrd_ 12 2 4 4 */ + +extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); +extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: sphrec_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: dcyldr_ 14 4 7 7 7 7 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ +/*:ref: dsphdr_ 14 4 7 7 7 7 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int xpose_(doublereal *m1, doublereal *mout); + +extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); + +extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); + +extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzbodblt_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, char *device, char *reqst, ftnlen names_len, ftnlen nornam_len, ftnlen device_len, ftnlen reqst_len); +extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); +extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzidmap_ 14 3 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ + +extern integer zzbodbry_(integer *body); + +extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ + +extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: zzbctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len); +extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +extern int zzboddef_(char *name__, integer *code, ftnlen name_len); +extern int zzbodkik_(void); +extern int zzbodrst_(void); +extern int zzbctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat); +/*:ref: return_ 12 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); + +extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); + +extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errint_ 14 3 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */ + +extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int zzcputim_(doublereal *tvec); +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzctr_(integer *newctr, integer *oldctr, logical *update); +extern int zzctruin_(integer *oldctr); +extern int zzctrsin_(integer *oldctr); +extern int zzctrinc_(integer *oldctr); +extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ + +extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafgfr_(integer *handle, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, logical *found, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafnfr_(integer *lun, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ + +extern int zzdasgri_(integer *handle, integer *recno, integer *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdasnfr_(integer *lun, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern integer zzddhclu_(logical *utlck, integer *nut); + +extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhmnm_ 7 1 4 */ + +extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); +/*:ref: return_ 12 0 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: frelun_ 14 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); +/*:ref: return_ 12 0 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ + +extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); + +extern int zzddhman_(logical *lock, char *arch, char *fname, char *method, integer *handle, integer *unit, integer *intamh, integer *intarc, integer *intbff, logical *native, logical *found, logical *kill, ftnlen arch_len, ftnlen fname_len, ftnlen method_len); +extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); +extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); +extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); +extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); +extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); +extern int zzddhisn_(integer *handle, logical *native, logical *found); +extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); +extern int zzddhluh_(integer *unit, integer *handle, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzpltchk_ 14 1 12 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhclu_ 4 2 12 4 */ +/*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: frelun_ 14 1 4 */ + +extern doublereal zzddhmnm_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzddhnfc_(integer *natbff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhppf_(integer *unit, integer *arch, integer *bff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzftpchk_ 14 3 13 12 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzddhivf_ 14 4 13 4 12 124 */ + +extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); +/*:ref: intmax_ 4 0 */ + +extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reslun_ 14 1 4 */ + +extern doublereal zzdiv_(doublereal *numr, doublereal *denom); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdnpt_(doublereal *state, doublereal *nearp, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vtmv_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbbl_(integer *bodyid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len); +extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len); +extern int zzdskusf_(integer *handle); +extern int zzdskbss_(integer *bodyid); +extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found); +extern int zzdskchk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dlabbs_ 14 3 4 4 12 */ +/*:ref: dlafps_ 14 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzdsksbd_ 12 1 4 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ + +extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal); +extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found); +extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found); +extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */ + +extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksbd_(integer *bodyid); +extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et); +extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos); +extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: touchi_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern doublereal zzdsksgr_(doublereal *dskdsc); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksbd_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: prsint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynoac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, logical *found, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ + +extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ + +extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ + +extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekcix1_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekcix1_(integer *handle, integer *coldsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ + +extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); +/*:ref: zzekpgfr_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ + +extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ + +extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ + +extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: zzeksz04_ 4 4 4 4 4 4 */ +/*:ref: zzeksz05_ 4 4 4 4 4 4 */ +/*:ref: zzeksz06_ 4 4 4 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgei_(integer *handle, integer *addrss, integer *ival); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ + +extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrs_(integer *handle, integer *recptr, integer *status); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekif02_(integer *handle, integer *segno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ + +extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ + +extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjnxt_ 14 2 12 4 */ + +extern int zzekjsqz_(integer *jrsbas); +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec); +extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs); +extern int zzekjnxt_(logical *found, integer *rowvec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ordi_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ + +extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ + +extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ekntab_ 14 1 4 */ +/*:ref: ektnam_ 14 3 4 13 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnkhl_ 4 2 4 4 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len); +extern int zzekpgin_(integer *handle); +extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgfr_(integer *handle, integer *type__, integer *p); +extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgri_(integer *handle, integer *p, integer *pagei); +extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); +extern int zzekpgbs_(integer *type__, integer *p, integer *base); +extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); +extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: fillc_ 14 5 13 4 13 124 124 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ + +extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); + +extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len); +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); +extern int zzekstop_(integer *top); +extern int zzekspsh_(integer *n, integer *idata); +extern int zzekspop_(integer *n, integer *idata); +extern int zzeksdec_(integer *n); +extern int zzeksupd_(integer *beg, integer *end, integer *idata); +extern int zzeksrd_(integer *beg, integer *end, integer *idata); +extern int zzekscln_(void); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxcsid_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lx4num_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: frstpc_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len); +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzeksei_(integer *handle, integer *addrss, integer *ival); +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrs_(integer *handle, integer *recptr, integer *status); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern integer zzekstyp_(integer *ncols, integer *cdscrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ + +extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scn2id_ 14 4 13 4 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ + +extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); + +extern int zzektr13_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr31_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ + +extern integer zzektrbs_(integer *node); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ + +extern int zzektrdl_(integer *handle, integer *tree, integer *key); +/*:ref: zzektrud_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzektr31_ 14 2 4 4 */ + +extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ + +extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzektrfr_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); +/*:ref: zzektrui_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzektr13_ 14 2 4 4 */ + +extern int zzektrit_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern integer zzektrls_(integer *handle, integer *tree, integer *ival); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern integer zzektrnk_(integer *handle, integer *tree, integer *node); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzektrsz_(integer *handle, integer *tree); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ + +extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); +extern int zzekvset_(integer *njrs, integer *bases); +extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2); +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: sameai_ 12 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ + +extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ + +extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ + +extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: zzwind_ 4 4 7 4 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: inelpl_ 14 5 7 7 4 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzenut80_(doublereal *et, doublereal *nutxf); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzeprc76_(doublereal *et, doublereal *precxf); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ + +extern int zzeprcss_(doublereal *et, doublereal *precm); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ + +extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: zzhullax_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ + +extern int zzgetbff_(integer *bffid); + +extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ + +extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */ +/*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcog_(doublereal *et, doublereal *crdval); +extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd); +extern int zzgfcocg_(doublereal *et, doublereal *crdval); +extern int zzgfcosg_(doublereal *et, doublereal *crdval); +extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */ +/*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzrtnmat_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wncond_ 14 3 7 7 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */ + +extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfdigq_(doublereal *et, doublereal *dist); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */ + +extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvst_(doublereal *time, logical *vistat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzwind2d_ 4 3 4 7 7 */ + +extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfilgq_(doublereal *et, doublereal *angle); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ + +extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfcosg_ 14 2 7 7 */ +/*:ref: zzgfcocg_ 14 2 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzgfcog_ 14 2 7 7 */ +/*:ref: wnunid_ 14 3 7 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocst_(doublereal *time, logical *ocstat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: minad_ 14 4 7 4 7 4 */ +/*:ref: maxad_ 14 4 7 4 7 4 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzminrad_ 14 1 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ + +extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfpagq_(doublereal *et, doublereal *rvl); +extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern int zzgfref_(doublereal *refval); +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: zzgfref_ 14 1 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +extern int zzgftswk_(doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkin_(doublereal *incr); +extern int zzgfwkad_(doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkun_(integer *unit); +extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzcputim_ 14 1 7 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvnorm_ 7 1 7 */ + +extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfrrgq_(doublereal *et, doublereal *rvl); +extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */ + +extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len); +extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfspgq_(doublereal *et, doublereal *sep); +extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: dhfa_ 7 2 7 7 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgftreb_(integer *body, doublereal *axes); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgrav_(doublereal *grav); + +extern integer zzhashi_(integer *n, integer *m); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len); +extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len); +extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len); +extern int zzhscavl_(integer *collst, integer *avail); +extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len); +extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__); +extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat); +extern int zzhsiavl_(integer *collst, integer *avail); +extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ + +extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); + +extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ + +extern logical zzingrd_(integer *nvox, integer *voxel); + +extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside); +/*:ref: twopi_ 7 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ + +extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); + +extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodkik_ 14 0 */ + +extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ + +extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); + +extern doublereal zzmult_(doublereal *a, doublereal *b); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ + +extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp); +extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); +extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); +extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ + +extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax); +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ + +extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); +extern integer zzshsh_(integer *m); +extern integer zzhash_(char *word, ftnlen word_len); +extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); +/*:ref: intmax_ 4 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzshsh_ 4 1 4 */ +/*:ref: touchi_ 4 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzpltchk_(logical *ok); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzgetbff_ 14 1 4 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: srfscc_ 14 5 13 4 4 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlassg_ 12 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len); +/*:ref: posr_ 4 5 13 13 4 124 124 */ + +extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: sumai_ 4 2 4 4 */ + +extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ + +extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzrtnmat_(doublereal *v, doublereal *m); +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ + +extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rdklin_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); +/*:ref: ident_ 14 1 7 */ + +extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzryxsph_ 14 5 7 7 7 7 12 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: zzpdpltc_ 12 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ + +extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzscad01_(integer *sc, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *sclkat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ + +extern int zzscin01_(integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, integer *ifree, integer *prvsc); +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern logical zzsclk_(integer *ckid, integer *sclkid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: removi_ 14 2 4 4 */ + +extern int zzscup01_(integer *sc, integer *polctr, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *prvsc, integer *nfield, integer *delcde, integer *timsys, integer *ncoeff, integer *npart, integer *cofbas, integer *strbas, integer *endbas, integer *modbas, integer *offbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzscad01_ 14 10 4 4 4 4 4 7 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt); + +extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal zzsepq_(doublereal *et, integer *bod1, integer *bod2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: opsgnd_ 12 2 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state); +extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode); +extern int xxsgp4e_(doublereal *t, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */ +/*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: pi_ 7 0 */ + +extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist); +extern int zzsuelin_(integer *trgcde); +extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid); +extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found); +extern int zzmaxrad_(doublereal *maxrad); +extern int zzminrad_(doublereal *minrad); +extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ + +extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int zzspin_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, integer *bods, integer *frames, doublereal *mxrad, integer *obs, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ + +extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ + +extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */ + +extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len); +extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len); +extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len); +extern int zzsrftrk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr); +/*:ref: return_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int zzswfcln_(integer *hdfram, integer *frpool, integer *basbeg, integer *framat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzswffet_(integer *framid, integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *bascnt, logical *usetim, logical *binary, integer *clsses, integer *clsids, integer *baslst, doublereal *starts, doublereal *stops, integer *framat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzswfcln_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ + +extern int zzswfini_(integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *prvat, integer *prvfrm, logical *samfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzswfxfm_(integer *infrm, doublereal *et, integer *ndim, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzswfini_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzswffet_ 14 15 4 4 4 4 4 4 4 12 12 4 4 4 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: ident_ 14 1 7 */ + +extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */ +/*:ref: cardd_ 4 1 7 */ + +extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point); +extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis); +extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: pi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzteme_(doublereal *et, doublereal *j2tm, doublereal *tm2j); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len); +extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); +extern logical zzgrep_(char *string, ftnlen string_len); +extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); +extern logical zzist_(char *letter, ftnlen letter_len); +extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); +extern logical zzremt_(char *letter, ftnlen letter_len); +extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); +extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); +extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len); +extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ + +extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: ducrss_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer zzvox2id_(integer *vixyz, integer *nvox); + +extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len); +extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); +extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ + +extern int zzwahr_(doublereal *et, doublereal *dvnut); +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: spd_ 7 0 */ + +extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vsepg_ 7 3 7 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: twopi_ 7 0 */ + +extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ + + +#ifdef __cplusplus + } +#endif + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZim.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZim.h new file mode 100644 index 000000000..51aa182b8 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZim.h @@ -0,0 +1,1686 @@ +/* + +-Header_File SpiceZim.h ( CSPICE interface macros ) + +-Abstract + + Define interface macros to be called in place of CSPICE + user-interface-level functions. These macros are generally used + to compensate for compiler deficiencies. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines interface macros to be called in place of + CSPICE user-interface-level functions. Currently, the sole purpose + of these macros is to implement automatic type casting under some + environments that generate compile-time warnings without the casts. + The typical case that causes a problem is a function argument list + containing an input formal argument of type + + const double [3][3] + + Under some compilers, a non-const actual argument supplied in a call + to such a function will generate a spurious warning due to the + "mismatched" type. These macros generate type casts that will + make such compilers happy. + + Examples of compilers that generate warnings of this type are + + gcc version 2.2.2, hosted on NeXT workstations running + NeXTStep 3.3 + + Sun C compiler, version 4.2, running under Solaris. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 14.0.0, 19-DEC-2021 (NJB) + + Added macro for invstm_c. + + -CSPICE Version 13.0.0, 25-JAN-2017 (NJB) (EDW) + + Defined new abbreviation macro CONST_IVEC3. + Added macros for + + dskgd_c + dskmi2_c + dskb02_c + dskd02_c + dski02_c + dskn02_c + dskobj_c + dskp02_c + dskrb2_c + dsksrf_c + dskv02_c + dskxv_c + dskxsi_c + dskw02_c + latsrf_c + limbpt_c + oscltx_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + srfnrm_c + termpt_c + + -CSPICE Version 12.0.0, 03-DEC-2013 (NJB) (EDW) (SCK) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Added macros for + + eqncpv_c + fovray_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpnv_c + spkw20_c + + -CSPICE Version 11.0.0, 09-MAR-2009 (NJB) (EDW) + + Added macros for + + dvsep_c + gfevnt_c + gffove_c + gfrfov_c + gfsntc_c + surfpv_c + + + -CSPICE Version 10.0.0, 19-FEB-2008 (NJB) (EDW) + + Added macros for + + ilumin_c + spkaps_c + spkltc_c + + -CSPICE Version 9.0.0, 31-OCT-2005 (NJB) + + Added macros for + + qdq2av_c + qxq_c + + -CSPICE Version 8.0.0, 23-FEB-2004 (NJB) + + Added macro for + + dafrs_c + + + -CSPICE Version 7.0.0, 23-FEB-2004 (EDW) + + Added macro for + + srfxpt_c + + -CSPICE Version 6.0.1, 25-FEB-2003 (EDW) (NJB) + + Remove duplicate macro definitions for ekaced_c and + ekacei_c. Visual Studio errored out when compiling + code that included SpiceZim.h. + + Added macro for + + dasac_c + + -CSPICE Version 6.0.0, 17-AUG-2002 (NJB) + + Added macros for + + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + esrchc_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lstltc_c + lstltd_c + lstlti_c + lstlec_c + lstled_c + lstlei_c + orderc_c + orderd_c + orderi_c + reordc_c + reordd_c + reordi_c + reordl_c + spkw18_c + + -CSPICE Version 5.0.0, 28-AUG-2001 (NJB) + + Added macros for + + conics_c + illum_c + invort_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + -CSPICE Version 4.0.0, 22-MAR-2000 (NJB) + + Added macros for + + spkw12_c + spkw13_c + + -CSPICE Version 3.0.0, 27-AUG-1999 (NJB) (EDW) + + Fixed cut & paste error in macro nvp2pl_c. + + Added macros for + + axisar_c + cgv2el_c + dafps_c + dafus_c + diags2_c + dvdot_c + dvhat_c + edlimb_c + ekacli_c + ekacld_c + ekacli_c + eul2xf_c + el2cgv_c + getelm_c + inedpl_c + isrot_c + mequ_c + npedln_c + nplnpt_c + rav2xf_c + raxisa_c + saelgv_c + spk14a_c + spkapo_c + spkapp_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + sumai_c + trace_c + vadd_g + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vupack_c + vzerog_c + xf2eul_c + xf2rav_c + + -CSPICE Version 2.0.0, 07-MAR-1999 (NJB) + + Added macros for + + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + vprjp_c + vprjpi_c + + -CSPICE Version 1.0.0, 24-JAN-1999 (NJB) (EDW) + + +-Index_Entries + + interface macros for CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +/* +Include the type definitions prior to defining the interface macros. +The macros reference the types. +*/ +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +#ifndef HAVE_SPICEIFMACROS_H +#define HAVE_SPICEIFMACROS_H + + +/* +Macros used to abbreviate type casts: +*/ + + #define CONST_BOOL ( ConstSpiceBoolean * ) + #define CONST_DLADSC ( ConstSpiceDLADescr * ) + #define CONST_DSKDSC ( ConstSpiceDSKDescr * ) + #define CONST_ELLIPSE ( ConstSpiceEllipse * ) + #define CONST_IVEC ( ConstSpiceInt * ) + #define CONST_IVEC3 ( ConstSpiceInt (*) [3] ) + #define CONST_MAT ( ConstSpiceDouble (*) [3] ) + #define CONST_MAT2 ( ConstSpiceDouble (*) [2] ) + #define CONST_MAT6 ( ConstSpiceDouble (*) [6] ) + #define CONST_PLANE ( ConstSpicePlane * ) + #define CONST_VEC3 ( ConstSpiceDouble (*) [3] ) + #define CONST_VEC4 ( ConstSpiceDouble (*) [4] ) + #define CONST_STR ( ConstSpiceChar * ) + #define CONST_VEC ( ConstSpiceDouble * ) + #define CONST_VOID ( const void * ) + +/* +Macros that substitute for function calls: +*/ + + #define axisar_c( axis, angle, r ) \ + \ + ( axisar_c( CONST_VEC(axis), (angle), (r) ) ) + + + #define bschoc_c( value, ndim, lenvals, array, order ) \ + \ + ( bschoc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array), CONST_IVEC(order) ) ) + + + #define bschoi_c( value, ndim, array, order ) \ + \ + ( bschoi_c ( (value) , (ndim), \ + CONST_IVEC(array), CONST_IVEC(order) ) ) + + + #define bsrchc_c( value, ndim, lenvals, array ) \ + \ + ( bsrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define bsrchd_c( value, ndim, array ) \ + \ + ( bsrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define bsrchi_c( value, ndim, array ) \ + \ + ( bsrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define ckw01_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs ) \ + \ + ( ckw01_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs) ) ) + + + #define ckw02_c( handle, begtim, endtim, inst, ref, segid, \ + nrec, start, stop, quats, avvs, rates ) \ + \ + ( ckw02_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(start), CONST_VEC(stop), \ + CONST_VEC4(quats), CONST_VEC3(avvs), \ + CONST_VEC(rates) ) ) + + + #define ckw03_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs, nints, \ + starts ) \ + \ + ( ckw03_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs), (nints), \ + CONST_VEC(starts) ) ) + + + #define ckw05_c( handle, subtyp, degree, begtim, endtim, inst, \ + ref, avflag, segid, n, sclkdp, packts, \ + rate, nints, starts ) \ + \ + ( ckw05_c ( (handle), (subtyp), (degree), \ + (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (n), \ + CONST_VEC(sclkdp), CONST_VOID(packts), \ + (rate), (nints), \ + CONST_VEC(starts) ) ) + + + #define cgv2el_c( center, vec1, vec2, ellipse ) \ + \ + ( cgv2el_c( CONST_VEC(center), CONST_VEC(vec1), \ + CONST_VEC(vec2), (ellipse) ) ) + + + #define conics_c( elts, et, state ) \ + \ + ( conics_c( CONST_VEC(elts), (et), (state) ) ) + + + #define dafps_c( nd, ni, dc, ic, sum ) \ + \ + ( dafps_c ( (nd), (ni), CONST_VEC(dc), CONST_IVEC(ic), \ + (sum) ) ) + + + #define dafrs_c( sum ) \ + \ + ( dafrs_c ( CONST_VEC( sum ) ) ) + + + #define dafus_c( sum, nd, ni, dc, ic ) \ + \ + ( dafus_c ( CONST_VEC(sum), (nd), (ni), (dc), (ic) ) ) + + + #define dasac_c( handle, n, buflen, buffer ) \ + \ + ( dasac_c ( (handle), (n), (buflen), CONST_VOID(buffer) ) ) + + + #define det_c( m1 ) \ + \ + ( det_c ( CONST_MAT(m1) ) ) + + + #define diags2_c( symmat, diag, rotate ) \ + \ + ( diags2_c ( CONST_MAT2(symmat), (diag), (rotate) ) ) + + + #define dskb02_c( handle, dladsc, nv, np, nvxtot, \ + vtxbds, voxsiz, voxori, vgrext, cgscal, \ + vtxnpl, voxnpt, voxnpl ) \ + \ + ( dskb02_c( (handle), CONST_DLADSC(dladsc), (nv), (np), \ + (nvxtot), (vtxbds), (voxsiz), (voxori), \ + (vgrext), (cgscal), (vtxnpl), (voxnpt), \ + (voxnpl) ) ) + + + #define dskd02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dskd02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dski02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dski02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dskgd_c( handle, dladsc, dskdsc ) \ + \ + ( dskgd_c ( (handle), CONST_DLADSC(dladsc), (dskdsc) ) ) + + + #define dskmi2_c( nv, vrtces, np, plates, \ + finscl, corscl, worksz, voxpsz, voxlsz, \ + makvtl, spxisz, work, spaixd, spaixi ) \ + \ + ( dskmi2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (finscl), \ + (corscl), (worksz), (voxpsz), \ + (voxlsz), (makvtl), (spxisz), \ + (work), (spaixd), (spaixi) ) ) + + + #define dskn02_c( handle, dladsc, plid, normal ) \ + \ + ( dskn02_c ( (handle), CONST_DLADSC(dladsc), (plid), \ + (normal) ) ) + + + #define dskobj_c( dsk, bodids ) \ + \ + ( dskobj_c ( CONST_STR(dsk), (bodids) ) ) + + + #define dskp02_c( handle, dladsc, start, room, n, plates ) \ + \ + ( dskp02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (plates) ) ) + + + #define dskrb2_c( nv, vrtces, np, plates, \ + corsys, corpar, mncor3, mxcor3 ) \ + \ + ( dskrb2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (corsys), \ + (corpar), (mncor3), (mxcor3) ) ) + + + #define dsksrf_c( dsk, bodyid, srfids ) \ + \ + ( dsksrf_c ( CONST_STR(dsk), (bodyid), (srfids) ) ) + + + #define dskv02_c( handle, dladsc, start, room, n, vrtces ) \ + \ + ( dskv02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (vrtces) ) ) + + + #define dskw02_c( handle, center, surfce, dclass, \ + frame, corsys, corpar, mncor1, \ + mxcor1, mncor2, mxcor2, mncor3, \ + mxcor3, first, last, nv, \ + vrtces, np, plates, spaixd, spaixi ) \ + \ + ( dskw02_c ( (handle), (center), (surfce), (dclass), \ + CONST_STR(frame), (corsys), \ + CONST_VEC(corpar), (mncor1), (mxcor1), \ + (mncor2), (mxcor2), (mncor3), \ + (mxcor3), (first), (last), \ + (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates), \ + (spaixd), (spaixi) ) ) + + + #define dskxsi_c( pri, target, nsurf, srflst, et, \ + fixref, vertex, raydir, maxd, maxi, \ + xpt, handle, dladsc, dskdsc, dc, \ + ic, found ) \ + \ + ( dskxsi_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), CONST_VEC(vertex), \ + CONST_VEC(raydir), (maxd), (maxi), \ + (xpt), (handle), (dladsc),\ + (dskdsc), (dc), (ic), \ + (found) ) ) + + + #define dskxv_c( pri, target, nsurf, srflst, et, fixref, \ + nrays, vtxarr, dirarr, xptarr, fndarr ) \ + \ + ( dskxv_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), (nrays), \ + CONST_VEC3(vtxarr), CONST_VEC3(dirarr), \ + (xptarr), (fndarr) ) ) + + + #define dvdot_c( s1, s2 ) \ + \ + ( dvdot_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define dvhat_c( v1, v2 ) \ + \ + ( dvhat_c ( CONST_VEC(v1), (v2) ) ) + + + #define dvsep_c( s1, s2 ) \ + \ + ( dvsep_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define edlimb_c( a, b, c, viewpt, limb ) \ + \ + ( edlimb_c( (a), (b), (c), CONST_VEC(viewpt), (limb) ) ) + + + #define ekacec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekacec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + + #define ekaced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekaced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VEC(dvals), (isnull) ) ) + + + #define ekacei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekacei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_IVEC(ivals), (isnull) ) ) + + + #define ekaclc_c( handle, segno, column, vallen, cvals, entszs, \ + nlflgs, rcptrs, wkindx ) \ + \ + ( ekaclc_c( (handle), (segno), (column), (vallen), \ + CONST_VOID(cvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacld_c( handle, segno, column, dvals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacld_c( (handle), (segno), (column), \ + CONST_VEC(dvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacli_c( handle, segno, column, ivals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacli_c( (handle), (segno), (column), \ + CONST_IVEC(ivals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekbseg_c( handle, tabnam, ncols, cnmlen, cnames, declen, \ + decls, segno ) \ + \ + ( ekbseg_c( (handle), (tabnam), (ncols), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno) ) ) + + + #define ekifld_c( handle, tabnam, ncols, nrows, cnmlen, cnames, \ + declen, decls, segno, rcptrs ) \ + \ + ( ekifld_c( (handle), (tabnam), (ncols), (nrows), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno), (rcptrs) ) ) + + + #define ekucec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekucec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + #define ekuced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekuced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(dvals), (isnull) ) ) + + + #define ekucei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekucei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(ivals), (isnull) ) ) + + + #define el2cgv_c( ellipse, center, smajor, sminor ) \ + \ + ( el2cgv_c( CONST_ELLIPSE(ellipse), (center), \ + (smajor), (sminor) ) ) + + + #define eqncpv_c( et, epoch, eqel, rapol, decpol, state ) \ + \ + ( eqncpv_c ( (et), (epoch), CONST_VEC(eqel), (rapol), \ + (decpol), (state) ) ) + + + #define esrchc_c( value, ndim, lenvals, array ) \ + \ + ( esrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define eul2xf_c( eulang, axisa, axisb, axisc, xform ) \ + \ + ( eul2xf_c ( CONST_VEC(eulang), (axisa), (axisb), (axisc), \ + (xform) ) ) + + #define fovray_c( inst, raydir, rframe, abcorr, observer, \ + et, visible ) \ + \ + ( fovray_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (observer), (et), (visible) ) ) + + #define getelm_c( frstyr, lineln, lines, epoch, elems ) \ + \ + ( getelm_c ( (frstyr), (lineln), CONST_VOID(lines), \ + (epoch), (elems) ) ) + + + #define gfevnt_c( udstep, udrefn, gquant, qnpars, lenvals, \ + qpnams, qcpars, qdpars, qipars, qlpars, \ + op, refval, tol, adjust, rpt, \ + udrepi, udrepu, udrepf, nintvls, \ + bail, udbail, cnfine, result ) \ + \ + ( gfevnt_c( (udstep), (udrefn), (gquant), \ + (qnpars), (lenvals), CONST_VOID(qpnams),\ + CONST_VOID(qcpars), (qdpars), (qipars), \ + (qlpars), (op), (refval), \ + (tol), (adjust), (rpt), \ + (udrepi), (udrepu), (udrepf), \ + (nintvls), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gffove_c( inst, tshape, raydir, target, tframe, \ + abcorr, obsrvr, tol, udstep, udrefn, \ + rpt, udrepi, udrepu, udrepf, bail, \ + udbail, cnfine, result ) \ + \ + ( gffove_c( (inst), (tshape), CONST_VEC(raydir), \ + (target), (tframe), (abcorr), \ + (obsrvr), (tol), (udstep), \ + (udrefn), (rpt), (udrepi), \ + (udrepu), (udrepf), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gfrfov_c( inst, raydir, rframe, abcorr, obsrvr, \ + step, cnfine, result ) \ + \ + ( gfrfov_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (obsrvr), (step), \ + (cnfine), (result) ) ) + + + #define gfsntc_c( target, fixref, method, abcorr, obsrvr, \ + dref, dvec, crdsys, coord, relate, \ + refval, adjust, step, nintvls, cnfine, \ + result ) \ + \ + ( gfsntc_c( (target), (fixref), (method), \ + (abcorr), (obsrvr), (dref), \ + CONST_VEC(dvec), (crdsys), (coord), \ + (relate), (refval), (adjust), \ + (step), (nintvls), (cnfine), (result) ) ) + + + #define illum_c( target, et, abcorr, obsrvr, \ + spoint, phase, solar, emissn ) \ + \ + ( illum_c ( (target), (et), (abcorr), (obsrvr), \ + CONST_VEC(spoint), (phase), (solar), (emissn) ) ) + + + #define ilumin_c( method, target, et, fixref, \ + abcorr, obsrvr, spoint, trgepc, \ + srfvec, phase, solar, emissn ) \ + \ + ( ilumin_c ( (method), (target), (et), (fixref), \ + (abcorr), (obsrvr), CONST_VEC(spoint), (trgepc), \ + (srfvec), (phase), (solar), (emissn) ) ) + + + #define inedpl_c( a, b, c, plane, ellipse, found ) \ + \ + ( inedpl_c ( (a), (b), (c), \ + CONST_PLANE(plane), (ellipse), (found) ) ) + + + #define inrypl_c( vertex, dir, plane, nxpts, xpt ) \ + \ + ( inrypl_c ( CONST_VEC(vertex), CONST_VEC(dir), \ + CONST_PLANE(plane), (nxpts), (xpt) ) ) + + + #define invert_c( m1, m2 ) \ + \ + ( invert_c ( CONST_MAT(m1), (m2) ) ) + + + #define invort_c( m, mit ) \ + \ + ( invort_c ( CONST_MAT(m), (mit) ) ) + + + #define invstm_c( mat, invmat ) \ + \ + ( invstm_c ( CONST_MAT6(mat), (invmat) ) ) + + + #define isordv_c( array, n ) \ + \ + ( isordv_c ( CONST_IVEC(array), (n) ) ) + + + #define isrchc_c( value, ndim, lenvals, array ) \ + \ + ( isrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + #define isrchd_c( value, ndim, array ) \ + \ + ( isrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define isrchi_c( value, ndim, array ) \ + \ + ( isrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define isrot_c( m, ntol, dtol ) \ + \ + ( isrot_c ( CONST_MAT(m), (ntol), (dtol) ) ) + + + #define latsrf_c( method, target, et, fixref, \ + npts, lonlat, srfpts ) \ + \ + ( latsrf_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), CONST_MAT2(lonlat), \ + (srfpts) ) ) + + + #define limbpt_c( method, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( limbpt_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define lmpool_c( cvals, lenvals, n ) \ + \ + ( lmpool_c( CONST_VOID(cvals), (lenvals), (n) ) ) + + + #define lstltc_c( value, ndim, lenvals, array ) \ + \ + ( lstltc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstled_c( value, ndim, array ) \ + \ + ( lstled_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlei_c( value, ndim, array ) \ + \ + ( lstlei_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define lstlec_c( value, ndim, lenvals, array ) \ + \ + ( lstlec_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstltd_c( value, ndim, array ) \ + \ + ( lstltd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlti_c( value, ndim, array ) \ + \ + ( lstlti_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define m2eul_c( r, axis3, axis2, axis1, \ + angle3, angle2, angle1 ) \ + \ + ( m2eul_c ( CONST_MAT(r), (axis3), (axis2), (axis1), \ + (angle3), (angle2), (angle1) ) ) + + #define m2q_c( r, q ) \ + \ + ( m2q_c ( CONST_MAT(r), (q) ) ) + + + #define mequ_c( m1, m2 ) \ + \ + ( mequ_c ( CONST_MAT(m1), m2 ) ) + + + #define mequg_c( m1, nr, nc, mout ) \ + \ + ( mequg_c ( CONST_MAT(m1), (nr), (nc), mout ) ) + + + #define mtxm_c( m1, m2, mout ) \ + \ + ( mtxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mtxmg_c( m1, m2, ncol1, nr1r2, ncol2, mout ) \ + \ + ( mtxmg_c ( CONST_MAT(m1), CONST_MAT(m2), \ + (ncol1), (nr1r2), (ncol2), (mout) ) ) + + + #define mtxv_c( m1, vin, vout ) \ + \ + ( mtxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mtxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mtxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define mxm_c( m1, m2, mout ) \ + \ + ( mxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmg_c( m1, m2, row1, col1, col2, mout ) \ + \ + ( mxmg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (row1), (col1), (col2), (mout) ) ) + + + #define mxmt_c( m1, m2, mout ) \ + \ + ( mxmt_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmtg_c( m1, m2, nrow1, nc1c2, nrow2, mout ) \ + \ + ( mxmtg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (nrow1), (nc1c2), \ + (nrow2), (mout) ) ) + + + #define mxv_c( m1, vin, vout ) \ + \ + ( mxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define nearpt_c( positn, a, b, c, npoint, alt ) \ + \ + ( nearpt_c ( CONST_VEC(positn), (a), (b), (c), \ + (npoint), (alt) ) ) + + + #define npedln_c( a, b, c, linept, linedr, pnear, dist ) \ + \ + ( npedln_c ( (a), (b), (c), \ + CONST_VEC(linept), CONST_VEC(linedr), \ + (pnear), (dist) ) ) + + + #define nplnpt_c( linpt, lindir, point, pnear, dist ) \ + \ + ( nplnpt_c ( CONST_VEC(linpt), CONST_VEC(lindir), \ + CONST_VEC(point), (pnear), (dist ) ) ) + + + #define nvc2pl_c( normal, constant, plane ) \ + \ + ( nvc2pl_c ( CONST_VEC(normal), (constant), (plane) ) ) + + + #define nvp2pl_c( normal, point, plane ) \ + \ + ( nvp2pl_c( CONST_VEC(normal), CONST_VEC(point), (plane) ) ) + + + #define orderc_c( lenvals, array, ndim, iorder ) \ + \ + ( orderc_c ( (lenvals), CONST_VOID(array), (ndim), (iorder)) ) + + + #define orderd_c( array, ndim, iorder ) \ + \ + ( orderd_c ( CONST_VEC(array), (ndim), (iorder) ) ) + + + #define orderi_c( array, ndim, iorder ) \ + \ + ( orderi_c ( CONST_IVEC(array), (ndim), (iorder) ) ) + + + #define oscelt_c( state, et, mu, elts ) \ + \ + ( oscelt_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define oscltx_c( state, et, mu, elts ) \ + \ + ( oscltx_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define pcpool_c( name, n, lenvals, cvals ) \ + \ + ( pcpool_c ( (name), (n), (lenvals), CONST_VOID(cvals) ) ) + + + #define pdpool_c( name, n, dvals ) \ + \ + ( pdpool_c ( (name), (n), CONST_VEC(dvals) ) ) + + + #define pipool_c( name, n, ivals ) \ + \ + ( pipool_c ( (name), (n), CONST_IVEC(ivals) ) ) + + + #define pl2nvc_c( plane, normal, constant ) \ + \ + ( pl2nvc_c ( CONST_PLANE(plane), (normal), (constant) ) ) + + + #define pl2nvp_c( plane, normal, point ) \ + \ + ( pl2nvp_c ( CONST_PLANE(plane), (normal), (point) ) ) + + + #define pl2psv_c( plane, point, span1, span2 ) \ + \ + ( pl2psv_c( CONST_PLANE(plane), (point), (span1), (span2) ) ) + + + #define pltar_c( nv, vrtces, np, plates ) \ + \ + ( pltar_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define pltexp_c( iverts, delta, overts ) \ + \ + ( pltexp_c( CONST_VEC3(iverts), (delta), (overts) ) ) + + + #define pltnp_c( point, v1, v2, v3, pnear, dist ) \ + \ + ( pltnp_c( CONST_VEC(point), CONST_VEC(v1), CONST_VEC(v2), \ + CONST_VEC(v3), (pnear), (dist) ) ) + + + #define pltnrm_c( v1, v2, v3, normal ) \ + \ + ( pltnrm_c( CONST_VEC(v1), CONST_VEC(v2), CONST_VEC(v3), \ + (normal) ) ) + + + #define pltvol_c( nv, vrtces, np, plates ) \ + \ + ( pltvol_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define prop2b_c( gm, pvinit, dt, pvprop ) \ + \ + ( prop2b_c ( (gm), CONST_VEC(pvinit), (dt), (pvprop) ) ) + + + #define psv2pl_c( point, span1, span2, plane ) \ + \ + ( psv2pl_c ( CONST_VEC(point), CONST_VEC(span1), \ + CONST_VEC(span2), (plane) ) ) + + + #define qdq2av_c( q, dq, av ) \ + \ + ( qdq2av_c ( CONST_VEC(q), CONST_VEC(dq), (av) ) ) + + + #define q2m_c( q, r ) \ + \ + ( q2m_c ( CONST_VEC(q), (r) ) ) + + + #define qxq_c( q1, q2, qout ) \ + \ + ( qxq_c ( CONST_VEC(q1), CONST_VEC(q2), (qout) ) ) + + + #define rav2xf_c( rot, av, xform ) \ + \ + ( rav2xf_c ( CONST_MAT(rot), CONST_VEC(av), (xform) ) ) + + + #define raxisa_c( matrix, axis, angle ) \ + \ + ( raxisa_c ( CONST_MAT(matrix), (axis), (angle) ) ); + + + #define reccyl_c( rectan, r, lon, z ) \ + \ + ( reccyl_c ( CONST_VEC(rectan), (r), (lon), (z) ) ) + + + #define recgeo_c( rectan, re, f, lon, lat, alt ) \ + \ + ( recgeo_c ( CONST_VEC(rectan), (re), (f), \ + (lon), (lat), (alt) ) ) + + #define reclat_c( rectan, r, lon, lat ) \ + \ + ( reclat_c ( CONST_VEC(rectan), (r), (lon), (lat) ) ) + + + #define recrad_c( rectan, radius, ra, dec ) \ + \ + ( recrad_c ( CONST_VEC(rectan), (radius), (ra), (dec) ) ) + + + #define recsph_c( rectan, r, colat, lon ) \ + \ + ( recsph_c ( CONST_VEC(rectan), (r), (colat), (lon) ) ) + + + #define reordd_c( iorder, ndim, array ) \ + \ + ( reordd_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordi_c( iorder, ndim, array ) \ + \ + ( reordi_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordl_c( iorder, ndim, array ) \ + \ + ( reordl_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define rotmat_c( m1, angle, iaxis, mout ) \ + \ + ( rotmat_c ( CONST_MAT(m1), (angle), (iaxis), (mout) ) ) + + + #define rotvec_c( v1, angle, iaxis, vout ) \ + \ + ( rotvec_c ( CONST_VEC(v1), (angle), (iaxis), (vout) ) ) + + + #define saelgv_c( vec1, vec2, smajor, sminor ) \ + \ + ( saelgv_c ( CONST_VEC(vec1), CONST_VEC(vec2), \ + (smajor), (sminor) ) ) + + + #define spk14a_c( handle, ncsets, coeffs, epochs ) \ + \ + ( spk14a_c ( (handle), (ncsets), \ + CONST_VEC(coeffs), CONST_VEC(epochs) ) ) + + + #define spkapo_c( targ, et, ref, sobs, abcorr, ptarg, lt ) \ + \ + ( spkapo_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (ptarg), (lt) ) ) + + + #define spkapp_c( targ, et, ref, sobs, abcorr, starg, lt ) \ + \ + ( spkapp_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (starg), (lt) ) ) + + + #define spkaps_c( targ, et, ref, abcorr, sobs, \ + accobs, starg, lt, dlt ) \ + \ + ( spkaps_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), CONST_VEC(accobs), \ + (starg), (lt), (dlt) ) ) + + + #define spkcpo_c( target, et, outref, refloc, \ + abcorr, obspos, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcpo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obspos), (obsctr), \ + (obsref), (state), (lt) ) ) + + + #define spkcpt_c( trgpos, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcpt_c( CONST_VEC(trgpos), (trgctr), (trgref), \ + (et), (outref), (refloc), (abcorr), \ + (obsrvr), (state), (lt) ) ) + + + #define spkcvo_c( target, et, outref, refloc, \ + abcorr, obssta, obsepc, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcvo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obssta), (obsepc), \ + (obsctr), (obsref), (state), (lt) ) ) + + + #define spkcvt_c( trgsta, trgepc, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcvt_c( CONST_VEC(trgsta), (trgepc), (trgctr), \ + (trgref), (et), (outref), (refloc), \ + (abcorr), (obsrvr), (state), (lt) ) ) + + + #define spkltc_c( targ, et, ref, abcorr, sobs, starg, lt, dlt ) \ + \ + ( spkltc_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), (starg), (lt), (dlt) ) ) + + + #define spkpvn_c( handle, descr, et, ref, state, center ) \ + \ + ( spkpvn_c ( (handle), CONST_VEC(descr), (et), \ + (ref), (state), (center) ) ) + + #define spkuds_c( descr, body, center, frame, type, \ + first, last, begin, end ) \ + \ + ( spkuds_c ( CONST_VEC(descr), (body), (center), (frame), \ + (type), (first), (last), (begin), (end) ) ) + + + #define spkw02_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw02_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + #define spkw03_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw03_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + + #define spkw05_c( handle, body, center, frame, first, last, \ + segid, gm, n, states, epochs ) \ + \ + ( spkw05_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (gm), \ + (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw08_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch1, step ) \ + \ + ( spkw08_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch1), \ + (step) ) ) + + + #define spkw09_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw09_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw10_c( handle, body, center, frame, first, last, \ + segid, consts, n, elems, epochs ) \ + \ + ( spkw10_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), CONST_VEC(consts), \ + (n), CONST_VEC(elems), CONST_VEC(epochs)) ) + + + #define spkw12_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch0, step ) \ + \ + ( spkw12_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch0), \ + (step) ) ) + + + #define spkw13_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw13_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + + + + #define spkw15_c( handle, body, center, frame, first, last, \ + segid, epoch, tp, pa, p, ecc, \ + j2flg, pv, gm, j2, radius ) \ + \ + ( spkw15_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(tp), CONST_VEC(pa), \ + (p), (ecc), (j2flg), CONST_VEC(pv), \ + (gm), (j2), (radius) ) ) + + + #define spkw17_c( handle, body, center, frame, first, last, \ + segid, epoch, eqel, rapol, decpol ) \ + \ + ( spkw17_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(eqel), (rapol), (decpol) ) ) + + + + #define spkw18_c( handle, subtyp, body, center, frame, first, \ + last, segid, degree, n, packts, epochs ) \ + \ + ( spkw18_c ( (handle), (subtyp), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_VOID(packts), CONST_VEC(epochs) ) ) + + + #define spkw20_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, dscale, \ + tscale, initjd, initfr ) \ + \ + ( spkw20_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (dscale), \ + (tscale), (initjd), (initfr) ) ) + + + + #define srfxpt_c( method, target, et, abcorr, obsrvr, dref, \ + dvec, spoint, dist, trgepc, obspos, found ) \ + \ + ( srfxpt_c ( (method), (target), (et), (abcorr), (obsrvr), \ + (dref), CONST_VEC(dvec), (spoint), (dist), \ + (trgepc), (obspos), (found) ) ) + + + #define srfnrm_c( method, target, et, fixref, \ + npts, srfpts, normls ) \ + \ + ( srfnrm_c ( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), \ + CONST_VEC3(srfpts), (normls) ) ) + + + #define stelab_c( pobj, vobj, appobj ) \ + \ + ( stelab_c ( CONST_VEC(pobj), CONST_VEC(vobj), (appobj) ) ) + + + #define sumad_c( array, n ) \ + \ + ( sumad_c ( CONST_VEC(array), (n) ) ) + + + #define sumai_c( array, n ) \ + \ + ( sumai_c ( CONST_IVEC(array), (n) ) ) + + + #define surfnm_c( a, b, c, point, normal ) \ + \ + ( surfnm_c ( (a), (b), (c), CONST_VEC(point), (normal) ) ) + + + #define surfpt_c( positn, u, a, b, c, point, found ) \ + \ + ( surfpt_c ( CONST_VEC(positn), CONST_VEC(u), \ + (a), (b), (c), \ + (point), (found) ) ) + + + #define surfpv_c( stvrtx, stdir, a, b, c, stx, found ) \ + \ + ( surfpv_c ( CONST_VEC(stvrtx), CONST_VEC(stdir), \ + (a), (b), (c), \ + (stx), (found) ) ) + + + #define swpool_c( agent, nnames, lenvals, names ) \ + \ + ( swpool_c( CONST_STR(agent), (nnames), \ + (lenvals), CONST_VOID(names) ) ) + + + #define termpt_c( method, ilusrc, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( termpt_c( CONST_STR(method), CONST_STR(ilusrc), \ + CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define trace_c( m1 ) \ + \ + ( trace_c ( CONST_MAT(m1) ) ) + + + #define twovec_c( axdef, indexa, plndef, indexp, mout ) \ + \ + ( twovec_c ( CONST_VEC(axdef), (indexa), \ + CONST_VEC(plndef), (indexp), (mout) ) ) + + + #define ucrss_c( v1, v2, vout ) \ + \ + ( ucrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define unorm_c( v1, vout, vmag ) \ + \ + ( unorm_c ( CONST_VEC(v1), (vout), (vmag) ) ) + + + #define unormg_c( v1, ndim, vout, vmag ) \ + \ + ( unormg_c ( CONST_VEC(v1), (ndim), (vout), (vmag) ) ) + + + #define vadd_c( v1, v2, vout ) \ + \ + ( vadd_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vaddg_c( v1, v2, ndim,vout ) \ + \ + ( vaddg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim), (vout) ) ) + + + #define vcrss_c( v1, v2, vout ) \ + \ + ( vcrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vdist_c( v1, v2 ) \ + \ + ( vdist_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdistg_c( v1, v2, ndim ) \ + \ + ( vdistg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vdot_c( v1, v2 ) \ + \ + ( vdot_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdotg_c( v1, v2, ndim ) \ + \ + ( vdotg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vequ_c( vin, vout ) \ + \ + ( vequ_c ( CONST_VEC(vin), (vout) ) ) + + + #define vequg_c( vin, ndim, vout ) \ + \ + ( vequg_c ( CONST_VEC(vin), (ndim), (vout) ) ) + + + #define vhat_c( v1, vout ) \ + \ + ( vhat_c ( CONST_VEC(v1), (vout) ) ) + + + #define vhatg_c( v1, ndim, vout ) \ + \ + ( vhatg_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vlcom3_c( a, v1, b, v2, c, v3, sum ) \ + \ + ( vlcom3_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), \ + (c), CONST_VEC(v3), (sum) ) ) + + + #define vlcom_c( a, v1, b, v2, sum ) \ + \ + ( vlcom_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vlcomg_c( n, a, v1, b, v2, sum ) \ + \ + ( vlcomg_c ( (n), (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vminug_c( v1, ndim, vout ) \ + \ + ( vminug_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vminus_c( v1, vout ) \ + \ + ( vminus_c ( CONST_VEC(v1), (vout) ) ) + + + #define vnorm_c( v1 ) \ + \ + ( vnorm_c ( CONST_VEC(v1) ) ) + + + #define vnormg_c( v1, ndim ) \ + \ + ( vnormg_c ( CONST_VEC(v1), (ndim) ) ) + + + #define vperp_c( a, b, p ) \ + \ + ( vperp_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vprjp_c( vin, plane, vout ) \ + \ + ( vprjp_c ( CONST_VEC(vin), CONST_PLANE(plane), (vout) ) ) + + + #define vprjpi_c( vin, projpl, invpl, vout, found ) \ + \ + ( vprjpi_c( CONST_VEC(vin), CONST_PLANE(projpl), \ + CONST_PLANE(invpl), (vout), (found) ) ) + + + #define vproj_c( a, b, p ) \ + \ + ( vproj_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vrel_c( v1, v2 ) \ + \ + ( vrel_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vrelg_c( v1, v2, ndim ) \ + \ + ( vrelg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vrotv_c( v, axis, theta, r ) \ + \ + ( vrotv_c ( CONST_VEC(v), CONST_VEC(axis), (theta), (r) ) ) + + + #define vscl_c( s, v1, vout ) \ + \ + ( vscl_c ( (s), CONST_VEC(v1), (vout) ) ) + + + #define vsclg_c( s, v1, ndim, vout ) \ + \ + ( vsclg_c ( (s), CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vsep_c( v1, v2 ) \ + \ + ( vsep_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vsepg_c( v1, v2, ndim) \ + \ + ( vsepg_c ( CONST_VEC(v1), CONST_VEC(v2), ndim ) ) + + + #define vsub_c( v1, v2, vout ) \ + \ + ( vsub_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vsubg_c( v1, v2, ndim, vout ) \ + \ + ( vsubg_c ( CONST_VEC(v1), CONST_VEC(v2), \ + (ndim), (vout) ) ) + + #define vtmv_c( v1, mat, v2 ) \ + \ + ( vtmv_c ( CONST_VEC(v1), CONST_MAT(mat), CONST_VEC(v2) ) ) + + + #define vtmvg_c( v1, mat, v2, nrow, ncol ) \ + \ + ( vtmvg_c ( CONST_VOID(v1), CONST_VOID(mat), CONST_VOID(v2), \ + (nrow), (ncol) ) ) + + + #define vupack_c( v, x, y, z ) \ + \ + ( vupack_c ( CONST_VEC(v), (x), (y), (z) ) ) + + + #define vzero_c( v1 ) \ + \ + ( vzero_c ( CONST_VEC(v1) ) ) + + + #define vzerog_c( v1, ndim ) \ + \ + ( vzerog_c ( CONST_VEC(v1), (ndim) ) ) + + + #define xf2eul_c( xform, axisa, axisb, axisc, eulang, unique ) \ + \ + ( xf2eul_c( CONST_MAT6(xform), (axisa), (axisb), (axisc), \ + (eulang), (unique) ) ) + + + #define xf2rav_c( xform, rot, av ) \ + \ + ( xf2rav_c( CONST_MAT6(xform), (rot), (av) ) ) + + + #define xpose6_c( m1, mout ) \ + \ + ( xpose6_c ( CONST_MAT6(m1), (mout) ) ) + + + #define xpose_c( m1, mout ) \ + \ + ( xpose_c ( CONST_MAT(m1), (mout) ) ) + + + #define xposeg_c( matrix, nrow, ncol, mout ) \ + \ + ( xposeg_c ( CONST_VOID(matrix), (nrow), (ncol), (mout) ) ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZmc.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZmc.h new file mode 100644 index 000000000..5e0c83435 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZmc.h @@ -0,0 +1,958 @@ +/* + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +*/ + +/* + CSPICE private macro file. + +-Particulars + + Current list of macros (spelling counts) + + BLANK + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + CHKFSTR + CHKFSTR_VAL + CHKOSTR + CHKOSTR_VAL + CHKPTR + F2C_MAP_CELL + Index values + MOVED + MOVEI + MaxAbs + MaxVal + MinAbs + MinVal + SpiceError + TolOrFail + +-Restrictions + + This is a private macro file for use within CSPICE. + Do not use or alter any entry. Or else! + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 6.0.0, 21-FEB-2021 (NJB) + + Deleted macros for physical constants and dates. Deleted macros `Even` + and `Odd`. + + -CSPICE Version 5.0.0, 07-FEB-2017 (NJB) + + Updated MaxAbs and MinAbs macros to cast their input arguments + to type double. + + -CSPICE Version 4.3.0, 18-SEP-2013 (NJB) + + Bug fix: missing comma was added to argument list + in body of macro CELLTYPECHK3_VAL. + + -CSPICE Version 4.2.0, 16-FEB-2005 (NJB) + + Bug fix: in the macro C2F_MAP_CELL, error checking has been + added after the sequence of calls to ssizec_ and scardc_. + If either of these routines signals an error, the dynamically + allocated memory for the "Fortran cell" is freed. + + -CSPICE Version 4.1.0, 06-DEC-2002 (NJB) + + Bug fix: added previous missing, bracketing parentheses to + references to input cell pointer argument in macro + CELLINIT. + + Changed CELLINIT macro so it no longer initializes to zero + length all strings in data array of a character cell. Instead, + strings are terminated with a null in their final element. + + -CSPICE Version 4.0.0, 22-AUG-2002 (NJB) + + Added macro definitions to support CSPICE cells and sets: + + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + F2C_MAP_CELL + + -CSPICE Version 3.0.0, 09-JAN-1998 (NJB) + + Added output string check macros CHKOSTR and CHKOSTR_VAL. + Removed variable name arguments from macros + + CHKPTR + CHKPTR_VAL + CHKFSTR + CHKRSTR_VAL + + The strings containing names of the checked variables are now + generated from the variables themselves via the # operator. + + -CSPICE Version 2.0.0, 03-DEC-1997 (NJB) + + Added pointer check macro CHKPTR and Fortran string check macro + CHKFSTR. + + -CSPICE Version 1.0.0, 25-OCT-1997 (EDW) +*/ + + + +#include +#include +#include "SpiceZdf.h" + + +#define MOVED( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceDouble) * (ndim) ) ) + + + + + +#define MOVEI( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceInt) * (ndim) ) ) + + + + + +/* +Define a tolerance test for those pesky double precision reals. +True if the difference is less than the tolerance, false otherwise. +The tolerance refers to a percentage. x, y and tol should be declared +double. All values are assumed to be non-zero. Okay? +*/ + +#define TolOrFail( x, y, tol ) \ + \ + ( fabs( x-y ) < ( tol * fabs(x) ) ) + + + + + +/* +Simple error output through standard SPICE error system . Set the error +message and the type +*/ + +#define SpiceError( errmsg, errtype ) \ + \ + { \ + setmsg_c ( errmsg ); \ + sigerr_c ( errtype ); \ + } + + + + + + +/* +Return a value which is the maximum/minimum of the absolute values of +two values. +*/ + +#define MaxAbs(a,b) \ + \ + ( fabs((double)(a)) >= fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + +#define MinAbs(a,b) \ + \ + ( fabs((double)(a)) < fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + + +/* +Return a value which is the maximum/minimum value of two values. +*/ + +#define MaxVal(A,B) ( (A) >= (B) ? (A) : (B) ) +#define MinVal(A,B) ( (A) < (B) ? (A) : (B) ) + + + +/* +Array indexes for vectors. +*/ + +#define SpiceX 0 +#define SpiceY 1 +#define SpiceZ 2 +#define SpiceVx 3 +#define SpiceVy 4 +#define SpiceVz 5 + + +/* +Common literal values. +*/ + +#define NULLCHAR ( (SpiceChar ) 0 ) +#define NULLCPTR ( (SpiceChar * ) 0 ) +#define BLANK ( (SpiceChar ) ' ' ) + + + +/* +Macro CHKPTR is used for checking for a null pointer. CHKPTR uses +the constants + + CHK_STANDARD + CHK_DISCOVER + CHK_REMAIN + +to control tracing behavior. Values and meanings are: + + CHK_STANDARD Standard tracing. If an error + is found, signal it, check out + and return. + + CHK_DISCOVER Discovery check-in. If an + error is found, check in, signal + the error, check out, and return. + + CHK_REMAIN If an error is found, signal it. + Do not check out or return. This + would allow the caller to clean up + before returning, if necessary. + In such cases the caller must test + failed_c() after the macro call. + +CHKPTR should be used in void functions. In non-void functions, +use CHKPTR_VAL, which is defined below. + +*/ + +#define CHK_STANDARD 1 +#define CHK_DISCOVER 2 +#define CHK_REMAIN 3 + +#define CHKPTR( errHandling, modname, pointer ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKPTR_VAL( errHandling, modname, pointer, retval ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKFSTR checks strings that are to be passed to Fortran or +f2c'd Fortran routines. Such strings must have non-zero length, +and their pointers must be non-null. + +CHKFSTR should be used in void functions. In non-void functions, +use CHKFSTR_VAL, which is defined below. +*/ + +#define CHKFSTR( errHandling, modname, string ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + +#define CHKFSTR_VAL( errHandling, modname, string, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKOSTR checks output string pointers and the associated +string length values supplied as input arguments. Output string +pointers must be non-null, and the string lengths must be at +least 2, so Fortran routine can write at least one character to +the output string, and so a null terminator can be appended. +CHKOSTR should be used in void functions. In non-void functions, +use CHKOSTR_VAL, which is defined below. +*/ + +#define CHKOSTR( errHandling, modname, string, length ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKOSTR_VAL( errHandling, modname, string, length, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + /* + Definitions for Cells and Sets + */ + + + /* + Cell initialization macros + */ + #define CELLINIT( cellPtr ) \ + \ + if ( !( (cellPtr)->init ) ) \ + { \ + if ( (cellPtr)->dtype == SPICE_CHR ) \ + { \ + /* \ + Make sure all elements of the data array, including \ + the control area, start off null-terminated. We place \ + the null character in the final element of each string, \ + so as to avoid wiping out data that may have been \ + assigned to the data array prior to initialization. \ + */ \ + SpiceChar * sPtr; \ + SpiceInt i; \ + SpiceInt nmax; \ + \ + nmax = SPICE_CELL_CTRLSZ + (cellPtr)->size; \ + \ + for ( i = 1; i <= nmax; i++ ) \ + { \ + sPtr = (SpiceChar *)((cellPtr)->base) \ + + i * (cellPtr)->length \ + - 1; \ + \ + *sPtr = NULLCHAR; \ + } \ + } \ + else \ + { \ + zzsynccl_c ( C2F, (cellPtr) ); \ + } \ + \ + (cellPtr)->init = SPICETRUE; \ + } + + + #define CELLINIT2( cellPtr1, cellPtr2 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); + + + #define CELLINIT3( cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); \ + CELLINIT ( cellPtr3 ); + + + /* + Data type checking macros: + */ + #define CELLTYPECHK( errHandling, modname, dType, cellPtr1 ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLTYPECHK_VAL( errHandling, modname, \ + dType, cellPtr1, retval ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLTYPECHK2( errHandling, modname, dtype, \ + cellPtr1, cellPtr2 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); + + + + #define CELLTYPECHK2_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); + + + + #define CELLTYPECHK3( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr3 ); + + + #define CELLTYPECHK3_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3, \ + retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr3, \ + retval ); + + + + #define CELLMATCH2( errHandling, modname, cellPtr1, cellPtr2 ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr[ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + #define CELLMATCH2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr [ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr [ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + #define CELLMATCH3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLMATCH2 ( errHandling, modname, cellPtr1, cellPtr2 ); \ + CELLMATCH2 ( errHandling, modname, cellPtr2, cellPtr3 ); + + + + + #define CELLMATCH3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr1, cellPtr2, retval ); \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr2, cellPtr3, retval ); + + /* + Set checking macros: + */ + #define CELLISSETCHK( errHandling, modname, cellPtr1 ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLISSETCHK_VAL( errHandling, modname, \ + cellPtr1, retval ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLISSETCHK2( errHandling, modname, \ + cellPtr1, cellPtr2 ) \ + \ + CELLISSETCHK( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK( errHandling, modname, cellPtr2 ); + + + + #define CELLISSETCHK2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr2, retval ); \ + + + + #define CELLISSETCHK3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLISSETCHK ( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr2 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr3 ); + + + #define CELLISSETCHK3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr2, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr3, retval ); + + + /* + C-to-Fortran and Fortran-to-C character cell translation macros: + */ + + /* + Macros that map one or more character C cells to dynamically + allocated Fortran-style character cells: + */ + #define C2F_MAP_CELL( caller, CCell, fCell, fLen ) \ + \ + { \ + /* \ + fCell and fLen are to be passed by reference, as if this \ + macro were a function. \ + \ + \ + Caution: dynamically allocates array fCell, which is to be \ + freed by caller! \ + */ \ + SpiceInt ndim; \ + SpiceInt lenvals; \ + \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + \ + C2F_MapFixStrArr ( (caller), ndim, lenvals, \ + (CCell)->base, (fLen), (fCell) ); \ + \ + if ( !failed_c() ) \ + { \ + /* \ + Explicitly set the control area info in the Fortran cell.\ + */ \ + ssizec_ ( ( integer * ) &((CCell)->size), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + scardc_ ( ( integer * ) &((CCell)->card), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + if ( failed_c() ) \ + { \ + /* \ + Setting size or cardinality of the Fortran cell \ + can fail, for example if the cell's string length \ + is too short. \ + */ \ + free ( *(fCell) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ) \ + \ + { \ + C2F_MAP_CELL( caller, CCell1, fCell1, fLen1 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell2, fCell2, fLen2 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL3( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2, \ + CCell3, fCell3, fLen3 ) \ + \ + { \ + C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell3, fCell3, fLen3 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + free ( *(fCell2) ); \ + } \ + } \ + } + + + + /* + Macro that maps a Fortran-style character cell to a C cell + (Note: this macro frees the Fortran cell): + */ + + #define F2C_MAP_CELL( fCell, fLen, CCell ) \ + \ + { \ + SpiceInt card; \ + SpiceInt lenvals; \ + SpiceInt ndim; \ + SpiceInt nBytes; \ + SpiceInt size; \ + void * array; \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + array = (CCell)->base; \ + \ + /* \ + Capture the size and cardinality of the Fortran cell. \ + */ \ + if ( !failed_c() ) \ + { \ + size = sizec_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + \ + card = cardc_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + } \ + \ + \ + /* \ + Copy the Fortran array into the output array. \ + */ \ + \ + nBytes = ndim * fLen * sizeof(SpiceChar); \ + memmove ( array, fCell, nBytes ); \ + /* \ + Convert the output array from Fortran to C style. \ + */ \ + F2C_ConvertTrStrArr ( ndim, lenvals, (SpiceChar *)array ); \ + \ + /* \ + Sync the size and cardinality of the C cell. \ + */ \ + if ( !failed_c() ) \ + { \ + (CCell)->size = size; \ + (CCell)->card = card; \ + } \ + } + + + +/* + End of header SpiceZmc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpl.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpl.h new file mode 100644 index 000000000..f2fe22553 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpl.h @@ -0,0 +1,125 @@ +/* + +-Header_File SpiceZpl.h ( CSPICE platform macros ) + +-Abstract + + Define macros identifying the host platform for which this + version of CSPICE is targeted. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines macros that enable CSPICE code to be + compiled conditionally based on the identity of the host platform. + + The macros defined here ARE visible in the macro name space of + any file that includes SpiceUsr.h. The names are prefixed with + the string CSPICE_ to help prevent conflicts with macros defined + by users' applications. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 2.4.0, 28-NOV-2021 (BVS) + + Updated for the: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. + + -CSPICE Version 2.3.0, 10-MAR-2014 (BVS) + + Updated for the: + + PC-CYGWIN-64BIT-GCC_C + + environment. + + -CSPICE Version 2.2.0, 14-MAY-2010 (EDW)(BVS) + + Updated for the: + + MAC-OSX-64BIT-INTEL_C + PC-64BIT-MS_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + SUN-SOLARIS-INTEL-CC_C + + environments. + + -CSPICE Version 2.1.0, 15-NOV-2006 (BVS) + + Updated for MAC-OSX-INTEL_C environment. + + -CSPICE Version 2.0.0, 21-FEB-2006 (NJB) + + Updated for PC-LINUX-64BIT-GCC_C environment. + + -CSPICE Version 1.3.0, 06-MAR-2005 (NJB) + + Updated for SUN-SOLARIS-64BIT-GCC_C environment. + + -CSPICE Version 1.2.0, 03-JAN-2005 (BVS) + + Updated for PC-CYGWIN_C environment. + + -CSPICE Version 1.1.0, 27-JUL-2002 (BVS) + + Updated for MAC-OSX-NATIVE_C environment. + + -CSPICE Version 1.0.0, 26-FEB-1999 (NJB) (EDW) + +-Index_Entries + + platform ID defines for CSPICE + +*/ + + +#ifndef HAVE_PLATFORM_MACROS_H +#define HAVE_PLATFORM_MACROS_H + + + #define CSPICE_PC_LINUX_64BIT_GCC + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpr.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpr.h new file mode 100644 index 000000000..3f2424970 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZpr.h @@ -0,0 +1,5190 @@ +/* + +-Header_File SpiceZpr.h ( CSPICE prototypes ) + +-Abstract + + Define prototypes for CSPICE user-interface-level functions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This C header file contains prototypes for CSPICE user-level + C routines. Prototypes for the underlying f2c'd SPICELIB routines + are contained in the separate header file SpiceZfc. However, those + routines are not part of the official CSPICE API. + +-Author_and_Institution + + N.J. Bachman (JPL) + M. Costa Sitja (JPL) + J. Diaz del Rio (ODC Space) + K.R. Gehringer (JPL) + W.L. Taber (JPL) + F.S. Turner (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 13.0.0, 05-NOV-2021 (JDR) (MCS) (NJB) + + Fixed size of "accobs" argument of spkaps_c: it was 6 when it + should be 3. + + Corrected prototype of gfoclt_c: switched order of abcorr and + obsrvr. + + Added prototypes for + + azlcpo_c + azlrec_c + chbigr_c + chbint_c + chbval_c + ckfrot_c + ckfxfm_c + ckgr02_c + ckgr03_c + ckmeta_c + cknr02_c + cknr03_c + clearc_c + cleari_c + dafhsf_c + dasadc_c + dasadd_c + dasadi_c + dashfs_c + daslla_c + dasllc_c + dasonw_c + dasops_c + dasrdc_c + dasrdd_c + dasrdi_c + dasudc_c + dasudd_c + dasudi_c + daswbr_c + dazldr_c + dlabns_c + dlaens_c + dlaopn_c + dnearp_c + drdazl_c + ednmpt_c + edpnt_c + evsgp4_c + filld_c + filli_c + getfvn_c + hrmesp_c + invstm_c + lgresp_c + lgrint_c + moved_c + nextwd_c + nthwd_c + qderiv_c + recazl_c + repml_c + stlabx_c + tangpt_c + tkfram_c + tparch_c + trgsep_c + twovxf_c + vprojg_c + + -CSPICE Version 12.14.0, 05-JAN-2017 (EDW) (NJB) + + Added prototypes for + + chbder_c + cleard_c + dasdc_c + dashfn_c + dasopw_c + dasrfr_c + dlabbs_c + dlabfs_c + dlafns_c + dlafps_c + dskb02_c + dskcls_c + dskd02_c + dskgd_c + dskgtl_c + dski02_c + dskmi2_c + dskn02_c + dskobj_c + dskopn_c + dskp02_c + dskrb2_c + dsksrf_c + dskstl_c + dskv02_c + dskw02_c + dskx02_c + dskxsi_c + dskxv_c + dskz02_c + hrmint_c + illum_pl02 + illum_plid_pl02 + latsrf_c + lgrind_c + limb_pl02 + limbpt_c + llgrid_pl02 + oscltx_c + pckcls_c + pckopn_c + pckw02_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + polyds_c + srfc2s_c + srfcss_c + srfnrm_c + srfs2c_c + srfscc_c + subpt_pl02 + subsol_pl02 + term_pl02 + termpt_c + + -CSPICE Version 12.13.0, 03-DEC-2013 (NJB) (SCK) (EDW) + + Correction to argument order for gfsep_c.c prototype. + + Added prototypes for + + bltfrm_c + ccifrm_c + edterm_c + eqncpv_c + fovray_c + fovtrg_c + gfilum_c + gfpa_c + gfstol_c + gfudb_c + illumg_c + kplfrm_c + occult_c + phaseq_c + pxfrm2_c + qcktrc_c + trcdep_c + trcnam_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpvn_c + spksfs_c + spkw20_c + xfmsta_c + udf_c + + -CSPICE Version 12.12.0, 19-FEB-2010 (EDW) (NJB) + + Added prototypes for + + bodc2s_c + dafgsr_c + dafrfr_c + dp2hx_c + ducrss_c + dvcrss_c + dvnorm_c + gfrr_c + gfuds_c + hx2dp_c + uddc_c + uddf_c + + -CSPICE Version 12.11.0, 29-MAR-2009 (EDW) (NJB) + + Added prototypes for + + dvsep_c + gfbail_c + gfclrh_c + gfdist_c + gfevnt_c + gffove_c + gfinth_c + gfocce_c + gfoclt_c + gfposc_c + gfrefn_c + gfrepf_c + gfrepi_c + gfrepu_c + gfrfov_c + gfsep_c + gfseth_c + gfsntc_c + gfsstp_c + gfstep_c + gfsubc_c + gftfov_c + surfpv_c + zzgfgeth_c + zzgfsavh_c + + -CSPICE Version 12.10.0, 30-JAN-2008 (EDW) (NJB) + + Added prototypes for: + + ilumin_c + pckcov_c + pckfrm_c + sincpt_c + spkacs_c + spkaps_c + spkltc_c + subpnt_c + subslr_c + wncard_c + + -CSPICE Version 12.9.0, 16-NOV-2006 (NJB) + + Bug fix: corrected prototype for vhatg_c. + + Renamed wnfild_c and wnfltd_c arguments `small' to 'smal' for + compatibility with MS Visual C++. + + Added prototypes for + + dafac_c + dafdc_c + dafec_c + dafgda_c + dascls_c + dasopr_c + kclear_c + + -CSPICE Version 12.8.0, 07-NOV-2005 (NJB) + + Added prototypes for + + bodvcd_c + qdq2av_c + qxq_c + srfrec_c + + -CSPICE Version 12.7.0, 06-JAN-2004 (NJB) + + Added prototypes for + + bods2c_c + ckcov_c + ckobj_c + dafopw_c + dafrs_c + dpgrdr_c + drdpgr_c + lspcn_c + pgrrec_c + recpgr_c + spkcov_c + spkobj_c + + -CSPICE Version 12.6.0, 24-FEB-2003 (NJB) + + Added prototype for + + bodvrd_c + deltet_c + srfxpt_c + + -CSPICE Version 12.5.0, 14-MAY-2003 (NJB) + + Removed prototype for getcml_. + + + -CSPICE Version 12.4.0, 25-FEB-2003 (NJB) + + Added prototypes for + + dasac_c + dasec_c + et2lst_c + + -CSPICE Version 12.3.0, 03-SEP-2002 (NJB) + + Added prototypes for + + appndc_c + appndd_c + appndi_c + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + card_c + ckw05_c + copy_c + cpos_c + cposr_c + diff_c + elemc_c + elemd_c + elemi_c + esrchc_c + insrtc_c + insrtd_c + insrti_c + inter_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lparss_c + lstlec_c + lstled_c + lstlei_c + lstltc_c + lstltd_c + lstlti_c + lx4dec_c + lx4num_c + lx4sgn_c + lx4uns_c + lxqstr_c + ncpos_c + ncposr_c + ordc_c + ordd_c + orderc_c + orderd_c + orderi_c + ordi_c + pos_c + posr_c + prefix_c + removc_c + removd_c + remove_c + removi_c + reordc_c + reordd_c + reordi_c + reordl_c + repmc_c + repmct_c + repmd_c + repmf_c + repmi_c + repmot_c + scard_c + sdiff_c + set_c + shellc_c + shelld_c + shelli_c + size_c + spkw18_c + ssize_c + union_c + valid_c + wncomd_c + wncond_c + wndifd_c + wnelmd_c + wnexpd_c + wnextd_c + wnfetd_c + wnfild_c + wnfltd_c + wnincd_c + wninsd_c + wnintd_c + wnreld_c + wnsumd_c + wnunid_c + wnvald_c + zzsynccl_c + + -CSPICE Version 12.2.0, 23-OCT-2001 (NJB) + + Added prototypes for + + badkpv_c + dcyldr_c + dgeodr_c + dlatdr_c + drdcyl_c + drdgeo_c + drdlat_c + drdsph_c + dsphdr_c + ekacec_c + ekaced_c + ekacei_c + ekappr_c + ekbseg_c + ekccnt_c + ekcii_c + ekdelr_c + ekinsr_c + ekntab_c + ekrcec_c + ekrced_c + ekrcei_c + ektnam_c + ekucec_c + ekuced_c + ekucei_c + inelpl_c + invort_c + kxtrct_c + + Added const qualifier to input array arguments of + + conics_c + illum_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + Added const qualifier to the return value of + + tkvrsn_c + + -CSPICE Version 12.1.0, 12-APR-2000 (FST) + + Added prototype for + + getfov_c + + -CSPICE Version 12.0.0, 22-MAR-2000 (NJB) + + Added prototypes for + + lparse_c + lparsm_c + spkw12_c + spkw13_c + + + -CSPICE Version 11.1.0, 17-DEC-1999 (WLT) + + Added prototype for + + dafrda_c + + -CSPICE Version 11.0.0, 07-OCT-1999 (NJB) (EDW) + + Changed ekaclc_c, ekacld_c, ekacli_c prototypes to make input + pointers const-qualified where appropriate. + + Changed prompt_c prototype to accommodate memory leak bug fix. + + Changed ekpsel_c prototype to be consistent with other interfaces + having string array outputs. + + Added prototypes for + + axisar_c + brcktd_c + brckti_c + cgv2el_c + cidfrm_c + clpool_c + cmprss_c + cnmfrm_c + convrt_c + cvpool_c + dafbbs_c + dafbfs_c + dafcls_c + dafcs_c + daffna_c + daffpa_c + dafgh_c + dafgn_c + dafgs_c + dafopr_c + dafps_c + dafus_c + diags2_c + dtpool_c + dvdot_c + dvhat_c + dvpool_c + edlimb_c + ekops_c + ekopw_c + eul2xf_c + ftncls_c + furnsh_c + getelm_c + getmsg_c + gnpool_c + ident_c + illum_c + inedpl_c + kdata_c + kinfo_c + ktotal_c + lmpool_c + matchi_c + matchw_c + maxd_c + maxi_c + mequ_c + mind_c + mini_c + moved_ + npedln_c + npelpt_c + nplnpt_c + pcpool_c + pdpool_c + pipool_c + pjelpl_c + pxform_c + rav2xf_c + raxisa_c + rquad_c + saelgv_c + spk14a_c + spk14b_c + spk14e_c + spkapo_c + spkapp_c + spkcls_c + spkezp_c + spkgps_c + spkopn_c + spkpds_c + spkpos_c + spkssb_c + spksub_c + spkuds_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + stpool_c + subpt_c + subsol_c + swpool_c + szpool_c + tparse_c + trace_c + unload_c + vaddg_c + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vzerog_c + xf2eul_c + xf2rav_c + xposeg_c + + -CSPICE Version 10.0.0, 09-MAR-1999 (NJB) + + Added prototypes for + + frame_c + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + sce2c_c + vprjp_c + vprjpi_c + + Now conditionally includes SpiceEll.h and SpicePln.h. + + + -CSPICE Version 9.0.0, 25-FEB-1999 (NJB) + + Added prototypes for + + eknseg_c + eknelt_c + ekpsel_c + ekssum_c + + Now conditionally includes SpiceEK.h. + + + -CSPICE Version 8.0.0, 20-OCT-1998 (NJB) + + Added const qualifier to all input matrix and vector arguments. + + Added prototypes for + + det_c + dpmax_c + dpmax_ + dpmin_c + dpmin_ + frinfo_c + frmnam_c + getfat_c + intmax_c + intmax_ + intmin_c + intmin_ + invert_c + namfrm_c + vrotv_c + vsclg_c + + + -CSPICE Version 7.0.0, 02-APR-1998 (EDW) + + Added prototypes for + + mequg_c + unormg_c + vdistg_c + vdotg_c + vequg_c + vnormg_c + + -CSPICE Version 6.0.0, 31-MAR-1998 (NJB) + + Added prototypes for + + ekaclc_c + ekacld_c + ekacli_c + ekcls_c + ekffld_c + ekfind_c + ekgc_c + ekgd_c + ekgi_c + ekifld_c + eklef_c + ekopr_c + ekopn_c + ekuef_c + + -CSPICE Version 5.0.1, 05-MAR-1998 (EDW) + + Remove some non printing characters. + + -CSPICE Version 5.0.0, 03-MAR-1998 (NJB) + + Added prototypes for + + etcal_c + ltime_c + stelab_c + tpictr_c + twovec_c + vsubg_c + + -CSPICE Version 4.0.0, 11-FEB-1998 (EDW) + + Added prototypes for + + timdef_c + tsetyr_c + + + -CSPICE Version 3.0.0, 02-FEB-1998 (NJB) + + Added prototypes for + + pckuof_c + tipbod_c + + Type SpiceVoid was replaced with void. + + -CSPICE Version 2.0.0, 06-JAN-1998 (NJB) + + Changed all input-only character pointers to type ConstSpiceChar. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + prototypes of CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + +#ifndef HAVE_SPICE_CELLS_H +#include "SpiceCel.h" +#endif + +#ifndef HAVE_SPICE_DLA_H +#include "SpiceDLA.h" +#endif + +#ifndef HAVE_SPICE_DSK_H +#include "SpiceDSK.h" +#endif + +#ifndef HAVE_SPICE_EK_H +#include "SpiceEK.h" +#endif + +#ifndef HAVE_SPICE_PLANES_H +#include "SpicePln.h" +#endif + +#ifndef HAVE_SPICE_ELLIPSES_H +#include "SpiceEll.h" +#endif + +#ifndef HAVE_SPICE_OSC_H +#include "SpiceOsc.h" +#endif + +#ifndef HAVE_SPICE_SPK_H +#include "SpiceSPK.h" +#endif + +#ifndef HAVE_SPICEWRAPPERS_H +#define HAVE_SPICEWRAPPERS_H + + + + +/* + Function prototypes for CSPICE functions are listed below. + Each prototype is accompanied by a function abstract and brief I/O + description. + + See the headers of the C wrappers for detailed descriptions of the + routines' interfaces. + + The list below should be maintained in alphabetical order. +*/ + + void appndc_c ( ConstSpiceChar * item, + SpiceCell * cell ); + + + void appndd_c ( SpiceDouble item, + SpiceCell * cell ); + + + void appndi_c ( SpiceInt item, + SpiceCell * cell ); + + + void axisar_c ( ConstSpiceDouble axis [3], + SpiceDouble angle, + SpiceDouble r [3][3] ); + + + void azlcpo_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + SpiceBoolean azccw, + SpiceBoolean elplsz, + ConstSpiceDouble obspos [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble azlsta [6], + SpiceDouble * lt ); + + + void azlrec_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble rectan [3] ); + + + SpiceBoolean badkpv_c ( ConstSpiceChar *caller, + ConstSpiceChar *name, + ConstSpiceChar *comp, + SpiceInt size, + SpiceInt divby, + SpiceChar type ); + + + void bltfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void bodc2n_c ( SpiceInt code, + SpiceInt namelen, + SpiceChar * name, + SpiceBoolean * found ); + + + void bodc2s_c ( SpiceInt code, + SpiceInt lenout, + SpiceChar * name ); + + void boddef_c ( ConstSpiceChar * name, + SpiceInt code ); + + + SpiceBoolean bodfnd_c ( SpiceInt body, + ConstSpiceChar * item ); + + + void bodn2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bods2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bodvar_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvcd_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvrd_c ( ConstSpiceChar * body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + SpiceDouble brcktd_c ( SpiceDouble number, + SpiceDouble end1, + SpiceDouble end2 ); + + + SpiceInt brckti_c ( SpiceInt number, + SpiceInt end1, + SpiceInt end2 ); + + + SpiceInt bschoc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array, + ConstSpiceInt * order ); + + + SpiceInt bschoi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array, + ConstSpiceInt * order ); + + + SpiceInt bsrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt bsrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt bsrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceDouble b1900_c ( void ); + + + SpiceDouble b1950_c ( void ); + + + SpiceInt card_c ( SpiceCell * cell ); + + + void ccifrm_c ( SpiceInt frclss, + SpiceInt clssid, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceInt * center, + SpiceBoolean * found ); + + + void cgv2el_c ( ConstSpiceDouble center[3], + ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceEllipse * ellipse ); + + + void chbder_c ( ConstSpiceDouble * cp, + SpiceInt degp, + SpiceDouble x2s[2], + SpiceDouble x, + SpiceInt nderiv, + SpiceDouble * partdp, + SpiceDouble * dpdxs ); + + + void chbigr_c ( SpiceInt degp, + ConstSpiceDouble cp [], + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * itgrlp ); + + + void chbint_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dpdx ); + + + void chbval_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p ); + + + void chkin_c ( ConstSpiceChar * module ); + + + void chkout_c ( ConstSpiceChar * module ); + + + void cidfrm_c ( SpiceInt cent, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void ckfrot_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble rotate [3][3], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckfxfm_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble xform [6][6], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckgr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckcls_c ( SpiceInt handle ); + + + void ckcov_c ( ConstSpiceChar * ck, + SpiceInt idcode, + SpiceBoolean needav, + ConstSpiceChar * level, + SpiceDouble tol, + ConstSpiceChar * timsys, + SpiceCell * cover ); + + + void ckgr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckobj_c ( ConstSpiceChar * ck, + SpiceCell * ids ); + + + void ckgp_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckgpav_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble av[3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckmeta_c ( SpiceInt ckid, + ConstSpiceChar * meta, + SpiceInt * idcode ); + + + void cknr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void cknr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void clearc_c ( SpiceInt ndim, + SpiceInt arrlen, + void * array ); + + + void cklpf_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ckupf_c ( SpiceInt handle ); + + + void ckw01_c ( SpiceInt handle, + SpiceDouble begtime, + SpiceDouble endtime, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3] ); + + + void ckw02_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble start [], + ConstSpiceDouble stop [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + ConstSpiceDouble rates [] ); + + + void ckw03_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + SpiceInt nints, + ConstSpiceDouble starts [] ); + + + void ckw05_c ( SpiceInt handle, + SpiceCK05Subtype subtyp, + SpiceInt degree, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt n, + ConstSpiceDouble sclkdp[], + const void * packets, + SpiceDouble rate, + SpiceInt nints, + ConstSpiceDouble starts[] ); + + + void cleard_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void cleari_c ( SpiceInt ndim, + SpiceInt array [] ); + + + SpiceDouble clight_c ( void ); + + + void clpool_c ( void ); + + + void cmprss_c ( SpiceChar delim, + SpiceInt n, + ConstSpiceChar * input, + SpiceInt lenout, + SpiceChar * output ); + + + void cnmfrm_c ( ConstSpiceChar * cname, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void conics_c ( ConstSpiceDouble elts[8], + SpiceDouble et, + SpiceDouble state[6] ); + + + void convrt_c ( SpiceDouble x, + ConstSpiceChar * in, + ConstSpiceChar * out, + SpiceDouble * y ); + + + void copy_c ( SpiceCell * a, + SpiceCell * b ); + + + SpiceInt cpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt cposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void cvpool_c ( ConstSpiceChar * agent, + SpiceBoolean * update ); + + + void cyllat_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void cylrec_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble rectan[3] ); + + + void cylsph_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void dafac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt lenvals, + const void * buffer ); + + + void dafbbs_c ( SpiceInt handle ); + + + void dafbfs_c ( SpiceInt handle ); + + + void dafcls_c ( SpiceInt handle ); + + + void dafcs_c ( SpiceInt handle ); + + + void dafdc_c ( SpiceInt handle ); + + + void dafec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt lenout, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void daffna_c ( SpiceBoolean * found ); + + + void daffpa_c ( SpiceBoolean * found ); + + + void dafgda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + void dafgh_c ( SpiceInt * handle ); + + + void dafgn_c ( SpiceInt lenout, + SpiceChar * name ); + + + void dafgs_c ( SpiceDouble sum[] ); + + + void dafgsr_c ( SpiceInt handle, + SpiceInt recno, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data, + SpiceBoolean * found ); + + + void dafhsf_c ( SpiceInt handle, + SpiceInt * nd, + SpiceInt * ni ); + + + void dafopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafps_c ( SpiceInt nd, + SpiceInt ni, + ConstSpiceDouble dc [], + ConstSpiceInt ic [], + SpiceDouble sum [] ); + + + void dafrda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + + void dafrfr_c ( SpiceInt handle, + SpiceInt lenout, + SpiceInt * nd, + SpiceInt * ni, + SpiceChar * ifname, + SpiceInt * fward, + SpiceInt * bward, + SpiceInt * free ); + + + void dasadc_c ( SpiceInt handle, + SpiceInt n, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasadd_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceDouble data [] ); + + + void dasadi_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceInt data [] ); + + + + void dafrs_c ( ConstSpiceDouble * sum ); + + + void dafus_c ( ConstSpiceDouble sum [], + SpiceInt nd, + SpiceInt ni, + SpiceDouble dc [], + SpiceInt ic [] ); + + + void dasac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt buflen, + const void * buffer ); + + + void dascls_c ( SpiceInt handle ); + + + void dasdc_c ( SpiceInt handle ); + + + void dasec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt buflen, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void dashfn_c ( SpiceInt handle, + SpiceInt namlen, + SpiceChar * fname ); + + + void dashfs_c ( SpiceInt handle, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc, + SpiceInt * free, + SpiceInt lastla [3], + SpiceInt lastrc [3], + SpiceInt lastwd [3] ); + + + void daslla_c ( SpiceInt handle, + SpiceInt * lastc, + SpiceInt * lastd, + SpiceInt * lasti ); + + + void dasllc_c ( SpiceInt handle ); + + + void dasonw_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomr, + SpiceInt * handle ); + + + void dasopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasops_c ( SpiceInt * handle ); + + + void dasopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasrdc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + void * data ); + + + void dasrdd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceDouble data [] ); + + + void dasrdi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt data [] ); + + + + void dasrfr_c ( SpiceInt handle, + SpiceInt idwlen, + SpiceInt ifnlen, + SpiceChar * idword, + SpiceChar * ifname, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc ); + + + void dasudc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasudd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceDouble data [] ); + + + void dasudi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceInt data [] ); + + + void daswbr_c ( SpiceInt handle ); + + + void dazldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + void dcyldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void deltet_c ( SpiceDouble epoch, + ConstSpiceChar * eptype, + SpiceDouble * delta ); + + + SpiceDouble det_c ( ConstSpiceDouble m1[3][3] ); + + + void diags2_c ( ConstSpiceDouble symmat [2][2], + SpiceDouble diag [2][2], + SpiceDouble rotate [2][2] ); + + + void diff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void dgeodr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void dlabbs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabfs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabns_c ( SpiceInt handle ); + + + void dlaens_c ( SpiceInt handle ); + + + void dlafns_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * nxtdsc, + SpiceBoolean * found ); + + + void dlafps_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * prvdsc, + SpiceBoolean * found ); + + + void dlaopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dlatdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dnearp_c ( ConstSpiceDouble state [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble dnear [6], + SpiceDouble dalt [2], + SpiceBoolean * found ); + + + void dp2hx_c ( SpiceDouble number, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * length ); + + + void dpgrdr_c ( ConstSpiceChar * body, + SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdazl_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + SpiceDouble dpmax_c ( void ); + + + SpiceDouble dpmax_ ( void ); + + + SpiceDouble dpmin_c ( void ); + + + SpiceDouble dpmin_ ( void ); + + + SpiceDouble dpr_c ( void ); + + + void drdcyl_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void drdgeo_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdlat_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble jacobi[3][3] ); + + + void drdpgr_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdsph_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble jacobi[3][3] ); + + + void dskb02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np, + SpiceInt * nvxtot, + SpiceDouble vtxbds [3][2], + SpiceDouble * voxsiz, + SpiceDouble voxori [3], + SpiceInt vgrext [3], + SpiceInt * cgscal, + SpiceInt * vtxnpl, + SpiceInt * voxnpt, + SpiceInt * voxnpl ); + + + void dskcls_c ( SpiceInt handle, + SpiceBoolean optmiz ); + + + void dskd02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values ); + + + void dskgd_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc ); + + + void dskgtl_c ( SpiceInt keywrd, + SpiceDouble * dpval ); + + + void dski02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * values ); + + void dskobj_c ( ConstSpiceChar * dsk, + SpiceCell * bodids ); + + void dskopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dskn02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt plid, + SpiceDouble normal[3] ); + + + void dskmi2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceDouble finscl, + SpiceInt corscl, + SpiceInt worksz, + SpiceInt voxpsz, + SpiceInt voxlsz, + SpiceBoolean makvtl, + SpiceInt spxisz, + SpiceInt work [][2], + SpiceDouble spaixd [], + SpiceInt spaixi [] ); + + + void dskp02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt plates[][3] ); + + + void dskrb2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble * mncor3, + SpiceDouble * mxcor3 ); + + + void dsksrf_c ( ConstSpiceChar * dsk, + SpiceInt bodyid, + SpiceCell * srfids ); + + + void dskstl_c ( SpiceInt keywrd, + SpiceDouble dpval ); + + + void dskv02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble vrtces[][3] ); + + + void dskw02_c ( SpiceInt handle, + SpiceInt center, + SpiceInt surfce, + SpiceInt dclass, + ConstSpiceChar * frame, + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble mncor1, + SpiceDouble mxcor1, + SpiceDouble mncor2, + SpiceDouble mxcor2, + SpiceDouble mncor3, + SpiceDouble mxcor3, + SpiceDouble first, + SpiceDouble last, + SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + ConstSpiceDouble spaixd[], + ConstSpiceInt spaixi[] ); + + + void dskx02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt * plid, + SpiceDouble xpt [3], + SpiceBoolean * found ); + + + void dskxsi_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst [], + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt maxd, + SpiceInt maxi, + SpiceDouble xpt [3], + SpiceInt * handle, + SpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc, + SpiceDouble dc [], + SpiceInt ic [], + SpiceBoolean * found ); + + + void dskxv_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst[], + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt nrays, + ConstSpiceDouble vtxarr[][3], + ConstSpiceDouble dirarr[][3], + SpiceDouble xptarr[][3], + SpiceBoolean fndarr[] ); + + + void dskz02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np ); + + + void dsphdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dtpool_c ( ConstSpiceChar * name, + SpiceBoolean * found, + SpiceInt * n, + SpiceChar type [1] ); + + + void ducrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + void dvcrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + SpiceDouble dvdot_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6] ); + + + void dvhat_c ( ConstSpiceDouble s1 [6], + SpiceDouble sout[6] ); + + SpiceDouble dvnorm_c ( ConstSpiceDouble state[6] ); + + void dvpool_c ( ConstSpiceChar * name ); + + + SpiceDouble dvsep_c ( ConstSpiceDouble * s1, + ConstSpiceDouble * s2 ); + + + void edlimb_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble viewpt[3], + SpiceEllipse * limb ); + + + void ednmpt_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble normal [3], + SpiceDouble point [3] ); + + + void edpnt_c ( ConstSpiceDouble p [3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble ep [3] ); + + + void edterm_c ( ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixfrm, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npts, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble termpts [ ][3] ); + + + void ekacec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekaced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekacei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekaclc_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + SpiceInt vallen, + const void * cvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacld_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceDouble * dvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacli_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceInt * ivals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekappr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * recno ); + + + void ekbseg_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno ); + + + void ekccnt_c ( ConstSpiceChar * table, + SpiceInt * ccount ); + + + void ekcii_c ( ConstSpiceChar * table, + SpiceInt cindex, + SpiceInt lenout, + SpiceChar * column, + SpiceEKAttDsc * attdsc ); + + + void ekcls_c ( SpiceInt handle ); + + + void ekdelr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void ekffld_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * rcptrs ); + + + void ekfind_c ( ConstSpiceChar * query, + SpiceInt lenout, + SpiceInt * nmrows, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekgc_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt lenout, + SpiceChar * cdata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgd_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceDouble * ddata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgi_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt * idata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekifld_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt nrows, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno, + SpiceInt * rcptrs ); + + + void ekinsr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void eklef_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + SpiceInt eknelt_c ( SpiceInt selidx, + SpiceInt row ); + + + SpiceInt eknseg_c ( SpiceInt handle ); + + + void ekntab_c ( SpiceInt * n ); + + + void ekopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ekopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekops_c ( SpiceInt * handle ); + + + void ekopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekpsel_c ( ConstSpiceChar * query, + SpiceInt msglen, + SpiceInt tablen, + SpiceInt collen, + SpiceInt * n, + SpiceInt * xbegs, + SpiceInt * xends, + SpiceEKDataType * xtypes, + SpiceEKExprClass * xclass, + void * tabs, + void * cols, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekrcec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt lenout, + SpiceInt * nvals, + void * cvals, + SpiceBoolean * isnull ); + + + void ekrced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceDouble * dvals, + SpiceBoolean * isnull ); + + + void ekrcei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceInt * ivals, + SpiceBoolean * isnull ); + + + void ekssum_c ( SpiceInt handle, + SpiceInt segno, + SpiceEKSegSum * segsum ); + + + void ektnam_c ( SpiceInt n, + SpiceInt lenout, + SpiceChar * table ); + + + void ekucec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekuced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekucei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekuef_c ( SpiceInt handle ); + + + SpiceBoolean elemc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceBoolean elemd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceBoolean elemi_c ( SpiceInt item, + SpiceCell * set ); + + + void eqncpv_c ( SpiceDouble et, + SpiceDouble epoch, + ConstSpiceDouble eqel[9], + SpiceDouble rapol, + SpiceDouble decpol, + SpiceDouble state[6] ); + + + SpiceBoolean eqstr_c ( ConstSpiceChar * a, + ConstSpiceChar * b ); + + + void el2cgv_c ( ConstSpiceEllipse * ellipse, + SpiceDouble center[3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void erract_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * action ); + + + void errch_c ( ConstSpiceChar * marker, + ConstSpiceChar * string ); + + + void errdev_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * device ); + + + void errdp_c ( ConstSpiceChar * marker, + SpiceDouble number ); + + + void errint_c ( ConstSpiceChar * marker, + SpiceInt number ); + + + void errprt_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * list ); + + + SpiceInt esrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + void etcal_c ( SpiceDouble et, + SpiceInt lenout, + SpiceChar * string ); + + + void et2lst_c ( SpiceDouble et, + SpiceInt body, + SpiceDouble lon, + ConstSpiceChar * type, + SpiceInt timlen, + SpiceInt ampmlen, + SpiceInt * hr, + SpiceInt * mn, + SpiceInt * sc, + SpiceChar * time, + SpiceChar * ampm ); + + + void et2utc_c ( SpiceDouble et , + ConstSpiceChar * format, + SpiceInt prec, + SpiceInt lenout, + SpiceChar * utcstr ); + + + void eul2m_c ( SpiceDouble angle3, + SpiceDouble angle2, + SpiceDouble angle1, + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble r [3][3] ); + + + void eul2xf_c ( ConstSpiceDouble eulang[6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble xform [6][6] ); + + + void evsgp4_c ( SpiceDouble et, + ConstSpiceDouble geophs [8], + ConstSpiceDouble elems [10], + SpiceDouble state [6] ); + + + SpiceBoolean exists_c ( ConstSpiceChar * name ); + + + void expool_c ( ConstSpiceChar * name, + SpiceBoolean * found ); + + + SpiceBoolean failed_c ( void ); + + void fovray_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + void fovtrg_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + + void filli_c ( SpiceInt value, + SpiceInt ndim, + SpiceInt array [] ); + + + void filld_c ( SpiceDouble value, + SpiceInt ndim, + SpiceDouble array [] ); + + + void frame_c ( SpiceDouble x[3], + SpiceDouble y[3], + SpiceDouble z[3] ); + + + void frinfo_c ( SpiceInt frcode, + SpiceInt * cent, + SpiceInt * clss, + SpiceInt * clssid, + SpiceBoolean * found ); + + + void frmnam_c ( SpiceInt frcode, + SpiceInt lenout, + SpiceChar * frname ); + + + void ftncls_c ( SpiceInt unit ); + + + void furnsh_c ( ConstSpiceChar * file ); + + + void gcpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * cvals, + SpiceBoolean * found ); + + + void gdpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values, + SpiceBoolean * found ); + + + void georec_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + void getcml_c ( SpiceInt * argc, + SpiceChar *** argv ); + + + void getelm_c ( SpiceInt frstyr, + SpiceInt lineln, + const void * lines, + SpiceDouble * epoch, + SpiceDouble * elems ); + + + void getfat_c ( ConstSpiceChar * file, + SpiceInt arclen, + SpiceInt typlen, + SpiceChar * arch, + SpiceChar * type ); + + + void getfov_c ( SpiceInt instid, + SpiceInt room, + SpiceInt shapelen, + SpiceInt framelen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getfvn_c ( ConstSpiceChar * inst, + SpiceInt room, + SpiceInt shalen, + SpiceInt fralen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getmsg_c ( ConstSpiceChar * option, + SpiceInt lenout, + SpiceChar * msg ); + + + SpiceBoolean gfbail_c ( void ); + + + void gfclrh_c ( void ); + + + void gfdist_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfevnt_c ( void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + ConstSpiceChar * gquant, + SpiceInt qnpars, + SpiceInt lenvals, + const void * qpnams, + const void * qcpars, + ConstSpiceDouble * qdpars, + ConstSpiceInt * qipars, + ConstSpiceBoolean * qlpars, + ConstSpiceChar * op, + SpiceDouble refval, + SpiceDouble tol, + SpiceDouble adjust, + SpiceBoolean rpt, + + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + + void ( * udrepf ) ( void ), + SpiceInt nintvls, + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gffove_c ( ConstSpiceChar * inst, + ConstSpiceChar * tshape, + ConstSpiceDouble raydir [3], + ConstSpiceChar * target, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfilum_c ( ConstSpiceChar * method, + ConstSpiceChar * angtyp, + ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfinth_c ( int sigcode ); + + + void gfocce_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfoclt_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfpa_c ( ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfposc_c ( ConstSpiceChar * target, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrefn_c ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ); + + + void gfrepf_c ( void ); + + + void gfrepi_c ( SpiceCell * window, + ConstSpiceChar * begmss, + ConstSpiceChar * endmss ); + + + void gfrepu_c ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble time ); + + + void gfrfov_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrr_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsep_c ( ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsntc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsstp_c ( SpiceDouble step ); + + + void gfstep_c ( SpiceDouble time, + SpiceDouble * step ); + + + void gfstol_c ( SpiceDouble value ); + + + void gfsubc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gftfov_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfudb_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble et, + SpiceBoolean * xbool ), + + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfuds_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble x, + SpiceBoolean * xbool ), + + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gipool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * ivals, + SpiceBoolean * found ); + + + void gnpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * kvars, + SpiceBoolean * found ); + + + void hrmesp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x, + SpiceDouble * f, + SpiceDouble * df ); + + + void hrmint_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble x, + SpiceDouble * work, + SpiceDouble * f, + SpiceDouble * df ); + + + SpiceDouble halfpi_c ( void ); + + + void hx2dp_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * number, + SpiceBoolean * error, + SpiceChar * errmsg + ); + + + void ident_c ( SpiceDouble matrix[3][3] ); + + + void ilumin_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_plid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceInt plid, + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn, + SpiceBoolean * visible, + SpiceBoolean * lit ); + + + void illumf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * ilusrc, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * incdnc, + SpiceDouble * emissn, + SpiceBoolean * visibl, + SpiceBoolean * lit ); + + + void illumg_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * illum, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void inedpl_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpicePlane * plane, + SpiceEllipse * ellipse, + SpiceBoolean * found ); + + + void inelpl_c ( ConstSpiceEllipse * ellips, + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt1[3], + SpiceDouble xpt2[3] ); + + + void insrtc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void insrtd_c ( SpiceDouble item, + SpiceCell * set ); + + + void insrti_c ( SpiceInt item, + SpiceCell * set ); + + + void inter_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void inrypl_c ( ConstSpiceDouble vertex [3], + ConstSpiceDouble dir [3], + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt [3] ); + + + SpiceInt intmax_c ( void ); + + + SpiceInt intmax_ ( void ); + + + SpiceInt intmin_c ( void ); + + + SpiceInt intmin_ ( void ); + + + void invert_c ( ConstSpiceDouble m1[3][3], + SpiceDouble m2[3][3] ); + + + void invort_c ( ConstSpiceDouble m [3][3], + SpiceDouble mit[3][3] ); + + + void invstm_c ( ConstSpiceDouble mat [6][6], + SpiceDouble invmat [6][6] ); + + + SpiceBoolean isordv_c ( ConstSpiceInt * array, + SpiceInt n ); + + + SpiceBoolean isrot_c ( ConstSpiceDouble m [3][3], + SpiceDouble ntol, + SpiceDouble dtol ); + + + + SpiceInt isrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt isrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt isrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceBoolean iswhsp_c ( ConstSpiceChar * string ); + + + SpiceDouble j1900_c ( void ); + + + SpiceDouble j1950_c ( void ); + + + SpiceDouble j2000_c ( void ); + + + SpiceDouble j2100_c ( void ); + + + SpiceDouble jyear_c ( void ); + + + void kclear_c ( void ); + + + void kdata_c ( SpiceInt which, + ConstSpiceChar * kind, + SpiceInt fillen, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * file, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kinfo_c ( ConstSpiceChar * file, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kplfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void ktotal_c ( ConstSpiceChar * kind, + SpiceInt * count ); + + + void kxtrct_c ( ConstSpiceChar * keywd, + SpiceInt termlen, + const void * terms, + SpiceInt nterms, + SpiceInt stringlen, + SpiceInt substrlen, + SpiceChar * string, + SpiceBoolean * found, + SpiceChar * substr ); + + + SpiceInt lastnb_c ( ConstSpiceChar * string ); + + + void latcyl_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * r, + SpiceDouble * lonc, + SpiceDouble * z ); + + + void latrec_c ( SpiceDouble radius, + SpiceDouble longitude, + SpiceDouble latitude, + SpiceDouble rectan [3] ); + + + void latsph_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * rho, + SpiceDouble * colat, + SpiceDouble * lons ); + + + void latsrf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble lonlat[][2], + SpiceDouble srfpts[][3] ); + + + void lcase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ldpool_c ( ConstSpiceChar * filename ); + + + SpiceDouble lgresp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void lgrind_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble * work, + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dp ); + + + SpiceDouble lgrint_c ( SpiceInt n, + ConstSpiceDouble xvals [], + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void limb_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble limbpts [][3], + SpiceInt plateIDs [] ); + + + void limbpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void llgrid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt npoints, + ConstSpiceDouble grid [][2], + SpiceDouble spoints [][3], + SpiceInt plateIDs [] ); + + + void lmpool_c ( const void * cvals, + SpiceInt lenvals, + SpiceInt n ); + + + void lparse_c ( ConstSpiceChar * list, + ConstSpiceChar * delim, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparsm_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparss_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceCell * set ); + + + SpiceDouble lspcn_c ( ConstSpiceChar * body, + SpiceDouble et, + ConstSpiceChar * abcorr ); + + + SpiceInt lstlec_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstled_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlei_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + SpiceInt lstltc_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstltd_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlti_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + void ltime_c ( SpiceDouble etobs, + SpiceInt obs, + ConstSpiceChar * dir, + SpiceInt targ, + SpiceDouble * ettarg, + SpiceDouble * elapsd ); + + + void lx4dec_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4num_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4sgn_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4uns_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lxqstr_c ( ConstSpiceChar * string, + SpiceChar qchar, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void m2eul_c ( ConstSpiceDouble r[3][3], + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble * angle3, + SpiceDouble * angle2, + SpiceDouble * angle1 ); + + + void m2q_c ( ConstSpiceDouble r[3][3], + SpiceDouble q[4] ); + + + + SpiceBoolean matchi_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceBoolean matchw_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceDouble maxd_c ( SpiceInt n, + ... ); + + + SpiceInt maxi_c ( SpiceInt n, + ... ); + + + void mequ_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void mequg_c ( const void * m1, + SpiceInt nr, + SpiceInt nc, + void * mout ); + + + SpiceDouble mind_c ( SpiceInt n, + ... ); + + + SpiceInt mini_c ( SpiceInt n, + ... ); + + + int moved_ ( SpiceDouble * arrfrm, + SpiceInt * ndim, + SpiceDouble * arrto ); + + + void moved_c ( ConstSpiceDouble arrfrm [], + SpiceInt ndim, + SpiceDouble arrto [] ); + + + void mtxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mtxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mtxv_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble vin [3], + SpiceDouble vout[3] ); + + + void mtxvg_c ( const void * m1, + const void * v2, + SpiceInt ncol1, + SpiceInt nr1r2, + void * vout ); + + + void mxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mxmt_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmtg_c ( const void * m1, + const void * m2, + SpiceInt nrow1, + SpiceInt nc1c2, + SpiceInt nrow2, + void * mout ); + + + void mxv_c ( ConstSpiceDouble m1[3][3], + ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void mxvg_c ( const void * m1, + const void * v2, + SpiceInt nrow1, + SpiceInt nc1r2, + void * vout ); + + + void namfrm_c ( ConstSpiceChar * frname, + SpiceInt * frcode ); + + + SpiceInt ncpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt ncposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void nearpt_c ( ConstSpiceDouble positn[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble npoint[3], + SpiceDouble * alt ); + + + void nextwd_c ( ConstSpiceChar * string, + SpiceInt nexlen, + SpiceInt reslen, + SpiceChar * next, + SpiceChar * rest ); + + + void npedln_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble linept[3], + ConstSpiceDouble linedr[3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void npelpt_c ( ConstSpiceDouble point[3], + ConstSpiceEllipse * ellips, + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void nplnpt_c ( ConstSpiceDouble linpt [3], + ConstSpiceDouble lindir [3], + ConstSpiceDouble point [3], + SpiceDouble pnear [3], + SpiceDouble * dist ); + + + void nthwd_c ( ConstSpiceChar * string, + SpiceInt nth, + SpiceInt worlen, + SpiceChar * word, + SpiceInt * loc ); + + + void nvc2pl_c ( ConstSpiceDouble normal[3], + SpiceDouble constant, + SpicePlane * plane ); + + + void nvp2pl_c ( ConstSpiceDouble normal[3], + ConstSpiceDouble point[3], + SpicePlane * plane ); + + void occult_c ( ConstSpiceChar * target1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * target2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble time, + SpiceInt * occult_code ); + + SpiceInt ordc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceInt ordd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceInt ordi_c ( SpiceInt item, + SpiceCell * set ); + + + void orderc_c ( SpiceInt lenvals, + const void * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderd_c ( ConstSpiceDouble * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderi_c ( ConstSpiceInt * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void oscelt_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[8] ); + + + void oscltx_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[SPICE_OSCLTX_NELTS] ); + + + void pckcls_c ( SpiceInt handle ); + + + void pckcov_c ( ConstSpiceChar * pck, + SpiceInt idcode, + SpiceCell * cover ); + + + void pckfrm_c ( ConstSpiceChar * pck, + SpiceCell * ids ); + + + void pcklof_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void pckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void pckuof_c ( SpiceInt handle ); + + + void pckw02_c ( SpiceInt handle, + SpiceInt clssid, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + SpiceDouble cdata [], + SpiceDouble btime ); + + + void pcpool_c ( ConstSpiceChar * name, + SpiceInt n, + SpiceInt lenvals, + const void * cvals ); + + + void pdpool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceDouble * dvals ); + + + void pgrrec_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + SpiceDouble phaseq_c ( SpiceDouble et, + ConstSpiceChar * target, + ConstSpiceChar * illumn, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + SpiceDouble pi_c ( void ); + + + void pipool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceInt * ivals ); + + + void pjelpl_c ( ConstSpiceEllipse * elin, + ConstSpicePlane * plane, + SpiceEllipse * elout ); + + + void pl2nvc_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble * constant ); + + + void pl2nvp_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble point[3] ); + + + void pl2psv_c ( ConstSpicePlane * plane, + SpiceDouble point[3], + SpiceDouble span1[3], + SpiceDouble span2[3] ); + + + SpiceDouble pltar_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void pltexp_c ( ConstSpiceDouble iverts[3][3], + SpiceDouble delta, + SpiceDouble overts[3][3] ); + + + void pltnp_c ( ConstSpiceDouble point[3], + ConstSpiceDouble v1 [3], + ConstSpiceDouble v2 [3], + ConstSpiceDouble v3 [3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void pltnrm_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + ConstSpiceDouble v3[3], + SpiceDouble normal[3] ); + + + SpiceDouble pltvol_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void polyds_c ( ConstSpiceDouble * coeffs, + SpiceInt deg, + SpiceInt nderiv, + SpiceDouble t, + SpiceDouble * p ); + + + SpiceInt pos_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + SpiceInt posr_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + void prefix_c ( ConstSpiceChar * pref, + SpiceInt spaces, + SpiceInt lenout, + SpiceChar * string ); + + + SpiceChar * prompt_c ( ConstSpiceChar * prmptStr, + SpiceInt lenout, + SpiceChar * buffer ); + + + void prop2b_c ( SpiceDouble gm, + ConstSpiceDouble pvinit[6], + SpiceDouble dt, + SpiceDouble pvprop[6] ); + + + void prsdp_c ( ConstSpiceChar * string, + SpiceDouble * dpval ); + + + void prsint_c ( ConstSpiceChar * string, + SpiceInt * intval ); + + + void psv2pl_c ( ConstSpiceDouble point[3], + ConstSpiceDouble span1[3], + ConstSpiceDouble span2[3], + SpicePlane * plane ); + + + void putcml_c ( SpiceInt argc , + SpiceChar ** argv ); + + + void pxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble rotate[3][3] ); + + + void pxfrm2_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble etfrom, + SpiceDouble etto, + SpiceDouble rotate[3][3] ); + + + void q2m_c ( ConstSpiceDouble q[4], + SpiceDouble r[3][3] ); + + + void qcktrc_c ( SpiceInt tracelen, + SpiceChar * trace ); + + + void qderiv_c ( SpiceInt ndim, + ConstSpiceDouble f0 [], + ConstSpiceDouble f2 [], + SpiceDouble delta, + SpiceDouble dfdt [] ); + + + void qdq2av_c ( ConstSpiceDouble q[4], + ConstSpiceDouble dq[4], + SpiceDouble av[3] ); + + + void qxq_c ( ConstSpiceDouble q1[4], + ConstSpiceDouble q2[4], + SpiceDouble qout[4] ); + + + + void radrec_c ( SpiceDouble range, + SpiceDouble ra, + SpiceDouble dec, + SpiceDouble rectan[3] ); + + + void rav2xf_c ( ConstSpiceDouble rot [3][3], + ConstSpiceDouble av [3], + SpiceDouble xform [6][6] ); + + + void raxisa_c ( ConstSpiceDouble matrix[3][3], + SpiceDouble axis [3], + SpiceDouble * angle ); + + + void rdtext_c ( ConstSpiceChar * file, + SpiceInt lenout, + SpiceChar * line, + SpiceBoolean * eof ); + + + void recazl_c ( ConstSpiceDouble rectan [3], + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble * range, + SpiceDouble * az, + SpiceDouble * el ); + + + void reccyl_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void recgeo_c ( ConstSpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void reclat_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * longitude, + SpiceDouble * latitude ); + + + void recpgr_c ( ConstSpiceChar * body, + SpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void recrad_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * ra, + SpiceDouble * dec ); + + + + void reordc_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void reordd_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceDouble * array ); + + + void reordi_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt * array ); + + + void reordl_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceBoolean * array ); + + + void removc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void removd_c ( SpiceDouble item, + SpiceCell * set ); + + + void removi_c ( SpiceInt item, + SpiceCell * set ); + + + void repmc_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + ConstSpiceChar * value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmct_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void repml_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceBoolean value, + SpiceChar rtcase, + SpiceInt outlen, + SpiceChar * out ); + + + void repmd_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceInt lenout, + SpiceChar * out ); + + + void repmf_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceChar format, + SpiceInt lenout, + SpiceChar * out ); + + + void repmi_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmot_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void reset_c ( void ); + + + SpiceBoolean return_c ( void ); + + + void recsph_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void rotate_c ( SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotmat_c ( ConstSpiceDouble m1[3][3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotvec_c ( ConstSpiceDouble v1[3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble vout[3] ); + + + SpiceDouble rpd_c ( void ); + + + void rquad_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble root1[2], + SpiceDouble root2[2] ); + + + void saelgv_c ( ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void scard_c ( SpiceInt card, + SpiceCell * cell ); + + + void scdecd_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2s_c ( SpiceInt sc, + SpiceDouble et, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2c_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void sce2t_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void scencd_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * sclkdp ); + + + void scfmt_c ( SpiceInt sc, + SpiceDouble ticks, + SpiceInt clkstrlen, + SpiceChar * clkstr ); + + + void scpart_c ( SpiceInt sc, + SpiceInt * nparts, + SpiceDouble * pstart, + SpiceDouble * pstop ); + + + void scs2e_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * et ); + + + void sct2e_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceDouble * et ); + + + void sctiks_c ( SpiceInt sc, + ConstSpiceChar * clkstr, + SpiceDouble * ticks ); + + + void sdiff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean set_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void setmsg_c ( ConstSpiceChar * msg ); + + + void shellc_c ( SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void shelld_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void shelli_c ( SpiceInt ndim, + SpiceInt * array ); + + + void sigerr_c ( ConstSpiceChar * message ); + + + void sincpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceBoolean * found ); + + + SpiceInt size_c ( SpiceCell * size ); + + + SpiceDouble spd_c ( void ); + + + void sphcyl_c ( SpiceDouble radius, + SpiceDouble colat, + SpiceDouble slon, + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void sphlat_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lons, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void sphrec_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble rectan[3] ); + + + void spk14a_c ( SpiceInt handle, + SpiceInt ncsets, + ConstSpiceDouble coeffs [], + ConstSpiceDouble epochs [] ); + + + void spk14b_c ( SpiceInt handle, + ConstSpiceChar * segid, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + SpiceInt chbdeg ); + + + void spk14e_c ( SpiceInt handle ); + + + void spkapo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs[6], + ConstSpiceChar * abcorr, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkapp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs [6], + ConstSpiceChar * abcorr, + SpiceDouble starg [6], + SpiceDouble * lt ); + + + void spkacs_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkaps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + ConstSpiceDouble accobs[3], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkcls_c ( SpiceInt handle ); + + + void spkcov_c ( ConstSpiceChar * spk, + SpiceInt idcode, + SpiceCell * cover ); + + + void spkcpo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcpt_c ( ConstSpiceDouble trgpos [3], + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [6], + SpiceDouble obsepc, + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvt_c ( ConstSpiceDouble trgsta [6], + SpiceDouble trgepc, + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkez_c ( SpiceInt target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + SpiceInt observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkezp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkezr_c ( ConstSpiceChar * target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgeo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble pos[3], + SpiceDouble * lt ); + + + void spklef_c ( ConstSpiceChar * filename, + SpiceInt * handle ); + + + void spkltc_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkobj_c ( ConstSpiceChar * spk, + SpiceCell * ids ); + + + void spkopa_c ( ConstSpiceChar * file, + SpiceInt * handle ); + + + void spkopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void spkpds_c ( SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceInt type, + SpiceDouble first, + SpiceDouble last, + SpiceDouble descr[5] ); + + + void spkpos_c ( ConstSpiceChar * targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkpvn_c ( SpiceInt handle, + ConstSpiceDouble descr [5], + SpiceDouble et, + SpiceInt * ref, + SpiceDouble state [6], + SpiceInt * center ); + + + void spksfs_c ( SpiceInt body, + SpiceDouble et, + SpiceInt idlen, + SpiceInt * handle, + SpiceDouble descr [5], + SpiceChar * ident, + SpiceBoolean * found ); + + + void spkssb_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceDouble starg[6] ); + + + void spksub_c ( SpiceInt handle, + SpiceDouble descr[5], + ConstSpiceChar * ident, + SpiceDouble begin, + SpiceDouble end, + SpiceInt newh ); + + + void spkuds_c ( ConstSpiceDouble descr [5], + SpiceInt * body, + SpiceInt * center, + SpiceInt * frame, + SpiceInt * type, + SpiceDouble * first, + SpiceDouble * last, + SpiceInt * begin, + SpiceInt * end ); + + + void spkuef_c ( SpiceInt handle ); + + + void spkw02_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw03_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw05_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble gm, + SpiceInt n, + ConstSpiceDouble states [][6], + ConstSpiceDouble epochs [] ); + + + void spkw08_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch1, + SpiceDouble step ); + + + void spkw09_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw10_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + ConstSpiceDouble consts [8], + SpiceInt n, + ConstSpiceDouble elems [], + ConstSpiceDouble epochs [] ); + + + void spkw12_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch0, + SpiceDouble step ); + + + void spkw13_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw15_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble tp [3], + ConstSpiceDouble pa [3], + SpiceDouble p, + SpiceDouble ecc, + SpiceDouble j2flg, + ConstSpiceDouble pv [3], + SpiceDouble gm, + SpiceDouble j2, + SpiceDouble radius ); + + + void spkw17_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble eqel [9], + SpiceDouble rapol, + SpiceDouble decpol ); + + + void spkw18_c ( SpiceInt handle, + SpiceSPK18Subtype subtyp, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + const void * packts, + ConstSpiceDouble epochs[] ); + + + void spkw20_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata[], + SpiceDouble dscale, + SpiceDouble tscale, + SpiceDouble initjd, + SpiceDouble initfr ); + + + + void srfrec_c ( SpiceInt body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble rectan[3] ); + + + void srfc2s_c ( SpiceInt code, + SpiceInt bodyid, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfcss_c ( SpiceInt code, + ConstSpiceChar * bodstr, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfnrm_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble srfpts[][3], + SpiceDouble normls[][3] ); + + + void srfs2c_c ( ConstSpiceChar * srfstr, + ConstSpiceChar * bodstr, + SpiceInt * code, + SpiceBoolean * found ); + + + void srfscc_c ( ConstSpiceChar * surfce, + SpiceInt bodyid, + SpiceInt * surfid, + SpiceBoolean * found ); + + + void srfxpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceBoolean * found ); + + + void ssize_c ( SpiceInt size, + SpiceCell * cell ); + + + void stelab_c ( ConstSpiceDouble pobj[3], + ConstSpiceDouble vobs[3], + SpiceDouble appobj[3] ); + + + void stlabx_c ( ConstSpiceDouble pobj [3], + ConstSpiceDouble vobs [3], + SpiceDouble corpos [3] ); + + + void stpool_c ( ConstSpiceChar * item, + SpiceInt nth, + ConstSpiceChar * contin, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * size, + SpiceBoolean * found ); + + + void str2et_c ( ConstSpiceChar * date, + SpiceDouble * et ); + + + void subpnt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt ); + + void subpt_pl02( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt, + SpiceInt * plateID ); + + + void subslr_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subsol_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint[3] ); + + + void subsol_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceInt * plateID ); + + + SpiceDouble sumad_c ( ConstSpiceDouble array[], + SpiceInt n ); + + + SpiceInt sumai_c ( ConstSpiceInt array[], + SpiceInt n ); + + + void surfnm_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble point[3], + SpiceDouble normal[3] ); + + + void surfpt_c ( ConstSpiceDouble positn[3], + ConstSpiceDouble u[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble point[3], + SpiceBoolean * found ); + + + void surfpv_c ( ConstSpiceDouble stvrtx[6], + ConstSpiceDouble stdir [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble stx [6], + SpiceBoolean * found ); + + + void swpool_c ( ConstSpiceChar * agent, + SpiceInt nnames, + SpiceInt lenvals, + const void * names ); + + + void sxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble xform[6][6] ); + + + void szpool_c ( ConstSpiceChar * name, + SpiceInt * n, + SpiceBoolean * found ); + + + void tangpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble tanpt [3], + SpiceDouble * alt, + SpiceDouble * range, + SpiceDouble srfpt [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void term_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble trmpts [][3], + SpiceInt plateIDs [] ); + + + void termpt_c ( ConstSpiceChar * method, + ConstSpiceChar * ilusrc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void timdef_c ( ConstSpiceChar * action, + ConstSpiceChar * item, + SpiceInt lenout, + SpiceChar * value ); + + + void timout_c ( SpiceDouble et, + ConstSpiceChar * pictur, + SpiceInt lenout, + SpiceChar * output ); + + + void tipbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tipm[3][3] ); + + + void tisbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tsipm[6][6] ); + + + void tkfram_c ( SpiceInt frcode, + SpiceDouble rot [3][3], + SpiceInt * frame, + SpiceBoolean * found ); + + + ConstSpiceChar * tkvrsn_c ( ConstSpiceChar * item ); + + + void tparch_c ( ConstSpiceChar * type ); + + + void tparse_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * sp2000, + SpiceChar * errmsg ); + + + void tpictr_c ( ConstSpiceChar * sample, + SpiceInt lenpictur, + SpiceInt lenerror, + SpiceChar * pictur, + SpiceBoolean * ok, + SpiceChar * error ); + + + SpiceDouble trace_c ( ConstSpiceDouble matrix[3][3] ); + + + void trcdep_c ( SpiceInt * depth ); + + + void trcnam_c ( SpiceInt index, + SpiceInt namelen, + SpiceChar * name ); + + + void trcoff_c ( void ); + + + SpiceDouble trgsep_c ( SpiceDouble et, + ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + void tsetyr_c ( SpiceInt year ); + + + SpiceDouble twopi_c ( void ); + + + void twovec_c ( ConstSpiceDouble axdef [3], + SpiceInt indexa, + ConstSpiceDouble plndef [3], + SpiceInt indexp, + SpiceDouble mout [3][3] ); + + + void twovxf_c ( ConstSpiceDouble axdef [6], + SpiceInt indexa, + ConstSpiceDouble plndef [6], + SpiceInt indexp, + SpiceDouble xform [6][6] ); + + + SpiceDouble tyear_c ( void ); + + + void ucase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ucrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void uddc_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + + SpiceDouble x, + SpiceDouble dx, + SpiceBoolean * isdecr ); + + + void uddf_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + SpiceDouble x, + SpiceDouble dx, + SpiceDouble * deriv ); + + + void udf_c ( SpiceDouble x, + SpiceDouble * value ); + + + void union_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceDouble unitim_c ( SpiceDouble epoch, + ConstSpiceChar * insys, + ConstSpiceChar * outsys ); + + + void unload_c ( ConstSpiceChar * file ); + + + void unorm_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3], + SpiceDouble * vmag ); + + + void unormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout, + SpiceDouble * vmag ); + + + void utc2et_c ( ConstSpiceChar * utcstr, + SpiceDouble * et ); + + + void vadd_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ) ; + + + void vaddg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + void valid_c ( SpiceInt size, + SpiceInt n, + SpiceCell * a ); + + + void vcrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + SpiceDouble vdist_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vdistg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vdot_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + SpiceDouble vdotg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + void vequ_c ( ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void vequg_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vhat_c ( ConstSpiceDouble v1 [3], + SpiceDouble vout[3] ); + + + void vhatg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vlcom_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble sum[3] ); + + + void vlcom3_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble c, + ConstSpiceDouble v3[3], + SpiceDouble sum[3] ); + + + void vlcomg_c ( SpiceInt n, + SpiceDouble a, + ConstSpiceDouble * v1, + SpiceDouble b, + ConstSpiceDouble * v2, + SpiceDouble * sum ); + + + void vminug_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vminus_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + SpiceDouble vnorm_c ( ConstSpiceDouble v1[3] ); + + + SpiceDouble vnormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim ); + + + void vpack_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble v[3] ); + + + void vperp_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + void vprjp_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * plane, + SpiceDouble vout [3] ); + + + void vprjpi_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * projpl, + ConstSpicePlane * invpl, + SpiceDouble vout [3], + SpiceBoolean * found ); + + + void vprojg_c ( ConstSpiceDouble a [], + ConstSpiceDouble b [], + SpiceInt ndim, + SpiceDouble p [] ); + + + void vproj_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + SpiceDouble vrel_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vrelg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + void vrotv_c ( ConstSpiceDouble v[3], + ConstSpiceDouble axis[3], + SpiceDouble theta, + SpiceDouble r[3] ); + + + void vscl_c ( SpiceDouble s, + ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + void vsclg_c ( SpiceDouble s, + ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsep_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + void vsub_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void vsubg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsepg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vtmv_c ( ConstSpiceDouble v1 [3], + ConstSpiceDouble matrix [3][3], + ConstSpiceDouble v2 [3] ); + + + SpiceDouble vtmvg_c ( const void * v1, + const void * matrix, + const void * v2, + SpiceInt nrow, + SpiceInt ncol ); + + + void vupack_c ( ConstSpiceDouble v[3], + SpiceDouble * x, + SpiceDouble * y, + SpiceDouble * z ); + + SpiceBoolean vzero_c ( ConstSpiceDouble v[3] ); + + + SpiceBoolean vzerog_c ( ConstSpiceDouble * v, + SpiceInt ndim ); + + SpiceInt wncard_c ( SpiceCell * window ); + + void wncomd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window, + SpiceCell * result ); + + + void wncond_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wndifd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnelmd_c ( SpiceDouble point, + SpiceCell * window ); + + + void wnexpd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnextd_c ( SpiceChar side, + SpiceCell * window ); + + + void wnfetd_c ( SpiceCell * window, + SpiceInt n, + SpiceDouble * left, + SpiceDouble * right ); + + + void wnfild_c ( SpiceDouble sml, + SpiceCell * window ); + + + void wnfltd_c ( SpiceDouble sml, + SpiceCell * window ); + + + SpiceBoolean wnincd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wninsd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnintd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnreld_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void wnsumd_c ( SpiceCell * window, + SpiceDouble * meas, + SpiceDouble * avg, + SpiceDouble * stddev, + SpiceInt * shortest, + SpiceInt * longest ); + + + void wnunid_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void wnvald_c ( SpiceInt size, + SpiceInt n, + SpiceCell * window ); + + + + void xf2eul_c ( ConstSpiceDouble xform [6][6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble eulang [6], + SpiceBoolean * unique ); + + + void xf2rav_c ( ConstSpiceDouble xform [6][6], + SpiceDouble rot [3][3], + SpiceDouble av [3] ); + + void xfmsta_c ( ConstSpiceDouble input_state [6], + ConstSpiceChar * input_coord_sys, + ConstSpiceChar * output_coord_sys, + ConstSpiceChar * body, + SpiceDouble output_state [6] ); + + void xpose_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void xpose6_c ( ConstSpiceDouble m1 [6][6], + SpiceDouble mout[6][6] ); + + + void xposeg_c ( const void * matrix, + SpiceInt nrow, + SpiceInt ncol, + void * xposem ); + + + void zzgetcml_c( SpiceInt * argc, + SpiceChar *** argv, + SpiceBoolean init ); + + + SpiceBoolean zzgfgeth_c ( void ); + + + void zzgfsavh_c( SpiceBoolean status ); + + + void zzsynccl_c( SpiceTransDir xdir, + SpiceCell * cell ); + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZrnm.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZrnm.h new file mode 100644 index 000000000..2542b343c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZrnm.h @@ -0,0 +1,82 @@ +/* + +-Header_File SpiceZrnm.h ( CSPICE rename assignments ) + +-Abstract + + Reassign CSPICE symbol names to prevent symbol collisions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + Compiled symbol names in CSPICE may collide with symbols in other, + non-SPICE libraries. This file redefines names which have or may + cause a collision. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.0.0, 17-OCT-2011 (EDW) + +-Index_Entries + + Rename assignments for CSPICE functions + +*/ + + +#ifndef HAVE_SPICERENAME_H + +/* +Redefine names causing symbol conflicts: +*/ +#define HAVE_SPICERENAME_H + + /* dpstrf_ may exist in the LAPACK library. */ + + #define dpstrf_ zz_dpstrf_ + + /* Just in case. */ + + #define pi_ zz_pi_ + #define vnorm_ zz_vnorm_ + #define vdist_ zz_vdist_ + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZst.h b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZst.h new file mode 100644 index 000000000..b39a49f05 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/SpiceZst.h @@ -0,0 +1,207 @@ +/* + +-Header_File SpiceZst.h ( Fortran/C string conversion utilities ) + +-Abstract + + Define prototypes for CSPICE Fortran/C string conversion utilities. + + Caution: these prototypes are subject to revision without notice. + + These are private routines and are not part of the official CSPICE + user interface. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.0.0, 24-FEB-2021 (NJB) + + Added prototype for function C_OptEmptyStr. + + -CSPICE Version 6.0.0, 10-JUL-2002 (NJB) + + Added prototype for new functions C2F_MapStrArr and + C2F_MapFixStrArr. + + -CSPICE Version 5.0.0, 18-MAY-2001 (WLT) + + Added #ifdef's to add namespace specification for C++ compilation. + + -CSPICE Version 4.0.0, 14-FEB-2000 (NJB) + + Added prototype for new function C2F_CreateStrArr_Sig. + + -CSPICE Version 3.0.0, 12-JUL-1999 (NJB) + + Added prototype for function C2F_CreateFixStrArr. + Added prototype for function F2C_ConvertTrStrArr. + Removed reference in comments to C2F_CreateStrArr_Sig, which + does not exist. + + -CSPICE Version 2.0.1, 06-MAR-1998 (NJB) + + Type SpiceVoid was changed to void. + + -CSPICE Version 2.0.1, 09-FEB-1998 (EDW) + + Added prototype for F2C_ConvertStrArr. + + -CSPICE Version 2.0.0, 04-JAN-1998 (NJB) + + Added prototype for F2C_ConvertStr. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + protoypes of CSPICE Fortran/C string conversion utilities + +*/ + +#include +#include +#include "SpiceZdf.h" + +#ifndef HAVE_FCSTRINGS_H +#define HAVE_FCSTRINGS_H + +#ifdef __cplusplus +namespace Jpl_NAIF_CSpice { +#endif + + + ConstSpiceChar * C_OptEmptyStr ( ConstSpiceChar * cStr ); + + + SpiceStatus C2F_CreateStr ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStr_Sig ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateFixStrArr ( SpiceInt nStr, + SpiceInt cStrDim, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_CreateStrArr ( SpiceInt, + ConstSpiceChar **, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStrArr_Sig ( SpiceInt nStr, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapFixStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_StrCpy ( ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + void F_Alloc ( SpiceInt, + SpiceChar** ); + + void F2C_ConvertStr ( SpiceInt, + SpiceChar * ); + + void F2C_ConvertStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + void F2C_ConvertTrStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + SpiceStatus F2C_CreateStr ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + void F2C_CreateStr_Sig ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + SpiceStatus F2C_CreateStrArr ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_CreateStrArr_Sig ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_FreeStrArr ( SpiceChar **cStrArr ); + + + SpiceStatus F2C_StrCpy ( SpiceInt, + ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + SpiceInt F_StrLen ( SpiceInt, + ConstSpiceChar * ); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/f2c.h b/Src/Celbody/SPICE/cspice/linux_x64/include/f2c.h new file mode 100644 index 000000000..6b99950c3 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/f2c.h @@ -0,0 +1,696 @@ +/* + +-Header_File f2c.h ( CSPICE version of the f2c standard header file ) + +-Abstract + + Perform standard f2c declarations, customized for the host + environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + The standard f2c header file f2c.h must be included by every function + generated by running f2c on Fortran source code. The header f2c.h + includes typedefs used to provide a level of indirection in mapping + Fortran data types to native C data types. For example, Fortran + INTEGER variables are mapped to variables of type integer, where + integer is a C typedef. In the standard f2c.h header, the typedef + integer translates to the C type long. + + Because the standard version of f2c.h does not work on all platforms, + this header file contains two platform-dependent versions of it, + meant to be selected at build time via precompiler switches. The + precompiler switches reference macros defined in SpiceZpl.h to + determine for which host platform the code is targeted. The first + version of f2c.h, which works on most platforms, is copied directly + from the standard version of f2c.h. The second version is intended + for use on the DEC Alpha running Digital Unix and the Sun/Solaris + platform using 64 bit mode and running gcc. On those systems, longs + occupy 8 bytes, as do doubles. Because the Fortran standard requires + that INTEGERS occupy half the storage of DOUBLE PRECISION numbers, + INTEGERS should be mapped to 4-byte ints rather than 8-byte longs + on the platforms having 8-byte longs. In order to achieve this, the + header f2c.h was transformed using the sed command + + sed 's/long //' f2c.h + + The high-level structure of this file is then: + + # if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + + [ Alpha/Digital Unix and Sun Solaris 64 bit mode/gcc + version of f2c.h source code ] + + # else + + [ Standard version of f2c.h source code ] + + # endif + + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 31-JAN-1999 release + are: + + ALPHA-DIGITAL-UNIX + HP + NEXT + PC-LINUX + PC-MS + SGI-IRIX-N32 + SGI-IRIX-NO2 + SUN-SOLARIS + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 4.3.0, 09-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 4.2.0, 09-APR-2014 (EDW) (BVS) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Minor text format correction to eliminate error signal from + OS X cpp. The edit removes leading whitespace from the + final "#endif". + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 4.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 4.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 3.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + + Updated to support linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. See the header + + f2cMang.h + + for further information. + + -CSPICE Version 1.0.0, 07-FEB-1999 (NJB) + +*/ + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +/* +Optionally include name-mangling macros for f2c external symbols. +*/ +#ifdef MIX_C_AND_FORTRAN +#include "f2cMang.h" +#endif + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + +#if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + + /* + MODIFICATION + + The following code is intended to be used on the platforms where + a long is the size of a double and an int is half the + size of a double. + + Note that the comment line below indicating that the header is + "Standard" has been retained from the original, but is no longer + true. + */ + + + + + +/* f2c.h -- Standard Fortran to C header file */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef int integer; +typedef unsigned uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long longint; /* system-dependent */ +typedef unsigned long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef int flag; +typedef int ftnlen; +typedef int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + + /* + This marks the end of the MODIFICATION section version of f2c.h. + */ + +#else + + /* + The following code is the standard f2c.h header. In this + header, an "integer" is defined to be of type long. + + Because the code is copied verbatim, it does not follow the usual + CSPICE indentation pattern. + */ + + +/* f2c.h -- Standard Fortran to C header file */ + + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef long int integer; +typedef unsigned long uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef long int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long long longint; /* system-dependent */ +typedef unsigned long long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/f2cMang.h b/Src/Celbody/SPICE/cspice/linux_x64/include/f2cMang.h new file mode 100644 index 000000000..f18fded68 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/f2cMang.h @@ -0,0 +1,390 @@ +/* + +-Header_File f2cMang.h ( f2c external symbol mangling ) + +-Abstract + + Define macros that mangle the external symbols in the f2c F77 and I77 + libraries. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header supports linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. When the flag is defined, this header + defines macros that mangle the f2c library external symbols: + the symbol + + xxx + + gets mapped to + + xxx_f2c + + This mangling prevents name collisions between the f2c + implementations of the F77 and I77 library routines and those + in the corresponding Fortran libraries on a host system. + + The set of external symbols defined in the f2c libraries can + be determined by combining objects from both F77 and I77 into + a single Unix archive libarary, then running the Unix utility + nm on the that archive. If available, an nm option that selects + only external symbols should be invoked. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) It is recommended that use of the features implemented by this + header be avoided if at all possible. There are robustness and + portability problems associated with linking Fortran and C objects + together in one executable. + + 2) When f2c external symbol name mangling is invoked, objects + derived from C code translated from Fortran by f2c won't + link against CSPICE any longer, if these objects reference + the standard f2c external symbols. + + 3) The features implemented by this header have been tested only + under the Sun Solaris GCC, Sun Solaris native ANSI C, and + PC/Linux/gcc environments. + +-Version + + -CSPICE Version 2.0.1, 07-MAR-2009 (NJB) + + Restrictions header section was updated to note successful + testing on the PC/Linux/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + +*/ + + + /* + Define masking macros for f2c external symbols. + */ + #ifdef MIX_C_AND_FORTRAN + + /* + Define the macros only once, if they need to be defined. + */ + #ifndef F2C_MANGLING_DONE + + #define F77_aloc F77_aloc_f2c + #define F_err F_err_f2c + #define L_len L_len_f2c + #define abort_ abort__f2c + #define b_char b_char_f2c + #define c_abs c_abs_f2c + #define c_cos c_cos_f2c + #define c_dfe c_dfe_f2c + #define c_div c_div_f2c + #define c_due c_due_f2c + #define c_exp c_exp_f2c + #define c_le c_le_f2c + #define c_log c_log_f2c + #define c_sfe c_sfe_f2c + #define c_si c_si_f2c + #define c_sin c_sin_f2c + #define c_sqrt c_sqrt_f2c + #define c_sue c_sue_f2c + #define d_abs d_abs_f2c + #define d_acos d_acos_f2c + #define d_asin d_asin_f2c + #define d_atan d_atan_f2c + #define d_atn2 d_atn2_f2c + #define d_cnjg d_cnjg_f2c + #define d_cos d_cos_f2c + #define d_cosh d_cosh_f2c + #define d_dim d_dim_f2c + #define d_exp d_exp_f2c + #define d_imag d_imag_f2c + #define d_int d_int_f2c + #define d_lg10 d_lg10_f2c + #define d_log d_log_f2c + #define d_mod d_mod_f2c + #define d_nint d_nint_f2c + #define d_prod d_prod_f2c + #define d_sign d_sign_f2c + #define d_sin d_sin_f2c + #define d_sinh d_sinh_f2c + #define d_sqrt d_sqrt_f2c + #define d_tan d_tan_f2c + #define d_tanh d_tanh_f2c + #define derf_ derf__f2c + #define derfc_ derfc__f2c + #define do_fio do_fio_f2c + #define do_lio do_lio_f2c + #define do_ud do_ud_f2c + #define do_uio do_uio_f2c + #define do_us do_us_f2c + #define dtime_ dtime__f2c + #define e_rdfe e_rdfe_f2c + #define e_rdue e_rdue_f2c + #define e_rsfe e_rsfe_f2c + #define e_rsfi e_rsfi_f2c + #define e_rsle e_rsle_f2c + #define e_rsli e_rsli_f2c + #define e_rsue e_rsue_f2c + #define e_wdfe e_wdfe_f2c + #define e_wdue e_wdue_f2c + #define e_wsfe e_wsfe_f2c + #define e_wsfi e_wsfi_f2c + #define e_wsle e_wsle_f2c + #define e_wsli e_wsli_f2c + #define e_wsue e_wsue_f2c + #define ef1asc_ ef1asc__f2c + #define ef1cmc_ ef1cmc__f2c + #define en_fio en_fio_f2c + #define erf_ erf__f2c + #define erfc_ erfc__f2c + #define err__fl err__fl_f2c + #define etime_ etime__f2c + #define exit_ exit__f2c + #define f__Aquote f__Aquote_f2c + #define f__buflen f__buflen_f2c + #define f__cabs f__cabs_f2c + #define f__canseek f__canseek_f2c + #define f__cblank f__cblank_f2c + #define f__cf f__cf_f2c + #define f__cnt f__cnt_f2c + #define f__cp f__cp_f2c + #define f__cplus f__cplus_f2c + #define f__cursor f__cursor_f2c + #define f__curunit f__curunit_f2c + #define f__doed f__doed_f2c + #define f__doend f__doend_f2c + #define f__doned f__doned_f2c + #define f__donewrec f__donewrec_f2c + #define f__dorevert f__dorevert_f2c + #define f__elist f__elist_f2c + #define f__external f__external_f2c + #define f__fatal f__fatal_f2c + #define f__fmtbuf f__fmtbuf_f2c + #define f__formatted f__formatted_f2c + #define f__getn f__getn_f2c + #define f__hiwater f__hiwater_f2c + #define f__icend f__icend_f2c + #define f__icnum f__icnum_f2c + #define f__icptr f__icptr_f2c + #define f__icvt f__icvt_f2c + #define f__init f__init_f2c + #define f__inode f__inode_f2c + #define f__lchar f__lchar_f2c + #define f__lcount f__lcount_f2c + #define f__lioproc f__lioproc_f2c + #define f__lquit f__lquit_f2c + #define f__ltab f__ltab_f2c + #define f__ltype f__ltype_f2c + #define f__lx f__lx_f2c + #define f__ly f__ly_f2c + #define f__nonl f__nonl_f2c + #define f__nowreading f__nowreading_f2c + #define f__nowwriting f__nowwriting_f2c + #define f__parenlvl f__parenlvl_f2c + #define f__pc f__pc_f2c + #define f__putbuf f__putbuf_f2c + #define f__putn f__putn_f2c + #define f__r_mode f__r_mode_f2c + #define f__reading f__reading_f2c + #define f__reclen f__reclen_f2c + #define f__recloc f__recloc_f2c + #define f__recpos f__recpos_f2c + #define f__ret f__ret_f2c + #define f__revloc f__revloc_f2c + #define f__rp f__rp_f2c + #define f__scale f__scale_f2c + #define f__sequential f__sequential_f2c + #define f__svic f__svic_f2c + #define f__typesize f__typesize_f2c + #define f__units f__units_f2c + #define f__w_mode f__w_mode_f2c + #define f__workdone f__workdone_f2c + #define f_back f_back_f2c + #define f_clos f_clos_f2c + #define f_end f_end_f2c + #define f_exit f_exit_f2c + #define f_init f_init_f2c + #define f_inqu f_inqu_f2c + #define f_open f_open_f2c + #define f_rew f_rew_f2c + #define fk_open fk_open_f2c + #define flush_ flush__f2c + #define fmt_bg fmt_bg_f2c + #define fseek_ fseek__f2c + #define ftell_ ftell__f2c + #define g_char g_char_f2c + #define getenv_ getenv__f2c + #define h_abs h_abs_f2c + #define h_dim h_dim_f2c + #define h_dnnt h_dnnt_f2c + #define h_indx h_indx_f2c + #define h_len h_len_f2c + #define h_mod h_mod_f2c + #define h_nint h_nint_f2c + #define h_sign h_sign_f2c + #define hl_ge hl_ge_f2c + #define hl_gt hl_gt_f2c + #define hl_le hl_le_f2c + #define hl_lt hl_lt_f2c + #define i_abs i_abs_f2c + #define i_dim i_dim_f2c + #define i_dnnt i_dnnt_f2c + #define i_indx i_indx_f2c + #define i_len i_len_f2c + #define i_mod i_mod_f2c + #define i_nint i_nint_f2c + #define i_sign i_sign_f2c + #define iw_rev iw_rev_f2c + #define l_eof l_eof_f2c + #define l_ge l_ge_f2c + #define l_getc l_getc_f2c + #define l_gt l_gt_f2c + #define l_le l_le_f2c + #define l_lt l_lt_f2c + #define l_read l_read_f2c + #define l_ungetc l_ungetc_f2c + #define l_write l_write_f2c + #define lbit_bits lbit_bits_f2c + #define lbit_cshift lbit_cshift_f2c + #define lbit_shift lbit_shift_f2c + #define mk_hashtab mk_hashtab_f2c + #define nml_read nml_read_f2c + #define pars_f pars_f_f2c + #define pow_ci pow_ci_f2c + #define pow_dd pow_dd_f2c + #define pow_di pow_di_f2c + #define pow_hh pow_hh_f2c + #define pow_ii pow_ii_f2c + #define pow_ri pow_ri_f2c + #define pow_zi pow_zi_f2c + #define pow_zz pow_zz_f2c + #define r_abs r_abs_f2c + #define r_acos r_acos_f2c + #define r_asin r_asin_f2c + #define r_atan r_atan_f2c + #define r_atn2 r_atn2_f2c + #define r_cnjg r_cnjg_f2c + #define r_cos r_cos_f2c + #define r_cosh r_cosh_f2c + #define r_dim r_dim_f2c + #define r_exp r_exp_f2c + #define r_imag r_imag_f2c + #define r_int r_int_f2c + #define r_lg10 r_lg10_f2c + #define r_log r_log_f2c + #define r_mod r_mod_f2c + #define r_nint r_nint_f2c + #define r_sign r_sign_f2c + #define r_sin r_sin_f2c + #define r_sinh r_sinh_f2c + #define r_sqrt r_sqrt_f2c + #define r_tan r_tan_f2c + #define r_tanh r_tanh_f2c + #define rd_ed rd_ed_f2c + #define rd_ned rd_ned_f2c + #define s_cat s_cat_f2c + #define s_cmp s_cmp_f2c + #define s_copy s_copy_f2c + #define s_paus s_paus_f2c + #define s_rdfe s_rdfe_f2c + #define s_rdue s_rdue_f2c + #define s_rnge s_rnge_f2c + #define s_rsfe s_rsfe_f2c + #define s_rsfi s_rsfi_f2c + #define s_rsle s_rsle_f2c + #define s_rsli s_rsli_f2c + #define s_rsne s_rsne_f2c + #define s_rsni s_rsni_f2c + #define s_rsue s_rsue_f2c + #define s_stop s_stop_f2c + #define s_wdfe s_wdfe_f2c + #define s_wdue s_wdue_f2c + #define s_wsfe s_wsfe_f2c + #define s_wsfi s_wsfi_f2c + #define s_wsle s_wsle_f2c + #define s_wsli s_wsli_f2c + #define s_wsne s_wsne_f2c + #define s_wsni s_wsni_f2c + #define s_wsue s_wsue_f2c + #define sig_die sig_die_f2c + #define signal_ signal__f2c + #define system_ system__f2c + #define t_getc t_getc_f2c + #define t_runc t_runc_f2c + #define w_ed w_ed_f2c + #define w_ned w_ned_f2c + #define wrt_E wrt_E_f2c + #define wrt_F wrt_F_f2c + #define wrt_L wrt_L_f2c + #define x_endp x_endp_f2c + #define x_getc x_getc_f2c + #define x_putc x_putc_f2c + #define x_rev x_rev_f2c + #define x_rsne x_rsne_f2c + #define x_wSL x_wSL_f2c + #define x_wsne x_wsne_f2c + #define xrd_SL xrd_SL_f2c + #define y_getc y_getc_f2c + #define y_rsk y_rsk_f2c + #define z_abs z_abs_f2c + #define z_cos z_cos_f2c + #define z_div z_div_f2c + #define z_exp z_exp_f2c + #define z_getc z_getc_f2c + #define z_log z_log_f2c + #define z_putc z_putc_f2c + #define z_rnew z_rnew_f2c + #define z_sin z_sin_f2c + #define z_sqrt z_sqrt_f2c + #define z_wnew z_wnew_f2c + + #define F2C_MANGLING_DONE + + #endif + + + #endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/fio.h b/Src/Celbody/SPICE/cspice/linux_x64/include/fio.h new file mode 100644 index 000000000..bb20dd2ca --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/fio.h @@ -0,0 +1,107 @@ +#include "stdio.h" +#include "errno.h" +#ifndef NULL +/* ANSI C */ +#include "stddef.h" +#endif + +#ifndef SEEK_SET +#define SEEK_SET 0 +#define SEEK_CUR 1 +#define SEEK_END 2 +#endif + +#ifdef MSDOS +#ifndef NON_UNIX_STDIO +#define NON_UNIX_STDIO +#endif +#endif + +#ifdef UIOLEN_int +typedef int uiolen; +#else +typedef long uiolen; +#endif + +/*units*/ +typedef struct +{ FILE *ufd; /*0=unconnected*/ + char *ufnm; +#ifndef MSDOS + long uinode; + int udev; +#endif + int url; /*0=sequential*/ + flag useek; /*true=can backspace, use dir, ...*/ + flag ufmt; + flag urw; /* (1 for can read) | (2 for can write) */ + flag ublnk; + flag uend; + flag uwrt; /*last io was write*/ + flag uscrtch; +} unit; + +extern flag f__init; +extern cilist *f__elist; /*active external io list*/ +extern flag f__reading,f__external,f__sequential,f__formatted; +#undef Void +#ifdef KR_headers +#define Void /*void*/ +extern int (*f__getn)(); /* for formatted input */ +extern void (*f__putn)(); /* for formatted output */ +extern void x_putc(); +extern long f__inode(); +extern VOID sig_die(); +extern int (*f__donewrec)(), t_putc(), x_wSL(); +extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); +#else +#define Void void +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__getn)(void); /* for formatted input */ +extern void (*f__putn)(int); /* for formatted output */ +extern void x_putc(int); +extern long f__inode(char*,int*); +extern void sig_die(char*,int); +extern void f__fatal(int,char*); +extern int t_runc(alist*); +extern int f__nowreading(unit*), f__nowwriting(unit*); +extern int fk_open(int,int,ftnint); +extern int en_fio(void); +extern void f_init(void); +extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); +extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); +extern int c_sfe(cilist*), z_rnew(void); +extern int isatty(int); +extern int err__fl(int,int,char*); +extern int xrd_SL(void); +extern int f__putbuf(int); +#ifdef __cplusplus + } +#endif +#endif +extern int (*f__doend)(Void); +extern FILE *f__cf; /*current file*/ +extern unit *f__curunit; /*current unit*/ +extern unit f__units[]; +#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);} +#define errfl(f,m,s) return err__fl((int)f,m,s) + +/*Table sizes*/ +#define MXUNIT 100 + +extern int f__recpos; /*position in current record*/ +extern int f__cursor; /* offset to move to */ +extern int f__hiwater; /* so TL doesn't confuse us */ + +#define WRITE 1 +#define READ 2 +#define SEQ 3 +#define DIR 4 +#define FMT 5 +#define UNF 6 +#define EXT 7 +#define INT 8 + +#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/fmt.h b/Src/Celbody/SPICE/cspice/linux_x64/include/fmt.h new file mode 100644 index 000000000..19065a2f0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/fmt.h @@ -0,0 +1,100 @@ +struct syl +{ int op; + int p1; + union { int i[2]; char *s;} p2; + }; +#define RET1 1 +#define REVERT 2 +#define GOTO 3 +#define X 4 +#define SLASH 5 +#define STACK 6 +#define I 7 +#define ED 8 +#define NED 9 +#define IM 10 +#define APOS 11 +#define H 12 +#define TL 13 +#define TR 14 +#define T 15 +#define COLON 16 +#define S 17 +#define SP 18 +#define SS 19 +#define P 20 +#define BN 21 +#define BZ 22 +#define F 23 +#define E 24 +#define EE 25 +#define D 26 +#define G 27 +#define GE 28 +#define L 29 +#define A 30 +#define AW 31 +#define O 32 +#define NONL 33 +#define OM 34 +#define Z 35 +#define ZM 36 +extern int f__pc,f__parenlvl,f__revloc; +typedef union +{ real pf; + doublereal pd; +} ufloat; +typedef union +{ short is; +#ifndef KR_headers + signed +#endif + char ic; + integer il; +#ifdef Allow_TYQUAD + longint ili; +#endif +} Uint; +#ifdef KR_headers +extern int (*f__doed)(),(*f__doned)(); +extern int (*f__dorevert)(); +extern int rd_ed(),rd_ned(); +extern int w_ed(),w_ned(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); +extern int (*f__dorevert)(void); +extern void fmt_bg(void); +extern int pars_f(char*); +extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); +extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); +extern int wrt_E(ufloat*, int, int, int, ftnlen); +extern int wrt_F(ufloat*, int, int, ftnlen); +extern int wrt_L(Uint*, int, ftnlen); +#ifdef __cplusplus + } +#endif +#endif +extern flag f__cblank,f__cplus,f__workdone, f__nonl; +extern char *f__fmtbuf; +extern int f__scale; +#define GET(x) if((x=(*f__getn)())<0) return(x) +#define VAL(x) (x!='\n'?x:' ') +#define PUT(x) (*f__putn)(x) +extern int f__cursor; + +#undef TYQUAD +#ifndef Allow_TYQUAD +#undef longint +#define longint long +#else +#define TYQUAD 14 +#endif + +#ifdef KR_headers +extern char *f__icvt(); +#else +extern char *f__icvt(longint, int*, int*, int); +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/fp.h b/Src/Celbody/SPICE/cspice/linux_x64/include/fp.h new file mode 100644 index 000000000..40743d79f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/fp.h @@ -0,0 +1,28 @@ +#define FMAX 40 +#define EXPMAXDIGS 8 +#define EXPMAX 99999999 +/* FMAX = max number of nonzero digits passed to atof() */ +/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ + +#ifdef V10 /* Research Tenth-Edition Unix */ +#include "local.h" +#endif + +/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily + tight) on the maximum number of digits to the right and left of + * the decimal point. + */ + +#ifdef VAX +#define MAXFRACDIGS 56 +#define MAXINTDIGS 38 +#else +#ifdef CRAY +#define MAXFRACDIGS 9880 +#define MAXINTDIGS 9864 +#else +/* values that suffice for IEEE double */ +#define MAXFRACDIGS 344 +#define MAXINTDIGS 308 +#endif +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/lio.h b/Src/Celbody/SPICE/cspice/linux_x64/include/lio.h new file mode 100644 index 000000000..012317206 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/lio.h @@ -0,0 +1,74 @@ +/* copy of ftypes from the compiler */ +/* variable types + * numeric assumptions: + * int < reals < complexes + * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX + */ + +/* 0-10 retain their old (pre LOGICAL*1, etc.) */ +/* values to allow mixing old and new objects. */ + +#define TYUNKNOWN 0 +#define TYADDR 1 +#define TYSHORT 2 +#define TYLONG 3 +#define TYREAL 4 +#define TYDREAL 5 +#define TYCOMPLEX 6 +#define TYDCOMPLEX 7 +#define TYLOGICAL 8 +#define TYCHAR 9 +#define TYSUBR 10 +#define TYINT1 11 +#define TYLOGICAL1 12 +#define TYLOGICAL2 13 +#ifdef Allow_TYQUAD +#undef TYQUAD +#define TYQUAD 14 +#endif + +#define LINTW 24 +#define LINE 80 +#define LLOGW 2 +#ifdef Old_list_output +#define LLOW 1.0 +#define LHIGH 1.e9 +#define LEFMT " %# .8E" +#define LFFMT " %# .9g" +#else +#define LGFMT "%.9G" +#endif +/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ +#define LEFBL 24 + +typedef union +{ + char flchar; + short flshort; + ftnint flint; +#ifdef Allow_TYQUAD + longint fllongint; +#endif + real flreal; + doublereal fldouble; +} flex; +extern int f__scale; +#ifdef KR_headers +extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); +extern int l_read(), l_write(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); +extern int l_write(ftnint*, char*, ftnlen, ftnint); +extern void x_wsne(cilist*); +extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); +extern int l_read(ftnint*,char*,ftnlen,ftnint); +extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); +extern int z_rnew(void); +#ifdef __cplusplus + } +#endif +#endif +extern ftnint L_len; diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/rawio.h b/Src/Celbody/SPICE/cspice/linux_x64/include/rawio.h new file mode 100644 index 000000000..fd36a4826 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/rawio.h @@ -0,0 +1,41 @@ +#ifndef KR_headers +#ifdef MSDOS +#include "io.h" +#ifndef WATCOM +#define close _close +#define creat _creat +#define open _open +#define read _read +#define write _write +#endif /*WATCOM*/ +#endif /*MSDOS*/ +#ifdef __cplusplus +extern "C" { +#endif +#ifndef MSDOS +#ifdef OPEN_DECL +extern int creat(const char*,int), open(const char*,int); +#endif +extern int close(int); +extern int read(int,void*,size_t), write(int,void*,size_t); +extern int unlink(const char*); +#ifndef _POSIX_SOURCE +#ifndef NON_UNIX_STDIO +extern FILE *fdopen(int, const char*); +#endif +#endif +#endif /*KR_HEADERS*/ + +extern char *mktemp(char*); + +#ifdef __cplusplus + } +#endif +#endif + +#include "fcntl.h" + +#ifndef O_WRONLY +#define O_RDONLY 0 +#define O_WRONLY 1 +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/signal1.h b/Src/Celbody/SPICE/cspice/linux_x64/include/signal1.h new file mode 100644 index 000000000..360d8d011 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/signal1.h @@ -0,0 +1,118 @@ +/* + +-Header_File signal1.h (CSPICE version of the f2c signal1.h header file) + +-Abstract + + Define macros associated with signal handling, customized for the + host environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines the macro signal1 referenced in main.c, + which is a generic main routine used in CSPICE executables that + link to code generated by f2c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 03-FEB-2000 release + are: + + ALPHA-DIGITAL-UNIX_C + HP_C + NEXT_C + PC-LINUX_C + PC-MS_C + SGI-IRIX-N32_C + SGI-IRIX-NO2_C + SUN-SOLARIS-GCC_C + SUN-SOLARIS-NATIVE_C + +-Version + + -CSPICE Version 1.0.0, 03-FEB-2000 (NJB) + +*/ + + + + +/* You may need to adjust the definition of signal1 to supply a */ +/* cast to the correct argument type. This detail is system- and */ +/* compiler-dependent. The #define below assumes signal.h declares */ +/* type SIG_PF for the signal function's second argument. */ + +#include + +#ifndef Sigret_t +#define Sigret_t void +#endif +#ifndef Sigarg_t +#ifdef KR_headers +#define Sigarg_t +#else +#ifdef __cplusplus +#define Sigarg_t ... +#else +#define Sigarg_t int +#endif +#endif +#endif /*Sigarg_t*/ + +#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ +#define sig_pf SIG_PF +#else +typedef Sigret_t (*sig_pf)(Sigarg_t); +#endif + +#define signal1(a,b) signal(a,(sig_pf)b) + +#ifdef __cplusplus +#define Sigarg ... +#define Use_Sigarg +#else +#define Sigarg Int n +#define Use_Sigarg n = n /* shut up compiler warning */ +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/zzalloc.h b/Src/Celbody/SPICE/cspice/linux_x64/include/zzalloc.h new file mode 100644 index 000000000..0c4a50b7a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/zzalloc.h @@ -0,0 +1,192 @@ +/* + +-Header_File zzalloc.h ( CSPICE memory allocation prototypes and macros ) + +-Abstract + + The memory allocation prototypes and macros for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CSPICE + +-Keywords + + MEMORY + +-Exceptions + + None. + +-Files + + None. + +-Particulars + + The routines maintain a count of the number of mallocs vs. free, + signalling an error if any unreleased memory exists at the end + of an Icy interface call. + + The macro ALLOC_CHECK performs malloc/free test. If used, the macro + should exists at the end of any routine using these memory management + routines. + + Prototypes in this file: + + alloc_count + alloc_SpiceString_C_array + alloc_SpiceString_C_Copy_array + alloc_SpiceDouble_C_array + alloc_SpiceInt_C_array + alloc_SpiceBoolean_C_array + alloc_SpiceString + alloc_SpiceString_Pointer_array + free_SpiceString_C_array + alloc_SpiceMemory + free_SpiceMemory + + Macro definitions in this file: + + ALLOC_CHECK + ALLOC_CHECK_INTRA + +-Examples + + None. + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.4.0, 27-JUL-2021 (EDW) (BVS) + + Added macro ALLOC_CHECK_INTRA. + + Added missing header sections. + + -CSPICE Version 1.3.0, 26-AUG-2016 (EDW) + + Added routine alloc_SpiceBoolean_C_array. + + -CSPICE Version 1.0.3, 02-MAY-2008 (EDW) + + Added alloc_count prototype. + + -CSPICE Version 1.0.2, 10-MAY-2007 (EDW) + + Minor edits to clarify 'size' in alloc_SpiceMemory as + size_t. + + -CSPICE Version 1.0.1, 23-JUN-2005 (EDW) + + Add prototype for alloc_SpiceString_Pointer_array, allocate + an array of pointers to SpiceChar. + + -CSPICE Version 1.0.0, 19-DEC-2003 (EDW) + + Initial release. + +*/ + +#ifndef ZZALLOC_H +#define ZZALLOC_H + + /* + Allocation call prototypes: + */ + int alloc_count (); + + SpiceChar ** alloc_SpiceString_C_array ( int string_length, + int string_count ); + + SpiceChar ** alloc_SpiceString_C_Copy_array ( int array_len , + int string_len, + SpiceChar ** array ); + + SpiceDouble * alloc_SpiceDouble_C_array ( int rows, + int cols ); + + SpiceInt * alloc_SpiceInt_C_array ( int rows, + int cols ); + + SpiceBoolean * alloc_SpiceBoolean_C_array ( int rows, + int cols ); + + SpiceChar * alloc_SpiceString ( int length ); + + SpiceChar ** alloc_SpiceString_Pointer_array( int array_len ); + + void free_SpiceString_C_array ( int dim, + SpiceChar ** array ); + + void * alloc_SpiceMemory ( size_t size ); + + void free_SpiceMemory ( void * ptr ); + + + /* + Simple macro to ensure a zero value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK if ( alloc_count() != 0 ) \ + { \ + setmsg_c ( "Malloc/Free count not zero at end of routine." \ + " Malloc count = #."); \ + errint_c ( "#", alloc_count() ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + + + /* + Simple macro to ensure an expected value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK_INTRA(n) if ( alloc_count() != n ) \ + { \ + setmsg_c ( "Malloc/Free count not expected value." \ + " Malloc count = #1, expected count = #2."); \ + errint_c ( "#1", alloc_count() ); \ + errint_c ( "#2", n ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x64/include/zzerror.h b/Src/Celbody/SPICE/cspice/linux_x64/include/zzerror.h new file mode 100644 index 000000000..3af69f2f4 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x64/include/zzerror.h @@ -0,0 +1,86 @@ +/* + +-Abstract + + The error control routine prototypes for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Particulars + + Routines prototyped in this file: + + zzerrorinit + zzerror + +-Examples + + See the examples section in zzerror() and zzerrorinit(). + +-Restrictions + + None. + +-Exceptions + + None. + +-Files + + None. + +-Author_and_Institution + + E. D. Wright (JPL) + +-Literature_References + + None. + +-Version + + -CSPICE 1.1.0 14-JAN-2013 (EDW) + + Added parameter: + + SCALAR_OP + + -CSPICE 1.0.0 17-OCT-2005 (EDW) + + Initial release. + +*/ + +#ifndef ZZERROR_H +#define ZZERROR_H + + const char * zzerror( long cnt ); + void zzerrorinit(); + + #define SCALAR_OP -1 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x64/lib/cspice.a b/Src/Celbody/SPICE/cspice/linux_x64/lib/cspice.a new file mode 100644 index 000000000..eea9a4f67 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/linux_x64/lib/cspice.a differ diff --git a/Src/Celbody/SPICE/cspice/linux_x64/lib/csupport.a b/Src/Celbody/SPICE/cspice/linux_x64/lib/csupport.a new file mode 100644 index 000000000..4e0511770 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/linux_x64/lib/csupport.a differ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCK.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCK.h new file mode 100644 index 000000000..894d4e9a6 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCK.h @@ -0,0 +1,155 @@ +/* + +-Header_File SpiceCK.h ( CSPICE CK definitions ) + +-Abstract + + Perform CSPICE definitions to support CK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE CK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceCK05Subtype Typedef for enum indicating the + mathematical representation used + in an CK type 05 segment. Possible + values and meanings are: + + C05TP0: + + Hermite interpolation, 8- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components. + + Quaternions are unitless. Quaternion + time derivatives have units of + 1/second. + + + C05TP1: + + Lagrange interpolation, 4- + element packets containing + + q0, q1, q2, q3, + + where q0, q1, q2, q3 represent + quaternion components. Quaternion + derivatives are obtained by + differentiating interpolating + polynomials. + + + C05TP2: + + Hermite interpolation, 14- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt, + av0, av1, av2, + dav0/dt, dav1/dt, dav2/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components, + av0, av1, av2 represent angular + velocity components, and + dav0/dt, dav1/dt, dav2/dt represent + angular acceleration components. + + + C05TP3: + + Lagrange interpolation, 7- + element packets containing + + q0, q1, q2, q3, + av0, av1, av2 + + where q0, q1, q2, q3 represent + quaternion components and + av0, av1, av2 represent angular + velocity components. + + + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 20-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_CK_H + + #define HAVE_SPICE_CK_H + + + + /* + CK type 05 subtype codes: + */ + + enum _SpiceCK05Subtype { C05TP0, C05TP1, C05TP2, C05TP3 }; + + + typedef enum _SpiceCK05Subtype SpiceCK05Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCel.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCel.h new file mode 100644 index 000000000..7b0537e9e --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceCel.h @@ -0,0 +1,441 @@ +/* + +-Header_File SpiceCel.h ( CSPICE Cell definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceCell data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CELLS + +-Particulars + + This header defines structures, macros, and enumerated types that + may be referenced in application code that calls CSPICE cell + functions. + + CSPICE cells are data structures that implement functionality + parallel to that of the cell abstract data type in SPICELIB. In + CSPICE, a cell is a C structure containing bookkeeping information, + including a pointer to an associated data array. + + For numeric data types, the data array is simply a SPICELIB-style + cell, including a valid control area. For character cells, the data + array has the same number of elements as the corresponding + SPICELIB-style cell, but the contents of the control area are not + maintained, and the data elements are null-terminated C-style + strings. + + CSPICE cells should be declared using the declaration macros + provided in this header file. See the table of macros below. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceCell Structure containing CSPICE cell metadata. + + The members are: + + dtype: Data type of cell: character, + integer, or double precision. + + dtype has type + SpiceCellDataType. + + length: For character cells, the + declared length of the + cell's string array. + + size: The maximum number of data + items that can be stored in + the cell's data array. + + card: The cell's "cardinality": the + number of data items currently + present in the cell. + + isSet: Boolean flag indicating whether + the cell is a CSPICE set. + Sets have no duplicate data + items, and their data items are + stored in increasing order. + + adjust: Boolean flag indicating whether + the cell's data area has + adjustable size. Adjustable + size cell data areas are not + currently implemented. + + init: Boolean flag indicating whether + the cell has been initialized. + + base: is a void pointer to the + associated data array. base + points to the start of the + control area of this array. + + data: is a void pointer to the + first data slot in the + associated data array. This + slot is the element following + the control area. + + + ConstSpiceCell A const SpiceCell. + + + + + Declaration Macros + ================== + + Name Description + ---- ---------- + + SPICECHAR_CELL ( name, size, length ) Declare a + character CSPICE + cell having cell + name name, + maximum cell + cardinality size, + and string length + length. The + macro declares + both the cell and + the associated + data array. The + name of the data + array begins with + "SPICE_". + + + SPICEDOUBLE_CELL ( name, size ) Like SPICECHAR_CELL, + but declares a + double precision + cell. + + + SPICEINT_CELL ( name, size ) Like + SPICECHAR_CELL, + but declares an + integer cell. + + Assignment Macros + ================= + + Name Description + ---- ---------- + SPICE_CELL_SET_C( item, i, cell ) Assign the ith + element of a + character cell. + Arguments cell + and item are + pointers. + + SPICE_CELL_SET_D( item, i, cell ) Assign the ith + element of a + double precision + cell. Argument + cell is a + pointer. + + SPICE_CELL_SET_I( item, i, cell ) Assign the ith + element of an + integer cell. + Argument cell is + a pointer. + + + Fetch Macros + ============== + + Name Description + ---- ---------- + SPICE_CELL_GET_C( cell, i, lenout, item ) Fetch the ith + element from a + character cell. + Arguments cell + and item are + pointers. + Argument lenout + is the available + space in item. + + SPICE_CELL_GET_D( cell, i, item ) Fetch the ith + element from a + double precision + cell. Arguments + cell and item are + pointers. + + SPICE_CELL_GET_I( cell, i, item ) Fetch the ith + element from an + integer cell. + Arguments cell + and item are + pointers. + Element Pointer Macros + ====================== + + Name Description + ---- ---------- + SPICE_CELL_ELEM_C( cell, i ) Macro evaluates + to a SpiceChar + pointer to the + ith data element + of a character + cell. Argument + cell is a + pointer. + + SPICE_CELL_ELEM_D( cell, i ) Macro evaluates + to a SpiceDouble + pointer to the + ith data element + of a double + precision cell. + Argument cell is + a pointer. + + SPICE_CELL_ELEM_I( cell, i ) Macro evaluates + to a SpiceInt + pointer to the + ith data element + of an integer + cell. Argument + cell is a + pointer. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 22-AUG-2002 (NJB) + +*/ +#ifndef HAVE_SPICE_CELLS_H + + #define HAVE_SPICE_CELLS_H + + + /* + Data type codes: + */ + typedef enum _SpiceDataType SpiceCellDataType; + + + /* + Cell structure: + */ + struct _SpiceCell + + { SpiceCellDataType dtype; + SpiceInt length; + SpiceInt size; + SpiceInt card; + SpiceBoolean isSet; + SpiceBoolean adjust; + SpiceBoolean init; + void * base; + void * data; }; + + typedef struct _SpiceCell SpiceCell; + + typedef const SpiceCell ConstSpiceCell; + + + /* + SpiceCell control area size: + */ + #define SPICE_CELL_CTRLSZ 6 + + + /* + Declaration macros: + */ + + #define SPICECHAR_CELL( name, size, length ) \ + \ + static SpiceChar SPICE_CELL_##name[SPICE_CELL_CTRLSZ + size][length]; \ + \ + static SpiceCell name = \ + \ + { SPICE_CHR, \ + length, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEDOUBLE_CELL( name, size ) \ + \ + static SpiceDouble SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_DP, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEINT_CELL( name, size ) \ + \ + static SpiceInt SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_INT, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + /* + Access macros for individual elements: + */ + + /* + Data element pointer macros: + */ + + #define SPICE_CELL_ELEM_C( cell, i ) \ + \ + ( ( (SpiceChar *) (cell)->data ) + (i)*( (cell)->length ) ) + + + #define SPICE_CELL_ELEM_D( cell, i ) \ + \ + ( ( (SpiceDouble *) (cell)->data )[(i)] ) + + + #define SPICE_CELL_ELEM_I( cell, i ) \ + \ + ( ( (SpiceInt *) (cell)->data )[(i)] ) + + + /* + "Fetch" macros: + */ + + #define SPICE_CELL_GET_C( cell, i, lenout, item ) \ + \ + { \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( (cell)->length, 0, (lenout-1) ) \ + * sizeof ( SpiceChar ); \ + \ + memmove ( (item), SPICE_CELL_ELEM_C((cell), (i)), nBytes ); \ + \ + item[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_GET_D( cell, i, item ) \ + \ + ( (*item) = ( (SpiceDouble *) (cell)->data)[i] ) + + + #define SPICE_CELL_GET_I( cell, i, item ) \ + \ + ( (*item) = ( (SpiceInt *) (cell)->data)[i] ) + + + /* + Assignment macros: + */ + + #define SPICE_CELL_SET_C( item, i, cell ) \ + \ + { \ + SpiceChar * sPtr; \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( strlen(item), 0, (cell)->length - 1 ) \ + * sizeof ( SpiceChar ); \ + \ + sPtr = SPICE_CELL_ELEM_C((cell), (i)); \ + \ + memmove ( sPtr, (item), nBytes ); \ + \ + sPtr[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_SET_D( item, i, cell ) \ + \ + ( ( (SpiceDouble *) (cell)->data)[i] = (item) ) + + + #define SPICE_CELL_SET_I( item, i, cell ) \ + \ + ( ( (SpiceInt *) (cell)->data)[i] = (item) ) + + + /* + The enum SpiceTransDir is used to indicate language translation + direction: C to Fortran or vice versa. + */ + enum _SpiceTransDir { C2F = 0, F2C = 1 }; + + typedef enum _SpiceTransDir SpiceTransDir; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDAS.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDAS.h new file mode 100644 index 000000000..72e928755 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDAS.h @@ -0,0 +1,116 @@ + +/* + +-Header_File SpiceDAS.h ( CSPICE DAS-specific definitions ) + +-Abstract + + Perform CSPICE DAS-specific definitions, including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DAS + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE DAS functions. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_DAS_FTSIZE is the maximum number of DAS files that can be + open at any one time. + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that + require a data type specifier. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 07-APR-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_DAS_H + + #define HAVE_SPICE_DAS_H + + + /* + Constants + */ + + + /* + Fortran maximum number of DAS files that can be open at any one time: + */ + #define SPICE_DAS_FTSIZE 5000 + + + /* + DAS data type specifiers used in all DAS routines that require + a data type either as input or to extract data from an output + array. + + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that require a + data type specifier. + */ + #define SPICE_DAS_CHARDT 0 + #define SPICE_DAS_DPDT 1 + #define SPICE_DAS_INTDT 2 + + +#endif + +/* +End of header file SpiceDAS.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDLA.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDLA.h new file mode 100644 index 000000000..c429850dc --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDLA.h @@ -0,0 +1,345 @@ +/* + +-Header_File SpiceDLA.h ( CSPICE DLA-specific definitions ) + +-Abstract + + Perform CSPICE DLA-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DLA functions. + + + Macros + ====== + + Dimensions + ---------- + + Name Description + ---- ----------- + SPICE_DLA_DSCSIZ Size of a SPICELIB DLA descriptor, + measured in multiples of the size of a + SpiceInt. A DLA descriptor `DLADescr' + can be declared + + SpiceInt DLADescr [SPICE_DLA_DSCSIZ]; + + This parameter is provided for + compatibility with f2c'd SPICELIB + interfaces; CSPICE wrappers should pass + DLA descriptors via pointers to the + SpiceDLADescr structure defined below. + + + DLA File Offsets + ---------------- + + These parameters are provided to support CSPICE wrapper testing. + + Name Description + ---- ----------- + SPICE_DLA_VERIDX DAS integer address of DLA version code. + + SPICE_DLA_LLBIDX DAS integer addresses of first segment linked + list pointer. + + SPICE_DLA_LLEIDX DAS integer addresses of last segment linked + list pointer. + + + Structure Offsets + ------------------------- + + These parameters are provided to support CSPICE wrapper + implementation. + + + Name Description + ---- ----------- + SPICE_DLA_BWDIDX Backward pointer index in a DLA + descriptor. + + SPICE_DLA_FWDIDX Forward pointer index in a DLA + descriptor. + + SPICE_DLA_IBSIDX Integer base address index in a + DLA descriptor. + + SPICE_DLA_ISZIDX Integer component size index in a + DLA descriptor. + + SPICE_DLA_DBSIDX D.p. base address index in a DLA + descriptor. + + SPICE_DLA_DSZIDX D.p. component size index in a + DLA descriptor. + + SPICE_DLA_CBSIDX Character base address index in a + DLA descriptor. + + SPICE_DLA_CSZIDX Character component size index in a + DLA descriptor. + + + Other DLA parameters + -------------------- + + Name Description + ---- ----------- + SPICE_DLA_NULPTR Null pointer parameter. + + SPICE_DLA_FMTVER DLA format version. + + + Structures + ========== + + DLA API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDLADescr DLA descriptor. + + Note: the "base addresses" described + below are the *predecessors* of the + first addresses occupied by the + respective components of each data type. + + The structure members are: + + bwdptr: backward pointer. Data + type is SpiceInt. + + fwdptr: forward pointer. Data + type is SpiceInt. + + ibase: base DAS address of the + integer component of a + DLA segment. + + isize: number of elements in the + integer component of a + DLA segment. + + dbase: base DAS address of + double precision + component of a DLA + segment. + + dsize: number of elements in the + double precision + component of a DLA + segment. + + cbase: base DAS address of + character component of a + DLA segment. + + csize: number of elements in the + character component of a + DLA segment. + + + + ConstSpiceDLADescr A constant DLA descriptor. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 24-SEP-2021 (JDR) + + Added DLA File Offsets and Other DLA parameters, required for CSPICE + wrappers' testing. + + -CSPICE Version 1.1.0, 21-JAN-2016 (NJB) + + Updated to remove + + f2c_proto.h + dla_proto.h + + The prototypes declared in these headers have been moved + to the files + + SpiceZfc.h + SpiceZpr.h + + -DSKLIB_C Version 1.0.1, 12-FEB-2010 (NJB) + + Updated to include + + f2c_proto.h + dla_proto.h + + + -DSKLIB_C Version 1.0.1, 09-FEB-2007 (NJB) + + Comments were corrected: names of structure members bwdptr and + fwdptr in the comments now match the names used in the structure + definition. + + -DSKLIB_C Version 1.0.0, 26-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DLA_H + + #define HAVE_SPICE_DLA_H + + + + /* + DAS integer address of DLA version code. + */ + #define SPICE_DLA_VERIDX 1 + + /* + Linked list parameters + + Logical arrays (aka "segments") in a DAS linked array (DLA) file + are organized as a doubly linked list. Each logical array may + actually consist of character, double precision, and integer + components. A component of a given data type occupies a + contiguous range of DAS addresses of that type. Any or all + array components may be empty. + + The segment descriptors in a SPICE DLA (DAS linked array) file + are connected by a doubly linked list. Each node of the list is + represented by a pair of integers acting as forward and backward + pointers. Each pointer pair occupies the first two integers of a + segment descriptor in DAS integer address space. The DLA file + contains pointers to the first integers of both the first and + last segment descriptors. + + At the DLA level of a file format implementation, there is + no knowledge of the data contents. Hence segment descriptors + provide information only about file layout (in contrast with + the DAF system). Metadata giving specifics of segment contents + are stored within the segments themselves in DLA-based file + formats. + + + Parameter declarations follow. + + DAS integer addresses of first and last segment linked list + pointer pairs. The contents of these pointers + are the DAS addresses of the first integers belonging + to the first and last link pairs, respectively. + + The acronyms "LLB" and "LLE" denote "linked list begin" + and "linked list end" respectively. + */ + #define SPICE_DLA_LLBIDX SPICE_DLA_VERIDX + 1 + #define SPICE_DLA_LLEIDX SPICE_DLA_LLBIDX + 1 + + /* + Null pointer parameter. + */ + #define SPICE_DLA_NULPTR -1 + + + /* + DLA descriptor dimension: + */ + #define SPICE_DLA_DSCSIZ 8 + + /* + DLA descriptor index parameters: + */ + #define SPICE_DLA_BWDIDX 0 + #define SPICE_DLA_FWDIDX 1 + #define SPICE_DLA_IBSIDX 2 + #define SPICE_DLA_ISZIDX 3 + #define SPICE_DLA_DBSIDX 4 + #define SPICE_DLA_DSZIDX 5 + #define SPICE_DLA_CBSIDX 6 + #define SPICE_DLA_CSZIDX 7 + + + + /* + Structures + */ + + /* + DLA segment descriptor: + */ + struct _SpiceDLADescr + + { SpiceInt bwdptr; + SpiceInt fwdptr; + SpiceInt ibase; + SpiceInt isize; + SpiceInt dbase; + SpiceInt dsize; + SpiceInt cbase; + SpiceInt csize; }; + + typedef struct _SpiceDLADescr SpiceDLADescr; + + /* + Constant DLA segment descriptor: + */ + typedef const SpiceDLADescr ConstSpiceDLADescr; + + + /* + Other DLA parameters: + + + DLA format version. (This number is expected to occur very + rarely at integer address SPICE_DLA_VERIDX in uninitialized DLA files.) + */ + #define SPICE_DLA_FMTVER 1000000 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDSK.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDSK.h new file mode 100644 index 000000000..c6d95d087 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDSK.h @@ -0,0 +1,903 @@ +/* + +-Header_File SpiceDSK.h ( CSPICE DSK-specific definitions ) + +-Abstract + + Perform CSPICE DSK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DSK functions. + + + General definitions + =================== + + Macros + ====== + + + Dimensions + ---------- + + Name Description + ---- ----------- + + SPICE_DSK_DSCSIZ Size of a Fortran DSK descriptor, + measured in multiples of the size of a + SpiceDouble. A array `descr' containing + such a descriptor can be declared + + SpiceDouble descr[SPICE_DSK_DSCSIZ]; + + Such arrays normally should be used only + in the implementations of CSPICE + wrappers. + + + Data class values + ----------------- + + Name Description + ---- ----------- + + SPICE_DSK_SVFCLS (Class 1) indicates a surface + that can be represented as a single-valued + function of its domain coordinates. + + An example is a surface defined by a + function that maps each planetodetic + longitude and latitude pair to a unique + altitude. + + SPICE_DSK_GENCLS (Class 2) indicates a general surface. + Surfaces that have multiple points for a + given pair of domain coordinates---for + example, multiple radii for a given + latitude and longitude---belong to class + 2. + + + Coordinate system values + ------------------------ + + Name Description + ---- ----------- + + SPICE_DSK_LATSYS Code 1 refers to the planetocentric + latitudinal system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is latitude. The + third coordinate is radius. + + + SPICE_DSK_CYLSYS Code 2 refers to the cylindrical system. + + In this system, the first tangential + coordinate is radius and the second + tangential coordinate is longitude. The + third, orthogonal coordinate is Z. + + + SPICE_DSK_RECSYS Code 3 refers to the rectangular system. + + In this system, the first tangential + coordinate is X and the second + tangential coordinate is Y. The third, + orthogonal coordinate is Z. + + + SPICE_DSK_PDTSYS Code 4 refers to the + planetodetic/geodetic system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is planetodectic + latitude. The third, orthogonal + coordinate is altitude. + + + Structures + ========== + + + DSK API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDSKDescr DSK descriptor. + + The structure members are: + + surfce: Surface ID code. Data + type is SpiceInt. + + center: Center ID code. Data + type is SpiceInt. + + dclass: Data class ID code. Data + type is SpiceInt. + + dtype: DSK Data type. Data + type is SpiceInt. + + frmcde: Reference frame ID code. Data + type is SpiceInt. + + corsys: Coordinate system ID code. Data + type is SpiceInt. + + corpar: Coordinate system parameters. + Data type is SpiceDouble. This + is an array of length 10. + + co1min: Minimum value of first + coordinate. Data type is + SpiceDouble. + + co1max: Maximum value of first + coordinate. Data type is + SpiceDouble. + + co2min: Minimum value of second + coordinate. Data type is + SpiceDouble. + + co2max: Maximum value of second + coordinate. Data type is + SpiceDouble. + + co3min: Minimum value of third + coordinate. Data type is + SpiceDouble. + + co3max: Maximum value of third + coordinate. Data type is + SpiceDouble. + + start: Coverage start time, expressed + as seconds past J2000 TDB. + + stop: Coverage stop time, expressed + as seconds past J2000 TDB. + + + + ConstSpiceDSKDescr A constant DSK descriptor. + + + + + + Type 2 definitions + ================== + + + Type 2 Macros + ============= + + + Limits on plate model capacity + ------------------------------ + + This section contains parameter descriptions. See declarations + located near the end of the file for parameter values. + + The maximum number of vertices and plates in a single-segment + type 2 plate model are provided here. Larger models must be + distributed across multiple segments, which typically are in + separate files. + + These values can be used to dimension arrays, or to use as limit + checks. + + The value of SPICE_DSK02_MAXPLT is determined from + SPICE_DSK02_MAXVRT via Euler's Formula for simple polyhedra having + triangular faces. + + + Name Description + ---- ----------- + + SPICE_DSK02_MAXVRT Maximum number of vertices the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXPLT Maximum number of plates the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXCGR Maximum number of elements permitted + in the coarse voxel grid. This parameter + is not used directly in CSPICE; rather + it is a convenience parameter that mirrors + the parameter MAXCGR declared in the + SPICELIB INCLUDE file + + dsk02.inc + + + SPICE_DSK02_MAXVXP Maximum size of voxel-plate pointer array. + + + SPICE_DSK02_MXNVLS Maximum size of voxel-plate association list. + + + SPICE_DSK02_MAXCEL Maximum size of spatial index cell workspace. + + + SPICE_DSK02_SPAISZ Maximum size of array containing + integer component of spatial index. + This size is used by MKDSK. Many + applications may be able to use + smaller dimensions than the value + specified by this parameter. + + SPICE_DSK02_SPADSZ Size of double precision component + of spatial index. + + + Integer keyword parameters + -------------------------- + + The following parameters may be passed to dski02_c to identify + type 2 DSK shape model SpiceInt type data or model parameters to + be returned. + + + Name Description + ---- ---------- + + SPICE_DSK02_KWNV Number of vertices in model. + + SPICE_DSK02_KWNP Number of plates in model. + + SPICE_DSK02_KWNVXT Total number of voxels in fine grid. + + SPICE_DSK02_KWVGRX Voxel grid extent. This extent is + an array of three integers + indicating the number of voxels in + the X, Y, and Z directions in the + fine voxel grid. + + SPICE_DSK02_KWCGSC Coarse voxel grid scale. The extent + of the fine voxel grid is related to + the extent of the coarse voxel grid + by this scale factor. + + SPICE_DSK02_KWVXPS Size of the voxel-to-plate pointer + list. + + SPICE_DSK02_KWVXLS Voxel-plate correspondence list size. + + SPICE_DSK02_KWVTLS Vertex-plate correspondence list + size. + + SPICE_DSK02_KWPLAT Plate array. For each plate, this + array contains the indices of the + plate's three vertices. The ordering + of the array members is: + + Plate 1 vertex index 1 + Plate 1 vertex index 2 + Plate 1 vertex index 3 + Plate 2 vertex index 1 + ... + + The vertex indices in this array start + at 1 and end at NV, the number of + vertices in the model. + + SPICE_DSK02_KWVXPT Voxel-plate pointer list. This list + contains pointers that map fine + voxels to lists of plates that + intersect those voxels. Note that + only fine voxels belonging to + non-empty coarse voxels are in the + domain of this mapping. + + SPICE_DSK02_KWVXPL Voxel-plate correspondence list. + This list contains lists of plates + that intersect fine voxels. (This + list is the data structure into + which the voxel-to-plate pointers + point.) This list can contain + empty lists. Plate IDs in this + list start at 1 and end at NP, + the number of plates in the model. + + SPICE_DSK02_KWVTPT Vertex-plate pointer list. This list + contains pointers that map vertices + to lists of plates to which those + vertices belong. + + Note that the size of this list is + always NV, the number of vertices. + Hence there's no need for a separate + keyword for the size of this list. + + SPICE_DSK02_KWVTPL Vertex-plate correspondence list. + This list contains, for each vertex, + the indices of the plates to which that + vertex belongs. Plate IDs in this list + start at 1 and end at NP, the number of + plates in the model. + + SPICE_DSK02_KWCGPT Coarse voxel grid pointers. This is + an array of pointers mapping coarse + voxels to lists of pointers in the + voxel-plate pointer list. Each + non-empty coarse voxel maps to a + list of pointers; every fine voxel + contained in a non-empty coarse voxel + has its own pointers. Grid elements + corresponding to empty coarse voxels + contain non-positive values. + + + Double precision keyword parameters + ----------------------------------- + + The following parameters may be passed to dskd02_c to identify + type 2 DSK shape model SpiceDouble type data or model parameters to + be returned. + + + SPICE_DSK02_KWDSC Array containing contents of Fortran + DSK descriptor of segment. Note + that DSK descriptors are not to be + confused with DLA descriptors, which + contain segment component base address + and size information. The dimension of + this array is SPICE_DSK_DSCSIZ. + + SPICE_DSK02_KWVTBD Vertex bounds. This is an array of + six values giving the minimum and + maximum values of each component of the + vertex set. + + SPICE_DSK02_KWVXOR Voxel grid origin. This is the location + of the voxel grid origin in the + body-fixed frame associated with the + target body. + + SPICE_DSK02_KWVXSZ Voxel size. DSK voxels are cubes; the + edge length of each cube is given by the + voxel size. This size applies to the + fine voxel grid. Units are km. + + SPICE_DSK02_KWVERT Vertex coordinates. + + + + + Type 4 definitions + ================== + + To be added post-N0066. + + + API-specific definitions + ======================== + + Parameters for dskxsi_c: + + SPICE_DSKXSI_DCSIZE Size of `dc' output array. + SPICE_DSKXSI_ICSIZE Size of `ic' output array. + + These sizes may be increased in a future version + of the CSPICE Toolkit. + + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 02-NOV-2016 (NJB) + + Removed type 4 macros. + + 21-MAR-2016 (NJB) + + Changed type 2 keyword parameter names to use the + substring DSK02 rather than DSK. + + 26-FEB-2016 (NJB) + + Added parameter declarations for type 2 spatial index. Added + parameter declaration for data class 2. Renamed parameter + SPICE_DSK_MAXCGR to SPICE_DSK02_MAXCGR. Added parameter + declarations for the API dskxsi_c. Removed include statement + for SpiceDLA.h. Made miscellaneous updates to comments. + + DSKLIB_C 02-MAY-2014 (NJB) + + Added include guards for + + SpiceZdf.h + SpiceDLA.h + + Removed reference to + + dsk_proto.h + + Last update was 13-NOV-2012 (NJB) + + Updated to support DSK type 4. The SpiceDSKDescr type and + supporting definitions have been added. The file has been + reorganized so as to group together data type-specific + definitions. + + DSKLIB_C Version 3.0.0, 13-MAY-2010 (NJB) + + Updated for compatibility with new DSK type 2 segment + design. + + DSKLIB_C Version 2.0.0, 12-FEB-2010 (NJB) + + Updated to include + + SpiceDLA.h + f2c_proto.h + dsk_proto.h + + DSKLIB_C Version 1.0.0, 30-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DSK_H + + #define HAVE_SPICE_DSK_H + + /* + Prototypes + */ + #ifndef HAVE_SPICEDEFS_H + #include "SpiceZdf.h" + #endif + + + /* + General Constants + */ + + + /* + Dimension parameters + */ + + /* + Size of a SPICELIB DSK descriptor (in units of d.p. numbers): + */ + #define SPICE_DSK_DSCSIZ 24 + + /* + Number of coordinate system parameters in DSK descriptor: + */ + #define SPICE_DSK_NSYPAR 10 + + + /* + Index parameters + */ + /* + Fortran DSK descriptor index parameters: + */ + #define SPICE_DSK_SRFIDX 0 + #define SPICE_DSK_CTRIDX 1 + #define SPICE_DSK_CLSIDX 2 + #define SPICE_DSK_TYPIDX 3 + #define SPICE_DSK_FRMIDX 4 + #define SPICE_DSK_SYSIDX 5 + #define SPICE_DSK_PARIDX 6 + + /* + The offset between the indices immediately above and below + is given by the parameter SPICE_DSK_NSYPAR. Literal values + are used below for convenience of the reader. + */ + #define SPICE_DSK_MN1IDX 16 + #define SPICE_DSK_MX1IDX 17 + #define SPICE_DSK_MN2IDX 18 + #define SPICE_DSK_MX2IDX 19 + #define SPICE_DSK_MN3IDX 20 + #define SPICE_DSK_MX3IDX 21 + #define SPICE_DSK_BTMIDX 22 + #define SPICE_DSK_ETMIDX 23 + + + + + /* + Data class parameters + */ + + /* + Single-valued surface data class + */ + #define SPICE_DSK_SVFCLS 1 + + /* + General surface data class + */ + #define SPICE_DSK_GENCLS 2 + + + /* + Coordinate system parameters + */ + + /* + Latitudinal coordinate system + */ + #define SPICE_DSK_LATSYS 1 + + /* + Cylindrical coordinate system + */ + #define SPICE_DSK_CYLSYS 2 + + /* + Rectangular coordinate system + */ + #define SPICE_DSK_RECSYS 3 + + /* + Planetodetic coordinate system + */ + #define SPICE_DSK_PDTSYS 4 + + + /* + Structures + */ + + /* + DSK segment descriptor: + */ + struct _SpiceDSKDescr + + { SpiceInt surfce; + SpiceInt center; + SpiceInt dclass; + SpiceInt dtype; + SpiceInt frmcde; + SpiceInt corsys; + SpiceDouble corpar [SPICE_DSK_NSYPAR]; + SpiceDouble co1min; + SpiceDouble co1max; + SpiceDouble co2min; + SpiceDouble co2max; + SpiceDouble co3min; + SpiceDouble co3max; + SpiceDouble start; + SpiceDouble stop; }; + + typedef struct _SpiceDSKDescr SpiceDSKDescr; + + /* + Constant DSK segment descriptor: + */ + typedef const SpiceDSKDescr ConstSpiceDSKDescr; + + + + + /* + + Type 2 definitions + ================== + + */ + + /* + Dimension parameters + */ + + /* + Maximum vertex count for single segment: + */ + #define SPICE_DSK02_MAXVRT 16000002 + + /* + Maximum plate count for single segment: + */ + #define SPICE_DSK02_MAXPLT ( 2 * (SPICE_DSK02_MAXVRT - 2 ) ) + + /* + The maximum allowed number of vertices, not taking into + account shared vertices. + + Note that this value is not sufficient to create a vertex-plate + mapping for a model of maximum plate count. + */ + #define SPICE_DSK02_MAXNPV ( 3 * (SPICE_DSK02_MAXPLT/2) + 1 ) + + /* + Maximum number of fine voxels. + */ + #define SPICE_DSK02_MAXVOX 100000000 + + /* + Maximum size of the coarse voxel grid array (in units of + integers): + */ + #define SPICE_DSK02_MAXCGR 100000 + + /* + Maximum allowed number of vertex or plate + neighbors a vertex may have. + */ + #define SPICE_DSK02_MAXEDG 120 + + + /* + DSK type 2 spatial index parameters + =================================== + + DSK type 2 spatial index integer component + ------------------------------------------ + + +-----------------+ + | VGREXT | (voxel grid extents, 3 integers) + +-----------------+ + | CGRSCL | (coarse voxel grid scale, 1 integer) + +-----------------+ + | VOXNPT | (size of voxel-plate pointer list) + +-----------------+ + | VOXNPL | (size of voxel-plate list) + +-----------------+ + | VTXNPL | (size of vertex-plate list) + +-----------------+ + | CGRPTR | (coarse grid occupancy pointers) + +-----------------+ + | VOXPTR | (voxel-plate pointer array) + +-----------------+ + | VOXPLT | (voxel-plate list) + +-----------------+ + | VTXPTR | (vertex-plate pointer array) + +-----------------+ + | VTXPLT | (vertex-plate list) + +-----------------+ + */ + + /* + Index parameters + */ + + /* + Grid extent index: + */ + #define SPICE_DSK02_SIVGRX 0 + + /* + Coarse grid scale index: + */ + #define SPICE_DSK02_SICGSC ( SPICE_DSK02_SIVGRX + 3 ) + + /* + Voxel pointer count index: + */ + #define SPICE_DSK02_SIVXNP ( SPICE_DSK02_SICGSC + 1 ) + + /* + Voxel-plate list count index: + */ + #define SPICE_DSK02_SIVXNL ( SPICE_DSK02_SIVXNP + 1 ) + + /* + Vertex-plate list count index: + */ + #define SPICE_DSK02_SIVTNL ( SPICE_DSK02_SIVXNL + 1 ) + + /* + Coarse grid pointer array index: + */ + #define SPICE_DSK02_SICGRD ( SPICE_DSK02_SIVTNL + 1 ) + + + /* + Spatial index integer component dimensions + */ + + /* + Size of fixed-size portion of integer component: + */ + #define SPICE_DSK02_IXIFIX ( SPICE_DSK02_MAXCGR + 7 ) + + + /* + + DSK type 2 spatial index double precision component + --------------------------------------------------- + + +-----------------+ + | Vertex bounds | 6 values (min/max for each component) + +-----------------+ + | Voxel origin | 3 elements + +-----------------+ + | Voxel size | 1 element + +-----------------+ + + */ + + + /* + Spatial index double precision indices + */ + + /* + Vertex bounds index: + */ + #define SPICE_DSK02_SIVTBD 0 + + /* + Voxel grid origin index: + */ + #define SPICE_DSK02_SIVXOR ( SPICE_DSK02_SIVTBD + 6 ) + + /* + Voxel size index: + */ + #define SPICE_DSK02_SIVXSZ ( SPICE_DSK02_SIVXOR + 3 ) + + + /* + Spatial index double precision component dimensions + */ + + /* + Size of fixed-size portion of double precision component: + */ + #define SPICE_DSK02_IXDFIX 10 + + /* + Size of double precision component. This is a convenience + parameter chosen to have a name consisent with the + integer spatial index size. + */ + #define SPICE_DSK02_SPADSZ SPICE_DSK02_IXDFIX + + /* + The limits below are used to define a suggested maximum + size for the integer component of the spatial index. + */ + + /* + Maximum number of entries in voxel-plate pointer array: + */ + #define SPICE_DSK02_MAXVXP ( SPICE_DSK02_MAXPLT /2 ) + + /* + Maximum cell size: + */ + #define SPICE_DSK02_MAXCEL 60000000 + + /* + Maximum number of entries in voxel-plate list: + */ + #define SPICE_DSK02_MXNVLS SPICE_DSK02_MAXCEL + \ + ( SPICE_DSK02_MAXVXP / 2 ) + + /* + Spatial index integer component size: + */ + #define SPICE_DSK02_SPAISZ ( SPICE_DSK02_IXIFIX + \ + SPICE_DSK02_MAXVXP + \ + SPICE_DSK02_MXNVLS + \ + SPICE_DSK02_MAXVRT + \ + SPICE_DSK02_MAXNPV ) + + + + + /* + Keyword parameters for SpiceInt data items: + */ + + /* + Index parameters + */ + #define SPICE_DSK02_KWNV 1 + #define SPICE_DSK02_KWNP (SPICE_DSK02_KWNV + 1) + #define SPICE_DSK02_KWNVXT (SPICE_DSK02_KWNP + 1) + #define SPICE_DSK02_KWVGRX (SPICE_DSK02_KWNVXT + 1) + #define SPICE_DSK02_KWCGSC (SPICE_DSK02_KWVGRX + 1) + #define SPICE_DSK02_KWVXPS (SPICE_DSK02_KWCGSC + 1) + #define SPICE_DSK02_KWVXLS (SPICE_DSK02_KWVXPS + 1) + #define SPICE_DSK02_KWVTLS (SPICE_DSK02_KWVXLS + 1) + #define SPICE_DSK02_KWPLAT (SPICE_DSK02_KWVTLS + 1) + #define SPICE_DSK02_KWVXPT (SPICE_DSK02_KWPLAT + 1) + #define SPICE_DSK02_KWVXPL (SPICE_DSK02_KWVXPT + 1) + #define SPICE_DSK02_KWVTPT (SPICE_DSK02_KWVXPL + 1) + #define SPICE_DSK02_KWVTPL (SPICE_DSK02_KWVTPT + 1) + #define SPICE_DSK02_KWCGPT (SPICE_DSK02_KWVTPL + 1) + + + /* + Keyword parameters for SpiceDouble data items: + */ + #define SPICE_DSK02_KWDSC (SPICE_DSK02_KWCGPT + 1) + #define SPICE_DSK02_KWVTBD (SPICE_DSK02_KWDSC + 1) + #define SPICE_DSK02_KWVXOR (SPICE_DSK02_KWVTBD + 1) + #define SPICE_DSK02_KWVXSZ (SPICE_DSK02_KWVXOR + 1) + #define SPICE_DSK02_KWVERT (SPICE_DSK02_KWVXSZ + 1) + + + /* + + Type 4 definitions + ================== + + These definitions should be treated as "SPICE private." They + may change in a future version of the SPICE Toolkit. They + should not be referenced by user applications. + + To be added post-N0066. + + */ + + + + /* + API-specific definitions + ======================== + + Parameters for dskxsi_c: + */ + #define SPICE_DSKXSI_DCSIZE 1 + #define SPICE_DSKXSI_ICSIZE 1 + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDtl.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDtl.h new file mode 100644 index 000000000..7b1018c52 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceDtl.h @@ -0,0 +1,251 @@ + +/* + +-Header_File SpiceDtl.h ( CSPICE DSK tolerance definitions ) + +-Abstract + + Define CSPICE DSK tolerance and margin macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DSK + +-Particulars + + This file contains declarations of tolerance and margin values + used by the DSK subsystem. + + The values declared in this file are accessible at run time + through the routines + + dskgtl_c {DSK, get tolerance value} + dskstl_c {DSK, set tolerance value} + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 27-FEB-2016 (NJB) + +*/ + + +#ifndef HAVE_SPICE_DSKTOL_H + + #define HAVE_SPICE_DSKTOL_H + + +/* + Parameter declarations + ====================== + + DSK type 2 plate expansion factor + --------------------------------- + + The factor SPICE_DSK_XFRACT is used to slightly expand plates + read from DSK type 2 segments in order to perform ray-plate + intercept computations. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + Plate expansion is done by computing the difference vectors + between a plate's vertices and the plate's centroid, scaling + those differences by (1 + SPICE_DSK_XFRACT), then producing new + vertices by adding the scaled differences to the centroid. This + process doesn't affect the stored DSK data. + + Plate expansion is also performed when surface points are mapped + to plates on which they lie, as is done for illumination angle + computations. + + This parameter is user-adjustable. + */ + #define SPICE_DSK_XFRACT ( 1.0e-10 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYXFR 1 + + + /* + Greedy segment selection factor + ------------------------------- + + The factor SGREED is used to slightly expand DSK segment + boundaries in order to select segments to consider for + ray-surface intercept computations. The effect of this factor is + to make the multi-segment intercept algorithm consider all + segments that are sufficiently close to the ray of interest, even + if the ray misses those segments. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + The exact way this parameter is used is dependent on the + coordinate system of the segment to which it applies, and the DSK + software implementation. This parameter may be changed in a + future version of SPICE. + */ + #define SPICE_DSK_SGREED ( 1.0e-8 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSGR ( SPICE_DSK_KEYXFR + 1 ) + + + /* + Segment pad margin + ------------------ + + The segment pad margin is a scale factor used to determine when a + point resulting from a ray-surface intercept computation, if + outside the segment's boundaries, is close enough to the segment + to be considered a valid result. + + This margin is required in order to make DSK segment padding + (surface data extending slightly beyond the segment's coordinate + boundaries) usable: if a ray intersects the pad surface outside + the segment boundaries; the pad is useless if the intercept is + automatically rejected. + + However, an excessively large value for this parameter is + detrimental, since a ray-surface intercept solution found "in" a + segment will supersede solutions in segments farther from the ray's + vertex. Solutions found outside of a segment thus can mask solutions + that are closer to the ray's vertex by as much as the value of this + margin, when applied to a segment's boundary dimensions. + */ + #define SPICE_DSK_SGPADM ( 1.0e-10 ) + + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSPM ( SPICE_DSK_KEYSGR + 1 ) + + + /* + Surface-point membership margin + ------------------------------- + + The surface-point membership margin limits the distance + between a point and a surface to which the point is + considered to belong. The margin is a scale factor applied + to the size of the segment containing the surface. + + This margin is used to map surface points to outward + normal vectors at those points. + + If this margin is set to an excessively small value, + routines that make use of the surface-point mapping won't + work properly. + */ + #define SPICE_DSK_PTMEMM ( 1.0e-7 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYPTM ( SPICE_DSK_KEYSPM + 1 ) + + + /* + Angular rounding margin + ----------------------- + + This margin specifies an amount by which angular values + may deviate from their proper ranges without a SPICE error + condition being signaled. + + For example, if an input latitude exceeds pi/2 radians by a + positive amount less than this margin, the value is treated as + though it were pi/2 radians. + + Units are radians. + */ + #define SPICE_DSK_ANGMRG ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYAMG ( SPICE_DSK_KEYPTM + 1 ) + + + /* + Longitude alias margin + ---------------------- + + This margin specifies an amount by which a longitude + value can be outside a given longitude range without + being considered eligible for transformation by + addition or subtraction of 2*pi radians. + + A longitude value, when compared to the endpoints of + a longitude interval, will be considered to be equal + to an endpoint if the value is outside the interval + differs from that endpoint by a magnitude less than + the alias margin. + + + Units are radians. + */ + #define SPICE_DSK_LONALI ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYLAL ( SPICE_DSK_KEYAMG + 1 ) + + + +#endif + +/* +End of header file SpiceDtl.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEK.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEK.h new file mode 100644 index 000000000..cbe213fb0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEK.h @@ -0,0 +1,448 @@ +/* + +-Header_File SpiceEK.h ( CSPICE EK-specific definitions ) + +-Abstract + + Perform CSPICE EK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls CSPICE + EK functions. + + + Macros + ====== + + General limits + -------------- + + Name Description + ---- ---------- + SPICE_EK_MXCLSG Maximum number of columns per segment. + + SPICE_EK_TYPLEN Maximum length of a short string + indicating a data type (one of + {"CHR", "DP", "INT", "TIME"}). Such + strings are returned by some of the + Fortran SPICELIB EK routines, hence also + by their f2c'd counterparts. + + Sizes of EK objects + ------------------- + + Name Description + ---- ---------- + + SPICE_EK_CNAMSZ Maximum length of column name. + SPICE_EK_CSTRLN Length of string required to hold column + name. + SPICE_EK_TNAMSZ Maximum length of table name. + SPICE_EK_TSTRLN Length of string required to hold table + name. + + + Query-related limits + -------------------- + + Name Description + ---- ---------- + + SPICE_EK_MAXQRY Maximum length of an input query. This + value is currently equivalent to + twenty-five 80-character lines. + + SPICE_EK_MAXQSEL Maximum number of columns that may be + listed in the `SELECT clause' of a query. + + SPICE_EK_MAXQTAB Maximum number of tables that may be + listed in the `FROM clause' of a query. + + SPICE_EK_MAXQCON Maximum number of relational expressions + that may be listed in the `constraint + clause' of a query. + + This limit applies to a query when it is + represented in `normalized form': that + is, the constraints have been expressed + as a disjunction of conjunctions of + relational expressions. The number of + relational expressions in a query that + has been expanded in this fashion may be + greater than the number of relations in + the query as orginally written. For + example, the expression + + ( ( A LT 1 ) OR ( B GT 2 ) ) + AND + ( ( C NE 3 ) OR ( D EQ 4 ) ) + + which contains 4 relational expressions, + expands to the equivalent normalized + constraint + + ( ( A LT 1 ) AND ( C NE 3 ) ) + OR + ( ( A LT 1 ) AND ( D EQ 4 ) ) + OR + ( ( B GT 2 ) AND ( C NE 3 ) ) + OR + ( ( B GT 2 ) AND ( D EQ 4 ) ) + + which contains eight relational + expressions. + + + + SPICE_EK_MAXQJOIN Maximum number of tables that can be + joined. + + SPICE_EK_MAXQJCON Maximum number of join constraints + allowed. + + SPICE_EK_MAXQORD Maximum number of columns that may be + used in the `order-by clause' of a query. + + SPICE_EK_MAXQTOK Maximum number of tokens in a query. + Tokens + are reserved words, column names, + parentheses, and values. Literal strings + and time values count as single tokens. + + SPICE_EK_MAXQNUM Maximum number of numeric tokens in a + query. + + SPICE_EK_MAXQCLN Maximum total length of character tokens + in a query. + + SPICE_EK_MAXQSTR Maximum length of literal string values + allowed in queries. + + + Codes + ----- + + Name Description + ---- ---------- + + SPICE_EK_VARSIZ Code used to indicate variable-size + objects. Usually this is used in a + context where a non-negative integer + indicates the size of a fixed-size object + and the presence of this code indicates a + variable-size object. + + The value of this constant must match the + parameter IFALSE used in the Fortran + library SPICELIB. + + + Enumerated Types + ================ + + Enumerated code values + ---------------------- + + Name Description + ---- ---------- + SpiceEKDataType Codes for data types used in the EK + interface: character, double precision, + integer, and "time." + + The values are: + + { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3 } + + + + SpiceEKExprClass Codes for types of expressions that may + appear in the SELECT clause of EK + queries. Values and meanings are: + + + SPICE_EK_EXP_COL Selected item was a + column. The column + may qualified by a + table name. + + SPICE_EK_EXP_FUNC Selected item was + a simple function + invocation of the + form + + F ( ) + + or else was + + COUNT(*) + + SPICE_EK_EXP_EXPR Selected item was a + more general + expression than + those shown above. + + + Numeric values are: + + { SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 } + + + Structures + ========== + + EK API structures + ----------------- + + Name Description + ---- ---------- + + SpiceEKAttDsc EK column attribute descriptor. Note + that this object is distinct from the EK + column descriptors used internally in + the EK routines; those descriptors + contain pointers as well as attribute + information. + + The members are: + + cclass: Column class code. + + dtype: Data type code: has type + SpiceEKDataType. + + strlen: String length. Applies to + SPICE_CHR type. Value is + SPICE_EK_VARSIZ for + variable-length strings. + + size: Column entry size; this is + the number of array + elements in a column + entry. The value is + SPICE_EK_VARSIZ for + variable-size columns. + + indexd: Index flag; value is + SPICETRUE if the column is + indexed, SPICEFALSE + otherwise. + + nullok: Null flag; value is + SPICETRUE if the column + may contain null values, + SPICEFALSE otherwise. + + + + SpiceEKSegSum EK segment summary. This structure + contains user interface level descriptive + information. The structure contains the + following members: + + tabnam The name of the table to + which the segment belongs. + + nrows The number of rows in the + segment. + + ncols The number of columns in + the segment. + + cnames An array of names of + columns in the segment. + Column names may contain + as many as SPICE_EK_CNAMSZ + characters. The array + contains room for + SPICE_EK_MXCLSG column + names. + + cdescrs An array of column + attribute descriptors of + type SpiceEKAttDsc. + The array contains room + for SPICE_EK_MXCLSG + descriptors. The Ith + descriptor corresponds to + the column whose name is + the Ith element of the + array cnames. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.0.0 27-JUL-2002 (NJB) + + Defined SpiceEKDataType using SpiceDataType. Removed declaration + of enum _SpiceEKDataType. + + -CSPICE Version 1.0.0, 05-JUL-1999 (NJB) + + Renamed _SpiceEKAttDsc member "class" to "cclass." The + former name is a reserved word in C++. + + + -CSPICE Version 1.0.0, 24-FEB-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_EK_H + + #define HAVE_SPICE_EK_H + + + + /* + Constants + */ + + /* + Sizes of EK objects: + */ + + #define SPICE_EK_CNAMSZ 32 + #define SPICE_EK_CSTRLN ( SPICE_EK_CNAMSZ + 1 ) + #define SPICE_EK_TNAMSZ 64 + #define SPICE_EK_TSTRLN ( SPICE_EK_TNAMSZ + 1 ) + + + + /* + Maximum number of columns per segment: + */ + + #define SPICE_EK_MXCLSG 100 + + + /* + Maximum length of string indicating data type: + */ + + #define SPICE_EK_TYPLEN 4 + + + /* + Query-related limits (see header for details): + */ + + #define SPICE_EK_MAXQRY 2000 + #define SPICE_EK_MAXQSEL 50 + #define SPICE_EK_MAXQTAB 10 + #define SPICE_EK_MAXQCON 1000 + #define SPICE_EK_MAXQJOIN 10 + #define SPICE_EK_MAXQJCON 100 + #define SPICE_EK_MAXQORD 10 + #define SPICE_EK_MAXQTOK 500 + #define SPICE_EK_MAXQNUM 100 + #define SPICE_EK_MAXQCLN SPICE_EK_MAXQRY + #define SPICE_EK_MAXQSTR 1024 + + + + /* + Code indicating "variable size": + */ + #define SPICE_EK_VARSIZ (-1) + + + + /* + Data type codes: + */ + typedef SpiceDataType SpiceEKDataType; + + + + /* + SELECT clause expression type codes: + */ + enum _SpiceEKExprClass{ SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 }; + + typedef enum _SpiceEKExprClass SpiceEKExprClass; + + + + /* + EK column attribute descriptor: + */ + + struct _SpiceEKAttDsc + + { SpiceInt cclass; + SpiceEKDataType dtype; + SpiceInt strlen; + SpiceInt size; + SpiceBoolean indexd; + SpiceBoolean nullok; }; + + typedef struct _SpiceEKAttDsc SpiceEKAttDsc; + + + + /* + EK segment summary: + */ + + struct _SpiceEKSegSum + + { SpiceChar tabnam [SPICE_EK_TSTRLN]; + SpiceInt nrows; + SpiceInt ncols; + SpiceChar cnames [SPICE_EK_MXCLSG][SPICE_EK_CSTRLN]; + SpiceEKAttDsc cdescrs[SPICE_EK_MXCLSG]; }; + + typedef struct _SpiceEKSegSum SpiceEKSegSum; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEll.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEll.h new file mode 100644 index 000000000..d0c123ab0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceEll.h @@ -0,0 +1,115 @@ +/* + +-Header_File SpiceEll.h ( CSPICE Ellipse definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceEllipse data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Ellipse functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceEllipse Structure representing an ellipse in 3- + dimensional space. + + The members are: + + center: Vector defining ellipse's + center. + + semiMajor: Vector defining ellipse's + semi-major axis. + + semiMinor: Vector defining ellipse's + semi-minor axis. + + The ellipse is the set of points + + {X: X = center + + cos(theta) * semiMajor + + sin(theta) * semiMinor, + + theta in [0, 2*Pi) } + + + ConstSpiceEllipse A const SpiceEllipse. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_ELLIPSES + + #define HAVE_SPICE_ELLIPSES + + + + /* + Ellipse structure: + */ + + struct _SpiceEllipse + + { SpiceDouble center [3]; + SpiceDouble semiMajor [3]; + SpiceDouble semiMinor [3]; }; + + typedef struct _SpiceEllipse SpiceEllipse; + + typedef const SpiceEllipse ConstSpiceEllipse; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceErr.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceErr.h new file mode 100644 index 000000000..21e76605c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceErr.h @@ -0,0 +1,141 @@ +/* + +-Header_File SpiceErr.h ( CSPICE error handling definitions ) + +-Abstract + + Perform CSPICE definitions for error handling APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE error handling functions. + + + CONSTANTS + ========== + + Name Description + ---- ---------- + + SPICE_ERROR_LMSGLN Maximum length of a long error message, + including the null terminator. + + SPICE_ERROR_SMSGLN Maximum length of a short error message, + including the null terminator. + + SPICE_ERROR_XMSGLN Maximum length of a short error + explanation message, including the null + terminator. + + SPICE_ERROR_MODLEN Maximum length of a module name + appearing in the traceback message, + including the null terminator. + + SPICE_ERROR_MAXMOD Maximum count of module names + appearing in the traceback message. + + SPICE_ERROR_TRCLEN Maximum length of a traceback message, + including the null terminator. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 05-NOV-2013 (NJB) + +*/ + +#ifndef HAVE_SPICE_ERROR_HANDLING + + #define HAVE_SPICE_ERROR_HANDLING + + + /* + Local constants + */ + #define ARROWLEN 5 + + /* + Public constants + */ + + /* + Long error message length, which is equal to + + ( 23 * 80 ) + 1 + + */ + #define SPICE_ERROR_LMSGLN 1841 + + /* + Short error message length: + */ + #define SPICE_ERROR_SMSGLN 26 + + /* + Short error message explanation length: + */ + #define SPICE_ERROR_XMSGLN 81 + + /* + Module name length for traceback entries: + */ + #define SPICE_ERROR_MODLEN 33 + + /* + Maximum module count for traceback string: + */ + #define SPICE_ERROR_MAXMOD 100 + + /* + Maximum length of traceback string returned + by qcktrc_c. + */ + #define SPICE_ERROR_TRCLEN ( ( SPICE_ERROR_MAXMOD \ + * ( SPICE_ERROR_MODLEN-1 ) ) \ + + ( ARROWLEN \ + * ( SPICE_ERROR_MAXMOD-1 ) ) \ + + 1 ) +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceFrm.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceFrm.h new file mode 100644 index 000000000..89b5c4d08 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceFrm.h @@ -0,0 +1,243 @@ +/* + +-Header_File SpiceFrm.h ( CSPICE frame subsystem definitions ) + +-Abstract + + Perform CSPICE definitions for frame subsystem APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CK + FRAMES + PCK + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE frame subsystem APIs. + + + CONSTANTS + ========== + + + Frame counts + ------------ + + The following parameter are counts of built-in frames. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE files + + ninert.inc + nninrt.inc + + Name Description + ---- ---------- + + SPICE_NFRAME_NINERT Number of built-in inertial frames. + SPICE_NFRAME_NNINRT Number of built-in non-inertial frames. + + + + Frame classes + ------------- + + The following parameters identify SPICE frame classes. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE file frmtyp.inc. See the Frames Required Reading for a + detailed discussion of frame classes. + + + Name Description + ---- ---------- + + SPICE_FRMTYP_INERTL an inertial frame that is listed in the + f2c'd routine chgirf_ and that requires + no external file to compute the + transformation from or to any other + inertial frame. + + + SPICE_FRMTYP_PCK is a frame that is specified relative + to some built-in, inertial frame (of + class SPICE_FRMTYP_INERTL) and that has + an IAU model that may be retrieved from + the PCK system via a call to the + routine tisbod_c. + + + SPICE_FRMTYP_CK is a frame defined by a C-kernel. + + + SPICE_FRMTYP_TK is a "text kernel" frame. These frames + are offset from their associated + "relative" frames by a constant + rotation. + + + SPICE_FRMTYP_DYN is a "dynamic" frame. These currently + are limited to parameterized frames + where the full frame definition depends + on parameters supplied via a frame + kernel. + + SPICE_FRMTYP_SWTCH is a "switch" frame. These frames have + orientation defined by their alignment with + base frames selected from a prioritized list. + The base frames optionally have associated + time intervals of applicability. + + SPICE_FRMTYP_ALL indicates any of the above classes. + This parameter is used in APIs that + fetch information about frames of a + specified class. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 26-AUG-2021 (JDR) (NJB) (BVS) + + Added parameter SWTCH to support the switch frame class. + + Increased the number of non-inertial frames from 106 to 124 + in order to accommodate the following PCK based frames: + + IAU_52_EUROPA + IAU_NIX + IAU_HYDRA + IAU_RYUGU + IAU_ARROKOTH + IAU_DIDYMOS_BARYCENTER + IAU_DIDYMOS + IAU_DIMORPHOS + IAU_DONALDJOHANSON + IAU_EURYBATES + IAU_EURYBATES_BARYCENTER + IAU_QUETA + IAU_POLYMELE + IAU_LEUCUS + IAU_ORUS + IAU_PATROCLUS_BARYCENTER + IAU_PATROCLUS + IAU_MENOETIUS + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.1.0, 25-JAN-2016 (EDW) + + Increased the number of non-inertial frames from 105 to 106 + in order to accommodate the following PCK based frame: + + IAU_BENNU + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.0.0, 23-MAY-2012 (NJB) + +*/ + +#ifndef HAVE_SPICE_FRAME_DEFS + + #define HAVE_SPICE_FRAME_DEFS + + + /* + Frame counts: + */ + + /* + Number of built-in inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file ninert.inc. + */ + #define SPICE_NFRAME_NINERT 21 + + /* + Number of built-in non-inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file nninrt.inc. + */ + #define SPICE_NFRAME_NNINRT 124 + + + + /* + The frame class codes defined here are identical + to those used in SPICELIB. + */ + + /* + Inertial, built-in frames: + */ + #define SPICE_FRMTYP_INERTL 1 + + /* + PCK frames: + */ + #define SPICE_FRMTYP_PCK 2 + + /* + CK frames: + */ + #define SPICE_FRMTYP_CK 3 + + /* + TK frames: + */ + #define SPICE_FRMTYP_TK 4 + + /* + Dynamic frames: + */ + #define SPICE_FRMTYP_DYN 5 + + /* + Switch frames: + */ + #define SPICE_FRMTYP_SWTCH 6 + + /* + All frame classes: + */ + #define SPICE_FRMTYP_ALL ( -1 ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceGF.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceGF.h new file mode 100644 index 000000000..fec0986b7 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceGF.h @@ -0,0 +1,351 @@ +/* + +-Header_File SpiceGF.h ( CSPICE GF-specific definitions ) + +-Abstract + + Perform CSPICE GF-specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + GF + +-Keywords + + GEOMETRY + SEARCH + +-Exceptions + + None + +-Files + + None + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE GF functions. + + + Macros + ====== + + Workspace parameters + -------------------- + + CSPICE applications normally don't declare workspace arguments + and therefore don't directly reference workspace size parameters. + However, CSPICE GF APIs dealing with numeric constraints + dynamically allocate workspace memory; the amount allocated + depends on the number of intervals the workspace windows can + hold. This amount is an input argument to the GF numeric quantity + APIs. + + The parameters below are used to calculate the amount of memory + required. Each workspace window contains 6 double precision + numbers in its control area and 2 double precision numbers for + each interval it can hold. + + + Name Description + ---- ---------- + SPICE_GF_NWMAX Maximum number of windows required for + a user-defined workspace array. + + SPICE_GF_NWDIST Number of workspace windows used by + gfdist_c and the underlying SPICELIB + routine GFDIST. + + SPICE_GF_NWILUM Number of workspace windows used by + gfilum_c and the underlying SPICELIB + routine GFILUM. + + SPICE_GF_NWSEP Number of workspace windows used by + gfsep_c and the underlying SPICELIB + routine GFSEP. + + SPICE_GF_NWRR Number of workspace windows used by + gfrr_c and the underlying SPICELIB + routine GFRR. + + SPICE_GF_NWPA Number of workspace windows used by + gfpa_c and the underlying SPICELIB + routine GFPA. + + + Field of view (FOV) parameters + ------------------------------ + + Name Description + ---- ---------- + SPICE_GF_MAXVRT Maximum allowed number of boundary + vectors for a polygonal FOV. + + SPICE_GF_CIRFOV Parameter identifying a circular FOV. + + SPICE_GF_ELLFOV Parameter identifying a elliptical FOV. + + SPICE_GF_POLFOV Parameter identifying a polygonal FOV. + + SPICE_GF_RECFOV Parameter identifying a rectangular FOV. + + SPICE_GF_SHPLEN Parameter specifying maximum length of + a FOV shape name. + + SPICE_GF_MARGIN is a small positive number used to + constrain the orientation of the + boundary vectors of polygonal FOVs. Such + FOVs must satisfy the following + constraints: + + 1) The boundary vectors must be + contained within a right circular + cone of angular radius less than + than (pi/2) - SPICE_GF_MARGIN radians; + in other words, there must be a vector + A such that all boundary vectors + have angular separation from A of + less than (pi/2)-SPICE_GF_MARGIN + radians. + + 2) There must be a pair of boundary + vectors U, V such that all other + boundary vectors lie in the same + half space bounded by the plane + containing U and V. Furthermore, all + other boundary vectors must have + orthogonal projections onto a plane + normal to this plane such that the + projections have angular separation + of at least 2*SPICE_GF_MARGIN radians + from the plane spanned by U and V. + + SPICE_GF_MARGIN is currently set to 1.e-12. + + + Occultation parameters + ---------------------- + + SPICE_GF_ANNULR Parameter identifying an "annular + occultation." This geometric condition + is more commonly known as a "transit." + The limb of the background object must + not be blocked by the foreground object + in order for an occultation to be + "annular." + + SPICE_GF_ANY Parameter identifying any type of + occultation or transit. + + SPICE_GF_FULL Parameter identifying a full + occultation: the foreground body + entirely blocks the background body. + + SPICE_GF_PARTL Parameter identifying an "partial + occultation." This is an occultation in + which the foreground body blocks part, + but not all, of the limb of the + background body. + + + + Target shape parameters + ----------------------- + + SPICE_GF_EDSHAP Parameter indicating a target object's + shape is modeled as an ellipsoid. + + SPICE_GF_PTSHAP Parameter indicating a target object's + shape is modeled as a point. + + SPICE_GF_RYSHAP Parameter indicating a target object's + "shape" is modeled as a ray emanating + from an observer's location. This model + may be used in visibility computations + for targets whose direction, but not + position, relative to an observer is + known. + + SPICE_GF_SPSHAP Parameter indicating a target object's + shape is modeled as a sphere. + + + + Search parameters + ----------------- + + These parameters affect the manner in which GF searches are + performed. + + SPICE_GF_ADDWIN is a parameter used in numeric quantity + searches that use an equality + constraint. This parameter is used to + expand the confinement window (the + window over which the search is + performed) by a small amount at both + ends. This expansion accommodates the + case where a geometric quantity is equal + to a reference value at a boundary point + of the original confinement window. + + SPICE_GF_CNVTOL is the default convergence tolerance + used by GF routines that don't support a + user-supplied tolerance value. GF + searches for roots will terminate when a + root is bracketed by times separated by + no more than this tolerance. Units are + seconds. + + Configuration parameter + ----------------------- + + SPICE_GFEVNT_MAXPAR Parameter indicating the maximum number of + elements needed for the 'qnames' and 'q*pars' + arrays used in gfevnt_c. + + SpiceChar qcpars[SPICE_GFEVNT_MAXPAR][LNSIZE]; + SpiceDouble qdpars[SPICE_GFEVNT_MAXPAR]; + SpiceInt qipars[SPICE_GFEVNT_MAXPAR]; + SpiceBoolean qlpars[SPICE_GFEVNT_MAXPAR]; + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + L.S. Elson (JPL) + +-Version + + -CSPICE Version 2.1.2, 05-FEB-2020 (JDR) + + Corrected description of parameter SPICE_GF_MARGIN. + + -CSPICE Version 2.1.1, 29-NOV-2016 (NJB) + + Corrected description of parameter SPICE_GF_SPSHAP. + + -CSPICE Version 2.1.0, 23-FEB-2012 (NJB) + + Added parameters: + + SPICE_GF_NWILUM + SPICE_GF_NWRR + SPICE_GF_NWPA + + -CSPICE Version 2.0.0, 23-JUN-2009 (NJB) + + Added parameter for maximum length of FOV shape string. + + -CSPICE Version 1.0.0, 11-MAR-2009 (NJB) + +*/ + + +#ifndef HAVE_SPICE_GF_H + + #define HAVE_SPICE_GF_H + + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Workspace parameters + */ + #define SPICE_GF_NWMAX 15 + #define SPICE_GF_NWDIST 5 + #define SPICE_GF_NWILUM 5 + #define SPICE_GF_NWSEP 5 + #define SPICE_GF_NWRR 5 + #define SPICE_GF_NWPA 5 + + + /* + Field of view (FOV) parameters + */ + #define SPICE_GF_MAXVRT 10000 + #define SPICE_GF_CIRFOV "CIRCLE" + #define SPICE_GF_ELLFOV "ELLIPSE" + #define SPICE_GF_POLFOV "POLYGON" + #define SPICE_GF_RECFOV "RECTANGLE" + #define SPICE_GF_SHPLEN 10 + #define SPICE_GF_MARGIN ( 1.e-12 ) + + + /* + Occultation parameters + */ + #define SPICE_GF_ANNULR "ANNULAR" + #define SPICE_GF_ANY "ANY" + #define SPICE_GF_FULL "FULL" + #define SPICE_GF_PARTL "PARTIAL" + + + /* + Target shape parameters + */ + #define SPICE_GF_EDSHAP "ELLIPSOID" + #define SPICE_GF_PTSHAP "POINT" + #define SPICE_GF_RYSHAP "RAY" + #define SPICE_GF_SPSHAP "SPHERE" + + + /* + Search parameters + */ + #define SPICE_GF_ADDWIN 1.0 + #define SPICE_GF_CNVTOL 1.e-6 + + + /* + Configuration parameters. + */ + #define SPICE_GFEVNT_MAXPAR 10 + + +#endif + + +/* + End of header file SpiceGF.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOccult.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOccult.h new file mode 100644 index 000000000..0caab7c3c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOccult.h @@ -0,0 +1,147 @@ +/* + +-Header_File SpiceOccult.h ( CSPICE Occultation specific definitions ) + +-Abstract + + Perform CSPICE occultation specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Keywords + + OCCULTATION + GEOMETRY + ELLIPSOID + +-Exceptions + + None + +-Files + + None + +-Particulars + + The following integer codes indicate the geometric relationship + of the three bodies. + + The meaning of the sign of each code is given below. + + Code sign Meaning + --------- ------------------------------ + > 0 The second ellipsoid is + partially or fully occulted + by the first. + + < 0 The first ellipsoid is + partially of fully + occulted by the second. + + = 0 No occultation. + + The meanings of the codes are given below. The variable names + indicate the type of occultation and which target is in the back. + For example, SPICE_OCCULT_TOTAL1 represents a total occultation in which + the first target is in the back (or occulted by) the second target. + + Name Code Meaning + ------ ----- ------------------------------ + SPICE_OCCULT_TOTAL1 -3 Total occultation of first + target by second. + + SPICE_OCCULT_ANNLR1 -2 Annular occultation of first + target by second. The second + target does not block the limb + of the first. + + SPICE_OCCULT_PARTL1 -1 Partial occultation of first + target by second target. + + SPICE_OCCULT_NOOCC 0 No occultation or transit: both + objects are completely visible + to the observer. + + SPICE_OCCULT_PARTL2 1 Partial occultation of second + target by first target. + + SPICE_OCCULT_ANNLR2 2 Annular occultation of second + target by first. + + SPICE_OCCULT_TOTAL2 3 Total occultation of second + target by first. + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + S.C. Krening (JPL) + N.J. Bachman (JPL) + +-Version + + -CSPICE Version 1.0.0, 23-FEB-2012 (SCK) + +*/ + + +#ifndef HAVE_SPICE_OCCULT_H + + #define HAVE_SPICE_OCCULT_H + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Occultation parameters + */ + + #define SPICE_OCCULT_TOTAL1 -3 + #define SPICE_OCCULT_ANNLR1 -2 + #define SPICE_OCCULT_PARTL1 -1 + #define SPICE_OCCULT_NOOCC 0 + #define SPICE_OCCULT_PARTL2 1 + #define SPICE_OCCULT_ANNLR2 2 + #define SPICE_OCCULT_TOTAL2 3 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOsc.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOsc.h new file mode 100644 index 000000000..9bb9a937b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceOsc.h @@ -0,0 +1,86 @@ +/* + +-Header_File SpiceOsc.h ( CSPICE osculating element definitions ) + +-Abstract + + Perform CSPICE definitions for osculating element routines. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE osculating element functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_OSCLTX_NELTS Length of output element array + returned by oscltx_c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 25-JAN-2017 (NJB) + +*/ + +#ifndef HAVE_SPICE_OSC + + #define HAVE_SPICE_OSC + + + /* + Constants + */ + #define SPICE_OSCLTX_NELTS 20 + +#endif + + +/* + End of header file SpiceOsc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpicePln.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpicePln.h new file mode 100644 index 000000000..839fb1560 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpicePln.h @@ -0,0 +1,106 @@ +/* + +-Header_File SpicePln.h ( CSPICE Plane definitions ) + +-Abstract + + Perform CSPICE definitions for the SpicePlane data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Plane functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpicePlane Structure representing a plane in 3- + dimensional space. + + The members are: + + normal: Vector normal to plane. + + constant: Constant of plane equation + + Plane = + + {X: = constant} + + + + ConstSpicePlane A const SpicePlane. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_PLANES + + #define HAVE_SPICE_PLANES + + + + /* + Plane structure: + */ + + struct _SpicePlane + + { SpiceDouble normal [3]; + SpiceDouble constant; }; + + typedef struct _SpicePlane SpicePlane; + + typedef const SpicePlane ConstSpicePlane; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSCLK.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSCLK.h new file mode 100644 index 000000000..64053efcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSCLK.h @@ -0,0 +1,90 @@ + +/* + +-Header_File SpiceSCLK.h ( CSPICE SCLK-specific definitions ) + +-Abstract + + Perform CSPICE definitions to support SCLK wrapper interfaces, + including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + SCLK + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE SCLK interfaces. + + The parameters below define sizes and limits used by the SCLK system. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_SCLK_MXPART is the maximum number of partitions in a given + SCLK file. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 16-SEP-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_SCLK_H + + #define HAVE_SPICE_SCLK_H + + + /* + Maximum number of partitions in a SCLK file: + */ + #define SPICE_SCLK_MXPART 9999 + + +#endif + +/* +End of header file SpiceSCLK.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSPK.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSPK.h new file mode 100644 index 000000000..a4c8eac5f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSPK.h @@ -0,0 +1,128 @@ +/* + +-Header_File SpiceSPK.h ( CSPICE SPK definitions ) + +-Abstract + + Perform CSPICE definitions to support SPK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE SPK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceSPK18Subtype Typedef for enum indicating the + mathematical representation used + in an SPK type 18 segment. Possible + values and meanings are: + + S18TP0: + + Hermite interpolation, 12- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt, + vx, vy, vz, dvx/dt, dvy/dt, dvz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. Note well: vx, vy, and + vz *are not necessarily equal* to the + time derivatives of x, y, and z. + This packet structure mimics that of + the Rosetta/MEX orbit file from which + the data are taken. + + Position units are kilometers, + velocity units are kilometers per + second, and acceleration units are + kilometers per second per second. + + + S18TP1: + + Lagrange interpolation, 6- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. + + Position units are kilometers; + velocity units are kilometers per + second. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 16-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_SPK_H + + #define HAVE_SPICE_SPK_H + + + + /* + SPK type 18 subtype codes: + */ + + enum _SpiceSPK18Subtype { S18TP0, S18TP1 }; + + + typedef enum _SpiceSPK18Subtype SpiceSPK18Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSrf.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSrf.h new file mode 100644 index 000000000..97537426c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceSrf.h @@ -0,0 +1,94 @@ +/* + +-Header_File SpiceSrf.h ( CSPICE surface definitions ) + +-Abstract + + Perform CSPICE definitions for surface name-ID mapping. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE surface name-ID mapping functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_SRF_SFNMLN Maximum length of a surface name, + including the terminating null + character. + + SPICE_SRF_MAXSRF Maximum number of surfaces that + can be accommodated in a surface + list. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 30-AUG-2016 (NJB) + + Added macro SPICE_SRF_MAXSRF + + 22-JAN-2016 (NJB) + + Original version. +*/ + +#ifndef HAVE_SRF + + #define HAVE_SRF + + + /* + Constants + */ + #define SPICE_SRF_SFNMLN 37 + + #define SPICE_SRF_MAXSRF 100 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceUsr.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceUsr.h new file mode 100644 index 000000000..53ac70bcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceUsr.h @@ -0,0 +1,296 @@ +/* + +-Header_File SpiceUsr.h ( CSPICE user interface definitions ) + +-Abstract + + Perform CSPICE user interface declarations, including type + definitions and function prototype declarations. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This file is an umbrella header that includes all header files + required to support the CSPICE application programming interface + (API). Users' application code that calls CSPICE need include only + this single header file. This file includes function prototypes for + the entire set of CSPICE routines. Typedef statements used to create + SPICE data types are also included. + + + About SPICE data types + ====================== + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> enum { SPICEFALSE = 0, SPICETRUE = 1 } + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On all currently supported + platforms, type double occupies 8 bytes and type int occupies 4 + bytes. Other platforms may require a SpiceInt to map to type long. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + About CSPICE function prototypes + ================================ + + Because CSPICE function prototypes enable substantial compile-time + error checking, we recommend that user applications always reference + them. Including the header file SpiceUsr.h in any module that calls + CSPICE will automatically make the prototypes available. + + + About CSPICE C style + ==================== + + CSPICE is written in ANSI C. No attempt has been made to support K&R + conventions or restrictions. + + + About C++ compatibility + ======================= + + The preprocessor directive -D__cplusplus should be used when + compiling C++ source code that includes this header file. This + directive will suppress mangling of CSPICE names, permitting linkage + to a CSPICE object library built from object modules produced by + an ANSI C compiler. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + S.C. Krening (JPL) + E.D. Wright (JPL) + +-Restrictions + + The #include statements contained in this file are not part of + the CSPICE API. The set of files included may change without notice. + Users should not include these files directly in their own + application code. + +-Version + + -CSPICE Version 7.0.0, 16-SEP-2020 (JDR) + + Updated to include header file + + SpiceDAS.h + SpiceSCLK.h + + -CSPICE Version 6.0.0, 07-FEB-2010 (NJB) + + Now includes SpiceOsc.h. + + 27-FEB-2016 (NJB) + + Updated to include header files + + SpiceDLA.h + SpiceDSK.h + SpiceSrf.h + SpiceDtl.h + + -CSPICE Version 5.0.0, 11-MAY-2012 (NJB) (SCK) + + Updated to include header files + + SpiceErr.h + SpiceFrm.h + SpiceOccult.h + + -CSPICE Version 4.0.0, 30-SEP-2008 (NJB) + + Updated to include header file + + SpiceGF.h + + -CSPICE Version 3.0.0, 19-AUG-2002 (NJB) + + Updated to include header files + + SpiceCel.h + SpiceCK.h + SpiceSPK.h + + -CSPICE Version 3.0.0, 17-FEB-1999 (NJB) + + Updated to support suppression of name mangling when included in + C++ source code. Also now interface macros to intercept function + calls and perform automatic type casting. + + Now includes platform macro definition header file. + + References to types SpiceVoid and ConstSpiceVoid were removed. + + -CSPICE Version 2.0.0, 06-MAY-1998 (NJB) (EDW) + +*/ + +#ifdef __cplusplus + extern "C" { +#endif + + +#ifndef HAVE_SPICE_USER + + #define HAVE_SPICE_USER + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + /* + Include CSPICE data type definitions. + */ + #include "SpiceZdf.h" + + /* + Include the CSPICE error handling interface definitions. + */ + #include "SpiceErr.h" + + /* + Include the CSPICE EK interface definitions. + */ + #include "SpiceEK.h" + + /* + Include the CSPICE frame subsystem API definitions. + */ + #include "SpiceFrm.h" + + /* + Include the CSPICE Cell interface definitions. + */ + #include "SpiceCel.h" + + /* + Include the CSPICE CK interface definitions. + */ + #include "SpiceCK.h" + + /* + Include the CSPICE SCLK interface definitions. + */ + #include "SpiceSCLK.h" + + /* + Include the CSPICE SPK interface definitions. + */ + #include "SpiceSPK.h" + + /* + Include the CSPICE GF interface definitions. + */ + #include "SpiceGF.h" + + /* + Include the CSPICE occultation definitions. + */ + #include "SpiceOccult.h" + + /* + Include the CSPICE DAS definitions. + */ + #include "SpiceDAS.h" + + /* + Include the CSPICE DLA definitions. + */ + #include "SpiceDLA.h" + + /* + Include the CSPICE DSK definitions. + */ + #include "SpiceDSK.h" + + /* + Include the CSPICE DSK tolerance definitions. + */ + #include "SpiceDtl.h" + + /* + Include the CSPICE surface definitions. + */ + #include "SpiceSrf.h" + + /* + Include oscltx_c definitions. + */ + #include "SpiceOsc.h" + + /* + Include CSPICE prototypes. + */ + #include "SpiceZpr.h" + + /* + Define the CSPICE function interface macros. + */ + #include "SpiceZim.h" + + + +#endif + + +#ifdef __cplusplus + } +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZad.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZad.h new file mode 100644 index 000000000..0414ecd2b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZad.h @@ -0,0 +1,215 @@ +/* + +-Header_File SpiceZad.h ( CSPICE adapter definitions ) + +-Abstract + + Perform CSPICE declarations to support passed-in function + adapters used in wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header file contains declarations used by the CSPICE + passed-in function adapter ("PFA") system. This system enables + CSPICE wrapper functions to support passed-in function + arguments whose prototypes are C-style, even when these + functions are to be called from f2c'd Fortran routines + expecting f2c-style interfaces. + + This header declares: + + - The prototype for the passed-in function argument + pointer storage and fetch routines + + zzadsave_c + zzadget_c + + - Prototypes for CSPICE adapter functions. Each passed-in + function argument in a CSPICE wrapper has a corresponding + adapter function. The adapter functions have interfaces + that match those of their f2c'd counterparts; this allows + the adapters to be called by f2c'd SPICELIB code. The + adapters look up saved function pointers for routines + passed in by the wrapper's caller and call these functions. + + - Values for the enumerated type SpicePassedInFunc. These + values are used to map function pointers to the + functions they represent, enabling adapters to call + the correct passed-in functions. + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.3.0, 07-FEB-2021 (JDR) + + Removed spurious comma at the end of enumerator list + "SpicePassedInFunc" to comply with ANSI-C standard. + + -CSPICE Version 2.2.0, 29-NOV-2011 (EDW) + + Updated to support the user defined boolean function capability. + + -CSPICE Version 2.1.0, 21-DEC-2009 (EDW) + + Updated to support the user defined scalar function capability. + + -CSPICE Version 2.0.0, 29-JAN-2009 (NJB) + + Now conditionally includes SpiceZfc.h. + + Updated to reflect new calling sequence of f2c'd + routine gfrefn_. Some header updates were made + as well. + + -CSPICE Version 1.0.0, 29-MAR-2008 (NJB) + +*/ + + +/* + This file has dependencies defined in SpiceZfc.h. Include that + file if it hasn't already been included. +*/ +#ifndef HAVE_SPICEF2C_H + #include "SpiceZfc.h" +#endif + + + +#ifndef HAVE_SPICE_ZAD_H + + #define HAVE_SPICE_ZAD_H + + + + /* + Prototypes for GF adapters: + */ + + logical zzadbail_c ( void ); + + + int zzadstep_c ( doublereal * et, + doublereal * step ); + + + int zzadrefn_c ( doublereal * t1, + doublereal * t2, + logical * s1, + logical * s2, + doublereal * t ); + + + int zzadrepf_c ( void ); + + + int zzadrepi_c ( doublereal * cnfine, + char * srcpre, + char * srcsuf, + ftnlen srcprelen, + ftnlen srcsuflen ); + + + int zzadrepu_c ( doublereal * ivbeg, + doublereal * ivend, + doublereal * et ); + + + int zzadfunc_c ( doublereal * et, + doublereal * value ); + + + int zzadqdec_c ( U_fp udfunc, + doublereal * et, + logical * xbool ); + + /* + Define the enumerated type + + SpicePassedInFunc + + for names of passed-in functions. Using this type gives + us compile-time checking and avoids string comparisons. + */ + enum _SpicePassedInFunc { + UDBAIL, + UDREFN, + UDREPF, + UDREPI, + UDREPU, + UDSTEP, + UDFUNC, + UDQDEC + }; + + typedef enum _SpicePassedInFunc SpicePassedInFunc; + + /* + SPICE_N_PASSED_IN_FUNC is the count of SpicePassedInFunc values. + */ + #define SPICE_N_PASSED_IN_FUNC 8 + + + /* + CSPICE wrappers supporting passed-in function arguments call + the adapter setup interface function once per each such argument; + these calls save the function pointers for later use within the + f2c'd code that calls passed-in functions. The saved pointers + will be used in calls by the adapter functions whose prototypes + are declared above. + + Prototypes for adapter setup interface: + */ + void zzadsave_c ( SpicePassedInFunc functionID, + void * functionPtr ); + + void * zzadget_c ( SpicePassedInFunc functionID ); + + +#endif + +/* +End of header file SpiceZad.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZdf.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZdf.h new file mode 100644 index 000000000..8dc2ab972 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZdf.h @@ -0,0 +1,274 @@ +/* + +-Header_File SpiceZdf.h ( CSPICE definitions ) + +-Abstract + + Define CSPICE data types via typedefs; also define some user-visible + enumerated types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + CSPICE data types + ================= + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> int + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On most currently supported + platforms, type double occupies 8 bytes and type long occupies 4 + bytes. Other platforms may require a SpiceInt to map to type int. + The Alpha/Digital Unix platform is an example of the latter case. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + CSPICE enumerated types + ======================= + + These are provided to enhance readability of the code. + + Type name Value set + --------- --------- + + _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 } + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 6.3.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 6.2.0, 10-MAR-2014 (BVS) + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 5.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 4.0.0 27-JUL-2002 (NJB) + + Added definition of SpiceDataType. + + -CSPICE Version 3.0.0 18-SEP-1999 (NJB) + + SpiceBoolean implementation changed from enumerated type to + typedef mapping to int. + + -CSPICE Version 2.0.0 29-JAN-1999 (NJB) + + Made definition of SpiceInt and ConstSpiceInt platform + dependent to accommodate the Alpha/Digital Unix platform. + + Removed definitions of SpiceVoid and ConstSpiceVoid. + + -CSPICE Version 1.0.0 25-OCT-1997 (KRG) (NJB) (EDW) +*/ + + #ifndef HAVE_SPICEDEFS_H + #define HAVE_SPICEDEFS_H + + /* + Include platform definitions, if they haven't been executed already. + */ + #ifndef HAVE_PLATFORM_MACROS_H + #include "SpiceZpl.h" + #endif + + /* + Basic data types. These are defined to be compatible with the + types used by f2c, and so they follow the Fortran notion of what + these things are. See the f2c documentation for the details + about the choices for the sizes of these types. + */ + typedef char SpiceChar; + typedef double SpiceDouble; + typedef float SpiceFloat; + + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef int SpiceInt; + #else + typedef long SpiceInt; + #endif + + + typedef const char ConstSpiceChar; + typedef const double ConstSpiceDouble; + typedef const float ConstSpiceFloat; + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef const int ConstSpiceInt; + #else + typedef const long ConstSpiceInt; + #endif + + + /* + More basic data types. These give mnemonics for some other data + types in C that are not used in Fortran written by NAIF or + supported by ANSI Fortran 77. These are for use in C functions + but should not be passed to any C SPICE wrappers, ``*_c.c'' + since they are not Fortran compatible. + */ + typedef long SpiceLong; + typedef short SpiceShort; + + /* + Unsigned data types + */ + typedef unsigned char SpiceUChar; + typedef unsigned int SpiceUInt; + typedef unsigned long SpiceULong; + typedef unsigned short SpiceUShort; + + /* + Signed data types + */ + typedef signed char SpiceSChar; + + /* + Other basic types + */ + typedef int SpiceBoolean; + typedef const int ConstSpiceBoolean; + + #define SPICETRUE 1 + #define SPICEFALSE 0 + + + enum _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 }; + + typedef enum _Spicestatus SpiceStatus; + + + enum _SpiceDataType { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3, + SPICE_BOOL = 4 }; + + + typedef enum _SpiceDataType SpiceDataType; + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZfc.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZfc.h new file mode 100644 index 000000000..a6a99897a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZfc.h @@ -0,0 +1,16163 @@ +/* + +-Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes ) + +-Abstract + + Define prototypes for functions produced by converting Fortran + SPICELIB routines to C using f2c. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.1.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 7.0.0, 10-MAR-2014 (BVS) + + Reformatted version lines. + + Now this header conditionally includes SpiceUsr.h. + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Added typedefs for the PC-LINUX-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 5.0.0, 06-MAR-2005 (NJB) + + Added typedefs for pointers to functions. This change was + made to support CSPICE wrappers for geometry finder routines. + + Added typedefs for the SUN-SOLARIS-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 4.1.0, 24-MAY-2001 (WLT) + + Moved the #ifdef __cplusplus so that it appears after the + typedefs. This allows us to more easily wrap CSPICE in a + namespace for C++. + + -CSPICE Version 4.0.0, 09-FEB-1999 (NJB) + + Updated to accommodate the Alpha/Digital Unix platform. + Also updated to support inclusion in C++ code. + + -CSPICE Version 3.0.0, 02-NOV-1998 (NJB) + + Updated for SPICELIB version N0049. + + -CSPICE Version 2.0.0, 15-SEP-1997 (NJB) + + Changed variable name "typid" to "typid" in prototype + for zzfdat_. This was done to enable compilation under + Borland C++. + + -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG) + +-Index_Entries + + prototypes of f2c'd SPICELIB functions + +*/ + + +/* + Include SpiceUsr.h if it hasn't already been included + by the current compilation unit. +*/ +#ifndef HAVE_SPICE_USER + #include "SpiceUsr.h" +#endif + + + +#ifndef HAVE_SPICEF2C_H +#define HAVE_SPICEF2C_H + + +/* + Include Files: + + Many of the prototypes below use data types defined by f2c. We + copy here the f2c definitions that occur in prototypes of functions + produced by running f2c on Fortran SPICELIB routines. + + The reason we don't simply conditionally include f2c.h itself here + is that f2c.h defines macros that conflict with stdlib.h on some + systems. It's simpler to just replicate the few typedefs we need. +*/ + +#if ( defined( CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined( CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined( CSPICE_PC_LINUX_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + #define VOID void + + typedef VOID H_f; + typedef int integer; + typedef double doublereal; + typedef int logical; + typedef int ftnlen; + + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#else + + #define VOID void + + typedef VOID H_f; + typedef long integer; + typedef double doublereal; + typedef long logical; + typedef long ftnlen; + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#endif + + +#ifdef __cplusplus + extern "C" { +#endif + + +/* + Function prototypes for functions created by f2c are listed below. + See the headers of the Fortran routines for descriptions of the + routines' interfaces. + + The functions listed below are those expected to be called by + C-SPICELIB wrappers. Prototypes are not currently provided for other + f2c'd functions. + +*/ + +/* +-Prototypes +*/ + +extern logical accept_(logical *ok); +extern logical allowd_(void); + +extern logical alltru_(logical *logcls, integer *n); + +extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndd_(doublereal *item, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndi_(integer *item, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); + +extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); +/*:ref: ident_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int azlcpo_(char *method, char *target, doublereal *et, char *abcorr, logical *azccw, logical *elplsz, doublereal *obspos, char *obsctr, char *obsref, doublereal *azlsta, doublereal *lt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recazl_ 14 6 7 12 12 7 7 7 */ +/*:ref: dazldr_ 14 6 7 7 7 12 12 7 */ + +extern int azlrec_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern doublereal b1900_(void); + +extern doublereal b1950_(void); + +extern logical badkpv_(char *caller, char *name__, char *comp, integer *size, integer *divby, char *type__, ftnlen caller_len, ftnlen name_len, ftnlen comp_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical bedec_(char *string, ftnlen string_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical beint_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical benum_(char *string, ftnlen string_len); +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: bedec_ 12 2 13 124 */ +/*:ref: beint_ 12 2 13 124 */ + +extern logical beuns_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int bltfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ + +extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodc2s_(integer *code, char *name__, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int boddef_(char *name__, integer *code, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzboddef_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ + +extern logical bodfnd_(integer *body, char *item, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: rtpool_ 14 5 13 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); + +extern integer brckti_(integer *number, integer *end1, integer *end2); + +extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); + +extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); + +extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer bsrchi_(integer *value, integer *ndim, integer *array); + +extern integer cardc_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardd_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardi_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer chbase_(void); + +extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); + +extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); + +extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); + +extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); +extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); +extern int irfnum_(char *name__, integer *index, ftnlen name_len); +extern int irfnam_(integer *index, char *name__, ftnlen name_len); +extern int irfdef_(integer *index); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ + +extern int ckbsr_(char *fname, integer *handle, integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *descr, char *segid, logical *found, ftnlen fname_len, ftnlen segid_len); +extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); +extern int ckupf_(integer *handle); +extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); +extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); +extern int ckhave_(logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ + +extern int ckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckcov_(char *ckfnm, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ckfnm_len, ftnlen level_len, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mtxm_ 14 3 7 7 7 */ +/*:ref: raxisa_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: qdq2av_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: rav2xf_ 14 3 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: xf2rav_ 14 3 7 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr02_ 14 3 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknm06_(integer *handle, doublereal *descr, integer *nmini); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ + +extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckobj_(char *ckfnm, integer *ids, ftnlen ckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke01_ 14 5 12 7 7 7 7 */ +/*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ +/*:ref: cke02_ 14 5 12 7 7 7 7 */ +/*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke03_ 14 5 12 7 7 7 7 */ +/*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke04_ 14 5 12 7 7 7 7 */ +/*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke06_ 14 5 12 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstcld_ 4 3 7 4 7 */ + +extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ + +extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: touchl_ 12 1 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int ckw01_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw02_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, char *segid, integer *nrec, doublereal *start, doublereal *stop, doublereal *quats, doublereal *avvs, doublereal *rates, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw03_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzck4i2d_ 14 4 4 4 7 7 */ +/*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ + +extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ + +extern int ckw04e_(integer *handle, doublereal *endtim); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrs_ 14 1 7 */ + +extern int ckw05_(integer *handle, integer *subtyp, integer *degree, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *n, doublereal *sclkdp, doublereal *packts, doublereal *rate, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: even_ 12 1 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int clearc_(integer *ndim, char *array, ftnlen array_len); + +extern int cleard_(integer *ndim, doublereal *array); + +extern int cleari_(integer *ndim, integer *array); + +extern doublereal clight_(void); + +extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); + +extern int conics_(doublereal *elts, doublereal *et, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ + +extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int copyd_(doublereal *cell, doublereal *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyi_(integer *cell, integer *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ + +extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyllat_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int cylrec_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *rectan); + +extern int cylsph_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *slon); + +extern doublereal dacosh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal dacosn_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ + +extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ +/*:ref: dafarr_ 14 2 4 4 */ + +extern int dafah_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, integer *unit, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dafonw_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dafcls_(integer *handle); +extern int dafhsf_(integer *handle, integer *nd, integer *ni); +extern int dafhlu_(integer *handle, integer *unit); +extern int dafluh_(integer *unit, integer *handle); +extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); +extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dafhof_(integer *fhset); +extern int dafsih_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); +extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); +extern int dafada_(doublereal *data, integer *n); +extern int dafena_(void); +extern int dafcad_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafwda_ 14 4 4 4 4 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ + +extern int dafarr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ + +extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ + +extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); +extern int dafbfs_(integer *handle); +extern int daffna_(logical *found); +extern int dafbbs_(integer *handle); +extern int daffpa_(logical *found); +extern int dafgs_(doublereal *sum); +extern int dafgn_(char *name__, ftnlen name_len); +extern int dafgh_(integer *handle); +extern int dafrs_(doublereal *sum); +extern int dafrn_(char *name__, ftnlen name_len); +extern int dafws_(doublereal *sum); +extern int dafcs_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ + +extern int dafgda_(integer *handle, integer *baddr, integer *eaddr, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); +extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int dafra_(integer *handle, integer *iorder, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isordv_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafws_ 14 1 7 */ +/*:ref: dafrn_ 14 2 13 124 */ + +extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ + +extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dafrrr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); +extern int dafarw_(integer *addr__, integer *recno, integer *wordno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); +extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); +extern int dafnrr_(integer *reads, integer *reqs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: minai_ 14 4 4 4 4 4 */ +/*:ref: zzdafgdr_ 14 4 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafena_ 14 0 */ + +extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ + +extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasacr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: readla_ 14 6 4 4 4 13 12 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ +/*:ref: dasac_ 14 4 4 4 13 124 */ + +extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: daswrc_ 14 4 4 4 13 124 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadd_(integer *handle, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: daswrd_ 14 3 4 4 7 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadi_(integer *handle, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: wrencc_ 14 4 4 4 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dascls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dashof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dassdr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dascud_(integer *handle, integer *type__, integer *nwords); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ + +extern int dasdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasrcr_ 14 2 4 4 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ + +extern int dasecu_(integer *handle, integer *comlun, logical *comnts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasec_ 14 6 4 4 4 13 12 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ + +extern int dasfm_(char *fname, char *ftype, char *ifname, integer *handle, integer *unit, integer *free, integer *lastla, integer *lastrc, integer *lastwd, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dasops_(integer *handle); +extern int dasllc_(integer *handle); +extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dashlu_(integer *handle, integer *unit); +extern int dasluh_(integer *unit, integer *handle); +extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); +extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dashof_(integer *fhset); +extern int dassih_(integer *handle, char *access, ftnlen access_len); +extern int dasham_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern doublereal dasine_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrcr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ + +extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrd_ 14 5 4 4 4 4 7 */ + +extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrwr_(integer *handle, integer *recno, char *recc, doublereal *recd, integer *reci, integer *first, integer *last, doublereal *datad, integer *datai, char *datac, ftnlen recc_len, ftnlen datac_len); +extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswrd_(integer *handle, integer *recno, doublereal *recd); +extern int daswri_(integer *handle, integer *recno, integer *reci); +extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); +extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswbr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzdasgrd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int dassdr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencc_ 14 4 4 4 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ + +extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ + +extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ + +extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern doublereal datanh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dazldr_(doublereal *x, doublereal *y, doublereal *z__, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ + +extern doublereal dcbrt_(doublereal *x); + +extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int delfil_(char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: getlun_ 14 1 4 */ + +extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern doublereal det_(doublereal *m1); + +extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern doublereal dhfa_(doublereal *state, doublereal *bodyr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rquad_ 14 5 7 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ + +extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int diffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabbs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabfs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabns_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int dlaens_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlafns_(integer *handle, integer *dladsc, integer *nxtdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlafps_(integer *handle, integer *dladsc, integer *prvdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2); + +extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdnpt_ 14 8 7 7 7 7 7 7 7 12 */ + +extern int dp2hx_(doublereal *number, char *hxstr, integer *hxssiz, ftnlen hxstr_len); +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ + +extern doublereal dpr_(void); + +extern int dpspce_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ + +extern int drdazl_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ + +extern int drdcyl_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *jacobi); + +extern int drdgeo_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int drdlat_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *jacobi); + +extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ + +extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *jacobi); + +extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskcls_(integer *handle, logical *optmiz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int dskobj_(char *dskfnm, integer *bodids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ + +extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dsksrf_(char *dskfnm, integer *bodyid, integer *srfids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dsktol_(integer *keywrd, doublereal *dpval); +extern int dskgtl_(integer *keywrd, doublereal *dpval); +extern int dskstl_(integer *keywrd, doublereal *dpval); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: return_ 12 0 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ + +extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dlabns_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dlaens_ 14 1 4 */ + +extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ +/*:ref: zztogrid_ 14 4 7 7 7 7 */ +/*:ref: xdda_ 14 6 7 7 4 4 4 4 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: insang_ 14 6 7 7 7 7 12 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ + +extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */ + +extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ + +extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dvcrss_ 14 3 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ + +extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern doublereal dvdot_(doublereal *s1, doublereal *s2); + +extern int dvhat_(doublereal *s1, doublereal *sout); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern doublereal dvnorm_(doublereal *state); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern doublereal dvsep_(doublereal *s1, doublereal *s2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzdiv_ 7 2 7 7 */ + +extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep); +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */ + +extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int ekaclc_(integer *handle, integer *segno, char *column, char *cvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ +/*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ + +extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ +/*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ +/*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ + +extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ + +extern int ekappr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: ekinsr_ 14 3 4 4 4 */ + +extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxdfid_ 14 1 4 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekpdec_ 14 3 13 4 124 */ +/*:ref: zzekstyp_ 4 2 4 4 */ +/*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ +/*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ + +extern int ekcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekdelr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekde01_ 14 4 4 4 4 4 */ +/*:ref: zzekde02_ 14 4 4 4 4 4 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekff01_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ + +extern int ekifld_(integer *handle, char *tabnam, integer *ncols, integer *nrows, char *cnames, char *decls, integer *segno, integer *rcptrs, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekif01_ 14 3 4 4 4 */ +/*:ref: zzekif02_ 14 2 4 4 */ + +extern int ekinsr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ + +extern integer eknseg_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrsz_ 4 2 4 4 */ + +extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekops_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopw_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekpsel_(char *query, integer *n, integer *xbegs, integer *xends, char *xtypes, char *xclass, char *tabs, char *cols, logical *error, char *errmsg, ftnlen query_len, ftnlen xtypes_len, ftnlen xclass_len, ftnlen tabs_len, ftnlen cols_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int ekqmgr_(integer *cindex, integer *elment, char *eqryc, doublereal *eqryd, integer *eqryi, char *fname, integer *row, integer *selidx, char *column, integer *handle, integer *n, char *table, integer *attdsc, integer *ccount, logical *found, integer *nelt, integer *nmrows, logical *semerr, char *errmsg, char *cdata, doublereal *ddata, integer *idata, logical *null, ftnlen eqryc_len, ftnlen fname_len, ftnlen column_len, ftnlen table_len, ftnlen errmsg_len, ftnlen cdata_len); +extern int eklef_(char *fname, integer *handle, ftnlen fname_len); +extern int ekuef_(integer *handle); +extern int ekntab_(integer *n); +extern int ektnam_(integer *n, char *table, ftnlen table_len); +extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); +extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); +extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); +extern int eknelt_(integer *selidx, integer *row, integer *nelt); +extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); +extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); +extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: ekcls_ 14 1 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: appndc_ 14 4 13 13 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekqcnj_ 14 3 4 4 4 */ +/*:ref: zzekqcon_ 14 24 4 13 7 4 4 13 4 13 4 4 13 4 13 4 4 4 4 7 4 124 124 124 124 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekrplk_ 14 4 4 4 4 4 */ +/*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ +/*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekweed_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ + +extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int ekshdw_(integer *handle, logical *isshad); + +extern int ekssum_(integer *handle, integer *segno, char *tabnam, integer *nrows, integer *ncols, char *cnames, char *dtypes, integer *sizes, integer *strlns, logical *indexd, logical *nullok, ftnlen tabnam_len, ftnlen cnames_len, ftnlen dtypes_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ + +extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); +/*:ref: vequ_ 14 2 7 7 */ + +extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int enchar_(integer *number, char *string, ftnlen string_len); +extern int dechar_(char *string, integer *number, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbase_ 4 0 */ + +extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); +extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kepleq_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: putact_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: putdev_ 14 2 13 124 */ + +extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errhan_(char *marker, integer *handle, ftnlen marker_len); +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errint_(char *marker, integer *intnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: setprt_ 12 5 12 12 12 12 12 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int et2lst_(doublereal *et, integer *body, doublereal *lon, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int etcal_(doublereal *et, char *calstr, ftnlen calstr_len); +/*:ref: spd_ 7 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: lstlti_ 4 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ + +extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ + +extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern logical even_(integer *ival); + +extern int evsgp4_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ + +extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); + +extern int excess_(integer *number, char *struct__, ftnlen struct_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical exists_(char *fname, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); + +extern integer fetchc_(integer *nth, char *set, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchd_(integer *nth, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchi_(integer *nth, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern int filld_(doublereal *value, integer *ndim, doublereal *array); + +extern int filli_(integer *value, integer *ndim, integer *array); + +extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int fndlun_(integer *unit); +extern int reslun_(integer *unit); +extern int frelun_(integer *unit); + +extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); + +extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int frame_(doublereal *x, doublereal *y, doublereal *z__); +/*:ref: vhatip_ 14 1 7 */ + +extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); +extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); +extern int frinfo_(integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found); +extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); +extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int ccifrm_(integer *frclss, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frmget_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer frstnb_(char *string, ftnlen string_len); + +extern integer frstnp_(char *string, ftnlen string_len); + +extern integer frstpc_(char *string, ftnlen string_len); + +extern integer gcd_(integer *a, integer *b); + +extern int georec_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: zzckspk_ 14 3 4 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int getfvn_(char *inst, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen inst_len, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 7 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfov_ 14 9 7 4 13 13 7 4 7 124 124 */ + +extern int getlun_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical gfbail_(void); + +extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */ +/*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */ + +extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t); +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time); +extern int gfrepf_(void); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */ +/*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgfwkin_ 14 1 7 */ +/*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ + +extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfstep_(doublereal *time, doublereal *step); +extern int gfsstp_(doublereal *step); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int gfstol_(doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern doublereal halfpi_(void); + +extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ + +extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: intmin_ 4 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int ident_(doublereal *matrix); + +extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ + +extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */ +/*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pl2psv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ + +extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrti_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); + +extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int interd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int interi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int intord_(integer *n, char *string, ftnlen string_len); +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int intstr_(integer *number, char *string, ftnlen string_len); + +extern int inttxt_(integer *n, char *string, ftnlen string_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int invert_(doublereal *m, doublereal *mout); +/*:ref: det_ 7 1 7 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern int invort_(doublereal *m, doublereal *mit); +/*:ref: dpmax_ 7 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int invstm_(doublereal *mat, doublereal *invmat); +/*:ref: xposbl_ 14 5 7 4 4 4 7 */ + +extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ + +extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical isopen_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical isordv_(integer *array, integer *n); + +extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer isrchi_(integer *value, integer *ndim, integer *array); + +extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern doublereal j1900_(void); + +extern doublereal j1950_(void); + +extern doublereal j2000_(void); + +extern doublereal j2100_(void); + +extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); +extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal jyear_(void); + +extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *srcfil, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int furnsh_(char *file, ftnlen file_len); +extern int ktotal_(char *kind, integer *count, ftnlen kind_len); +extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kinfo_(char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kclear_(void); +extern int unload_(char *file, ftnlen file_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ +/*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dvpool_ 14 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: spkuef_ 14 1 4 */ +/*:ref: ckupf_ 14 1 4 */ +/*:ref: pckuof_ 14 1 4 */ +/*:ref: ekuef_ 14 1 4 */ +/*:ref: zzdskusf_ 14 1 4 */ +/*:ref: clpool_ 14 0 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kpsolv_ 7 1 7 */ + +extern int kplfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: validi_ 14 3 4 4 4 */ + +extern doublereal kpsolv_(doublereal *evec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *wordsq, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen wordsq_len, ftnlen substr_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ + +extern integer lastnb_(char *string, ftnlen string_len); + +extern integer lastpc_(char *string, ftnlen string_len); + +extern int latcyl_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int latrec_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rectan); + +extern int latsph_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *slon); +/*:ref: halfpi_ 7 0 */ + +extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int lnkan_(integer *pool, integer *new__); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkfsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkhl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkila_(integer *prev, integer *list, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkilb_(integer *list, integer *next, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkini_(integer *size, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnknfn_(integer *pool); + +extern integer lnknxt_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkprv_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnksiz_(integer *pool); + +extern integer lnktl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkxsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnksiz_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ + +extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ + +extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); + +extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); + +extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ + +extern integer lstcld_(doublereal *x, integer *n, doublereal *array); + +extern integer lstcli_(integer *x, integer *n, integer *array); + +extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstled_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlei_(integer *x, integer *n, integer *array); + +extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstltd_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlti_(integer *x, integer *n, integer *array); + +extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ + +extern integer ltrim_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4dec_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ + +extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); + +extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len); +extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +extern int lxdfid_(integer *idspec); +extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ + +extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); + +extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int m2q_(doublereal *r__, doublereal *q); +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ +/*:ref: nechr_ 12 4 13 13 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ + +extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); + +extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); + +extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); + +extern int mequ_(doublereal *m1, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); + +extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); + +extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); + +extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); + +extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); + +extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); + +extern int mtxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); + +extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1r2, integer *nc2, doublereal *mout); + +extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); + +extern int mxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); + +extern integer nblen_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); + +extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: reordd_ 14 3 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ + +extern logical notru_(logical *logcls, integer *n); + +extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); +/*:ref: dpmax_ 7 0 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: pi_ 7 0 */ + +extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: pjelpl_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: npelpt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjpi_ 14 5 7 7 7 7 12 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); + +extern int nvc2pl_(doublereal *normal, doublereal *konst, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfocst_ 14 2 7 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical odd_(integer *ival); + +extern logical opsgnd_(doublereal *x, doublereal *y); + +extern logical opsgni_(integer *x, integer *y); + +extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer ordd_(doublereal *item, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderd_(doublereal *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderi_(integer *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern integer ordi_(integer *item, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dacosh_ 7 1 7 */ + +extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: oscelt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int outmsg_(char *list, ftnlen list_len); +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: trcdep_ 14 1 4 */ +/*:ref: trcnam_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int partof_(doublereal *ma, doublereal *d__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int pck03e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); +extern int pckuof_(integer *handle); +extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int pckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckcov_(char *pckfnm, integer *idcode, doublereal *cover, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckfrm_(char *pckfnm, integer *ids, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pckr03_ 14 4 4 7 7 7 */ +/*:ref: pcke03_ 14 3 7 7 7 */ +/*:ref: pckr20_ 14 4 4 7 7 7 */ +/*:ref: pcke20_ 14 3 7 7 7 */ + +extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckw02_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); + +extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ + +extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern doublereal pi_(void); + +extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *konst); +/*:ref: vequ_ 14 2 7 7 */ + +extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ + +extern integer plnsns_(integer *bodid); +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts); + +extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npsgpt_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ + +extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: det_ 7 1 7 */ + +extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); + +extern int pool_(char *fname, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen fname_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int clpool_(void); +extern int ldpool_(char *fname, ftnlen fname_len); +extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int expool_(char *name__, logical *found, ftnlen name_len); +extern int wrpool_(integer *unit); +extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); +extern int cvpool_(char *agent, logical *update, ftnlen agent_len); +extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); +extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); +extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); +extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); +extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); +extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); +extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); +extern int dvpool_(char *name__, ftnlen name_len); +extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int dwpool_(char *agent, ftnlen agent_len); +extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int zzpctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: rdknew_ 14 2 13 124 */ +/*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lstltc_ 4 5 13 4 13 124 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: removc_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ + +extern doublereal prodad_(doublereal *array, integer *n); + +extern integer prodai_(integer *array, integer *n); + +extern int prompt_(char *dspmsg, char *buffer, ftnlen dspmsg_len, ftnlen buffer_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: stmp03_ 14 5 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prsint_(char *string, integer *intval, ftnlen string_len); +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prtenc_(integer *number, char *string, ftnlen string_len); +extern int prtdec_(char *string, integer *number, ftnlen string_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); +extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); +extern logical msgsel_(char *type__, ftnlen type_len); +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ + +extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int putact_(integer *action); +extern int getact_(integer *action); + +extern int putdev_(char *device, ftnlen device_len); +extern int getdev_(char *device, ftnlen device_len); + +extern int putlms_(char *msg, ftnlen msg_len); +extern int getlms_(char *msg, ftnlen msg_len); + +extern int putsms_(char *msg, ftnlen msg_len); +extern int getsms_(char *msg, ftnlen msg_len); + +extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int q2m_(doublereal *q, doublereal *r__); + +extern int qderiv_(integer *ndim, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ + +extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: qxq_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2q_ 14 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); +extern int rdknew_(char *kernel, ftnlen kernel_len); +extern int rdkdat_(char *line, logical *eof, ftnlen line_len); +extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzsetnnread_ 14 1 12 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ + +extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ + +extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +extern int cltext_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: getlun_ 14 1 4 */ + +extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ + +extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int recazl_(doublereal *rectan, logical *azccw, logical *elplsz, doublereal *range, doublereal *az, doublereal *el); +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *clon, doublereal *z__); +/*:ref: twopi_ 7 0 */ + +extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *slon); + +extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: rotget_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); + +extern int reordd_(integer *iorder, integer *ndim, doublereal *array); + +extern int reordi_(integer *iorder, integer *ndim, integer *array); + +extern int reordl_(integer *iorder, integer *ndim, logical *array); + +extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); + +extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmct_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repml_(char *in, char *marker, logical *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmot_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intord_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ + +extern int reset_(void); +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ + +extern logical return_(void); +/*:ref: failed_ 12 0 */ +/*:ref: getact_ 14 1 4 */ + +extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); +/*:ref: shellc_ 14 3 4 13 124 */ + +extern int rmdupd_(integer *nelt, doublereal *array); +/*:ref: shelld_ 14 2 4 7 */ + +extern int rmdupi_(integer *nelt, integer *array); +/*:ref: shelli_ 14 2 4 4 */ + +extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); + +extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); + +extern doublereal rpd_(void); + +extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern integer rtrim_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: diags2_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); + +extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical sameai_(integer *a1, integer *a2, integer *ndim); + +extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); +/*:ref: nechr_ 12 4 13 13 124 124 */ + +extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); + +extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, integer *npartn, doublereal *parbeg, doublereal *parend, integer *clktyp, ftnlen clkstr_len); +extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); +extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scty01_(integer *sc, integer *clktyp); +extern int scpr01_(integer *sc, integer *npartn, doublereal *parbeg, doublereal *parend); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzscup01_ 14 21 4 4 4 4 4 4 7 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); +extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); +/*:ref: isrchi_ 4 3 4 4 4 */ + +extern int scardc_(integer *card, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int scardd_(integer *card, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scardi_(integer *card, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: scfmt_ 14 4 4 7 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scec01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sce2t_ 14 3 4 7 7 */ +/*:ref: scdecd_ 14 4 4 7 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scet01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sctiks_ 14 4 4 13 7 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scfm01_ 14 4 4 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); +extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); +extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ + +extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ + +extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpr01_ 14 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scencd_ 14 4 4 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scte01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: sctk01_ 14 4 4 13 7 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern integer sctype_(integer *sc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scty01_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical seterr_(logical *status); +extern logical failed_(void); + +extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int setmsg_(char *msg, ftnlen msg_len); +/*:ref: allowd_ 12 0 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len); +extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); +extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); +extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwes_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafcad_ 14 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafena_ 14 0 */ + +extern int sharpr_(doublereal *rot); +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int shellc_(integer *ndim, char *array, ftnlen array_len); +/*:ref: swapc_ 14 4 13 13 124 124 */ + +extern int shelld_(integer *ndim, doublereal *array); +/*:ref: swapd_ 14 2 7 7 */ + +extern int shelli_(integer *ndim, integer *array); +/*:ref: swapi_ 14 2 4 4 */ + +extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ + +extern int sigerr_(char *msg, ftnlen msg_len); +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: freeze_ 14 0 */ +/*:ref: outmsg_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ +/*:ref: byebye_ 14 2 13 124 */ + +extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */ + +extern integer sizec_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sized_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sizei_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical smsgnd_(doublereal *x, doublereal *y); + +extern logical smsgni_(integer *x, integer *y); + +extern logical somfls_(logical *logcls, integer *n); + +extern logical somtru_(logical *logcls, integer *n); + +extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: spct2b_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ +/*:ref: countc_ 4 5 4 4 4 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafarr_ 14 2 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: spcb2t_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: spcec_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spcdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcec_(integer *handle, integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int spcopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); +extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dafopw_ 14 3 13 4 124 */ +/*:ref: spcac_ 14 6 4 4 13 13 124 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern doublereal spd_(void); + +extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slon, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *radius, doublereal *lon, doublereal *lat); +/*:ref: halfpi_ 7 0 */ + +extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *rectan); + +extern doublereal sphsd_(doublereal *radius, doublereal *lon1, doublereal *lat1, doublereal *lon2, doublereal *lat2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int spk14e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int spklef_(char *fname, integer *handle, ftnlen fname_len); +extern int spkuef_(integer *handle); +extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int spkcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcov_(char *spkfnm, integer *idcode, doublereal *cover, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spke01_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbint_ 14 6 7 4 7 7 7 7 */ + +extern int spke03_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ + +extern int spke05_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke08_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ + +extern int spke09_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke10_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzteme_ 14 3 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke12_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke13_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke14_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ + +extern int spke18_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spke19_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbigr_ 14 6 4 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int spke21_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int spkezr_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *starg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int spkobj_(char *spkfnm, integer *ids, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkopa_(char *file, integer *handle, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafopw_ 14 3 13 4 124 */ + +extern int spkopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int spkpos_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *ptarg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: spkr01_ 14 4 4 7 7 7 */ +/*:ref: spke01_ 14 3 7 7 7 */ +/*:ref: spkr02_ 14 4 4 7 7 7 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: spkr03_ 14 4 4 7 7 7 */ +/*:ref: spke03_ 14 3 7 7 7 */ +/*:ref: spkr05_ 14 4 4 7 7 7 */ +/*:ref: spke05_ 14 3 7 7 7 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: spke08_ 14 3 7 7 7 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: spke09_ 14 3 7 7 7 */ +/*:ref: spkr10_ 14 4 4 7 7 7 */ +/*:ref: spke10_ 14 3 7 7 7 */ +/*:ref: spkr12_ 14 4 4 7 7 7 */ +/*:ref: spke12_ 14 3 7 7 7 */ +/*:ref: spkr13_ 14 4 4 7 7 7 */ +/*:ref: spke13_ 14 3 7 7 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkr14_ 14 4 4 7 7 7 */ +/*:ref: spke14_ 14 3 7 7 7 */ +/*:ref: spkr15_ 14 4 4 7 7 7 */ +/*:ref: spke15_ 14 3 7 7 7 */ +/*:ref: spkr17_ 14 4 4 7 7 7 */ +/*:ref: spke17_ 14 3 7 7 7 */ +/*:ref: spkr18_ 14 4 4 7 7 7 */ +/*:ref: spke18_ 14 3 7 7 7 */ +/*:ref: spkr19_ 14 4 4 7 7 7 */ +/*:ref: spke19_ 14 3 7 7 7 */ +/*:ref: spkr20_ 14 4 4 7 7 7 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: spkr21_ 14 4 4 7 7 7 */ +/*:ref: spke21_ 14 3 7 7 7 */ + +extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: spk14a_ 14 4 4 4 7 7 */ +/*:ref: spk14e_ 14 1 4 */ + +extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: spks01_ 14 5 4 4 4 7 7 */ +/*:ref: dafena_ 14 0 */ +/*:ref: spks02_ 14 5 4 4 4 7 7 */ +/*:ref: spks03_ 14 5 4 4 4 7 7 */ +/*:ref: spks05_ 14 5 4 4 4 7 7 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: spks10_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks12_ 14 5 4 4 4 7 7 */ +/*:ref: spks13_ 14 5 4 4 4 7 7 */ +/*:ref: spks14_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks15_ 14 5 4 4 4 7 7 */ +/*:ref: spks17_ 14 5 4 4 4 7 7 */ +/*:ref: spks18_ 14 5 4 4 4 7 7 */ +/*:ref: spks19_ 14 5 4 4 4 7 7 */ +/*:ref: spks20_ 14 5 4 4 4 7 7 */ +/*:ref: spks21_ 14 5 4 4 4 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *baddrs, integer *eaddrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkw01_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw02_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw03_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw05_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *gm, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw09_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw10_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *consts, integer *n, doublereal *elems, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw13_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw15_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *tp, doublereal *pa, doublereal *p, doublereal *ecc, doublereal *j2flg, doublereal *pv, doublereal *gm, doublereal *j2, doublereal *radius, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw17_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw18_(integer *handle, integer *subtyp, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *packts, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int srfrec_(integer *body, doublereal *lon, doublereal *lat, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ + +extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfxpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *dist, doublereal *trgepc, doublereal *obspos, logical *found, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int ssizec_(integer *size, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int ssized_(integer *size, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ssizei_(integer *size, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: ekcls_ 14 1 4 */ + +extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ +/*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ +/*:ref: rpd_ 7 0 */ + +extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern int stdio_(char *name__, integer *unit, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stpool_(char *item, integer *nth, char *contin, char *nthstr, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen nthstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int str2et_(char *timstr, doublereal *et, ftnlen timstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: tchckd_ 14 2 13 124 */ +/*:ref: tparch_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ + +extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int subpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *alt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int subsol_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ + +extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern doublereal sumad_(doublereal *array, integer *n); + +extern integer sumai_(integer *array, integer *n); + +extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ + +extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: cyadip_ 14 5 4 13 4 7 124 */ + +extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: cyaiip_ 14 5 4 13 4 4 124 */ + +extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int swapd_(doublereal *a, doublereal *b); + +extern int swapi_(integer *a, integer *b); + +extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupc_(char *name__, char *copy, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetc_(char *name__, char *tabsym, integer *tabptr, char *tabval, integer *n, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthc_(char *name__, integer *nth, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shellc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelld_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopc_(char *name__, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syputc_(char *name__, char *values, integer *n, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen values_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ + +extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ + +extern int syrenc_(char *old, char *new__, char *tabsym, integer *tabptr, char *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapad_ 14 5 4 4 4 4 7 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syselc_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, char *tabval, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseld_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseli_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, integer *tabval, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnc_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnd_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrni_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tangpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, char *dref, doublereal *dvec, doublereal *tanpt, doublereal *alt, doublereal *range, doublereal *srfpt, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vrel_ 7 2 7 7 */ + +extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); +extern int tparch_(char *type__, ftnlen type_len); +extern int tchckd_(char *type__, ftnlen type_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int texpyr_(integer *year); +extern int tsetyr_(integer *year); + +extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ + +extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scanpr_ 14 5 4 13 4 4 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: pckmat_ 14 5 4 7 4 7 12 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int tkfram_(integer *frcode, doublereal *rot, integer *frame, logical *found); +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: locati_ 14 6 4 4 4 4 4 12 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: sharpr_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ + +extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int tostdo_(char *line, ftnlen line_len); +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: writln_ 14 3 13 4 124 */ + +extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); + +extern doublereal touchd_(doublereal *dp); + +extern integer touchi_(integer *int__); + +extern logical touchl_(logical *log__); + +extern int tparse_(char *string, doublereal *sp2000, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int tpartv_(char *string, doublereal *tvec, integer *ntvec, char *type__, char *modify, logical *mods, logical *yabbrv, logical *succes, char *pictur, char *error, ftnlen string_len, ftnlen type_len, ftnlen modify_len, ftnlen pictur_len, ftnlen error_len); +/*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ +/*:ref: zztokns_ 12 4 13 13 124 124 */ +/*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzrept_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ +/*:ref: zzist_ 12 2 13 124 */ +/*:ref: zznote_ 12 4 13 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ +/*:ref: zzgrep_ 12 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzispt_ 12 4 13 4 4 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern int tpictr_(char *sample, char *pictur, logical *ok, char *errmsg, ftnlen sample_len, ftnlen pictur_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ + +extern doublereal trace_(doublereal *matrix); + +extern doublereal traceg_(doublereal *matrix, integer *ndim); + +extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); +extern int chkin_(char *module, ftnlen module_len); +extern int chkout_(char *module, ftnlen module_len); +extern int trcdep_(integer *depth); +extern int trcmxd_(integer *depth); +extern int trcnam_(integer *index, char *name__, ftnlen name_len); +extern int qcktrc_(char *trace, ftnlen trace_len); +extern int freeze_(void); +extern int trcoff_(void); +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern doublereal trgsep_(doublereal *et, char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspin_ 14 20 13 13 13 13 13 13 13 13 4 4 7 4 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordi_ 14 3 4 4 4 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal twopi_(void); + +extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern doublereal tyear_(void); + +extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: uddf_ 14 4 200 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int udf_(doublereal *x, doublereal *value); + +extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int unioni_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: somfls_ 12 2 12 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: setc_ 12 6 13 13 13 124 124 124 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ + +extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); +/*:ref: vnorm_ 7 1 7 */ + +extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ + +extern int validd_(integer *size, integer *n, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int validi_(integer *size, integer *n, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupi_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern doublereal vdist_(doublereal *v1, doublereal *v2); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern doublereal vdot_(doublereal *v1, doublereal *v2); + +extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern int vequ_(doublereal *vin, doublereal *vout); + +extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vhat_(doublereal *v1, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vhatip_(doublereal *v); +/*:ref: vnorm_ 7 1 7 */ + +extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); + +extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vminus_(doublereal *v1, doublereal *vout); + +extern doublereal vnorm_(doublereal *v1); + +extern doublereal vnormg_(doublereal *v1, integer *ndim); + +extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); + +extern int vperp_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int vproj_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern doublereal vrel_(doublereal *v1, doublereal *v2); +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); + +extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); + +extern int vsclip_(doublereal *s, doublereal *v); + +extern doublereal vsep_(doublereal *v1, doublereal *v2); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: pi_ 7 0 */ + +extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: pi_ 7 0 */ + +extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); + +extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); + +extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); + +extern logical vzero_(doublereal *v); + +extern logical vzerog_(doublereal *v, integer *ndim); + +extern integer wdcnt_(char *string, ftnlen string_len); + +extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer wncard_(doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int wncond_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical wnelmd_(doublereal *point, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnextd_(char *side, doublereal *window, ftnlen side_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfild_(doublereal *smlgap, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfltd_(doublereal *smlint, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: wnincd_ 12 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *idxsml, integer *idxlon); +/*:ref: return_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnvald_(integer *size, integer *n, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dp2hx_ 14 4 7 13 4 124 */ + +extern int wrenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ + +extern int writln_(char *line, integer *unit, ftnlen line_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ +/*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); +extern int clline_(char *device, ftnlen device_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzingrd_ 12 2 4 4 */ + +extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); +extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: sphrec_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: dcyldr_ 14 4 7 7 7 7 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ +/*:ref: dsphdr_ 14 4 7 7 7 7 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int xpose_(doublereal *m1, doublereal *mout); + +extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); + +extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); + +extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzbodblt_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, char *device, char *reqst, ftnlen names_len, ftnlen nornam_len, ftnlen device_len, ftnlen reqst_len); +extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); +extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzidmap_ 14 3 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ + +extern integer zzbodbry_(integer *body); + +extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ + +extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: zzbctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len); +extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +extern int zzboddef_(char *name__, integer *code, ftnlen name_len); +extern int zzbodkik_(void); +extern int zzbodrst_(void); +extern int zzbctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat); +/*:ref: return_ 12 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); + +extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); + +extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errint_ 14 3 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */ + +extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int zzcputim_(doublereal *tvec); +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzctr_(integer *newctr, integer *oldctr, logical *update); +extern int zzctruin_(integer *oldctr); +extern int zzctrsin_(integer *oldctr); +extern int zzctrinc_(integer *oldctr); +extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ + +extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafgfr_(integer *handle, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, logical *found, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafnfr_(integer *lun, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ + +extern int zzdasgri_(integer *handle, integer *recno, integer *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdasnfr_(integer *lun, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern integer zzddhclu_(logical *utlck, integer *nut); + +extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhmnm_ 7 1 4 */ + +extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); +/*:ref: return_ 12 0 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: frelun_ 14 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); +/*:ref: return_ 12 0 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ + +extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); + +extern int zzddhman_(logical *lock, char *arch, char *fname, char *method, integer *handle, integer *unit, integer *intamh, integer *intarc, integer *intbff, logical *native, logical *found, logical *kill, ftnlen arch_len, ftnlen fname_len, ftnlen method_len); +extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); +extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); +extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); +extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); +extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); +extern int zzddhisn_(integer *handle, logical *native, logical *found); +extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); +extern int zzddhluh_(integer *unit, integer *handle, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzpltchk_ 14 1 12 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhclu_ 4 2 12 4 */ +/*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: frelun_ 14 1 4 */ + +extern doublereal zzddhmnm_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzddhnfc_(integer *natbff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhppf_(integer *unit, integer *arch, integer *bff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzftpchk_ 14 3 13 12 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzddhivf_ 14 4 13 4 12 124 */ + +extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); +/*:ref: intmax_ 4 0 */ + +extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reslun_ 14 1 4 */ + +extern doublereal zzdiv_(doublereal *numr, doublereal *denom); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdnpt_(doublereal *state, doublereal *nearp, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vtmv_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbbl_(integer *bodyid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len); +extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len); +extern int zzdskusf_(integer *handle); +extern int zzdskbss_(integer *bodyid); +extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found); +extern int zzdskchk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dlabbs_ 14 3 4 4 12 */ +/*:ref: dlafps_ 14 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzdsksbd_ 12 1 4 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ + +extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal); +extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found); +extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found); +extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */ + +extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksbd_(integer *bodyid); +extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et); +extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos); +extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: touchi_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern doublereal zzdsksgr_(doublereal *dskdsc); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksbd_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: prsint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynoac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, logical *found, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ + +extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ + +extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ + +extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekcix1_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekcix1_(integer *handle, integer *coldsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ + +extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); +/*:ref: zzekpgfr_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ + +extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ + +extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ + +extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: zzeksz04_ 4 4 4 4 4 4 */ +/*:ref: zzeksz05_ 4 4 4 4 4 4 */ +/*:ref: zzeksz06_ 4 4 4 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgei_(integer *handle, integer *addrss, integer *ival); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ + +extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrs_(integer *handle, integer *recptr, integer *status); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekif02_(integer *handle, integer *segno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ + +extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ + +extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjnxt_ 14 2 12 4 */ + +extern int zzekjsqz_(integer *jrsbas); +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec); +extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs); +extern int zzekjnxt_(logical *found, integer *rowvec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ordi_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ + +extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ + +extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ekntab_ 14 1 4 */ +/*:ref: ektnam_ 14 3 4 13 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnkhl_ 4 2 4 4 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len); +extern int zzekpgin_(integer *handle); +extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgfr_(integer *handle, integer *type__, integer *p); +extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgri_(integer *handle, integer *p, integer *pagei); +extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); +extern int zzekpgbs_(integer *type__, integer *p, integer *base); +extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); +extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: fillc_ 14 5 13 4 13 124 124 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ + +extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); + +extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len); +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); +extern int zzekstop_(integer *top); +extern int zzekspsh_(integer *n, integer *idata); +extern int zzekspop_(integer *n, integer *idata); +extern int zzeksdec_(integer *n); +extern int zzeksupd_(integer *beg, integer *end, integer *idata); +extern int zzeksrd_(integer *beg, integer *end, integer *idata); +extern int zzekscln_(void); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxcsid_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lx4num_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: frstpc_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len); +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzeksei_(integer *handle, integer *addrss, integer *ival); +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrs_(integer *handle, integer *recptr, integer *status); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern integer zzekstyp_(integer *ncols, integer *cdscrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ + +extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scn2id_ 14 4 13 4 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ + +extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); + +extern int zzektr13_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr31_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ + +extern integer zzektrbs_(integer *node); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ + +extern int zzektrdl_(integer *handle, integer *tree, integer *key); +/*:ref: zzektrud_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzektr31_ 14 2 4 4 */ + +extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ + +extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzektrfr_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); +/*:ref: zzektrui_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzektr13_ 14 2 4 4 */ + +extern int zzektrit_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern integer zzektrls_(integer *handle, integer *tree, integer *ival); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern integer zzektrnk_(integer *handle, integer *tree, integer *node); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzektrsz_(integer *handle, integer *tree); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ + +extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); +extern int zzekvset_(integer *njrs, integer *bases); +extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2); +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: sameai_ 12 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ + +extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ + +extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ + +extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: zzwind_ 4 4 7 4 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: inelpl_ 14 5 7 7 4 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzenut80_(doublereal *et, doublereal *nutxf); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzeprc76_(doublereal *et, doublereal *precxf); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ + +extern int zzeprcss_(doublereal *et, doublereal *precm); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ + +extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: zzhullax_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ + +extern int zzgetbff_(integer *bffid); + +extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ + +extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */ +/*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcog_(doublereal *et, doublereal *crdval); +extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd); +extern int zzgfcocg_(doublereal *et, doublereal *crdval); +extern int zzgfcosg_(doublereal *et, doublereal *crdval); +extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */ +/*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzrtnmat_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wncond_ 14 3 7 7 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */ + +extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfdigq_(doublereal *et, doublereal *dist); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */ + +extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvst_(doublereal *time, logical *vistat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzwind2d_ 4 3 4 7 7 */ + +extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfilgq_(doublereal *et, doublereal *angle); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ + +extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfcosg_ 14 2 7 7 */ +/*:ref: zzgfcocg_ 14 2 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzgfcog_ 14 2 7 7 */ +/*:ref: wnunid_ 14 3 7 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocst_(doublereal *time, logical *ocstat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: minad_ 14 4 7 4 7 4 */ +/*:ref: maxad_ 14 4 7 4 7 4 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzminrad_ 14 1 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ + +extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfpagq_(doublereal *et, doublereal *rvl); +extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern int zzgfref_(doublereal *refval); +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: zzgfref_ 14 1 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +extern int zzgftswk_(doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkin_(doublereal *incr); +extern int zzgfwkad_(doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkun_(integer *unit); +extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzcputim_ 14 1 7 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvnorm_ 7 1 7 */ + +extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfrrgq_(doublereal *et, doublereal *rvl); +extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */ + +extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len); +extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfspgq_(doublereal *et, doublereal *sep); +extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: dhfa_ 7 2 7 7 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgftreb_(integer *body, doublereal *axes); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgrav_(doublereal *grav); + +extern integer zzhashi_(integer *n, integer *m); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len); +extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len); +extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len); +extern int zzhscavl_(integer *collst, integer *avail); +extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len); +extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__); +extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat); +extern int zzhsiavl_(integer *collst, integer *avail); +extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ + +extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); + +extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ + +extern logical zzingrd_(integer *nvox, integer *voxel); + +extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside); +/*:ref: twopi_ 7 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ + +extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); + +extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodkik_ 14 0 */ + +extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ + +extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); + +extern doublereal zzmult_(doublereal *a, doublereal *b); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ + +extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp); +extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); +extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); +extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ + +extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax); +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ + +extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); +extern integer zzshsh_(integer *m); +extern integer zzhash_(char *word, ftnlen word_len); +extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); +/*:ref: intmax_ 4 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzshsh_ 4 1 4 */ +/*:ref: touchi_ 4 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzpltchk_(logical *ok); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzgetbff_ 14 1 4 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: srfscc_ 14 5 13 4 4 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlassg_ 12 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len); +/*:ref: posr_ 4 5 13 13 4 124 124 */ + +extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: sumai_ 4 2 4 4 */ + +extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ + +extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzrtnmat_(doublereal *v, doublereal *m); +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ + +extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rdklin_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); +/*:ref: ident_ 14 1 7 */ + +extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzryxsph_ 14 5 7 7 7 7 12 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: zzpdpltc_ 12 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ + +extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzscad01_(integer *sc, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *sclkat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ + +extern int zzscin01_(integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, integer *ifree, integer *prvsc); +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern logical zzsclk_(integer *ckid, integer *sclkid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: removi_ 14 2 4 4 */ + +extern int zzscup01_(integer *sc, integer *polctr, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *prvsc, integer *nfield, integer *delcde, integer *timsys, integer *ncoeff, integer *npart, integer *cofbas, integer *strbas, integer *endbas, integer *modbas, integer *offbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzscad01_ 14 10 4 4 4 4 4 7 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt); + +extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal zzsepq_(doublereal *et, integer *bod1, integer *bod2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: opsgnd_ 12 2 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state); +extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode); +extern int xxsgp4e_(doublereal *t, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */ +/*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: pi_ 7 0 */ + +extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist); +extern int zzsuelin_(integer *trgcde); +extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid); +extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found); +extern int zzmaxrad_(doublereal *maxrad); +extern int zzminrad_(doublereal *minrad); +extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ + +extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int zzspin_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, integer *bods, integer *frames, doublereal *mxrad, integer *obs, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ + +extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ + +extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */ + +extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len); +extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len); +extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len); +extern int zzsrftrk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr); +/*:ref: return_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int zzswfcln_(integer *hdfram, integer *frpool, integer *basbeg, integer *framat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzswffet_(integer *framid, integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *bascnt, logical *usetim, logical *binary, integer *clsses, integer *clsids, integer *baslst, doublereal *starts, doublereal *stops, integer *framat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzswfcln_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ + +extern int zzswfini_(integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *prvat, integer *prvfrm, logical *samfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzswfxfm_(integer *infrm, doublereal *et, integer *ndim, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzswfini_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzswffet_ 14 15 4 4 4 4 4 4 4 12 12 4 4 4 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: ident_ 14 1 7 */ + +extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */ +/*:ref: cardd_ 4 1 7 */ + +extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point); +extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis); +extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: pi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzteme_(doublereal *et, doublereal *j2tm, doublereal *tm2j); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len); +extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); +extern logical zzgrep_(char *string, ftnlen string_len); +extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); +extern logical zzist_(char *letter, ftnlen letter_len); +extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); +extern logical zzremt_(char *letter, ftnlen letter_len); +extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); +extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); +extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len); +extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ + +extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: ducrss_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer zzvox2id_(integer *vixyz, integer *nvox); + +extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len); +extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); +extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ + +extern int zzwahr_(doublereal *et, doublereal *dvnut); +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: spd_ 7 0 */ + +extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vsepg_ 7 3 7 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: twopi_ 7 0 */ + +extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ + + +#ifdef __cplusplus + } +#endif + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZim.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZim.h new file mode 100644 index 000000000..51aa182b8 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZim.h @@ -0,0 +1,1686 @@ +/* + +-Header_File SpiceZim.h ( CSPICE interface macros ) + +-Abstract + + Define interface macros to be called in place of CSPICE + user-interface-level functions. These macros are generally used + to compensate for compiler deficiencies. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines interface macros to be called in place of + CSPICE user-interface-level functions. Currently, the sole purpose + of these macros is to implement automatic type casting under some + environments that generate compile-time warnings without the casts. + The typical case that causes a problem is a function argument list + containing an input formal argument of type + + const double [3][3] + + Under some compilers, a non-const actual argument supplied in a call + to such a function will generate a spurious warning due to the + "mismatched" type. These macros generate type casts that will + make such compilers happy. + + Examples of compilers that generate warnings of this type are + + gcc version 2.2.2, hosted on NeXT workstations running + NeXTStep 3.3 + + Sun C compiler, version 4.2, running under Solaris. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 14.0.0, 19-DEC-2021 (NJB) + + Added macro for invstm_c. + + -CSPICE Version 13.0.0, 25-JAN-2017 (NJB) (EDW) + + Defined new abbreviation macro CONST_IVEC3. + Added macros for + + dskgd_c + dskmi2_c + dskb02_c + dskd02_c + dski02_c + dskn02_c + dskobj_c + dskp02_c + dskrb2_c + dsksrf_c + dskv02_c + dskxv_c + dskxsi_c + dskw02_c + latsrf_c + limbpt_c + oscltx_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + srfnrm_c + termpt_c + + -CSPICE Version 12.0.0, 03-DEC-2013 (NJB) (EDW) (SCK) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Added macros for + + eqncpv_c + fovray_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpnv_c + spkw20_c + + -CSPICE Version 11.0.0, 09-MAR-2009 (NJB) (EDW) + + Added macros for + + dvsep_c + gfevnt_c + gffove_c + gfrfov_c + gfsntc_c + surfpv_c + + + -CSPICE Version 10.0.0, 19-FEB-2008 (NJB) (EDW) + + Added macros for + + ilumin_c + spkaps_c + spkltc_c + + -CSPICE Version 9.0.0, 31-OCT-2005 (NJB) + + Added macros for + + qdq2av_c + qxq_c + + -CSPICE Version 8.0.0, 23-FEB-2004 (NJB) + + Added macro for + + dafrs_c + + + -CSPICE Version 7.0.0, 23-FEB-2004 (EDW) + + Added macro for + + srfxpt_c + + -CSPICE Version 6.0.1, 25-FEB-2003 (EDW) (NJB) + + Remove duplicate macro definitions for ekaced_c and + ekacei_c. Visual Studio errored out when compiling + code that included SpiceZim.h. + + Added macro for + + dasac_c + + -CSPICE Version 6.0.0, 17-AUG-2002 (NJB) + + Added macros for + + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + esrchc_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lstltc_c + lstltd_c + lstlti_c + lstlec_c + lstled_c + lstlei_c + orderc_c + orderd_c + orderi_c + reordc_c + reordd_c + reordi_c + reordl_c + spkw18_c + + -CSPICE Version 5.0.0, 28-AUG-2001 (NJB) + + Added macros for + + conics_c + illum_c + invort_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + -CSPICE Version 4.0.0, 22-MAR-2000 (NJB) + + Added macros for + + spkw12_c + spkw13_c + + -CSPICE Version 3.0.0, 27-AUG-1999 (NJB) (EDW) + + Fixed cut & paste error in macro nvp2pl_c. + + Added macros for + + axisar_c + cgv2el_c + dafps_c + dafus_c + diags2_c + dvdot_c + dvhat_c + edlimb_c + ekacli_c + ekacld_c + ekacli_c + eul2xf_c + el2cgv_c + getelm_c + inedpl_c + isrot_c + mequ_c + npedln_c + nplnpt_c + rav2xf_c + raxisa_c + saelgv_c + spk14a_c + spkapo_c + spkapp_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + sumai_c + trace_c + vadd_g + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vupack_c + vzerog_c + xf2eul_c + xf2rav_c + + -CSPICE Version 2.0.0, 07-MAR-1999 (NJB) + + Added macros for + + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + vprjp_c + vprjpi_c + + -CSPICE Version 1.0.0, 24-JAN-1999 (NJB) (EDW) + + +-Index_Entries + + interface macros for CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +/* +Include the type definitions prior to defining the interface macros. +The macros reference the types. +*/ +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +#ifndef HAVE_SPICEIFMACROS_H +#define HAVE_SPICEIFMACROS_H + + +/* +Macros used to abbreviate type casts: +*/ + + #define CONST_BOOL ( ConstSpiceBoolean * ) + #define CONST_DLADSC ( ConstSpiceDLADescr * ) + #define CONST_DSKDSC ( ConstSpiceDSKDescr * ) + #define CONST_ELLIPSE ( ConstSpiceEllipse * ) + #define CONST_IVEC ( ConstSpiceInt * ) + #define CONST_IVEC3 ( ConstSpiceInt (*) [3] ) + #define CONST_MAT ( ConstSpiceDouble (*) [3] ) + #define CONST_MAT2 ( ConstSpiceDouble (*) [2] ) + #define CONST_MAT6 ( ConstSpiceDouble (*) [6] ) + #define CONST_PLANE ( ConstSpicePlane * ) + #define CONST_VEC3 ( ConstSpiceDouble (*) [3] ) + #define CONST_VEC4 ( ConstSpiceDouble (*) [4] ) + #define CONST_STR ( ConstSpiceChar * ) + #define CONST_VEC ( ConstSpiceDouble * ) + #define CONST_VOID ( const void * ) + +/* +Macros that substitute for function calls: +*/ + + #define axisar_c( axis, angle, r ) \ + \ + ( axisar_c( CONST_VEC(axis), (angle), (r) ) ) + + + #define bschoc_c( value, ndim, lenvals, array, order ) \ + \ + ( bschoc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array), CONST_IVEC(order) ) ) + + + #define bschoi_c( value, ndim, array, order ) \ + \ + ( bschoi_c ( (value) , (ndim), \ + CONST_IVEC(array), CONST_IVEC(order) ) ) + + + #define bsrchc_c( value, ndim, lenvals, array ) \ + \ + ( bsrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define bsrchd_c( value, ndim, array ) \ + \ + ( bsrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define bsrchi_c( value, ndim, array ) \ + \ + ( bsrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define ckw01_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs ) \ + \ + ( ckw01_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs) ) ) + + + #define ckw02_c( handle, begtim, endtim, inst, ref, segid, \ + nrec, start, stop, quats, avvs, rates ) \ + \ + ( ckw02_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(start), CONST_VEC(stop), \ + CONST_VEC4(quats), CONST_VEC3(avvs), \ + CONST_VEC(rates) ) ) + + + #define ckw03_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs, nints, \ + starts ) \ + \ + ( ckw03_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs), (nints), \ + CONST_VEC(starts) ) ) + + + #define ckw05_c( handle, subtyp, degree, begtim, endtim, inst, \ + ref, avflag, segid, n, sclkdp, packts, \ + rate, nints, starts ) \ + \ + ( ckw05_c ( (handle), (subtyp), (degree), \ + (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (n), \ + CONST_VEC(sclkdp), CONST_VOID(packts), \ + (rate), (nints), \ + CONST_VEC(starts) ) ) + + + #define cgv2el_c( center, vec1, vec2, ellipse ) \ + \ + ( cgv2el_c( CONST_VEC(center), CONST_VEC(vec1), \ + CONST_VEC(vec2), (ellipse) ) ) + + + #define conics_c( elts, et, state ) \ + \ + ( conics_c( CONST_VEC(elts), (et), (state) ) ) + + + #define dafps_c( nd, ni, dc, ic, sum ) \ + \ + ( dafps_c ( (nd), (ni), CONST_VEC(dc), CONST_IVEC(ic), \ + (sum) ) ) + + + #define dafrs_c( sum ) \ + \ + ( dafrs_c ( CONST_VEC( sum ) ) ) + + + #define dafus_c( sum, nd, ni, dc, ic ) \ + \ + ( dafus_c ( CONST_VEC(sum), (nd), (ni), (dc), (ic) ) ) + + + #define dasac_c( handle, n, buflen, buffer ) \ + \ + ( dasac_c ( (handle), (n), (buflen), CONST_VOID(buffer) ) ) + + + #define det_c( m1 ) \ + \ + ( det_c ( CONST_MAT(m1) ) ) + + + #define diags2_c( symmat, diag, rotate ) \ + \ + ( diags2_c ( CONST_MAT2(symmat), (diag), (rotate) ) ) + + + #define dskb02_c( handle, dladsc, nv, np, nvxtot, \ + vtxbds, voxsiz, voxori, vgrext, cgscal, \ + vtxnpl, voxnpt, voxnpl ) \ + \ + ( dskb02_c( (handle), CONST_DLADSC(dladsc), (nv), (np), \ + (nvxtot), (vtxbds), (voxsiz), (voxori), \ + (vgrext), (cgscal), (vtxnpl), (voxnpt), \ + (voxnpl) ) ) + + + #define dskd02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dskd02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dski02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dski02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dskgd_c( handle, dladsc, dskdsc ) \ + \ + ( dskgd_c ( (handle), CONST_DLADSC(dladsc), (dskdsc) ) ) + + + #define dskmi2_c( nv, vrtces, np, plates, \ + finscl, corscl, worksz, voxpsz, voxlsz, \ + makvtl, spxisz, work, spaixd, spaixi ) \ + \ + ( dskmi2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (finscl), \ + (corscl), (worksz), (voxpsz), \ + (voxlsz), (makvtl), (spxisz), \ + (work), (spaixd), (spaixi) ) ) + + + #define dskn02_c( handle, dladsc, plid, normal ) \ + \ + ( dskn02_c ( (handle), CONST_DLADSC(dladsc), (plid), \ + (normal) ) ) + + + #define dskobj_c( dsk, bodids ) \ + \ + ( dskobj_c ( CONST_STR(dsk), (bodids) ) ) + + + #define dskp02_c( handle, dladsc, start, room, n, plates ) \ + \ + ( dskp02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (plates) ) ) + + + #define dskrb2_c( nv, vrtces, np, plates, \ + corsys, corpar, mncor3, mxcor3 ) \ + \ + ( dskrb2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (corsys), \ + (corpar), (mncor3), (mxcor3) ) ) + + + #define dsksrf_c( dsk, bodyid, srfids ) \ + \ + ( dsksrf_c ( CONST_STR(dsk), (bodyid), (srfids) ) ) + + + #define dskv02_c( handle, dladsc, start, room, n, vrtces ) \ + \ + ( dskv02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (vrtces) ) ) + + + #define dskw02_c( handle, center, surfce, dclass, \ + frame, corsys, corpar, mncor1, \ + mxcor1, mncor2, mxcor2, mncor3, \ + mxcor3, first, last, nv, \ + vrtces, np, plates, spaixd, spaixi ) \ + \ + ( dskw02_c ( (handle), (center), (surfce), (dclass), \ + CONST_STR(frame), (corsys), \ + CONST_VEC(corpar), (mncor1), (mxcor1), \ + (mncor2), (mxcor2), (mncor3), \ + (mxcor3), (first), (last), \ + (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates), \ + (spaixd), (spaixi) ) ) + + + #define dskxsi_c( pri, target, nsurf, srflst, et, \ + fixref, vertex, raydir, maxd, maxi, \ + xpt, handle, dladsc, dskdsc, dc, \ + ic, found ) \ + \ + ( dskxsi_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), CONST_VEC(vertex), \ + CONST_VEC(raydir), (maxd), (maxi), \ + (xpt), (handle), (dladsc),\ + (dskdsc), (dc), (ic), \ + (found) ) ) + + + #define dskxv_c( pri, target, nsurf, srflst, et, fixref, \ + nrays, vtxarr, dirarr, xptarr, fndarr ) \ + \ + ( dskxv_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), (nrays), \ + CONST_VEC3(vtxarr), CONST_VEC3(dirarr), \ + (xptarr), (fndarr) ) ) + + + #define dvdot_c( s1, s2 ) \ + \ + ( dvdot_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define dvhat_c( v1, v2 ) \ + \ + ( dvhat_c ( CONST_VEC(v1), (v2) ) ) + + + #define dvsep_c( s1, s2 ) \ + \ + ( dvsep_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define edlimb_c( a, b, c, viewpt, limb ) \ + \ + ( edlimb_c( (a), (b), (c), CONST_VEC(viewpt), (limb) ) ) + + + #define ekacec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekacec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + + #define ekaced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekaced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VEC(dvals), (isnull) ) ) + + + #define ekacei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekacei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_IVEC(ivals), (isnull) ) ) + + + #define ekaclc_c( handle, segno, column, vallen, cvals, entszs, \ + nlflgs, rcptrs, wkindx ) \ + \ + ( ekaclc_c( (handle), (segno), (column), (vallen), \ + CONST_VOID(cvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacld_c( handle, segno, column, dvals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacld_c( (handle), (segno), (column), \ + CONST_VEC(dvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacli_c( handle, segno, column, ivals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacli_c( (handle), (segno), (column), \ + CONST_IVEC(ivals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekbseg_c( handle, tabnam, ncols, cnmlen, cnames, declen, \ + decls, segno ) \ + \ + ( ekbseg_c( (handle), (tabnam), (ncols), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno) ) ) + + + #define ekifld_c( handle, tabnam, ncols, nrows, cnmlen, cnames, \ + declen, decls, segno, rcptrs ) \ + \ + ( ekifld_c( (handle), (tabnam), (ncols), (nrows), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno), (rcptrs) ) ) + + + #define ekucec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekucec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + #define ekuced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekuced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(dvals), (isnull) ) ) + + + #define ekucei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekucei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(ivals), (isnull) ) ) + + + #define el2cgv_c( ellipse, center, smajor, sminor ) \ + \ + ( el2cgv_c( CONST_ELLIPSE(ellipse), (center), \ + (smajor), (sminor) ) ) + + + #define eqncpv_c( et, epoch, eqel, rapol, decpol, state ) \ + \ + ( eqncpv_c ( (et), (epoch), CONST_VEC(eqel), (rapol), \ + (decpol), (state) ) ) + + + #define esrchc_c( value, ndim, lenvals, array ) \ + \ + ( esrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define eul2xf_c( eulang, axisa, axisb, axisc, xform ) \ + \ + ( eul2xf_c ( CONST_VEC(eulang), (axisa), (axisb), (axisc), \ + (xform) ) ) + + #define fovray_c( inst, raydir, rframe, abcorr, observer, \ + et, visible ) \ + \ + ( fovray_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (observer), (et), (visible) ) ) + + #define getelm_c( frstyr, lineln, lines, epoch, elems ) \ + \ + ( getelm_c ( (frstyr), (lineln), CONST_VOID(lines), \ + (epoch), (elems) ) ) + + + #define gfevnt_c( udstep, udrefn, gquant, qnpars, lenvals, \ + qpnams, qcpars, qdpars, qipars, qlpars, \ + op, refval, tol, adjust, rpt, \ + udrepi, udrepu, udrepf, nintvls, \ + bail, udbail, cnfine, result ) \ + \ + ( gfevnt_c( (udstep), (udrefn), (gquant), \ + (qnpars), (lenvals), CONST_VOID(qpnams),\ + CONST_VOID(qcpars), (qdpars), (qipars), \ + (qlpars), (op), (refval), \ + (tol), (adjust), (rpt), \ + (udrepi), (udrepu), (udrepf), \ + (nintvls), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gffove_c( inst, tshape, raydir, target, tframe, \ + abcorr, obsrvr, tol, udstep, udrefn, \ + rpt, udrepi, udrepu, udrepf, bail, \ + udbail, cnfine, result ) \ + \ + ( gffove_c( (inst), (tshape), CONST_VEC(raydir), \ + (target), (tframe), (abcorr), \ + (obsrvr), (tol), (udstep), \ + (udrefn), (rpt), (udrepi), \ + (udrepu), (udrepf), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gfrfov_c( inst, raydir, rframe, abcorr, obsrvr, \ + step, cnfine, result ) \ + \ + ( gfrfov_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (obsrvr), (step), \ + (cnfine), (result) ) ) + + + #define gfsntc_c( target, fixref, method, abcorr, obsrvr, \ + dref, dvec, crdsys, coord, relate, \ + refval, adjust, step, nintvls, cnfine, \ + result ) \ + \ + ( gfsntc_c( (target), (fixref), (method), \ + (abcorr), (obsrvr), (dref), \ + CONST_VEC(dvec), (crdsys), (coord), \ + (relate), (refval), (adjust), \ + (step), (nintvls), (cnfine), (result) ) ) + + + #define illum_c( target, et, abcorr, obsrvr, \ + spoint, phase, solar, emissn ) \ + \ + ( illum_c ( (target), (et), (abcorr), (obsrvr), \ + CONST_VEC(spoint), (phase), (solar), (emissn) ) ) + + + #define ilumin_c( method, target, et, fixref, \ + abcorr, obsrvr, spoint, trgepc, \ + srfvec, phase, solar, emissn ) \ + \ + ( ilumin_c ( (method), (target), (et), (fixref), \ + (abcorr), (obsrvr), CONST_VEC(spoint), (trgepc), \ + (srfvec), (phase), (solar), (emissn) ) ) + + + #define inedpl_c( a, b, c, plane, ellipse, found ) \ + \ + ( inedpl_c ( (a), (b), (c), \ + CONST_PLANE(plane), (ellipse), (found) ) ) + + + #define inrypl_c( vertex, dir, plane, nxpts, xpt ) \ + \ + ( inrypl_c ( CONST_VEC(vertex), CONST_VEC(dir), \ + CONST_PLANE(plane), (nxpts), (xpt) ) ) + + + #define invert_c( m1, m2 ) \ + \ + ( invert_c ( CONST_MAT(m1), (m2) ) ) + + + #define invort_c( m, mit ) \ + \ + ( invort_c ( CONST_MAT(m), (mit) ) ) + + + #define invstm_c( mat, invmat ) \ + \ + ( invstm_c ( CONST_MAT6(mat), (invmat) ) ) + + + #define isordv_c( array, n ) \ + \ + ( isordv_c ( CONST_IVEC(array), (n) ) ) + + + #define isrchc_c( value, ndim, lenvals, array ) \ + \ + ( isrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + #define isrchd_c( value, ndim, array ) \ + \ + ( isrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define isrchi_c( value, ndim, array ) \ + \ + ( isrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define isrot_c( m, ntol, dtol ) \ + \ + ( isrot_c ( CONST_MAT(m), (ntol), (dtol) ) ) + + + #define latsrf_c( method, target, et, fixref, \ + npts, lonlat, srfpts ) \ + \ + ( latsrf_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), CONST_MAT2(lonlat), \ + (srfpts) ) ) + + + #define limbpt_c( method, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( limbpt_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define lmpool_c( cvals, lenvals, n ) \ + \ + ( lmpool_c( CONST_VOID(cvals), (lenvals), (n) ) ) + + + #define lstltc_c( value, ndim, lenvals, array ) \ + \ + ( lstltc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstled_c( value, ndim, array ) \ + \ + ( lstled_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlei_c( value, ndim, array ) \ + \ + ( lstlei_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define lstlec_c( value, ndim, lenvals, array ) \ + \ + ( lstlec_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstltd_c( value, ndim, array ) \ + \ + ( lstltd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlti_c( value, ndim, array ) \ + \ + ( lstlti_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define m2eul_c( r, axis3, axis2, axis1, \ + angle3, angle2, angle1 ) \ + \ + ( m2eul_c ( CONST_MAT(r), (axis3), (axis2), (axis1), \ + (angle3), (angle2), (angle1) ) ) + + #define m2q_c( r, q ) \ + \ + ( m2q_c ( CONST_MAT(r), (q) ) ) + + + #define mequ_c( m1, m2 ) \ + \ + ( mequ_c ( CONST_MAT(m1), m2 ) ) + + + #define mequg_c( m1, nr, nc, mout ) \ + \ + ( mequg_c ( CONST_MAT(m1), (nr), (nc), mout ) ) + + + #define mtxm_c( m1, m2, mout ) \ + \ + ( mtxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mtxmg_c( m1, m2, ncol1, nr1r2, ncol2, mout ) \ + \ + ( mtxmg_c ( CONST_MAT(m1), CONST_MAT(m2), \ + (ncol1), (nr1r2), (ncol2), (mout) ) ) + + + #define mtxv_c( m1, vin, vout ) \ + \ + ( mtxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mtxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mtxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define mxm_c( m1, m2, mout ) \ + \ + ( mxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmg_c( m1, m2, row1, col1, col2, mout ) \ + \ + ( mxmg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (row1), (col1), (col2), (mout) ) ) + + + #define mxmt_c( m1, m2, mout ) \ + \ + ( mxmt_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmtg_c( m1, m2, nrow1, nc1c2, nrow2, mout ) \ + \ + ( mxmtg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (nrow1), (nc1c2), \ + (nrow2), (mout) ) ) + + + #define mxv_c( m1, vin, vout ) \ + \ + ( mxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define nearpt_c( positn, a, b, c, npoint, alt ) \ + \ + ( nearpt_c ( CONST_VEC(positn), (a), (b), (c), \ + (npoint), (alt) ) ) + + + #define npedln_c( a, b, c, linept, linedr, pnear, dist ) \ + \ + ( npedln_c ( (a), (b), (c), \ + CONST_VEC(linept), CONST_VEC(linedr), \ + (pnear), (dist) ) ) + + + #define nplnpt_c( linpt, lindir, point, pnear, dist ) \ + \ + ( nplnpt_c ( CONST_VEC(linpt), CONST_VEC(lindir), \ + CONST_VEC(point), (pnear), (dist ) ) ) + + + #define nvc2pl_c( normal, constant, plane ) \ + \ + ( nvc2pl_c ( CONST_VEC(normal), (constant), (plane) ) ) + + + #define nvp2pl_c( normal, point, plane ) \ + \ + ( nvp2pl_c( CONST_VEC(normal), CONST_VEC(point), (plane) ) ) + + + #define orderc_c( lenvals, array, ndim, iorder ) \ + \ + ( orderc_c ( (lenvals), CONST_VOID(array), (ndim), (iorder)) ) + + + #define orderd_c( array, ndim, iorder ) \ + \ + ( orderd_c ( CONST_VEC(array), (ndim), (iorder) ) ) + + + #define orderi_c( array, ndim, iorder ) \ + \ + ( orderi_c ( CONST_IVEC(array), (ndim), (iorder) ) ) + + + #define oscelt_c( state, et, mu, elts ) \ + \ + ( oscelt_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define oscltx_c( state, et, mu, elts ) \ + \ + ( oscltx_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define pcpool_c( name, n, lenvals, cvals ) \ + \ + ( pcpool_c ( (name), (n), (lenvals), CONST_VOID(cvals) ) ) + + + #define pdpool_c( name, n, dvals ) \ + \ + ( pdpool_c ( (name), (n), CONST_VEC(dvals) ) ) + + + #define pipool_c( name, n, ivals ) \ + \ + ( pipool_c ( (name), (n), CONST_IVEC(ivals) ) ) + + + #define pl2nvc_c( plane, normal, constant ) \ + \ + ( pl2nvc_c ( CONST_PLANE(plane), (normal), (constant) ) ) + + + #define pl2nvp_c( plane, normal, point ) \ + \ + ( pl2nvp_c ( CONST_PLANE(plane), (normal), (point) ) ) + + + #define pl2psv_c( plane, point, span1, span2 ) \ + \ + ( pl2psv_c( CONST_PLANE(plane), (point), (span1), (span2) ) ) + + + #define pltar_c( nv, vrtces, np, plates ) \ + \ + ( pltar_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define pltexp_c( iverts, delta, overts ) \ + \ + ( pltexp_c( CONST_VEC3(iverts), (delta), (overts) ) ) + + + #define pltnp_c( point, v1, v2, v3, pnear, dist ) \ + \ + ( pltnp_c( CONST_VEC(point), CONST_VEC(v1), CONST_VEC(v2), \ + CONST_VEC(v3), (pnear), (dist) ) ) + + + #define pltnrm_c( v1, v2, v3, normal ) \ + \ + ( pltnrm_c( CONST_VEC(v1), CONST_VEC(v2), CONST_VEC(v3), \ + (normal) ) ) + + + #define pltvol_c( nv, vrtces, np, plates ) \ + \ + ( pltvol_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define prop2b_c( gm, pvinit, dt, pvprop ) \ + \ + ( prop2b_c ( (gm), CONST_VEC(pvinit), (dt), (pvprop) ) ) + + + #define psv2pl_c( point, span1, span2, plane ) \ + \ + ( psv2pl_c ( CONST_VEC(point), CONST_VEC(span1), \ + CONST_VEC(span2), (plane) ) ) + + + #define qdq2av_c( q, dq, av ) \ + \ + ( qdq2av_c ( CONST_VEC(q), CONST_VEC(dq), (av) ) ) + + + #define q2m_c( q, r ) \ + \ + ( q2m_c ( CONST_VEC(q), (r) ) ) + + + #define qxq_c( q1, q2, qout ) \ + \ + ( qxq_c ( CONST_VEC(q1), CONST_VEC(q2), (qout) ) ) + + + #define rav2xf_c( rot, av, xform ) \ + \ + ( rav2xf_c ( CONST_MAT(rot), CONST_VEC(av), (xform) ) ) + + + #define raxisa_c( matrix, axis, angle ) \ + \ + ( raxisa_c ( CONST_MAT(matrix), (axis), (angle) ) ); + + + #define reccyl_c( rectan, r, lon, z ) \ + \ + ( reccyl_c ( CONST_VEC(rectan), (r), (lon), (z) ) ) + + + #define recgeo_c( rectan, re, f, lon, lat, alt ) \ + \ + ( recgeo_c ( CONST_VEC(rectan), (re), (f), \ + (lon), (lat), (alt) ) ) + + #define reclat_c( rectan, r, lon, lat ) \ + \ + ( reclat_c ( CONST_VEC(rectan), (r), (lon), (lat) ) ) + + + #define recrad_c( rectan, radius, ra, dec ) \ + \ + ( recrad_c ( CONST_VEC(rectan), (radius), (ra), (dec) ) ) + + + #define recsph_c( rectan, r, colat, lon ) \ + \ + ( recsph_c ( CONST_VEC(rectan), (r), (colat), (lon) ) ) + + + #define reordd_c( iorder, ndim, array ) \ + \ + ( reordd_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordi_c( iorder, ndim, array ) \ + \ + ( reordi_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordl_c( iorder, ndim, array ) \ + \ + ( reordl_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define rotmat_c( m1, angle, iaxis, mout ) \ + \ + ( rotmat_c ( CONST_MAT(m1), (angle), (iaxis), (mout) ) ) + + + #define rotvec_c( v1, angle, iaxis, vout ) \ + \ + ( rotvec_c ( CONST_VEC(v1), (angle), (iaxis), (vout) ) ) + + + #define saelgv_c( vec1, vec2, smajor, sminor ) \ + \ + ( saelgv_c ( CONST_VEC(vec1), CONST_VEC(vec2), \ + (smajor), (sminor) ) ) + + + #define spk14a_c( handle, ncsets, coeffs, epochs ) \ + \ + ( spk14a_c ( (handle), (ncsets), \ + CONST_VEC(coeffs), CONST_VEC(epochs) ) ) + + + #define spkapo_c( targ, et, ref, sobs, abcorr, ptarg, lt ) \ + \ + ( spkapo_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (ptarg), (lt) ) ) + + + #define spkapp_c( targ, et, ref, sobs, abcorr, starg, lt ) \ + \ + ( spkapp_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (starg), (lt) ) ) + + + #define spkaps_c( targ, et, ref, abcorr, sobs, \ + accobs, starg, lt, dlt ) \ + \ + ( spkaps_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), CONST_VEC(accobs), \ + (starg), (lt), (dlt) ) ) + + + #define spkcpo_c( target, et, outref, refloc, \ + abcorr, obspos, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcpo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obspos), (obsctr), \ + (obsref), (state), (lt) ) ) + + + #define spkcpt_c( trgpos, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcpt_c( CONST_VEC(trgpos), (trgctr), (trgref), \ + (et), (outref), (refloc), (abcorr), \ + (obsrvr), (state), (lt) ) ) + + + #define spkcvo_c( target, et, outref, refloc, \ + abcorr, obssta, obsepc, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcvo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obssta), (obsepc), \ + (obsctr), (obsref), (state), (lt) ) ) + + + #define spkcvt_c( trgsta, trgepc, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcvt_c( CONST_VEC(trgsta), (trgepc), (trgctr), \ + (trgref), (et), (outref), (refloc), \ + (abcorr), (obsrvr), (state), (lt) ) ) + + + #define spkltc_c( targ, et, ref, abcorr, sobs, starg, lt, dlt ) \ + \ + ( spkltc_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), (starg), (lt), (dlt) ) ) + + + #define spkpvn_c( handle, descr, et, ref, state, center ) \ + \ + ( spkpvn_c ( (handle), CONST_VEC(descr), (et), \ + (ref), (state), (center) ) ) + + #define spkuds_c( descr, body, center, frame, type, \ + first, last, begin, end ) \ + \ + ( spkuds_c ( CONST_VEC(descr), (body), (center), (frame), \ + (type), (first), (last), (begin), (end) ) ) + + + #define spkw02_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw02_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + #define spkw03_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw03_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + + #define spkw05_c( handle, body, center, frame, first, last, \ + segid, gm, n, states, epochs ) \ + \ + ( spkw05_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (gm), \ + (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw08_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch1, step ) \ + \ + ( spkw08_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch1), \ + (step) ) ) + + + #define spkw09_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw09_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw10_c( handle, body, center, frame, first, last, \ + segid, consts, n, elems, epochs ) \ + \ + ( spkw10_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), CONST_VEC(consts), \ + (n), CONST_VEC(elems), CONST_VEC(epochs)) ) + + + #define spkw12_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch0, step ) \ + \ + ( spkw12_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch0), \ + (step) ) ) + + + #define spkw13_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw13_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + + + + #define spkw15_c( handle, body, center, frame, first, last, \ + segid, epoch, tp, pa, p, ecc, \ + j2flg, pv, gm, j2, radius ) \ + \ + ( spkw15_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(tp), CONST_VEC(pa), \ + (p), (ecc), (j2flg), CONST_VEC(pv), \ + (gm), (j2), (radius) ) ) + + + #define spkw17_c( handle, body, center, frame, first, last, \ + segid, epoch, eqel, rapol, decpol ) \ + \ + ( spkw17_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(eqel), (rapol), (decpol) ) ) + + + + #define spkw18_c( handle, subtyp, body, center, frame, first, \ + last, segid, degree, n, packts, epochs ) \ + \ + ( spkw18_c ( (handle), (subtyp), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_VOID(packts), CONST_VEC(epochs) ) ) + + + #define spkw20_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, dscale, \ + tscale, initjd, initfr ) \ + \ + ( spkw20_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (dscale), \ + (tscale), (initjd), (initfr) ) ) + + + + #define srfxpt_c( method, target, et, abcorr, obsrvr, dref, \ + dvec, spoint, dist, trgepc, obspos, found ) \ + \ + ( srfxpt_c ( (method), (target), (et), (abcorr), (obsrvr), \ + (dref), CONST_VEC(dvec), (spoint), (dist), \ + (trgepc), (obspos), (found) ) ) + + + #define srfnrm_c( method, target, et, fixref, \ + npts, srfpts, normls ) \ + \ + ( srfnrm_c ( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), \ + CONST_VEC3(srfpts), (normls) ) ) + + + #define stelab_c( pobj, vobj, appobj ) \ + \ + ( stelab_c ( CONST_VEC(pobj), CONST_VEC(vobj), (appobj) ) ) + + + #define sumad_c( array, n ) \ + \ + ( sumad_c ( CONST_VEC(array), (n) ) ) + + + #define sumai_c( array, n ) \ + \ + ( sumai_c ( CONST_IVEC(array), (n) ) ) + + + #define surfnm_c( a, b, c, point, normal ) \ + \ + ( surfnm_c ( (a), (b), (c), CONST_VEC(point), (normal) ) ) + + + #define surfpt_c( positn, u, a, b, c, point, found ) \ + \ + ( surfpt_c ( CONST_VEC(positn), CONST_VEC(u), \ + (a), (b), (c), \ + (point), (found) ) ) + + + #define surfpv_c( stvrtx, stdir, a, b, c, stx, found ) \ + \ + ( surfpv_c ( CONST_VEC(stvrtx), CONST_VEC(stdir), \ + (a), (b), (c), \ + (stx), (found) ) ) + + + #define swpool_c( agent, nnames, lenvals, names ) \ + \ + ( swpool_c( CONST_STR(agent), (nnames), \ + (lenvals), CONST_VOID(names) ) ) + + + #define termpt_c( method, ilusrc, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( termpt_c( CONST_STR(method), CONST_STR(ilusrc), \ + CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define trace_c( m1 ) \ + \ + ( trace_c ( CONST_MAT(m1) ) ) + + + #define twovec_c( axdef, indexa, plndef, indexp, mout ) \ + \ + ( twovec_c ( CONST_VEC(axdef), (indexa), \ + CONST_VEC(plndef), (indexp), (mout) ) ) + + + #define ucrss_c( v1, v2, vout ) \ + \ + ( ucrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define unorm_c( v1, vout, vmag ) \ + \ + ( unorm_c ( CONST_VEC(v1), (vout), (vmag) ) ) + + + #define unormg_c( v1, ndim, vout, vmag ) \ + \ + ( unormg_c ( CONST_VEC(v1), (ndim), (vout), (vmag) ) ) + + + #define vadd_c( v1, v2, vout ) \ + \ + ( vadd_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vaddg_c( v1, v2, ndim,vout ) \ + \ + ( vaddg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim), (vout) ) ) + + + #define vcrss_c( v1, v2, vout ) \ + \ + ( vcrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vdist_c( v1, v2 ) \ + \ + ( vdist_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdistg_c( v1, v2, ndim ) \ + \ + ( vdistg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vdot_c( v1, v2 ) \ + \ + ( vdot_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdotg_c( v1, v2, ndim ) \ + \ + ( vdotg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vequ_c( vin, vout ) \ + \ + ( vequ_c ( CONST_VEC(vin), (vout) ) ) + + + #define vequg_c( vin, ndim, vout ) \ + \ + ( vequg_c ( CONST_VEC(vin), (ndim), (vout) ) ) + + + #define vhat_c( v1, vout ) \ + \ + ( vhat_c ( CONST_VEC(v1), (vout) ) ) + + + #define vhatg_c( v1, ndim, vout ) \ + \ + ( vhatg_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vlcom3_c( a, v1, b, v2, c, v3, sum ) \ + \ + ( vlcom3_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), \ + (c), CONST_VEC(v3), (sum) ) ) + + + #define vlcom_c( a, v1, b, v2, sum ) \ + \ + ( vlcom_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vlcomg_c( n, a, v1, b, v2, sum ) \ + \ + ( vlcomg_c ( (n), (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vminug_c( v1, ndim, vout ) \ + \ + ( vminug_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vminus_c( v1, vout ) \ + \ + ( vminus_c ( CONST_VEC(v1), (vout) ) ) + + + #define vnorm_c( v1 ) \ + \ + ( vnorm_c ( CONST_VEC(v1) ) ) + + + #define vnormg_c( v1, ndim ) \ + \ + ( vnormg_c ( CONST_VEC(v1), (ndim) ) ) + + + #define vperp_c( a, b, p ) \ + \ + ( vperp_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vprjp_c( vin, plane, vout ) \ + \ + ( vprjp_c ( CONST_VEC(vin), CONST_PLANE(plane), (vout) ) ) + + + #define vprjpi_c( vin, projpl, invpl, vout, found ) \ + \ + ( vprjpi_c( CONST_VEC(vin), CONST_PLANE(projpl), \ + CONST_PLANE(invpl), (vout), (found) ) ) + + + #define vproj_c( a, b, p ) \ + \ + ( vproj_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vrel_c( v1, v2 ) \ + \ + ( vrel_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vrelg_c( v1, v2, ndim ) \ + \ + ( vrelg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vrotv_c( v, axis, theta, r ) \ + \ + ( vrotv_c ( CONST_VEC(v), CONST_VEC(axis), (theta), (r) ) ) + + + #define vscl_c( s, v1, vout ) \ + \ + ( vscl_c ( (s), CONST_VEC(v1), (vout) ) ) + + + #define vsclg_c( s, v1, ndim, vout ) \ + \ + ( vsclg_c ( (s), CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vsep_c( v1, v2 ) \ + \ + ( vsep_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vsepg_c( v1, v2, ndim) \ + \ + ( vsepg_c ( CONST_VEC(v1), CONST_VEC(v2), ndim ) ) + + + #define vsub_c( v1, v2, vout ) \ + \ + ( vsub_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vsubg_c( v1, v2, ndim, vout ) \ + \ + ( vsubg_c ( CONST_VEC(v1), CONST_VEC(v2), \ + (ndim), (vout) ) ) + + #define vtmv_c( v1, mat, v2 ) \ + \ + ( vtmv_c ( CONST_VEC(v1), CONST_MAT(mat), CONST_VEC(v2) ) ) + + + #define vtmvg_c( v1, mat, v2, nrow, ncol ) \ + \ + ( vtmvg_c ( CONST_VOID(v1), CONST_VOID(mat), CONST_VOID(v2), \ + (nrow), (ncol) ) ) + + + #define vupack_c( v, x, y, z ) \ + \ + ( vupack_c ( CONST_VEC(v), (x), (y), (z) ) ) + + + #define vzero_c( v1 ) \ + \ + ( vzero_c ( CONST_VEC(v1) ) ) + + + #define vzerog_c( v1, ndim ) \ + \ + ( vzerog_c ( CONST_VEC(v1), (ndim) ) ) + + + #define xf2eul_c( xform, axisa, axisb, axisc, eulang, unique ) \ + \ + ( xf2eul_c( CONST_MAT6(xform), (axisa), (axisb), (axisc), \ + (eulang), (unique) ) ) + + + #define xf2rav_c( xform, rot, av ) \ + \ + ( xf2rav_c( CONST_MAT6(xform), (rot), (av) ) ) + + + #define xpose6_c( m1, mout ) \ + \ + ( xpose6_c ( CONST_MAT6(m1), (mout) ) ) + + + #define xpose_c( m1, mout ) \ + \ + ( xpose_c ( CONST_MAT(m1), (mout) ) ) + + + #define xposeg_c( matrix, nrow, ncol, mout ) \ + \ + ( xposeg_c ( CONST_VOID(matrix), (nrow), (ncol), (mout) ) ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZmc.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZmc.h new file mode 100644 index 000000000..5e0c83435 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZmc.h @@ -0,0 +1,958 @@ +/* + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +*/ + +/* + CSPICE private macro file. + +-Particulars + + Current list of macros (spelling counts) + + BLANK + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + CHKFSTR + CHKFSTR_VAL + CHKOSTR + CHKOSTR_VAL + CHKPTR + F2C_MAP_CELL + Index values + MOVED + MOVEI + MaxAbs + MaxVal + MinAbs + MinVal + SpiceError + TolOrFail + +-Restrictions + + This is a private macro file for use within CSPICE. + Do not use or alter any entry. Or else! + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 6.0.0, 21-FEB-2021 (NJB) + + Deleted macros for physical constants and dates. Deleted macros `Even` + and `Odd`. + + -CSPICE Version 5.0.0, 07-FEB-2017 (NJB) + + Updated MaxAbs and MinAbs macros to cast their input arguments + to type double. + + -CSPICE Version 4.3.0, 18-SEP-2013 (NJB) + + Bug fix: missing comma was added to argument list + in body of macro CELLTYPECHK3_VAL. + + -CSPICE Version 4.2.0, 16-FEB-2005 (NJB) + + Bug fix: in the macro C2F_MAP_CELL, error checking has been + added after the sequence of calls to ssizec_ and scardc_. + If either of these routines signals an error, the dynamically + allocated memory for the "Fortran cell" is freed. + + -CSPICE Version 4.1.0, 06-DEC-2002 (NJB) + + Bug fix: added previous missing, bracketing parentheses to + references to input cell pointer argument in macro + CELLINIT. + + Changed CELLINIT macro so it no longer initializes to zero + length all strings in data array of a character cell. Instead, + strings are terminated with a null in their final element. + + -CSPICE Version 4.0.0, 22-AUG-2002 (NJB) + + Added macro definitions to support CSPICE cells and sets: + + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + F2C_MAP_CELL + + -CSPICE Version 3.0.0, 09-JAN-1998 (NJB) + + Added output string check macros CHKOSTR and CHKOSTR_VAL. + Removed variable name arguments from macros + + CHKPTR + CHKPTR_VAL + CHKFSTR + CHKRSTR_VAL + + The strings containing names of the checked variables are now + generated from the variables themselves via the # operator. + + -CSPICE Version 2.0.0, 03-DEC-1997 (NJB) + + Added pointer check macro CHKPTR and Fortran string check macro + CHKFSTR. + + -CSPICE Version 1.0.0, 25-OCT-1997 (EDW) +*/ + + + +#include +#include +#include "SpiceZdf.h" + + +#define MOVED( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceDouble) * (ndim) ) ) + + + + + +#define MOVEI( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceInt) * (ndim) ) ) + + + + + +/* +Define a tolerance test for those pesky double precision reals. +True if the difference is less than the tolerance, false otherwise. +The tolerance refers to a percentage. x, y and tol should be declared +double. All values are assumed to be non-zero. Okay? +*/ + +#define TolOrFail( x, y, tol ) \ + \ + ( fabs( x-y ) < ( tol * fabs(x) ) ) + + + + + +/* +Simple error output through standard SPICE error system . Set the error +message and the type +*/ + +#define SpiceError( errmsg, errtype ) \ + \ + { \ + setmsg_c ( errmsg ); \ + sigerr_c ( errtype ); \ + } + + + + + + +/* +Return a value which is the maximum/minimum of the absolute values of +two values. +*/ + +#define MaxAbs(a,b) \ + \ + ( fabs((double)(a)) >= fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + +#define MinAbs(a,b) \ + \ + ( fabs((double)(a)) < fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + + +/* +Return a value which is the maximum/minimum value of two values. +*/ + +#define MaxVal(A,B) ( (A) >= (B) ? (A) : (B) ) +#define MinVal(A,B) ( (A) < (B) ? (A) : (B) ) + + + +/* +Array indexes for vectors. +*/ + +#define SpiceX 0 +#define SpiceY 1 +#define SpiceZ 2 +#define SpiceVx 3 +#define SpiceVy 4 +#define SpiceVz 5 + + +/* +Common literal values. +*/ + +#define NULLCHAR ( (SpiceChar ) 0 ) +#define NULLCPTR ( (SpiceChar * ) 0 ) +#define BLANK ( (SpiceChar ) ' ' ) + + + +/* +Macro CHKPTR is used for checking for a null pointer. CHKPTR uses +the constants + + CHK_STANDARD + CHK_DISCOVER + CHK_REMAIN + +to control tracing behavior. Values and meanings are: + + CHK_STANDARD Standard tracing. If an error + is found, signal it, check out + and return. + + CHK_DISCOVER Discovery check-in. If an + error is found, check in, signal + the error, check out, and return. + + CHK_REMAIN If an error is found, signal it. + Do not check out or return. This + would allow the caller to clean up + before returning, if necessary. + In such cases the caller must test + failed_c() after the macro call. + +CHKPTR should be used in void functions. In non-void functions, +use CHKPTR_VAL, which is defined below. + +*/ + +#define CHK_STANDARD 1 +#define CHK_DISCOVER 2 +#define CHK_REMAIN 3 + +#define CHKPTR( errHandling, modname, pointer ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKPTR_VAL( errHandling, modname, pointer, retval ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKFSTR checks strings that are to be passed to Fortran or +f2c'd Fortran routines. Such strings must have non-zero length, +and their pointers must be non-null. + +CHKFSTR should be used in void functions. In non-void functions, +use CHKFSTR_VAL, which is defined below. +*/ + +#define CHKFSTR( errHandling, modname, string ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + +#define CHKFSTR_VAL( errHandling, modname, string, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKOSTR checks output string pointers and the associated +string length values supplied as input arguments. Output string +pointers must be non-null, and the string lengths must be at +least 2, so Fortran routine can write at least one character to +the output string, and so a null terminator can be appended. +CHKOSTR should be used in void functions. In non-void functions, +use CHKOSTR_VAL, which is defined below. +*/ + +#define CHKOSTR( errHandling, modname, string, length ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKOSTR_VAL( errHandling, modname, string, length, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + /* + Definitions for Cells and Sets + */ + + + /* + Cell initialization macros + */ + #define CELLINIT( cellPtr ) \ + \ + if ( !( (cellPtr)->init ) ) \ + { \ + if ( (cellPtr)->dtype == SPICE_CHR ) \ + { \ + /* \ + Make sure all elements of the data array, including \ + the control area, start off null-terminated. We place \ + the null character in the final element of each string, \ + so as to avoid wiping out data that may have been \ + assigned to the data array prior to initialization. \ + */ \ + SpiceChar * sPtr; \ + SpiceInt i; \ + SpiceInt nmax; \ + \ + nmax = SPICE_CELL_CTRLSZ + (cellPtr)->size; \ + \ + for ( i = 1; i <= nmax; i++ ) \ + { \ + sPtr = (SpiceChar *)((cellPtr)->base) \ + + i * (cellPtr)->length \ + - 1; \ + \ + *sPtr = NULLCHAR; \ + } \ + } \ + else \ + { \ + zzsynccl_c ( C2F, (cellPtr) ); \ + } \ + \ + (cellPtr)->init = SPICETRUE; \ + } + + + #define CELLINIT2( cellPtr1, cellPtr2 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); + + + #define CELLINIT3( cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); \ + CELLINIT ( cellPtr3 ); + + + /* + Data type checking macros: + */ + #define CELLTYPECHK( errHandling, modname, dType, cellPtr1 ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLTYPECHK_VAL( errHandling, modname, \ + dType, cellPtr1, retval ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLTYPECHK2( errHandling, modname, dtype, \ + cellPtr1, cellPtr2 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); + + + + #define CELLTYPECHK2_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); + + + + #define CELLTYPECHK3( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr3 ); + + + #define CELLTYPECHK3_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3, \ + retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr3, \ + retval ); + + + + #define CELLMATCH2( errHandling, modname, cellPtr1, cellPtr2 ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr[ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + #define CELLMATCH2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr [ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr [ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + #define CELLMATCH3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLMATCH2 ( errHandling, modname, cellPtr1, cellPtr2 ); \ + CELLMATCH2 ( errHandling, modname, cellPtr2, cellPtr3 ); + + + + + #define CELLMATCH3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr1, cellPtr2, retval ); \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr2, cellPtr3, retval ); + + /* + Set checking macros: + */ + #define CELLISSETCHK( errHandling, modname, cellPtr1 ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLISSETCHK_VAL( errHandling, modname, \ + cellPtr1, retval ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLISSETCHK2( errHandling, modname, \ + cellPtr1, cellPtr2 ) \ + \ + CELLISSETCHK( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK( errHandling, modname, cellPtr2 ); + + + + #define CELLISSETCHK2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr2, retval ); \ + + + + #define CELLISSETCHK3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLISSETCHK ( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr2 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr3 ); + + + #define CELLISSETCHK3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr2, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr3, retval ); + + + /* + C-to-Fortran and Fortran-to-C character cell translation macros: + */ + + /* + Macros that map one or more character C cells to dynamically + allocated Fortran-style character cells: + */ + #define C2F_MAP_CELL( caller, CCell, fCell, fLen ) \ + \ + { \ + /* \ + fCell and fLen are to be passed by reference, as if this \ + macro were a function. \ + \ + \ + Caution: dynamically allocates array fCell, which is to be \ + freed by caller! \ + */ \ + SpiceInt ndim; \ + SpiceInt lenvals; \ + \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + \ + C2F_MapFixStrArr ( (caller), ndim, lenvals, \ + (CCell)->base, (fLen), (fCell) ); \ + \ + if ( !failed_c() ) \ + { \ + /* \ + Explicitly set the control area info in the Fortran cell.\ + */ \ + ssizec_ ( ( integer * ) &((CCell)->size), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + scardc_ ( ( integer * ) &((CCell)->card), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + if ( failed_c() ) \ + { \ + /* \ + Setting size or cardinality of the Fortran cell \ + can fail, for example if the cell's string length \ + is too short. \ + */ \ + free ( *(fCell) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ) \ + \ + { \ + C2F_MAP_CELL( caller, CCell1, fCell1, fLen1 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell2, fCell2, fLen2 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL3( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2, \ + CCell3, fCell3, fLen3 ) \ + \ + { \ + C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell3, fCell3, fLen3 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + free ( *(fCell2) ); \ + } \ + } \ + } + + + + /* + Macro that maps a Fortran-style character cell to a C cell + (Note: this macro frees the Fortran cell): + */ + + #define F2C_MAP_CELL( fCell, fLen, CCell ) \ + \ + { \ + SpiceInt card; \ + SpiceInt lenvals; \ + SpiceInt ndim; \ + SpiceInt nBytes; \ + SpiceInt size; \ + void * array; \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + array = (CCell)->base; \ + \ + /* \ + Capture the size and cardinality of the Fortran cell. \ + */ \ + if ( !failed_c() ) \ + { \ + size = sizec_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + \ + card = cardc_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + } \ + \ + \ + /* \ + Copy the Fortran array into the output array. \ + */ \ + \ + nBytes = ndim * fLen * sizeof(SpiceChar); \ + memmove ( array, fCell, nBytes ); \ + /* \ + Convert the output array from Fortran to C style. \ + */ \ + F2C_ConvertTrStrArr ( ndim, lenvals, (SpiceChar *)array ); \ + \ + /* \ + Sync the size and cardinality of the C cell. \ + */ \ + if ( !failed_c() ) \ + { \ + (CCell)->size = size; \ + (CCell)->card = card; \ + } \ + } + + + +/* + End of header SpiceZmc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpl.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpl.h new file mode 100644 index 000000000..0bdba25a8 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpl.h @@ -0,0 +1,125 @@ +/* + +-Header_File SpiceZpl.h ( CSPICE platform macros ) + +-Abstract + + Define macros identifying the host platform for which this + version of CSPICE is targeted. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines macros that enable CSPICE code to be + compiled conditionally based on the identity of the host platform. + + The macros defined here ARE visible in the macro name space of + any file that includes SpiceUsr.h. The names are prefixed with + the string CSPICE_ to help prevent conflicts with macros defined + by users' applications. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 2.4.0, 28-NOV-2021 (BVS) + + Updated for the: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. + + -CSPICE Version 2.3.0, 10-MAR-2014 (BVS) + + Updated for the: + + PC-CYGWIN-64BIT-GCC_C + + environment. + + -CSPICE Version 2.2.0, 14-MAY-2010 (EDW)(BVS) + + Updated for the: + + MAC-OSX-64BIT-INTEL_C + PC-64BIT-MS_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + SUN-SOLARIS-INTEL-CC_C + + environments. + + -CSPICE Version 2.1.0, 15-NOV-2006 (BVS) + + Updated for MAC-OSX-INTEL_C environment. + + -CSPICE Version 2.0.0, 21-FEB-2006 (NJB) + + Updated for PC-LINUX-64BIT-GCC_C environment. + + -CSPICE Version 1.3.0, 06-MAR-2005 (NJB) + + Updated for SUN-SOLARIS-64BIT-GCC_C environment. + + -CSPICE Version 1.2.0, 03-JAN-2005 (BVS) + + Updated for PC-CYGWIN_C environment. + + -CSPICE Version 1.1.0, 27-JUL-2002 (BVS) + + Updated for MAC-OSX-NATIVE_C environment. + + -CSPICE Version 1.0.0, 26-FEB-1999 (NJB) (EDW) + +-Index_Entries + + platform ID defines for CSPICE + +*/ + + +#ifndef HAVE_PLATFORM_MACROS_H +#define HAVE_PLATFORM_MACROS_H + + + #define CSPICE_PC_LINUX + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpr.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpr.h new file mode 100644 index 000000000..3f2424970 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZpr.h @@ -0,0 +1,5190 @@ +/* + +-Header_File SpiceZpr.h ( CSPICE prototypes ) + +-Abstract + + Define prototypes for CSPICE user-interface-level functions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This C header file contains prototypes for CSPICE user-level + C routines. Prototypes for the underlying f2c'd SPICELIB routines + are contained in the separate header file SpiceZfc. However, those + routines are not part of the official CSPICE API. + +-Author_and_Institution + + N.J. Bachman (JPL) + M. Costa Sitja (JPL) + J. Diaz del Rio (ODC Space) + K.R. Gehringer (JPL) + W.L. Taber (JPL) + F.S. Turner (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 13.0.0, 05-NOV-2021 (JDR) (MCS) (NJB) + + Fixed size of "accobs" argument of spkaps_c: it was 6 when it + should be 3. + + Corrected prototype of gfoclt_c: switched order of abcorr and + obsrvr. + + Added prototypes for + + azlcpo_c + azlrec_c + chbigr_c + chbint_c + chbval_c + ckfrot_c + ckfxfm_c + ckgr02_c + ckgr03_c + ckmeta_c + cknr02_c + cknr03_c + clearc_c + cleari_c + dafhsf_c + dasadc_c + dasadd_c + dasadi_c + dashfs_c + daslla_c + dasllc_c + dasonw_c + dasops_c + dasrdc_c + dasrdd_c + dasrdi_c + dasudc_c + dasudd_c + dasudi_c + daswbr_c + dazldr_c + dlabns_c + dlaens_c + dlaopn_c + dnearp_c + drdazl_c + ednmpt_c + edpnt_c + evsgp4_c + filld_c + filli_c + getfvn_c + hrmesp_c + invstm_c + lgresp_c + lgrint_c + moved_c + nextwd_c + nthwd_c + qderiv_c + recazl_c + repml_c + stlabx_c + tangpt_c + tkfram_c + tparch_c + trgsep_c + twovxf_c + vprojg_c + + -CSPICE Version 12.14.0, 05-JAN-2017 (EDW) (NJB) + + Added prototypes for + + chbder_c + cleard_c + dasdc_c + dashfn_c + dasopw_c + dasrfr_c + dlabbs_c + dlabfs_c + dlafns_c + dlafps_c + dskb02_c + dskcls_c + dskd02_c + dskgd_c + dskgtl_c + dski02_c + dskmi2_c + dskn02_c + dskobj_c + dskopn_c + dskp02_c + dskrb2_c + dsksrf_c + dskstl_c + dskv02_c + dskw02_c + dskx02_c + dskxsi_c + dskxv_c + dskz02_c + hrmint_c + illum_pl02 + illum_plid_pl02 + latsrf_c + lgrind_c + limb_pl02 + limbpt_c + llgrid_pl02 + oscltx_c + pckcls_c + pckopn_c + pckw02_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + polyds_c + srfc2s_c + srfcss_c + srfnrm_c + srfs2c_c + srfscc_c + subpt_pl02 + subsol_pl02 + term_pl02 + termpt_c + + -CSPICE Version 12.13.0, 03-DEC-2013 (NJB) (SCK) (EDW) + + Correction to argument order for gfsep_c.c prototype. + + Added prototypes for + + bltfrm_c + ccifrm_c + edterm_c + eqncpv_c + fovray_c + fovtrg_c + gfilum_c + gfpa_c + gfstol_c + gfudb_c + illumg_c + kplfrm_c + occult_c + phaseq_c + pxfrm2_c + qcktrc_c + trcdep_c + trcnam_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpvn_c + spksfs_c + spkw20_c + xfmsta_c + udf_c + + -CSPICE Version 12.12.0, 19-FEB-2010 (EDW) (NJB) + + Added prototypes for + + bodc2s_c + dafgsr_c + dafrfr_c + dp2hx_c + ducrss_c + dvcrss_c + dvnorm_c + gfrr_c + gfuds_c + hx2dp_c + uddc_c + uddf_c + + -CSPICE Version 12.11.0, 29-MAR-2009 (EDW) (NJB) + + Added prototypes for + + dvsep_c + gfbail_c + gfclrh_c + gfdist_c + gfevnt_c + gffove_c + gfinth_c + gfocce_c + gfoclt_c + gfposc_c + gfrefn_c + gfrepf_c + gfrepi_c + gfrepu_c + gfrfov_c + gfsep_c + gfseth_c + gfsntc_c + gfsstp_c + gfstep_c + gfsubc_c + gftfov_c + surfpv_c + zzgfgeth_c + zzgfsavh_c + + -CSPICE Version 12.10.0, 30-JAN-2008 (EDW) (NJB) + + Added prototypes for: + + ilumin_c + pckcov_c + pckfrm_c + sincpt_c + spkacs_c + spkaps_c + spkltc_c + subpnt_c + subslr_c + wncard_c + + -CSPICE Version 12.9.0, 16-NOV-2006 (NJB) + + Bug fix: corrected prototype for vhatg_c. + + Renamed wnfild_c and wnfltd_c arguments `small' to 'smal' for + compatibility with MS Visual C++. + + Added prototypes for + + dafac_c + dafdc_c + dafec_c + dafgda_c + dascls_c + dasopr_c + kclear_c + + -CSPICE Version 12.8.0, 07-NOV-2005 (NJB) + + Added prototypes for + + bodvcd_c + qdq2av_c + qxq_c + srfrec_c + + -CSPICE Version 12.7.0, 06-JAN-2004 (NJB) + + Added prototypes for + + bods2c_c + ckcov_c + ckobj_c + dafopw_c + dafrs_c + dpgrdr_c + drdpgr_c + lspcn_c + pgrrec_c + recpgr_c + spkcov_c + spkobj_c + + -CSPICE Version 12.6.0, 24-FEB-2003 (NJB) + + Added prototype for + + bodvrd_c + deltet_c + srfxpt_c + + -CSPICE Version 12.5.0, 14-MAY-2003 (NJB) + + Removed prototype for getcml_. + + + -CSPICE Version 12.4.0, 25-FEB-2003 (NJB) + + Added prototypes for + + dasac_c + dasec_c + et2lst_c + + -CSPICE Version 12.3.0, 03-SEP-2002 (NJB) + + Added prototypes for + + appndc_c + appndd_c + appndi_c + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + card_c + ckw05_c + copy_c + cpos_c + cposr_c + diff_c + elemc_c + elemd_c + elemi_c + esrchc_c + insrtc_c + insrtd_c + insrti_c + inter_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lparss_c + lstlec_c + lstled_c + lstlei_c + lstltc_c + lstltd_c + lstlti_c + lx4dec_c + lx4num_c + lx4sgn_c + lx4uns_c + lxqstr_c + ncpos_c + ncposr_c + ordc_c + ordd_c + orderc_c + orderd_c + orderi_c + ordi_c + pos_c + posr_c + prefix_c + removc_c + removd_c + remove_c + removi_c + reordc_c + reordd_c + reordi_c + reordl_c + repmc_c + repmct_c + repmd_c + repmf_c + repmi_c + repmot_c + scard_c + sdiff_c + set_c + shellc_c + shelld_c + shelli_c + size_c + spkw18_c + ssize_c + union_c + valid_c + wncomd_c + wncond_c + wndifd_c + wnelmd_c + wnexpd_c + wnextd_c + wnfetd_c + wnfild_c + wnfltd_c + wnincd_c + wninsd_c + wnintd_c + wnreld_c + wnsumd_c + wnunid_c + wnvald_c + zzsynccl_c + + -CSPICE Version 12.2.0, 23-OCT-2001 (NJB) + + Added prototypes for + + badkpv_c + dcyldr_c + dgeodr_c + dlatdr_c + drdcyl_c + drdgeo_c + drdlat_c + drdsph_c + dsphdr_c + ekacec_c + ekaced_c + ekacei_c + ekappr_c + ekbseg_c + ekccnt_c + ekcii_c + ekdelr_c + ekinsr_c + ekntab_c + ekrcec_c + ekrced_c + ekrcei_c + ektnam_c + ekucec_c + ekuced_c + ekucei_c + inelpl_c + invort_c + kxtrct_c + + Added const qualifier to input array arguments of + + conics_c + illum_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + Added const qualifier to the return value of + + tkvrsn_c + + -CSPICE Version 12.1.0, 12-APR-2000 (FST) + + Added prototype for + + getfov_c + + -CSPICE Version 12.0.0, 22-MAR-2000 (NJB) + + Added prototypes for + + lparse_c + lparsm_c + spkw12_c + spkw13_c + + + -CSPICE Version 11.1.0, 17-DEC-1999 (WLT) + + Added prototype for + + dafrda_c + + -CSPICE Version 11.0.0, 07-OCT-1999 (NJB) (EDW) + + Changed ekaclc_c, ekacld_c, ekacli_c prototypes to make input + pointers const-qualified where appropriate. + + Changed prompt_c prototype to accommodate memory leak bug fix. + + Changed ekpsel_c prototype to be consistent with other interfaces + having string array outputs. + + Added prototypes for + + axisar_c + brcktd_c + brckti_c + cgv2el_c + cidfrm_c + clpool_c + cmprss_c + cnmfrm_c + convrt_c + cvpool_c + dafbbs_c + dafbfs_c + dafcls_c + dafcs_c + daffna_c + daffpa_c + dafgh_c + dafgn_c + dafgs_c + dafopr_c + dafps_c + dafus_c + diags2_c + dtpool_c + dvdot_c + dvhat_c + dvpool_c + edlimb_c + ekops_c + ekopw_c + eul2xf_c + ftncls_c + furnsh_c + getelm_c + getmsg_c + gnpool_c + ident_c + illum_c + inedpl_c + kdata_c + kinfo_c + ktotal_c + lmpool_c + matchi_c + matchw_c + maxd_c + maxi_c + mequ_c + mind_c + mini_c + moved_ + npedln_c + npelpt_c + nplnpt_c + pcpool_c + pdpool_c + pipool_c + pjelpl_c + pxform_c + rav2xf_c + raxisa_c + rquad_c + saelgv_c + spk14a_c + spk14b_c + spk14e_c + spkapo_c + spkapp_c + spkcls_c + spkezp_c + spkgps_c + spkopn_c + spkpds_c + spkpos_c + spkssb_c + spksub_c + spkuds_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + stpool_c + subpt_c + subsol_c + swpool_c + szpool_c + tparse_c + trace_c + unload_c + vaddg_c + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vzerog_c + xf2eul_c + xf2rav_c + xposeg_c + + -CSPICE Version 10.0.0, 09-MAR-1999 (NJB) + + Added prototypes for + + frame_c + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + sce2c_c + vprjp_c + vprjpi_c + + Now conditionally includes SpiceEll.h and SpicePln.h. + + + -CSPICE Version 9.0.0, 25-FEB-1999 (NJB) + + Added prototypes for + + eknseg_c + eknelt_c + ekpsel_c + ekssum_c + + Now conditionally includes SpiceEK.h. + + + -CSPICE Version 8.0.0, 20-OCT-1998 (NJB) + + Added const qualifier to all input matrix and vector arguments. + + Added prototypes for + + det_c + dpmax_c + dpmax_ + dpmin_c + dpmin_ + frinfo_c + frmnam_c + getfat_c + intmax_c + intmax_ + intmin_c + intmin_ + invert_c + namfrm_c + vrotv_c + vsclg_c + + + -CSPICE Version 7.0.0, 02-APR-1998 (EDW) + + Added prototypes for + + mequg_c + unormg_c + vdistg_c + vdotg_c + vequg_c + vnormg_c + + -CSPICE Version 6.0.0, 31-MAR-1998 (NJB) + + Added prototypes for + + ekaclc_c + ekacld_c + ekacli_c + ekcls_c + ekffld_c + ekfind_c + ekgc_c + ekgd_c + ekgi_c + ekifld_c + eklef_c + ekopr_c + ekopn_c + ekuef_c + + -CSPICE Version 5.0.1, 05-MAR-1998 (EDW) + + Remove some non printing characters. + + -CSPICE Version 5.0.0, 03-MAR-1998 (NJB) + + Added prototypes for + + etcal_c + ltime_c + stelab_c + tpictr_c + twovec_c + vsubg_c + + -CSPICE Version 4.0.0, 11-FEB-1998 (EDW) + + Added prototypes for + + timdef_c + tsetyr_c + + + -CSPICE Version 3.0.0, 02-FEB-1998 (NJB) + + Added prototypes for + + pckuof_c + tipbod_c + + Type SpiceVoid was replaced with void. + + -CSPICE Version 2.0.0, 06-JAN-1998 (NJB) + + Changed all input-only character pointers to type ConstSpiceChar. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + prototypes of CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + +#ifndef HAVE_SPICE_CELLS_H +#include "SpiceCel.h" +#endif + +#ifndef HAVE_SPICE_DLA_H +#include "SpiceDLA.h" +#endif + +#ifndef HAVE_SPICE_DSK_H +#include "SpiceDSK.h" +#endif + +#ifndef HAVE_SPICE_EK_H +#include "SpiceEK.h" +#endif + +#ifndef HAVE_SPICE_PLANES_H +#include "SpicePln.h" +#endif + +#ifndef HAVE_SPICE_ELLIPSES_H +#include "SpiceEll.h" +#endif + +#ifndef HAVE_SPICE_OSC_H +#include "SpiceOsc.h" +#endif + +#ifndef HAVE_SPICE_SPK_H +#include "SpiceSPK.h" +#endif + +#ifndef HAVE_SPICEWRAPPERS_H +#define HAVE_SPICEWRAPPERS_H + + + + +/* + Function prototypes for CSPICE functions are listed below. + Each prototype is accompanied by a function abstract and brief I/O + description. + + See the headers of the C wrappers for detailed descriptions of the + routines' interfaces. + + The list below should be maintained in alphabetical order. +*/ + + void appndc_c ( ConstSpiceChar * item, + SpiceCell * cell ); + + + void appndd_c ( SpiceDouble item, + SpiceCell * cell ); + + + void appndi_c ( SpiceInt item, + SpiceCell * cell ); + + + void axisar_c ( ConstSpiceDouble axis [3], + SpiceDouble angle, + SpiceDouble r [3][3] ); + + + void azlcpo_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + SpiceBoolean azccw, + SpiceBoolean elplsz, + ConstSpiceDouble obspos [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble azlsta [6], + SpiceDouble * lt ); + + + void azlrec_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble rectan [3] ); + + + SpiceBoolean badkpv_c ( ConstSpiceChar *caller, + ConstSpiceChar *name, + ConstSpiceChar *comp, + SpiceInt size, + SpiceInt divby, + SpiceChar type ); + + + void bltfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void bodc2n_c ( SpiceInt code, + SpiceInt namelen, + SpiceChar * name, + SpiceBoolean * found ); + + + void bodc2s_c ( SpiceInt code, + SpiceInt lenout, + SpiceChar * name ); + + void boddef_c ( ConstSpiceChar * name, + SpiceInt code ); + + + SpiceBoolean bodfnd_c ( SpiceInt body, + ConstSpiceChar * item ); + + + void bodn2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bods2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bodvar_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvcd_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvrd_c ( ConstSpiceChar * body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + SpiceDouble brcktd_c ( SpiceDouble number, + SpiceDouble end1, + SpiceDouble end2 ); + + + SpiceInt brckti_c ( SpiceInt number, + SpiceInt end1, + SpiceInt end2 ); + + + SpiceInt bschoc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array, + ConstSpiceInt * order ); + + + SpiceInt bschoi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array, + ConstSpiceInt * order ); + + + SpiceInt bsrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt bsrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt bsrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceDouble b1900_c ( void ); + + + SpiceDouble b1950_c ( void ); + + + SpiceInt card_c ( SpiceCell * cell ); + + + void ccifrm_c ( SpiceInt frclss, + SpiceInt clssid, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceInt * center, + SpiceBoolean * found ); + + + void cgv2el_c ( ConstSpiceDouble center[3], + ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceEllipse * ellipse ); + + + void chbder_c ( ConstSpiceDouble * cp, + SpiceInt degp, + SpiceDouble x2s[2], + SpiceDouble x, + SpiceInt nderiv, + SpiceDouble * partdp, + SpiceDouble * dpdxs ); + + + void chbigr_c ( SpiceInt degp, + ConstSpiceDouble cp [], + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * itgrlp ); + + + void chbint_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dpdx ); + + + void chbval_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p ); + + + void chkin_c ( ConstSpiceChar * module ); + + + void chkout_c ( ConstSpiceChar * module ); + + + void cidfrm_c ( SpiceInt cent, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void ckfrot_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble rotate [3][3], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckfxfm_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble xform [6][6], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckgr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckcls_c ( SpiceInt handle ); + + + void ckcov_c ( ConstSpiceChar * ck, + SpiceInt idcode, + SpiceBoolean needav, + ConstSpiceChar * level, + SpiceDouble tol, + ConstSpiceChar * timsys, + SpiceCell * cover ); + + + void ckgr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckobj_c ( ConstSpiceChar * ck, + SpiceCell * ids ); + + + void ckgp_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckgpav_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble av[3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckmeta_c ( SpiceInt ckid, + ConstSpiceChar * meta, + SpiceInt * idcode ); + + + void cknr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void cknr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void clearc_c ( SpiceInt ndim, + SpiceInt arrlen, + void * array ); + + + void cklpf_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ckupf_c ( SpiceInt handle ); + + + void ckw01_c ( SpiceInt handle, + SpiceDouble begtime, + SpiceDouble endtime, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3] ); + + + void ckw02_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble start [], + ConstSpiceDouble stop [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + ConstSpiceDouble rates [] ); + + + void ckw03_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + SpiceInt nints, + ConstSpiceDouble starts [] ); + + + void ckw05_c ( SpiceInt handle, + SpiceCK05Subtype subtyp, + SpiceInt degree, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt n, + ConstSpiceDouble sclkdp[], + const void * packets, + SpiceDouble rate, + SpiceInt nints, + ConstSpiceDouble starts[] ); + + + void cleard_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void cleari_c ( SpiceInt ndim, + SpiceInt array [] ); + + + SpiceDouble clight_c ( void ); + + + void clpool_c ( void ); + + + void cmprss_c ( SpiceChar delim, + SpiceInt n, + ConstSpiceChar * input, + SpiceInt lenout, + SpiceChar * output ); + + + void cnmfrm_c ( ConstSpiceChar * cname, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void conics_c ( ConstSpiceDouble elts[8], + SpiceDouble et, + SpiceDouble state[6] ); + + + void convrt_c ( SpiceDouble x, + ConstSpiceChar * in, + ConstSpiceChar * out, + SpiceDouble * y ); + + + void copy_c ( SpiceCell * a, + SpiceCell * b ); + + + SpiceInt cpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt cposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void cvpool_c ( ConstSpiceChar * agent, + SpiceBoolean * update ); + + + void cyllat_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void cylrec_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble rectan[3] ); + + + void cylsph_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void dafac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt lenvals, + const void * buffer ); + + + void dafbbs_c ( SpiceInt handle ); + + + void dafbfs_c ( SpiceInt handle ); + + + void dafcls_c ( SpiceInt handle ); + + + void dafcs_c ( SpiceInt handle ); + + + void dafdc_c ( SpiceInt handle ); + + + void dafec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt lenout, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void daffna_c ( SpiceBoolean * found ); + + + void daffpa_c ( SpiceBoolean * found ); + + + void dafgda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + void dafgh_c ( SpiceInt * handle ); + + + void dafgn_c ( SpiceInt lenout, + SpiceChar * name ); + + + void dafgs_c ( SpiceDouble sum[] ); + + + void dafgsr_c ( SpiceInt handle, + SpiceInt recno, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data, + SpiceBoolean * found ); + + + void dafhsf_c ( SpiceInt handle, + SpiceInt * nd, + SpiceInt * ni ); + + + void dafopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafps_c ( SpiceInt nd, + SpiceInt ni, + ConstSpiceDouble dc [], + ConstSpiceInt ic [], + SpiceDouble sum [] ); + + + void dafrda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + + void dafrfr_c ( SpiceInt handle, + SpiceInt lenout, + SpiceInt * nd, + SpiceInt * ni, + SpiceChar * ifname, + SpiceInt * fward, + SpiceInt * bward, + SpiceInt * free ); + + + void dasadc_c ( SpiceInt handle, + SpiceInt n, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasadd_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceDouble data [] ); + + + void dasadi_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceInt data [] ); + + + + void dafrs_c ( ConstSpiceDouble * sum ); + + + void dafus_c ( ConstSpiceDouble sum [], + SpiceInt nd, + SpiceInt ni, + SpiceDouble dc [], + SpiceInt ic [] ); + + + void dasac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt buflen, + const void * buffer ); + + + void dascls_c ( SpiceInt handle ); + + + void dasdc_c ( SpiceInt handle ); + + + void dasec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt buflen, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void dashfn_c ( SpiceInt handle, + SpiceInt namlen, + SpiceChar * fname ); + + + void dashfs_c ( SpiceInt handle, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc, + SpiceInt * free, + SpiceInt lastla [3], + SpiceInt lastrc [3], + SpiceInt lastwd [3] ); + + + void daslla_c ( SpiceInt handle, + SpiceInt * lastc, + SpiceInt * lastd, + SpiceInt * lasti ); + + + void dasllc_c ( SpiceInt handle ); + + + void dasonw_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomr, + SpiceInt * handle ); + + + void dasopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasops_c ( SpiceInt * handle ); + + + void dasopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasrdc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + void * data ); + + + void dasrdd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceDouble data [] ); + + + void dasrdi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt data [] ); + + + + void dasrfr_c ( SpiceInt handle, + SpiceInt idwlen, + SpiceInt ifnlen, + SpiceChar * idword, + SpiceChar * ifname, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc ); + + + void dasudc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasudd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceDouble data [] ); + + + void dasudi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceInt data [] ); + + + void daswbr_c ( SpiceInt handle ); + + + void dazldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + void dcyldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void deltet_c ( SpiceDouble epoch, + ConstSpiceChar * eptype, + SpiceDouble * delta ); + + + SpiceDouble det_c ( ConstSpiceDouble m1[3][3] ); + + + void diags2_c ( ConstSpiceDouble symmat [2][2], + SpiceDouble diag [2][2], + SpiceDouble rotate [2][2] ); + + + void diff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void dgeodr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void dlabbs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabfs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabns_c ( SpiceInt handle ); + + + void dlaens_c ( SpiceInt handle ); + + + void dlafns_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * nxtdsc, + SpiceBoolean * found ); + + + void dlafps_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * prvdsc, + SpiceBoolean * found ); + + + void dlaopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dlatdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dnearp_c ( ConstSpiceDouble state [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble dnear [6], + SpiceDouble dalt [2], + SpiceBoolean * found ); + + + void dp2hx_c ( SpiceDouble number, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * length ); + + + void dpgrdr_c ( ConstSpiceChar * body, + SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdazl_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + SpiceDouble dpmax_c ( void ); + + + SpiceDouble dpmax_ ( void ); + + + SpiceDouble dpmin_c ( void ); + + + SpiceDouble dpmin_ ( void ); + + + SpiceDouble dpr_c ( void ); + + + void drdcyl_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void drdgeo_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdlat_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble jacobi[3][3] ); + + + void drdpgr_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdsph_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble jacobi[3][3] ); + + + void dskb02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np, + SpiceInt * nvxtot, + SpiceDouble vtxbds [3][2], + SpiceDouble * voxsiz, + SpiceDouble voxori [3], + SpiceInt vgrext [3], + SpiceInt * cgscal, + SpiceInt * vtxnpl, + SpiceInt * voxnpt, + SpiceInt * voxnpl ); + + + void dskcls_c ( SpiceInt handle, + SpiceBoolean optmiz ); + + + void dskd02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values ); + + + void dskgd_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc ); + + + void dskgtl_c ( SpiceInt keywrd, + SpiceDouble * dpval ); + + + void dski02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * values ); + + void dskobj_c ( ConstSpiceChar * dsk, + SpiceCell * bodids ); + + void dskopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dskn02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt plid, + SpiceDouble normal[3] ); + + + void dskmi2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceDouble finscl, + SpiceInt corscl, + SpiceInt worksz, + SpiceInt voxpsz, + SpiceInt voxlsz, + SpiceBoolean makvtl, + SpiceInt spxisz, + SpiceInt work [][2], + SpiceDouble spaixd [], + SpiceInt spaixi [] ); + + + void dskp02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt plates[][3] ); + + + void dskrb2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble * mncor3, + SpiceDouble * mxcor3 ); + + + void dsksrf_c ( ConstSpiceChar * dsk, + SpiceInt bodyid, + SpiceCell * srfids ); + + + void dskstl_c ( SpiceInt keywrd, + SpiceDouble dpval ); + + + void dskv02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble vrtces[][3] ); + + + void dskw02_c ( SpiceInt handle, + SpiceInt center, + SpiceInt surfce, + SpiceInt dclass, + ConstSpiceChar * frame, + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble mncor1, + SpiceDouble mxcor1, + SpiceDouble mncor2, + SpiceDouble mxcor2, + SpiceDouble mncor3, + SpiceDouble mxcor3, + SpiceDouble first, + SpiceDouble last, + SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + ConstSpiceDouble spaixd[], + ConstSpiceInt spaixi[] ); + + + void dskx02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt * plid, + SpiceDouble xpt [3], + SpiceBoolean * found ); + + + void dskxsi_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst [], + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt maxd, + SpiceInt maxi, + SpiceDouble xpt [3], + SpiceInt * handle, + SpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc, + SpiceDouble dc [], + SpiceInt ic [], + SpiceBoolean * found ); + + + void dskxv_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst[], + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt nrays, + ConstSpiceDouble vtxarr[][3], + ConstSpiceDouble dirarr[][3], + SpiceDouble xptarr[][3], + SpiceBoolean fndarr[] ); + + + void dskz02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np ); + + + void dsphdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dtpool_c ( ConstSpiceChar * name, + SpiceBoolean * found, + SpiceInt * n, + SpiceChar type [1] ); + + + void ducrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + void dvcrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + SpiceDouble dvdot_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6] ); + + + void dvhat_c ( ConstSpiceDouble s1 [6], + SpiceDouble sout[6] ); + + SpiceDouble dvnorm_c ( ConstSpiceDouble state[6] ); + + void dvpool_c ( ConstSpiceChar * name ); + + + SpiceDouble dvsep_c ( ConstSpiceDouble * s1, + ConstSpiceDouble * s2 ); + + + void edlimb_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble viewpt[3], + SpiceEllipse * limb ); + + + void ednmpt_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble normal [3], + SpiceDouble point [3] ); + + + void edpnt_c ( ConstSpiceDouble p [3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble ep [3] ); + + + void edterm_c ( ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixfrm, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npts, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble termpts [ ][3] ); + + + void ekacec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekaced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekacei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekaclc_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + SpiceInt vallen, + const void * cvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacld_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceDouble * dvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacli_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceInt * ivals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekappr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * recno ); + + + void ekbseg_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno ); + + + void ekccnt_c ( ConstSpiceChar * table, + SpiceInt * ccount ); + + + void ekcii_c ( ConstSpiceChar * table, + SpiceInt cindex, + SpiceInt lenout, + SpiceChar * column, + SpiceEKAttDsc * attdsc ); + + + void ekcls_c ( SpiceInt handle ); + + + void ekdelr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void ekffld_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * rcptrs ); + + + void ekfind_c ( ConstSpiceChar * query, + SpiceInt lenout, + SpiceInt * nmrows, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekgc_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt lenout, + SpiceChar * cdata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgd_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceDouble * ddata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgi_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt * idata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekifld_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt nrows, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno, + SpiceInt * rcptrs ); + + + void ekinsr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void eklef_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + SpiceInt eknelt_c ( SpiceInt selidx, + SpiceInt row ); + + + SpiceInt eknseg_c ( SpiceInt handle ); + + + void ekntab_c ( SpiceInt * n ); + + + void ekopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ekopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekops_c ( SpiceInt * handle ); + + + void ekopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekpsel_c ( ConstSpiceChar * query, + SpiceInt msglen, + SpiceInt tablen, + SpiceInt collen, + SpiceInt * n, + SpiceInt * xbegs, + SpiceInt * xends, + SpiceEKDataType * xtypes, + SpiceEKExprClass * xclass, + void * tabs, + void * cols, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekrcec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt lenout, + SpiceInt * nvals, + void * cvals, + SpiceBoolean * isnull ); + + + void ekrced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceDouble * dvals, + SpiceBoolean * isnull ); + + + void ekrcei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceInt * ivals, + SpiceBoolean * isnull ); + + + void ekssum_c ( SpiceInt handle, + SpiceInt segno, + SpiceEKSegSum * segsum ); + + + void ektnam_c ( SpiceInt n, + SpiceInt lenout, + SpiceChar * table ); + + + void ekucec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekuced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekucei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekuef_c ( SpiceInt handle ); + + + SpiceBoolean elemc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceBoolean elemd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceBoolean elemi_c ( SpiceInt item, + SpiceCell * set ); + + + void eqncpv_c ( SpiceDouble et, + SpiceDouble epoch, + ConstSpiceDouble eqel[9], + SpiceDouble rapol, + SpiceDouble decpol, + SpiceDouble state[6] ); + + + SpiceBoolean eqstr_c ( ConstSpiceChar * a, + ConstSpiceChar * b ); + + + void el2cgv_c ( ConstSpiceEllipse * ellipse, + SpiceDouble center[3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void erract_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * action ); + + + void errch_c ( ConstSpiceChar * marker, + ConstSpiceChar * string ); + + + void errdev_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * device ); + + + void errdp_c ( ConstSpiceChar * marker, + SpiceDouble number ); + + + void errint_c ( ConstSpiceChar * marker, + SpiceInt number ); + + + void errprt_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * list ); + + + SpiceInt esrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + void etcal_c ( SpiceDouble et, + SpiceInt lenout, + SpiceChar * string ); + + + void et2lst_c ( SpiceDouble et, + SpiceInt body, + SpiceDouble lon, + ConstSpiceChar * type, + SpiceInt timlen, + SpiceInt ampmlen, + SpiceInt * hr, + SpiceInt * mn, + SpiceInt * sc, + SpiceChar * time, + SpiceChar * ampm ); + + + void et2utc_c ( SpiceDouble et , + ConstSpiceChar * format, + SpiceInt prec, + SpiceInt lenout, + SpiceChar * utcstr ); + + + void eul2m_c ( SpiceDouble angle3, + SpiceDouble angle2, + SpiceDouble angle1, + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble r [3][3] ); + + + void eul2xf_c ( ConstSpiceDouble eulang[6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble xform [6][6] ); + + + void evsgp4_c ( SpiceDouble et, + ConstSpiceDouble geophs [8], + ConstSpiceDouble elems [10], + SpiceDouble state [6] ); + + + SpiceBoolean exists_c ( ConstSpiceChar * name ); + + + void expool_c ( ConstSpiceChar * name, + SpiceBoolean * found ); + + + SpiceBoolean failed_c ( void ); + + void fovray_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + void fovtrg_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + + void filli_c ( SpiceInt value, + SpiceInt ndim, + SpiceInt array [] ); + + + void filld_c ( SpiceDouble value, + SpiceInt ndim, + SpiceDouble array [] ); + + + void frame_c ( SpiceDouble x[3], + SpiceDouble y[3], + SpiceDouble z[3] ); + + + void frinfo_c ( SpiceInt frcode, + SpiceInt * cent, + SpiceInt * clss, + SpiceInt * clssid, + SpiceBoolean * found ); + + + void frmnam_c ( SpiceInt frcode, + SpiceInt lenout, + SpiceChar * frname ); + + + void ftncls_c ( SpiceInt unit ); + + + void furnsh_c ( ConstSpiceChar * file ); + + + void gcpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * cvals, + SpiceBoolean * found ); + + + void gdpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values, + SpiceBoolean * found ); + + + void georec_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + void getcml_c ( SpiceInt * argc, + SpiceChar *** argv ); + + + void getelm_c ( SpiceInt frstyr, + SpiceInt lineln, + const void * lines, + SpiceDouble * epoch, + SpiceDouble * elems ); + + + void getfat_c ( ConstSpiceChar * file, + SpiceInt arclen, + SpiceInt typlen, + SpiceChar * arch, + SpiceChar * type ); + + + void getfov_c ( SpiceInt instid, + SpiceInt room, + SpiceInt shapelen, + SpiceInt framelen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getfvn_c ( ConstSpiceChar * inst, + SpiceInt room, + SpiceInt shalen, + SpiceInt fralen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getmsg_c ( ConstSpiceChar * option, + SpiceInt lenout, + SpiceChar * msg ); + + + SpiceBoolean gfbail_c ( void ); + + + void gfclrh_c ( void ); + + + void gfdist_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfevnt_c ( void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + ConstSpiceChar * gquant, + SpiceInt qnpars, + SpiceInt lenvals, + const void * qpnams, + const void * qcpars, + ConstSpiceDouble * qdpars, + ConstSpiceInt * qipars, + ConstSpiceBoolean * qlpars, + ConstSpiceChar * op, + SpiceDouble refval, + SpiceDouble tol, + SpiceDouble adjust, + SpiceBoolean rpt, + + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + + void ( * udrepf ) ( void ), + SpiceInt nintvls, + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gffove_c ( ConstSpiceChar * inst, + ConstSpiceChar * tshape, + ConstSpiceDouble raydir [3], + ConstSpiceChar * target, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfilum_c ( ConstSpiceChar * method, + ConstSpiceChar * angtyp, + ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfinth_c ( int sigcode ); + + + void gfocce_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfoclt_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfpa_c ( ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfposc_c ( ConstSpiceChar * target, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrefn_c ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ); + + + void gfrepf_c ( void ); + + + void gfrepi_c ( SpiceCell * window, + ConstSpiceChar * begmss, + ConstSpiceChar * endmss ); + + + void gfrepu_c ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble time ); + + + void gfrfov_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrr_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsep_c ( ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsntc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsstp_c ( SpiceDouble step ); + + + void gfstep_c ( SpiceDouble time, + SpiceDouble * step ); + + + void gfstol_c ( SpiceDouble value ); + + + void gfsubc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gftfov_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfudb_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble et, + SpiceBoolean * xbool ), + + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfuds_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble x, + SpiceBoolean * xbool ), + + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gipool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * ivals, + SpiceBoolean * found ); + + + void gnpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * kvars, + SpiceBoolean * found ); + + + void hrmesp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x, + SpiceDouble * f, + SpiceDouble * df ); + + + void hrmint_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble x, + SpiceDouble * work, + SpiceDouble * f, + SpiceDouble * df ); + + + SpiceDouble halfpi_c ( void ); + + + void hx2dp_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * number, + SpiceBoolean * error, + SpiceChar * errmsg + ); + + + void ident_c ( SpiceDouble matrix[3][3] ); + + + void ilumin_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_plid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceInt plid, + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn, + SpiceBoolean * visible, + SpiceBoolean * lit ); + + + void illumf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * ilusrc, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * incdnc, + SpiceDouble * emissn, + SpiceBoolean * visibl, + SpiceBoolean * lit ); + + + void illumg_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * illum, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void inedpl_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpicePlane * plane, + SpiceEllipse * ellipse, + SpiceBoolean * found ); + + + void inelpl_c ( ConstSpiceEllipse * ellips, + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt1[3], + SpiceDouble xpt2[3] ); + + + void insrtc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void insrtd_c ( SpiceDouble item, + SpiceCell * set ); + + + void insrti_c ( SpiceInt item, + SpiceCell * set ); + + + void inter_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void inrypl_c ( ConstSpiceDouble vertex [3], + ConstSpiceDouble dir [3], + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt [3] ); + + + SpiceInt intmax_c ( void ); + + + SpiceInt intmax_ ( void ); + + + SpiceInt intmin_c ( void ); + + + SpiceInt intmin_ ( void ); + + + void invert_c ( ConstSpiceDouble m1[3][3], + SpiceDouble m2[3][3] ); + + + void invort_c ( ConstSpiceDouble m [3][3], + SpiceDouble mit[3][3] ); + + + void invstm_c ( ConstSpiceDouble mat [6][6], + SpiceDouble invmat [6][6] ); + + + SpiceBoolean isordv_c ( ConstSpiceInt * array, + SpiceInt n ); + + + SpiceBoolean isrot_c ( ConstSpiceDouble m [3][3], + SpiceDouble ntol, + SpiceDouble dtol ); + + + + SpiceInt isrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt isrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt isrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceBoolean iswhsp_c ( ConstSpiceChar * string ); + + + SpiceDouble j1900_c ( void ); + + + SpiceDouble j1950_c ( void ); + + + SpiceDouble j2000_c ( void ); + + + SpiceDouble j2100_c ( void ); + + + SpiceDouble jyear_c ( void ); + + + void kclear_c ( void ); + + + void kdata_c ( SpiceInt which, + ConstSpiceChar * kind, + SpiceInt fillen, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * file, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kinfo_c ( ConstSpiceChar * file, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kplfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void ktotal_c ( ConstSpiceChar * kind, + SpiceInt * count ); + + + void kxtrct_c ( ConstSpiceChar * keywd, + SpiceInt termlen, + const void * terms, + SpiceInt nterms, + SpiceInt stringlen, + SpiceInt substrlen, + SpiceChar * string, + SpiceBoolean * found, + SpiceChar * substr ); + + + SpiceInt lastnb_c ( ConstSpiceChar * string ); + + + void latcyl_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * r, + SpiceDouble * lonc, + SpiceDouble * z ); + + + void latrec_c ( SpiceDouble radius, + SpiceDouble longitude, + SpiceDouble latitude, + SpiceDouble rectan [3] ); + + + void latsph_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * rho, + SpiceDouble * colat, + SpiceDouble * lons ); + + + void latsrf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble lonlat[][2], + SpiceDouble srfpts[][3] ); + + + void lcase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ldpool_c ( ConstSpiceChar * filename ); + + + SpiceDouble lgresp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void lgrind_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble * work, + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dp ); + + + SpiceDouble lgrint_c ( SpiceInt n, + ConstSpiceDouble xvals [], + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void limb_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble limbpts [][3], + SpiceInt plateIDs [] ); + + + void limbpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void llgrid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt npoints, + ConstSpiceDouble grid [][2], + SpiceDouble spoints [][3], + SpiceInt plateIDs [] ); + + + void lmpool_c ( const void * cvals, + SpiceInt lenvals, + SpiceInt n ); + + + void lparse_c ( ConstSpiceChar * list, + ConstSpiceChar * delim, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparsm_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparss_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceCell * set ); + + + SpiceDouble lspcn_c ( ConstSpiceChar * body, + SpiceDouble et, + ConstSpiceChar * abcorr ); + + + SpiceInt lstlec_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstled_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlei_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + SpiceInt lstltc_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstltd_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlti_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + void ltime_c ( SpiceDouble etobs, + SpiceInt obs, + ConstSpiceChar * dir, + SpiceInt targ, + SpiceDouble * ettarg, + SpiceDouble * elapsd ); + + + void lx4dec_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4num_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4sgn_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4uns_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lxqstr_c ( ConstSpiceChar * string, + SpiceChar qchar, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void m2eul_c ( ConstSpiceDouble r[3][3], + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble * angle3, + SpiceDouble * angle2, + SpiceDouble * angle1 ); + + + void m2q_c ( ConstSpiceDouble r[3][3], + SpiceDouble q[4] ); + + + + SpiceBoolean matchi_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceBoolean matchw_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceDouble maxd_c ( SpiceInt n, + ... ); + + + SpiceInt maxi_c ( SpiceInt n, + ... ); + + + void mequ_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void mequg_c ( const void * m1, + SpiceInt nr, + SpiceInt nc, + void * mout ); + + + SpiceDouble mind_c ( SpiceInt n, + ... ); + + + SpiceInt mini_c ( SpiceInt n, + ... ); + + + int moved_ ( SpiceDouble * arrfrm, + SpiceInt * ndim, + SpiceDouble * arrto ); + + + void moved_c ( ConstSpiceDouble arrfrm [], + SpiceInt ndim, + SpiceDouble arrto [] ); + + + void mtxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mtxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mtxv_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble vin [3], + SpiceDouble vout[3] ); + + + void mtxvg_c ( const void * m1, + const void * v2, + SpiceInt ncol1, + SpiceInt nr1r2, + void * vout ); + + + void mxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mxmt_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmtg_c ( const void * m1, + const void * m2, + SpiceInt nrow1, + SpiceInt nc1c2, + SpiceInt nrow2, + void * mout ); + + + void mxv_c ( ConstSpiceDouble m1[3][3], + ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void mxvg_c ( const void * m1, + const void * v2, + SpiceInt nrow1, + SpiceInt nc1r2, + void * vout ); + + + void namfrm_c ( ConstSpiceChar * frname, + SpiceInt * frcode ); + + + SpiceInt ncpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt ncposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void nearpt_c ( ConstSpiceDouble positn[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble npoint[3], + SpiceDouble * alt ); + + + void nextwd_c ( ConstSpiceChar * string, + SpiceInt nexlen, + SpiceInt reslen, + SpiceChar * next, + SpiceChar * rest ); + + + void npedln_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble linept[3], + ConstSpiceDouble linedr[3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void npelpt_c ( ConstSpiceDouble point[3], + ConstSpiceEllipse * ellips, + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void nplnpt_c ( ConstSpiceDouble linpt [3], + ConstSpiceDouble lindir [3], + ConstSpiceDouble point [3], + SpiceDouble pnear [3], + SpiceDouble * dist ); + + + void nthwd_c ( ConstSpiceChar * string, + SpiceInt nth, + SpiceInt worlen, + SpiceChar * word, + SpiceInt * loc ); + + + void nvc2pl_c ( ConstSpiceDouble normal[3], + SpiceDouble constant, + SpicePlane * plane ); + + + void nvp2pl_c ( ConstSpiceDouble normal[3], + ConstSpiceDouble point[3], + SpicePlane * plane ); + + void occult_c ( ConstSpiceChar * target1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * target2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble time, + SpiceInt * occult_code ); + + SpiceInt ordc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceInt ordd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceInt ordi_c ( SpiceInt item, + SpiceCell * set ); + + + void orderc_c ( SpiceInt lenvals, + const void * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderd_c ( ConstSpiceDouble * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderi_c ( ConstSpiceInt * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void oscelt_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[8] ); + + + void oscltx_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[SPICE_OSCLTX_NELTS] ); + + + void pckcls_c ( SpiceInt handle ); + + + void pckcov_c ( ConstSpiceChar * pck, + SpiceInt idcode, + SpiceCell * cover ); + + + void pckfrm_c ( ConstSpiceChar * pck, + SpiceCell * ids ); + + + void pcklof_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void pckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void pckuof_c ( SpiceInt handle ); + + + void pckw02_c ( SpiceInt handle, + SpiceInt clssid, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + SpiceDouble cdata [], + SpiceDouble btime ); + + + void pcpool_c ( ConstSpiceChar * name, + SpiceInt n, + SpiceInt lenvals, + const void * cvals ); + + + void pdpool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceDouble * dvals ); + + + void pgrrec_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + SpiceDouble phaseq_c ( SpiceDouble et, + ConstSpiceChar * target, + ConstSpiceChar * illumn, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + SpiceDouble pi_c ( void ); + + + void pipool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceInt * ivals ); + + + void pjelpl_c ( ConstSpiceEllipse * elin, + ConstSpicePlane * plane, + SpiceEllipse * elout ); + + + void pl2nvc_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble * constant ); + + + void pl2nvp_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble point[3] ); + + + void pl2psv_c ( ConstSpicePlane * plane, + SpiceDouble point[3], + SpiceDouble span1[3], + SpiceDouble span2[3] ); + + + SpiceDouble pltar_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void pltexp_c ( ConstSpiceDouble iverts[3][3], + SpiceDouble delta, + SpiceDouble overts[3][3] ); + + + void pltnp_c ( ConstSpiceDouble point[3], + ConstSpiceDouble v1 [3], + ConstSpiceDouble v2 [3], + ConstSpiceDouble v3 [3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void pltnrm_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + ConstSpiceDouble v3[3], + SpiceDouble normal[3] ); + + + SpiceDouble pltvol_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void polyds_c ( ConstSpiceDouble * coeffs, + SpiceInt deg, + SpiceInt nderiv, + SpiceDouble t, + SpiceDouble * p ); + + + SpiceInt pos_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + SpiceInt posr_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + void prefix_c ( ConstSpiceChar * pref, + SpiceInt spaces, + SpiceInt lenout, + SpiceChar * string ); + + + SpiceChar * prompt_c ( ConstSpiceChar * prmptStr, + SpiceInt lenout, + SpiceChar * buffer ); + + + void prop2b_c ( SpiceDouble gm, + ConstSpiceDouble pvinit[6], + SpiceDouble dt, + SpiceDouble pvprop[6] ); + + + void prsdp_c ( ConstSpiceChar * string, + SpiceDouble * dpval ); + + + void prsint_c ( ConstSpiceChar * string, + SpiceInt * intval ); + + + void psv2pl_c ( ConstSpiceDouble point[3], + ConstSpiceDouble span1[3], + ConstSpiceDouble span2[3], + SpicePlane * plane ); + + + void putcml_c ( SpiceInt argc , + SpiceChar ** argv ); + + + void pxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble rotate[3][3] ); + + + void pxfrm2_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble etfrom, + SpiceDouble etto, + SpiceDouble rotate[3][3] ); + + + void q2m_c ( ConstSpiceDouble q[4], + SpiceDouble r[3][3] ); + + + void qcktrc_c ( SpiceInt tracelen, + SpiceChar * trace ); + + + void qderiv_c ( SpiceInt ndim, + ConstSpiceDouble f0 [], + ConstSpiceDouble f2 [], + SpiceDouble delta, + SpiceDouble dfdt [] ); + + + void qdq2av_c ( ConstSpiceDouble q[4], + ConstSpiceDouble dq[4], + SpiceDouble av[3] ); + + + void qxq_c ( ConstSpiceDouble q1[4], + ConstSpiceDouble q2[4], + SpiceDouble qout[4] ); + + + + void radrec_c ( SpiceDouble range, + SpiceDouble ra, + SpiceDouble dec, + SpiceDouble rectan[3] ); + + + void rav2xf_c ( ConstSpiceDouble rot [3][3], + ConstSpiceDouble av [3], + SpiceDouble xform [6][6] ); + + + void raxisa_c ( ConstSpiceDouble matrix[3][3], + SpiceDouble axis [3], + SpiceDouble * angle ); + + + void rdtext_c ( ConstSpiceChar * file, + SpiceInt lenout, + SpiceChar * line, + SpiceBoolean * eof ); + + + void recazl_c ( ConstSpiceDouble rectan [3], + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble * range, + SpiceDouble * az, + SpiceDouble * el ); + + + void reccyl_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void recgeo_c ( ConstSpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void reclat_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * longitude, + SpiceDouble * latitude ); + + + void recpgr_c ( ConstSpiceChar * body, + SpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void recrad_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * ra, + SpiceDouble * dec ); + + + + void reordc_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void reordd_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceDouble * array ); + + + void reordi_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt * array ); + + + void reordl_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceBoolean * array ); + + + void removc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void removd_c ( SpiceDouble item, + SpiceCell * set ); + + + void removi_c ( SpiceInt item, + SpiceCell * set ); + + + void repmc_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + ConstSpiceChar * value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmct_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void repml_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceBoolean value, + SpiceChar rtcase, + SpiceInt outlen, + SpiceChar * out ); + + + void repmd_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceInt lenout, + SpiceChar * out ); + + + void repmf_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceChar format, + SpiceInt lenout, + SpiceChar * out ); + + + void repmi_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmot_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void reset_c ( void ); + + + SpiceBoolean return_c ( void ); + + + void recsph_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void rotate_c ( SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotmat_c ( ConstSpiceDouble m1[3][3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotvec_c ( ConstSpiceDouble v1[3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble vout[3] ); + + + SpiceDouble rpd_c ( void ); + + + void rquad_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble root1[2], + SpiceDouble root2[2] ); + + + void saelgv_c ( ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void scard_c ( SpiceInt card, + SpiceCell * cell ); + + + void scdecd_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2s_c ( SpiceInt sc, + SpiceDouble et, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2c_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void sce2t_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void scencd_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * sclkdp ); + + + void scfmt_c ( SpiceInt sc, + SpiceDouble ticks, + SpiceInt clkstrlen, + SpiceChar * clkstr ); + + + void scpart_c ( SpiceInt sc, + SpiceInt * nparts, + SpiceDouble * pstart, + SpiceDouble * pstop ); + + + void scs2e_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * et ); + + + void sct2e_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceDouble * et ); + + + void sctiks_c ( SpiceInt sc, + ConstSpiceChar * clkstr, + SpiceDouble * ticks ); + + + void sdiff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean set_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void setmsg_c ( ConstSpiceChar * msg ); + + + void shellc_c ( SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void shelld_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void shelli_c ( SpiceInt ndim, + SpiceInt * array ); + + + void sigerr_c ( ConstSpiceChar * message ); + + + void sincpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceBoolean * found ); + + + SpiceInt size_c ( SpiceCell * size ); + + + SpiceDouble spd_c ( void ); + + + void sphcyl_c ( SpiceDouble radius, + SpiceDouble colat, + SpiceDouble slon, + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void sphlat_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lons, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void sphrec_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble rectan[3] ); + + + void spk14a_c ( SpiceInt handle, + SpiceInt ncsets, + ConstSpiceDouble coeffs [], + ConstSpiceDouble epochs [] ); + + + void spk14b_c ( SpiceInt handle, + ConstSpiceChar * segid, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + SpiceInt chbdeg ); + + + void spk14e_c ( SpiceInt handle ); + + + void spkapo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs[6], + ConstSpiceChar * abcorr, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkapp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs [6], + ConstSpiceChar * abcorr, + SpiceDouble starg [6], + SpiceDouble * lt ); + + + void spkacs_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkaps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + ConstSpiceDouble accobs[3], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkcls_c ( SpiceInt handle ); + + + void spkcov_c ( ConstSpiceChar * spk, + SpiceInt idcode, + SpiceCell * cover ); + + + void spkcpo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcpt_c ( ConstSpiceDouble trgpos [3], + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [6], + SpiceDouble obsepc, + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvt_c ( ConstSpiceDouble trgsta [6], + SpiceDouble trgepc, + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkez_c ( SpiceInt target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + SpiceInt observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkezp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkezr_c ( ConstSpiceChar * target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgeo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble pos[3], + SpiceDouble * lt ); + + + void spklef_c ( ConstSpiceChar * filename, + SpiceInt * handle ); + + + void spkltc_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkobj_c ( ConstSpiceChar * spk, + SpiceCell * ids ); + + + void spkopa_c ( ConstSpiceChar * file, + SpiceInt * handle ); + + + void spkopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void spkpds_c ( SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceInt type, + SpiceDouble first, + SpiceDouble last, + SpiceDouble descr[5] ); + + + void spkpos_c ( ConstSpiceChar * targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkpvn_c ( SpiceInt handle, + ConstSpiceDouble descr [5], + SpiceDouble et, + SpiceInt * ref, + SpiceDouble state [6], + SpiceInt * center ); + + + void spksfs_c ( SpiceInt body, + SpiceDouble et, + SpiceInt idlen, + SpiceInt * handle, + SpiceDouble descr [5], + SpiceChar * ident, + SpiceBoolean * found ); + + + void spkssb_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceDouble starg[6] ); + + + void spksub_c ( SpiceInt handle, + SpiceDouble descr[5], + ConstSpiceChar * ident, + SpiceDouble begin, + SpiceDouble end, + SpiceInt newh ); + + + void spkuds_c ( ConstSpiceDouble descr [5], + SpiceInt * body, + SpiceInt * center, + SpiceInt * frame, + SpiceInt * type, + SpiceDouble * first, + SpiceDouble * last, + SpiceInt * begin, + SpiceInt * end ); + + + void spkuef_c ( SpiceInt handle ); + + + void spkw02_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw03_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw05_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble gm, + SpiceInt n, + ConstSpiceDouble states [][6], + ConstSpiceDouble epochs [] ); + + + void spkw08_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch1, + SpiceDouble step ); + + + void spkw09_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw10_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + ConstSpiceDouble consts [8], + SpiceInt n, + ConstSpiceDouble elems [], + ConstSpiceDouble epochs [] ); + + + void spkw12_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch0, + SpiceDouble step ); + + + void spkw13_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw15_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble tp [3], + ConstSpiceDouble pa [3], + SpiceDouble p, + SpiceDouble ecc, + SpiceDouble j2flg, + ConstSpiceDouble pv [3], + SpiceDouble gm, + SpiceDouble j2, + SpiceDouble radius ); + + + void spkw17_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble eqel [9], + SpiceDouble rapol, + SpiceDouble decpol ); + + + void spkw18_c ( SpiceInt handle, + SpiceSPK18Subtype subtyp, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + const void * packts, + ConstSpiceDouble epochs[] ); + + + void spkw20_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata[], + SpiceDouble dscale, + SpiceDouble tscale, + SpiceDouble initjd, + SpiceDouble initfr ); + + + + void srfrec_c ( SpiceInt body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble rectan[3] ); + + + void srfc2s_c ( SpiceInt code, + SpiceInt bodyid, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfcss_c ( SpiceInt code, + ConstSpiceChar * bodstr, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfnrm_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble srfpts[][3], + SpiceDouble normls[][3] ); + + + void srfs2c_c ( ConstSpiceChar * srfstr, + ConstSpiceChar * bodstr, + SpiceInt * code, + SpiceBoolean * found ); + + + void srfscc_c ( ConstSpiceChar * surfce, + SpiceInt bodyid, + SpiceInt * surfid, + SpiceBoolean * found ); + + + void srfxpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceBoolean * found ); + + + void ssize_c ( SpiceInt size, + SpiceCell * cell ); + + + void stelab_c ( ConstSpiceDouble pobj[3], + ConstSpiceDouble vobs[3], + SpiceDouble appobj[3] ); + + + void stlabx_c ( ConstSpiceDouble pobj [3], + ConstSpiceDouble vobs [3], + SpiceDouble corpos [3] ); + + + void stpool_c ( ConstSpiceChar * item, + SpiceInt nth, + ConstSpiceChar * contin, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * size, + SpiceBoolean * found ); + + + void str2et_c ( ConstSpiceChar * date, + SpiceDouble * et ); + + + void subpnt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt ); + + void subpt_pl02( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt, + SpiceInt * plateID ); + + + void subslr_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subsol_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint[3] ); + + + void subsol_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceInt * plateID ); + + + SpiceDouble sumad_c ( ConstSpiceDouble array[], + SpiceInt n ); + + + SpiceInt sumai_c ( ConstSpiceInt array[], + SpiceInt n ); + + + void surfnm_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble point[3], + SpiceDouble normal[3] ); + + + void surfpt_c ( ConstSpiceDouble positn[3], + ConstSpiceDouble u[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble point[3], + SpiceBoolean * found ); + + + void surfpv_c ( ConstSpiceDouble stvrtx[6], + ConstSpiceDouble stdir [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble stx [6], + SpiceBoolean * found ); + + + void swpool_c ( ConstSpiceChar * agent, + SpiceInt nnames, + SpiceInt lenvals, + const void * names ); + + + void sxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble xform[6][6] ); + + + void szpool_c ( ConstSpiceChar * name, + SpiceInt * n, + SpiceBoolean * found ); + + + void tangpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble tanpt [3], + SpiceDouble * alt, + SpiceDouble * range, + SpiceDouble srfpt [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void term_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble trmpts [][3], + SpiceInt plateIDs [] ); + + + void termpt_c ( ConstSpiceChar * method, + ConstSpiceChar * ilusrc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void timdef_c ( ConstSpiceChar * action, + ConstSpiceChar * item, + SpiceInt lenout, + SpiceChar * value ); + + + void timout_c ( SpiceDouble et, + ConstSpiceChar * pictur, + SpiceInt lenout, + SpiceChar * output ); + + + void tipbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tipm[3][3] ); + + + void tisbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tsipm[6][6] ); + + + void tkfram_c ( SpiceInt frcode, + SpiceDouble rot [3][3], + SpiceInt * frame, + SpiceBoolean * found ); + + + ConstSpiceChar * tkvrsn_c ( ConstSpiceChar * item ); + + + void tparch_c ( ConstSpiceChar * type ); + + + void tparse_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * sp2000, + SpiceChar * errmsg ); + + + void tpictr_c ( ConstSpiceChar * sample, + SpiceInt lenpictur, + SpiceInt lenerror, + SpiceChar * pictur, + SpiceBoolean * ok, + SpiceChar * error ); + + + SpiceDouble trace_c ( ConstSpiceDouble matrix[3][3] ); + + + void trcdep_c ( SpiceInt * depth ); + + + void trcnam_c ( SpiceInt index, + SpiceInt namelen, + SpiceChar * name ); + + + void trcoff_c ( void ); + + + SpiceDouble trgsep_c ( SpiceDouble et, + ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + void tsetyr_c ( SpiceInt year ); + + + SpiceDouble twopi_c ( void ); + + + void twovec_c ( ConstSpiceDouble axdef [3], + SpiceInt indexa, + ConstSpiceDouble plndef [3], + SpiceInt indexp, + SpiceDouble mout [3][3] ); + + + void twovxf_c ( ConstSpiceDouble axdef [6], + SpiceInt indexa, + ConstSpiceDouble plndef [6], + SpiceInt indexp, + SpiceDouble xform [6][6] ); + + + SpiceDouble tyear_c ( void ); + + + void ucase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ucrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void uddc_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + + SpiceDouble x, + SpiceDouble dx, + SpiceBoolean * isdecr ); + + + void uddf_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + SpiceDouble x, + SpiceDouble dx, + SpiceDouble * deriv ); + + + void udf_c ( SpiceDouble x, + SpiceDouble * value ); + + + void union_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceDouble unitim_c ( SpiceDouble epoch, + ConstSpiceChar * insys, + ConstSpiceChar * outsys ); + + + void unload_c ( ConstSpiceChar * file ); + + + void unorm_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3], + SpiceDouble * vmag ); + + + void unormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout, + SpiceDouble * vmag ); + + + void utc2et_c ( ConstSpiceChar * utcstr, + SpiceDouble * et ); + + + void vadd_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ) ; + + + void vaddg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + void valid_c ( SpiceInt size, + SpiceInt n, + SpiceCell * a ); + + + void vcrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + SpiceDouble vdist_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vdistg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vdot_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + SpiceDouble vdotg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + void vequ_c ( ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void vequg_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vhat_c ( ConstSpiceDouble v1 [3], + SpiceDouble vout[3] ); + + + void vhatg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vlcom_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble sum[3] ); + + + void vlcom3_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble c, + ConstSpiceDouble v3[3], + SpiceDouble sum[3] ); + + + void vlcomg_c ( SpiceInt n, + SpiceDouble a, + ConstSpiceDouble * v1, + SpiceDouble b, + ConstSpiceDouble * v2, + SpiceDouble * sum ); + + + void vminug_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vminus_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + SpiceDouble vnorm_c ( ConstSpiceDouble v1[3] ); + + + SpiceDouble vnormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim ); + + + void vpack_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble v[3] ); + + + void vperp_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + void vprjp_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * plane, + SpiceDouble vout [3] ); + + + void vprjpi_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * projpl, + ConstSpicePlane * invpl, + SpiceDouble vout [3], + SpiceBoolean * found ); + + + void vprojg_c ( ConstSpiceDouble a [], + ConstSpiceDouble b [], + SpiceInt ndim, + SpiceDouble p [] ); + + + void vproj_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + SpiceDouble vrel_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vrelg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + void vrotv_c ( ConstSpiceDouble v[3], + ConstSpiceDouble axis[3], + SpiceDouble theta, + SpiceDouble r[3] ); + + + void vscl_c ( SpiceDouble s, + ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + void vsclg_c ( SpiceDouble s, + ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsep_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + void vsub_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void vsubg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsepg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vtmv_c ( ConstSpiceDouble v1 [3], + ConstSpiceDouble matrix [3][3], + ConstSpiceDouble v2 [3] ); + + + SpiceDouble vtmvg_c ( const void * v1, + const void * matrix, + const void * v2, + SpiceInt nrow, + SpiceInt ncol ); + + + void vupack_c ( ConstSpiceDouble v[3], + SpiceDouble * x, + SpiceDouble * y, + SpiceDouble * z ); + + SpiceBoolean vzero_c ( ConstSpiceDouble v[3] ); + + + SpiceBoolean vzerog_c ( ConstSpiceDouble * v, + SpiceInt ndim ); + + SpiceInt wncard_c ( SpiceCell * window ); + + void wncomd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window, + SpiceCell * result ); + + + void wncond_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wndifd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnelmd_c ( SpiceDouble point, + SpiceCell * window ); + + + void wnexpd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnextd_c ( SpiceChar side, + SpiceCell * window ); + + + void wnfetd_c ( SpiceCell * window, + SpiceInt n, + SpiceDouble * left, + SpiceDouble * right ); + + + void wnfild_c ( SpiceDouble sml, + SpiceCell * window ); + + + void wnfltd_c ( SpiceDouble sml, + SpiceCell * window ); + + + SpiceBoolean wnincd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wninsd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnintd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnreld_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void wnsumd_c ( SpiceCell * window, + SpiceDouble * meas, + SpiceDouble * avg, + SpiceDouble * stddev, + SpiceInt * shortest, + SpiceInt * longest ); + + + void wnunid_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void wnvald_c ( SpiceInt size, + SpiceInt n, + SpiceCell * window ); + + + + void xf2eul_c ( ConstSpiceDouble xform [6][6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble eulang [6], + SpiceBoolean * unique ); + + + void xf2rav_c ( ConstSpiceDouble xform [6][6], + SpiceDouble rot [3][3], + SpiceDouble av [3] ); + + void xfmsta_c ( ConstSpiceDouble input_state [6], + ConstSpiceChar * input_coord_sys, + ConstSpiceChar * output_coord_sys, + ConstSpiceChar * body, + SpiceDouble output_state [6] ); + + void xpose_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void xpose6_c ( ConstSpiceDouble m1 [6][6], + SpiceDouble mout[6][6] ); + + + void xposeg_c ( const void * matrix, + SpiceInt nrow, + SpiceInt ncol, + void * xposem ); + + + void zzgetcml_c( SpiceInt * argc, + SpiceChar *** argv, + SpiceBoolean init ); + + + SpiceBoolean zzgfgeth_c ( void ); + + + void zzgfsavh_c( SpiceBoolean status ); + + + void zzsynccl_c( SpiceTransDir xdir, + SpiceCell * cell ); + + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZrnm.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZrnm.h new file mode 100644 index 000000000..2542b343c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZrnm.h @@ -0,0 +1,82 @@ +/* + +-Header_File SpiceZrnm.h ( CSPICE rename assignments ) + +-Abstract + + Reassign CSPICE symbol names to prevent symbol collisions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + Compiled symbol names in CSPICE may collide with symbols in other, + non-SPICE libraries. This file redefines names which have or may + cause a collision. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.0.0, 17-OCT-2011 (EDW) + +-Index_Entries + + Rename assignments for CSPICE functions + +*/ + + +#ifndef HAVE_SPICERENAME_H + +/* +Redefine names causing symbol conflicts: +*/ +#define HAVE_SPICERENAME_H + + /* dpstrf_ may exist in the LAPACK library. */ + + #define dpstrf_ zz_dpstrf_ + + /* Just in case. */ + + #define pi_ zz_pi_ + #define vnorm_ zz_vnorm_ + #define vdist_ zz_vdist_ + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZst.h b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZst.h new file mode 100644 index 000000000..b39a49f05 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/SpiceZst.h @@ -0,0 +1,207 @@ +/* + +-Header_File SpiceZst.h ( Fortran/C string conversion utilities ) + +-Abstract + + Define prototypes for CSPICE Fortran/C string conversion utilities. + + Caution: these prototypes are subject to revision without notice. + + These are private routines and are not part of the official CSPICE + user interface. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.0.0, 24-FEB-2021 (NJB) + + Added prototype for function C_OptEmptyStr. + + -CSPICE Version 6.0.0, 10-JUL-2002 (NJB) + + Added prototype for new functions C2F_MapStrArr and + C2F_MapFixStrArr. + + -CSPICE Version 5.0.0, 18-MAY-2001 (WLT) + + Added #ifdef's to add namespace specification for C++ compilation. + + -CSPICE Version 4.0.0, 14-FEB-2000 (NJB) + + Added prototype for new function C2F_CreateStrArr_Sig. + + -CSPICE Version 3.0.0, 12-JUL-1999 (NJB) + + Added prototype for function C2F_CreateFixStrArr. + Added prototype for function F2C_ConvertTrStrArr. + Removed reference in comments to C2F_CreateStrArr_Sig, which + does not exist. + + -CSPICE Version 2.0.1, 06-MAR-1998 (NJB) + + Type SpiceVoid was changed to void. + + -CSPICE Version 2.0.1, 09-FEB-1998 (EDW) + + Added prototype for F2C_ConvertStrArr. + + -CSPICE Version 2.0.0, 04-JAN-1998 (NJB) + + Added prototype for F2C_ConvertStr. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + protoypes of CSPICE Fortran/C string conversion utilities + +*/ + +#include +#include +#include "SpiceZdf.h" + +#ifndef HAVE_FCSTRINGS_H +#define HAVE_FCSTRINGS_H + +#ifdef __cplusplus +namespace Jpl_NAIF_CSpice { +#endif + + + ConstSpiceChar * C_OptEmptyStr ( ConstSpiceChar * cStr ); + + + SpiceStatus C2F_CreateStr ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStr_Sig ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateFixStrArr ( SpiceInt nStr, + SpiceInt cStrDim, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_CreateStrArr ( SpiceInt, + ConstSpiceChar **, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStrArr_Sig ( SpiceInt nStr, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapFixStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_StrCpy ( ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + void F_Alloc ( SpiceInt, + SpiceChar** ); + + void F2C_ConvertStr ( SpiceInt, + SpiceChar * ); + + void F2C_ConvertStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + void F2C_ConvertTrStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + SpiceStatus F2C_CreateStr ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + void F2C_CreateStr_Sig ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + SpiceStatus F2C_CreateStrArr ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_CreateStrArr_Sig ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_FreeStrArr ( SpiceChar **cStrArr ); + + + SpiceStatus F2C_StrCpy ( SpiceInt, + ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + SpiceInt F_StrLen ( SpiceInt, + ConstSpiceChar * ); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/f2c.h b/Src/Celbody/SPICE/cspice/linux_x86/include/f2c.h new file mode 100644 index 000000000..6b99950c3 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/f2c.h @@ -0,0 +1,696 @@ +/* + +-Header_File f2c.h ( CSPICE version of the f2c standard header file ) + +-Abstract + + Perform standard f2c declarations, customized for the host + environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + The standard f2c header file f2c.h must be included by every function + generated by running f2c on Fortran source code. The header f2c.h + includes typedefs used to provide a level of indirection in mapping + Fortran data types to native C data types. For example, Fortran + INTEGER variables are mapped to variables of type integer, where + integer is a C typedef. In the standard f2c.h header, the typedef + integer translates to the C type long. + + Because the standard version of f2c.h does not work on all platforms, + this header file contains two platform-dependent versions of it, + meant to be selected at build time via precompiler switches. The + precompiler switches reference macros defined in SpiceZpl.h to + determine for which host platform the code is targeted. The first + version of f2c.h, which works on most platforms, is copied directly + from the standard version of f2c.h. The second version is intended + for use on the DEC Alpha running Digital Unix and the Sun/Solaris + platform using 64 bit mode and running gcc. On those systems, longs + occupy 8 bytes, as do doubles. Because the Fortran standard requires + that INTEGERS occupy half the storage of DOUBLE PRECISION numbers, + INTEGERS should be mapped to 4-byte ints rather than 8-byte longs + on the platforms having 8-byte longs. In order to achieve this, the + header f2c.h was transformed using the sed command + + sed 's/long //' f2c.h + + The high-level structure of this file is then: + + # if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + + [ Alpha/Digital Unix and Sun Solaris 64 bit mode/gcc + version of f2c.h source code ] + + # else + + [ Standard version of f2c.h source code ] + + # endif + + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 31-JAN-1999 release + are: + + ALPHA-DIGITAL-UNIX + HP + NEXT + PC-LINUX + PC-MS + SGI-IRIX-N32 + SGI-IRIX-NO2 + SUN-SOLARIS + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 4.3.0, 09-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 4.2.0, 09-APR-2014 (EDW) (BVS) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Minor text format correction to eliminate error signal from + OS X cpp. The edit removes leading whitespace from the + final "#endif". + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 4.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 4.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 3.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + + Updated to support linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. See the header + + f2cMang.h + + for further information. + + -CSPICE Version 1.0.0, 07-FEB-1999 (NJB) + +*/ + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +/* +Optionally include name-mangling macros for f2c external symbols. +*/ +#ifdef MIX_C_AND_FORTRAN +#include "f2cMang.h" +#endif + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + +#if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + + /* + MODIFICATION + + The following code is intended to be used on the platforms where + a long is the size of a double and an int is half the + size of a double. + + Note that the comment line below indicating that the header is + "Standard" has been retained from the original, but is no longer + true. + */ + + + + + +/* f2c.h -- Standard Fortran to C header file */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef int integer; +typedef unsigned uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long longint; /* system-dependent */ +typedef unsigned long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef int flag; +typedef int ftnlen; +typedef int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + + /* + This marks the end of the MODIFICATION section version of f2c.h. + */ + +#else + + /* + The following code is the standard f2c.h header. In this + header, an "integer" is defined to be of type long. + + Because the code is copied verbatim, it does not follow the usual + CSPICE indentation pattern. + */ + + +/* f2c.h -- Standard Fortran to C header file */ + + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef long int integer; +typedef unsigned long uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef long int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long long longint; /* system-dependent */ +typedef unsigned long long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/f2cMang.h b/Src/Celbody/SPICE/cspice/linux_x86/include/f2cMang.h new file mode 100644 index 000000000..f18fded68 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/f2cMang.h @@ -0,0 +1,390 @@ +/* + +-Header_File f2cMang.h ( f2c external symbol mangling ) + +-Abstract + + Define macros that mangle the external symbols in the f2c F77 and I77 + libraries. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header supports linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. When the flag is defined, this header + defines macros that mangle the f2c library external symbols: + the symbol + + xxx + + gets mapped to + + xxx_f2c + + This mangling prevents name collisions between the f2c + implementations of the F77 and I77 library routines and those + in the corresponding Fortran libraries on a host system. + + The set of external symbols defined in the f2c libraries can + be determined by combining objects from both F77 and I77 into + a single Unix archive libarary, then running the Unix utility + nm on the that archive. If available, an nm option that selects + only external symbols should be invoked. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) It is recommended that use of the features implemented by this + header be avoided if at all possible. There are robustness and + portability problems associated with linking Fortran and C objects + together in one executable. + + 2) When f2c external symbol name mangling is invoked, objects + derived from C code translated from Fortran by f2c won't + link against CSPICE any longer, if these objects reference + the standard f2c external symbols. + + 3) The features implemented by this header have been tested only + under the Sun Solaris GCC, Sun Solaris native ANSI C, and + PC/Linux/gcc environments. + +-Version + + -CSPICE Version 2.0.1, 07-MAR-2009 (NJB) + + Restrictions header section was updated to note successful + testing on the PC/Linux/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + +*/ + + + /* + Define masking macros for f2c external symbols. + */ + #ifdef MIX_C_AND_FORTRAN + + /* + Define the macros only once, if they need to be defined. + */ + #ifndef F2C_MANGLING_DONE + + #define F77_aloc F77_aloc_f2c + #define F_err F_err_f2c + #define L_len L_len_f2c + #define abort_ abort__f2c + #define b_char b_char_f2c + #define c_abs c_abs_f2c + #define c_cos c_cos_f2c + #define c_dfe c_dfe_f2c + #define c_div c_div_f2c + #define c_due c_due_f2c + #define c_exp c_exp_f2c + #define c_le c_le_f2c + #define c_log c_log_f2c + #define c_sfe c_sfe_f2c + #define c_si c_si_f2c + #define c_sin c_sin_f2c + #define c_sqrt c_sqrt_f2c + #define c_sue c_sue_f2c + #define d_abs d_abs_f2c + #define d_acos d_acos_f2c + #define d_asin d_asin_f2c + #define d_atan d_atan_f2c + #define d_atn2 d_atn2_f2c + #define d_cnjg d_cnjg_f2c + #define d_cos d_cos_f2c + #define d_cosh d_cosh_f2c + #define d_dim d_dim_f2c + #define d_exp d_exp_f2c + #define d_imag d_imag_f2c + #define d_int d_int_f2c + #define d_lg10 d_lg10_f2c + #define d_log d_log_f2c + #define d_mod d_mod_f2c + #define d_nint d_nint_f2c + #define d_prod d_prod_f2c + #define d_sign d_sign_f2c + #define d_sin d_sin_f2c + #define d_sinh d_sinh_f2c + #define d_sqrt d_sqrt_f2c + #define d_tan d_tan_f2c + #define d_tanh d_tanh_f2c + #define derf_ derf__f2c + #define derfc_ derfc__f2c + #define do_fio do_fio_f2c + #define do_lio do_lio_f2c + #define do_ud do_ud_f2c + #define do_uio do_uio_f2c + #define do_us do_us_f2c + #define dtime_ dtime__f2c + #define e_rdfe e_rdfe_f2c + #define e_rdue e_rdue_f2c + #define e_rsfe e_rsfe_f2c + #define e_rsfi e_rsfi_f2c + #define e_rsle e_rsle_f2c + #define e_rsli e_rsli_f2c + #define e_rsue e_rsue_f2c + #define e_wdfe e_wdfe_f2c + #define e_wdue e_wdue_f2c + #define e_wsfe e_wsfe_f2c + #define e_wsfi e_wsfi_f2c + #define e_wsle e_wsle_f2c + #define e_wsli e_wsli_f2c + #define e_wsue e_wsue_f2c + #define ef1asc_ ef1asc__f2c + #define ef1cmc_ ef1cmc__f2c + #define en_fio en_fio_f2c + #define erf_ erf__f2c + #define erfc_ erfc__f2c + #define err__fl err__fl_f2c + #define etime_ etime__f2c + #define exit_ exit__f2c + #define f__Aquote f__Aquote_f2c + #define f__buflen f__buflen_f2c + #define f__cabs f__cabs_f2c + #define f__canseek f__canseek_f2c + #define f__cblank f__cblank_f2c + #define f__cf f__cf_f2c + #define f__cnt f__cnt_f2c + #define f__cp f__cp_f2c + #define f__cplus f__cplus_f2c + #define f__cursor f__cursor_f2c + #define f__curunit f__curunit_f2c + #define f__doed f__doed_f2c + #define f__doend f__doend_f2c + #define f__doned f__doned_f2c + #define f__donewrec f__donewrec_f2c + #define f__dorevert f__dorevert_f2c + #define f__elist f__elist_f2c + #define f__external f__external_f2c + #define f__fatal f__fatal_f2c + #define f__fmtbuf f__fmtbuf_f2c + #define f__formatted f__formatted_f2c + #define f__getn f__getn_f2c + #define f__hiwater f__hiwater_f2c + #define f__icend f__icend_f2c + #define f__icnum f__icnum_f2c + #define f__icptr f__icptr_f2c + #define f__icvt f__icvt_f2c + #define f__init f__init_f2c + #define f__inode f__inode_f2c + #define f__lchar f__lchar_f2c + #define f__lcount f__lcount_f2c + #define f__lioproc f__lioproc_f2c + #define f__lquit f__lquit_f2c + #define f__ltab f__ltab_f2c + #define f__ltype f__ltype_f2c + #define f__lx f__lx_f2c + #define f__ly f__ly_f2c + #define f__nonl f__nonl_f2c + #define f__nowreading f__nowreading_f2c + #define f__nowwriting f__nowwriting_f2c + #define f__parenlvl f__parenlvl_f2c + #define f__pc f__pc_f2c + #define f__putbuf f__putbuf_f2c + #define f__putn f__putn_f2c + #define f__r_mode f__r_mode_f2c + #define f__reading f__reading_f2c + #define f__reclen f__reclen_f2c + #define f__recloc f__recloc_f2c + #define f__recpos f__recpos_f2c + #define f__ret f__ret_f2c + #define f__revloc f__revloc_f2c + #define f__rp f__rp_f2c + #define f__scale f__scale_f2c + #define f__sequential f__sequential_f2c + #define f__svic f__svic_f2c + #define f__typesize f__typesize_f2c + #define f__units f__units_f2c + #define f__w_mode f__w_mode_f2c + #define f__workdone f__workdone_f2c + #define f_back f_back_f2c + #define f_clos f_clos_f2c + #define f_end f_end_f2c + #define f_exit f_exit_f2c + #define f_init f_init_f2c + #define f_inqu f_inqu_f2c + #define f_open f_open_f2c + #define f_rew f_rew_f2c + #define fk_open fk_open_f2c + #define flush_ flush__f2c + #define fmt_bg fmt_bg_f2c + #define fseek_ fseek__f2c + #define ftell_ ftell__f2c + #define g_char g_char_f2c + #define getenv_ getenv__f2c + #define h_abs h_abs_f2c + #define h_dim h_dim_f2c + #define h_dnnt h_dnnt_f2c + #define h_indx h_indx_f2c + #define h_len h_len_f2c + #define h_mod h_mod_f2c + #define h_nint h_nint_f2c + #define h_sign h_sign_f2c + #define hl_ge hl_ge_f2c + #define hl_gt hl_gt_f2c + #define hl_le hl_le_f2c + #define hl_lt hl_lt_f2c + #define i_abs i_abs_f2c + #define i_dim i_dim_f2c + #define i_dnnt i_dnnt_f2c + #define i_indx i_indx_f2c + #define i_len i_len_f2c + #define i_mod i_mod_f2c + #define i_nint i_nint_f2c + #define i_sign i_sign_f2c + #define iw_rev iw_rev_f2c + #define l_eof l_eof_f2c + #define l_ge l_ge_f2c + #define l_getc l_getc_f2c + #define l_gt l_gt_f2c + #define l_le l_le_f2c + #define l_lt l_lt_f2c + #define l_read l_read_f2c + #define l_ungetc l_ungetc_f2c + #define l_write l_write_f2c + #define lbit_bits lbit_bits_f2c + #define lbit_cshift lbit_cshift_f2c + #define lbit_shift lbit_shift_f2c + #define mk_hashtab mk_hashtab_f2c + #define nml_read nml_read_f2c + #define pars_f pars_f_f2c + #define pow_ci pow_ci_f2c + #define pow_dd pow_dd_f2c + #define pow_di pow_di_f2c + #define pow_hh pow_hh_f2c + #define pow_ii pow_ii_f2c + #define pow_ri pow_ri_f2c + #define pow_zi pow_zi_f2c + #define pow_zz pow_zz_f2c + #define r_abs r_abs_f2c + #define r_acos r_acos_f2c + #define r_asin r_asin_f2c + #define r_atan r_atan_f2c + #define r_atn2 r_atn2_f2c + #define r_cnjg r_cnjg_f2c + #define r_cos r_cos_f2c + #define r_cosh r_cosh_f2c + #define r_dim r_dim_f2c + #define r_exp r_exp_f2c + #define r_imag r_imag_f2c + #define r_int r_int_f2c + #define r_lg10 r_lg10_f2c + #define r_log r_log_f2c + #define r_mod r_mod_f2c + #define r_nint r_nint_f2c + #define r_sign r_sign_f2c + #define r_sin r_sin_f2c + #define r_sinh r_sinh_f2c + #define r_sqrt r_sqrt_f2c + #define r_tan r_tan_f2c + #define r_tanh r_tanh_f2c + #define rd_ed rd_ed_f2c + #define rd_ned rd_ned_f2c + #define s_cat s_cat_f2c + #define s_cmp s_cmp_f2c + #define s_copy s_copy_f2c + #define s_paus s_paus_f2c + #define s_rdfe s_rdfe_f2c + #define s_rdue s_rdue_f2c + #define s_rnge s_rnge_f2c + #define s_rsfe s_rsfe_f2c + #define s_rsfi s_rsfi_f2c + #define s_rsle s_rsle_f2c + #define s_rsli s_rsli_f2c + #define s_rsne s_rsne_f2c + #define s_rsni s_rsni_f2c + #define s_rsue s_rsue_f2c + #define s_stop s_stop_f2c + #define s_wdfe s_wdfe_f2c + #define s_wdue s_wdue_f2c + #define s_wsfe s_wsfe_f2c + #define s_wsfi s_wsfi_f2c + #define s_wsle s_wsle_f2c + #define s_wsli s_wsli_f2c + #define s_wsne s_wsne_f2c + #define s_wsni s_wsni_f2c + #define s_wsue s_wsue_f2c + #define sig_die sig_die_f2c + #define signal_ signal__f2c + #define system_ system__f2c + #define t_getc t_getc_f2c + #define t_runc t_runc_f2c + #define w_ed w_ed_f2c + #define w_ned w_ned_f2c + #define wrt_E wrt_E_f2c + #define wrt_F wrt_F_f2c + #define wrt_L wrt_L_f2c + #define x_endp x_endp_f2c + #define x_getc x_getc_f2c + #define x_putc x_putc_f2c + #define x_rev x_rev_f2c + #define x_rsne x_rsne_f2c + #define x_wSL x_wSL_f2c + #define x_wsne x_wsne_f2c + #define xrd_SL xrd_SL_f2c + #define y_getc y_getc_f2c + #define y_rsk y_rsk_f2c + #define z_abs z_abs_f2c + #define z_cos z_cos_f2c + #define z_div z_div_f2c + #define z_exp z_exp_f2c + #define z_getc z_getc_f2c + #define z_log z_log_f2c + #define z_putc z_putc_f2c + #define z_rnew z_rnew_f2c + #define z_sin z_sin_f2c + #define z_sqrt z_sqrt_f2c + #define z_wnew z_wnew_f2c + + #define F2C_MANGLING_DONE + + #endif + + + #endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/fio.h b/Src/Celbody/SPICE/cspice/linux_x86/include/fio.h new file mode 100644 index 000000000..bb20dd2ca --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/fio.h @@ -0,0 +1,107 @@ +#include "stdio.h" +#include "errno.h" +#ifndef NULL +/* ANSI C */ +#include "stddef.h" +#endif + +#ifndef SEEK_SET +#define SEEK_SET 0 +#define SEEK_CUR 1 +#define SEEK_END 2 +#endif + +#ifdef MSDOS +#ifndef NON_UNIX_STDIO +#define NON_UNIX_STDIO +#endif +#endif + +#ifdef UIOLEN_int +typedef int uiolen; +#else +typedef long uiolen; +#endif + +/*units*/ +typedef struct +{ FILE *ufd; /*0=unconnected*/ + char *ufnm; +#ifndef MSDOS + long uinode; + int udev; +#endif + int url; /*0=sequential*/ + flag useek; /*true=can backspace, use dir, ...*/ + flag ufmt; + flag urw; /* (1 for can read) | (2 for can write) */ + flag ublnk; + flag uend; + flag uwrt; /*last io was write*/ + flag uscrtch; +} unit; + +extern flag f__init; +extern cilist *f__elist; /*active external io list*/ +extern flag f__reading,f__external,f__sequential,f__formatted; +#undef Void +#ifdef KR_headers +#define Void /*void*/ +extern int (*f__getn)(); /* for formatted input */ +extern void (*f__putn)(); /* for formatted output */ +extern void x_putc(); +extern long f__inode(); +extern VOID sig_die(); +extern int (*f__donewrec)(), t_putc(), x_wSL(); +extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); +#else +#define Void void +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__getn)(void); /* for formatted input */ +extern void (*f__putn)(int); /* for formatted output */ +extern void x_putc(int); +extern long f__inode(char*,int*); +extern void sig_die(char*,int); +extern void f__fatal(int,char*); +extern int t_runc(alist*); +extern int f__nowreading(unit*), f__nowwriting(unit*); +extern int fk_open(int,int,ftnint); +extern int en_fio(void); +extern void f_init(void); +extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); +extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); +extern int c_sfe(cilist*), z_rnew(void); +extern int isatty(int); +extern int err__fl(int,int,char*); +extern int xrd_SL(void); +extern int f__putbuf(int); +#ifdef __cplusplus + } +#endif +#endif +extern int (*f__doend)(Void); +extern FILE *f__cf; /*current file*/ +extern unit *f__curunit; /*current unit*/ +extern unit f__units[]; +#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);} +#define errfl(f,m,s) return err__fl((int)f,m,s) + +/*Table sizes*/ +#define MXUNIT 100 + +extern int f__recpos; /*position in current record*/ +extern int f__cursor; /* offset to move to */ +extern int f__hiwater; /* so TL doesn't confuse us */ + +#define WRITE 1 +#define READ 2 +#define SEQ 3 +#define DIR 4 +#define FMT 5 +#define UNF 6 +#define EXT 7 +#define INT 8 + +#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/fmt.h b/Src/Celbody/SPICE/cspice/linux_x86/include/fmt.h new file mode 100644 index 000000000..19065a2f0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/fmt.h @@ -0,0 +1,100 @@ +struct syl +{ int op; + int p1; + union { int i[2]; char *s;} p2; + }; +#define RET1 1 +#define REVERT 2 +#define GOTO 3 +#define X 4 +#define SLASH 5 +#define STACK 6 +#define I 7 +#define ED 8 +#define NED 9 +#define IM 10 +#define APOS 11 +#define H 12 +#define TL 13 +#define TR 14 +#define T 15 +#define COLON 16 +#define S 17 +#define SP 18 +#define SS 19 +#define P 20 +#define BN 21 +#define BZ 22 +#define F 23 +#define E 24 +#define EE 25 +#define D 26 +#define G 27 +#define GE 28 +#define L 29 +#define A 30 +#define AW 31 +#define O 32 +#define NONL 33 +#define OM 34 +#define Z 35 +#define ZM 36 +extern int f__pc,f__parenlvl,f__revloc; +typedef union +{ real pf; + doublereal pd; +} ufloat; +typedef union +{ short is; +#ifndef KR_headers + signed +#endif + char ic; + integer il; +#ifdef Allow_TYQUAD + longint ili; +#endif +} Uint; +#ifdef KR_headers +extern int (*f__doed)(),(*f__doned)(); +extern int (*f__dorevert)(); +extern int rd_ed(),rd_ned(); +extern int w_ed(),w_ned(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); +extern int (*f__dorevert)(void); +extern void fmt_bg(void); +extern int pars_f(char*); +extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); +extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); +extern int wrt_E(ufloat*, int, int, int, ftnlen); +extern int wrt_F(ufloat*, int, int, ftnlen); +extern int wrt_L(Uint*, int, ftnlen); +#ifdef __cplusplus + } +#endif +#endif +extern flag f__cblank,f__cplus,f__workdone, f__nonl; +extern char *f__fmtbuf; +extern int f__scale; +#define GET(x) if((x=(*f__getn)())<0) return(x) +#define VAL(x) (x!='\n'?x:' ') +#define PUT(x) (*f__putn)(x) +extern int f__cursor; + +#undef TYQUAD +#ifndef Allow_TYQUAD +#undef longint +#define longint long +#else +#define TYQUAD 14 +#endif + +#ifdef KR_headers +extern char *f__icvt(); +#else +extern char *f__icvt(longint, int*, int*, int); +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/fp.h b/Src/Celbody/SPICE/cspice/linux_x86/include/fp.h new file mode 100644 index 000000000..40743d79f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/fp.h @@ -0,0 +1,28 @@ +#define FMAX 40 +#define EXPMAXDIGS 8 +#define EXPMAX 99999999 +/* FMAX = max number of nonzero digits passed to atof() */ +/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ + +#ifdef V10 /* Research Tenth-Edition Unix */ +#include "local.h" +#endif + +/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily + tight) on the maximum number of digits to the right and left of + * the decimal point. + */ + +#ifdef VAX +#define MAXFRACDIGS 56 +#define MAXINTDIGS 38 +#else +#ifdef CRAY +#define MAXFRACDIGS 9880 +#define MAXINTDIGS 9864 +#else +/* values that suffice for IEEE double */ +#define MAXFRACDIGS 344 +#define MAXINTDIGS 308 +#endif +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/lio.h b/Src/Celbody/SPICE/cspice/linux_x86/include/lio.h new file mode 100644 index 000000000..012317206 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/lio.h @@ -0,0 +1,74 @@ +/* copy of ftypes from the compiler */ +/* variable types + * numeric assumptions: + * int < reals < complexes + * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX + */ + +/* 0-10 retain their old (pre LOGICAL*1, etc.) */ +/* values to allow mixing old and new objects. */ + +#define TYUNKNOWN 0 +#define TYADDR 1 +#define TYSHORT 2 +#define TYLONG 3 +#define TYREAL 4 +#define TYDREAL 5 +#define TYCOMPLEX 6 +#define TYDCOMPLEX 7 +#define TYLOGICAL 8 +#define TYCHAR 9 +#define TYSUBR 10 +#define TYINT1 11 +#define TYLOGICAL1 12 +#define TYLOGICAL2 13 +#ifdef Allow_TYQUAD +#undef TYQUAD +#define TYQUAD 14 +#endif + +#define LINTW 24 +#define LINE 80 +#define LLOGW 2 +#ifdef Old_list_output +#define LLOW 1.0 +#define LHIGH 1.e9 +#define LEFMT " %# .8E" +#define LFFMT " %# .9g" +#else +#define LGFMT "%.9G" +#endif +/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ +#define LEFBL 24 + +typedef union +{ + char flchar; + short flshort; + ftnint flint; +#ifdef Allow_TYQUAD + longint fllongint; +#endif + real flreal; + doublereal fldouble; +} flex; +extern int f__scale; +#ifdef KR_headers +extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); +extern int l_read(), l_write(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); +extern int l_write(ftnint*, char*, ftnlen, ftnint); +extern void x_wsne(cilist*); +extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); +extern int l_read(ftnint*,char*,ftnlen,ftnint); +extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); +extern int z_rnew(void); +#ifdef __cplusplus + } +#endif +#endif +extern ftnint L_len; diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/rawio.h b/Src/Celbody/SPICE/cspice/linux_x86/include/rawio.h new file mode 100644 index 000000000..fd36a4826 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/rawio.h @@ -0,0 +1,41 @@ +#ifndef KR_headers +#ifdef MSDOS +#include "io.h" +#ifndef WATCOM +#define close _close +#define creat _creat +#define open _open +#define read _read +#define write _write +#endif /*WATCOM*/ +#endif /*MSDOS*/ +#ifdef __cplusplus +extern "C" { +#endif +#ifndef MSDOS +#ifdef OPEN_DECL +extern int creat(const char*,int), open(const char*,int); +#endif +extern int close(int); +extern int read(int,void*,size_t), write(int,void*,size_t); +extern int unlink(const char*); +#ifndef _POSIX_SOURCE +#ifndef NON_UNIX_STDIO +extern FILE *fdopen(int, const char*); +#endif +#endif +#endif /*KR_HEADERS*/ + +extern char *mktemp(char*); + +#ifdef __cplusplus + } +#endif +#endif + +#include "fcntl.h" + +#ifndef O_WRONLY +#define O_RDONLY 0 +#define O_WRONLY 1 +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/signal1.h b/Src/Celbody/SPICE/cspice/linux_x86/include/signal1.h new file mode 100644 index 000000000..360d8d011 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/signal1.h @@ -0,0 +1,118 @@ +/* + +-Header_File signal1.h (CSPICE version of the f2c signal1.h header file) + +-Abstract + + Define macros associated with signal handling, customized for the + host environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines the macro signal1 referenced in main.c, + which is a generic main routine used in CSPICE executables that + link to code generated by f2c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 03-FEB-2000 release + are: + + ALPHA-DIGITAL-UNIX_C + HP_C + NEXT_C + PC-LINUX_C + PC-MS_C + SGI-IRIX-N32_C + SGI-IRIX-NO2_C + SUN-SOLARIS-GCC_C + SUN-SOLARIS-NATIVE_C + +-Version + + -CSPICE Version 1.0.0, 03-FEB-2000 (NJB) + +*/ + + + + +/* You may need to adjust the definition of signal1 to supply a */ +/* cast to the correct argument type. This detail is system- and */ +/* compiler-dependent. The #define below assumes signal.h declares */ +/* type SIG_PF for the signal function's second argument. */ + +#include + +#ifndef Sigret_t +#define Sigret_t void +#endif +#ifndef Sigarg_t +#ifdef KR_headers +#define Sigarg_t +#else +#ifdef __cplusplus +#define Sigarg_t ... +#else +#define Sigarg_t int +#endif +#endif +#endif /*Sigarg_t*/ + +#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ +#define sig_pf SIG_PF +#else +typedef Sigret_t (*sig_pf)(Sigarg_t); +#endif + +#define signal1(a,b) signal(a,(sig_pf)b) + +#ifdef __cplusplus +#define Sigarg ... +#define Use_Sigarg +#else +#define Sigarg Int n +#define Use_Sigarg n = n /* shut up compiler warning */ +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/zzalloc.h b/Src/Celbody/SPICE/cspice/linux_x86/include/zzalloc.h new file mode 100644 index 000000000..0c4a50b7a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/zzalloc.h @@ -0,0 +1,192 @@ +/* + +-Header_File zzalloc.h ( CSPICE memory allocation prototypes and macros ) + +-Abstract + + The memory allocation prototypes and macros for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CSPICE + +-Keywords + + MEMORY + +-Exceptions + + None. + +-Files + + None. + +-Particulars + + The routines maintain a count of the number of mallocs vs. free, + signalling an error if any unreleased memory exists at the end + of an Icy interface call. + + The macro ALLOC_CHECK performs malloc/free test. If used, the macro + should exists at the end of any routine using these memory management + routines. + + Prototypes in this file: + + alloc_count + alloc_SpiceString_C_array + alloc_SpiceString_C_Copy_array + alloc_SpiceDouble_C_array + alloc_SpiceInt_C_array + alloc_SpiceBoolean_C_array + alloc_SpiceString + alloc_SpiceString_Pointer_array + free_SpiceString_C_array + alloc_SpiceMemory + free_SpiceMemory + + Macro definitions in this file: + + ALLOC_CHECK + ALLOC_CHECK_INTRA + +-Examples + + None. + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.4.0, 27-JUL-2021 (EDW) (BVS) + + Added macro ALLOC_CHECK_INTRA. + + Added missing header sections. + + -CSPICE Version 1.3.0, 26-AUG-2016 (EDW) + + Added routine alloc_SpiceBoolean_C_array. + + -CSPICE Version 1.0.3, 02-MAY-2008 (EDW) + + Added alloc_count prototype. + + -CSPICE Version 1.0.2, 10-MAY-2007 (EDW) + + Minor edits to clarify 'size' in alloc_SpiceMemory as + size_t. + + -CSPICE Version 1.0.1, 23-JUN-2005 (EDW) + + Add prototype for alloc_SpiceString_Pointer_array, allocate + an array of pointers to SpiceChar. + + -CSPICE Version 1.0.0, 19-DEC-2003 (EDW) + + Initial release. + +*/ + +#ifndef ZZALLOC_H +#define ZZALLOC_H + + /* + Allocation call prototypes: + */ + int alloc_count (); + + SpiceChar ** alloc_SpiceString_C_array ( int string_length, + int string_count ); + + SpiceChar ** alloc_SpiceString_C_Copy_array ( int array_len , + int string_len, + SpiceChar ** array ); + + SpiceDouble * alloc_SpiceDouble_C_array ( int rows, + int cols ); + + SpiceInt * alloc_SpiceInt_C_array ( int rows, + int cols ); + + SpiceBoolean * alloc_SpiceBoolean_C_array ( int rows, + int cols ); + + SpiceChar * alloc_SpiceString ( int length ); + + SpiceChar ** alloc_SpiceString_Pointer_array( int array_len ); + + void free_SpiceString_C_array ( int dim, + SpiceChar ** array ); + + void * alloc_SpiceMemory ( size_t size ); + + void free_SpiceMemory ( void * ptr ); + + + /* + Simple macro to ensure a zero value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK if ( alloc_count() != 0 ) \ + { \ + setmsg_c ( "Malloc/Free count not zero at end of routine." \ + " Malloc count = #."); \ + errint_c ( "#", alloc_count() ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + + + /* + Simple macro to ensure an expected value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK_INTRA(n) if ( alloc_count() != n ) \ + { \ + setmsg_c ( "Malloc/Free count not expected value." \ + " Malloc count = #1, expected count = #2."); \ + errint_c ( "#1", alloc_count() ); \ + errint_c ( "#2", n ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + +#endif diff --git a/Src/Celbody/SPICE/cspice/linux_x86/include/zzerror.h b/Src/Celbody/SPICE/cspice/linux_x86/include/zzerror.h new file mode 100644 index 000000000..3af69f2f4 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/linux_x86/include/zzerror.h @@ -0,0 +1,86 @@ +/* + +-Abstract + + The error control routine prototypes for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Particulars + + Routines prototyped in this file: + + zzerrorinit + zzerror + +-Examples + + See the examples section in zzerror() and zzerrorinit(). + +-Restrictions + + None. + +-Exceptions + + None. + +-Files + + None. + +-Author_and_Institution + + E. D. Wright (JPL) + +-Literature_References + + None. + +-Version + + -CSPICE 1.1.0 14-JAN-2013 (EDW) + + Added parameter: + + SCALAR_OP + + -CSPICE 1.0.0 17-OCT-2005 (EDW) + + Initial release. + +*/ + +#ifndef ZZERROR_H +#define ZZERROR_H + + const char * zzerror( long cnt ); + void zzerrorinit(); + + #define SCALAR_OP -1 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/linux_x86/lib/cspice.a b/Src/Celbody/SPICE/cspice/linux_x86/lib/cspice.a new file mode 100644 index 000000000..90ba97a61 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/linux_x86/lib/cspice.a differ diff --git a/Src/Celbody/SPICE/cspice/linux_x86/lib/csupport.a b/Src/Celbody/SPICE/cspice/linux_x86/lib/csupport.a new file mode 100644 index 000000000..3884efb62 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/linux_x86/lib/csupport.a differ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCK.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCK.h new file mode 100644 index 000000000..894d4e9a6 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCK.h @@ -0,0 +1,155 @@ +/* + +-Header_File SpiceCK.h ( CSPICE CK definitions ) + +-Abstract + + Perform CSPICE definitions to support CK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE CK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceCK05Subtype Typedef for enum indicating the + mathematical representation used + in an CK type 05 segment. Possible + values and meanings are: + + C05TP0: + + Hermite interpolation, 8- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components. + + Quaternions are unitless. Quaternion + time derivatives have units of + 1/second. + + + C05TP1: + + Lagrange interpolation, 4- + element packets containing + + q0, q1, q2, q3, + + where q0, q1, q2, q3 represent + quaternion components. Quaternion + derivatives are obtained by + differentiating interpolating + polynomials. + + + C05TP2: + + Hermite interpolation, 14- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt, + av0, av1, av2, + dav0/dt, dav1/dt, dav2/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components, + av0, av1, av2 represent angular + velocity components, and + dav0/dt, dav1/dt, dav2/dt represent + angular acceleration components. + + + C05TP3: + + Lagrange interpolation, 7- + element packets containing + + q0, q1, q2, q3, + av0, av1, av2 + + where q0, q1, q2, q3 represent + quaternion components and + av0, av1, av2 represent angular + velocity components. + + + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 20-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_CK_H + + #define HAVE_SPICE_CK_H + + + + /* + CK type 05 subtype codes: + */ + + enum _SpiceCK05Subtype { C05TP0, C05TP1, C05TP2, C05TP3 }; + + + typedef enum _SpiceCK05Subtype SpiceCK05Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCel.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCel.h new file mode 100644 index 000000000..7b0537e9e --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceCel.h @@ -0,0 +1,441 @@ +/* + +-Header_File SpiceCel.h ( CSPICE Cell definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceCell data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CELLS + +-Particulars + + This header defines structures, macros, and enumerated types that + may be referenced in application code that calls CSPICE cell + functions. + + CSPICE cells are data structures that implement functionality + parallel to that of the cell abstract data type in SPICELIB. In + CSPICE, a cell is a C structure containing bookkeeping information, + including a pointer to an associated data array. + + For numeric data types, the data array is simply a SPICELIB-style + cell, including a valid control area. For character cells, the data + array has the same number of elements as the corresponding + SPICELIB-style cell, but the contents of the control area are not + maintained, and the data elements are null-terminated C-style + strings. + + CSPICE cells should be declared using the declaration macros + provided in this header file. See the table of macros below. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceCell Structure containing CSPICE cell metadata. + + The members are: + + dtype: Data type of cell: character, + integer, or double precision. + + dtype has type + SpiceCellDataType. + + length: For character cells, the + declared length of the + cell's string array. + + size: The maximum number of data + items that can be stored in + the cell's data array. + + card: The cell's "cardinality": the + number of data items currently + present in the cell. + + isSet: Boolean flag indicating whether + the cell is a CSPICE set. + Sets have no duplicate data + items, and their data items are + stored in increasing order. + + adjust: Boolean flag indicating whether + the cell's data area has + adjustable size. Adjustable + size cell data areas are not + currently implemented. + + init: Boolean flag indicating whether + the cell has been initialized. + + base: is a void pointer to the + associated data array. base + points to the start of the + control area of this array. + + data: is a void pointer to the + first data slot in the + associated data array. This + slot is the element following + the control area. + + + ConstSpiceCell A const SpiceCell. + + + + + Declaration Macros + ================== + + Name Description + ---- ---------- + + SPICECHAR_CELL ( name, size, length ) Declare a + character CSPICE + cell having cell + name name, + maximum cell + cardinality size, + and string length + length. The + macro declares + both the cell and + the associated + data array. The + name of the data + array begins with + "SPICE_". + + + SPICEDOUBLE_CELL ( name, size ) Like SPICECHAR_CELL, + but declares a + double precision + cell. + + + SPICEINT_CELL ( name, size ) Like + SPICECHAR_CELL, + but declares an + integer cell. + + Assignment Macros + ================= + + Name Description + ---- ---------- + SPICE_CELL_SET_C( item, i, cell ) Assign the ith + element of a + character cell. + Arguments cell + and item are + pointers. + + SPICE_CELL_SET_D( item, i, cell ) Assign the ith + element of a + double precision + cell. Argument + cell is a + pointer. + + SPICE_CELL_SET_I( item, i, cell ) Assign the ith + element of an + integer cell. + Argument cell is + a pointer. + + + Fetch Macros + ============== + + Name Description + ---- ---------- + SPICE_CELL_GET_C( cell, i, lenout, item ) Fetch the ith + element from a + character cell. + Arguments cell + and item are + pointers. + Argument lenout + is the available + space in item. + + SPICE_CELL_GET_D( cell, i, item ) Fetch the ith + element from a + double precision + cell. Arguments + cell and item are + pointers. + + SPICE_CELL_GET_I( cell, i, item ) Fetch the ith + element from an + integer cell. + Arguments cell + and item are + pointers. + Element Pointer Macros + ====================== + + Name Description + ---- ---------- + SPICE_CELL_ELEM_C( cell, i ) Macro evaluates + to a SpiceChar + pointer to the + ith data element + of a character + cell. Argument + cell is a + pointer. + + SPICE_CELL_ELEM_D( cell, i ) Macro evaluates + to a SpiceDouble + pointer to the + ith data element + of a double + precision cell. + Argument cell is + a pointer. + + SPICE_CELL_ELEM_I( cell, i ) Macro evaluates + to a SpiceInt + pointer to the + ith data element + of an integer + cell. Argument + cell is a + pointer. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 22-AUG-2002 (NJB) + +*/ +#ifndef HAVE_SPICE_CELLS_H + + #define HAVE_SPICE_CELLS_H + + + /* + Data type codes: + */ + typedef enum _SpiceDataType SpiceCellDataType; + + + /* + Cell structure: + */ + struct _SpiceCell + + { SpiceCellDataType dtype; + SpiceInt length; + SpiceInt size; + SpiceInt card; + SpiceBoolean isSet; + SpiceBoolean adjust; + SpiceBoolean init; + void * base; + void * data; }; + + typedef struct _SpiceCell SpiceCell; + + typedef const SpiceCell ConstSpiceCell; + + + /* + SpiceCell control area size: + */ + #define SPICE_CELL_CTRLSZ 6 + + + /* + Declaration macros: + */ + + #define SPICECHAR_CELL( name, size, length ) \ + \ + static SpiceChar SPICE_CELL_##name[SPICE_CELL_CTRLSZ + size][length]; \ + \ + static SpiceCell name = \ + \ + { SPICE_CHR, \ + length, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEDOUBLE_CELL( name, size ) \ + \ + static SpiceDouble SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_DP, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEINT_CELL( name, size ) \ + \ + static SpiceInt SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_INT, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + /* + Access macros for individual elements: + */ + + /* + Data element pointer macros: + */ + + #define SPICE_CELL_ELEM_C( cell, i ) \ + \ + ( ( (SpiceChar *) (cell)->data ) + (i)*( (cell)->length ) ) + + + #define SPICE_CELL_ELEM_D( cell, i ) \ + \ + ( ( (SpiceDouble *) (cell)->data )[(i)] ) + + + #define SPICE_CELL_ELEM_I( cell, i ) \ + \ + ( ( (SpiceInt *) (cell)->data )[(i)] ) + + + /* + "Fetch" macros: + */ + + #define SPICE_CELL_GET_C( cell, i, lenout, item ) \ + \ + { \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( (cell)->length, 0, (lenout-1) ) \ + * sizeof ( SpiceChar ); \ + \ + memmove ( (item), SPICE_CELL_ELEM_C((cell), (i)), nBytes ); \ + \ + item[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_GET_D( cell, i, item ) \ + \ + ( (*item) = ( (SpiceDouble *) (cell)->data)[i] ) + + + #define SPICE_CELL_GET_I( cell, i, item ) \ + \ + ( (*item) = ( (SpiceInt *) (cell)->data)[i] ) + + + /* + Assignment macros: + */ + + #define SPICE_CELL_SET_C( item, i, cell ) \ + \ + { \ + SpiceChar * sPtr; \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( strlen(item), 0, (cell)->length - 1 ) \ + * sizeof ( SpiceChar ); \ + \ + sPtr = SPICE_CELL_ELEM_C((cell), (i)); \ + \ + memmove ( sPtr, (item), nBytes ); \ + \ + sPtr[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_SET_D( item, i, cell ) \ + \ + ( ( (SpiceDouble *) (cell)->data)[i] = (item) ) + + + #define SPICE_CELL_SET_I( item, i, cell ) \ + \ + ( ( (SpiceInt *) (cell)->data)[i] = (item) ) + + + /* + The enum SpiceTransDir is used to indicate language translation + direction: C to Fortran or vice versa. + */ + enum _SpiceTransDir { C2F = 0, F2C = 1 }; + + typedef enum _SpiceTransDir SpiceTransDir; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDAS.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDAS.h new file mode 100644 index 000000000..72e928755 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDAS.h @@ -0,0 +1,116 @@ + +/* + +-Header_File SpiceDAS.h ( CSPICE DAS-specific definitions ) + +-Abstract + + Perform CSPICE DAS-specific definitions, including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DAS + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE DAS functions. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_DAS_FTSIZE is the maximum number of DAS files that can be + open at any one time. + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that + require a data type specifier. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 07-APR-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_DAS_H + + #define HAVE_SPICE_DAS_H + + + /* + Constants + */ + + + /* + Fortran maximum number of DAS files that can be open at any one time: + */ + #define SPICE_DAS_FTSIZE 5000 + + + /* + DAS data type specifiers used in all DAS routines that require + a data type either as input or to extract data from an output + array. + + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that require a + data type specifier. + */ + #define SPICE_DAS_CHARDT 0 + #define SPICE_DAS_DPDT 1 + #define SPICE_DAS_INTDT 2 + + +#endif + +/* +End of header file SpiceDAS.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDLA.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDLA.h new file mode 100644 index 000000000..c429850dc --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDLA.h @@ -0,0 +1,345 @@ +/* + +-Header_File SpiceDLA.h ( CSPICE DLA-specific definitions ) + +-Abstract + + Perform CSPICE DLA-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DLA functions. + + + Macros + ====== + + Dimensions + ---------- + + Name Description + ---- ----------- + SPICE_DLA_DSCSIZ Size of a SPICELIB DLA descriptor, + measured in multiples of the size of a + SpiceInt. A DLA descriptor `DLADescr' + can be declared + + SpiceInt DLADescr [SPICE_DLA_DSCSIZ]; + + This parameter is provided for + compatibility with f2c'd SPICELIB + interfaces; CSPICE wrappers should pass + DLA descriptors via pointers to the + SpiceDLADescr structure defined below. + + + DLA File Offsets + ---------------- + + These parameters are provided to support CSPICE wrapper testing. + + Name Description + ---- ----------- + SPICE_DLA_VERIDX DAS integer address of DLA version code. + + SPICE_DLA_LLBIDX DAS integer addresses of first segment linked + list pointer. + + SPICE_DLA_LLEIDX DAS integer addresses of last segment linked + list pointer. + + + Structure Offsets + ------------------------- + + These parameters are provided to support CSPICE wrapper + implementation. + + + Name Description + ---- ----------- + SPICE_DLA_BWDIDX Backward pointer index in a DLA + descriptor. + + SPICE_DLA_FWDIDX Forward pointer index in a DLA + descriptor. + + SPICE_DLA_IBSIDX Integer base address index in a + DLA descriptor. + + SPICE_DLA_ISZIDX Integer component size index in a + DLA descriptor. + + SPICE_DLA_DBSIDX D.p. base address index in a DLA + descriptor. + + SPICE_DLA_DSZIDX D.p. component size index in a + DLA descriptor. + + SPICE_DLA_CBSIDX Character base address index in a + DLA descriptor. + + SPICE_DLA_CSZIDX Character component size index in a + DLA descriptor. + + + Other DLA parameters + -------------------- + + Name Description + ---- ----------- + SPICE_DLA_NULPTR Null pointer parameter. + + SPICE_DLA_FMTVER DLA format version. + + + Structures + ========== + + DLA API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDLADescr DLA descriptor. + + Note: the "base addresses" described + below are the *predecessors* of the + first addresses occupied by the + respective components of each data type. + + The structure members are: + + bwdptr: backward pointer. Data + type is SpiceInt. + + fwdptr: forward pointer. Data + type is SpiceInt. + + ibase: base DAS address of the + integer component of a + DLA segment. + + isize: number of elements in the + integer component of a + DLA segment. + + dbase: base DAS address of + double precision + component of a DLA + segment. + + dsize: number of elements in the + double precision + component of a DLA + segment. + + cbase: base DAS address of + character component of a + DLA segment. + + csize: number of elements in the + character component of a + DLA segment. + + + + ConstSpiceDLADescr A constant DLA descriptor. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 24-SEP-2021 (JDR) + + Added DLA File Offsets and Other DLA parameters, required for CSPICE + wrappers' testing. + + -CSPICE Version 1.1.0, 21-JAN-2016 (NJB) + + Updated to remove + + f2c_proto.h + dla_proto.h + + The prototypes declared in these headers have been moved + to the files + + SpiceZfc.h + SpiceZpr.h + + -DSKLIB_C Version 1.0.1, 12-FEB-2010 (NJB) + + Updated to include + + f2c_proto.h + dla_proto.h + + + -DSKLIB_C Version 1.0.1, 09-FEB-2007 (NJB) + + Comments were corrected: names of structure members bwdptr and + fwdptr in the comments now match the names used in the structure + definition. + + -DSKLIB_C Version 1.0.0, 26-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DLA_H + + #define HAVE_SPICE_DLA_H + + + + /* + DAS integer address of DLA version code. + */ + #define SPICE_DLA_VERIDX 1 + + /* + Linked list parameters + + Logical arrays (aka "segments") in a DAS linked array (DLA) file + are organized as a doubly linked list. Each logical array may + actually consist of character, double precision, and integer + components. A component of a given data type occupies a + contiguous range of DAS addresses of that type. Any or all + array components may be empty. + + The segment descriptors in a SPICE DLA (DAS linked array) file + are connected by a doubly linked list. Each node of the list is + represented by a pair of integers acting as forward and backward + pointers. Each pointer pair occupies the first two integers of a + segment descriptor in DAS integer address space. The DLA file + contains pointers to the first integers of both the first and + last segment descriptors. + + At the DLA level of a file format implementation, there is + no knowledge of the data contents. Hence segment descriptors + provide information only about file layout (in contrast with + the DAF system). Metadata giving specifics of segment contents + are stored within the segments themselves in DLA-based file + formats. + + + Parameter declarations follow. + + DAS integer addresses of first and last segment linked list + pointer pairs. The contents of these pointers + are the DAS addresses of the first integers belonging + to the first and last link pairs, respectively. + + The acronyms "LLB" and "LLE" denote "linked list begin" + and "linked list end" respectively. + */ + #define SPICE_DLA_LLBIDX SPICE_DLA_VERIDX + 1 + #define SPICE_DLA_LLEIDX SPICE_DLA_LLBIDX + 1 + + /* + Null pointer parameter. + */ + #define SPICE_DLA_NULPTR -1 + + + /* + DLA descriptor dimension: + */ + #define SPICE_DLA_DSCSIZ 8 + + /* + DLA descriptor index parameters: + */ + #define SPICE_DLA_BWDIDX 0 + #define SPICE_DLA_FWDIDX 1 + #define SPICE_DLA_IBSIDX 2 + #define SPICE_DLA_ISZIDX 3 + #define SPICE_DLA_DBSIDX 4 + #define SPICE_DLA_DSZIDX 5 + #define SPICE_DLA_CBSIDX 6 + #define SPICE_DLA_CSZIDX 7 + + + + /* + Structures + */ + + /* + DLA segment descriptor: + */ + struct _SpiceDLADescr + + { SpiceInt bwdptr; + SpiceInt fwdptr; + SpiceInt ibase; + SpiceInt isize; + SpiceInt dbase; + SpiceInt dsize; + SpiceInt cbase; + SpiceInt csize; }; + + typedef struct _SpiceDLADescr SpiceDLADescr; + + /* + Constant DLA segment descriptor: + */ + typedef const SpiceDLADescr ConstSpiceDLADescr; + + + /* + Other DLA parameters: + + + DLA format version. (This number is expected to occur very + rarely at integer address SPICE_DLA_VERIDX in uninitialized DLA files.) + */ + #define SPICE_DLA_FMTVER 1000000 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDSK.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDSK.h new file mode 100644 index 000000000..c6d95d087 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDSK.h @@ -0,0 +1,903 @@ +/* + +-Header_File SpiceDSK.h ( CSPICE DSK-specific definitions ) + +-Abstract + + Perform CSPICE DSK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DSK functions. + + + General definitions + =================== + + Macros + ====== + + + Dimensions + ---------- + + Name Description + ---- ----------- + + SPICE_DSK_DSCSIZ Size of a Fortran DSK descriptor, + measured in multiples of the size of a + SpiceDouble. A array `descr' containing + such a descriptor can be declared + + SpiceDouble descr[SPICE_DSK_DSCSIZ]; + + Such arrays normally should be used only + in the implementations of CSPICE + wrappers. + + + Data class values + ----------------- + + Name Description + ---- ----------- + + SPICE_DSK_SVFCLS (Class 1) indicates a surface + that can be represented as a single-valued + function of its domain coordinates. + + An example is a surface defined by a + function that maps each planetodetic + longitude and latitude pair to a unique + altitude. + + SPICE_DSK_GENCLS (Class 2) indicates a general surface. + Surfaces that have multiple points for a + given pair of domain coordinates---for + example, multiple radii for a given + latitude and longitude---belong to class + 2. + + + Coordinate system values + ------------------------ + + Name Description + ---- ----------- + + SPICE_DSK_LATSYS Code 1 refers to the planetocentric + latitudinal system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is latitude. The + third coordinate is radius. + + + SPICE_DSK_CYLSYS Code 2 refers to the cylindrical system. + + In this system, the first tangential + coordinate is radius and the second + tangential coordinate is longitude. The + third, orthogonal coordinate is Z. + + + SPICE_DSK_RECSYS Code 3 refers to the rectangular system. + + In this system, the first tangential + coordinate is X and the second + tangential coordinate is Y. The third, + orthogonal coordinate is Z. + + + SPICE_DSK_PDTSYS Code 4 refers to the + planetodetic/geodetic system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is planetodectic + latitude. The third, orthogonal + coordinate is altitude. + + + Structures + ========== + + + DSK API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDSKDescr DSK descriptor. + + The structure members are: + + surfce: Surface ID code. Data + type is SpiceInt. + + center: Center ID code. Data + type is SpiceInt. + + dclass: Data class ID code. Data + type is SpiceInt. + + dtype: DSK Data type. Data + type is SpiceInt. + + frmcde: Reference frame ID code. Data + type is SpiceInt. + + corsys: Coordinate system ID code. Data + type is SpiceInt. + + corpar: Coordinate system parameters. + Data type is SpiceDouble. This + is an array of length 10. + + co1min: Minimum value of first + coordinate. Data type is + SpiceDouble. + + co1max: Maximum value of first + coordinate. Data type is + SpiceDouble. + + co2min: Minimum value of second + coordinate. Data type is + SpiceDouble. + + co2max: Maximum value of second + coordinate. Data type is + SpiceDouble. + + co3min: Minimum value of third + coordinate. Data type is + SpiceDouble. + + co3max: Maximum value of third + coordinate. Data type is + SpiceDouble. + + start: Coverage start time, expressed + as seconds past J2000 TDB. + + stop: Coverage stop time, expressed + as seconds past J2000 TDB. + + + + ConstSpiceDSKDescr A constant DSK descriptor. + + + + + + Type 2 definitions + ================== + + + Type 2 Macros + ============= + + + Limits on plate model capacity + ------------------------------ + + This section contains parameter descriptions. See declarations + located near the end of the file for parameter values. + + The maximum number of vertices and plates in a single-segment + type 2 plate model are provided here. Larger models must be + distributed across multiple segments, which typically are in + separate files. + + These values can be used to dimension arrays, or to use as limit + checks. + + The value of SPICE_DSK02_MAXPLT is determined from + SPICE_DSK02_MAXVRT via Euler's Formula for simple polyhedra having + triangular faces. + + + Name Description + ---- ----------- + + SPICE_DSK02_MAXVRT Maximum number of vertices the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXPLT Maximum number of plates the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXCGR Maximum number of elements permitted + in the coarse voxel grid. This parameter + is not used directly in CSPICE; rather + it is a convenience parameter that mirrors + the parameter MAXCGR declared in the + SPICELIB INCLUDE file + + dsk02.inc + + + SPICE_DSK02_MAXVXP Maximum size of voxel-plate pointer array. + + + SPICE_DSK02_MXNVLS Maximum size of voxel-plate association list. + + + SPICE_DSK02_MAXCEL Maximum size of spatial index cell workspace. + + + SPICE_DSK02_SPAISZ Maximum size of array containing + integer component of spatial index. + This size is used by MKDSK. Many + applications may be able to use + smaller dimensions than the value + specified by this parameter. + + SPICE_DSK02_SPADSZ Size of double precision component + of spatial index. + + + Integer keyword parameters + -------------------------- + + The following parameters may be passed to dski02_c to identify + type 2 DSK shape model SpiceInt type data or model parameters to + be returned. + + + Name Description + ---- ---------- + + SPICE_DSK02_KWNV Number of vertices in model. + + SPICE_DSK02_KWNP Number of plates in model. + + SPICE_DSK02_KWNVXT Total number of voxels in fine grid. + + SPICE_DSK02_KWVGRX Voxel grid extent. This extent is + an array of three integers + indicating the number of voxels in + the X, Y, and Z directions in the + fine voxel grid. + + SPICE_DSK02_KWCGSC Coarse voxel grid scale. The extent + of the fine voxel grid is related to + the extent of the coarse voxel grid + by this scale factor. + + SPICE_DSK02_KWVXPS Size of the voxel-to-plate pointer + list. + + SPICE_DSK02_KWVXLS Voxel-plate correspondence list size. + + SPICE_DSK02_KWVTLS Vertex-plate correspondence list + size. + + SPICE_DSK02_KWPLAT Plate array. For each plate, this + array contains the indices of the + plate's three vertices. The ordering + of the array members is: + + Plate 1 vertex index 1 + Plate 1 vertex index 2 + Plate 1 vertex index 3 + Plate 2 vertex index 1 + ... + + The vertex indices in this array start + at 1 and end at NV, the number of + vertices in the model. + + SPICE_DSK02_KWVXPT Voxel-plate pointer list. This list + contains pointers that map fine + voxels to lists of plates that + intersect those voxels. Note that + only fine voxels belonging to + non-empty coarse voxels are in the + domain of this mapping. + + SPICE_DSK02_KWVXPL Voxel-plate correspondence list. + This list contains lists of plates + that intersect fine voxels. (This + list is the data structure into + which the voxel-to-plate pointers + point.) This list can contain + empty lists. Plate IDs in this + list start at 1 and end at NP, + the number of plates in the model. + + SPICE_DSK02_KWVTPT Vertex-plate pointer list. This list + contains pointers that map vertices + to lists of plates to which those + vertices belong. + + Note that the size of this list is + always NV, the number of vertices. + Hence there's no need for a separate + keyword for the size of this list. + + SPICE_DSK02_KWVTPL Vertex-plate correspondence list. + This list contains, for each vertex, + the indices of the plates to which that + vertex belongs. Plate IDs in this list + start at 1 and end at NP, the number of + plates in the model. + + SPICE_DSK02_KWCGPT Coarse voxel grid pointers. This is + an array of pointers mapping coarse + voxels to lists of pointers in the + voxel-plate pointer list. Each + non-empty coarse voxel maps to a + list of pointers; every fine voxel + contained in a non-empty coarse voxel + has its own pointers. Grid elements + corresponding to empty coarse voxels + contain non-positive values. + + + Double precision keyword parameters + ----------------------------------- + + The following parameters may be passed to dskd02_c to identify + type 2 DSK shape model SpiceDouble type data or model parameters to + be returned. + + + SPICE_DSK02_KWDSC Array containing contents of Fortran + DSK descriptor of segment. Note + that DSK descriptors are not to be + confused with DLA descriptors, which + contain segment component base address + and size information. The dimension of + this array is SPICE_DSK_DSCSIZ. + + SPICE_DSK02_KWVTBD Vertex bounds. This is an array of + six values giving the minimum and + maximum values of each component of the + vertex set. + + SPICE_DSK02_KWVXOR Voxel grid origin. This is the location + of the voxel grid origin in the + body-fixed frame associated with the + target body. + + SPICE_DSK02_KWVXSZ Voxel size. DSK voxels are cubes; the + edge length of each cube is given by the + voxel size. This size applies to the + fine voxel grid. Units are km. + + SPICE_DSK02_KWVERT Vertex coordinates. + + + + + Type 4 definitions + ================== + + To be added post-N0066. + + + API-specific definitions + ======================== + + Parameters for dskxsi_c: + + SPICE_DSKXSI_DCSIZE Size of `dc' output array. + SPICE_DSKXSI_ICSIZE Size of `ic' output array. + + These sizes may be increased in a future version + of the CSPICE Toolkit. + + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 02-NOV-2016 (NJB) + + Removed type 4 macros. + + 21-MAR-2016 (NJB) + + Changed type 2 keyword parameter names to use the + substring DSK02 rather than DSK. + + 26-FEB-2016 (NJB) + + Added parameter declarations for type 2 spatial index. Added + parameter declaration for data class 2. Renamed parameter + SPICE_DSK_MAXCGR to SPICE_DSK02_MAXCGR. Added parameter + declarations for the API dskxsi_c. Removed include statement + for SpiceDLA.h. Made miscellaneous updates to comments. + + DSKLIB_C 02-MAY-2014 (NJB) + + Added include guards for + + SpiceZdf.h + SpiceDLA.h + + Removed reference to + + dsk_proto.h + + Last update was 13-NOV-2012 (NJB) + + Updated to support DSK type 4. The SpiceDSKDescr type and + supporting definitions have been added. The file has been + reorganized so as to group together data type-specific + definitions. + + DSKLIB_C Version 3.0.0, 13-MAY-2010 (NJB) + + Updated for compatibility with new DSK type 2 segment + design. + + DSKLIB_C Version 2.0.0, 12-FEB-2010 (NJB) + + Updated to include + + SpiceDLA.h + f2c_proto.h + dsk_proto.h + + DSKLIB_C Version 1.0.0, 30-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DSK_H + + #define HAVE_SPICE_DSK_H + + /* + Prototypes + */ + #ifndef HAVE_SPICEDEFS_H + #include "SpiceZdf.h" + #endif + + + /* + General Constants + */ + + + /* + Dimension parameters + */ + + /* + Size of a SPICELIB DSK descriptor (in units of d.p. numbers): + */ + #define SPICE_DSK_DSCSIZ 24 + + /* + Number of coordinate system parameters in DSK descriptor: + */ + #define SPICE_DSK_NSYPAR 10 + + + /* + Index parameters + */ + /* + Fortran DSK descriptor index parameters: + */ + #define SPICE_DSK_SRFIDX 0 + #define SPICE_DSK_CTRIDX 1 + #define SPICE_DSK_CLSIDX 2 + #define SPICE_DSK_TYPIDX 3 + #define SPICE_DSK_FRMIDX 4 + #define SPICE_DSK_SYSIDX 5 + #define SPICE_DSK_PARIDX 6 + + /* + The offset between the indices immediately above and below + is given by the parameter SPICE_DSK_NSYPAR. Literal values + are used below for convenience of the reader. + */ + #define SPICE_DSK_MN1IDX 16 + #define SPICE_DSK_MX1IDX 17 + #define SPICE_DSK_MN2IDX 18 + #define SPICE_DSK_MX2IDX 19 + #define SPICE_DSK_MN3IDX 20 + #define SPICE_DSK_MX3IDX 21 + #define SPICE_DSK_BTMIDX 22 + #define SPICE_DSK_ETMIDX 23 + + + + + /* + Data class parameters + */ + + /* + Single-valued surface data class + */ + #define SPICE_DSK_SVFCLS 1 + + /* + General surface data class + */ + #define SPICE_DSK_GENCLS 2 + + + /* + Coordinate system parameters + */ + + /* + Latitudinal coordinate system + */ + #define SPICE_DSK_LATSYS 1 + + /* + Cylindrical coordinate system + */ + #define SPICE_DSK_CYLSYS 2 + + /* + Rectangular coordinate system + */ + #define SPICE_DSK_RECSYS 3 + + /* + Planetodetic coordinate system + */ + #define SPICE_DSK_PDTSYS 4 + + + /* + Structures + */ + + /* + DSK segment descriptor: + */ + struct _SpiceDSKDescr + + { SpiceInt surfce; + SpiceInt center; + SpiceInt dclass; + SpiceInt dtype; + SpiceInt frmcde; + SpiceInt corsys; + SpiceDouble corpar [SPICE_DSK_NSYPAR]; + SpiceDouble co1min; + SpiceDouble co1max; + SpiceDouble co2min; + SpiceDouble co2max; + SpiceDouble co3min; + SpiceDouble co3max; + SpiceDouble start; + SpiceDouble stop; }; + + typedef struct _SpiceDSKDescr SpiceDSKDescr; + + /* + Constant DSK segment descriptor: + */ + typedef const SpiceDSKDescr ConstSpiceDSKDescr; + + + + + /* + + Type 2 definitions + ================== + + */ + + /* + Dimension parameters + */ + + /* + Maximum vertex count for single segment: + */ + #define SPICE_DSK02_MAXVRT 16000002 + + /* + Maximum plate count for single segment: + */ + #define SPICE_DSK02_MAXPLT ( 2 * (SPICE_DSK02_MAXVRT - 2 ) ) + + /* + The maximum allowed number of vertices, not taking into + account shared vertices. + + Note that this value is not sufficient to create a vertex-plate + mapping for a model of maximum plate count. + */ + #define SPICE_DSK02_MAXNPV ( 3 * (SPICE_DSK02_MAXPLT/2) + 1 ) + + /* + Maximum number of fine voxels. + */ + #define SPICE_DSK02_MAXVOX 100000000 + + /* + Maximum size of the coarse voxel grid array (in units of + integers): + */ + #define SPICE_DSK02_MAXCGR 100000 + + /* + Maximum allowed number of vertex or plate + neighbors a vertex may have. + */ + #define SPICE_DSK02_MAXEDG 120 + + + /* + DSK type 2 spatial index parameters + =================================== + + DSK type 2 spatial index integer component + ------------------------------------------ + + +-----------------+ + | VGREXT | (voxel grid extents, 3 integers) + +-----------------+ + | CGRSCL | (coarse voxel grid scale, 1 integer) + +-----------------+ + | VOXNPT | (size of voxel-plate pointer list) + +-----------------+ + | VOXNPL | (size of voxel-plate list) + +-----------------+ + | VTXNPL | (size of vertex-plate list) + +-----------------+ + | CGRPTR | (coarse grid occupancy pointers) + +-----------------+ + | VOXPTR | (voxel-plate pointer array) + +-----------------+ + | VOXPLT | (voxel-plate list) + +-----------------+ + | VTXPTR | (vertex-plate pointer array) + +-----------------+ + | VTXPLT | (vertex-plate list) + +-----------------+ + */ + + /* + Index parameters + */ + + /* + Grid extent index: + */ + #define SPICE_DSK02_SIVGRX 0 + + /* + Coarse grid scale index: + */ + #define SPICE_DSK02_SICGSC ( SPICE_DSK02_SIVGRX + 3 ) + + /* + Voxel pointer count index: + */ + #define SPICE_DSK02_SIVXNP ( SPICE_DSK02_SICGSC + 1 ) + + /* + Voxel-plate list count index: + */ + #define SPICE_DSK02_SIVXNL ( SPICE_DSK02_SIVXNP + 1 ) + + /* + Vertex-plate list count index: + */ + #define SPICE_DSK02_SIVTNL ( SPICE_DSK02_SIVXNL + 1 ) + + /* + Coarse grid pointer array index: + */ + #define SPICE_DSK02_SICGRD ( SPICE_DSK02_SIVTNL + 1 ) + + + /* + Spatial index integer component dimensions + */ + + /* + Size of fixed-size portion of integer component: + */ + #define SPICE_DSK02_IXIFIX ( SPICE_DSK02_MAXCGR + 7 ) + + + /* + + DSK type 2 spatial index double precision component + --------------------------------------------------- + + +-----------------+ + | Vertex bounds | 6 values (min/max for each component) + +-----------------+ + | Voxel origin | 3 elements + +-----------------+ + | Voxel size | 1 element + +-----------------+ + + */ + + + /* + Spatial index double precision indices + */ + + /* + Vertex bounds index: + */ + #define SPICE_DSK02_SIVTBD 0 + + /* + Voxel grid origin index: + */ + #define SPICE_DSK02_SIVXOR ( SPICE_DSK02_SIVTBD + 6 ) + + /* + Voxel size index: + */ + #define SPICE_DSK02_SIVXSZ ( SPICE_DSK02_SIVXOR + 3 ) + + + /* + Spatial index double precision component dimensions + */ + + /* + Size of fixed-size portion of double precision component: + */ + #define SPICE_DSK02_IXDFIX 10 + + /* + Size of double precision component. This is a convenience + parameter chosen to have a name consisent with the + integer spatial index size. + */ + #define SPICE_DSK02_SPADSZ SPICE_DSK02_IXDFIX + + /* + The limits below are used to define a suggested maximum + size for the integer component of the spatial index. + */ + + /* + Maximum number of entries in voxel-plate pointer array: + */ + #define SPICE_DSK02_MAXVXP ( SPICE_DSK02_MAXPLT /2 ) + + /* + Maximum cell size: + */ + #define SPICE_DSK02_MAXCEL 60000000 + + /* + Maximum number of entries in voxel-plate list: + */ + #define SPICE_DSK02_MXNVLS SPICE_DSK02_MAXCEL + \ + ( SPICE_DSK02_MAXVXP / 2 ) + + /* + Spatial index integer component size: + */ + #define SPICE_DSK02_SPAISZ ( SPICE_DSK02_IXIFIX + \ + SPICE_DSK02_MAXVXP + \ + SPICE_DSK02_MXNVLS + \ + SPICE_DSK02_MAXVRT + \ + SPICE_DSK02_MAXNPV ) + + + + + /* + Keyword parameters for SpiceInt data items: + */ + + /* + Index parameters + */ + #define SPICE_DSK02_KWNV 1 + #define SPICE_DSK02_KWNP (SPICE_DSK02_KWNV + 1) + #define SPICE_DSK02_KWNVXT (SPICE_DSK02_KWNP + 1) + #define SPICE_DSK02_KWVGRX (SPICE_DSK02_KWNVXT + 1) + #define SPICE_DSK02_KWCGSC (SPICE_DSK02_KWVGRX + 1) + #define SPICE_DSK02_KWVXPS (SPICE_DSK02_KWCGSC + 1) + #define SPICE_DSK02_KWVXLS (SPICE_DSK02_KWVXPS + 1) + #define SPICE_DSK02_KWVTLS (SPICE_DSK02_KWVXLS + 1) + #define SPICE_DSK02_KWPLAT (SPICE_DSK02_KWVTLS + 1) + #define SPICE_DSK02_KWVXPT (SPICE_DSK02_KWPLAT + 1) + #define SPICE_DSK02_KWVXPL (SPICE_DSK02_KWVXPT + 1) + #define SPICE_DSK02_KWVTPT (SPICE_DSK02_KWVXPL + 1) + #define SPICE_DSK02_KWVTPL (SPICE_DSK02_KWVTPT + 1) + #define SPICE_DSK02_KWCGPT (SPICE_DSK02_KWVTPL + 1) + + + /* + Keyword parameters for SpiceDouble data items: + */ + #define SPICE_DSK02_KWDSC (SPICE_DSK02_KWCGPT + 1) + #define SPICE_DSK02_KWVTBD (SPICE_DSK02_KWDSC + 1) + #define SPICE_DSK02_KWVXOR (SPICE_DSK02_KWVTBD + 1) + #define SPICE_DSK02_KWVXSZ (SPICE_DSK02_KWVXOR + 1) + #define SPICE_DSK02_KWVERT (SPICE_DSK02_KWVXSZ + 1) + + + /* + + Type 4 definitions + ================== + + These definitions should be treated as "SPICE private." They + may change in a future version of the SPICE Toolkit. They + should not be referenced by user applications. + + To be added post-N0066. + + */ + + + + /* + API-specific definitions + ======================== + + Parameters for dskxsi_c: + */ + #define SPICE_DSKXSI_DCSIZE 1 + #define SPICE_DSKXSI_ICSIZE 1 + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDtl.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDtl.h new file mode 100644 index 000000000..7b1018c52 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceDtl.h @@ -0,0 +1,251 @@ + +/* + +-Header_File SpiceDtl.h ( CSPICE DSK tolerance definitions ) + +-Abstract + + Define CSPICE DSK tolerance and margin macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DSK + +-Particulars + + This file contains declarations of tolerance and margin values + used by the DSK subsystem. + + The values declared in this file are accessible at run time + through the routines + + dskgtl_c {DSK, get tolerance value} + dskstl_c {DSK, set tolerance value} + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 27-FEB-2016 (NJB) + +*/ + + +#ifndef HAVE_SPICE_DSKTOL_H + + #define HAVE_SPICE_DSKTOL_H + + +/* + Parameter declarations + ====================== + + DSK type 2 plate expansion factor + --------------------------------- + + The factor SPICE_DSK_XFRACT is used to slightly expand plates + read from DSK type 2 segments in order to perform ray-plate + intercept computations. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + Plate expansion is done by computing the difference vectors + between a plate's vertices and the plate's centroid, scaling + those differences by (1 + SPICE_DSK_XFRACT), then producing new + vertices by adding the scaled differences to the centroid. This + process doesn't affect the stored DSK data. + + Plate expansion is also performed when surface points are mapped + to plates on which they lie, as is done for illumination angle + computations. + + This parameter is user-adjustable. + */ + #define SPICE_DSK_XFRACT ( 1.0e-10 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYXFR 1 + + + /* + Greedy segment selection factor + ------------------------------- + + The factor SGREED is used to slightly expand DSK segment + boundaries in order to select segments to consider for + ray-surface intercept computations. The effect of this factor is + to make the multi-segment intercept algorithm consider all + segments that are sufficiently close to the ray of interest, even + if the ray misses those segments. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + The exact way this parameter is used is dependent on the + coordinate system of the segment to which it applies, and the DSK + software implementation. This parameter may be changed in a + future version of SPICE. + */ + #define SPICE_DSK_SGREED ( 1.0e-8 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSGR ( SPICE_DSK_KEYXFR + 1 ) + + + /* + Segment pad margin + ------------------ + + The segment pad margin is a scale factor used to determine when a + point resulting from a ray-surface intercept computation, if + outside the segment's boundaries, is close enough to the segment + to be considered a valid result. + + This margin is required in order to make DSK segment padding + (surface data extending slightly beyond the segment's coordinate + boundaries) usable: if a ray intersects the pad surface outside + the segment boundaries; the pad is useless if the intercept is + automatically rejected. + + However, an excessively large value for this parameter is + detrimental, since a ray-surface intercept solution found "in" a + segment will supersede solutions in segments farther from the ray's + vertex. Solutions found outside of a segment thus can mask solutions + that are closer to the ray's vertex by as much as the value of this + margin, when applied to a segment's boundary dimensions. + */ + #define SPICE_DSK_SGPADM ( 1.0e-10 ) + + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSPM ( SPICE_DSK_KEYSGR + 1 ) + + + /* + Surface-point membership margin + ------------------------------- + + The surface-point membership margin limits the distance + between a point and a surface to which the point is + considered to belong. The margin is a scale factor applied + to the size of the segment containing the surface. + + This margin is used to map surface points to outward + normal vectors at those points. + + If this margin is set to an excessively small value, + routines that make use of the surface-point mapping won't + work properly. + */ + #define SPICE_DSK_PTMEMM ( 1.0e-7 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYPTM ( SPICE_DSK_KEYSPM + 1 ) + + + /* + Angular rounding margin + ----------------------- + + This margin specifies an amount by which angular values + may deviate from their proper ranges without a SPICE error + condition being signaled. + + For example, if an input latitude exceeds pi/2 radians by a + positive amount less than this margin, the value is treated as + though it were pi/2 radians. + + Units are radians. + */ + #define SPICE_DSK_ANGMRG ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYAMG ( SPICE_DSK_KEYPTM + 1 ) + + + /* + Longitude alias margin + ---------------------- + + This margin specifies an amount by which a longitude + value can be outside a given longitude range without + being considered eligible for transformation by + addition or subtraction of 2*pi radians. + + A longitude value, when compared to the endpoints of + a longitude interval, will be considered to be equal + to an endpoint if the value is outside the interval + differs from that endpoint by a magnitude less than + the alias margin. + + + Units are radians. + */ + #define SPICE_DSK_LONALI ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYLAL ( SPICE_DSK_KEYAMG + 1 ) + + + +#endif + +/* +End of header file SpiceDtl.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEK.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEK.h new file mode 100644 index 000000000..cbe213fb0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEK.h @@ -0,0 +1,448 @@ +/* + +-Header_File SpiceEK.h ( CSPICE EK-specific definitions ) + +-Abstract + + Perform CSPICE EK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls CSPICE + EK functions. + + + Macros + ====== + + General limits + -------------- + + Name Description + ---- ---------- + SPICE_EK_MXCLSG Maximum number of columns per segment. + + SPICE_EK_TYPLEN Maximum length of a short string + indicating a data type (one of + {"CHR", "DP", "INT", "TIME"}). Such + strings are returned by some of the + Fortran SPICELIB EK routines, hence also + by their f2c'd counterparts. + + Sizes of EK objects + ------------------- + + Name Description + ---- ---------- + + SPICE_EK_CNAMSZ Maximum length of column name. + SPICE_EK_CSTRLN Length of string required to hold column + name. + SPICE_EK_TNAMSZ Maximum length of table name. + SPICE_EK_TSTRLN Length of string required to hold table + name. + + + Query-related limits + -------------------- + + Name Description + ---- ---------- + + SPICE_EK_MAXQRY Maximum length of an input query. This + value is currently equivalent to + twenty-five 80-character lines. + + SPICE_EK_MAXQSEL Maximum number of columns that may be + listed in the `SELECT clause' of a query. + + SPICE_EK_MAXQTAB Maximum number of tables that may be + listed in the `FROM clause' of a query. + + SPICE_EK_MAXQCON Maximum number of relational expressions + that may be listed in the `constraint + clause' of a query. + + This limit applies to a query when it is + represented in `normalized form': that + is, the constraints have been expressed + as a disjunction of conjunctions of + relational expressions. The number of + relational expressions in a query that + has been expanded in this fashion may be + greater than the number of relations in + the query as orginally written. For + example, the expression + + ( ( A LT 1 ) OR ( B GT 2 ) ) + AND + ( ( C NE 3 ) OR ( D EQ 4 ) ) + + which contains 4 relational expressions, + expands to the equivalent normalized + constraint + + ( ( A LT 1 ) AND ( C NE 3 ) ) + OR + ( ( A LT 1 ) AND ( D EQ 4 ) ) + OR + ( ( B GT 2 ) AND ( C NE 3 ) ) + OR + ( ( B GT 2 ) AND ( D EQ 4 ) ) + + which contains eight relational + expressions. + + + + SPICE_EK_MAXQJOIN Maximum number of tables that can be + joined. + + SPICE_EK_MAXQJCON Maximum number of join constraints + allowed. + + SPICE_EK_MAXQORD Maximum number of columns that may be + used in the `order-by clause' of a query. + + SPICE_EK_MAXQTOK Maximum number of tokens in a query. + Tokens + are reserved words, column names, + parentheses, and values. Literal strings + and time values count as single tokens. + + SPICE_EK_MAXQNUM Maximum number of numeric tokens in a + query. + + SPICE_EK_MAXQCLN Maximum total length of character tokens + in a query. + + SPICE_EK_MAXQSTR Maximum length of literal string values + allowed in queries. + + + Codes + ----- + + Name Description + ---- ---------- + + SPICE_EK_VARSIZ Code used to indicate variable-size + objects. Usually this is used in a + context where a non-negative integer + indicates the size of a fixed-size object + and the presence of this code indicates a + variable-size object. + + The value of this constant must match the + parameter IFALSE used in the Fortran + library SPICELIB. + + + Enumerated Types + ================ + + Enumerated code values + ---------------------- + + Name Description + ---- ---------- + SpiceEKDataType Codes for data types used in the EK + interface: character, double precision, + integer, and "time." + + The values are: + + { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3 } + + + + SpiceEKExprClass Codes for types of expressions that may + appear in the SELECT clause of EK + queries. Values and meanings are: + + + SPICE_EK_EXP_COL Selected item was a + column. The column + may qualified by a + table name. + + SPICE_EK_EXP_FUNC Selected item was + a simple function + invocation of the + form + + F ( ) + + or else was + + COUNT(*) + + SPICE_EK_EXP_EXPR Selected item was a + more general + expression than + those shown above. + + + Numeric values are: + + { SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 } + + + Structures + ========== + + EK API structures + ----------------- + + Name Description + ---- ---------- + + SpiceEKAttDsc EK column attribute descriptor. Note + that this object is distinct from the EK + column descriptors used internally in + the EK routines; those descriptors + contain pointers as well as attribute + information. + + The members are: + + cclass: Column class code. + + dtype: Data type code: has type + SpiceEKDataType. + + strlen: String length. Applies to + SPICE_CHR type. Value is + SPICE_EK_VARSIZ for + variable-length strings. + + size: Column entry size; this is + the number of array + elements in a column + entry. The value is + SPICE_EK_VARSIZ for + variable-size columns. + + indexd: Index flag; value is + SPICETRUE if the column is + indexed, SPICEFALSE + otherwise. + + nullok: Null flag; value is + SPICETRUE if the column + may contain null values, + SPICEFALSE otherwise. + + + + SpiceEKSegSum EK segment summary. This structure + contains user interface level descriptive + information. The structure contains the + following members: + + tabnam The name of the table to + which the segment belongs. + + nrows The number of rows in the + segment. + + ncols The number of columns in + the segment. + + cnames An array of names of + columns in the segment. + Column names may contain + as many as SPICE_EK_CNAMSZ + characters. The array + contains room for + SPICE_EK_MXCLSG column + names. + + cdescrs An array of column + attribute descriptors of + type SpiceEKAttDsc. + The array contains room + for SPICE_EK_MXCLSG + descriptors. The Ith + descriptor corresponds to + the column whose name is + the Ith element of the + array cnames. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.0.0 27-JUL-2002 (NJB) + + Defined SpiceEKDataType using SpiceDataType. Removed declaration + of enum _SpiceEKDataType. + + -CSPICE Version 1.0.0, 05-JUL-1999 (NJB) + + Renamed _SpiceEKAttDsc member "class" to "cclass." The + former name is a reserved word in C++. + + + -CSPICE Version 1.0.0, 24-FEB-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_EK_H + + #define HAVE_SPICE_EK_H + + + + /* + Constants + */ + + /* + Sizes of EK objects: + */ + + #define SPICE_EK_CNAMSZ 32 + #define SPICE_EK_CSTRLN ( SPICE_EK_CNAMSZ + 1 ) + #define SPICE_EK_TNAMSZ 64 + #define SPICE_EK_TSTRLN ( SPICE_EK_TNAMSZ + 1 ) + + + + /* + Maximum number of columns per segment: + */ + + #define SPICE_EK_MXCLSG 100 + + + /* + Maximum length of string indicating data type: + */ + + #define SPICE_EK_TYPLEN 4 + + + /* + Query-related limits (see header for details): + */ + + #define SPICE_EK_MAXQRY 2000 + #define SPICE_EK_MAXQSEL 50 + #define SPICE_EK_MAXQTAB 10 + #define SPICE_EK_MAXQCON 1000 + #define SPICE_EK_MAXQJOIN 10 + #define SPICE_EK_MAXQJCON 100 + #define SPICE_EK_MAXQORD 10 + #define SPICE_EK_MAXQTOK 500 + #define SPICE_EK_MAXQNUM 100 + #define SPICE_EK_MAXQCLN SPICE_EK_MAXQRY + #define SPICE_EK_MAXQSTR 1024 + + + + /* + Code indicating "variable size": + */ + #define SPICE_EK_VARSIZ (-1) + + + + /* + Data type codes: + */ + typedef SpiceDataType SpiceEKDataType; + + + + /* + SELECT clause expression type codes: + */ + enum _SpiceEKExprClass{ SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 }; + + typedef enum _SpiceEKExprClass SpiceEKExprClass; + + + + /* + EK column attribute descriptor: + */ + + struct _SpiceEKAttDsc + + { SpiceInt cclass; + SpiceEKDataType dtype; + SpiceInt strlen; + SpiceInt size; + SpiceBoolean indexd; + SpiceBoolean nullok; }; + + typedef struct _SpiceEKAttDsc SpiceEKAttDsc; + + + + /* + EK segment summary: + */ + + struct _SpiceEKSegSum + + { SpiceChar tabnam [SPICE_EK_TSTRLN]; + SpiceInt nrows; + SpiceInt ncols; + SpiceChar cnames [SPICE_EK_MXCLSG][SPICE_EK_CSTRLN]; + SpiceEKAttDsc cdescrs[SPICE_EK_MXCLSG]; }; + + typedef struct _SpiceEKSegSum SpiceEKSegSum; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEll.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEll.h new file mode 100644 index 000000000..d0c123ab0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceEll.h @@ -0,0 +1,115 @@ +/* + +-Header_File SpiceEll.h ( CSPICE Ellipse definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceEllipse data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Ellipse functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceEllipse Structure representing an ellipse in 3- + dimensional space. + + The members are: + + center: Vector defining ellipse's + center. + + semiMajor: Vector defining ellipse's + semi-major axis. + + semiMinor: Vector defining ellipse's + semi-minor axis. + + The ellipse is the set of points + + {X: X = center + + cos(theta) * semiMajor + + sin(theta) * semiMinor, + + theta in [0, 2*Pi) } + + + ConstSpiceEllipse A const SpiceEllipse. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_ELLIPSES + + #define HAVE_SPICE_ELLIPSES + + + + /* + Ellipse structure: + */ + + struct _SpiceEllipse + + { SpiceDouble center [3]; + SpiceDouble semiMajor [3]; + SpiceDouble semiMinor [3]; }; + + typedef struct _SpiceEllipse SpiceEllipse; + + typedef const SpiceEllipse ConstSpiceEllipse; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceErr.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceErr.h new file mode 100644 index 000000000..21e76605c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceErr.h @@ -0,0 +1,141 @@ +/* + +-Header_File SpiceErr.h ( CSPICE error handling definitions ) + +-Abstract + + Perform CSPICE definitions for error handling APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE error handling functions. + + + CONSTANTS + ========== + + Name Description + ---- ---------- + + SPICE_ERROR_LMSGLN Maximum length of a long error message, + including the null terminator. + + SPICE_ERROR_SMSGLN Maximum length of a short error message, + including the null terminator. + + SPICE_ERROR_XMSGLN Maximum length of a short error + explanation message, including the null + terminator. + + SPICE_ERROR_MODLEN Maximum length of a module name + appearing in the traceback message, + including the null terminator. + + SPICE_ERROR_MAXMOD Maximum count of module names + appearing in the traceback message. + + SPICE_ERROR_TRCLEN Maximum length of a traceback message, + including the null terminator. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 05-NOV-2013 (NJB) + +*/ + +#ifndef HAVE_SPICE_ERROR_HANDLING + + #define HAVE_SPICE_ERROR_HANDLING + + + /* + Local constants + */ + #define ARROWLEN 5 + + /* + Public constants + */ + + /* + Long error message length, which is equal to + + ( 23 * 80 ) + 1 + + */ + #define SPICE_ERROR_LMSGLN 1841 + + /* + Short error message length: + */ + #define SPICE_ERROR_SMSGLN 26 + + /* + Short error message explanation length: + */ + #define SPICE_ERROR_XMSGLN 81 + + /* + Module name length for traceback entries: + */ + #define SPICE_ERROR_MODLEN 33 + + /* + Maximum module count for traceback string: + */ + #define SPICE_ERROR_MAXMOD 100 + + /* + Maximum length of traceback string returned + by qcktrc_c. + */ + #define SPICE_ERROR_TRCLEN ( ( SPICE_ERROR_MAXMOD \ + * ( SPICE_ERROR_MODLEN-1 ) ) \ + + ( ARROWLEN \ + * ( SPICE_ERROR_MAXMOD-1 ) ) \ + + 1 ) +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceFrm.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceFrm.h new file mode 100644 index 000000000..89b5c4d08 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceFrm.h @@ -0,0 +1,243 @@ +/* + +-Header_File SpiceFrm.h ( CSPICE frame subsystem definitions ) + +-Abstract + + Perform CSPICE definitions for frame subsystem APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CK + FRAMES + PCK + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE frame subsystem APIs. + + + CONSTANTS + ========== + + + Frame counts + ------------ + + The following parameter are counts of built-in frames. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE files + + ninert.inc + nninrt.inc + + Name Description + ---- ---------- + + SPICE_NFRAME_NINERT Number of built-in inertial frames. + SPICE_NFRAME_NNINRT Number of built-in non-inertial frames. + + + + Frame classes + ------------- + + The following parameters identify SPICE frame classes. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE file frmtyp.inc. See the Frames Required Reading for a + detailed discussion of frame classes. + + + Name Description + ---- ---------- + + SPICE_FRMTYP_INERTL an inertial frame that is listed in the + f2c'd routine chgirf_ and that requires + no external file to compute the + transformation from or to any other + inertial frame. + + + SPICE_FRMTYP_PCK is a frame that is specified relative + to some built-in, inertial frame (of + class SPICE_FRMTYP_INERTL) and that has + an IAU model that may be retrieved from + the PCK system via a call to the + routine tisbod_c. + + + SPICE_FRMTYP_CK is a frame defined by a C-kernel. + + + SPICE_FRMTYP_TK is a "text kernel" frame. These frames + are offset from their associated + "relative" frames by a constant + rotation. + + + SPICE_FRMTYP_DYN is a "dynamic" frame. These currently + are limited to parameterized frames + where the full frame definition depends + on parameters supplied via a frame + kernel. + + SPICE_FRMTYP_SWTCH is a "switch" frame. These frames have + orientation defined by their alignment with + base frames selected from a prioritized list. + The base frames optionally have associated + time intervals of applicability. + + SPICE_FRMTYP_ALL indicates any of the above classes. + This parameter is used in APIs that + fetch information about frames of a + specified class. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 26-AUG-2021 (JDR) (NJB) (BVS) + + Added parameter SWTCH to support the switch frame class. + + Increased the number of non-inertial frames from 106 to 124 + in order to accommodate the following PCK based frames: + + IAU_52_EUROPA + IAU_NIX + IAU_HYDRA + IAU_RYUGU + IAU_ARROKOTH + IAU_DIDYMOS_BARYCENTER + IAU_DIDYMOS + IAU_DIMORPHOS + IAU_DONALDJOHANSON + IAU_EURYBATES + IAU_EURYBATES_BARYCENTER + IAU_QUETA + IAU_POLYMELE + IAU_LEUCUS + IAU_ORUS + IAU_PATROCLUS_BARYCENTER + IAU_PATROCLUS + IAU_MENOETIUS + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.1.0, 25-JAN-2016 (EDW) + + Increased the number of non-inertial frames from 105 to 106 + in order to accommodate the following PCK based frame: + + IAU_BENNU + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.0.0, 23-MAY-2012 (NJB) + +*/ + +#ifndef HAVE_SPICE_FRAME_DEFS + + #define HAVE_SPICE_FRAME_DEFS + + + /* + Frame counts: + */ + + /* + Number of built-in inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file ninert.inc. + */ + #define SPICE_NFRAME_NINERT 21 + + /* + Number of built-in non-inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file nninrt.inc. + */ + #define SPICE_NFRAME_NNINRT 124 + + + + /* + The frame class codes defined here are identical + to those used in SPICELIB. + */ + + /* + Inertial, built-in frames: + */ + #define SPICE_FRMTYP_INERTL 1 + + /* + PCK frames: + */ + #define SPICE_FRMTYP_PCK 2 + + /* + CK frames: + */ + #define SPICE_FRMTYP_CK 3 + + /* + TK frames: + */ + #define SPICE_FRMTYP_TK 4 + + /* + Dynamic frames: + */ + #define SPICE_FRMTYP_DYN 5 + + /* + Switch frames: + */ + #define SPICE_FRMTYP_SWTCH 6 + + /* + All frame classes: + */ + #define SPICE_FRMTYP_ALL ( -1 ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceGF.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceGF.h new file mode 100644 index 000000000..fec0986b7 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceGF.h @@ -0,0 +1,351 @@ +/* + +-Header_File SpiceGF.h ( CSPICE GF-specific definitions ) + +-Abstract + + Perform CSPICE GF-specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + GF + +-Keywords + + GEOMETRY + SEARCH + +-Exceptions + + None + +-Files + + None + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE GF functions. + + + Macros + ====== + + Workspace parameters + -------------------- + + CSPICE applications normally don't declare workspace arguments + and therefore don't directly reference workspace size parameters. + However, CSPICE GF APIs dealing with numeric constraints + dynamically allocate workspace memory; the amount allocated + depends on the number of intervals the workspace windows can + hold. This amount is an input argument to the GF numeric quantity + APIs. + + The parameters below are used to calculate the amount of memory + required. Each workspace window contains 6 double precision + numbers in its control area and 2 double precision numbers for + each interval it can hold. + + + Name Description + ---- ---------- + SPICE_GF_NWMAX Maximum number of windows required for + a user-defined workspace array. + + SPICE_GF_NWDIST Number of workspace windows used by + gfdist_c and the underlying SPICELIB + routine GFDIST. + + SPICE_GF_NWILUM Number of workspace windows used by + gfilum_c and the underlying SPICELIB + routine GFILUM. + + SPICE_GF_NWSEP Number of workspace windows used by + gfsep_c and the underlying SPICELIB + routine GFSEP. + + SPICE_GF_NWRR Number of workspace windows used by + gfrr_c and the underlying SPICELIB + routine GFRR. + + SPICE_GF_NWPA Number of workspace windows used by + gfpa_c and the underlying SPICELIB + routine GFPA. + + + Field of view (FOV) parameters + ------------------------------ + + Name Description + ---- ---------- + SPICE_GF_MAXVRT Maximum allowed number of boundary + vectors for a polygonal FOV. + + SPICE_GF_CIRFOV Parameter identifying a circular FOV. + + SPICE_GF_ELLFOV Parameter identifying a elliptical FOV. + + SPICE_GF_POLFOV Parameter identifying a polygonal FOV. + + SPICE_GF_RECFOV Parameter identifying a rectangular FOV. + + SPICE_GF_SHPLEN Parameter specifying maximum length of + a FOV shape name. + + SPICE_GF_MARGIN is a small positive number used to + constrain the orientation of the + boundary vectors of polygonal FOVs. Such + FOVs must satisfy the following + constraints: + + 1) The boundary vectors must be + contained within a right circular + cone of angular radius less than + than (pi/2) - SPICE_GF_MARGIN radians; + in other words, there must be a vector + A such that all boundary vectors + have angular separation from A of + less than (pi/2)-SPICE_GF_MARGIN + radians. + + 2) There must be a pair of boundary + vectors U, V such that all other + boundary vectors lie in the same + half space bounded by the plane + containing U and V. Furthermore, all + other boundary vectors must have + orthogonal projections onto a plane + normal to this plane such that the + projections have angular separation + of at least 2*SPICE_GF_MARGIN radians + from the plane spanned by U and V. + + SPICE_GF_MARGIN is currently set to 1.e-12. + + + Occultation parameters + ---------------------- + + SPICE_GF_ANNULR Parameter identifying an "annular + occultation." This geometric condition + is more commonly known as a "transit." + The limb of the background object must + not be blocked by the foreground object + in order for an occultation to be + "annular." + + SPICE_GF_ANY Parameter identifying any type of + occultation or transit. + + SPICE_GF_FULL Parameter identifying a full + occultation: the foreground body + entirely blocks the background body. + + SPICE_GF_PARTL Parameter identifying an "partial + occultation." This is an occultation in + which the foreground body blocks part, + but not all, of the limb of the + background body. + + + + Target shape parameters + ----------------------- + + SPICE_GF_EDSHAP Parameter indicating a target object's + shape is modeled as an ellipsoid. + + SPICE_GF_PTSHAP Parameter indicating a target object's + shape is modeled as a point. + + SPICE_GF_RYSHAP Parameter indicating a target object's + "shape" is modeled as a ray emanating + from an observer's location. This model + may be used in visibility computations + for targets whose direction, but not + position, relative to an observer is + known. + + SPICE_GF_SPSHAP Parameter indicating a target object's + shape is modeled as a sphere. + + + + Search parameters + ----------------- + + These parameters affect the manner in which GF searches are + performed. + + SPICE_GF_ADDWIN is a parameter used in numeric quantity + searches that use an equality + constraint. This parameter is used to + expand the confinement window (the + window over which the search is + performed) by a small amount at both + ends. This expansion accommodates the + case where a geometric quantity is equal + to a reference value at a boundary point + of the original confinement window. + + SPICE_GF_CNVTOL is the default convergence tolerance + used by GF routines that don't support a + user-supplied tolerance value. GF + searches for roots will terminate when a + root is bracketed by times separated by + no more than this tolerance. Units are + seconds. + + Configuration parameter + ----------------------- + + SPICE_GFEVNT_MAXPAR Parameter indicating the maximum number of + elements needed for the 'qnames' and 'q*pars' + arrays used in gfevnt_c. + + SpiceChar qcpars[SPICE_GFEVNT_MAXPAR][LNSIZE]; + SpiceDouble qdpars[SPICE_GFEVNT_MAXPAR]; + SpiceInt qipars[SPICE_GFEVNT_MAXPAR]; + SpiceBoolean qlpars[SPICE_GFEVNT_MAXPAR]; + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + L.S. Elson (JPL) + +-Version + + -CSPICE Version 2.1.2, 05-FEB-2020 (JDR) + + Corrected description of parameter SPICE_GF_MARGIN. + + -CSPICE Version 2.1.1, 29-NOV-2016 (NJB) + + Corrected description of parameter SPICE_GF_SPSHAP. + + -CSPICE Version 2.1.0, 23-FEB-2012 (NJB) + + Added parameters: + + SPICE_GF_NWILUM + SPICE_GF_NWRR + SPICE_GF_NWPA + + -CSPICE Version 2.0.0, 23-JUN-2009 (NJB) + + Added parameter for maximum length of FOV shape string. + + -CSPICE Version 1.0.0, 11-MAR-2009 (NJB) + +*/ + + +#ifndef HAVE_SPICE_GF_H + + #define HAVE_SPICE_GF_H + + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Workspace parameters + */ + #define SPICE_GF_NWMAX 15 + #define SPICE_GF_NWDIST 5 + #define SPICE_GF_NWILUM 5 + #define SPICE_GF_NWSEP 5 + #define SPICE_GF_NWRR 5 + #define SPICE_GF_NWPA 5 + + + /* + Field of view (FOV) parameters + */ + #define SPICE_GF_MAXVRT 10000 + #define SPICE_GF_CIRFOV "CIRCLE" + #define SPICE_GF_ELLFOV "ELLIPSE" + #define SPICE_GF_POLFOV "POLYGON" + #define SPICE_GF_RECFOV "RECTANGLE" + #define SPICE_GF_SHPLEN 10 + #define SPICE_GF_MARGIN ( 1.e-12 ) + + + /* + Occultation parameters + */ + #define SPICE_GF_ANNULR "ANNULAR" + #define SPICE_GF_ANY "ANY" + #define SPICE_GF_FULL "FULL" + #define SPICE_GF_PARTL "PARTIAL" + + + /* + Target shape parameters + */ + #define SPICE_GF_EDSHAP "ELLIPSOID" + #define SPICE_GF_PTSHAP "POINT" + #define SPICE_GF_RYSHAP "RAY" + #define SPICE_GF_SPSHAP "SPHERE" + + + /* + Search parameters + */ + #define SPICE_GF_ADDWIN 1.0 + #define SPICE_GF_CNVTOL 1.e-6 + + + /* + Configuration parameters. + */ + #define SPICE_GFEVNT_MAXPAR 10 + + +#endif + + +/* + End of header file SpiceGF.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOccult.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOccult.h new file mode 100644 index 000000000..0caab7c3c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOccult.h @@ -0,0 +1,147 @@ +/* + +-Header_File SpiceOccult.h ( CSPICE Occultation specific definitions ) + +-Abstract + + Perform CSPICE occultation specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Keywords + + OCCULTATION + GEOMETRY + ELLIPSOID + +-Exceptions + + None + +-Files + + None + +-Particulars + + The following integer codes indicate the geometric relationship + of the three bodies. + + The meaning of the sign of each code is given below. + + Code sign Meaning + --------- ------------------------------ + > 0 The second ellipsoid is + partially or fully occulted + by the first. + + < 0 The first ellipsoid is + partially of fully + occulted by the second. + + = 0 No occultation. + + The meanings of the codes are given below. The variable names + indicate the type of occultation and which target is in the back. + For example, SPICE_OCCULT_TOTAL1 represents a total occultation in which + the first target is in the back (or occulted by) the second target. + + Name Code Meaning + ------ ----- ------------------------------ + SPICE_OCCULT_TOTAL1 -3 Total occultation of first + target by second. + + SPICE_OCCULT_ANNLR1 -2 Annular occultation of first + target by second. The second + target does not block the limb + of the first. + + SPICE_OCCULT_PARTL1 -1 Partial occultation of first + target by second target. + + SPICE_OCCULT_NOOCC 0 No occultation or transit: both + objects are completely visible + to the observer. + + SPICE_OCCULT_PARTL2 1 Partial occultation of second + target by first target. + + SPICE_OCCULT_ANNLR2 2 Annular occultation of second + target by first. + + SPICE_OCCULT_TOTAL2 3 Total occultation of second + target by first. + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + S.C. Krening (JPL) + N.J. Bachman (JPL) + +-Version + + -CSPICE Version 1.0.0, 23-FEB-2012 (SCK) + +*/ + + +#ifndef HAVE_SPICE_OCCULT_H + + #define HAVE_SPICE_OCCULT_H + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Occultation parameters + */ + + #define SPICE_OCCULT_TOTAL1 -3 + #define SPICE_OCCULT_ANNLR1 -2 + #define SPICE_OCCULT_PARTL1 -1 + #define SPICE_OCCULT_NOOCC 0 + #define SPICE_OCCULT_PARTL2 1 + #define SPICE_OCCULT_ANNLR2 2 + #define SPICE_OCCULT_TOTAL2 3 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOsc.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOsc.h new file mode 100644 index 000000000..9bb9a937b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceOsc.h @@ -0,0 +1,86 @@ +/* + +-Header_File SpiceOsc.h ( CSPICE osculating element definitions ) + +-Abstract + + Perform CSPICE definitions for osculating element routines. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE osculating element functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_OSCLTX_NELTS Length of output element array + returned by oscltx_c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 25-JAN-2017 (NJB) + +*/ + +#ifndef HAVE_SPICE_OSC + + #define HAVE_SPICE_OSC + + + /* + Constants + */ + #define SPICE_OSCLTX_NELTS 20 + +#endif + + +/* + End of header file SpiceOsc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpicePln.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpicePln.h new file mode 100644 index 000000000..839fb1560 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpicePln.h @@ -0,0 +1,106 @@ +/* + +-Header_File SpicePln.h ( CSPICE Plane definitions ) + +-Abstract + + Perform CSPICE definitions for the SpicePlane data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Plane functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpicePlane Structure representing a plane in 3- + dimensional space. + + The members are: + + normal: Vector normal to plane. + + constant: Constant of plane equation + + Plane = + + {X: = constant} + + + + ConstSpicePlane A const SpicePlane. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_PLANES + + #define HAVE_SPICE_PLANES + + + + /* + Plane structure: + */ + + struct _SpicePlane + + { SpiceDouble normal [3]; + SpiceDouble constant; }; + + typedef struct _SpicePlane SpicePlane; + + typedef const SpicePlane ConstSpicePlane; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSCLK.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSCLK.h new file mode 100644 index 000000000..64053efcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSCLK.h @@ -0,0 +1,90 @@ + +/* + +-Header_File SpiceSCLK.h ( CSPICE SCLK-specific definitions ) + +-Abstract + + Perform CSPICE definitions to support SCLK wrapper interfaces, + including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + SCLK + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE SCLK interfaces. + + The parameters below define sizes and limits used by the SCLK system. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_SCLK_MXPART is the maximum number of partitions in a given + SCLK file. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 16-SEP-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_SCLK_H + + #define HAVE_SPICE_SCLK_H + + + /* + Maximum number of partitions in a SCLK file: + */ + #define SPICE_SCLK_MXPART 9999 + + +#endif + +/* +End of header file SpiceSCLK.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSPK.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSPK.h new file mode 100644 index 000000000..a4c8eac5f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSPK.h @@ -0,0 +1,128 @@ +/* + +-Header_File SpiceSPK.h ( CSPICE SPK definitions ) + +-Abstract + + Perform CSPICE definitions to support SPK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE SPK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceSPK18Subtype Typedef for enum indicating the + mathematical representation used + in an SPK type 18 segment. Possible + values and meanings are: + + S18TP0: + + Hermite interpolation, 12- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt, + vx, vy, vz, dvx/dt, dvy/dt, dvz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. Note well: vx, vy, and + vz *are not necessarily equal* to the + time derivatives of x, y, and z. + This packet structure mimics that of + the Rosetta/MEX orbit file from which + the data are taken. + + Position units are kilometers, + velocity units are kilometers per + second, and acceleration units are + kilometers per second per second. + + + S18TP1: + + Lagrange interpolation, 6- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. + + Position units are kilometers; + velocity units are kilometers per + second. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 16-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_SPK_H + + #define HAVE_SPICE_SPK_H + + + + /* + SPK type 18 subtype codes: + */ + + enum _SpiceSPK18Subtype { S18TP0, S18TP1 }; + + + typedef enum _SpiceSPK18Subtype SpiceSPK18Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSrf.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSrf.h new file mode 100644 index 000000000..97537426c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceSrf.h @@ -0,0 +1,94 @@ +/* + +-Header_File SpiceSrf.h ( CSPICE surface definitions ) + +-Abstract + + Perform CSPICE definitions for surface name-ID mapping. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE surface name-ID mapping functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_SRF_SFNMLN Maximum length of a surface name, + including the terminating null + character. + + SPICE_SRF_MAXSRF Maximum number of surfaces that + can be accommodated in a surface + list. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 30-AUG-2016 (NJB) + + Added macro SPICE_SRF_MAXSRF + + 22-JAN-2016 (NJB) + + Original version. +*/ + +#ifndef HAVE_SRF + + #define HAVE_SRF + + + /* + Constants + */ + #define SPICE_SRF_SFNMLN 37 + + #define SPICE_SRF_MAXSRF 100 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceUsr.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceUsr.h new file mode 100644 index 000000000..53ac70bcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceUsr.h @@ -0,0 +1,296 @@ +/* + +-Header_File SpiceUsr.h ( CSPICE user interface definitions ) + +-Abstract + + Perform CSPICE user interface declarations, including type + definitions and function prototype declarations. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This file is an umbrella header that includes all header files + required to support the CSPICE application programming interface + (API). Users' application code that calls CSPICE need include only + this single header file. This file includes function prototypes for + the entire set of CSPICE routines. Typedef statements used to create + SPICE data types are also included. + + + About SPICE data types + ====================== + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> enum { SPICEFALSE = 0, SPICETRUE = 1 } + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On all currently supported + platforms, type double occupies 8 bytes and type int occupies 4 + bytes. Other platforms may require a SpiceInt to map to type long. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + About CSPICE function prototypes + ================================ + + Because CSPICE function prototypes enable substantial compile-time + error checking, we recommend that user applications always reference + them. Including the header file SpiceUsr.h in any module that calls + CSPICE will automatically make the prototypes available. + + + About CSPICE C style + ==================== + + CSPICE is written in ANSI C. No attempt has been made to support K&R + conventions or restrictions. + + + About C++ compatibility + ======================= + + The preprocessor directive -D__cplusplus should be used when + compiling C++ source code that includes this header file. This + directive will suppress mangling of CSPICE names, permitting linkage + to a CSPICE object library built from object modules produced by + an ANSI C compiler. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + S.C. Krening (JPL) + E.D. Wright (JPL) + +-Restrictions + + The #include statements contained in this file are not part of + the CSPICE API. The set of files included may change without notice. + Users should not include these files directly in their own + application code. + +-Version + + -CSPICE Version 7.0.0, 16-SEP-2020 (JDR) + + Updated to include header file + + SpiceDAS.h + SpiceSCLK.h + + -CSPICE Version 6.0.0, 07-FEB-2010 (NJB) + + Now includes SpiceOsc.h. + + 27-FEB-2016 (NJB) + + Updated to include header files + + SpiceDLA.h + SpiceDSK.h + SpiceSrf.h + SpiceDtl.h + + -CSPICE Version 5.0.0, 11-MAY-2012 (NJB) (SCK) + + Updated to include header files + + SpiceErr.h + SpiceFrm.h + SpiceOccult.h + + -CSPICE Version 4.0.0, 30-SEP-2008 (NJB) + + Updated to include header file + + SpiceGF.h + + -CSPICE Version 3.0.0, 19-AUG-2002 (NJB) + + Updated to include header files + + SpiceCel.h + SpiceCK.h + SpiceSPK.h + + -CSPICE Version 3.0.0, 17-FEB-1999 (NJB) + + Updated to support suppression of name mangling when included in + C++ source code. Also now interface macros to intercept function + calls and perform automatic type casting. + + Now includes platform macro definition header file. + + References to types SpiceVoid and ConstSpiceVoid were removed. + + -CSPICE Version 2.0.0, 06-MAY-1998 (NJB) (EDW) + +*/ + +#ifdef __cplusplus + extern "C" { +#endif + + +#ifndef HAVE_SPICE_USER + + #define HAVE_SPICE_USER + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + /* + Include CSPICE data type definitions. + */ + #include "SpiceZdf.h" + + /* + Include the CSPICE error handling interface definitions. + */ + #include "SpiceErr.h" + + /* + Include the CSPICE EK interface definitions. + */ + #include "SpiceEK.h" + + /* + Include the CSPICE frame subsystem API definitions. + */ + #include "SpiceFrm.h" + + /* + Include the CSPICE Cell interface definitions. + */ + #include "SpiceCel.h" + + /* + Include the CSPICE CK interface definitions. + */ + #include "SpiceCK.h" + + /* + Include the CSPICE SCLK interface definitions. + */ + #include "SpiceSCLK.h" + + /* + Include the CSPICE SPK interface definitions. + */ + #include "SpiceSPK.h" + + /* + Include the CSPICE GF interface definitions. + */ + #include "SpiceGF.h" + + /* + Include the CSPICE occultation definitions. + */ + #include "SpiceOccult.h" + + /* + Include the CSPICE DAS definitions. + */ + #include "SpiceDAS.h" + + /* + Include the CSPICE DLA definitions. + */ + #include "SpiceDLA.h" + + /* + Include the CSPICE DSK definitions. + */ + #include "SpiceDSK.h" + + /* + Include the CSPICE DSK tolerance definitions. + */ + #include "SpiceDtl.h" + + /* + Include the CSPICE surface definitions. + */ + #include "SpiceSrf.h" + + /* + Include oscltx_c definitions. + */ + #include "SpiceOsc.h" + + /* + Include CSPICE prototypes. + */ + #include "SpiceZpr.h" + + /* + Define the CSPICE function interface macros. + */ + #include "SpiceZim.h" + + + +#endif + + +#ifdef __cplusplus + } +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZad.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZad.h new file mode 100644 index 000000000..0414ecd2b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZad.h @@ -0,0 +1,215 @@ +/* + +-Header_File SpiceZad.h ( CSPICE adapter definitions ) + +-Abstract + + Perform CSPICE declarations to support passed-in function + adapters used in wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header file contains declarations used by the CSPICE + passed-in function adapter ("PFA") system. This system enables + CSPICE wrapper functions to support passed-in function + arguments whose prototypes are C-style, even when these + functions are to be called from f2c'd Fortran routines + expecting f2c-style interfaces. + + This header declares: + + - The prototype for the passed-in function argument + pointer storage and fetch routines + + zzadsave_c + zzadget_c + + - Prototypes for CSPICE adapter functions. Each passed-in + function argument in a CSPICE wrapper has a corresponding + adapter function. The adapter functions have interfaces + that match those of their f2c'd counterparts; this allows + the adapters to be called by f2c'd SPICELIB code. The + adapters look up saved function pointers for routines + passed in by the wrapper's caller and call these functions. + + - Values for the enumerated type SpicePassedInFunc. These + values are used to map function pointers to the + functions they represent, enabling adapters to call + the correct passed-in functions. + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.3.0, 07-FEB-2021 (JDR) + + Removed spurious comma at the end of enumerator list + "SpicePassedInFunc" to comply with ANSI-C standard. + + -CSPICE Version 2.2.0, 29-NOV-2011 (EDW) + + Updated to support the user defined boolean function capability. + + -CSPICE Version 2.1.0, 21-DEC-2009 (EDW) + + Updated to support the user defined scalar function capability. + + -CSPICE Version 2.0.0, 29-JAN-2009 (NJB) + + Now conditionally includes SpiceZfc.h. + + Updated to reflect new calling sequence of f2c'd + routine gfrefn_. Some header updates were made + as well. + + -CSPICE Version 1.0.0, 29-MAR-2008 (NJB) + +*/ + + +/* + This file has dependencies defined in SpiceZfc.h. Include that + file if it hasn't already been included. +*/ +#ifndef HAVE_SPICEF2C_H + #include "SpiceZfc.h" +#endif + + + +#ifndef HAVE_SPICE_ZAD_H + + #define HAVE_SPICE_ZAD_H + + + + /* + Prototypes for GF adapters: + */ + + logical zzadbail_c ( void ); + + + int zzadstep_c ( doublereal * et, + doublereal * step ); + + + int zzadrefn_c ( doublereal * t1, + doublereal * t2, + logical * s1, + logical * s2, + doublereal * t ); + + + int zzadrepf_c ( void ); + + + int zzadrepi_c ( doublereal * cnfine, + char * srcpre, + char * srcsuf, + ftnlen srcprelen, + ftnlen srcsuflen ); + + + int zzadrepu_c ( doublereal * ivbeg, + doublereal * ivend, + doublereal * et ); + + + int zzadfunc_c ( doublereal * et, + doublereal * value ); + + + int zzadqdec_c ( U_fp udfunc, + doublereal * et, + logical * xbool ); + + /* + Define the enumerated type + + SpicePassedInFunc + + for names of passed-in functions. Using this type gives + us compile-time checking and avoids string comparisons. + */ + enum _SpicePassedInFunc { + UDBAIL, + UDREFN, + UDREPF, + UDREPI, + UDREPU, + UDSTEP, + UDFUNC, + UDQDEC + }; + + typedef enum _SpicePassedInFunc SpicePassedInFunc; + + /* + SPICE_N_PASSED_IN_FUNC is the count of SpicePassedInFunc values. + */ + #define SPICE_N_PASSED_IN_FUNC 8 + + + /* + CSPICE wrappers supporting passed-in function arguments call + the adapter setup interface function once per each such argument; + these calls save the function pointers for later use within the + f2c'd code that calls passed-in functions. The saved pointers + will be used in calls by the adapter functions whose prototypes + are declared above. + + Prototypes for adapter setup interface: + */ + void zzadsave_c ( SpicePassedInFunc functionID, + void * functionPtr ); + + void * zzadget_c ( SpicePassedInFunc functionID ); + + +#endif + +/* +End of header file SpiceZad.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZdf.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZdf.h new file mode 100644 index 000000000..8dc2ab972 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZdf.h @@ -0,0 +1,274 @@ +/* + +-Header_File SpiceZdf.h ( CSPICE definitions ) + +-Abstract + + Define CSPICE data types via typedefs; also define some user-visible + enumerated types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + CSPICE data types + ================= + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> int + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On most currently supported + platforms, type double occupies 8 bytes and type long occupies 4 + bytes. Other platforms may require a SpiceInt to map to type int. + The Alpha/Digital Unix platform is an example of the latter case. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + CSPICE enumerated types + ======================= + + These are provided to enhance readability of the code. + + Type name Value set + --------- --------- + + _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 } + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 6.3.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 6.2.0, 10-MAR-2014 (BVS) + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 5.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 4.0.0 27-JUL-2002 (NJB) + + Added definition of SpiceDataType. + + -CSPICE Version 3.0.0 18-SEP-1999 (NJB) + + SpiceBoolean implementation changed from enumerated type to + typedef mapping to int. + + -CSPICE Version 2.0.0 29-JAN-1999 (NJB) + + Made definition of SpiceInt and ConstSpiceInt platform + dependent to accommodate the Alpha/Digital Unix platform. + + Removed definitions of SpiceVoid and ConstSpiceVoid. + + -CSPICE Version 1.0.0 25-OCT-1997 (KRG) (NJB) (EDW) +*/ + + #ifndef HAVE_SPICEDEFS_H + #define HAVE_SPICEDEFS_H + + /* + Include platform definitions, if they haven't been executed already. + */ + #ifndef HAVE_PLATFORM_MACROS_H + #include "SpiceZpl.h" + #endif + + /* + Basic data types. These are defined to be compatible with the + types used by f2c, and so they follow the Fortran notion of what + these things are. See the f2c documentation for the details + about the choices for the sizes of these types. + */ + typedef char SpiceChar; + typedef double SpiceDouble; + typedef float SpiceFloat; + + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef int SpiceInt; + #else + typedef long SpiceInt; + #endif + + + typedef const char ConstSpiceChar; + typedef const double ConstSpiceDouble; + typedef const float ConstSpiceFloat; + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef const int ConstSpiceInt; + #else + typedef const long ConstSpiceInt; + #endif + + + /* + More basic data types. These give mnemonics for some other data + types in C that are not used in Fortran written by NAIF or + supported by ANSI Fortran 77. These are for use in C functions + but should not be passed to any C SPICE wrappers, ``*_c.c'' + since they are not Fortran compatible. + */ + typedef long SpiceLong; + typedef short SpiceShort; + + /* + Unsigned data types + */ + typedef unsigned char SpiceUChar; + typedef unsigned int SpiceUInt; + typedef unsigned long SpiceULong; + typedef unsigned short SpiceUShort; + + /* + Signed data types + */ + typedef signed char SpiceSChar; + + /* + Other basic types + */ + typedef int SpiceBoolean; + typedef const int ConstSpiceBoolean; + + #define SPICETRUE 1 + #define SPICEFALSE 0 + + + enum _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 }; + + typedef enum _Spicestatus SpiceStatus; + + + enum _SpiceDataType { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3, + SPICE_BOOL = 4 }; + + + typedef enum _SpiceDataType SpiceDataType; + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZfc.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZfc.h new file mode 100644 index 000000000..a6a99897a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZfc.h @@ -0,0 +1,16163 @@ +/* + +-Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes ) + +-Abstract + + Define prototypes for functions produced by converting Fortran + SPICELIB routines to C using f2c. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.1.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 7.0.0, 10-MAR-2014 (BVS) + + Reformatted version lines. + + Now this header conditionally includes SpiceUsr.h. + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Added typedefs for the PC-LINUX-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 5.0.0, 06-MAR-2005 (NJB) + + Added typedefs for pointers to functions. This change was + made to support CSPICE wrappers for geometry finder routines. + + Added typedefs for the SUN-SOLARIS-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 4.1.0, 24-MAY-2001 (WLT) + + Moved the #ifdef __cplusplus so that it appears after the + typedefs. This allows us to more easily wrap CSPICE in a + namespace for C++. + + -CSPICE Version 4.0.0, 09-FEB-1999 (NJB) + + Updated to accommodate the Alpha/Digital Unix platform. + Also updated to support inclusion in C++ code. + + -CSPICE Version 3.0.0, 02-NOV-1998 (NJB) + + Updated for SPICELIB version N0049. + + -CSPICE Version 2.0.0, 15-SEP-1997 (NJB) + + Changed variable name "typid" to "typid" in prototype + for zzfdat_. This was done to enable compilation under + Borland C++. + + -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG) + +-Index_Entries + + prototypes of f2c'd SPICELIB functions + +*/ + + +/* + Include SpiceUsr.h if it hasn't already been included + by the current compilation unit. +*/ +#ifndef HAVE_SPICE_USER + #include "SpiceUsr.h" +#endif + + + +#ifndef HAVE_SPICEF2C_H +#define HAVE_SPICEF2C_H + + +/* + Include Files: + + Many of the prototypes below use data types defined by f2c. We + copy here the f2c definitions that occur in prototypes of functions + produced by running f2c on Fortran SPICELIB routines. + + The reason we don't simply conditionally include f2c.h itself here + is that f2c.h defines macros that conflict with stdlib.h on some + systems. It's simpler to just replicate the few typedefs we need. +*/ + +#if ( defined( CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined( CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined( CSPICE_PC_LINUX_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + #define VOID void + + typedef VOID H_f; + typedef int integer; + typedef double doublereal; + typedef int logical; + typedef int ftnlen; + + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#else + + #define VOID void + + typedef VOID H_f; + typedef long integer; + typedef double doublereal; + typedef long logical; + typedef long ftnlen; + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#endif + + +#ifdef __cplusplus + extern "C" { +#endif + + +/* + Function prototypes for functions created by f2c are listed below. + See the headers of the Fortran routines for descriptions of the + routines' interfaces. + + The functions listed below are those expected to be called by + C-SPICELIB wrappers. Prototypes are not currently provided for other + f2c'd functions. + +*/ + +/* +-Prototypes +*/ + +extern logical accept_(logical *ok); +extern logical allowd_(void); + +extern logical alltru_(logical *logcls, integer *n); + +extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndd_(doublereal *item, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndi_(integer *item, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); + +extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); +/*:ref: ident_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int azlcpo_(char *method, char *target, doublereal *et, char *abcorr, logical *azccw, logical *elplsz, doublereal *obspos, char *obsctr, char *obsref, doublereal *azlsta, doublereal *lt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recazl_ 14 6 7 12 12 7 7 7 */ +/*:ref: dazldr_ 14 6 7 7 7 12 12 7 */ + +extern int azlrec_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern doublereal b1900_(void); + +extern doublereal b1950_(void); + +extern logical badkpv_(char *caller, char *name__, char *comp, integer *size, integer *divby, char *type__, ftnlen caller_len, ftnlen name_len, ftnlen comp_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical bedec_(char *string, ftnlen string_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical beint_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical benum_(char *string, ftnlen string_len); +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: bedec_ 12 2 13 124 */ +/*:ref: beint_ 12 2 13 124 */ + +extern logical beuns_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int bltfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ + +extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodc2s_(integer *code, char *name__, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int boddef_(char *name__, integer *code, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzboddef_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ + +extern logical bodfnd_(integer *body, char *item, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: rtpool_ 14 5 13 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); + +extern integer brckti_(integer *number, integer *end1, integer *end2); + +extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); + +extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); + +extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer bsrchi_(integer *value, integer *ndim, integer *array); + +extern integer cardc_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardd_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardi_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer chbase_(void); + +extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); + +extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); + +extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); + +extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); +extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); +extern int irfnum_(char *name__, integer *index, ftnlen name_len); +extern int irfnam_(integer *index, char *name__, ftnlen name_len); +extern int irfdef_(integer *index); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ + +extern int ckbsr_(char *fname, integer *handle, integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *descr, char *segid, logical *found, ftnlen fname_len, ftnlen segid_len); +extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); +extern int ckupf_(integer *handle); +extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); +extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); +extern int ckhave_(logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ + +extern int ckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckcov_(char *ckfnm, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ckfnm_len, ftnlen level_len, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mtxm_ 14 3 7 7 7 */ +/*:ref: raxisa_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: qdq2av_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: rav2xf_ 14 3 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: xf2rav_ 14 3 7 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr02_ 14 3 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknm06_(integer *handle, doublereal *descr, integer *nmini); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ + +extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckobj_(char *ckfnm, integer *ids, ftnlen ckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke01_ 14 5 12 7 7 7 7 */ +/*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ +/*:ref: cke02_ 14 5 12 7 7 7 7 */ +/*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke03_ 14 5 12 7 7 7 7 */ +/*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke04_ 14 5 12 7 7 7 7 */ +/*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke06_ 14 5 12 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstcld_ 4 3 7 4 7 */ + +extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ + +extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: touchl_ 12 1 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int ckw01_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw02_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, char *segid, integer *nrec, doublereal *start, doublereal *stop, doublereal *quats, doublereal *avvs, doublereal *rates, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw03_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzck4i2d_ 14 4 4 4 7 7 */ +/*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ + +extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ + +extern int ckw04e_(integer *handle, doublereal *endtim); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrs_ 14 1 7 */ + +extern int ckw05_(integer *handle, integer *subtyp, integer *degree, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *n, doublereal *sclkdp, doublereal *packts, doublereal *rate, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: even_ 12 1 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int clearc_(integer *ndim, char *array, ftnlen array_len); + +extern int cleard_(integer *ndim, doublereal *array); + +extern int cleari_(integer *ndim, integer *array); + +extern doublereal clight_(void); + +extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); + +extern int conics_(doublereal *elts, doublereal *et, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ + +extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int copyd_(doublereal *cell, doublereal *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyi_(integer *cell, integer *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ + +extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyllat_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int cylrec_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *rectan); + +extern int cylsph_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *slon); + +extern doublereal dacosh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal dacosn_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ + +extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ +/*:ref: dafarr_ 14 2 4 4 */ + +extern int dafah_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, integer *unit, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dafonw_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dafcls_(integer *handle); +extern int dafhsf_(integer *handle, integer *nd, integer *ni); +extern int dafhlu_(integer *handle, integer *unit); +extern int dafluh_(integer *unit, integer *handle); +extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); +extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dafhof_(integer *fhset); +extern int dafsih_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); +extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); +extern int dafada_(doublereal *data, integer *n); +extern int dafena_(void); +extern int dafcad_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafwda_ 14 4 4 4 4 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ + +extern int dafarr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ + +extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ + +extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); +extern int dafbfs_(integer *handle); +extern int daffna_(logical *found); +extern int dafbbs_(integer *handle); +extern int daffpa_(logical *found); +extern int dafgs_(doublereal *sum); +extern int dafgn_(char *name__, ftnlen name_len); +extern int dafgh_(integer *handle); +extern int dafrs_(doublereal *sum); +extern int dafrn_(char *name__, ftnlen name_len); +extern int dafws_(doublereal *sum); +extern int dafcs_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ + +extern int dafgda_(integer *handle, integer *baddr, integer *eaddr, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); +extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int dafra_(integer *handle, integer *iorder, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isordv_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafws_ 14 1 7 */ +/*:ref: dafrn_ 14 2 13 124 */ + +extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ + +extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dafrrr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); +extern int dafarw_(integer *addr__, integer *recno, integer *wordno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); +extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); +extern int dafnrr_(integer *reads, integer *reqs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: minai_ 14 4 4 4 4 4 */ +/*:ref: zzdafgdr_ 14 4 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafena_ 14 0 */ + +extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ + +extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasacr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: readla_ 14 6 4 4 4 13 12 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ +/*:ref: dasac_ 14 4 4 4 13 124 */ + +extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: daswrc_ 14 4 4 4 13 124 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadd_(integer *handle, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: daswrd_ 14 3 4 4 7 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadi_(integer *handle, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: wrencc_ 14 4 4 4 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dascls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dashof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dassdr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dascud_(integer *handle, integer *type__, integer *nwords); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ + +extern int dasdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasrcr_ 14 2 4 4 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ + +extern int dasecu_(integer *handle, integer *comlun, logical *comnts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasec_ 14 6 4 4 4 13 12 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ + +extern int dasfm_(char *fname, char *ftype, char *ifname, integer *handle, integer *unit, integer *free, integer *lastla, integer *lastrc, integer *lastwd, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dasops_(integer *handle); +extern int dasllc_(integer *handle); +extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dashlu_(integer *handle, integer *unit); +extern int dasluh_(integer *unit, integer *handle); +extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); +extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dashof_(integer *fhset); +extern int dassih_(integer *handle, char *access, ftnlen access_len); +extern int dasham_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern doublereal dasine_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrcr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ + +extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrd_ 14 5 4 4 4 4 7 */ + +extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrwr_(integer *handle, integer *recno, char *recc, doublereal *recd, integer *reci, integer *first, integer *last, doublereal *datad, integer *datai, char *datac, ftnlen recc_len, ftnlen datac_len); +extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswrd_(integer *handle, integer *recno, doublereal *recd); +extern int daswri_(integer *handle, integer *recno, integer *reci); +extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); +extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswbr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzdasgrd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int dassdr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencc_ 14 4 4 4 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ + +extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ + +extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ + +extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern doublereal datanh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dazldr_(doublereal *x, doublereal *y, doublereal *z__, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ + +extern doublereal dcbrt_(doublereal *x); + +extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int delfil_(char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: getlun_ 14 1 4 */ + +extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern doublereal det_(doublereal *m1); + +extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern doublereal dhfa_(doublereal *state, doublereal *bodyr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rquad_ 14 5 7 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ + +extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int diffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabbs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabfs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabns_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int dlaens_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlafns_(integer *handle, integer *dladsc, integer *nxtdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlafps_(integer *handle, integer *dladsc, integer *prvdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2); + +extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdnpt_ 14 8 7 7 7 7 7 7 7 12 */ + +extern int dp2hx_(doublereal *number, char *hxstr, integer *hxssiz, ftnlen hxstr_len); +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ + +extern doublereal dpr_(void); + +extern int dpspce_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ + +extern int drdazl_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ + +extern int drdcyl_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *jacobi); + +extern int drdgeo_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int drdlat_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *jacobi); + +extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ + +extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *jacobi); + +extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskcls_(integer *handle, logical *optmiz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int dskobj_(char *dskfnm, integer *bodids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ + +extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dsksrf_(char *dskfnm, integer *bodyid, integer *srfids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dsktol_(integer *keywrd, doublereal *dpval); +extern int dskgtl_(integer *keywrd, doublereal *dpval); +extern int dskstl_(integer *keywrd, doublereal *dpval); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: return_ 12 0 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ + +extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dlabns_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dlaens_ 14 1 4 */ + +extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ +/*:ref: zztogrid_ 14 4 7 7 7 7 */ +/*:ref: xdda_ 14 6 7 7 4 4 4 4 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: insang_ 14 6 7 7 7 7 12 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ + +extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */ + +extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ + +extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dvcrss_ 14 3 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ + +extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern doublereal dvdot_(doublereal *s1, doublereal *s2); + +extern int dvhat_(doublereal *s1, doublereal *sout); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern doublereal dvnorm_(doublereal *state); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern doublereal dvsep_(doublereal *s1, doublereal *s2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzdiv_ 7 2 7 7 */ + +extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep); +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */ + +extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int ekaclc_(integer *handle, integer *segno, char *column, char *cvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ +/*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ + +extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ +/*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ +/*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ + +extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ + +extern int ekappr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: ekinsr_ 14 3 4 4 4 */ + +extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxdfid_ 14 1 4 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekpdec_ 14 3 13 4 124 */ +/*:ref: zzekstyp_ 4 2 4 4 */ +/*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ +/*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ + +extern int ekcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekdelr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekde01_ 14 4 4 4 4 4 */ +/*:ref: zzekde02_ 14 4 4 4 4 4 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekff01_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ + +extern int ekifld_(integer *handle, char *tabnam, integer *ncols, integer *nrows, char *cnames, char *decls, integer *segno, integer *rcptrs, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekif01_ 14 3 4 4 4 */ +/*:ref: zzekif02_ 14 2 4 4 */ + +extern int ekinsr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ + +extern integer eknseg_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrsz_ 4 2 4 4 */ + +extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekops_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopw_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekpsel_(char *query, integer *n, integer *xbegs, integer *xends, char *xtypes, char *xclass, char *tabs, char *cols, logical *error, char *errmsg, ftnlen query_len, ftnlen xtypes_len, ftnlen xclass_len, ftnlen tabs_len, ftnlen cols_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int ekqmgr_(integer *cindex, integer *elment, char *eqryc, doublereal *eqryd, integer *eqryi, char *fname, integer *row, integer *selidx, char *column, integer *handle, integer *n, char *table, integer *attdsc, integer *ccount, logical *found, integer *nelt, integer *nmrows, logical *semerr, char *errmsg, char *cdata, doublereal *ddata, integer *idata, logical *null, ftnlen eqryc_len, ftnlen fname_len, ftnlen column_len, ftnlen table_len, ftnlen errmsg_len, ftnlen cdata_len); +extern int eklef_(char *fname, integer *handle, ftnlen fname_len); +extern int ekuef_(integer *handle); +extern int ekntab_(integer *n); +extern int ektnam_(integer *n, char *table, ftnlen table_len); +extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); +extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); +extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); +extern int eknelt_(integer *selidx, integer *row, integer *nelt); +extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); +extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); +extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: ekcls_ 14 1 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: appndc_ 14 4 13 13 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekqcnj_ 14 3 4 4 4 */ +/*:ref: zzekqcon_ 14 24 4 13 7 4 4 13 4 13 4 4 13 4 13 4 4 4 4 7 4 124 124 124 124 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekrplk_ 14 4 4 4 4 4 */ +/*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ +/*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekweed_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ + +extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int ekshdw_(integer *handle, logical *isshad); + +extern int ekssum_(integer *handle, integer *segno, char *tabnam, integer *nrows, integer *ncols, char *cnames, char *dtypes, integer *sizes, integer *strlns, logical *indexd, logical *nullok, ftnlen tabnam_len, ftnlen cnames_len, ftnlen dtypes_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ + +extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); +/*:ref: vequ_ 14 2 7 7 */ + +extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int enchar_(integer *number, char *string, ftnlen string_len); +extern int dechar_(char *string, integer *number, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbase_ 4 0 */ + +extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); +extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kepleq_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: putact_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: putdev_ 14 2 13 124 */ + +extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errhan_(char *marker, integer *handle, ftnlen marker_len); +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errint_(char *marker, integer *intnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: setprt_ 12 5 12 12 12 12 12 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int et2lst_(doublereal *et, integer *body, doublereal *lon, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int etcal_(doublereal *et, char *calstr, ftnlen calstr_len); +/*:ref: spd_ 7 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: lstlti_ 4 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ + +extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ + +extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern logical even_(integer *ival); + +extern int evsgp4_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ + +extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); + +extern int excess_(integer *number, char *struct__, ftnlen struct_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical exists_(char *fname, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); + +extern integer fetchc_(integer *nth, char *set, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchd_(integer *nth, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchi_(integer *nth, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern int filld_(doublereal *value, integer *ndim, doublereal *array); + +extern int filli_(integer *value, integer *ndim, integer *array); + +extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int fndlun_(integer *unit); +extern int reslun_(integer *unit); +extern int frelun_(integer *unit); + +extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); + +extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int frame_(doublereal *x, doublereal *y, doublereal *z__); +/*:ref: vhatip_ 14 1 7 */ + +extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); +extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); +extern int frinfo_(integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found); +extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); +extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int ccifrm_(integer *frclss, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frmget_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer frstnb_(char *string, ftnlen string_len); + +extern integer frstnp_(char *string, ftnlen string_len); + +extern integer frstpc_(char *string, ftnlen string_len); + +extern integer gcd_(integer *a, integer *b); + +extern int georec_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: zzckspk_ 14 3 4 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int getfvn_(char *inst, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen inst_len, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 7 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfov_ 14 9 7 4 13 13 7 4 7 124 124 */ + +extern int getlun_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical gfbail_(void); + +extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */ +/*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */ + +extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t); +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time); +extern int gfrepf_(void); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */ +/*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgfwkin_ 14 1 7 */ +/*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ + +extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfstep_(doublereal *time, doublereal *step); +extern int gfsstp_(doublereal *step); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int gfstol_(doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern doublereal halfpi_(void); + +extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ + +extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: intmin_ 4 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int ident_(doublereal *matrix); + +extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ + +extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */ +/*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pl2psv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ + +extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrti_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); + +extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int interd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int interi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int intord_(integer *n, char *string, ftnlen string_len); +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int intstr_(integer *number, char *string, ftnlen string_len); + +extern int inttxt_(integer *n, char *string, ftnlen string_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int invert_(doublereal *m, doublereal *mout); +/*:ref: det_ 7 1 7 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern int invort_(doublereal *m, doublereal *mit); +/*:ref: dpmax_ 7 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int invstm_(doublereal *mat, doublereal *invmat); +/*:ref: xposbl_ 14 5 7 4 4 4 7 */ + +extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ + +extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical isopen_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical isordv_(integer *array, integer *n); + +extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer isrchi_(integer *value, integer *ndim, integer *array); + +extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern doublereal j1900_(void); + +extern doublereal j1950_(void); + +extern doublereal j2000_(void); + +extern doublereal j2100_(void); + +extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); +extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal jyear_(void); + +extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *srcfil, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int furnsh_(char *file, ftnlen file_len); +extern int ktotal_(char *kind, integer *count, ftnlen kind_len); +extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kinfo_(char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kclear_(void); +extern int unload_(char *file, ftnlen file_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ +/*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dvpool_ 14 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: spkuef_ 14 1 4 */ +/*:ref: ckupf_ 14 1 4 */ +/*:ref: pckuof_ 14 1 4 */ +/*:ref: ekuef_ 14 1 4 */ +/*:ref: zzdskusf_ 14 1 4 */ +/*:ref: clpool_ 14 0 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kpsolv_ 7 1 7 */ + +extern int kplfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: validi_ 14 3 4 4 4 */ + +extern doublereal kpsolv_(doublereal *evec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *wordsq, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen wordsq_len, ftnlen substr_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ + +extern integer lastnb_(char *string, ftnlen string_len); + +extern integer lastpc_(char *string, ftnlen string_len); + +extern int latcyl_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int latrec_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rectan); + +extern int latsph_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *slon); +/*:ref: halfpi_ 7 0 */ + +extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int lnkan_(integer *pool, integer *new__); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkfsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkhl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkila_(integer *prev, integer *list, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkilb_(integer *list, integer *next, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkini_(integer *size, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnknfn_(integer *pool); + +extern integer lnknxt_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkprv_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnksiz_(integer *pool); + +extern integer lnktl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkxsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnksiz_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ + +extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ + +extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); + +extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); + +extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ + +extern integer lstcld_(doublereal *x, integer *n, doublereal *array); + +extern integer lstcli_(integer *x, integer *n, integer *array); + +extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstled_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlei_(integer *x, integer *n, integer *array); + +extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstltd_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlti_(integer *x, integer *n, integer *array); + +extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ + +extern integer ltrim_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4dec_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ + +extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); + +extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len); +extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +extern int lxdfid_(integer *idspec); +extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ + +extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); + +extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int m2q_(doublereal *r__, doublereal *q); +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ +/*:ref: nechr_ 12 4 13 13 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ + +extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); + +extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); + +extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); + +extern int mequ_(doublereal *m1, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); + +extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); + +extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); + +extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); + +extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); + +extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); + +extern int mtxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); + +extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1r2, integer *nc2, doublereal *mout); + +extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); + +extern int mxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); + +extern integer nblen_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); + +extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: reordd_ 14 3 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ + +extern logical notru_(logical *logcls, integer *n); + +extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); +/*:ref: dpmax_ 7 0 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: pi_ 7 0 */ + +extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: pjelpl_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: npelpt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjpi_ 14 5 7 7 7 7 12 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); + +extern int nvc2pl_(doublereal *normal, doublereal *konst, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfocst_ 14 2 7 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical odd_(integer *ival); + +extern logical opsgnd_(doublereal *x, doublereal *y); + +extern logical opsgni_(integer *x, integer *y); + +extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer ordd_(doublereal *item, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderd_(doublereal *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderi_(integer *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern integer ordi_(integer *item, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dacosh_ 7 1 7 */ + +extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: oscelt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int outmsg_(char *list, ftnlen list_len); +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: trcdep_ 14 1 4 */ +/*:ref: trcnam_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int partof_(doublereal *ma, doublereal *d__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int pck03e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); +extern int pckuof_(integer *handle); +extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int pckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckcov_(char *pckfnm, integer *idcode, doublereal *cover, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckfrm_(char *pckfnm, integer *ids, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pckr03_ 14 4 4 7 7 7 */ +/*:ref: pcke03_ 14 3 7 7 7 */ +/*:ref: pckr20_ 14 4 4 7 7 7 */ +/*:ref: pcke20_ 14 3 7 7 7 */ + +extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckw02_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); + +extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ + +extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern doublereal pi_(void); + +extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *konst); +/*:ref: vequ_ 14 2 7 7 */ + +extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ + +extern integer plnsns_(integer *bodid); +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts); + +extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npsgpt_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ + +extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: det_ 7 1 7 */ + +extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); + +extern int pool_(char *fname, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen fname_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int clpool_(void); +extern int ldpool_(char *fname, ftnlen fname_len); +extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int expool_(char *name__, logical *found, ftnlen name_len); +extern int wrpool_(integer *unit); +extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); +extern int cvpool_(char *agent, logical *update, ftnlen agent_len); +extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); +extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); +extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); +extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); +extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); +extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); +extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); +extern int dvpool_(char *name__, ftnlen name_len); +extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int dwpool_(char *agent, ftnlen agent_len); +extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int zzpctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: rdknew_ 14 2 13 124 */ +/*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lstltc_ 4 5 13 4 13 124 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: removc_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ + +extern doublereal prodad_(doublereal *array, integer *n); + +extern integer prodai_(integer *array, integer *n); + +extern int prompt_(char *dspmsg, char *buffer, ftnlen dspmsg_len, ftnlen buffer_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: stmp03_ 14 5 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prsint_(char *string, integer *intval, ftnlen string_len); +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prtenc_(integer *number, char *string, ftnlen string_len); +extern int prtdec_(char *string, integer *number, ftnlen string_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); +extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); +extern logical msgsel_(char *type__, ftnlen type_len); +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ + +extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int putact_(integer *action); +extern int getact_(integer *action); + +extern int putdev_(char *device, ftnlen device_len); +extern int getdev_(char *device, ftnlen device_len); + +extern int putlms_(char *msg, ftnlen msg_len); +extern int getlms_(char *msg, ftnlen msg_len); + +extern int putsms_(char *msg, ftnlen msg_len); +extern int getsms_(char *msg, ftnlen msg_len); + +extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int q2m_(doublereal *q, doublereal *r__); + +extern int qderiv_(integer *ndim, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ + +extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: qxq_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2q_ 14 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); +extern int rdknew_(char *kernel, ftnlen kernel_len); +extern int rdkdat_(char *line, logical *eof, ftnlen line_len); +extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzsetnnread_ 14 1 12 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ + +extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ + +extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +extern int cltext_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: getlun_ 14 1 4 */ + +extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ + +extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int recazl_(doublereal *rectan, logical *azccw, logical *elplsz, doublereal *range, doublereal *az, doublereal *el); +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *clon, doublereal *z__); +/*:ref: twopi_ 7 0 */ + +extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *slon); + +extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: rotget_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); + +extern int reordd_(integer *iorder, integer *ndim, doublereal *array); + +extern int reordi_(integer *iorder, integer *ndim, integer *array); + +extern int reordl_(integer *iorder, integer *ndim, logical *array); + +extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); + +extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmct_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repml_(char *in, char *marker, logical *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmot_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intord_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ + +extern int reset_(void); +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ + +extern logical return_(void); +/*:ref: failed_ 12 0 */ +/*:ref: getact_ 14 1 4 */ + +extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); +/*:ref: shellc_ 14 3 4 13 124 */ + +extern int rmdupd_(integer *nelt, doublereal *array); +/*:ref: shelld_ 14 2 4 7 */ + +extern int rmdupi_(integer *nelt, integer *array); +/*:ref: shelli_ 14 2 4 4 */ + +extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); + +extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); + +extern doublereal rpd_(void); + +extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern integer rtrim_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: diags2_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); + +extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical sameai_(integer *a1, integer *a2, integer *ndim); + +extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); +/*:ref: nechr_ 12 4 13 13 124 124 */ + +extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); + +extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, integer *npartn, doublereal *parbeg, doublereal *parend, integer *clktyp, ftnlen clkstr_len); +extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); +extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scty01_(integer *sc, integer *clktyp); +extern int scpr01_(integer *sc, integer *npartn, doublereal *parbeg, doublereal *parend); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzscup01_ 14 21 4 4 4 4 4 4 7 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); +extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); +/*:ref: isrchi_ 4 3 4 4 4 */ + +extern int scardc_(integer *card, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int scardd_(integer *card, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scardi_(integer *card, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: scfmt_ 14 4 4 7 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scec01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sce2t_ 14 3 4 7 7 */ +/*:ref: scdecd_ 14 4 4 7 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scet01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sctiks_ 14 4 4 13 7 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scfm01_ 14 4 4 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); +extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); +extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ + +extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ + +extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpr01_ 14 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scencd_ 14 4 4 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scte01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: sctk01_ 14 4 4 13 7 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern integer sctype_(integer *sc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scty01_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical seterr_(logical *status); +extern logical failed_(void); + +extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int setmsg_(char *msg, ftnlen msg_len); +/*:ref: allowd_ 12 0 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len); +extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); +extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); +extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwes_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafcad_ 14 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafena_ 14 0 */ + +extern int sharpr_(doublereal *rot); +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int shellc_(integer *ndim, char *array, ftnlen array_len); +/*:ref: swapc_ 14 4 13 13 124 124 */ + +extern int shelld_(integer *ndim, doublereal *array); +/*:ref: swapd_ 14 2 7 7 */ + +extern int shelli_(integer *ndim, integer *array); +/*:ref: swapi_ 14 2 4 4 */ + +extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ + +extern int sigerr_(char *msg, ftnlen msg_len); +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: freeze_ 14 0 */ +/*:ref: outmsg_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ +/*:ref: byebye_ 14 2 13 124 */ + +extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */ + +extern integer sizec_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sized_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sizei_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical smsgnd_(doublereal *x, doublereal *y); + +extern logical smsgni_(integer *x, integer *y); + +extern logical somfls_(logical *logcls, integer *n); + +extern logical somtru_(logical *logcls, integer *n); + +extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: spct2b_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ +/*:ref: countc_ 4 5 4 4 4 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafarr_ 14 2 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: spcb2t_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: spcec_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spcdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcec_(integer *handle, integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int spcopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); +extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dafopw_ 14 3 13 4 124 */ +/*:ref: spcac_ 14 6 4 4 13 13 124 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern doublereal spd_(void); + +extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slon, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *radius, doublereal *lon, doublereal *lat); +/*:ref: halfpi_ 7 0 */ + +extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *rectan); + +extern doublereal sphsd_(doublereal *radius, doublereal *lon1, doublereal *lat1, doublereal *lon2, doublereal *lat2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int spk14e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int spklef_(char *fname, integer *handle, ftnlen fname_len); +extern int spkuef_(integer *handle); +extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int spkcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcov_(char *spkfnm, integer *idcode, doublereal *cover, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spke01_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbint_ 14 6 7 4 7 7 7 7 */ + +extern int spke03_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ + +extern int spke05_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke08_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ + +extern int spke09_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke10_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzteme_ 14 3 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke12_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke13_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke14_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ + +extern int spke18_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spke19_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbigr_ 14 6 4 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int spke21_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int spkezr_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *starg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int spkobj_(char *spkfnm, integer *ids, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkopa_(char *file, integer *handle, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafopw_ 14 3 13 4 124 */ + +extern int spkopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int spkpos_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *ptarg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: spkr01_ 14 4 4 7 7 7 */ +/*:ref: spke01_ 14 3 7 7 7 */ +/*:ref: spkr02_ 14 4 4 7 7 7 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: spkr03_ 14 4 4 7 7 7 */ +/*:ref: spke03_ 14 3 7 7 7 */ +/*:ref: spkr05_ 14 4 4 7 7 7 */ +/*:ref: spke05_ 14 3 7 7 7 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: spke08_ 14 3 7 7 7 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: spke09_ 14 3 7 7 7 */ +/*:ref: spkr10_ 14 4 4 7 7 7 */ +/*:ref: spke10_ 14 3 7 7 7 */ +/*:ref: spkr12_ 14 4 4 7 7 7 */ +/*:ref: spke12_ 14 3 7 7 7 */ +/*:ref: spkr13_ 14 4 4 7 7 7 */ +/*:ref: spke13_ 14 3 7 7 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkr14_ 14 4 4 7 7 7 */ +/*:ref: spke14_ 14 3 7 7 7 */ +/*:ref: spkr15_ 14 4 4 7 7 7 */ +/*:ref: spke15_ 14 3 7 7 7 */ +/*:ref: spkr17_ 14 4 4 7 7 7 */ +/*:ref: spke17_ 14 3 7 7 7 */ +/*:ref: spkr18_ 14 4 4 7 7 7 */ +/*:ref: spke18_ 14 3 7 7 7 */ +/*:ref: spkr19_ 14 4 4 7 7 7 */ +/*:ref: spke19_ 14 3 7 7 7 */ +/*:ref: spkr20_ 14 4 4 7 7 7 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: spkr21_ 14 4 4 7 7 7 */ +/*:ref: spke21_ 14 3 7 7 7 */ + +extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: spk14a_ 14 4 4 4 7 7 */ +/*:ref: spk14e_ 14 1 4 */ + +extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: spks01_ 14 5 4 4 4 7 7 */ +/*:ref: dafena_ 14 0 */ +/*:ref: spks02_ 14 5 4 4 4 7 7 */ +/*:ref: spks03_ 14 5 4 4 4 7 7 */ +/*:ref: spks05_ 14 5 4 4 4 7 7 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: spks10_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks12_ 14 5 4 4 4 7 7 */ +/*:ref: spks13_ 14 5 4 4 4 7 7 */ +/*:ref: spks14_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks15_ 14 5 4 4 4 7 7 */ +/*:ref: spks17_ 14 5 4 4 4 7 7 */ +/*:ref: spks18_ 14 5 4 4 4 7 7 */ +/*:ref: spks19_ 14 5 4 4 4 7 7 */ +/*:ref: spks20_ 14 5 4 4 4 7 7 */ +/*:ref: spks21_ 14 5 4 4 4 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *baddrs, integer *eaddrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkw01_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw02_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw03_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw05_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *gm, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw09_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw10_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *consts, integer *n, doublereal *elems, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw13_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw15_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *tp, doublereal *pa, doublereal *p, doublereal *ecc, doublereal *j2flg, doublereal *pv, doublereal *gm, doublereal *j2, doublereal *radius, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw17_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw18_(integer *handle, integer *subtyp, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *packts, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int srfrec_(integer *body, doublereal *lon, doublereal *lat, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ + +extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfxpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *dist, doublereal *trgepc, doublereal *obspos, logical *found, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int ssizec_(integer *size, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int ssized_(integer *size, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ssizei_(integer *size, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: ekcls_ 14 1 4 */ + +extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ +/*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ +/*:ref: rpd_ 7 0 */ + +extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern int stdio_(char *name__, integer *unit, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stpool_(char *item, integer *nth, char *contin, char *nthstr, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen nthstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int str2et_(char *timstr, doublereal *et, ftnlen timstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: tchckd_ 14 2 13 124 */ +/*:ref: tparch_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ + +extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int subpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *alt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int subsol_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ + +extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern doublereal sumad_(doublereal *array, integer *n); + +extern integer sumai_(integer *array, integer *n); + +extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ + +extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: cyadip_ 14 5 4 13 4 7 124 */ + +extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: cyaiip_ 14 5 4 13 4 4 124 */ + +extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int swapd_(doublereal *a, doublereal *b); + +extern int swapi_(integer *a, integer *b); + +extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupc_(char *name__, char *copy, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetc_(char *name__, char *tabsym, integer *tabptr, char *tabval, integer *n, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthc_(char *name__, integer *nth, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shellc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelld_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopc_(char *name__, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syputc_(char *name__, char *values, integer *n, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen values_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ + +extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ + +extern int syrenc_(char *old, char *new__, char *tabsym, integer *tabptr, char *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapad_ 14 5 4 4 4 4 7 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syselc_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, char *tabval, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseld_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseli_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, integer *tabval, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnc_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnd_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrni_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tangpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, char *dref, doublereal *dvec, doublereal *tanpt, doublereal *alt, doublereal *range, doublereal *srfpt, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vrel_ 7 2 7 7 */ + +extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); +extern int tparch_(char *type__, ftnlen type_len); +extern int tchckd_(char *type__, ftnlen type_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int texpyr_(integer *year); +extern int tsetyr_(integer *year); + +extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ + +extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scanpr_ 14 5 4 13 4 4 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: pckmat_ 14 5 4 7 4 7 12 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int tkfram_(integer *frcode, doublereal *rot, integer *frame, logical *found); +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: locati_ 14 6 4 4 4 4 4 12 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: sharpr_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ + +extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int tostdo_(char *line, ftnlen line_len); +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: writln_ 14 3 13 4 124 */ + +extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); + +extern doublereal touchd_(doublereal *dp); + +extern integer touchi_(integer *int__); + +extern logical touchl_(logical *log__); + +extern int tparse_(char *string, doublereal *sp2000, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int tpartv_(char *string, doublereal *tvec, integer *ntvec, char *type__, char *modify, logical *mods, logical *yabbrv, logical *succes, char *pictur, char *error, ftnlen string_len, ftnlen type_len, ftnlen modify_len, ftnlen pictur_len, ftnlen error_len); +/*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ +/*:ref: zztokns_ 12 4 13 13 124 124 */ +/*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzrept_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ +/*:ref: zzist_ 12 2 13 124 */ +/*:ref: zznote_ 12 4 13 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ +/*:ref: zzgrep_ 12 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzispt_ 12 4 13 4 4 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern int tpictr_(char *sample, char *pictur, logical *ok, char *errmsg, ftnlen sample_len, ftnlen pictur_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ + +extern doublereal trace_(doublereal *matrix); + +extern doublereal traceg_(doublereal *matrix, integer *ndim); + +extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); +extern int chkin_(char *module, ftnlen module_len); +extern int chkout_(char *module, ftnlen module_len); +extern int trcdep_(integer *depth); +extern int trcmxd_(integer *depth); +extern int trcnam_(integer *index, char *name__, ftnlen name_len); +extern int qcktrc_(char *trace, ftnlen trace_len); +extern int freeze_(void); +extern int trcoff_(void); +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern doublereal trgsep_(doublereal *et, char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspin_ 14 20 13 13 13 13 13 13 13 13 4 4 7 4 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordi_ 14 3 4 4 4 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal twopi_(void); + +extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern doublereal tyear_(void); + +extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: uddf_ 14 4 200 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int udf_(doublereal *x, doublereal *value); + +extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int unioni_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: somfls_ 12 2 12 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: setc_ 12 6 13 13 13 124 124 124 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ + +extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); +/*:ref: vnorm_ 7 1 7 */ + +extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ + +extern int validd_(integer *size, integer *n, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int validi_(integer *size, integer *n, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupi_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern doublereal vdist_(doublereal *v1, doublereal *v2); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern doublereal vdot_(doublereal *v1, doublereal *v2); + +extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern int vequ_(doublereal *vin, doublereal *vout); + +extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vhat_(doublereal *v1, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vhatip_(doublereal *v); +/*:ref: vnorm_ 7 1 7 */ + +extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); + +extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vminus_(doublereal *v1, doublereal *vout); + +extern doublereal vnorm_(doublereal *v1); + +extern doublereal vnormg_(doublereal *v1, integer *ndim); + +extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); + +extern int vperp_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int vproj_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern doublereal vrel_(doublereal *v1, doublereal *v2); +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); + +extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); + +extern int vsclip_(doublereal *s, doublereal *v); + +extern doublereal vsep_(doublereal *v1, doublereal *v2); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: pi_ 7 0 */ + +extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: pi_ 7 0 */ + +extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); + +extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); + +extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); + +extern logical vzero_(doublereal *v); + +extern logical vzerog_(doublereal *v, integer *ndim); + +extern integer wdcnt_(char *string, ftnlen string_len); + +extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer wncard_(doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int wncond_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical wnelmd_(doublereal *point, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnextd_(char *side, doublereal *window, ftnlen side_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfild_(doublereal *smlgap, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfltd_(doublereal *smlint, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: wnincd_ 12 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *idxsml, integer *idxlon); +/*:ref: return_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnvald_(integer *size, integer *n, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dp2hx_ 14 4 7 13 4 124 */ + +extern int wrenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ + +extern int writln_(char *line, integer *unit, ftnlen line_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ +/*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); +extern int clline_(char *device, ftnlen device_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzingrd_ 12 2 4 4 */ + +extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); +extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: sphrec_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: dcyldr_ 14 4 7 7 7 7 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ +/*:ref: dsphdr_ 14 4 7 7 7 7 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int xpose_(doublereal *m1, doublereal *mout); + +extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); + +extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); + +extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzbodblt_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, char *device, char *reqst, ftnlen names_len, ftnlen nornam_len, ftnlen device_len, ftnlen reqst_len); +extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); +extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzidmap_ 14 3 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ + +extern integer zzbodbry_(integer *body); + +extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ + +extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: zzbctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len); +extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +extern int zzboddef_(char *name__, integer *code, ftnlen name_len); +extern int zzbodkik_(void); +extern int zzbodrst_(void); +extern int zzbctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat); +/*:ref: return_ 12 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); + +extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); + +extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errint_ 14 3 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */ + +extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int zzcputim_(doublereal *tvec); +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzctr_(integer *newctr, integer *oldctr, logical *update); +extern int zzctruin_(integer *oldctr); +extern int zzctrsin_(integer *oldctr); +extern int zzctrinc_(integer *oldctr); +extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ + +extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafgfr_(integer *handle, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, logical *found, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafnfr_(integer *lun, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ + +extern int zzdasgri_(integer *handle, integer *recno, integer *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdasnfr_(integer *lun, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern integer zzddhclu_(logical *utlck, integer *nut); + +extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhmnm_ 7 1 4 */ + +extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); +/*:ref: return_ 12 0 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: frelun_ 14 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); +/*:ref: return_ 12 0 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ + +extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); + +extern int zzddhman_(logical *lock, char *arch, char *fname, char *method, integer *handle, integer *unit, integer *intamh, integer *intarc, integer *intbff, logical *native, logical *found, logical *kill, ftnlen arch_len, ftnlen fname_len, ftnlen method_len); +extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); +extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); +extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); +extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); +extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); +extern int zzddhisn_(integer *handle, logical *native, logical *found); +extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); +extern int zzddhluh_(integer *unit, integer *handle, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzpltchk_ 14 1 12 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhclu_ 4 2 12 4 */ +/*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: frelun_ 14 1 4 */ + +extern doublereal zzddhmnm_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzddhnfc_(integer *natbff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhppf_(integer *unit, integer *arch, integer *bff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzftpchk_ 14 3 13 12 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzddhivf_ 14 4 13 4 12 124 */ + +extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); +/*:ref: intmax_ 4 0 */ + +extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reslun_ 14 1 4 */ + +extern doublereal zzdiv_(doublereal *numr, doublereal *denom); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdnpt_(doublereal *state, doublereal *nearp, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vtmv_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbbl_(integer *bodyid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len); +extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len); +extern int zzdskusf_(integer *handle); +extern int zzdskbss_(integer *bodyid); +extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found); +extern int zzdskchk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dlabbs_ 14 3 4 4 12 */ +/*:ref: dlafps_ 14 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzdsksbd_ 12 1 4 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ + +extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal); +extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found); +extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found); +extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */ + +extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksbd_(integer *bodyid); +extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et); +extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos); +extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: touchi_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern doublereal zzdsksgr_(doublereal *dskdsc); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksbd_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: prsint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynoac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, logical *found, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ + +extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ + +extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ + +extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekcix1_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekcix1_(integer *handle, integer *coldsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ + +extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); +/*:ref: zzekpgfr_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ + +extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ + +extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ + +extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: zzeksz04_ 4 4 4 4 4 4 */ +/*:ref: zzeksz05_ 4 4 4 4 4 4 */ +/*:ref: zzeksz06_ 4 4 4 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgei_(integer *handle, integer *addrss, integer *ival); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ + +extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrs_(integer *handle, integer *recptr, integer *status); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekif02_(integer *handle, integer *segno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ + +extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ + +extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjnxt_ 14 2 12 4 */ + +extern int zzekjsqz_(integer *jrsbas); +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec); +extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs); +extern int zzekjnxt_(logical *found, integer *rowvec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ordi_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ + +extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ + +extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ekntab_ 14 1 4 */ +/*:ref: ektnam_ 14 3 4 13 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnkhl_ 4 2 4 4 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len); +extern int zzekpgin_(integer *handle); +extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgfr_(integer *handle, integer *type__, integer *p); +extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgri_(integer *handle, integer *p, integer *pagei); +extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); +extern int zzekpgbs_(integer *type__, integer *p, integer *base); +extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); +extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: fillc_ 14 5 13 4 13 124 124 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ + +extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); + +extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len); +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); +extern int zzekstop_(integer *top); +extern int zzekspsh_(integer *n, integer *idata); +extern int zzekspop_(integer *n, integer *idata); +extern int zzeksdec_(integer *n); +extern int zzeksupd_(integer *beg, integer *end, integer *idata); +extern int zzeksrd_(integer *beg, integer *end, integer *idata); +extern int zzekscln_(void); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxcsid_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lx4num_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: frstpc_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len); +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzeksei_(integer *handle, integer *addrss, integer *ival); +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrs_(integer *handle, integer *recptr, integer *status); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern integer zzekstyp_(integer *ncols, integer *cdscrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ + +extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scn2id_ 14 4 13 4 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ + +extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); + +extern int zzektr13_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr31_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ + +extern integer zzektrbs_(integer *node); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ + +extern int zzektrdl_(integer *handle, integer *tree, integer *key); +/*:ref: zzektrud_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzektr31_ 14 2 4 4 */ + +extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ + +extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzektrfr_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); +/*:ref: zzektrui_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzektr13_ 14 2 4 4 */ + +extern int zzektrit_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern integer zzektrls_(integer *handle, integer *tree, integer *ival); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern integer zzektrnk_(integer *handle, integer *tree, integer *node); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzektrsz_(integer *handle, integer *tree); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ + +extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); +extern int zzekvset_(integer *njrs, integer *bases); +extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2); +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: sameai_ 12 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ + +extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ + +extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ + +extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: zzwind_ 4 4 7 4 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: inelpl_ 14 5 7 7 4 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzenut80_(doublereal *et, doublereal *nutxf); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzeprc76_(doublereal *et, doublereal *precxf); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ + +extern int zzeprcss_(doublereal *et, doublereal *precm); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ + +extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: zzhullax_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ + +extern int zzgetbff_(integer *bffid); + +extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ + +extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */ +/*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcog_(doublereal *et, doublereal *crdval); +extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd); +extern int zzgfcocg_(doublereal *et, doublereal *crdval); +extern int zzgfcosg_(doublereal *et, doublereal *crdval); +extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */ +/*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzrtnmat_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wncond_ 14 3 7 7 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */ + +extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfdigq_(doublereal *et, doublereal *dist); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */ + +extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvst_(doublereal *time, logical *vistat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzwind2d_ 4 3 4 7 7 */ + +extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfilgq_(doublereal *et, doublereal *angle); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ + +extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfcosg_ 14 2 7 7 */ +/*:ref: zzgfcocg_ 14 2 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzgfcog_ 14 2 7 7 */ +/*:ref: wnunid_ 14 3 7 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocst_(doublereal *time, logical *ocstat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: minad_ 14 4 7 4 7 4 */ +/*:ref: maxad_ 14 4 7 4 7 4 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzminrad_ 14 1 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ + +extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfpagq_(doublereal *et, doublereal *rvl); +extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern int zzgfref_(doublereal *refval); +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: zzgfref_ 14 1 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +extern int zzgftswk_(doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkin_(doublereal *incr); +extern int zzgfwkad_(doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkun_(integer *unit); +extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzcputim_ 14 1 7 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvnorm_ 7 1 7 */ + +extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfrrgq_(doublereal *et, doublereal *rvl); +extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */ + +extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len); +extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfspgq_(doublereal *et, doublereal *sep); +extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: dhfa_ 7 2 7 7 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgftreb_(integer *body, doublereal *axes); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgrav_(doublereal *grav); + +extern integer zzhashi_(integer *n, integer *m); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len); +extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len); +extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len); +extern int zzhscavl_(integer *collst, integer *avail); +extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len); +extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__); +extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat); +extern int zzhsiavl_(integer *collst, integer *avail); +extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ + +extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); + +extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ + +extern logical zzingrd_(integer *nvox, integer *voxel); + +extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside); +/*:ref: twopi_ 7 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ + +extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); + +extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodkik_ 14 0 */ + +extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ + +extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); + +extern doublereal zzmult_(doublereal *a, doublereal *b); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ + +extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp); +extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); +extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); +extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ + +extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax); +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ + +extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); +extern integer zzshsh_(integer *m); +extern integer zzhash_(char *word, ftnlen word_len); +extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); +/*:ref: intmax_ 4 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzshsh_ 4 1 4 */ +/*:ref: touchi_ 4 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzpltchk_(logical *ok); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzgetbff_ 14 1 4 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: srfscc_ 14 5 13 4 4 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlassg_ 12 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len); +/*:ref: posr_ 4 5 13 13 4 124 124 */ + +extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: sumai_ 4 2 4 4 */ + +extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ + +extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzrtnmat_(doublereal *v, doublereal *m); +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ + +extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rdklin_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); +/*:ref: ident_ 14 1 7 */ + +extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzryxsph_ 14 5 7 7 7 7 12 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: zzpdpltc_ 12 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ + +extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzscad01_(integer *sc, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *sclkat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ + +extern int zzscin01_(integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, integer *ifree, integer *prvsc); +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern logical zzsclk_(integer *ckid, integer *sclkid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: removi_ 14 2 4 4 */ + +extern int zzscup01_(integer *sc, integer *polctr, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *prvsc, integer *nfield, integer *delcde, integer *timsys, integer *ncoeff, integer *npart, integer *cofbas, integer *strbas, integer *endbas, integer *modbas, integer *offbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzscad01_ 14 10 4 4 4 4 4 7 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt); + +extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal zzsepq_(doublereal *et, integer *bod1, integer *bod2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: opsgnd_ 12 2 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state); +extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode); +extern int xxsgp4e_(doublereal *t, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */ +/*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: pi_ 7 0 */ + +extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist); +extern int zzsuelin_(integer *trgcde); +extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid); +extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found); +extern int zzmaxrad_(doublereal *maxrad); +extern int zzminrad_(doublereal *minrad); +extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ + +extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int zzspin_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, integer *bods, integer *frames, doublereal *mxrad, integer *obs, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ + +extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ + +extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */ + +extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len); +extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len); +extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len); +extern int zzsrftrk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr); +/*:ref: return_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int zzswfcln_(integer *hdfram, integer *frpool, integer *basbeg, integer *framat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzswffet_(integer *framid, integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *bascnt, logical *usetim, logical *binary, integer *clsses, integer *clsids, integer *baslst, doublereal *starts, doublereal *stops, integer *framat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzswfcln_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ + +extern int zzswfini_(integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *prvat, integer *prvfrm, logical *samfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzswfxfm_(integer *infrm, doublereal *et, integer *ndim, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzswfini_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzswffet_ 14 15 4 4 4 4 4 4 4 12 12 4 4 4 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: ident_ 14 1 7 */ + +extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */ +/*:ref: cardd_ 4 1 7 */ + +extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point); +extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis); +extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: pi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzteme_(doublereal *et, doublereal *j2tm, doublereal *tm2j); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len); +extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); +extern logical zzgrep_(char *string, ftnlen string_len); +extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); +extern logical zzist_(char *letter, ftnlen letter_len); +extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); +extern logical zzremt_(char *letter, ftnlen letter_len); +extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); +extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); +extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len); +extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ + +extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: ducrss_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer zzvox2id_(integer *vixyz, integer *nvox); + +extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len); +extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); +extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ + +extern int zzwahr_(doublereal *et, doublereal *dvnut); +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: spd_ 7 0 */ + +extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vsepg_ 7 3 7 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: twopi_ 7 0 */ + +extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ + + +#ifdef __cplusplus + } +#endif + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZim.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZim.h new file mode 100644 index 000000000..51aa182b8 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZim.h @@ -0,0 +1,1686 @@ +/* + +-Header_File SpiceZim.h ( CSPICE interface macros ) + +-Abstract + + Define interface macros to be called in place of CSPICE + user-interface-level functions. These macros are generally used + to compensate for compiler deficiencies. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines interface macros to be called in place of + CSPICE user-interface-level functions. Currently, the sole purpose + of these macros is to implement automatic type casting under some + environments that generate compile-time warnings without the casts. + The typical case that causes a problem is a function argument list + containing an input formal argument of type + + const double [3][3] + + Under some compilers, a non-const actual argument supplied in a call + to such a function will generate a spurious warning due to the + "mismatched" type. These macros generate type casts that will + make such compilers happy. + + Examples of compilers that generate warnings of this type are + + gcc version 2.2.2, hosted on NeXT workstations running + NeXTStep 3.3 + + Sun C compiler, version 4.2, running under Solaris. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 14.0.0, 19-DEC-2021 (NJB) + + Added macro for invstm_c. + + -CSPICE Version 13.0.0, 25-JAN-2017 (NJB) (EDW) + + Defined new abbreviation macro CONST_IVEC3. + Added macros for + + dskgd_c + dskmi2_c + dskb02_c + dskd02_c + dski02_c + dskn02_c + dskobj_c + dskp02_c + dskrb2_c + dsksrf_c + dskv02_c + dskxv_c + dskxsi_c + dskw02_c + latsrf_c + limbpt_c + oscltx_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + srfnrm_c + termpt_c + + -CSPICE Version 12.0.0, 03-DEC-2013 (NJB) (EDW) (SCK) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Added macros for + + eqncpv_c + fovray_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpnv_c + spkw20_c + + -CSPICE Version 11.0.0, 09-MAR-2009 (NJB) (EDW) + + Added macros for + + dvsep_c + gfevnt_c + gffove_c + gfrfov_c + gfsntc_c + surfpv_c + + + -CSPICE Version 10.0.0, 19-FEB-2008 (NJB) (EDW) + + Added macros for + + ilumin_c + spkaps_c + spkltc_c + + -CSPICE Version 9.0.0, 31-OCT-2005 (NJB) + + Added macros for + + qdq2av_c + qxq_c + + -CSPICE Version 8.0.0, 23-FEB-2004 (NJB) + + Added macro for + + dafrs_c + + + -CSPICE Version 7.0.0, 23-FEB-2004 (EDW) + + Added macro for + + srfxpt_c + + -CSPICE Version 6.0.1, 25-FEB-2003 (EDW) (NJB) + + Remove duplicate macro definitions for ekaced_c and + ekacei_c. Visual Studio errored out when compiling + code that included SpiceZim.h. + + Added macro for + + dasac_c + + -CSPICE Version 6.0.0, 17-AUG-2002 (NJB) + + Added macros for + + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + esrchc_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lstltc_c + lstltd_c + lstlti_c + lstlec_c + lstled_c + lstlei_c + orderc_c + orderd_c + orderi_c + reordc_c + reordd_c + reordi_c + reordl_c + spkw18_c + + -CSPICE Version 5.0.0, 28-AUG-2001 (NJB) + + Added macros for + + conics_c + illum_c + invort_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + -CSPICE Version 4.0.0, 22-MAR-2000 (NJB) + + Added macros for + + spkw12_c + spkw13_c + + -CSPICE Version 3.0.0, 27-AUG-1999 (NJB) (EDW) + + Fixed cut & paste error in macro nvp2pl_c. + + Added macros for + + axisar_c + cgv2el_c + dafps_c + dafus_c + diags2_c + dvdot_c + dvhat_c + edlimb_c + ekacli_c + ekacld_c + ekacli_c + eul2xf_c + el2cgv_c + getelm_c + inedpl_c + isrot_c + mequ_c + npedln_c + nplnpt_c + rav2xf_c + raxisa_c + saelgv_c + spk14a_c + spkapo_c + spkapp_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + sumai_c + trace_c + vadd_g + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vupack_c + vzerog_c + xf2eul_c + xf2rav_c + + -CSPICE Version 2.0.0, 07-MAR-1999 (NJB) + + Added macros for + + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + vprjp_c + vprjpi_c + + -CSPICE Version 1.0.0, 24-JAN-1999 (NJB) (EDW) + + +-Index_Entries + + interface macros for CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +/* +Include the type definitions prior to defining the interface macros. +The macros reference the types. +*/ +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +#ifndef HAVE_SPICEIFMACROS_H +#define HAVE_SPICEIFMACROS_H + + +/* +Macros used to abbreviate type casts: +*/ + + #define CONST_BOOL ( ConstSpiceBoolean * ) + #define CONST_DLADSC ( ConstSpiceDLADescr * ) + #define CONST_DSKDSC ( ConstSpiceDSKDescr * ) + #define CONST_ELLIPSE ( ConstSpiceEllipse * ) + #define CONST_IVEC ( ConstSpiceInt * ) + #define CONST_IVEC3 ( ConstSpiceInt (*) [3] ) + #define CONST_MAT ( ConstSpiceDouble (*) [3] ) + #define CONST_MAT2 ( ConstSpiceDouble (*) [2] ) + #define CONST_MAT6 ( ConstSpiceDouble (*) [6] ) + #define CONST_PLANE ( ConstSpicePlane * ) + #define CONST_VEC3 ( ConstSpiceDouble (*) [3] ) + #define CONST_VEC4 ( ConstSpiceDouble (*) [4] ) + #define CONST_STR ( ConstSpiceChar * ) + #define CONST_VEC ( ConstSpiceDouble * ) + #define CONST_VOID ( const void * ) + +/* +Macros that substitute for function calls: +*/ + + #define axisar_c( axis, angle, r ) \ + \ + ( axisar_c( CONST_VEC(axis), (angle), (r) ) ) + + + #define bschoc_c( value, ndim, lenvals, array, order ) \ + \ + ( bschoc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array), CONST_IVEC(order) ) ) + + + #define bschoi_c( value, ndim, array, order ) \ + \ + ( bschoi_c ( (value) , (ndim), \ + CONST_IVEC(array), CONST_IVEC(order) ) ) + + + #define bsrchc_c( value, ndim, lenvals, array ) \ + \ + ( bsrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define bsrchd_c( value, ndim, array ) \ + \ + ( bsrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define bsrchi_c( value, ndim, array ) \ + \ + ( bsrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define ckw01_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs ) \ + \ + ( ckw01_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs) ) ) + + + #define ckw02_c( handle, begtim, endtim, inst, ref, segid, \ + nrec, start, stop, quats, avvs, rates ) \ + \ + ( ckw02_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(start), CONST_VEC(stop), \ + CONST_VEC4(quats), CONST_VEC3(avvs), \ + CONST_VEC(rates) ) ) + + + #define ckw03_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs, nints, \ + starts ) \ + \ + ( ckw03_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs), (nints), \ + CONST_VEC(starts) ) ) + + + #define ckw05_c( handle, subtyp, degree, begtim, endtim, inst, \ + ref, avflag, segid, n, sclkdp, packts, \ + rate, nints, starts ) \ + \ + ( ckw05_c ( (handle), (subtyp), (degree), \ + (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (n), \ + CONST_VEC(sclkdp), CONST_VOID(packts), \ + (rate), (nints), \ + CONST_VEC(starts) ) ) + + + #define cgv2el_c( center, vec1, vec2, ellipse ) \ + \ + ( cgv2el_c( CONST_VEC(center), CONST_VEC(vec1), \ + CONST_VEC(vec2), (ellipse) ) ) + + + #define conics_c( elts, et, state ) \ + \ + ( conics_c( CONST_VEC(elts), (et), (state) ) ) + + + #define dafps_c( nd, ni, dc, ic, sum ) \ + \ + ( dafps_c ( (nd), (ni), CONST_VEC(dc), CONST_IVEC(ic), \ + (sum) ) ) + + + #define dafrs_c( sum ) \ + \ + ( dafrs_c ( CONST_VEC( sum ) ) ) + + + #define dafus_c( sum, nd, ni, dc, ic ) \ + \ + ( dafus_c ( CONST_VEC(sum), (nd), (ni), (dc), (ic) ) ) + + + #define dasac_c( handle, n, buflen, buffer ) \ + \ + ( dasac_c ( (handle), (n), (buflen), CONST_VOID(buffer) ) ) + + + #define det_c( m1 ) \ + \ + ( det_c ( CONST_MAT(m1) ) ) + + + #define diags2_c( symmat, diag, rotate ) \ + \ + ( diags2_c ( CONST_MAT2(symmat), (diag), (rotate) ) ) + + + #define dskb02_c( handle, dladsc, nv, np, nvxtot, \ + vtxbds, voxsiz, voxori, vgrext, cgscal, \ + vtxnpl, voxnpt, voxnpl ) \ + \ + ( dskb02_c( (handle), CONST_DLADSC(dladsc), (nv), (np), \ + (nvxtot), (vtxbds), (voxsiz), (voxori), \ + (vgrext), (cgscal), (vtxnpl), (voxnpt), \ + (voxnpl) ) ) + + + #define dskd02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dskd02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dski02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dski02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dskgd_c( handle, dladsc, dskdsc ) \ + \ + ( dskgd_c ( (handle), CONST_DLADSC(dladsc), (dskdsc) ) ) + + + #define dskmi2_c( nv, vrtces, np, plates, \ + finscl, corscl, worksz, voxpsz, voxlsz, \ + makvtl, spxisz, work, spaixd, spaixi ) \ + \ + ( dskmi2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (finscl), \ + (corscl), (worksz), (voxpsz), \ + (voxlsz), (makvtl), (spxisz), \ + (work), (spaixd), (spaixi) ) ) + + + #define dskn02_c( handle, dladsc, plid, normal ) \ + \ + ( dskn02_c ( (handle), CONST_DLADSC(dladsc), (plid), \ + (normal) ) ) + + + #define dskobj_c( dsk, bodids ) \ + \ + ( dskobj_c ( CONST_STR(dsk), (bodids) ) ) + + + #define dskp02_c( handle, dladsc, start, room, n, plates ) \ + \ + ( dskp02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (plates) ) ) + + + #define dskrb2_c( nv, vrtces, np, plates, \ + corsys, corpar, mncor3, mxcor3 ) \ + \ + ( dskrb2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (corsys), \ + (corpar), (mncor3), (mxcor3) ) ) + + + #define dsksrf_c( dsk, bodyid, srfids ) \ + \ + ( dsksrf_c ( CONST_STR(dsk), (bodyid), (srfids) ) ) + + + #define dskv02_c( handle, dladsc, start, room, n, vrtces ) \ + \ + ( dskv02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (vrtces) ) ) + + + #define dskw02_c( handle, center, surfce, dclass, \ + frame, corsys, corpar, mncor1, \ + mxcor1, mncor2, mxcor2, mncor3, \ + mxcor3, first, last, nv, \ + vrtces, np, plates, spaixd, spaixi ) \ + \ + ( dskw02_c ( (handle), (center), (surfce), (dclass), \ + CONST_STR(frame), (corsys), \ + CONST_VEC(corpar), (mncor1), (mxcor1), \ + (mncor2), (mxcor2), (mncor3), \ + (mxcor3), (first), (last), \ + (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates), \ + (spaixd), (spaixi) ) ) + + + #define dskxsi_c( pri, target, nsurf, srflst, et, \ + fixref, vertex, raydir, maxd, maxi, \ + xpt, handle, dladsc, dskdsc, dc, \ + ic, found ) \ + \ + ( dskxsi_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), CONST_VEC(vertex), \ + CONST_VEC(raydir), (maxd), (maxi), \ + (xpt), (handle), (dladsc),\ + (dskdsc), (dc), (ic), \ + (found) ) ) + + + #define dskxv_c( pri, target, nsurf, srflst, et, fixref, \ + nrays, vtxarr, dirarr, xptarr, fndarr ) \ + \ + ( dskxv_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), (nrays), \ + CONST_VEC3(vtxarr), CONST_VEC3(dirarr), \ + (xptarr), (fndarr) ) ) + + + #define dvdot_c( s1, s2 ) \ + \ + ( dvdot_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define dvhat_c( v1, v2 ) \ + \ + ( dvhat_c ( CONST_VEC(v1), (v2) ) ) + + + #define dvsep_c( s1, s2 ) \ + \ + ( dvsep_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define edlimb_c( a, b, c, viewpt, limb ) \ + \ + ( edlimb_c( (a), (b), (c), CONST_VEC(viewpt), (limb) ) ) + + + #define ekacec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekacec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + + #define ekaced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekaced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VEC(dvals), (isnull) ) ) + + + #define ekacei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekacei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_IVEC(ivals), (isnull) ) ) + + + #define ekaclc_c( handle, segno, column, vallen, cvals, entszs, \ + nlflgs, rcptrs, wkindx ) \ + \ + ( ekaclc_c( (handle), (segno), (column), (vallen), \ + CONST_VOID(cvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacld_c( handle, segno, column, dvals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacld_c( (handle), (segno), (column), \ + CONST_VEC(dvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacli_c( handle, segno, column, ivals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacli_c( (handle), (segno), (column), \ + CONST_IVEC(ivals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekbseg_c( handle, tabnam, ncols, cnmlen, cnames, declen, \ + decls, segno ) \ + \ + ( ekbseg_c( (handle), (tabnam), (ncols), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno) ) ) + + + #define ekifld_c( handle, tabnam, ncols, nrows, cnmlen, cnames, \ + declen, decls, segno, rcptrs ) \ + \ + ( ekifld_c( (handle), (tabnam), (ncols), (nrows), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno), (rcptrs) ) ) + + + #define ekucec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekucec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + #define ekuced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekuced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(dvals), (isnull) ) ) + + + #define ekucei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekucei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(ivals), (isnull) ) ) + + + #define el2cgv_c( ellipse, center, smajor, sminor ) \ + \ + ( el2cgv_c( CONST_ELLIPSE(ellipse), (center), \ + (smajor), (sminor) ) ) + + + #define eqncpv_c( et, epoch, eqel, rapol, decpol, state ) \ + \ + ( eqncpv_c ( (et), (epoch), CONST_VEC(eqel), (rapol), \ + (decpol), (state) ) ) + + + #define esrchc_c( value, ndim, lenvals, array ) \ + \ + ( esrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define eul2xf_c( eulang, axisa, axisb, axisc, xform ) \ + \ + ( eul2xf_c ( CONST_VEC(eulang), (axisa), (axisb), (axisc), \ + (xform) ) ) + + #define fovray_c( inst, raydir, rframe, abcorr, observer, \ + et, visible ) \ + \ + ( fovray_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (observer), (et), (visible) ) ) + + #define getelm_c( frstyr, lineln, lines, epoch, elems ) \ + \ + ( getelm_c ( (frstyr), (lineln), CONST_VOID(lines), \ + (epoch), (elems) ) ) + + + #define gfevnt_c( udstep, udrefn, gquant, qnpars, lenvals, \ + qpnams, qcpars, qdpars, qipars, qlpars, \ + op, refval, tol, adjust, rpt, \ + udrepi, udrepu, udrepf, nintvls, \ + bail, udbail, cnfine, result ) \ + \ + ( gfevnt_c( (udstep), (udrefn), (gquant), \ + (qnpars), (lenvals), CONST_VOID(qpnams),\ + CONST_VOID(qcpars), (qdpars), (qipars), \ + (qlpars), (op), (refval), \ + (tol), (adjust), (rpt), \ + (udrepi), (udrepu), (udrepf), \ + (nintvls), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gffove_c( inst, tshape, raydir, target, tframe, \ + abcorr, obsrvr, tol, udstep, udrefn, \ + rpt, udrepi, udrepu, udrepf, bail, \ + udbail, cnfine, result ) \ + \ + ( gffove_c( (inst), (tshape), CONST_VEC(raydir), \ + (target), (tframe), (abcorr), \ + (obsrvr), (tol), (udstep), \ + (udrefn), (rpt), (udrepi), \ + (udrepu), (udrepf), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gfrfov_c( inst, raydir, rframe, abcorr, obsrvr, \ + step, cnfine, result ) \ + \ + ( gfrfov_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (obsrvr), (step), \ + (cnfine), (result) ) ) + + + #define gfsntc_c( target, fixref, method, abcorr, obsrvr, \ + dref, dvec, crdsys, coord, relate, \ + refval, adjust, step, nintvls, cnfine, \ + result ) \ + \ + ( gfsntc_c( (target), (fixref), (method), \ + (abcorr), (obsrvr), (dref), \ + CONST_VEC(dvec), (crdsys), (coord), \ + (relate), (refval), (adjust), \ + (step), (nintvls), (cnfine), (result) ) ) + + + #define illum_c( target, et, abcorr, obsrvr, \ + spoint, phase, solar, emissn ) \ + \ + ( illum_c ( (target), (et), (abcorr), (obsrvr), \ + CONST_VEC(spoint), (phase), (solar), (emissn) ) ) + + + #define ilumin_c( method, target, et, fixref, \ + abcorr, obsrvr, spoint, trgepc, \ + srfvec, phase, solar, emissn ) \ + \ + ( ilumin_c ( (method), (target), (et), (fixref), \ + (abcorr), (obsrvr), CONST_VEC(spoint), (trgepc), \ + (srfvec), (phase), (solar), (emissn) ) ) + + + #define inedpl_c( a, b, c, plane, ellipse, found ) \ + \ + ( inedpl_c ( (a), (b), (c), \ + CONST_PLANE(plane), (ellipse), (found) ) ) + + + #define inrypl_c( vertex, dir, plane, nxpts, xpt ) \ + \ + ( inrypl_c ( CONST_VEC(vertex), CONST_VEC(dir), \ + CONST_PLANE(plane), (nxpts), (xpt) ) ) + + + #define invert_c( m1, m2 ) \ + \ + ( invert_c ( CONST_MAT(m1), (m2) ) ) + + + #define invort_c( m, mit ) \ + \ + ( invort_c ( CONST_MAT(m), (mit) ) ) + + + #define invstm_c( mat, invmat ) \ + \ + ( invstm_c ( CONST_MAT6(mat), (invmat) ) ) + + + #define isordv_c( array, n ) \ + \ + ( isordv_c ( CONST_IVEC(array), (n) ) ) + + + #define isrchc_c( value, ndim, lenvals, array ) \ + \ + ( isrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + #define isrchd_c( value, ndim, array ) \ + \ + ( isrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define isrchi_c( value, ndim, array ) \ + \ + ( isrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define isrot_c( m, ntol, dtol ) \ + \ + ( isrot_c ( CONST_MAT(m), (ntol), (dtol) ) ) + + + #define latsrf_c( method, target, et, fixref, \ + npts, lonlat, srfpts ) \ + \ + ( latsrf_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), CONST_MAT2(lonlat), \ + (srfpts) ) ) + + + #define limbpt_c( method, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( limbpt_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define lmpool_c( cvals, lenvals, n ) \ + \ + ( lmpool_c( CONST_VOID(cvals), (lenvals), (n) ) ) + + + #define lstltc_c( value, ndim, lenvals, array ) \ + \ + ( lstltc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstled_c( value, ndim, array ) \ + \ + ( lstled_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlei_c( value, ndim, array ) \ + \ + ( lstlei_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define lstlec_c( value, ndim, lenvals, array ) \ + \ + ( lstlec_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstltd_c( value, ndim, array ) \ + \ + ( lstltd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlti_c( value, ndim, array ) \ + \ + ( lstlti_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define m2eul_c( r, axis3, axis2, axis1, \ + angle3, angle2, angle1 ) \ + \ + ( m2eul_c ( CONST_MAT(r), (axis3), (axis2), (axis1), \ + (angle3), (angle2), (angle1) ) ) + + #define m2q_c( r, q ) \ + \ + ( m2q_c ( CONST_MAT(r), (q) ) ) + + + #define mequ_c( m1, m2 ) \ + \ + ( mequ_c ( CONST_MAT(m1), m2 ) ) + + + #define mequg_c( m1, nr, nc, mout ) \ + \ + ( mequg_c ( CONST_MAT(m1), (nr), (nc), mout ) ) + + + #define mtxm_c( m1, m2, mout ) \ + \ + ( mtxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mtxmg_c( m1, m2, ncol1, nr1r2, ncol2, mout ) \ + \ + ( mtxmg_c ( CONST_MAT(m1), CONST_MAT(m2), \ + (ncol1), (nr1r2), (ncol2), (mout) ) ) + + + #define mtxv_c( m1, vin, vout ) \ + \ + ( mtxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mtxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mtxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define mxm_c( m1, m2, mout ) \ + \ + ( mxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmg_c( m1, m2, row1, col1, col2, mout ) \ + \ + ( mxmg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (row1), (col1), (col2), (mout) ) ) + + + #define mxmt_c( m1, m2, mout ) \ + \ + ( mxmt_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmtg_c( m1, m2, nrow1, nc1c2, nrow2, mout ) \ + \ + ( mxmtg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (nrow1), (nc1c2), \ + (nrow2), (mout) ) ) + + + #define mxv_c( m1, vin, vout ) \ + \ + ( mxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define nearpt_c( positn, a, b, c, npoint, alt ) \ + \ + ( nearpt_c ( CONST_VEC(positn), (a), (b), (c), \ + (npoint), (alt) ) ) + + + #define npedln_c( a, b, c, linept, linedr, pnear, dist ) \ + \ + ( npedln_c ( (a), (b), (c), \ + CONST_VEC(linept), CONST_VEC(linedr), \ + (pnear), (dist) ) ) + + + #define nplnpt_c( linpt, lindir, point, pnear, dist ) \ + \ + ( nplnpt_c ( CONST_VEC(linpt), CONST_VEC(lindir), \ + CONST_VEC(point), (pnear), (dist ) ) ) + + + #define nvc2pl_c( normal, constant, plane ) \ + \ + ( nvc2pl_c ( CONST_VEC(normal), (constant), (plane) ) ) + + + #define nvp2pl_c( normal, point, plane ) \ + \ + ( nvp2pl_c( CONST_VEC(normal), CONST_VEC(point), (plane) ) ) + + + #define orderc_c( lenvals, array, ndim, iorder ) \ + \ + ( orderc_c ( (lenvals), CONST_VOID(array), (ndim), (iorder)) ) + + + #define orderd_c( array, ndim, iorder ) \ + \ + ( orderd_c ( CONST_VEC(array), (ndim), (iorder) ) ) + + + #define orderi_c( array, ndim, iorder ) \ + \ + ( orderi_c ( CONST_IVEC(array), (ndim), (iorder) ) ) + + + #define oscelt_c( state, et, mu, elts ) \ + \ + ( oscelt_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define oscltx_c( state, et, mu, elts ) \ + \ + ( oscltx_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define pcpool_c( name, n, lenvals, cvals ) \ + \ + ( pcpool_c ( (name), (n), (lenvals), CONST_VOID(cvals) ) ) + + + #define pdpool_c( name, n, dvals ) \ + \ + ( pdpool_c ( (name), (n), CONST_VEC(dvals) ) ) + + + #define pipool_c( name, n, ivals ) \ + \ + ( pipool_c ( (name), (n), CONST_IVEC(ivals) ) ) + + + #define pl2nvc_c( plane, normal, constant ) \ + \ + ( pl2nvc_c ( CONST_PLANE(plane), (normal), (constant) ) ) + + + #define pl2nvp_c( plane, normal, point ) \ + \ + ( pl2nvp_c ( CONST_PLANE(plane), (normal), (point) ) ) + + + #define pl2psv_c( plane, point, span1, span2 ) \ + \ + ( pl2psv_c( CONST_PLANE(plane), (point), (span1), (span2) ) ) + + + #define pltar_c( nv, vrtces, np, plates ) \ + \ + ( pltar_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define pltexp_c( iverts, delta, overts ) \ + \ + ( pltexp_c( CONST_VEC3(iverts), (delta), (overts) ) ) + + + #define pltnp_c( point, v1, v2, v3, pnear, dist ) \ + \ + ( pltnp_c( CONST_VEC(point), CONST_VEC(v1), CONST_VEC(v2), \ + CONST_VEC(v3), (pnear), (dist) ) ) + + + #define pltnrm_c( v1, v2, v3, normal ) \ + \ + ( pltnrm_c( CONST_VEC(v1), CONST_VEC(v2), CONST_VEC(v3), \ + (normal) ) ) + + + #define pltvol_c( nv, vrtces, np, plates ) \ + \ + ( pltvol_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define prop2b_c( gm, pvinit, dt, pvprop ) \ + \ + ( prop2b_c ( (gm), CONST_VEC(pvinit), (dt), (pvprop) ) ) + + + #define psv2pl_c( point, span1, span2, plane ) \ + \ + ( psv2pl_c ( CONST_VEC(point), CONST_VEC(span1), \ + CONST_VEC(span2), (plane) ) ) + + + #define qdq2av_c( q, dq, av ) \ + \ + ( qdq2av_c ( CONST_VEC(q), CONST_VEC(dq), (av) ) ) + + + #define q2m_c( q, r ) \ + \ + ( q2m_c ( CONST_VEC(q), (r) ) ) + + + #define qxq_c( q1, q2, qout ) \ + \ + ( qxq_c ( CONST_VEC(q1), CONST_VEC(q2), (qout) ) ) + + + #define rav2xf_c( rot, av, xform ) \ + \ + ( rav2xf_c ( CONST_MAT(rot), CONST_VEC(av), (xform) ) ) + + + #define raxisa_c( matrix, axis, angle ) \ + \ + ( raxisa_c ( CONST_MAT(matrix), (axis), (angle) ) ); + + + #define reccyl_c( rectan, r, lon, z ) \ + \ + ( reccyl_c ( CONST_VEC(rectan), (r), (lon), (z) ) ) + + + #define recgeo_c( rectan, re, f, lon, lat, alt ) \ + \ + ( recgeo_c ( CONST_VEC(rectan), (re), (f), \ + (lon), (lat), (alt) ) ) + + #define reclat_c( rectan, r, lon, lat ) \ + \ + ( reclat_c ( CONST_VEC(rectan), (r), (lon), (lat) ) ) + + + #define recrad_c( rectan, radius, ra, dec ) \ + \ + ( recrad_c ( CONST_VEC(rectan), (radius), (ra), (dec) ) ) + + + #define recsph_c( rectan, r, colat, lon ) \ + \ + ( recsph_c ( CONST_VEC(rectan), (r), (colat), (lon) ) ) + + + #define reordd_c( iorder, ndim, array ) \ + \ + ( reordd_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordi_c( iorder, ndim, array ) \ + \ + ( reordi_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordl_c( iorder, ndim, array ) \ + \ + ( reordl_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define rotmat_c( m1, angle, iaxis, mout ) \ + \ + ( rotmat_c ( CONST_MAT(m1), (angle), (iaxis), (mout) ) ) + + + #define rotvec_c( v1, angle, iaxis, vout ) \ + \ + ( rotvec_c ( CONST_VEC(v1), (angle), (iaxis), (vout) ) ) + + + #define saelgv_c( vec1, vec2, smajor, sminor ) \ + \ + ( saelgv_c ( CONST_VEC(vec1), CONST_VEC(vec2), \ + (smajor), (sminor) ) ) + + + #define spk14a_c( handle, ncsets, coeffs, epochs ) \ + \ + ( spk14a_c ( (handle), (ncsets), \ + CONST_VEC(coeffs), CONST_VEC(epochs) ) ) + + + #define spkapo_c( targ, et, ref, sobs, abcorr, ptarg, lt ) \ + \ + ( spkapo_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (ptarg), (lt) ) ) + + + #define spkapp_c( targ, et, ref, sobs, abcorr, starg, lt ) \ + \ + ( spkapp_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (starg), (lt) ) ) + + + #define spkaps_c( targ, et, ref, abcorr, sobs, \ + accobs, starg, lt, dlt ) \ + \ + ( spkaps_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), CONST_VEC(accobs), \ + (starg), (lt), (dlt) ) ) + + + #define spkcpo_c( target, et, outref, refloc, \ + abcorr, obspos, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcpo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obspos), (obsctr), \ + (obsref), (state), (lt) ) ) + + + #define spkcpt_c( trgpos, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcpt_c( CONST_VEC(trgpos), (trgctr), (trgref), \ + (et), (outref), (refloc), (abcorr), \ + (obsrvr), (state), (lt) ) ) + + + #define spkcvo_c( target, et, outref, refloc, \ + abcorr, obssta, obsepc, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcvo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obssta), (obsepc), \ + (obsctr), (obsref), (state), (lt) ) ) + + + #define spkcvt_c( trgsta, trgepc, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcvt_c( CONST_VEC(trgsta), (trgepc), (trgctr), \ + (trgref), (et), (outref), (refloc), \ + (abcorr), (obsrvr), (state), (lt) ) ) + + + #define spkltc_c( targ, et, ref, abcorr, sobs, starg, lt, dlt ) \ + \ + ( spkltc_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), (starg), (lt), (dlt) ) ) + + + #define spkpvn_c( handle, descr, et, ref, state, center ) \ + \ + ( spkpvn_c ( (handle), CONST_VEC(descr), (et), \ + (ref), (state), (center) ) ) + + #define spkuds_c( descr, body, center, frame, type, \ + first, last, begin, end ) \ + \ + ( spkuds_c ( CONST_VEC(descr), (body), (center), (frame), \ + (type), (first), (last), (begin), (end) ) ) + + + #define spkw02_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw02_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + #define spkw03_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw03_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + + #define spkw05_c( handle, body, center, frame, first, last, \ + segid, gm, n, states, epochs ) \ + \ + ( spkw05_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (gm), \ + (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw08_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch1, step ) \ + \ + ( spkw08_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch1), \ + (step) ) ) + + + #define spkw09_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw09_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw10_c( handle, body, center, frame, first, last, \ + segid, consts, n, elems, epochs ) \ + \ + ( spkw10_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), CONST_VEC(consts), \ + (n), CONST_VEC(elems), CONST_VEC(epochs)) ) + + + #define spkw12_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch0, step ) \ + \ + ( spkw12_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch0), \ + (step) ) ) + + + #define spkw13_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw13_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + + + + #define spkw15_c( handle, body, center, frame, first, last, \ + segid, epoch, tp, pa, p, ecc, \ + j2flg, pv, gm, j2, radius ) \ + \ + ( spkw15_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(tp), CONST_VEC(pa), \ + (p), (ecc), (j2flg), CONST_VEC(pv), \ + (gm), (j2), (radius) ) ) + + + #define spkw17_c( handle, body, center, frame, first, last, \ + segid, epoch, eqel, rapol, decpol ) \ + \ + ( spkw17_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(eqel), (rapol), (decpol) ) ) + + + + #define spkw18_c( handle, subtyp, body, center, frame, first, \ + last, segid, degree, n, packts, epochs ) \ + \ + ( spkw18_c ( (handle), (subtyp), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_VOID(packts), CONST_VEC(epochs) ) ) + + + #define spkw20_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, dscale, \ + tscale, initjd, initfr ) \ + \ + ( spkw20_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (dscale), \ + (tscale), (initjd), (initfr) ) ) + + + + #define srfxpt_c( method, target, et, abcorr, obsrvr, dref, \ + dvec, spoint, dist, trgepc, obspos, found ) \ + \ + ( srfxpt_c ( (method), (target), (et), (abcorr), (obsrvr), \ + (dref), CONST_VEC(dvec), (spoint), (dist), \ + (trgepc), (obspos), (found) ) ) + + + #define srfnrm_c( method, target, et, fixref, \ + npts, srfpts, normls ) \ + \ + ( srfnrm_c ( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), \ + CONST_VEC3(srfpts), (normls) ) ) + + + #define stelab_c( pobj, vobj, appobj ) \ + \ + ( stelab_c ( CONST_VEC(pobj), CONST_VEC(vobj), (appobj) ) ) + + + #define sumad_c( array, n ) \ + \ + ( sumad_c ( CONST_VEC(array), (n) ) ) + + + #define sumai_c( array, n ) \ + \ + ( sumai_c ( CONST_IVEC(array), (n) ) ) + + + #define surfnm_c( a, b, c, point, normal ) \ + \ + ( surfnm_c ( (a), (b), (c), CONST_VEC(point), (normal) ) ) + + + #define surfpt_c( positn, u, a, b, c, point, found ) \ + \ + ( surfpt_c ( CONST_VEC(positn), CONST_VEC(u), \ + (a), (b), (c), \ + (point), (found) ) ) + + + #define surfpv_c( stvrtx, stdir, a, b, c, stx, found ) \ + \ + ( surfpv_c ( CONST_VEC(stvrtx), CONST_VEC(stdir), \ + (a), (b), (c), \ + (stx), (found) ) ) + + + #define swpool_c( agent, nnames, lenvals, names ) \ + \ + ( swpool_c( CONST_STR(agent), (nnames), \ + (lenvals), CONST_VOID(names) ) ) + + + #define termpt_c( method, ilusrc, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( termpt_c( CONST_STR(method), CONST_STR(ilusrc), \ + CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define trace_c( m1 ) \ + \ + ( trace_c ( CONST_MAT(m1) ) ) + + + #define twovec_c( axdef, indexa, plndef, indexp, mout ) \ + \ + ( twovec_c ( CONST_VEC(axdef), (indexa), \ + CONST_VEC(plndef), (indexp), (mout) ) ) + + + #define ucrss_c( v1, v2, vout ) \ + \ + ( ucrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define unorm_c( v1, vout, vmag ) \ + \ + ( unorm_c ( CONST_VEC(v1), (vout), (vmag) ) ) + + + #define unormg_c( v1, ndim, vout, vmag ) \ + \ + ( unormg_c ( CONST_VEC(v1), (ndim), (vout), (vmag) ) ) + + + #define vadd_c( v1, v2, vout ) \ + \ + ( vadd_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vaddg_c( v1, v2, ndim,vout ) \ + \ + ( vaddg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim), (vout) ) ) + + + #define vcrss_c( v1, v2, vout ) \ + \ + ( vcrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vdist_c( v1, v2 ) \ + \ + ( vdist_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdistg_c( v1, v2, ndim ) \ + \ + ( vdistg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vdot_c( v1, v2 ) \ + \ + ( vdot_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdotg_c( v1, v2, ndim ) \ + \ + ( vdotg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vequ_c( vin, vout ) \ + \ + ( vequ_c ( CONST_VEC(vin), (vout) ) ) + + + #define vequg_c( vin, ndim, vout ) \ + \ + ( vequg_c ( CONST_VEC(vin), (ndim), (vout) ) ) + + + #define vhat_c( v1, vout ) \ + \ + ( vhat_c ( CONST_VEC(v1), (vout) ) ) + + + #define vhatg_c( v1, ndim, vout ) \ + \ + ( vhatg_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vlcom3_c( a, v1, b, v2, c, v3, sum ) \ + \ + ( vlcom3_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), \ + (c), CONST_VEC(v3), (sum) ) ) + + + #define vlcom_c( a, v1, b, v2, sum ) \ + \ + ( vlcom_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vlcomg_c( n, a, v1, b, v2, sum ) \ + \ + ( vlcomg_c ( (n), (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vminug_c( v1, ndim, vout ) \ + \ + ( vminug_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vminus_c( v1, vout ) \ + \ + ( vminus_c ( CONST_VEC(v1), (vout) ) ) + + + #define vnorm_c( v1 ) \ + \ + ( vnorm_c ( CONST_VEC(v1) ) ) + + + #define vnormg_c( v1, ndim ) \ + \ + ( vnormg_c ( CONST_VEC(v1), (ndim) ) ) + + + #define vperp_c( a, b, p ) \ + \ + ( vperp_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vprjp_c( vin, plane, vout ) \ + \ + ( vprjp_c ( CONST_VEC(vin), CONST_PLANE(plane), (vout) ) ) + + + #define vprjpi_c( vin, projpl, invpl, vout, found ) \ + \ + ( vprjpi_c( CONST_VEC(vin), CONST_PLANE(projpl), \ + CONST_PLANE(invpl), (vout), (found) ) ) + + + #define vproj_c( a, b, p ) \ + \ + ( vproj_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vrel_c( v1, v2 ) \ + \ + ( vrel_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vrelg_c( v1, v2, ndim ) \ + \ + ( vrelg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vrotv_c( v, axis, theta, r ) \ + \ + ( vrotv_c ( CONST_VEC(v), CONST_VEC(axis), (theta), (r) ) ) + + + #define vscl_c( s, v1, vout ) \ + \ + ( vscl_c ( (s), CONST_VEC(v1), (vout) ) ) + + + #define vsclg_c( s, v1, ndim, vout ) \ + \ + ( vsclg_c ( (s), CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vsep_c( v1, v2 ) \ + \ + ( vsep_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vsepg_c( v1, v2, ndim) \ + \ + ( vsepg_c ( CONST_VEC(v1), CONST_VEC(v2), ndim ) ) + + + #define vsub_c( v1, v2, vout ) \ + \ + ( vsub_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vsubg_c( v1, v2, ndim, vout ) \ + \ + ( vsubg_c ( CONST_VEC(v1), CONST_VEC(v2), \ + (ndim), (vout) ) ) + + #define vtmv_c( v1, mat, v2 ) \ + \ + ( vtmv_c ( CONST_VEC(v1), CONST_MAT(mat), CONST_VEC(v2) ) ) + + + #define vtmvg_c( v1, mat, v2, nrow, ncol ) \ + \ + ( vtmvg_c ( CONST_VOID(v1), CONST_VOID(mat), CONST_VOID(v2), \ + (nrow), (ncol) ) ) + + + #define vupack_c( v, x, y, z ) \ + \ + ( vupack_c ( CONST_VEC(v), (x), (y), (z) ) ) + + + #define vzero_c( v1 ) \ + \ + ( vzero_c ( CONST_VEC(v1) ) ) + + + #define vzerog_c( v1, ndim ) \ + \ + ( vzerog_c ( CONST_VEC(v1), (ndim) ) ) + + + #define xf2eul_c( xform, axisa, axisb, axisc, eulang, unique ) \ + \ + ( xf2eul_c( CONST_MAT6(xform), (axisa), (axisb), (axisc), \ + (eulang), (unique) ) ) + + + #define xf2rav_c( xform, rot, av ) \ + \ + ( xf2rav_c( CONST_MAT6(xform), (rot), (av) ) ) + + + #define xpose6_c( m1, mout ) \ + \ + ( xpose6_c ( CONST_MAT6(m1), (mout) ) ) + + + #define xpose_c( m1, mout ) \ + \ + ( xpose_c ( CONST_MAT(m1), (mout) ) ) + + + #define xposeg_c( matrix, nrow, ncol, mout ) \ + \ + ( xposeg_c ( CONST_VOID(matrix), (nrow), (ncol), (mout) ) ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZmc.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZmc.h new file mode 100644 index 000000000..5e0c83435 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZmc.h @@ -0,0 +1,958 @@ +/* + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +*/ + +/* + CSPICE private macro file. + +-Particulars + + Current list of macros (spelling counts) + + BLANK + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + CHKFSTR + CHKFSTR_VAL + CHKOSTR + CHKOSTR_VAL + CHKPTR + F2C_MAP_CELL + Index values + MOVED + MOVEI + MaxAbs + MaxVal + MinAbs + MinVal + SpiceError + TolOrFail + +-Restrictions + + This is a private macro file for use within CSPICE. + Do not use or alter any entry. Or else! + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 6.0.0, 21-FEB-2021 (NJB) + + Deleted macros for physical constants and dates. Deleted macros `Even` + and `Odd`. + + -CSPICE Version 5.0.0, 07-FEB-2017 (NJB) + + Updated MaxAbs and MinAbs macros to cast their input arguments + to type double. + + -CSPICE Version 4.3.0, 18-SEP-2013 (NJB) + + Bug fix: missing comma was added to argument list + in body of macro CELLTYPECHK3_VAL. + + -CSPICE Version 4.2.0, 16-FEB-2005 (NJB) + + Bug fix: in the macro C2F_MAP_CELL, error checking has been + added after the sequence of calls to ssizec_ and scardc_. + If either of these routines signals an error, the dynamically + allocated memory for the "Fortran cell" is freed. + + -CSPICE Version 4.1.0, 06-DEC-2002 (NJB) + + Bug fix: added previous missing, bracketing parentheses to + references to input cell pointer argument in macro + CELLINIT. + + Changed CELLINIT macro so it no longer initializes to zero + length all strings in data array of a character cell. Instead, + strings are terminated with a null in their final element. + + -CSPICE Version 4.0.0, 22-AUG-2002 (NJB) + + Added macro definitions to support CSPICE cells and sets: + + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + F2C_MAP_CELL + + -CSPICE Version 3.0.0, 09-JAN-1998 (NJB) + + Added output string check macros CHKOSTR and CHKOSTR_VAL. + Removed variable name arguments from macros + + CHKPTR + CHKPTR_VAL + CHKFSTR + CHKRSTR_VAL + + The strings containing names of the checked variables are now + generated from the variables themselves via the # operator. + + -CSPICE Version 2.0.0, 03-DEC-1997 (NJB) + + Added pointer check macro CHKPTR and Fortran string check macro + CHKFSTR. + + -CSPICE Version 1.0.0, 25-OCT-1997 (EDW) +*/ + + + +#include +#include +#include "SpiceZdf.h" + + +#define MOVED( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceDouble) * (ndim) ) ) + + + + + +#define MOVEI( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceInt) * (ndim) ) ) + + + + + +/* +Define a tolerance test for those pesky double precision reals. +True if the difference is less than the tolerance, false otherwise. +The tolerance refers to a percentage. x, y and tol should be declared +double. All values are assumed to be non-zero. Okay? +*/ + +#define TolOrFail( x, y, tol ) \ + \ + ( fabs( x-y ) < ( tol * fabs(x) ) ) + + + + + +/* +Simple error output through standard SPICE error system . Set the error +message and the type +*/ + +#define SpiceError( errmsg, errtype ) \ + \ + { \ + setmsg_c ( errmsg ); \ + sigerr_c ( errtype ); \ + } + + + + + + +/* +Return a value which is the maximum/minimum of the absolute values of +two values. +*/ + +#define MaxAbs(a,b) \ + \ + ( fabs((double)(a)) >= fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + +#define MinAbs(a,b) \ + \ + ( fabs((double)(a)) < fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + + +/* +Return a value which is the maximum/minimum value of two values. +*/ + +#define MaxVal(A,B) ( (A) >= (B) ? (A) : (B) ) +#define MinVal(A,B) ( (A) < (B) ? (A) : (B) ) + + + +/* +Array indexes for vectors. +*/ + +#define SpiceX 0 +#define SpiceY 1 +#define SpiceZ 2 +#define SpiceVx 3 +#define SpiceVy 4 +#define SpiceVz 5 + + +/* +Common literal values. +*/ + +#define NULLCHAR ( (SpiceChar ) 0 ) +#define NULLCPTR ( (SpiceChar * ) 0 ) +#define BLANK ( (SpiceChar ) ' ' ) + + + +/* +Macro CHKPTR is used for checking for a null pointer. CHKPTR uses +the constants + + CHK_STANDARD + CHK_DISCOVER + CHK_REMAIN + +to control tracing behavior. Values and meanings are: + + CHK_STANDARD Standard tracing. If an error + is found, signal it, check out + and return. + + CHK_DISCOVER Discovery check-in. If an + error is found, check in, signal + the error, check out, and return. + + CHK_REMAIN If an error is found, signal it. + Do not check out or return. This + would allow the caller to clean up + before returning, if necessary. + In such cases the caller must test + failed_c() after the macro call. + +CHKPTR should be used in void functions. In non-void functions, +use CHKPTR_VAL, which is defined below. + +*/ + +#define CHK_STANDARD 1 +#define CHK_DISCOVER 2 +#define CHK_REMAIN 3 + +#define CHKPTR( errHandling, modname, pointer ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKPTR_VAL( errHandling, modname, pointer, retval ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKFSTR checks strings that are to be passed to Fortran or +f2c'd Fortran routines. Such strings must have non-zero length, +and their pointers must be non-null. + +CHKFSTR should be used in void functions. In non-void functions, +use CHKFSTR_VAL, which is defined below. +*/ + +#define CHKFSTR( errHandling, modname, string ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + +#define CHKFSTR_VAL( errHandling, modname, string, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKOSTR checks output string pointers and the associated +string length values supplied as input arguments. Output string +pointers must be non-null, and the string lengths must be at +least 2, so Fortran routine can write at least one character to +the output string, and so a null terminator can be appended. +CHKOSTR should be used in void functions. In non-void functions, +use CHKOSTR_VAL, which is defined below. +*/ + +#define CHKOSTR( errHandling, modname, string, length ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKOSTR_VAL( errHandling, modname, string, length, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + /* + Definitions for Cells and Sets + */ + + + /* + Cell initialization macros + */ + #define CELLINIT( cellPtr ) \ + \ + if ( !( (cellPtr)->init ) ) \ + { \ + if ( (cellPtr)->dtype == SPICE_CHR ) \ + { \ + /* \ + Make sure all elements of the data array, including \ + the control area, start off null-terminated. We place \ + the null character in the final element of each string, \ + so as to avoid wiping out data that may have been \ + assigned to the data array prior to initialization. \ + */ \ + SpiceChar * sPtr; \ + SpiceInt i; \ + SpiceInt nmax; \ + \ + nmax = SPICE_CELL_CTRLSZ + (cellPtr)->size; \ + \ + for ( i = 1; i <= nmax; i++ ) \ + { \ + sPtr = (SpiceChar *)((cellPtr)->base) \ + + i * (cellPtr)->length \ + - 1; \ + \ + *sPtr = NULLCHAR; \ + } \ + } \ + else \ + { \ + zzsynccl_c ( C2F, (cellPtr) ); \ + } \ + \ + (cellPtr)->init = SPICETRUE; \ + } + + + #define CELLINIT2( cellPtr1, cellPtr2 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); + + + #define CELLINIT3( cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); \ + CELLINIT ( cellPtr3 ); + + + /* + Data type checking macros: + */ + #define CELLTYPECHK( errHandling, modname, dType, cellPtr1 ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLTYPECHK_VAL( errHandling, modname, \ + dType, cellPtr1, retval ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLTYPECHK2( errHandling, modname, dtype, \ + cellPtr1, cellPtr2 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); + + + + #define CELLTYPECHK2_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); + + + + #define CELLTYPECHK3( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr3 ); + + + #define CELLTYPECHK3_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3, \ + retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr3, \ + retval ); + + + + #define CELLMATCH2( errHandling, modname, cellPtr1, cellPtr2 ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr[ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + #define CELLMATCH2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr [ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr [ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + #define CELLMATCH3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLMATCH2 ( errHandling, modname, cellPtr1, cellPtr2 ); \ + CELLMATCH2 ( errHandling, modname, cellPtr2, cellPtr3 ); + + + + + #define CELLMATCH3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr1, cellPtr2, retval ); \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr2, cellPtr3, retval ); + + /* + Set checking macros: + */ + #define CELLISSETCHK( errHandling, modname, cellPtr1 ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLISSETCHK_VAL( errHandling, modname, \ + cellPtr1, retval ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLISSETCHK2( errHandling, modname, \ + cellPtr1, cellPtr2 ) \ + \ + CELLISSETCHK( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK( errHandling, modname, cellPtr2 ); + + + + #define CELLISSETCHK2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr2, retval ); \ + + + + #define CELLISSETCHK3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLISSETCHK ( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr2 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr3 ); + + + #define CELLISSETCHK3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr2, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr3, retval ); + + + /* + C-to-Fortran and Fortran-to-C character cell translation macros: + */ + + /* + Macros that map one or more character C cells to dynamically + allocated Fortran-style character cells: + */ + #define C2F_MAP_CELL( caller, CCell, fCell, fLen ) \ + \ + { \ + /* \ + fCell and fLen are to be passed by reference, as if this \ + macro were a function. \ + \ + \ + Caution: dynamically allocates array fCell, which is to be \ + freed by caller! \ + */ \ + SpiceInt ndim; \ + SpiceInt lenvals; \ + \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + \ + C2F_MapFixStrArr ( (caller), ndim, lenvals, \ + (CCell)->base, (fLen), (fCell) ); \ + \ + if ( !failed_c() ) \ + { \ + /* \ + Explicitly set the control area info in the Fortran cell.\ + */ \ + ssizec_ ( ( integer * ) &((CCell)->size), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + scardc_ ( ( integer * ) &((CCell)->card), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + if ( failed_c() ) \ + { \ + /* \ + Setting size or cardinality of the Fortran cell \ + can fail, for example if the cell's string length \ + is too short. \ + */ \ + free ( *(fCell) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ) \ + \ + { \ + C2F_MAP_CELL( caller, CCell1, fCell1, fLen1 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell2, fCell2, fLen2 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL3( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2, \ + CCell3, fCell3, fLen3 ) \ + \ + { \ + C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell3, fCell3, fLen3 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + free ( *(fCell2) ); \ + } \ + } \ + } + + + + /* + Macro that maps a Fortran-style character cell to a C cell + (Note: this macro frees the Fortran cell): + */ + + #define F2C_MAP_CELL( fCell, fLen, CCell ) \ + \ + { \ + SpiceInt card; \ + SpiceInt lenvals; \ + SpiceInt ndim; \ + SpiceInt nBytes; \ + SpiceInt size; \ + void * array; \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + array = (CCell)->base; \ + \ + /* \ + Capture the size and cardinality of the Fortran cell. \ + */ \ + if ( !failed_c() ) \ + { \ + size = sizec_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + \ + card = cardc_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + } \ + \ + \ + /* \ + Copy the Fortran array into the output array. \ + */ \ + \ + nBytes = ndim * fLen * sizeof(SpiceChar); \ + memmove ( array, fCell, nBytes ); \ + /* \ + Convert the output array from Fortran to C style. \ + */ \ + F2C_ConvertTrStrArr ( ndim, lenvals, (SpiceChar *)array ); \ + \ + /* \ + Sync the size and cardinality of the C cell. \ + */ \ + if ( !failed_c() ) \ + { \ + (CCell)->size = size; \ + (CCell)->card = card; \ + } \ + } + + + +/* + End of header SpiceZmc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpl.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpl.h new file mode 100644 index 000000000..4324668ae --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpl.h @@ -0,0 +1,125 @@ +/* + +-Header_File SpiceZpl.h ( CSPICE platform macros ) + +-Abstract + + Define macros identifying the host platform for which this + version of CSPICE is targeted. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines macros that enable CSPICE code to be + compiled conditionally based on the identity of the host platform. + + The macros defined here ARE visible in the macro name space of + any file that includes SpiceUsr.h. The names are prefixed with + the string CSPICE_ to help prevent conflicts with macros defined + by users' applications. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 2.4.0, 28-NOV-2021 (BVS) + + Updated for the: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. + + -CSPICE Version 2.3.0, 10-MAR-2014 (BVS) + + Updated for the: + + PC-CYGWIN-64BIT-GCC_C + + environment. + + -CSPICE Version 2.2.0, 14-MAY-2010 (EDW)(BVS) + + Updated for the: + + MAC-OSX-64BIT-INTEL_C + PC-64BIT-MS_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + SUN-SOLARIS-INTEL-CC_C + + environments. + + -CSPICE Version 2.1.0, 15-NOV-2006 (BVS) + + Updated for MAC-OSX-INTEL_C environment. + + -CSPICE Version 2.0.0, 21-FEB-2006 (NJB) + + Updated for PC-LINUX-64BIT-GCC_C environment. + + -CSPICE Version 1.3.0, 06-MAR-2005 (NJB) + + Updated for SUN-SOLARIS-64BIT-GCC_C environment. + + -CSPICE Version 1.2.0, 03-JAN-2005 (BVS) + + Updated for PC-CYGWIN_C environment. + + -CSPICE Version 1.1.0, 27-JUL-2002 (BVS) + + Updated for MAC-OSX-NATIVE_C environment. + + -CSPICE Version 1.0.0, 26-FEB-1999 (NJB) (EDW) + +-Index_Entries + + platform ID defines for CSPICE + +*/ + + +#ifndef HAVE_PLATFORM_MACROS_H +#define HAVE_PLATFORM_MACROS_H + + + #define CSPICE_PC_64BIT_MS + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpr.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpr.h new file mode 100644 index 000000000..3f2424970 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZpr.h @@ -0,0 +1,5190 @@ +/* + +-Header_File SpiceZpr.h ( CSPICE prototypes ) + +-Abstract + + Define prototypes for CSPICE user-interface-level functions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This C header file contains prototypes for CSPICE user-level + C routines. Prototypes for the underlying f2c'd SPICELIB routines + are contained in the separate header file SpiceZfc. However, those + routines are not part of the official CSPICE API. + +-Author_and_Institution + + N.J. Bachman (JPL) + M. Costa Sitja (JPL) + J. Diaz del Rio (ODC Space) + K.R. Gehringer (JPL) + W.L. Taber (JPL) + F.S. Turner (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 13.0.0, 05-NOV-2021 (JDR) (MCS) (NJB) + + Fixed size of "accobs" argument of spkaps_c: it was 6 when it + should be 3. + + Corrected prototype of gfoclt_c: switched order of abcorr and + obsrvr. + + Added prototypes for + + azlcpo_c + azlrec_c + chbigr_c + chbint_c + chbval_c + ckfrot_c + ckfxfm_c + ckgr02_c + ckgr03_c + ckmeta_c + cknr02_c + cknr03_c + clearc_c + cleari_c + dafhsf_c + dasadc_c + dasadd_c + dasadi_c + dashfs_c + daslla_c + dasllc_c + dasonw_c + dasops_c + dasrdc_c + dasrdd_c + dasrdi_c + dasudc_c + dasudd_c + dasudi_c + daswbr_c + dazldr_c + dlabns_c + dlaens_c + dlaopn_c + dnearp_c + drdazl_c + ednmpt_c + edpnt_c + evsgp4_c + filld_c + filli_c + getfvn_c + hrmesp_c + invstm_c + lgresp_c + lgrint_c + moved_c + nextwd_c + nthwd_c + qderiv_c + recazl_c + repml_c + stlabx_c + tangpt_c + tkfram_c + tparch_c + trgsep_c + twovxf_c + vprojg_c + + -CSPICE Version 12.14.0, 05-JAN-2017 (EDW) (NJB) + + Added prototypes for + + chbder_c + cleard_c + dasdc_c + dashfn_c + dasopw_c + dasrfr_c + dlabbs_c + dlabfs_c + dlafns_c + dlafps_c + dskb02_c + dskcls_c + dskd02_c + dskgd_c + dskgtl_c + dski02_c + dskmi2_c + dskn02_c + dskobj_c + dskopn_c + dskp02_c + dskrb2_c + dsksrf_c + dskstl_c + dskv02_c + dskw02_c + dskx02_c + dskxsi_c + dskxv_c + dskz02_c + hrmint_c + illum_pl02 + illum_plid_pl02 + latsrf_c + lgrind_c + limb_pl02 + limbpt_c + llgrid_pl02 + oscltx_c + pckcls_c + pckopn_c + pckw02_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + polyds_c + srfc2s_c + srfcss_c + srfnrm_c + srfs2c_c + srfscc_c + subpt_pl02 + subsol_pl02 + term_pl02 + termpt_c + + -CSPICE Version 12.13.0, 03-DEC-2013 (NJB) (SCK) (EDW) + + Correction to argument order for gfsep_c.c prototype. + + Added prototypes for + + bltfrm_c + ccifrm_c + edterm_c + eqncpv_c + fovray_c + fovtrg_c + gfilum_c + gfpa_c + gfstol_c + gfudb_c + illumg_c + kplfrm_c + occult_c + phaseq_c + pxfrm2_c + qcktrc_c + trcdep_c + trcnam_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpvn_c + spksfs_c + spkw20_c + xfmsta_c + udf_c + + -CSPICE Version 12.12.0, 19-FEB-2010 (EDW) (NJB) + + Added prototypes for + + bodc2s_c + dafgsr_c + dafrfr_c + dp2hx_c + ducrss_c + dvcrss_c + dvnorm_c + gfrr_c + gfuds_c + hx2dp_c + uddc_c + uddf_c + + -CSPICE Version 12.11.0, 29-MAR-2009 (EDW) (NJB) + + Added prototypes for + + dvsep_c + gfbail_c + gfclrh_c + gfdist_c + gfevnt_c + gffove_c + gfinth_c + gfocce_c + gfoclt_c + gfposc_c + gfrefn_c + gfrepf_c + gfrepi_c + gfrepu_c + gfrfov_c + gfsep_c + gfseth_c + gfsntc_c + gfsstp_c + gfstep_c + gfsubc_c + gftfov_c + surfpv_c + zzgfgeth_c + zzgfsavh_c + + -CSPICE Version 12.10.0, 30-JAN-2008 (EDW) (NJB) + + Added prototypes for: + + ilumin_c + pckcov_c + pckfrm_c + sincpt_c + spkacs_c + spkaps_c + spkltc_c + subpnt_c + subslr_c + wncard_c + + -CSPICE Version 12.9.0, 16-NOV-2006 (NJB) + + Bug fix: corrected prototype for vhatg_c. + + Renamed wnfild_c and wnfltd_c arguments `small' to 'smal' for + compatibility with MS Visual C++. + + Added prototypes for + + dafac_c + dafdc_c + dafec_c + dafgda_c + dascls_c + dasopr_c + kclear_c + + -CSPICE Version 12.8.0, 07-NOV-2005 (NJB) + + Added prototypes for + + bodvcd_c + qdq2av_c + qxq_c + srfrec_c + + -CSPICE Version 12.7.0, 06-JAN-2004 (NJB) + + Added prototypes for + + bods2c_c + ckcov_c + ckobj_c + dafopw_c + dafrs_c + dpgrdr_c + drdpgr_c + lspcn_c + pgrrec_c + recpgr_c + spkcov_c + spkobj_c + + -CSPICE Version 12.6.0, 24-FEB-2003 (NJB) + + Added prototype for + + bodvrd_c + deltet_c + srfxpt_c + + -CSPICE Version 12.5.0, 14-MAY-2003 (NJB) + + Removed prototype for getcml_. + + + -CSPICE Version 12.4.0, 25-FEB-2003 (NJB) + + Added prototypes for + + dasac_c + dasec_c + et2lst_c + + -CSPICE Version 12.3.0, 03-SEP-2002 (NJB) + + Added prototypes for + + appndc_c + appndd_c + appndi_c + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + card_c + ckw05_c + copy_c + cpos_c + cposr_c + diff_c + elemc_c + elemd_c + elemi_c + esrchc_c + insrtc_c + insrtd_c + insrti_c + inter_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lparss_c + lstlec_c + lstled_c + lstlei_c + lstltc_c + lstltd_c + lstlti_c + lx4dec_c + lx4num_c + lx4sgn_c + lx4uns_c + lxqstr_c + ncpos_c + ncposr_c + ordc_c + ordd_c + orderc_c + orderd_c + orderi_c + ordi_c + pos_c + posr_c + prefix_c + removc_c + removd_c + remove_c + removi_c + reordc_c + reordd_c + reordi_c + reordl_c + repmc_c + repmct_c + repmd_c + repmf_c + repmi_c + repmot_c + scard_c + sdiff_c + set_c + shellc_c + shelld_c + shelli_c + size_c + spkw18_c + ssize_c + union_c + valid_c + wncomd_c + wncond_c + wndifd_c + wnelmd_c + wnexpd_c + wnextd_c + wnfetd_c + wnfild_c + wnfltd_c + wnincd_c + wninsd_c + wnintd_c + wnreld_c + wnsumd_c + wnunid_c + wnvald_c + zzsynccl_c + + -CSPICE Version 12.2.0, 23-OCT-2001 (NJB) + + Added prototypes for + + badkpv_c + dcyldr_c + dgeodr_c + dlatdr_c + drdcyl_c + drdgeo_c + drdlat_c + drdsph_c + dsphdr_c + ekacec_c + ekaced_c + ekacei_c + ekappr_c + ekbseg_c + ekccnt_c + ekcii_c + ekdelr_c + ekinsr_c + ekntab_c + ekrcec_c + ekrced_c + ekrcei_c + ektnam_c + ekucec_c + ekuced_c + ekucei_c + inelpl_c + invort_c + kxtrct_c + + Added const qualifier to input array arguments of + + conics_c + illum_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + Added const qualifier to the return value of + + tkvrsn_c + + -CSPICE Version 12.1.0, 12-APR-2000 (FST) + + Added prototype for + + getfov_c + + -CSPICE Version 12.0.0, 22-MAR-2000 (NJB) + + Added prototypes for + + lparse_c + lparsm_c + spkw12_c + spkw13_c + + + -CSPICE Version 11.1.0, 17-DEC-1999 (WLT) + + Added prototype for + + dafrda_c + + -CSPICE Version 11.0.0, 07-OCT-1999 (NJB) (EDW) + + Changed ekaclc_c, ekacld_c, ekacli_c prototypes to make input + pointers const-qualified where appropriate. + + Changed prompt_c prototype to accommodate memory leak bug fix. + + Changed ekpsel_c prototype to be consistent with other interfaces + having string array outputs. + + Added prototypes for + + axisar_c + brcktd_c + brckti_c + cgv2el_c + cidfrm_c + clpool_c + cmprss_c + cnmfrm_c + convrt_c + cvpool_c + dafbbs_c + dafbfs_c + dafcls_c + dafcs_c + daffna_c + daffpa_c + dafgh_c + dafgn_c + dafgs_c + dafopr_c + dafps_c + dafus_c + diags2_c + dtpool_c + dvdot_c + dvhat_c + dvpool_c + edlimb_c + ekops_c + ekopw_c + eul2xf_c + ftncls_c + furnsh_c + getelm_c + getmsg_c + gnpool_c + ident_c + illum_c + inedpl_c + kdata_c + kinfo_c + ktotal_c + lmpool_c + matchi_c + matchw_c + maxd_c + maxi_c + mequ_c + mind_c + mini_c + moved_ + npedln_c + npelpt_c + nplnpt_c + pcpool_c + pdpool_c + pipool_c + pjelpl_c + pxform_c + rav2xf_c + raxisa_c + rquad_c + saelgv_c + spk14a_c + spk14b_c + spk14e_c + spkapo_c + spkapp_c + spkcls_c + spkezp_c + spkgps_c + spkopn_c + spkpds_c + spkpos_c + spkssb_c + spksub_c + spkuds_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + stpool_c + subpt_c + subsol_c + swpool_c + szpool_c + tparse_c + trace_c + unload_c + vaddg_c + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vzerog_c + xf2eul_c + xf2rav_c + xposeg_c + + -CSPICE Version 10.0.0, 09-MAR-1999 (NJB) + + Added prototypes for + + frame_c + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + sce2c_c + vprjp_c + vprjpi_c + + Now conditionally includes SpiceEll.h and SpicePln.h. + + + -CSPICE Version 9.0.0, 25-FEB-1999 (NJB) + + Added prototypes for + + eknseg_c + eknelt_c + ekpsel_c + ekssum_c + + Now conditionally includes SpiceEK.h. + + + -CSPICE Version 8.0.0, 20-OCT-1998 (NJB) + + Added const qualifier to all input matrix and vector arguments. + + Added prototypes for + + det_c + dpmax_c + dpmax_ + dpmin_c + dpmin_ + frinfo_c + frmnam_c + getfat_c + intmax_c + intmax_ + intmin_c + intmin_ + invert_c + namfrm_c + vrotv_c + vsclg_c + + + -CSPICE Version 7.0.0, 02-APR-1998 (EDW) + + Added prototypes for + + mequg_c + unormg_c + vdistg_c + vdotg_c + vequg_c + vnormg_c + + -CSPICE Version 6.0.0, 31-MAR-1998 (NJB) + + Added prototypes for + + ekaclc_c + ekacld_c + ekacli_c + ekcls_c + ekffld_c + ekfind_c + ekgc_c + ekgd_c + ekgi_c + ekifld_c + eklef_c + ekopr_c + ekopn_c + ekuef_c + + -CSPICE Version 5.0.1, 05-MAR-1998 (EDW) + + Remove some non printing characters. + + -CSPICE Version 5.0.0, 03-MAR-1998 (NJB) + + Added prototypes for + + etcal_c + ltime_c + stelab_c + tpictr_c + twovec_c + vsubg_c + + -CSPICE Version 4.0.0, 11-FEB-1998 (EDW) + + Added prototypes for + + timdef_c + tsetyr_c + + + -CSPICE Version 3.0.0, 02-FEB-1998 (NJB) + + Added prototypes for + + pckuof_c + tipbod_c + + Type SpiceVoid was replaced with void. + + -CSPICE Version 2.0.0, 06-JAN-1998 (NJB) + + Changed all input-only character pointers to type ConstSpiceChar. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + prototypes of CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + +#ifndef HAVE_SPICE_CELLS_H +#include "SpiceCel.h" +#endif + +#ifndef HAVE_SPICE_DLA_H +#include "SpiceDLA.h" +#endif + +#ifndef HAVE_SPICE_DSK_H +#include "SpiceDSK.h" +#endif + +#ifndef HAVE_SPICE_EK_H +#include "SpiceEK.h" +#endif + +#ifndef HAVE_SPICE_PLANES_H +#include "SpicePln.h" +#endif + +#ifndef HAVE_SPICE_ELLIPSES_H +#include "SpiceEll.h" +#endif + +#ifndef HAVE_SPICE_OSC_H +#include "SpiceOsc.h" +#endif + +#ifndef HAVE_SPICE_SPK_H +#include "SpiceSPK.h" +#endif + +#ifndef HAVE_SPICEWRAPPERS_H +#define HAVE_SPICEWRAPPERS_H + + + + +/* + Function prototypes for CSPICE functions are listed below. + Each prototype is accompanied by a function abstract and brief I/O + description. + + See the headers of the C wrappers for detailed descriptions of the + routines' interfaces. + + The list below should be maintained in alphabetical order. +*/ + + void appndc_c ( ConstSpiceChar * item, + SpiceCell * cell ); + + + void appndd_c ( SpiceDouble item, + SpiceCell * cell ); + + + void appndi_c ( SpiceInt item, + SpiceCell * cell ); + + + void axisar_c ( ConstSpiceDouble axis [3], + SpiceDouble angle, + SpiceDouble r [3][3] ); + + + void azlcpo_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + SpiceBoolean azccw, + SpiceBoolean elplsz, + ConstSpiceDouble obspos [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble azlsta [6], + SpiceDouble * lt ); + + + void azlrec_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble rectan [3] ); + + + SpiceBoolean badkpv_c ( ConstSpiceChar *caller, + ConstSpiceChar *name, + ConstSpiceChar *comp, + SpiceInt size, + SpiceInt divby, + SpiceChar type ); + + + void bltfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void bodc2n_c ( SpiceInt code, + SpiceInt namelen, + SpiceChar * name, + SpiceBoolean * found ); + + + void bodc2s_c ( SpiceInt code, + SpiceInt lenout, + SpiceChar * name ); + + void boddef_c ( ConstSpiceChar * name, + SpiceInt code ); + + + SpiceBoolean bodfnd_c ( SpiceInt body, + ConstSpiceChar * item ); + + + void bodn2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bods2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bodvar_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvcd_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvrd_c ( ConstSpiceChar * body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + SpiceDouble brcktd_c ( SpiceDouble number, + SpiceDouble end1, + SpiceDouble end2 ); + + + SpiceInt brckti_c ( SpiceInt number, + SpiceInt end1, + SpiceInt end2 ); + + + SpiceInt bschoc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array, + ConstSpiceInt * order ); + + + SpiceInt bschoi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array, + ConstSpiceInt * order ); + + + SpiceInt bsrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt bsrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt bsrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceDouble b1900_c ( void ); + + + SpiceDouble b1950_c ( void ); + + + SpiceInt card_c ( SpiceCell * cell ); + + + void ccifrm_c ( SpiceInt frclss, + SpiceInt clssid, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceInt * center, + SpiceBoolean * found ); + + + void cgv2el_c ( ConstSpiceDouble center[3], + ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceEllipse * ellipse ); + + + void chbder_c ( ConstSpiceDouble * cp, + SpiceInt degp, + SpiceDouble x2s[2], + SpiceDouble x, + SpiceInt nderiv, + SpiceDouble * partdp, + SpiceDouble * dpdxs ); + + + void chbigr_c ( SpiceInt degp, + ConstSpiceDouble cp [], + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * itgrlp ); + + + void chbint_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dpdx ); + + + void chbval_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p ); + + + void chkin_c ( ConstSpiceChar * module ); + + + void chkout_c ( ConstSpiceChar * module ); + + + void cidfrm_c ( SpiceInt cent, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void ckfrot_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble rotate [3][3], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckfxfm_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble xform [6][6], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckgr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckcls_c ( SpiceInt handle ); + + + void ckcov_c ( ConstSpiceChar * ck, + SpiceInt idcode, + SpiceBoolean needav, + ConstSpiceChar * level, + SpiceDouble tol, + ConstSpiceChar * timsys, + SpiceCell * cover ); + + + void ckgr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckobj_c ( ConstSpiceChar * ck, + SpiceCell * ids ); + + + void ckgp_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckgpav_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble av[3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckmeta_c ( SpiceInt ckid, + ConstSpiceChar * meta, + SpiceInt * idcode ); + + + void cknr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void cknr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void clearc_c ( SpiceInt ndim, + SpiceInt arrlen, + void * array ); + + + void cklpf_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ckupf_c ( SpiceInt handle ); + + + void ckw01_c ( SpiceInt handle, + SpiceDouble begtime, + SpiceDouble endtime, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3] ); + + + void ckw02_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble start [], + ConstSpiceDouble stop [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + ConstSpiceDouble rates [] ); + + + void ckw03_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + SpiceInt nints, + ConstSpiceDouble starts [] ); + + + void ckw05_c ( SpiceInt handle, + SpiceCK05Subtype subtyp, + SpiceInt degree, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt n, + ConstSpiceDouble sclkdp[], + const void * packets, + SpiceDouble rate, + SpiceInt nints, + ConstSpiceDouble starts[] ); + + + void cleard_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void cleari_c ( SpiceInt ndim, + SpiceInt array [] ); + + + SpiceDouble clight_c ( void ); + + + void clpool_c ( void ); + + + void cmprss_c ( SpiceChar delim, + SpiceInt n, + ConstSpiceChar * input, + SpiceInt lenout, + SpiceChar * output ); + + + void cnmfrm_c ( ConstSpiceChar * cname, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void conics_c ( ConstSpiceDouble elts[8], + SpiceDouble et, + SpiceDouble state[6] ); + + + void convrt_c ( SpiceDouble x, + ConstSpiceChar * in, + ConstSpiceChar * out, + SpiceDouble * y ); + + + void copy_c ( SpiceCell * a, + SpiceCell * b ); + + + SpiceInt cpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt cposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void cvpool_c ( ConstSpiceChar * agent, + SpiceBoolean * update ); + + + void cyllat_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void cylrec_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble rectan[3] ); + + + void cylsph_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void dafac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt lenvals, + const void * buffer ); + + + void dafbbs_c ( SpiceInt handle ); + + + void dafbfs_c ( SpiceInt handle ); + + + void dafcls_c ( SpiceInt handle ); + + + void dafcs_c ( SpiceInt handle ); + + + void dafdc_c ( SpiceInt handle ); + + + void dafec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt lenout, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void daffna_c ( SpiceBoolean * found ); + + + void daffpa_c ( SpiceBoolean * found ); + + + void dafgda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + void dafgh_c ( SpiceInt * handle ); + + + void dafgn_c ( SpiceInt lenout, + SpiceChar * name ); + + + void dafgs_c ( SpiceDouble sum[] ); + + + void dafgsr_c ( SpiceInt handle, + SpiceInt recno, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data, + SpiceBoolean * found ); + + + void dafhsf_c ( SpiceInt handle, + SpiceInt * nd, + SpiceInt * ni ); + + + void dafopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafps_c ( SpiceInt nd, + SpiceInt ni, + ConstSpiceDouble dc [], + ConstSpiceInt ic [], + SpiceDouble sum [] ); + + + void dafrda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + + void dafrfr_c ( SpiceInt handle, + SpiceInt lenout, + SpiceInt * nd, + SpiceInt * ni, + SpiceChar * ifname, + SpiceInt * fward, + SpiceInt * bward, + SpiceInt * free ); + + + void dasadc_c ( SpiceInt handle, + SpiceInt n, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasadd_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceDouble data [] ); + + + void dasadi_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceInt data [] ); + + + + void dafrs_c ( ConstSpiceDouble * sum ); + + + void dafus_c ( ConstSpiceDouble sum [], + SpiceInt nd, + SpiceInt ni, + SpiceDouble dc [], + SpiceInt ic [] ); + + + void dasac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt buflen, + const void * buffer ); + + + void dascls_c ( SpiceInt handle ); + + + void dasdc_c ( SpiceInt handle ); + + + void dasec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt buflen, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void dashfn_c ( SpiceInt handle, + SpiceInt namlen, + SpiceChar * fname ); + + + void dashfs_c ( SpiceInt handle, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc, + SpiceInt * free, + SpiceInt lastla [3], + SpiceInt lastrc [3], + SpiceInt lastwd [3] ); + + + void daslla_c ( SpiceInt handle, + SpiceInt * lastc, + SpiceInt * lastd, + SpiceInt * lasti ); + + + void dasllc_c ( SpiceInt handle ); + + + void dasonw_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomr, + SpiceInt * handle ); + + + void dasopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasops_c ( SpiceInt * handle ); + + + void dasopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasrdc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + void * data ); + + + void dasrdd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceDouble data [] ); + + + void dasrdi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt data [] ); + + + + void dasrfr_c ( SpiceInt handle, + SpiceInt idwlen, + SpiceInt ifnlen, + SpiceChar * idword, + SpiceChar * ifname, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc ); + + + void dasudc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasudd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceDouble data [] ); + + + void dasudi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceInt data [] ); + + + void daswbr_c ( SpiceInt handle ); + + + void dazldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + void dcyldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void deltet_c ( SpiceDouble epoch, + ConstSpiceChar * eptype, + SpiceDouble * delta ); + + + SpiceDouble det_c ( ConstSpiceDouble m1[3][3] ); + + + void diags2_c ( ConstSpiceDouble symmat [2][2], + SpiceDouble diag [2][2], + SpiceDouble rotate [2][2] ); + + + void diff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void dgeodr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void dlabbs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabfs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabns_c ( SpiceInt handle ); + + + void dlaens_c ( SpiceInt handle ); + + + void dlafns_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * nxtdsc, + SpiceBoolean * found ); + + + void dlafps_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * prvdsc, + SpiceBoolean * found ); + + + void dlaopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dlatdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dnearp_c ( ConstSpiceDouble state [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble dnear [6], + SpiceDouble dalt [2], + SpiceBoolean * found ); + + + void dp2hx_c ( SpiceDouble number, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * length ); + + + void dpgrdr_c ( ConstSpiceChar * body, + SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdazl_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + SpiceDouble dpmax_c ( void ); + + + SpiceDouble dpmax_ ( void ); + + + SpiceDouble dpmin_c ( void ); + + + SpiceDouble dpmin_ ( void ); + + + SpiceDouble dpr_c ( void ); + + + void drdcyl_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void drdgeo_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdlat_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble jacobi[3][3] ); + + + void drdpgr_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdsph_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble jacobi[3][3] ); + + + void dskb02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np, + SpiceInt * nvxtot, + SpiceDouble vtxbds [3][2], + SpiceDouble * voxsiz, + SpiceDouble voxori [3], + SpiceInt vgrext [3], + SpiceInt * cgscal, + SpiceInt * vtxnpl, + SpiceInt * voxnpt, + SpiceInt * voxnpl ); + + + void dskcls_c ( SpiceInt handle, + SpiceBoolean optmiz ); + + + void dskd02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values ); + + + void dskgd_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc ); + + + void dskgtl_c ( SpiceInt keywrd, + SpiceDouble * dpval ); + + + void dski02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * values ); + + void dskobj_c ( ConstSpiceChar * dsk, + SpiceCell * bodids ); + + void dskopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dskn02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt plid, + SpiceDouble normal[3] ); + + + void dskmi2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceDouble finscl, + SpiceInt corscl, + SpiceInt worksz, + SpiceInt voxpsz, + SpiceInt voxlsz, + SpiceBoolean makvtl, + SpiceInt spxisz, + SpiceInt work [][2], + SpiceDouble spaixd [], + SpiceInt spaixi [] ); + + + void dskp02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt plates[][3] ); + + + void dskrb2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble * mncor3, + SpiceDouble * mxcor3 ); + + + void dsksrf_c ( ConstSpiceChar * dsk, + SpiceInt bodyid, + SpiceCell * srfids ); + + + void dskstl_c ( SpiceInt keywrd, + SpiceDouble dpval ); + + + void dskv02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble vrtces[][3] ); + + + void dskw02_c ( SpiceInt handle, + SpiceInt center, + SpiceInt surfce, + SpiceInt dclass, + ConstSpiceChar * frame, + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble mncor1, + SpiceDouble mxcor1, + SpiceDouble mncor2, + SpiceDouble mxcor2, + SpiceDouble mncor3, + SpiceDouble mxcor3, + SpiceDouble first, + SpiceDouble last, + SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + ConstSpiceDouble spaixd[], + ConstSpiceInt spaixi[] ); + + + void dskx02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt * plid, + SpiceDouble xpt [3], + SpiceBoolean * found ); + + + void dskxsi_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst [], + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt maxd, + SpiceInt maxi, + SpiceDouble xpt [3], + SpiceInt * handle, + SpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc, + SpiceDouble dc [], + SpiceInt ic [], + SpiceBoolean * found ); + + + void dskxv_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst[], + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt nrays, + ConstSpiceDouble vtxarr[][3], + ConstSpiceDouble dirarr[][3], + SpiceDouble xptarr[][3], + SpiceBoolean fndarr[] ); + + + void dskz02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np ); + + + void dsphdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dtpool_c ( ConstSpiceChar * name, + SpiceBoolean * found, + SpiceInt * n, + SpiceChar type [1] ); + + + void ducrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + void dvcrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + SpiceDouble dvdot_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6] ); + + + void dvhat_c ( ConstSpiceDouble s1 [6], + SpiceDouble sout[6] ); + + SpiceDouble dvnorm_c ( ConstSpiceDouble state[6] ); + + void dvpool_c ( ConstSpiceChar * name ); + + + SpiceDouble dvsep_c ( ConstSpiceDouble * s1, + ConstSpiceDouble * s2 ); + + + void edlimb_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble viewpt[3], + SpiceEllipse * limb ); + + + void ednmpt_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble normal [3], + SpiceDouble point [3] ); + + + void edpnt_c ( ConstSpiceDouble p [3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble ep [3] ); + + + void edterm_c ( ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixfrm, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npts, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble termpts [ ][3] ); + + + void ekacec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekaced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekacei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekaclc_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + SpiceInt vallen, + const void * cvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacld_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceDouble * dvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacli_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceInt * ivals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekappr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * recno ); + + + void ekbseg_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno ); + + + void ekccnt_c ( ConstSpiceChar * table, + SpiceInt * ccount ); + + + void ekcii_c ( ConstSpiceChar * table, + SpiceInt cindex, + SpiceInt lenout, + SpiceChar * column, + SpiceEKAttDsc * attdsc ); + + + void ekcls_c ( SpiceInt handle ); + + + void ekdelr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void ekffld_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * rcptrs ); + + + void ekfind_c ( ConstSpiceChar * query, + SpiceInt lenout, + SpiceInt * nmrows, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekgc_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt lenout, + SpiceChar * cdata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgd_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceDouble * ddata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgi_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt * idata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekifld_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt nrows, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno, + SpiceInt * rcptrs ); + + + void ekinsr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void eklef_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + SpiceInt eknelt_c ( SpiceInt selidx, + SpiceInt row ); + + + SpiceInt eknseg_c ( SpiceInt handle ); + + + void ekntab_c ( SpiceInt * n ); + + + void ekopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ekopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekops_c ( SpiceInt * handle ); + + + void ekopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekpsel_c ( ConstSpiceChar * query, + SpiceInt msglen, + SpiceInt tablen, + SpiceInt collen, + SpiceInt * n, + SpiceInt * xbegs, + SpiceInt * xends, + SpiceEKDataType * xtypes, + SpiceEKExprClass * xclass, + void * tabs, + void * cols, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekrcec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt lenout, + SpiceInt * nvals, + void * cvals, + SpiceBoolean * isnull ); + + + void ekrced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceDouble * dvals, + SpiceBoolean * isnull ); + + + void ekrcei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceInt * ivals, + SpiceBoolean * isnull ); + + + void ekssum_c ( SpiceInt handle, + SpiceInt segno, + SpiceEKSegSum * segsum ); + + + void ektnam_c ( SpiceInt n, + SpiceInt lenout, + SpiceChar * table ); + + + void ekucec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekuced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekucei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekuef_c ( SpiceInt handle ); + + + SpiceBoolean elemc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceBoolean elemd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceBoolean elemi_c ( SpiceInt item, + SpiceCell * set ); + + + void eqncpv_c ( SpiceDouble et, + SpiceDouble epoch, + ConstSpiceDouble eqel[9], + SpiceDouble rapol, + SpiceDouble decpol, + SpiceDouble state[6] ); + + + SpiceBoolean eqstr_c ( ConstSpiceChar * a, + ConstSpiceChar * b ); + + + void el2cgv_c ( ConstSpiceEllipse * ellipse, + SpiceDouble center[3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void erract_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * action ); + + + void errch_c ( ConstSpiceChar * marker, + ConstSpiceChar * string ); + + + void errdev_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * device ); + + + void errdp_c ( ConstSpiceChar * marker, + SpiceDouble number ); + + + void errint_c ( ConstSpiceChar * marker, + SpiceInt number ); + + + void errprt_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * list ); + + + SpiceInt esrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + void etcal_c ( SpiceDouble et, + SpiceInt lenout, + SpiceChar * string ); + + + void et2lst_c ( SpiceDouble et, + SpiceInt body, + SpiceDouble lon, + ConstSpiceChar * type, + SpiceInt timlen, + SpiceInt ampmlen, + SpiceInt * hr, + SpiceInt * mn, + SpiceInt * sc, + SpiceChar * time, + SpiceChar * ampm ); + + + void et2utc_c ( SpiceDouble et , + ConstSpiceChar * format, + SpiceInt prec, + SpiceInt lenout, + SpiceChar * utcstr ); + + + void eul2m_c ( SpiceDouble angle3, + SpiceDouble angle2, + SpiceDouble angle1, + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble r [3][3] ); + + + void eul2xf_c ( ConstSpiceDouble eulang[6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble xform [6][6] ); + + + void evsgp4_c ( SpiceDouble et, + ConstSpiceDouble geophs [8], + ConstSpiceDouble elems [10], + SpiceDouble state [6] ); + + + SpiceBoolean exists_c ( ConstSpiceChar * name ); + + + void expool_c ( ConstSpiceChar * name, + SpiceBoolean * found ); + + + SpiceBoolean failed_c ( void ); + + void fovray_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + void fovtrg_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + + void filli_c ( SpiceInt value, + SpiceInt ndim, + SpiceInt array [] ); + + + void filld_c ( SpiceDouble value, + SpiceInt ndim, + SpiceDouble array [] ); + + + void frame_c ( SpiceDouble x[3], + SpiceDouble y[3], + SpiceDouble z[3] ); + + + void frinfo_c ( SpiceInt frcode, + SpiceInt * cent, + SpiceInt * clss, + SpiceInt * clssid, + SpiceBoolean * found ); + + + void frmnam_c ( SpiceInt frcode, + SpiceInt lenout, + SpiceChar * frname ); + + + void ftncls_c ( SpiceInt unit ); + + + void furnsh_c ( ConstSpiceChar * file ); + + + void gcpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * cvals, + SpiceBoolean * found ); + + + void gdpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values, + SpiceBoolean * found ); + + + void georec_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + void getcml_c ( SpiceInt * argc, + SpiceChar *** argv ); + + + void getelm_c ( SpiceInt frstyr, + SpiceInt lineln, + const void * lines, + SpiceDouble * epoch, + SpiceDouble * elems ); + + + void getfat_c ( ConstSpiceChar * file, + SpiceInt arclen, + SpiceInt typlen, + SpiceChar * arch, + SpiceChar * type ); + + + void getfov_c ( SpiceInt instid, + SpiceInt room, + SpiceInt shapelen, + SpiceInt framelen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getfvn_c ( ConstSpiceChar * inst, + SpiceInt room, + SpiceInt shalen, + SpiceInt fralen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getmsg_c ( ConstSpiceChar * option, + SpiceInt lenout, + SpiceChar * msg ); + + + SpiceBoolean gfbail_c ( void ); + + + void gfclrh_c ( void ); + + + void gfdist_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfevnt_c ( void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + ConstSpiceChar * gquant, + SpiceInt qnpars, + SpiceInt lenvals, + const void * qpnams, + const void * qcpars, + ConstSpiceDouble * qdpars, + ConstSpiceInt * qipars, + ConstSpiceBoolean * qlpars, + ConstSpiceChar * op, + SpiceDouble refval, + SpiceDouble tol, + SpiceDouble adjust, + SpiceBoolean rpt, + + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + + void ( * udrepf ) ( void ), + SpiceInt nintvls, + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gffove_c ( ConstSpiceChar * inst, + ConstSpiceChar * tshape, + ConstSpiceDouble raydir [3], + ConstSpiceChar * target, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfilum_c ( ConstSpiceChar * method, + ConstSpiceChar * angtyp, + ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfinth_c ( int sigcode ); + + + void gfocce_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfoclt_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfpa_c ( ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfposc_c ( ConstSpiceChar * target, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrefn_c ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ); + + + void gfrepf_c ( void ); + + + void gfrepi_c ( SpiceCell * window, + ConstSpiceChar * begmss, + ConstSpiceChar * endmss ); + + + void gfrepu_c ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble time ); + + + void gfrfov_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrr_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsep_c ( ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsntc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsstp_c ( SpiceDouble step ); + + + void gfstep_c ( SpiceDouble time, + SpiceDouble * step ); + + + void gfstol_c ( SpiceDouble value ); + + + void gfsubc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gftfov_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfudb_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble et, + SpiceBoolean * xbool ), + + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfuds_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble x, + SpiceBoolean * xbool ), + + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gipool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * ivals, + SpiceBoolean * found ); + + + void gnpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * kvars, + SpiceBoolean * found ); + + + void hrmesp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x, + SpiceDouble * f, + SpiceDouble * df ); + + + void hrmint_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble x, + SpiceDouble * work, + SpiceDouble * f, + SpiceDouble * df ); + + + SpiceDouble halfpi_c ( void ); + + + void hx2dp_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * number, + SpiceBoolean * error, + SpiceChar * errmsg + ); + + + void ident_c ( SpiceDouble matrix[3][3] ); + + + void ilumin_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_plid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceInt plid, + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn, + SpiceBoolean * visible, + SpiceBoolean * lit ); + + + void illumf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * ilusrc, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * incdnc, + SpiceDouble * emissn, + SpiceBoolean * visibl, + SpiceBoolean * lit ); + + + void illumg_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * illum, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void inedpl_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpicePlane * plane, + SpiceEllipse * ellipse, + SpiceBoolean * found ); + + + void inelpl_c ( ConstSpiceEllipse * ellips, + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt1[3], + SpiceDouble xpt2[3] ); + + + void insrtc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void insrtd_c ( SpiceDouble item, + SpiceCell * set ); + + + void insrti_c ( SpiceInt item, + SpiceCell * set ); + + + void inter_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void inrypl_c ( ConstSpiceDouble vertex [3], + ConstSpiceDouble dir [3], + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt [3] ); + + + SpiceInt intmax_c ( void ); + + + SpiceInt intmax_ ( void ); + + + SpiceInt intmin_c ( void ); + + + SpiceInt intmin_ ( void ); + + + void invert_c ( ConstSpiceDouble m1[3][3], + SpiceDouble m2[3][3] ); + + + void invort_c ( ConstSpiceDouble m [3][3], + SpiceDouble mit[3][3] ); + + + void invstm_c ( ConstSpiceDouble mat [6][6], + SpiceDouble invmat [6][6] ); + + + SpiceBoolean isordv_c ( ConstSpiceInt * array, + SpiceInt n ); + + + SpiceBoolean isrot_c ( ConstSpiceDouble m [3][3], + SpiceDouble ntol, + SpiceDouble dtol ); + + + + SpiceInt isrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt isrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt isrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceBoolean iswhsp_c ( ConstSpiceChar * string ); + + + SpiceDouble j1900_c ( void ); + + + SpiceDouble j1950_c ( void ); + + + SpiceDouble j2000_c ( void ); + + + SpiceDouble j2100_c ( void ); + + + SpiceDouble jyear_c ( void ); + + + void kclear_c ( void ); + + + void kdata_c ( SpiceInt which, + ConstSpiceChar * kind, + SpiceInt fillen, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * file, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kinfo_c ( ConstSpiceChar * file, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kplfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void ktotal_c ( ConstSpiceChar * kind, + SpiceInt * count ); + + + void kxtrct_c ( ConstSpiceChar * keywd, + SpiceInt termlen, + const void * terms, + SpiceInt nterms, + SpiceInt stringlen, + SpiceInt substrlen, + SpiceChar * string, + SpiceBoolean * found, + SpiceChar * substr ); + + + SpiceInt lastnb_c ( ConstSpiceChar * string ); + + + void latcyl_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * r, + SpiceDouble * lonc, + SpiceDouble * z ); + + + void latrec_c ( SpiceDouble radius, + SpiceDouble longitude, + SpiceDouble latitude, + SpiceDouble rectan [3] ); + + + void latsph_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * rho, + SpiceDouble * colat, + SpiceDouble * lons ); + + + void latsrf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble lonlat[][2], + SpiceDouble srfpts[][3] ); + + + void lcase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ldpool_c ( ConstSpiceChar * filename ); + + + SpiceDouble lgresp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void lgrind_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble * work, + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dp ); + + + SpiceDouble lgrint_c ( SpiceInt n, + ConstSpiceDouble xvals [], + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void limb_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble limbpts [][3], + SpiceInt plateIDs [] ); + + + void limbpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void llgrid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt npoints, + ConstSpiceDouble grid [][2], + SpiceDouble spoints [][3], + SpiceInt plateIDs [] ); + + + void lmpool_c ( const void * cvals, + SpiceInt lenvals, + SpiceInt n ); + + + void lparse_c ( ConstSpiceChar * list, + ConstSpiceChar * delim, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparsm_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparss_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceCell * set ); + + + SpiceDouble lspcn_c ( ConstSpiceChar * body, + SpiceDouble et, + ConstSpiceChar * abcorr ); + + + SpiceInt lstlec_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstled_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlei_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + SpiceInt lstltc_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstltd_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlti_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + void ltime_c ( SpiceDouble etobs, + SpiceInt obs, + ConstSpiceChar * dir, + SpiceInt targ, + SpiceDouble * ettarg, + SpiceDouble * elapsd ); + + + void lx4dec_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4num_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4sgn_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4uns_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lxqstr_c ( ConstSpiceChar * string, + SpiceChar qchar, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void m2eul_c ( ConstSpiceDouble r[3][3], + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble * angle3, + SpiceDouble * angle2, + SpiceDouble * angle1 ); + + + void m2q_c ( ConstSpiceDouble r[3][3], + SpiceDouble q[4] ); + + + + SpiceBoolean matchi_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceBoolean matchw_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceDouble maxd_c ( SpiceInt n, + ... ); + + + SpiceInt maxi_c ( SpiceInt n, + ... ); + + + void mequ_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void mequg_c ( const void * m1, + SpiceInt nr, + SpiceInt nc, + void * mout ); + + + SpiceDouble mind_c ( SpiceInt n, + ... ); + + + SpiceInt mini_c ( SpiceInt n, + ... ); + + + int moved_ ( SpiceDouble * arrfrm, + SpiceInt * ndim, + SpiceDouble * arrto ); + + + void moved_c ( ConstSpiceDouble arrfrm [], + SpiceInt ndim, + SpiceDouble arrto [] ); + + + void mtxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mtxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mtxv_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble vin [3], + SpiceDouble vout[3] ); + + + void mtxvg_c ( const void * m1, + const void * v2, + SpiceInt ncol1, + SpiceInt nr1r2, + void * vout ); + + + void mxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mxmt_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmtg_c ( const void * m1, + const void * m2, + SpiceInt nrow1, + SpiceInt nc1c2, + SpiceInt nrow2, + void * mout ); + + + void mxv_c ( ConstSpiceDouble m1[3][3], + ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void mxvg_c ( const void * m1, + const void * v2, + SpiceInt nrow1, + SpiceInt nc1r2, + void * vout ); + + + void namfrm_c ( ConstSpiceChar * frname, + SpiceInt * frcode ); + + + SpiceInt ncpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt ncposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void nearpt_c ( ConstSpiceDouble positn[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble npoint[3], + SpiceDouble * alt ); + + + void nextwd_c ( ConstSpiceChar * string, + SpiceInt nexlen, + SpiceInt reslen, + SpiceChar * next, + SpiceChar * rest ); + + + void npedln_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble linept[3], + ConstSpiceDouble linedr[3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void npelpt_c ( ConstSpiceDouble point[3], + ConstSpiceEllipse * ellips, + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void nplnpt_c ( ConstSpiceDouble linpt [3], + ConstSpiceDouble lindir [3], + ConstSpiceDouble point [3], + SpiceDouble pnear [3], + SpiceDouble * dist ); + + + void nthwd_c ( ConstSpiceChar * string, + SpiceInt nth, + SpiceInt worlen, + SpiceChar * word, + SpiceInt * loc ); + + + void nvc2pl_c ( ConstSpiceDouble normal[3], + SpiceDouble constant, + SpicePlane * plane ); + + + void nvp2pl_c ( ConstSpiceDouble normal[3], + ConstSpiceDouble point[3], + SpicePlane * plane ); + + void occult_c ( ConstSpiceChar * target1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * target2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble time, + SpiceInt * occult_code ); + + SpiceInt ordc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceInt ordd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceInt ordi_c ( SpiceInt item, + SpiceCell * set ); + + + void orderc_c ( SpiceInt lenvals, + const void * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderd_c ( ConstSpiceDouble * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderi_c ( ConstSpiceInt * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void oscelt_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[8] ); + + + void oscltx_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[SPICE_OSCLTX_NELTS] ); + + + void pckcls_c ( SpiceInt handle ); + + + void pckcov_c ( ConstSpiceChar * pck, + SpiceInt idcode, + SpiceCell * cover ); + + + void pckfrm_c ( ConstSpiceChar * pck, + SpiceCell * ids ); + + + void pcklof_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void pckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void pckuof_c ( SpiceInt handle ); + + + void pckw02_c ( SpiceInt handle, + SpiceInt clssid, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + SpiceDouble cdata [], + SpiceDouble btime ); + + + void pcpool_c ( ConstSpiceChar * name, + SpiceInt n, + SpiceInt lenvals, + const void * cvals ); + + + void pdpool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceDouble * dvals ); + + + void pgrrec_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + SpiceDouble phaseq_c ( SpiceDouble et, + ConstSpiceChar * target, + ConstSpiceChar * illumn, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + SpiceDouble pi_c ( void ); + + + void pipool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceInt * ivals ); + + + void pjelpl_c ( ConstSpiceEllipse * elin, + ConstSpicePlane * plane, + SpiceEllipse * elout ); + + + void pl2nvc_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble * constant ); + + + void pl2nvp_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble point[3] ); + + + void pl2psv_c ( ConstSpicePlane * plane, + SpiceDouble point[3], + SpiceDouble span1[3], + SpiceDouble span2[3] ); + + + SpiceDouble pltar_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void pltexp_c ( ConstSpiceDouble iverts[3][3], + SpiceDouble delta, + SpiceDouble overts[3][3] ); + + + void pltnp_c ( ConstSpiceDouble point[3], + ConstSpiceDouble v1 [3], + ConstSpiceDouble v2 [3], + ConstSpiceDouble v3 [3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void pltnrm_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + ConstSpiceDouble v3[3], + SpiceDouble normal[3] ); + + + SpiceDouble pltvol_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void polyds_c ( ConstSpiceDouble * coeffs, + SpiceInt deg, + SpiceInt nderiv, + SpiceDouble t, + SpiceDouble * p ); + + + SpiceInt pos_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + SpiceInt posr_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + void prefix_c ( ConstSpiceChar * pref, + SpiceInt spaces, + SpiceInt lenout, + SpiceChar * string ); + + + SpiceChar * prompt_c ( ConstSpiceChar * prmptStr, + SpiceInt lenout, + SpiceChar * buffer ); + + + void prop2b_c ( SpiceDouble gm, + ConstSpiceDouble pvinit[6], + SpiceDouble dt, + SpiceDouble pvprop[6] ); + + + void prsdp_c ( ConstSpiceChar * string, + SpiceDouble * dpval ); + + + void prsint_c ( ConstSpiceChar * string, + SpiceInt * intval ); + + + void psv2pl_c ( ConstSpiceDouble point[3], + ConstSpiceDouble span1[3], + ConstSpiceDouble span2[3], + SpicePlane * plane ); + + + void putcml_c ( SpiceInt argc , + SpiceChar ** argv ); + + + void pxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble rotate[3][3] ); + + + void pxfrm2_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble etfrom, + SpiceDouble etto, + SpiceDouble rotate[3][3] ); + + + void q2m_c ( ConstSpiceDouble q[4], + SpiceDouble r[3][3] ); + + + void qcktrc_c ( SpiceInt tracelen, + SpiceChar * trace ); + + + void qderiv_c ( SpiceInt ndim, + ConstSpiceDouble f0 [], + ConstSpiceDouble f2 [], + SpiceDouble delta, + SpiceDouble dfdt [] ); + + + void qdq2av_c ( ConstSpiceDouble q[4], + ConstSpiceDouble dq[4], + SpiceDouble av[3] ); + + + void qxq_c ( ConstSpiceDouble q1[4], + ConstSpiceDouble q2[4], + SpiceDouble qout[4] ); + + + + void radrec_c ( SpiceDouble range, + SpiceDouble ra, + SpiceDouble dec, + SpiceDouble rectan[3] ); + + + void rav2xf_c ( ConstSpiceDouble rot [3][3], + ConstSpiceDouble av [3], + SpiceDouble xform [6][6] ); + + + void raxisa_c ( ConstSpiceDouble matrix[3][3], + SpiceDouble axis [3], + SpiceDouble * angle ); + + + void rdtext_c ( ConstSpiceChar * file, + SpiceInt lenout, + SpiceChar * line, + SpiceBoolean * eof ); + + + void recazl_c ( ConstSpiceDouble rectan [3], + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble * range, + SpiceDouble * az, + SpiceDouble * el ); + + + void reccyl_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void recgeo_c ( ConstSpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void reclat_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * longitude, + SpiceDouble * latitude ); + + + void recpgr_c ( ConstSpiceChar * body, + SpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void recrad_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * ra, + SpiceDouble * dec ); + + + + void reordc_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void reordd_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceDouble * array ); + + + void reordi_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt * array ); + + + void reordl_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceBoolean * array ); + + + void removc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void removd_c ( SpiceDouble item, + SpiceCell * set ); + + + void removi_c ( SpiceInt item, + SpiceCell * set ); + + + void repmc_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + ConstSpiceChar * value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmct_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void repml_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceBoolean value, + SpiceChar rtcase, + SpiceInt outlen, + SpiceChar * out ); + + + void repmd_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceInt lenout, + SpiceChar * out ); + + + void repmf_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceChar format, + SpiceInt lenout, + SpiceChar * out ); + + + void repmi_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmot_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void reset_c ( void ); + + + SpiceBoolean return_c ( void ); + + + void recsph_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void rotate_c ( SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotmat_c ( ConstSpiceDouble m1[3][3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotvec_c ( ConstSpiceDouble v1[3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble vout[3] ); + + + SpiceDouble rpd_c ( void ); + + + void rquad_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble root1[2], + SpiceDouble root2[2] ); + + + void saelgv_c ( ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void scard_c ( SpiceInt card, + SpiceCell * cell ); + + + void scdecd_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2s_c ( SpiceInt sc, + SpiceDouble et, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2c_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void sce2t_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void scencd_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * sclkdp ); + + + void scfmt_c ( SpiceInt sc, + SpiceDouble ticks, + SpiceInt clkstrlen, + SpiceChar * clkstr ); + + + void scpart_c ( SpiceInt sc, + SpiceInt * nparts, + SpiceDouble * pstart, + SpiceDouble * pstop ); + + + void scs2e_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * et ); + + + void sct2e_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceDouble * et ); + + + void sctiks_c ( SpiceInt sc, + ConstSpiceChar * clkstr, + SpiceDouble * ticks ); + + + void sdiff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean set_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void setmsg_c ( ConstSpiceChar * msg ); + + + void shellc_c ( SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void shelld_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void shelli_c ( SpiceInt ndim, + SpiceInt * array ); + + + void sigerr_c ( ConstSpiceChar * message ); + + + void sincpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceBoolean * found ); + + + SpiceInt size_c ( SpiceCell * size ); + + + SpiceDouble spd_c ( void ); + + + void sphcyl_c ( SpiceDouble radius, + SpiceDouble colat, + SpiceDouble slon, + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void sphlat_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lons, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void sphrec_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble rectan[3] ); + + + void spk14a_c ( SpiceInt handle, + SpiceInt ncsets, + ConstSpiceDouble coeffs [], + ConstSpiceDouble epochs [] ); + + + void spk14b_c ( SpiceInt handle, + ConstSpiceChar * segid, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + SpiceInt chbdeg ); + + + void spk14e_c ( SpiceInt handle ); + + + void spkapo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs[6], + ConstSpiceChar * abcorr, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkapp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs [6], + ConstSpiceChar * abcorr, + SpiceDouble starg [6], + SpiceDouble * lt ); + + + void spkacs_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkaps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + ConstSpiceDouble accobs[3], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkcls_c ( SpiceInt handle ); + + + void spkcov_c ( ConstSpiceChar * spk, + SpiceInt idcode, + SpiceCell * cover ); + + + void spkcpo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcpt_c ( ConstSpiceDouble trgpos [3], + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [6], + SpiceDouble obsepc, + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvt_c ( ConstSpiceDouble trgsta [6], + SpiceDouble trgepc, + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkez_c ( SpiceInt target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + SpiceInt observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkezp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkezr_c ( ConstSpiceChar * target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgeo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble pos[3], + SpiceDouble * lt ); + + + void spklef_c ( ConstSpiceChar * filename, + SpiceInt * handle ); + + + void spkltc_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkobj_c ( ConstSpiceChar * spk, + SpiceCell * ids ); + + + void spkopa_c ( ConstSpiceChar * file, + SpiceInt * handle ); + + + void spkopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void spkpds_c ( SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceInt type, + SpiceDouble first, + SpiceDouble last, + SpiceDouble descr[5] ); + + + void spkpos_c ( ConstSpiceChar * targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkpvn_c ( SpiceInt handle, + ConstSpiceDouble descr [5], + SpiceDouble et, + SpiceInt * ref, + SpiceDouble state [6], + SpiceInt * center ); + + + void spksfs_c ( SpiceInt body, + SpiceDouble et, + SpiceInt idlen, + SpiceInt * handle, + SpiceDouble descr [5], + SpiceChar * ident, + SpiceBoolean * found ); + + + void spkssb_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceDouble starg[6] ); + + + void spksub_c ( SpiceInt handle, + SpiceDouble descr[5], + ConstSpiceChar * ident, + SpiceDouble begin, + SpiceDouble end, + SpiceInt newh ); + + + void spkuds_c ( ConstSpiceDouble descr [5], + SpiceInt * body, + SpiceInt * center, + SpiceInt * frame, + SpiceInt * type, + SpiceDouble * first, + SpiceDouble * last, + SpiceInt * begin, + SpiceInt * end ); + + + void spkuef_c ( SpiceInt handle ); + + + void spkw02_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw03_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw05_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble gm, + SpiceInt n, + ConstSpiceDouble states [][6], + ConstSpiceDouble epochs [] ); + + + void spkw08_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch1, + SpiceDouble step ); + + + void spkw09_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw10_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + ConstSpiceDouble consts [8], + SpiceInt n, + ConstSpiceDouble elems [], + ConstSpiceDouble epochs [] ); + + + void spkw12_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch0, + SpiceDouble step ); + + + void spkw13_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw15_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble tp [3], + ConstSpiceDouble pa [3], + SpiceDouble p, + SpiceDouble ecc, + SpiceDouble j2flg, + ConstSpiceDouble pv [3], + SpiceDouble gm, + SpiceDouble j2, + SpiceDouble radius ); + + + void spkw17_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble eqel [9], + SpiceDouble rapol, + SpiceDouble decpol ); + + + void spkw18_c ( SpiceInt handle, + SpiceSPK18Subtype subtyp, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + const void * packts, + ConstSpiceDouble epochs[] ); + + + void spkw20_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata[], + SpiceDouble dscale, + SpiceDouble tscale, + SpiceDouble initjd, + SpiceDouble initfr ); + + + + void srfrec_c ( SpiceInt body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble rectan[3] ); + + + void srfc2s_c ( SpiceInt code, + SpiceInt bodyid, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfcss_c ( SpiceInt code, + ConstSpiceChar * bodstr, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfnrm_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble srfpts[][3], + SpiceDouble normls[][3] ); + + + void srfs2c_c ( ConstSpiceChar * srfstr, + ConstSpiceChar * bodstr, + SpiceInt * code, + SpiceBoolean * found ); + + + void srfscc_c ( ConstSpiceChar * surfce, + SpiceInt bodyid, + SpiceInt * surfid, + SpiceBoolean * found ); + + + void srfxpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceBoolean * found ); + + + void ssize_c ( SpiceInt size, + SpiceCell * cell ); + + + void stelab_c ( ConstSpiceDouble pobj[3], + ConstSpiceDouble vobs[3], + SpiceDouble appobj[3] ); + + + void stlabx_c ( ConstSpiceDouble pobj [3], + ConstSpiceDouble vobs [3], + SpiceDouble corpos [3] ); + + + void stpool_c ( ConstSpiceChar * item, + SpiceInt nth, + ConstSpiceChar * contin, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * size, + SpiceBoolean * found ); + + + void str2et_c ( ConstSpiceChar * date, + SpiceDouble * et ); + + + void subpnt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt ); + + void subpt_pl02( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt, + SpiceInt * plateID ); + + + void subslr_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subsol_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint[3] ); + + + void subsol_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceInt * plateID ); + + + SpiceDouble sumad_c ( ConstSpiceDouble array[], + SpiceInt n ); + + + SpiceInt sumai_c ( ConstSpiceInt array[], + SpiceInt n ); + + + void surfnm_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble point[3], + SpiceDouble normal[3] ); + + + void surfpt_c ( ConstSpiceDouble positn[3], + ConstSpiceDouble u[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble point[3], + SpiceBoolean * found ); + + + void surfpv_c ( ConstSpiceDouble stvrtx[6], + ConstSpiceDouble stdir [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble stx [6], + SpiceBoolean * found ); + + + void swpool_c ( ConstSpiceChar * agent, + SpiceInt nnames, + SpiceInt lenvals, + const void * names ); + + + void sxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble xform[6][6] ); + + + void szpool_c ( ConstSpiceChar * name, + SpiceInt * n, + SpiceBoolean * found ); + + + void tangpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble tanpt [3], + SpiceDouble * alt, + SpiceDouble * range, + SpiceDouble srfpt [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void term_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble trmpts [][3], + SpiceInt plateIDs [] ); + + + void termpt_c ( ConstSpiceChar * method, + ConstSpiceChar * ilusrc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void timdef_c ( ConstSpiceChar * action, + ConstSpiceChar * item, + SpiceInt lenout, + SpiceChar * value ); + + + void timout_c ( SpiceDouble et, + ConstSpiceChar * pictur, + SpiceInt lenout, + SpiceChar * output ); + + + void tipbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tipm[3][3] ); + + + void tisbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tsipm[6][6] ); + + + void tkfram_c ( SpiceInt frcode, + SpiceDouble rot [3][3], + SpiceInt * frame, + SpiceBoolean * found ); + + + ConstSpiceChar * tkvrsn_c ( ConstSpiceChar * item ); + + + void tparch_c ( ConstSpiceChar * type ); + + + void tparse_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * sp2000, + SpiceChar * errmsg ); + + + void tpictr_c ( ConstSpiceChar * sample, + SpiceInt lenpictur, + SpiceInt lenerror, + SpiceChar * pictur, + SpiceBoolean * ok, + SpiceChar * error ); + + + SpiceDouble trace_c ( ConstSpiceDouble matrix[3][3] ); + + + void trcdep_c ( SpiceInt * depth ); + + + void trcnam_c ( SpiceInt index, + SpiceInt namelen, + SpiceChar * name ); + + + void trcoff_c ( void ); + + + SpiceDouble trgsep_c ( SpiceDouble et, + ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + void tsetyr_c ( SpiceInt year ); + + + SpiceDouble twopi_c ( void ); + + + void twovec_c ( ConstSpiceDouble axdef [3], + SpiceInt indexa, + ConstSpiceDouble plndef [3], + SpiceInt indexp, + SpiceDouble mout [3][3] ); + + + void twovxf_c ( ConstSpiceDouble axdef [6], + SpiceInt indexa, + ConstSpiceDouble plndef [6], + SpiceInt indexp, + SpiceDouble xform [6][6] ); + + + SpiceDouble tyear_c ( void ); + + + void ucase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ucrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void uddc_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + + SpiceDouble x, + SpiceDouble dx, + SpiceBoolean * isdecr ); + + + void uddf_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + SpiceDouble x, + SpiceDouble dx, + SpiceDouble * deriv ); + + + void udf_c ( SpiceDouble x, + SpiceDouble * value ); + + + void union_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceDouble unitim_c ( SpiceDouble epoch, + ConstSpiceChar * insys, + ConstSpiceChar * outsys ); + + + void unload_c ( ConstSpiceChar * file ); + + + void unorm_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3], + SpiceDouble * vmag ); + + + void unormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout, + SpiceDouble * vmag ); + + + void utc2et_c ( ConstSpiceChar * utcstr, + SpiceDouble * et ); + + + void vadd_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ) ; + + + void vaddg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + void valid_c ( SpiceInt size, + SpiceInt n, + SpiceCell * a ); + + + void vcrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + SpiceDouble vdist_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vdistg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vdot_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + SpiceDouble vdotg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + void vequ_c ( ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void vequg_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vhat_c ( ConstSpiceDouble v1 [3], + SpiceDouble vout[3] ); + + + void vhatg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vlcom_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble sum[3] ); + + + void vlcom3_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble c, + ConstSpiceDouble v3[3], + SpiceDouble sum[3] ); + + + void vlcomg_c ( SpiceInt n, + SpiceDouble a, + ConstSpiceDouble * v1, + SpiceDouble b, + ConstSpiceDouble * v2, + SpiceDouble * sum ); + + + void vminug_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vminus_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + SpiceDouble vnorm_c ( ConstSpiceDouble v1[3] ); + + + SpiceDouble vnormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim ); + + + void vpack_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble v[3] ); + + + void vperp_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + void vprjp_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * plane, + SpiceDouble vout [3] ); + + + void vprjpi_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * projpl, + ConstSpicePlane * invpl, + SpiceDouble vout [3], + SpiceBoolean * found ); + + + void vprojg_c ( ConstSpiceDouble a [], + ConstSpiceDouble b [], + SpiceInt ndim, + SpiceDouble p [] ); + + + void vproj_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + SpiceDouble vrel_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vrelg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + void vrotv_c ( ConstSpiceDouble v[3], + ConstSpiceDouble axis[3], + SpiceDouble theta, + SpiceDouble r[3] ); + + + void vscl_c ( SpiceDouble s, + ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + void vsclg_c ( SpiceDouble s, + ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsep_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + void vsub_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void vsubg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsepg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vtmv_c ( ConstSpiceDouble v1 [3], + ConstSpiceDouble matrix [3][3], + ConstSpiceDouble v2 [3] ); + + + SpiceDouble vtmvg_c ( const void * v1, + const void * matrix, + const void * v2, + SpiceInt nrow, + SpiceInt ncol ); + + + void vupack_c ( ConstSpiceDouble v[3], + SpiceDouble * x, + SpiceDouble * y, + SpiceDouble * z ); + + SpiceBoolean vzero_c ( ConstSpiceDouble v[3] ); + + + SpiceBoolean vzerog_c ( ConstSpiceDouble * v, + SpiceInt ndim ); + + SpiceInt wncard_c ( SpiceCell * window ); + + void wncomd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window, + SpiceCell * result ); + + + void wncond_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wndifd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnelmd_c ( SpiceDouble point, + SpiceCell * window ); + + + void wnexpd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnextd_c ( SpiceChar side, + SpiceCell * window ); + + + void wnfetd_c ( SpiceCell * window, + SpiceInt n, + SpiceDouble * left, + SpiceDouble * right ); + + + void wnfild_c ( SpiceDouble sml, + SpiceCell * window ); + + + void wnfltd_c ( SpiceDouble sml, + SpiceCell * window ); + + + SpiceBoolean wnincd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wninsd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnintd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnreld_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void wnsumd_c ( SpiceCell * window, + SpiceDouble * meas, + SpiceDouble * avg, + SpiceDouble * stddev, + SpiceInt * shortest, + SpiceInt * longest ); + + + void wnunid_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void wnvald_c ( SpiceInt size, + SpiceInt n, + SpiceCell * window ); + + + + void xf2eul_c ( ConstSpiceDouble xform [6][6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble eulang [6], + SpiceBoolean * unique ); + + + void xf2rav_c ( ConstSpiceDouble xform [6][6], + SpiceDouble rot [3][3], + SpiceDouble av [3] ); + + void xfmsta_c ( ConstSpiceDouble input_state [6], + ConstSpiceChar * input_coord_sys, + ConstSpiceChar * output_coord_sys, + ConstSpiceChar * body, + SpiceDouble output_state [6] ); + + void xpose_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void xpose6_c ( ConstSpiceDouble m1 [6][6], + SpiceDouble mout[6][6] ); + + + void xposeg_c ( const void * matrix, + SpiceInt nrow, + SpiceInt ncol, + void * xposem ); + + + void zzgetcml_c( SpiceInt * argc, + SpiceChar *** argv, + SpiceBoolean init ); + + + SpiceBoolean zzgfgeth_c ( void ); + + + void zzgfsavh_c( SpiceBoolean status ); + + + void zzsynccl_c( SpiceTransDir xdir, + SpiceCell * cell ); + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZrnm.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZrnm.h new file mode 100644 index 000000000..2542b343c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZrnm.h @@ -0,0 +1,82 @@ +/* + +-Header_File SpiceZrnm.h ( CSPICE rename assignments ) + +-Abstract + + Reassign CSPICE symbol names to prevent symbol collisions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + Compiled symbol names in CSPICE may collide with symbols in other, + non-SPICE libraries. This file redefines names which have or may + cause a collision. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.0.0, 17-OCT-2011 (EDW) + +-Index_Entries + + Rename assignments for CSPICE functions + +*/ + + +#ifndef HAVE_SPICERENAME_H + +/* +Redefine names causing symbol conflicts: +*/ +#define HAVE_SPICERENAME_H + + /* dpstrf_ may exist in the LAPACK library. */ + + #define dpstrf_ zz_dpstrf_ + + /* Just in case. */ + + #define pi_ zz_pi_ + #define vnorm_ zz_vnorm_ + #define vdist_ zz_vdist_ + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZst.h b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZst.h new file mode 100644 index 000000000..b39a49f05 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/SpiceZst.h @@ -0,0 +1,207 @@ +/* + +-Header_File SpiceZst.h ( Fortran/C string conversion utilities ) + +-Abstract + + Define prototypes for CSPICE Fortran/C string conversion utilities. + + Caution: these prototypes are subject to revision without notice. + + These are private routines and are not part of the official CSPICE + user interface. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.0.0, 24-FEB-2021 (NJB) + + Added prototype for function C_OptEmptyStr. + + -CSPICE Version 6.0.0, 10-JUL-2002 (NJB) + + Added prototype for new functions C2F_MapStrArr and + C2F_MapFixStrArr. + + -CSPICE Version 5.0.0, 18-MAY-2001 (WLT) + + Added #ifdef's to add namespace specification for C++ compilation. + + -CSPICE Version 4.0.0, 14-FEB-2000 (NJB) + + Added prototype for new function C2F_CreateStrArr_Sig. + + -CSPICE Version 3.0.0, 12-JUL-1999 (NJB) + + Added prototype for function C2F_CreateFixStrArr. + Added prototype for function F2C_ConvertTrStrArr. + Removed reference in comments to C2F_CreateStrArr_Sig, which + does not exist. + + -CSPICE Version 2.0.1, 06-MAR-1998 (NJB) + + Type SpiceVoid was changed to void. + + -CSPICE Version 2.0.1, 09-FEB-1998 (EDW) + + Added prototype for F2C_ConvertStrArr. + + -CSPICE Version 2.0.0, 04-JAN-1998 (NJB) + + Added prototype for F2C_ConvertStr. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + protoypes of CSPICE Fortran/C string conversion utilities + +*/ + +#include +#include +#include "SpiceZdf.h" + +#ifndef HAVE_FCSTRINGS_H +#define HAVE_FCSTRINGS_H + +#ifdef __cplusplus +namespace Jpl_NAIF_CSpice { +#endif + + + ConstSpiceChar * C_OptEmptyStr ( ConstSpiceChar * cStr ); + + + SpiceStatus C2F_CreateStr ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStr_Sig ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateFixStrArr ( SpiceInt nStr, + SpiceInt cStrDim, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_CreateStrArr ( SpiceInt, + ConstSpiceChar **, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStrArr_Sig ( SpiceInt nStr, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapFixStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_StrCpy ( ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + void F_Alloc ( SpiceInt, + SpiceChar** ); + + void F2C_ConvertStr ( SpiceInt, + SpiceChar * ); + + void F2C_ConvertStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + void F2C_ConvertTrStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + SpiceStatus F2C_CreateStr ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + void F2C_CreateStr_Sig ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + SpiceStatus F2C_CreateStrArr ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_CreateStrArr_Sig ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_FreeStrArr ( SpiceChar **cStrArr ); + + + SpiceStatus F2C_StrCpy ( SpiceInt, + ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + SpiceInt F_StrLen ( SpiceInt, + ConstSpiceChar * ); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/f2c.h b/Src/Celbody/SPICE/cspice/win_x64/include/f2c.h new file mode 100644 index 000000000..6b99950c3 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/f2c.h @@ -0,0 +1,696 @@ +/* + +-Header_File f2c.h ( CSPICE version of the f2c standard header file ) + +-Abstract + + Perform standard f2c declarations, customized for the host + environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + The standard f2c header file f2c.h must be included by every function + generated by running f2c on Fortran source code. The header f2c.h + includes typedefs used to provide a level of indirection in mapping + Fortran data types to native C data types. For example, Fortran + INTEGER variables are mapped to variables of type integer, where + integer is a C typedef. In the standard f2c.h header, the typedef + integer translates to the C type long. + + Because the standard version of f2c.h does not work on all platforms, + this header file contains two platform-dependent versions of it, + meant to be selected at build time via precompiler switches. The + precompiler switches reference macros defined in SpiceZpl.h to + determine for which host platform the code is targeted. The first + version of f2c.h, which works on most platforms, is copied directly + from the standard version of f2c.h. The second version is intended + for use on the DEC Alpha running Digital Unix and the Sun/Solaris + platform using 64 bit mode and running gcc. On those systems, longs + occupy 8 bytes, as do doubles. Because the Fortran standard requires + that INTEGERS occupy half the storage of DOUBLE PRECISION numbers, + INTEGERS should be mapped to 4-byte ints rather than 8-byte longs + on the platforms having 8-byte longs. In order to achieve this, the + header f2c.h was transformed using the sed command + + sed 's/long //' f2c.h + + The high-level structure of this file is then: + + # if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + + [ Alpha/Digital Unix and Sun Solaris 64 bit mode/gcc + version of f2c.h source code ] + + # else + + [ Standard version of f2c.h source code ] + + # endif + + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 31-JAN-1999 release + are: + + ALPHA-DIGITAL-UNIX + HP + NEXT + PC-LINUX + PC-MS + SGI-IRIX-N32 + SGI-IRIX-NO2 + SUN-SOLARIS + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 4.3.0, 09-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 4.2.0, 09-APR-2014 (EDW) (BVS) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Minor text format correction to eliminate error signal from + OS X cpp. The edit removes leading whitespace from the + final "#endif". + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 4.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 4.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 3.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + + Updated to support linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. See the header + + f2cMang.h + + for further information. + + -CSPICE Version 1.0.0, 07-FEB-1999 (NJB) + +*/ + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +/* +Optionally include name-mangling macros for f2c external symbols. +*/ +#ifdef MIX_C_AND_FORTRAN +#include "f2cMang.h" +#endif + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + +#if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + + /* + MODIFICATION + + The following code is intended to be used on the platforms where + a long is the size of a double and an int is half the + size of a double. + + Note that the comment line below indicating that the header is + "Standard" has been retained from the original, but is no longer + true. + */ + + + + + +/* f2c.h -- Standard Fortran to C header file */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef int integer; +typedef unsigned uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long longint; /* system-dependent */ +typedef unsigned long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef int flag; +typedef int ftnlen; +typedef int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + + /* + This marks the end of the MODIFICATION section version of f2c.h. + */ + +#else + + /* + The following code is the standard f2c.h header. In this + header, an "integer" is defined to be of type long. + + Because the code is copied verbatim, it does not follow the usual + CSPICE indentation pattern. + */ + + +/* f2c.h -- Standard Fortran to C header file */ + + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef long int integer; +typedef unsigned long uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef long int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long long longint; /* system-dependent */ +typedef unsigned long long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/f2cMang.h b/Src/Celbody/SPICE/cspice/win_x64/include/f2cMang.h new file mode 100644 index 000000000..f18fded68 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/f2cMang.h @@ -0,0 +1,390 @@ +/* + +-Header_File f2cMang.h ( f2c external symbol mangling ) + +-Abstract + + Define macros that mangle the external symbols in the f2c F77 and I77 + libraries. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header supports linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. When the flag is defined, this header + defines macros that mangle the f2c library external symbols: + the symbol + + xxx + + gets mapped to + + xxx_f2c + + This mangling prevents name collisions between the f2c + implementations of the F77 and I77 library routines and those + in the corresponding Fortran libraries on a host system. + + The set of external symbols defined in the f2c libraries can + be determined by combining objects from both F77 and I77 into + a single Unix archive libarary, then running the Unix utility + nm on the that archive. If available, an nm option that selects + only external symbols should be invoked. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) It is recommended that use of the features implemented by this + header be avoided if at all possible. There are robustness and + portability problems associated with linking Fortran and C objects + together in one executable. + + 2) When f2c external symbol name mangling is invoked, objects + derived from C code translated from Fortran by f2c won't + link against CSPICE any longer, if these objects reference + the standard f2c external symbols. + + 3) The features implemented by this header have been tested only + under the Sun Solaris GCC, Sun Solaris native ANSI C, and + PC/Linux/gcc environments. + +-Version + + -CSPICE Version 2.0.1, 07-MAR-2009 (NJB) + + Restrictions header section was updated to note successful + testing on the PC/Linux/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + +*/ + + + /* + Define masking macros for f2c external symbols. + */ + #ifdef MIX_C_AND_FORTRAN + + /* + Define the macros only once, if they need to be defined. + */ + #ifndef F2C_MANGLING_DONE + + #define F77_aloc F77_aloc_f2c + #define F_err F_err_f2c + #define L_len L_len_f2c + #define abort_ abort__f2c + #define b_char b_char_f2c + #define c_abs c_abs_f2c + #define c_cos c_cos_f2c + #define c_dfe c_dfe_f2c + #define c_div c_div_f2c + #define c_due c_due_f2c + #define c_exp c_exp_f2c + #define c_le c_le_f2c + #define c_log c_log_f2c + #define c_sfe c_sfe_f2c + #define c_si c_si_f2c + #define c_sin c_sin_f2c + #define c_sqrt c_sqrt_f2c + #define c_sue c_sue_f2c + #define d_abs d_abs_f2c + #define d_acos d_acos_f2c + #define d_asin d_asin_f2c + #define d_atan d_atan_f2c + #define d_atn2 d_atn2_f2c + #define d_cnjg d_cnjg_f2c + #define d_cos d_cos_f2c + #define d_cosh d_cosh_f2c + #define d_dim d_dim_f2c + #define d_exp d_exp_f2c + #define d_imag d_imag_f2c + #define d_int d_int_f2c + #define d_lg10 d_lg10_f2c + #define d_log d_log_f2c + #define d_mod d_mod_f2c + #define d_nint d_nint_f2c + #define d_prod d_prod_f2c + #define d_sign d_sign_f2c + #define d_sin d_sin_f2c + #define d_sinh d_sinh_f2c + #define d_sqrt d_sqrt_f2c + #define d_tan d_tan_f2c + #define d_tanh d_tanh_f2c + #define derf_ derf__f2c + #define derfc_ derfc__f2c + #define do_fio do_fio_f2c + #define do_lio do_lio_f2c + #define do_ud do_ud_f2c + #define do_uio do_uio_f2c + #define do_us do_us_f2c + #define dtime_ dtime__f2c + #define e_rdfe e_rdfe_f2c + #define e_rdue e_rdue_f2c + #define e_rsfe e_rsfe_f2c + #define e_rsfi e_rsfi_f2c + #define e_rsle e_rsle_f2c + #define e_rsli e_rsli_f2c + #define e_rsue e_rsue_f2c + #define e_wdfe e_wdfe_f2c + #define e_wdue e_wdue_f2c + #define e_wsfe e_wsfe_f2c + #define e_wsfi e_wsfi_f2c + #define e_wsle e_wsle_f2c + #define e_wsli e_wsli_f2c + #define e_wsue e_wsue_f2c + #define ef1asc_ ef1asc__f2c + #define ef1cmc_ ef1cmc__f2c + #define en_fio en_fio_f2c + #define erf_ erf__f2c + #define erfc_ erfc__f2c + #define err__fl err__fl_f2c + #define etime_ etime__f2c + #define exit_ exit__f2c + #define f__Aquote f__Aquote_f2c + #define f__buflen f__buflen_f2c + #define f__cabs f__cabs_f2c + #define f__canseek f__canseek_f2c + #define f__cblank f__cblank_f2c + #define f__cf f__cf_f2c + #define f__cnt f__cnt_f2c + #define f__cp f__cp_f2c + #define f__cplus f__cplus_f2c + #define f__cursor f__cursor_f2c + #define f__curunit f__curunit_f2c + #define f__doed f__doed_f2c + #define f__doend f__doend_f2c + #define f__doned f__doned_f2c + #define f__donewrec f__donewrec_f2c + #define f__dorevert f__dorevert_f2c + #define f__elist f__elist_f2c + #define f__external f__external_f2c + #define f__fatal f__fatal_f2c + #define f__fmtbuf f__fmtbuf_f2c + #define f__formatted f__formatted_f2c + #define f__getn f__getn_f2c + #define f__hiwater f__hiwater_f2c + #define f__icend f__icend_f2c + #define f__icnum f__icnum_f2c + #define f__icptr f__icptr_f2c + #define f__icvt f__icvt_f2c + #define f__init f__init_f2c + #define f__inode f__inode_f2c + #define f__lchar f__lchar_f2c + #define f__lcount f__lcount_f2c + #define f__lioproc f__lioproc_f2c + #define f__lquit f__lquit_f2c + #define f__ltab f__ltab_f2c + #define f__ltype f__ltype_f2c + #define f__lx f__lx_f2c + #define f__ly f__ly_f2c + #define f__nonl f__nonl_f2c + #define f__nowreading f__nowreading_f2c + #define f__nowwriting f__nowwriting_f2c + #define f__parenlvl f__parenlvl_f2c + #define f__pc f__pc_f2c + #define f__putbuf f__putbuf_f2c + #define f__putn f__putn_f2c + #define f__r_mode f__r_mode_f2c + #define f__reading f__reading_f2c + #define f__reclen f__reclen_f2c + #define f__recloc f__recloc_f2c + #define f__recpos f__recpos_f2c + #define f__ret f__ret_f2c + #define f__revloc f__revloc_f2c + #define f__rp f__rp_f2c + #define f__scale f__scale_f2c + #define f__sequential f__sequential_f2c + #define f__svic f__svic_f2c + #define f__typesize f__typesize_f2c + #define f__units f__units_f2c + #define f__w_mode f__w_mode_f2c + #define f__workdone f__workdone_f2c + #define f_back f_back_f2c + #define f_clos f_clos_f2c + #define f_end f_end_f2c + #define f_exit f_exit_f2c + #define f_init f_init_f2c + #define f_inqu f_inqu_f2c + #define f_open f_open_f2c + #define f_rew f_rew_f2c + #define fk_open fk_open_f2c + #define flush_ flush__f2c + #define fmt_bg fmt_bg_f2c + #define fseek_ fseek__f2c + #define ftell_ ftell__f2c + #define g_char g_char_f2c + #define getenv_ getenv__f2c + #define h_abs h_abs_f2c + #define h_dim h_dim_f2c + #define h_dnnt h_dnnt_f2c + #define h_indx h_indx_f2c + #define h_len h_len_f2c + #define h_mod h_mod_f2c + #define h_nint h_nint_f2c + #define h_sign h_sign_f2c + #define hl_ge hl_ge_f2c + #define hl_gt hl_gt_f2c + #define hl_le hl_le_f2c + #define hl_lt hl_lt_f2c + #define i_abs i_abs_f2c + #define i_dim i_dim_f2c + #define i_dnnt i_dnnt_f2c + #define i_indx i_indx_f2c + #define i_len i_len_f2c + #define i_mod i_mod_f2c + #define i_nint i_nint_f2c + #define i_sign i_sign_f2c + #define iw_rev iw_rev_f2c + #define l_eof l_eof_f2c + #define l_ge l_ge_f2c + #define l_getc l_getc_f2c + #define l_gt l_gt_f2c + #define l_le l_le_f2c + #define l_lt l_lt_f2c + #define l_read l_read_f2c + #define l_ungetc l_ungetc_f2c + #define l_write l_write_f2c + #define lbit_bits lbit_bits_f2c + #define lbit_cshift lbit_cshift_f2c + #define lbit_shift lbit_shift_f2c + #define mk_hashtab mk_hashtab_f2c + #define nml_read nml_read_f2c + #define pars_f pars_f_f2c + #define pow_ci pow_ci_f2c + #define pow_dd pow_dd_f2c + #define pow_di pow_di_f2c + #define pow_hh pow_hh_f2c + #define pow_ii pow_ii_f2c + #define pow_ri pow_ri_f2c + #define pow_zi pow_zi_f2c + #define pow_zz pow_zz_f2c + #define r_abs r_abs_f2c + #define r_acos r_acos_f2c + #define r_asin r_asin_f2c + #define r_atan r_atan_f2c + #define r_atn2 r_atn2_f2c + #define r_cnjg r_cnjg_f2c + #define r_cos r_cos_f2c + #define r_cosh r_cosh_f2c + #define r_dim r_dim_f2c + #define r_exp r_exp_f2c + #define r_imag r_imag_f2c + #define r_int r_int_f2c + #define r_lg10 r_lg10_f2c + #define r_log r_log_f2c + #define r_mod r_mod_f2c + #define r_nint r_nint_f2c + #define r_sign r_sign_f2c + #define r_sin r_sin_f2c + #define r_sinh r_sinh_f2c + #define r_sqrt r_sqrt_f2c + #define r_tan r_tan_f2c + #define r_tanh r_tanh_f2c + #define rd_ed rd_ed_f2c + #define rd_ned rd_ned_f2c + #define s_cat s_cat_f2c + #define s_cmp s_cmp_f2c + #define s_copy s_copy_f2c + #define s_paus s_paus_f2c + #define s_rdfe s_rdfe_f2c + #define s_rdue s_rdue_f2c + #define s_rnge s_rnge_f2c + #define s_rsfe s_rsfe_f2c + #define s_rsfi s_rsfi_f2c + #define s_rsle s_rsle_f2c + #define s_rsli s_rsli_f2c + #define s_rsne s_rsne_f2c + #define s_rsni s_rsni_f2c + #define s_rsue s_rsue_f2c + #define s_stop s_stop_f2c + #define s_wdfe s_wdfe_f2c + #define s_wdue s_wdue_f2c + #define s_wsfe s_wsfe_f2c + #define s_wsfi s_wsfi_f2c + #define s_wsle s_wsle_f2c + #define s_wsli s_wsli_f2c + #define s_wsne s_wsne_f2c + #define s_wsni s_wsni_f2c + #define s_wsue s_wsue_f2c + #define sig_die sig_die_f2c + #define signal_ signal__f2c + #define system_ system__f2c + #define t_getc t_getc_f2c + #define t_runc t_runc_f2c + #define w_ed w_ed_f2c + #define w_ned w_ned_f2c + #define wrt_E wrt_E_f2c + #define wrt_F wrt_F_f2c + #define wrt_L wrt_L_f2c + #define x_endp x_endp_f2c + #define x_getc x_getc_f2c + #define x_putc x_putc_f2c + #define x_rev x_rev_f2c + #define x_rsne x_rsne_f2c + #define x_wSL x_wSL_f2c + #define x_wsne x_wsne_f2c + #define xrd_SL xrd_SL_f2c + #define y_getc y_getc_f2c + #define y_rsk y_rsk_f2c + #define z_abs z_abs_f2c + #define z_cos z_cos_f2c + #define z_div z_div_f2c + #define z_exp z_exp_f2c + #define z_getc z_getc_f2c + #define z_log z_log_f2c + #define z_putc z_putc_f2c + #define z_rnew z_rnew_f2c + #define z_sin z_sin_f2c + #define z_sqrt z_sqrt_f2c + #define z_wnew z_wnew_f2c + + #define F2C_MANGLING_DONE + + #endif + + + #endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/fio.h b/Src/Celbody/SPICE/cspice/win_x64/include/fio.h new file mode 100644 index 000000000..bb20dd2ca --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/fio.h @@ -0,0 +1,107 @@ +#include "stdio.h" +#include "errno.h" +#ifndef NULL +/* ANSI C */ +#include "stddef.h" +#endif + +#ifndef SEEK_SET +#define SEEK_SET 0 +#define SEEK_CUR 1 +#define SEEK_END 2 +#endif + +#ifdef MSDOS +#ifndef NON_UNIX_STDIO +#define NON_UNIX_STDIO +#endif +#endif + +#ifdef UIOLEN_int +typedef int uiolen; +#else +typedef long uiolen; +#endif + +/*units*/ +typedef struct +{ FILE *ufd; /*0=unconnected*/ + char *ufnm; +#ifndef MSDOS + long uinode; + int udev; +#endif + int url; /*0=sequential*/ + flag useek; /*true=can backspace, use dir, ...*/ + flag ufmt; + flag urw; /* (1 for can read) | (2 for can write) */ + flag ublnk; + flag uend; + flag uwrt; /*last io was write*/ + flag uscrtch; +} unit; + +extern flag f__init; +extern cilist *f__elist; /*active external io list*/ +extern flag f__reading,f__external,f__sequential,f__formatted; +#undef Void +#ifdef KR_headers +#define Void /*void*/ +extern int (*f__getn)(); /* for formatted input */ +extern void (*f__putn)(); /* for formatted output */ +extern void x_putc(); +extern long f__inode(); +extern VOID sig_die(); +extern int (*f__donewrec)(), t_putc(), x_wSL(); +extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); +#else +#define Void void +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__getn)(void); /* for formatted input */ +extern void (*f__putn)(int); /* for formatted output */ +extern void x_putc(int); +extern long f__inode(char*,int*); +extern void sig_die(char*,int); +extern void f__fatal(int,char*); +extern int t_runc(alist*); +extern int f__nowreading(unit*), f__nowwriting(unit*); +extern int fk_open(int,int,ftnint); +extern int en_fio(void); +extern void f_init(void); +extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); +extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); +extern int c_sfe(cilist*), z_rnew(void); +extern int isatty(int); +extern int err__fl(int,int,char*); +extern int xrd_SL(void); +extern int f__putbuf(int); +#ifdef __cplusplus + } +#endif +#endif +extern int (*f__doend)(Void); +extern FILE *f__cf; /*current file*/ +extern unit *f__curunit; /*current unit*/ +extern unit f__units[]; +#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);} +#define errfl(f,m,s) return err__fl((int)f,m,s) + +/*Table sizes*/ +#define MXUNIT 100 + +extern int f__recpos; /*position in current record*/ +extern int f__cursor; /* offset to move to */ +extern int f__hiwater; /* so TL doesn't confuse us */ + +#define WRITE 1 +#define READ 2 +#define SEQ 3 +#define DIR 4 +#define FMT 5 +#define UNF 6 +#define EXT 7 +#define INT 8 + +#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/fmt.h b/Src/Celbody/SPICE/cspice/win_x64/include/fmt.h new file mode 100644 index 000000000..19065a2f0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/fmt.h @@ -0,0 +1,100 @@ +struct syl +{ int op; + int p1; + union { int i[2]; char *s;} p2; + }; +#define RET1 1 +#define REVERT 2 +#define GOTO 3 +#define X 4 +#define SLASH 5 +#define STACK 6 +#define I 7 +#define ED 8 +#define NED 9 +#define IM 10 +#define APOS 11 +#define H 12 +#define TL 13 +#define TR 14 +#define T 15 +#define COLON 16 +#define S 17 +#define SP 18 +#define SS 19 +#define P 20 +#define BN 21 +#define BZ 22 +#define F 23 +#define E 24 +#define EE 25 +#define D 26 +#define G 27 +#define GE 28 +#define L 29 +#define A 30 +#define AW 31 +#define O 32 +#define NONL 33 +#define OM 34 +#define Z 35 +#define ZM 36 +extern int f__pc,f__parenlvl,f__revloc; +typedef union +{ real pf; + doublereal pd; +} ufloat; +typedef union +{ short is; +#ifndef KR_headers + signed +#endif + char ic; + integer il; +#ifdef Allow_TYQUAD + longint ili; +#endif +} Uint; +#ifdef KR_headers +extern int (*f__doed)(),(*f__doned)(); +extern int (*f__dorevert)(); +extern int rd_ed(),rd_ned(); +extern int w_ed(),w_ned(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); +extern int (*f__dorevert)(void); +extern void fmt_bg(void); +extern int pars_f(char*); +extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); +extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); +extern int wrt_E(ufloat*, int, int, int, ftnlen); +extern int wrt_F(ufloat*, int, int, ftnlen); +extern int wrt_L(Uint*, int, ftnlen); +#ifdef __cplusplus + } +#endif +#endif +extern flag f__cblank,f__cplus,f__workdone, f__nonl; +extern char *f__fmtbuf; +extern int f__scale; +#define GET(x) if((x=(*f__getn)())<0) return(x) +#define VAL(x) (x!='\n'?x:' ') +#define PUT(x) (*f__putn)(x) +extern int f__cursor; + +#undef TYQUAD +#ifndef Allow_TYQUAD +#undef longint +#define longint long +#else +#define TYQUAD 14 +#endif + +#ifdef KR_headers +extern char *f__icvt(); +#else +extern char *f__icvt(longint, int*, int*, int); +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/fp.h b/Src/Celbody/SPICE/cspice/win_x64/include/fp.h new file mode 100644 index 000000000..40743d79f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/fp.h @@ -0,0 +1,28 @@ +#define FMAX 40 +#define EXPMAXDIGS 8 +#define EXPMAX 99999999 +/* FMAX = max number of nonzero digits passed to atof() */ +/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ + +#ifdef V10 /* Research Tenth-Edition Unix */ +#include "local.h" +#endif + +/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily + tight) on the maximum number of digits to the right and left of + * the decimal point. + */ + +#ifdef VAX +#define MAXFRACDIGS 56 +#define MAXINTDIGS 38 +#else +#ifdef CRAY +#define MAXFRACDIGS 9880 +#define MAXINTDIGS 9864 +#else +/* values that suffice for IEEE double */ +#define MAXFRACDIGS 344 +#define MAXINTDIGS 308 +#endif +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/lio.h b/Src/Celbody/SPICE/cspice/win_x64/include/lio.h new file mode 100644 index 000000000..012317206 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/lio.h @@ -0,0 +1,74 @@ +/* copy of ftypes from the compiler */ +/* variable types + * numeric assumptions: + * int < reals < complexes + * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX + */ + +/* 0-10 retain their old (pre LOGICAL*1, etc.) */ +/* values to allow mixing old and new objects. */ + +#define TYUNKNOWN 0 +#define TYADDR 1 +#define TYSHORT 2 +#define TYLONG 3 +#define TYREAL 4 +#define TYDREAL 5 +#define TYCOMPLEX 6 +#define TYDCOMPLEX 7 +#define TYLOGICAL 8 +#define TYCHAR 9 +#define TYSUBR 10 +#define TYINT1 11 +#define TYLOGICAL1 12 +#define TYLOGICAL2 13 +#ifdef Allow_TYQUAD +#undef TYQUAD +#define TYQUAD 14 +#endif + +#define LINTW 24 +#define LINE 80 +#define LLOGW 2 +#ifdef Old_list_output +#define LLOW 1.0 +#define LHIGH 1.e9 +#define LEFMT " %# .8E" +#define LFFMT " %# .9g" +#else +#define LGFMT "%.9G" +#endif +/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ +#define LEFBL 24 + +typedef union +{ + char flchar; + short flshort; + ftnint flint; +#ifdef Allow_TYQUAD + longint fllongint; +#endif + real flreal; + doublereal fldouble; +} flex; +extern int f__scale; +#ifdef KR_headers +extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); +extern int l_read(), l_write(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); +extern int l_write(ftnint*, char*, ftnlen, ftnint); +extern void x_wsne(cilist*); +extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); +extern int l_read(ftnint*,char*,ftnlen,ftnint); +extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); +extern int z_rnew(void); +#ifdef __cplusplus + } +#endif +#endif +extern ftnint L_len; diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/rawio.h b/Src/Celbody/SPICE/cspice/win_x64/include/rawio.h new file mode 100644 index 000000000..fd36a4826 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/rawio.h @@ -0,0 +1,41 @@ +#ifndef KR_headers +#ifdef MSDOS +#include "io.h" +#ifndef WATCOM +#define close _close +#define creat _creat +#define open _open +#define read _read +#define write _write +#endif /*WATCOM*/ +#endif /*MSDOS*/ +#ifdef __cplusplus +extern "C" { +#endif +#ifndef MSDOS +#ifdef OPEN_DECL +extern int creat(const char*,int), open(const char*,int); +#endif +extern int close(int); +extern int read(int,void*,size_t), write(int,void*,size_t); +extern int unlink(const char*); +#ifndef _POSIX_SOURCE +#ifndef NON_UNIX_STDIO +extern FILE *fdopen(int, const char*); +#endif +#endif +#endif /*KR_HEADERS*/ + +extern char *mktemp(char*); + +#ifdef __cplusplus + } +#endif +#endif + +#include "fcntl.h" + +#ifndef O_WRONLY +#define O_RDONLY 0 +#define O_WRONLY 1 +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/signal1.h b/Src/Celbody/SPICE/cspice/win_x64/include/signal1.h new file mode 100644 index 000000000..360d8d011 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/signal1.h @@ -0,0 +1,118 @@ +/* + +-Header_File signal1.h (CSPICE version of the f2c signal1.h header file) + +-Abstract + + Define macros associated with signal handling, customized for the + host environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines the macro signal1 referenced in main.c, + which is a generic main routine used in CSPICE executables that + link to code generated by f2c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 03-FEB-2000 release + are: + + ALPHA-DIGITAL-UNIX_C + HP_C + NEXT_C + PC-LINUX_C + PC-MS_C + SGI-IRIX-N32_C + SGI-IRIX-NO2_C + SUN-SOLARIS-GCC_C + SUN-SOLARIS-NATIVE_C + +-Version + + -CSPICE Version 1.0.0, 03-FEB-2000 (NJB) + +*/ + + + + +/* You may need to adjust the definition of signal1 to supply a */ +/* cast to the correct argument type. This detail is system- and */ +/* compiler-dependent. The #define below assumes signal.h declares */ +/* type SIG_PF for the signal function's second argument. */ + +#include + +#ifndef Sigret_t +#define Sigret_t void +#endif +#ifndef Sigarg_t +#ifdef KR_headers +#define Sigarg_t +#else +#ifdef __cplusplus +#define Sigarg_t ... +#else +#define Sigarg_t int +#endif +#endif +#endif /*Sigarg_t*/ + +#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ +#define sig_pf SIG_PF +#else +typedef Sigret_t (*sig_pf)(Sigarg_t); +#endif + +#define signal1(a,b) signal(a,(sig_pf)b) + +#ifdef __cplusplus +#define Sigarg ... +#define Use_Sigarg +#else +#define Sigarg Int n +#define Use_Sigarg n = n /* shut up compiler warning */ +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/zzalloc.h b/Src/Celbody/SPICE/cspice/win_x64/include/zzalloc.h new file mode 100644 index 000000000..0c4a50b7a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/zzalloc.h @@ -0,0 +1,192 @@ +/* + +-Header_File zzalloc.h ( CSPICE memory allocation prototypes and macros ) + +-Abstract + + The memory allocation prototypes and macros for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CSPICE + +-Keywords + + MEMORY + +-Exceptions + + None. + +-Files + + None. + +-Particulars + + The routines maintain a count of the number of mallocs vs. free, + signalling an error if any unreleased memory exists at the end + of an Icy interface call. + + The macro ALLOC_CHECK performs malloc/free test. If used, the macro + should exists at the end of any routine using these memory management + routines. + + Prototypes in this file: + + alloc_count + alloc_SpiceString_C_array + alloc_SpiceString_C_Copy_array + alloc_SpiceDouble_C_array + alloc_SpiceInt_C_array + alloc_SpiceBoolean_C_array + alloc_SpiceString + alloc_SpiceString_Pointer_array + free_SpiceString_C_array + alloc_SpiceMemory + free_SpiceMemory + + Macro definitions in this file: + + ALLOC_CHECK + ALLOC_CHECK_INTRA + +-Examples + + None. + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.4.0, 27-JUL-2021 (EDW) (BVS) + + Added macro ALLOC_CHECK_INTRA. + + Added missing header sections. + + -CSPICE Version 1.3.0, 26-AUG-2016 (EDW) + + Added routine alloc_SpiceBoolean_C_array. + + -CSPICE Version 1.0.3, 02-MAY-2008 (EDW) + + Added alloc_count prototype. + + -CSPICE Version 1.0.2, 10-MAY-2007 (EDW) + + Minor edits to clarify 'size' in alloc_SpiceMemory as + size_t. + + -CSPICE Version 1.0.1, 23-JUN-2005 (EDW) + + Add prototype for alloc_SpiceString_Pointer_array, allocate + an array of pointers to SpiceChar. + + -CSPICE Version 1.0.0, 19-DEC-2003 (EDW) + + Initial release. + +*/ + +#ifndef ZZALLOC_H +#define ZZALLOC_H + + /* + Allocation call prototypes: + */ + int alloc_count (); + + SpiceChar ** alloc_SpiceString_C_array ( int string_length, + int string_count ); + + SpiceChar ** alloc_SpiceString_C_Copy_array ( int array_len , + int string_len, + SpiceChar ** array ); + + SpiceDouble * alloc_SpiceDouble_C_array ( int rows, + int cols ); + + SpiceInt * alloc_SpiceInt_C_array ( int rows, + int cols ); + + SpiceBoolean * alloc_SpiceBoolean_C_array ( int rows, + int cols ); + + SpiceChar * alloc_SpiceString ( int length ); + + SpiceChar ** alloc_SpiceString_Pointer_array( int array_len ); + + void free_SpiceString_C_array ( int dim, + SpiceChar ** array ); + + void * alloc_SpiceMemory ( size_t size ); + + void free_SpiceMemory ( void * ptr ); + + + /* + Simple macro to ensure a zero value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK if ( alloc_count() != 0 ) \ + { \ + setmsg_c ( "Malloc/Free count not zero at end of routine." \ + " Malloc count = #."); \ + errint_c ( "#", alloc_count() ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + + + /* + Simple macro to ensure an expected value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK_INTRA(n) if ( alloc_count() != n ) \ + { \ + setmsg_c ( "Malloc/Free count not expected value." \ + " Malloc count = #1, expected count = #2."); \ + errint_c ( "#1", alloc_count() ); \ + errint_c ( "#2", n ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x64/include/zzerror.h b/Src/Celbody/SPICE/cspice/win_x64/include/zzerror.h new file mode 100644 index 000000000..3af69f2f4 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x64/include/zzerror.h @@ -0,0 +1,86 @@ +/* + +-Abstract + + The error control routine prototypes for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Particulars + + Routines prototyped in this file: + + zzerrorinit + zzerror + +-Examples + + See the examples section in zzerror() and zzerrorinit(). + +-Restrictions + + None. + +-Exceptions + + None. + +-Files + + None. + +-Author_and_Institution + + E. D. Wright (JPL) + +-Literature_References + + None. + +-Version + + -CSPICE 1.1.0 14-JAN-2013 (EDW) + + Added parameter: + + SCALAR_OP + + -CSPICE 1.0.0 17-OCT-2005 (EDW) + + Initial release. + +*/ + +#ifndef ZZERROR_H +#define ZZERROR_H + + const char * zzerror( long cnt ); + void zzerrorinit(); + + #define SCALAR_OP -1 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x64/lib/cspice.lib b/Src/Celbody/SPICE/cspice/win_x64/lib/cspice.lib new file mode 100644 index 000000000..830bb3da8 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/win_x64/lib/cspice.lib differ diff --git a/Src/Celbody/SPICE/cspice/win_x64/lib/csupport.lib b/Src/Celbody/SPICE/cspice/win_x64/lib/csupport.lib new file mode 100644 index 000000000..33979daf5 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/win_x64/lib/csupport.lib differ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCK.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCK.h new file mode 100644 index 000000000..894d4e9a6 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCK.h @@ -0,0 +1,155 @@ +/* + +-Header_File SpiceCK.h ( CSPICE CK definitions ) + +-Abstract + + Perform CSPICE definitions to support CK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE CK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceCK05Subtype Typedef for enum indicating the + mathematical representation used + in an CK type 05 segment. Possible + values and meanings are: + + C05TP0: + + Hermite interpolation, 8- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components. + + Quaternions are unitless. Quaternion + time derivatives have units of + 1/second. + + + C05TP1: + + Lagrange interpolation, 4- + element packets containing + + q0, q1, q2, q3, + + where q0, q1, q2, q3 represent + quaternion components. Quaternion + derivatives are obtained by + differentiating interpolating + polynomials. + + + C05TP2: + + Hermite interpolation, 14- + element packets containing + + q0, q1, q2, q3, + dq0/dt, dq1/dt, dq2/dt dq3/dt, + av0, av1, av2, + dav0/dt, dav1/dt, dav2/dt + + where q0, q1, q2, q3 represent + quaternion components and dq0/dt, + dq1/dt, dq2/dt, dq3/dt represent + quaternion time derivative components, + av0, av1, av2 represent angular + velocity components, and + dav0/dt, dav1/dt, dav2/dt represent + angular acceleration components. + + + C05TP3: + + Lagrange interpolation, 7- + element packets containing + + q0, q1, q2, q3, + av0, av1, av2 + + where q0, q1, q2, q3 represent + quaternion components and + av0, av1, av2 represent angular + velocity components. + + + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 20-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_CK_H + + #define HAVE_SPICE_CK_H + + + + /* + CK type 05 subtype codes: + */ + + enum _SpiceCK05Subtype { C05TP0, C05TP1, C05TP2, C05TP3 }; + + + typedef enum _SpiceCK05Subtype SpiceCK05Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCel.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCel.h new file mode 100644 index 000000000..7b0537e9e --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceCel.h @@ -0,0 +1,441 @@ +/* + +-Header_File SpiceCel.h ( CSPICE Cell definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceCell data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CELLS + +-Particulars + + This header defines structures, macros, and enumerated types that + may be referenced in application code that calls CSPICE cell + functions. + + CSPICE cells are data structures that implement functionality + parallel to that of the cell abstract data type in SPICELIB. In + CSPICE, a cell is a C structure containing bookkeeping information, + including a pointer to an associated data array. + + For numeric data types, the data array is simply a SPICELIB-style + cell, including a valid control area. For character cells, the data + array has the same number of elements as the corresponding + SPICELIB-style cell, but the contents of the control area are not + maintained, and the data elements are null-terminated C-style + strings. + + CSPICE cells should be declared using the declaration macros + provided in this header file. See the table of macros below. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceCell Structure containing CSPICE cell metadata. + + The members are: + + dtype: Data type of cell: character, + integer, or double precision. + + dtype has type + SpiceCellDataType. + + length: For character cells, the + declared length of the + cell's string array. + + size: The maximum number of data + items that can be stored in + the cell's data array. + + card: The cell's "cardinality": the + number of data items currently + present in the cell. + + isSet: Boolean flag indicating whether + the cell is a CSPICE set. + Sets have no duplicate data + items, and their data items are + stored in increasing order. + + adjust: Boolean flag indicating whether + the cell's data area has + adjustable size. Adjustable + size cell data areas are not + currently implemented. + + init: Boolean flag indicating whether + the cell has been initialized. + + base: is a void pointer to the + associated data array. base + points to the start of the + control area of this array. + + data: is a void pointer to the + first data slot in the + associated data array. This + slot is the element following + the control area. + + + ConstSpiceCell A const SpiceCell. + + + + + Declaration Macros + ================== + + Name Description + ---- ---------- + + SPICECHAR_CELL ( name, size, length ) Declare a + character CSPICE + cell having cell + name name, + maximum cell + cardinality size, + and string length + length. The + macro declares + both the cell and + the associated + data array. The + name of the data + array begins with + "SPICE_". + + + SPICEDOUBLE_CELL ( name, size ) Like SPICECHAR_CELL, + but declares a + double precision + cell. + + + SPICEINT_CELL ( name, size ) Like + SPICECHAR_CELL, + but declares an + integer cell. + + Assignment Macros + ================= + + Name Description + ---- ---------- + SPICE_CELL_SET_C( item, i, cell ) Assign the ith + element of a + character cell. + Arguments cell + and item are + pointers. + + SPICE_CELL_SET_D( item, i, cell ) Assign the ith + element of a + double precision + cell. Argument + cell is a + pointer. + + SPICE_CELL_SET_I( item, i, cell ) Assign the ith + element of an + integer cell. + Argument cell is + a pointer. + + + Fetch Macros + ============== + + Name Description + ---- ---------- + SPICE_CELL_GET_C( cell, i, lenout, item ) Fetch the ith + element from a + character cell. + Arguments cell + and item are + pointers. + Argument lenout + is the available + space in item. + + SPICE_CELL_GET_D( cell, i, item ) Fetch the ith + element from a + double precision + cell. Arguments + cell and item are + pointers. + + SPICE_CELL_GET_I( cell, i, item ) Fetch the ith + element from an + integer cell. + Arguments cell + and item are + pointers. + Element Pointer Macros + ====================== + + Name Description + ---- ---------- + SPICE_CELL_ELEM_C( cell, i ) Macro evaluates + to a SpiceChar + pointer to the + ith data element + of a character + cell. Argument + cell is a + pointer. + + SPICE_CELL_ELEM_D( cell, i ) Macro evaluates + to a SpiceDouble + pointer to the + ith data element + of a double + precision cell. + Argument cell is + a pointer. + + SPICE_CELL_ELEM_I( cell, i ) Macro evaluates + to a SpiceInt + pointer to the + ith data element + of an integer + cell. Argument + cell is a + pointer. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 22-AUG-2002 (NJB) + +*/ +#ifndef HAVE_SPICE_CELLS_H + + #define HAVE_SPICE_CELLS_H + + + /* + Data type codes: + */ + typedef enum _SpiceDataType SpiceCellDataType; + + + /* + Cell structure: + */ + struct _SpiceCell + + { SpiceCellDataType dtype; + SpiceInt length; + SpiceInt size; + SpiceInt card; + SpiceBoolean isSet; + SpiceBoolean adjust; + SpiceBoolean init; + void * base; + void * data; }; + + typedef struct _SpiceCell SpiceCell; + + typedef const SpiceCell ConstSpiceCell; + + + /* + SpiceCell control area size: + */ + #define SPICE_CELL_CTRLSZ 6 + + + /* + Declaration macros: + */ + + #define SPICECHAR_CELL( name, size, length ) \ + \ + static SpiceChar SPICE_CELL_##name[SPICE_CELL_CTRLSZ + size][length]; \ + \ + static SpiceCell name = \ + \ + { SPICE_CHR, \ + length, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEDOUBLE_CELL( name, size ) \ + \ + static SpiceDouble SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_DP, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + #define SPICEINT_CELL( name, size ) \ + \ + static SpiceInt SPICE_CELL_##name [SPICE_CELL_CTRLSZ + size]; \ + \ + static SpiceCell name = \ + \ + { SPICE_INT, \ + 0, \ + size, \ + 0, \ + SPICETRUE, \ + SPICEFALSE, \ + SPICEFALSE, \ + (void *) &(SPICE_CELL_##name), \ + (void *) &(SPICE_CELL_##name[SPICE_CELL_CTRLSZ]) } + + + /* + Access macros for individual elements: + */ + + /* + Data element pointer macros: + */ + + #define SPICE_CELL_ELEM_C( cell, i ) \ + \ + ( ( (SpiceChar *) (cell)->data ) + (i)*( (cell)->length ) ) + + + #define SPICE_CELL_ELEM_D( cell, i ) \ + \ + ( ( (SpiceDouble *) (cell)->data )[(i)] ) + + + #define SPICE_CELL_ELEM_I( cell, i ) \ + \ + ( ( (SpiceInt *) (cell)->data )[(i)] ) + + + /* + "Fetch" macros: + */ + + #define SPICE_CELL_GET_C( cell, i, lenout, item ) \ + \ + { \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( (cell)->length, 0, (lenout-1) ) \ + * sizeof ( SpiceChar ); \ + \ + memmove ( (item), SPICE_CELL_ELEM_C((cell), (i)), nBytes ); \ + \ + item[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_GET_D( cell, i, item ) \ + \ + ( (*item) = ( (SpiceDouble *) (cell)->data)[i] ) + + + #define SPICE_CELL_GET_I( cell, i, item ) \ + \ + ( (*item) = ( (SpiceInt *) (cell)->data)[i] ) + + + /* + Assignment macros: + */ + + #define SPICE_CELL_SET_C( item, i, cell ) \ + \ + { \ + SpiceChar * sPtr; \ + SpiceInt nBytes; \ + \ + nBytes = brckti_c ( strlen(item), 0, (cell)->length - 1 ) \ + * sizeof ( SpiceChar ); \ + \ + sPtr = SPICE_CELL_ELEM_C((cell), (i)); \ + \ + memmove ( sPtr, (item), nBytes ); \ + \ + sPtr[nBytes] = NULLCHAR; \ + } + + + #define SPICE_CELL_SET_D( item, i, cell ) \ + \ + ( ( (SpiceDouble *) (cell)->data)[i] = (item) ) + + + #define SPICE_CELL_SET_I( item, i, cell ) \ + \ + ( ( (SpiceInt *) (cell)->data)[i] = (item) ) + + + /* + The enum SpiceTransDir is used to indicate language translation + direction: C to Fortran or vice versa. + */ + enum _SpiceTransDir { C2F = 0, F2C = 1 }; + + typedef enum _SpiceTransDir SpiceTransDir; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDAS.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDAS.h new file mode 100644 index 000000000..72e928755 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDAS.h @@ -0,0 +1,116 @@ + +/* + +-Header_File SpiceDAS.h ( CSPICE DAS-specific definitions ) + +-Abstract + + Perform CSPICE DAS-specific definitions, including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DAS + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE DAS functions. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_DAS_FTSIZE is the maximum number of DAS files that can be + open at any one time. + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that + require a data type specifier. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 07-APR-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_DAS_H + + #define HAVE_SPICE_DAS_H + + + /* + Constants + */ + + + /* + Fortran maximum number of DAS files that can be open at any one time: + */ + #define SPICE_DAS_FTSIZE 5000 + + + /* + DAS data type specifiers used in all DAS routines that require + a data type either as input or to extract data from an output + array. + + SPICE_DAS_CHARDT, + SPICE_DAS_DPDT, + SPICE_DAS_INTDT are data type specifiers which indicate SpiceChar, + SpiceDouble, and SpiceInt respectively. These + parameters are used in all DAS routines that require a + data type specifier. + */ + #define SPICE_DAS_CHARDT 0 + #define SPICE_DAS_DPDT 1 + #define SPICE_DAS_INTDT 2 + + +#endif + +/* +End of header file SpiceDAS.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDLA.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDLA.h new file mode 100644 index 000000000..c429850dc --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDLA.h @@ -0,0 +1,345 @@ +/* + +-Header_File SpiceDLA.h ( CSPICE DLA-specific definitions ) + +-Abstract + + Perform CSPICE DLA-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DLA functions. + + + Macros + ====== + + Dimensions + ---------- + + Name Description + ---- ----------- + SPICE_DLA_DSCSIZ Size of a SPICELIB DLA descriptor, + measured in multiples of the size of a + SpiceInt. A DLA descriptor `DLADescr' + can be declared + + SpiceInt DLADescr [SPICE_DLA_DSCSIZ]; + + This parameter is provided for + compatibility with f2c'd SPICELIB + interfaces; CSPICE wrappers should pass + DLA descriptors via pointers to the + SpiceDLADescr structure defined below. + + + DLA File Offsets + ---------------- + + These parameters are provided to support CSPICE wrapper testing. + + Name Description + ---- ----------- + SPICE_DLA_VERIDX DAS integer address of DLA version code. + + SPICE_DLA_LLBIDX DAS integer addresses of first segment linked + list pointer. + + SPICE_DLA_LLEIDX DAS integer addresses of last segment linked + list pointer. + + + Structure Offsets + ------------------------- + + These parameters are provided to support CSPICE wrapper + implementation. + + + Name Description + ---- ----------- + SPICE_DLA_BWDIDX Backward pointer index in a DLA + descriptor. + + SPICE_DLA_FWDIDX Forward pointer index in a DLA + descriptor. + + SPICE_DLA_IBSIDX Integer base address index in a + DLA descriptor. + + SPICE_DLA_ISZIDX Integer component size index in a + DLA descriptor. + + SPICE_DLA_DBSIDX D.p. base address index in a DLA + descriptor. + + SPICE_DLA_DSZIDX D.p. component size index in a + DLA descriptor. + + SPICE_DLA_CBSIDX Character base address index in a + DLA descriptor. + + SPICE_DLA_CSZIDX Character component size index in a + DLA descriptor. + + + Other DLA parameters + -------------------- + + Name Description + ---- ----------- + SPICE_DLA_NULPTR Null pointer parameter. + + SPICE_DLA_FMTVER DLA format version. + + + Structures + ========== + + DLA API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDLADescr DLA descriptor. + + Note: the "base addresses" described + below are the *predecessors* of the + first addresses occupied by the + respective components of each data type. + + The structure members are: + + bwdptr: backward pointer. Data + type is SpiceInt. + + fwdptr: forward pointer. Data + type is SpiceInt. + + ibase: base DAS address of the + integer component of a + DLA segment. + + isize: number of elements in the + integer component of a + DLA segment. + + dbase: base DAS address of + double precision + component of a DLA + segment. + + dsize: number of elements in the + double precision + component of a DLA + segment. + + cbase: base DAS address of + character component of a + DLA segment. + + csize: number of elements in the + character component of a + DLA segment. + + + + ConstSpiceDLADescr A constant DLA descriptor. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 24-SEP-2021 (JDR) + + Added DLA File Offsets and Other DLA parameters, required for CSPICE + wrappers' testing. + + -CSPICE Version 1.1.0, 21-JAN-2016 (NJB) + + Updated to remove + + f2c_proto.h + dla_proto.h + + The prototypes declared in these headers have been moved + to the files + + SpiceZfc.h + SpiceZpr.h + + -DSKLIB_C Version 1.0.1, 12-FEB-2010 (NJB) + + Updated to include + + f2c_proto.h + dla_proto.h + + + -DSKLIB_C Version 1.0.1, 09-FEB-2007 (NJB) + + Comments were corrected: names of structure members bwdptr and + fwdptr in the comments now match the names used in the structure + definition. + + -DSKLIB_C Version 1.0.0, 26-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DLA_H + + #define HAVE_SPICE_DLA_H + + + + /* + DAS integer address of DLA version code. + */ + #define SPICE_DLA_VERIDX 1 + + /* + Linked list parameters + + Logical arrays (aka "segments") in a DAS linked array (DLA) file + are organized as a doubly linked list. Each logical array may + actually consist of character, double precision, and integer + components. A component of a given data type occupies a + contiguous range of DAS addresses of that type. Any or all + array components may be empty. + + The segment descriptors in a SPICE DLA (DAS linked array) file + are connected by a doubly linked list. Each node of the list is + represented by a pair of integers acting as forward and backward + pointers. Each pointer pair occupies the first two integers of a + segment descriptor in DAS integer address space. The DLA file + contains pointers to the first integers of both the first and + last segment descriptors. + + At the DLA level of a file format implementation, there is + no knowledge of the data contents. Hence segment descriptors + provide information only about file layout (in contrast with + the DAF system). Metadata giving specifics of segment contents + are stored within the segments themselves in DLA-based file + formats. + + + Parameter declarations follow. + + DAS integer addresses of first and last segment linked list + pointer pairs. The contents of these pointers + are the DAS addresses of the first integers belonging + to the first and last link pairs, respectively. + + The acronyms "LLB" and "LLE" denote "linked list begin" + and "linked list end" respectively. + */ + #define SPICE_DLA_LLBIDX SPICE_DLA_VERIDX + 1 + #define SPICE_DLA_LLEIDX SPICE_DLA_LLBIDX + 1 + + /* + Null pointer parameter. + */ + #define SPICE_DLA_NULPTR -1 + + + /* + DLA descriptor dimension: + */ + #define SPICE_DLA_DSCSIZ 8 + + /* + DLA descriptor index parameters: + */ + #define SPICE_DLA_BWDIDX 0 + #define SPICE_DLA_FWDIDX 1 + #define SPICE_DLA_IBSIDX 2 + #define SPICE_DLA_ISZIDX 3 + #define SPICE_DLA_DBSIDX 4 + #define SPICE_DLA_DSZIDX 5 + #define SPICE_DLA_CBSIDX 6 + #define SPICE_DLA_CSZIDX 7 + + + + /* + Structures + */ + + /* + DLA segment descriptor: + */ + struct _SpiceDLADescr + + { SpiceInt bwdptr; + SpiceInt fwdptr; + SpiceInt ibase; + SpiceInt isize; + SpiceInt dbase; + SpiceInt dsize; + SpiceInt cbase; + SpiceInt csize; }; + + typedef struct _SpiceDLADescr SpiceDLADescr; + + /* + Constant DLA segment descriptor: + */ + typedef const SpiceDLADescr ConstSpiceDLADescr; + + + /* + Other DLA parameters: + + + DLA format version. (This number is expected to occur very + rarely at integer address SPICE_DLA_VERIDX in uninitialized DLA files.) + */ + #define SPICE_DLA_FMTVER 1000000 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDSK.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDSK.h new file mode 100644 index 000000000..c6d95d087 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDSK.h @@ -0,0 +1,903 @@ +/* + +-Header_File SpiceDSK.h ( CSPICE DSK-specific definitions ) + +-Abstract + + Perform CSPICE DSK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls + CSPICE DSK functions. + + + General definitions + =================== + + Macros + ====== + + + Dimensions + ---------- + + Name Description + ---- ----------- + + SPICE_DSK_DSCSIZ Size of a Fortran DSK descriptor, + measured in multiples of the size of a + SpiceDouble. A array `descr' containing + such a descriptor can be declared + + SpiceDouble descr[SPICE_DSK_DSCSIZ]; + + Such arrays normally should be used only + in the implementations of CSPICE + wrappers. + + + Data class values + ----------------- + + Name Description + ---- ----------- + + SPICE_DSK_SVFCLS (Class 1) indicates a surface + that can be represented as a single-valued + function of its domain coordinates. + + An example is a surface defined by a + function that maps each planetodetic + longitude and latitude pair to a unique + altitude. + + SPICE_DSK_GENCLS (Class 2) indicates a general surface. + Surfaces that have multiple points for a + given pair of domain coordinates---for + example, multiple radii for a given + latitude and longitude---belong to class + 2. + + + Coordinate system values + ------------------------ + + Name Description + ---- ----------- + + SPICE_DSK_LATSYS Code 1 refers to the planetocentric + latitudinal system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is latitude. The + third coordinate is radius. + + + SPICE_DSK_CYLSYS Code 2 refers to the cylindrical system. + + In this system, the first tangential + coordinate is radius and the second + tangential coordinate is longitude. The + third, orthogonal coordinate is Z. + + + SPICE_DSK_RECSYS Code 3 refers to the rectangular system. + + In this system, the first tangential + coordinate is X and the second + tangential coordinate is Y. The third, + orthogonal coordinate is Z. + + + SPICE_DSK_PDTSYS Code 4 refers to the + planetodetic/geodetic system. + + In this system, the first tangential + coordinate is longitude and the second + tangential coordinate is planetodectic + latitude. The third, orthogonal + coordinate is altitude. + + + Structures + ========== + + + DSK API structures + ------------------ + + Name Description + ---- ----------- + + SpiceDSKDescr DSK descriptor. + + The structure members are: + + surfce: Surface ID code. Data + type is SpiceInt. + + center: Center ID code. Data + type is SpiceInt. + + dclass: Data class ID code. Data + type is SpiceInt. + + dtype: DSK Data type. Data + type is SpiceInt. + + frmcde: Reference frame ID code. Data + type is SpiceInt. + + corsys: Coordinate system ID code. Data + type is SpiceInt. + + corpar: Coordinate system parameters. + Data type is SpiceDouble. This + is an array of length 10. + + co1min: Minimum value of first + coordinate. Data type is + SpiceDouble. + + co1max: Maximum value of first + coordinate. Data type is + SpiceDouble. + + co2min: Minimum value of second + coordinate. Data type is + SpiceDouble. + + co2max: Maximum value of second + coordinate. Data type is + SpiceDouble. + + co3min: Minimum value of third + coordinate. Data type is + SpiceDouble. + + co3max: Maximum value of third + coordinate. Data type is + SpiceDouble. + + start: Coverage start time, expressed + as seconds past J2000 TDB. + + stop: Coverage stop time, expressed + as seconds past J2000 TDB. + + + + ConstSpiceDSKDescr A constant DSK descriptor. + + + + + + Type 2 definitions + ================== + + + Type 2 Macros + ============= + + + Limits on plate model capacity + ------------------------------ + + This section contains parameter descriptions. See declarations + located near the end of the file for parameter values. + + The maximum number of vertices and plates in a single-segment + type 2 plate model are provided here. Larger models must be + distributed across multiple segments, which typically are in + separate files. + + These values can be used to dimension arrays, or to use as limit + checks. + + The value of SPICE_DSK02_MAXPLT is determined from + SPICE_DSK02_MAXVRT via Euler's Formula for simple polyhedra having + triangular faces. + + + Name Description + ---- ----------- + + SPICE_DSK02_MAXVRT Maximum number of vertices the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXPLT Maximum number of plates the + DSK type 2 software will + support in a single segment. + + + SPICE_DSK02_MAXCGR Maximum number of elements permitted + in the coarse voxel grid. This parameter + is not used directly in CSPICE; rather + it is a convenience parameter that mirrors + the parameter MAXCGR declared in the + SPICELIB INCLUDE file + + dsk02.inc + + + SPICE_DSK02_MAXVXP Maximum size of voxel-plate pointer array. + + + SPICE_DSK02_MXNVLS Maximum size of voxel-plate association list. + + + SPICE_DSK02_MAXCEL Maximum size of spatial index cell workspace. + + + SPICE_DSK02_SPAISZ Maximum size of array containing + integer component of spatial index. + This size is used by MKDSK. Many + applications may be able to use + smaller dimensions than the value + specified by this parameter. + + SPICE_DSK02_SPADSZ Size of double precision component + of spatial index. + + + Integer keyword parameters + -------------------------- + + The following parameters may be passed to dski02_c to identify + type 2 DSK shape model SpiceInt type data or model parameters to + be returned. + + + Name Description + ---- ---------- + + SPICE_DSK02_KWNV Number of vertices in model. + + SPICE_DSK02_KWNP Number of plates in model. + + SPICE_DSK02_KWNVXT Total number of voxels in fine grid. + + SPICE_DSK02_KWVGRX Voxel grid extent. This extent is + an array of three integers + indicating the number of voxels in + the X, Y, and Z directions in the + fine voxel grid. + + SPICE_DSK02_KWCGSC Coarse voxel grid scale. The extent + of the fine voxel grid is related to + the extent of the coarse voxel grid + by this scale factor. + + SPICE_DSK02_KWVXPS Size of the voxel-to-plate pointer + list. + + SPICE_DSK02_KWVXLS Voxel-plate correspondence list size. + + SPICE_DSK02_KWVTLS Vertex-plate correspondence list + size. + + SPICE_DSK02_KWPLAT Plate array. For each plate, this + array contains the indices of the + plate's three vertices. The ordering + of the array members is: + + Plate 1 vertex index 1 + Plate 1 vertex index 2 + Plate 1 vertex index 3 + Plate 2 vertex index 1 + ... + + The vertex indices in this array start + at 1 and end at NV, the number of + vertices in the model. + + SPICE_DSK02_KWVXPT Voxel-plate pointer list. This list + contains pointers that map fine + voxels to lists of plates that + intersect those voxels. Note that + only fine voxels belonging to + non-empty coarse voxels are in the + domain of this mapping. + + SPICE_DSK02_KWVXPL Voxel-plate correspondence list. + This list contains lists of plates + that intersect fine voxels. (This + list is the data structure into + which the voxel-to-plate pointers + point.) This list can contain + empty lists. Plate IDs in this + list start at 1 and end at NP, + the number of plates in the model. + + SPICE_DSK02_KWVTPT Vertex-plate pointer list. This list + contains pointers that map vertices + to lists of plates to which those + vertices belong. + + Note that the size of this list is + always NV, the number of vertices. + Hence there's no need for a separate + keyword for the size of this list. + + SPICE_DSK02_KWVTPL Vertex-plate correspondence list. + This list contains, for each vertex, + the indices of the plates to which that + vertex belongs. Plate IDs in this list + start at 1 and end at NP, the number of + plates in the model. + + SPICE_DSK02_KWCGPT Coarse voxel grid pointers. This is + an array of pointers mapping coarse + voxels to lists of pointers in the + voxel-plate pointer list. Each + non-empty coarse voxel maps to a + list of pointers; every fine voxel + contained in a non-empty coarse voxel + has its own pointers. Grid elements + corresponding to empty coarse voxels + contain non-positive values. + + + Double precision keyword parameters + ----------------------------------- + + The following parameters may be passed to dskd02_c to identify + type 2 DSK shape model SpiceDouble type data or model parameters to + be returned. + + + SPICE_DSK02_KWDSC Array containing contents of Fortran + DSK descriptor of segment. Note + that DSK descriptors are not to be + confused with DLA descriptors, which + contain segment component base address + and size information. The dimension of + this array is SPICE_DSK_DSCSIZ. + + SPICE_DSK02_KWVTBD Vertex bounds. This is an array of + six values giving the minimum and + maximum values of each component of the + vertex set. + + SPICE_DSK02_KWVXOR Voxel grid origin. This is the location + of the voxel grid origin in the + body-fixed frame associated with the + target body. + + SPICE_DSK02_KWVXSZ Voxel size. DSK voxels are cubes; the + edge length of each cube is given by the + voxel size. This size applies to the + fine voxel grid. Units are km. + + SPICE_DSK02_KWVERT Vertex coordinates. + + + + + Type 4 definitions + ================== + + To be added post-N0066. + + + API-specific definitions + ======================== + + Parameters for dskxsi_c: + + SPICE_DSKXSI_DCSIZE Size of `dc' output array. + SPICE_DSKXSI_ICSIZE Size of `ic' output array. + + These sizes may be increased in a future version + of the CSPICE Toolkit. + + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 02-NOV-2016 (NJB) + + Removed type 4 macros. + + 21-MAR-2016 (NJB) + + Changed type 2 keyword parameter names to use the + substring DSK02 rather than DSK. + + 26-FEB-2016 (NJB) + + Added parameter declarations for type 2 spatial index. Added + parameter declaration for data class 2. Renamed parameter + SPICE_DSK_MAXCGR to SPICE_DSK02_MAXCGR. Added parameter + declarations for the API dskxsi_c. Removed include statement + for SpiceDLA.h. Made miscellaneous updates to comments. + + DSKLIB_C 02-MAY-2014 (NJB) + + Added include guards for + + SpiceZdf.h + SpiceDLA.h + + Removed reference to + + dsk_proto.h + + Last update was 13-NOV-2012 (NJB) + + Updated to support DSK type 4. The SpiceDSKDescr type and + supporting definitions have been added. The file has been + reorganized so as to group together data type-specific + definitions. + + DSKLIB_C Version 3.0.0, 13-MAY-2010 (NJB) + + Updated for compatibility with new DSK type 2 segment + design. + + DSKLIB_C Version 2.0.0, 12-FEB-2010 (NJB) + + Updated to include + + SpiceDLA.h + f2c_proto.h + dsk_proto.h + + DSKLIB_C Version 1.0.0, 30-OCT-2006 (NJB) + +*/ + +#ifndef HAVE_SPICE_DSK_H + + #define HAVE_SPICE_DSK_H + + /* + Prototypes + */ + #ifndef HAVE_SPICEDEFS_H + #include "SpiceZdf.h" + #endif + + + /* + General Constants + */ + + + /* + Dimension parameters + */ + + /* + Size of a SPICELIB DSK descriptor (in units of d.p. numbers): + */ + #define SPICE_DSK_DSCSIZ 24 + + /* + Number of coordinate system parameters in DSK descriptor: + */ + #define SPICE_DSK_NSYPAR 10 + + + /* + Index parameters + */ + /* + Fortran DSK descriptor index parameters: + */ + #define SPICE_DSK_SRFIDX 0 + #define SPICE_DSK_CTRIDX 1 + #define SPICE_DSK_CLSIDX 2 + #define SPICE_DSK_TYPIDX 3 + #define SPICE_DSK_FRMIDX 4 + #define SPICE_DSK_SYSIDX 5 + #define SPICE_DSK_PARIDX 6 + + /* + The offset between the indices immediately above and below + is given by the parameter SPICE_DSK_NSYPAR. Literal values + are used below for convenience of the reader. + */ + #define SPICE_DSK_MN1IDX 16 + #define SPICE_DSK_MX1IDX 17 + #define SPICE_DSK_MN2IDX 18 + #define SPICE_DSK_MX2IDX 19 + #define SPICE_DSK_MN3IDX 20 + #define SPICE_DSK_MX3IDX 21 + #define SPICE_DSK_BTMIDX 22 + #define SPICE_DSK_ETMIDX 23 + + + + + /* + Data class parameters + */ + + /* + Single-valued surface data class + */ + #define SPICE_DSK_SVFCLS 1 + + /* + General surface data class + */ + #define SPICE_DSK_GENCLS 2 + + + /* + Coordinate system parameters + */ + + /* + Latitudinal coordinate system + */ + #define SPICE_DSK_LATSYS 1 + + /* + Cylindrical coordinate system + */ + #define SPICE_DSK_CYLSYS 2 + + /* + Rectangular coordinate system + */ + #define SPICE_DSK_RECSYS 3 + + /* + Planetodetic coordinate system + */ + #define SPICE_DSK_PDTSYS 4 + + + /* + Structures + */ + + /* + DSK segment descriptor: + */ + struct _SpiceDSKDescr + + { SpiceInt surfce; + SpiceInt center; + SpiceInt dclass; + SpiceInt dtype; + SpiceInt frmcde; + SpiceInt corsys; + SpiceDouble corpar [SPICE_DSK_NSYPAR]; + SpiceDouble co1min; + SpiceDouble co1max; + SpiceDouble co2min; + SpiceDouble co2max; + SpiceDouble co3min; + SpiceDouble co3max; + SpiceDouble start; + SpiceDouble stop; }; + + typedef struct _SpiceDSKDescr SpiceDSKDescr; + + /* + Constant DSK segment descriptor: + */ + typedef const SpiceDSKDescr ConstSpiceDSKDescr; + + + + + /* + + Type 2 definitions + ================== + + */ + + /* + Dimension parameters + */ + + /* + Maximum vertex count for single segment: + */ + #define SPICE_DSK02_MAXVRT 16000002 + + /* + Maximum plate count for single segment: + */ + #define SPICE_DSK02_MAXPLT ( 2 * (SPICE_DSK02_MAXVRT - 2 ) ) + + /* + The maximum allowed number of vertices, not taking into + account shared vertices. + + Note that this value is not sufficient to create a vertex-plate + mapping for a model of maximum plate count. + */ + #define SPICE_DSK02_MAXNPV ( 3 * (SPICE_DSK02_MAXPLT/2) + 1 ) + + /* + Maximum number of fine voxels. + */ + #define SPICE_DSK02_MAXVOX 100000000 + + /* + Maximum size of the coarse voxel grid array (in units of + integers): + */ + #define SPICE_DSK02_MAXCGR 100000 + + /* + Maximum allowed number of vertex or plate + neighbors a vertex may have. + */ + #define SPICE_DSK02_MAXEDG 120 + + + /* + DSK type 2 spatial index parameters + =================================== + + DSK type 2 spatial index integer component + ------------------------------------------ + + +-----------------+ + | VGREXT | (voxel grid extents, 3 integers) + +-----------------+ + | CGRSCL | (coarse voxel grid scale, 1 integer) + +-----------------+ + | VOXNPT | (size of voxel-plate pointer list) + +-----------------+ + | VOXNPL | (size of voxel-plate list) + +-----------------+ + | VTXNPL | (size of vertex-plate list) + +-----------------+ + | CGRPTR | (coarse grid occupancy pointers) + +-----------------+ + | VOXPTR | (voxel-plate pointer array) + +-----------------+ + | VOXPLT | (voxel-plate list) + +-----------------+ + | VTXPTR | (vertex-plate pointer array) + +-----------------+ + | VTXPLT | (vertex-plate list) + +-----------------+ + */ + + /* + Index parameters + */ + + /* + Grid extent index: + */ + #define SPICE_DSK02_SIVGRX 0 + + /* + Coarse grid scale index: + */ + #define SPICE_DSK02_SICGSC ( SPICE_DSK02_SIVGRX + 3 ) + + /* + Voxel pointer count index: + */ + #define SPICE_DSK02_SIVXNP ( SPICE_DSK02_SICGSC + 1 ) + + /* + Voxel-plate list count index: + */ + #define SPICE_DSK02_SIVXNL ( SPICE_DSK02_SIVXNP + 1 ) + + /* + Vertex-plate list count index: + */ + #define SPICE_DSK02_SIVTNL ( SPICE_DSK02_SIVXNL + 1 ) + + /* + Coarse grid pointer array index: + */ + #define SPICE_DSK02_SICGRD ( SPICE_DSK02_SIVTNL + 1 ) + + + /* + Spatial index integer component dimensions + */ + + /* + Size of fixed-size portion of integer component: + */ + #define SPICE_DSK02_IXIFIX ( SPICE_DSK02_MAXCGR + 7 ) + + + /* + + DSK type 2 spatial index double precision component + --------------------------------------------------- + + +-----------------+ + | Vertex bounds | 6 values (min/max for each component) + +-----------------+ + | Voxel origin | 3 elements + +-----------------+ + | Voxel size | 1 element + +-----------------+ + + */ + + + /* + Spatial index double precision indices + */ + + /* + Vertex bounds index: + */ + #define SPICE_DSK02_SIVTBD 0 + + /* + Voxel grid origin index: + */ + #define SPICE_DSK02_SIVXOR ( SPICE_DSK02_SIVTBD + 6 ) + + /* + Voxel size index: + */ + #define SPICE_DSK02_SIVXSZ ( SPICE_DSK02_SIVXOR + 3 ) + + + /* + Spatial index double precision component dimensions + */ + + /* + Size of fixed-size portion of double precision component: + */ + #define SPICE_DSK02_IXDFIX 10 + + /* + Size of double precision component. This is a convenience + parameter chosen to have a name consisent with the + integer spatial index size. + */ + #define SPICE_DSK02_SPADSZ SPICE_DSK02_IXDFIX + + /* + The limits below are used to define a suggested maximum + size for the integer component of the spatial index. + */ + + /* + Maximum number of entries in voxel-plate pointer array: + */ + #define SPICE_DSK02_MAXVXP ( SPICE_DSK02_MAXPLT /2 ) + + /* + Maximum cell size: + */ + #define SPICE_DSK02_MAXCEL 60000000 + + /* + Maximum number of entries in voxel-plate list: + */ + #define SPICE_DSK02_MXNVLS SPICE_DSK02_MAXCEL + \ + ( SPICE_DSK02_MAXVXP / 2 ) + + /* + Spatial index integer component size: + */ + #define SPICE_DSK02_SPAISZ ( SPICE_DSK02_IXIFIX + \ + SPICE_DSK02_MAXVXP + \ + SPICE_DSK02_MXNVLS + \ + SPICE_DSK02_MAXVRT + \ + SPICE_DSK02_MAXNPV ) + + + + + /* + Keyword parameters for SpiceInt data items: + */ + + /* + Index parameters + */ + #define SPICE_DSK02_KWNV 1 + #define SPICE_DSK02_KWNP (SPICE_DSK02_KWNV + 1) + #define SPICE_DSK02_KWNVXT (SPICE_DSK02_KWNP + 1) + #define SPICE_DSK02_KWVGRX (SPICE_DSK02_KWNVXT + 1) + #define SPICE_DSK02_KWCGSC (SPICE_DSK02_KWVGRX + 1) + #define SPICE_DSK02_KWVXPS (SPICE_DSK02_KWCGSC + 1) + #define SPICE_DSK02_KWVXLS (SPICE_DSK02_KWVXPS + 1) + #define SPICE_DSK02_KWVTLS (SPICE_DSK02_KWVXLS + 1) + #define SPICE_DSK02_KWPLAT (SPICE_DSK02_KWVTLS + 1) + #define SPICE_DSK02_KWVXPT (SPICE_DSK02_KWPLAT + 1) + #define SPICE_DSK02_KWVXPL (SPICE_DSK02_KWVXPT + 1) + #define SPICE_DSK02_KWVTPT (SPICE_DSK02_KWVXPL + 1) + #define SPICE_DSK02_KWVTPL (SPICE_DSK02_KWVTPT + 1) + #define SPICE_DSK02_KWCGPT (SPICE_DSK02_KWVTPL + 1) + + + /* + Keyword parameters for SpiceDouble data items: + */ + #define SPICE_DSK02_KWDSC (SPICE_DSK02_KWCGPT + 1) + #define SPICE_DSK02_KWVTBD (SPICE_DSK02_KWDSC + 1) + #define SPICE_DSK02_KWVXOR (SPICE_DSK02_KWVTBD + 1) + #define SPICE_DSK02_KWVXSZ (SPICE_DSK02_KWVXOR + 1) + #define SPICE_DSK02_KWVERT (SPICE_DSK02_KWVXSZ + 1) + + + /* + + Type 4 definitions + ================== + + These definitions should be treated as "SPICE private." They + may change in a future version of the SPICE Toolkit. They + should not be referenced by user applications. + + To be added post-N0066. + + */ + + + + /* + API-specific definitions + ======================== + + Parameters for dskxsi_c: + */ + #define SPICE_DSKXSI_DCSIZE 1 + #define SPICE_DSKXSI_ICSIZE 1 + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDtl.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDtl.h new file mode 100644 index 000000000..7b1018c52 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceDtl.h @@ -0,0 +1,251 @@ + +/* + +-Header_File SpiceDtl.h ( CSPICE DSK tolerance definitions ) + +-Abstract + + Define CSPICE DSK tolerance and margin macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + DSK + +-Particulars + + This file contains declarations of tolerance and margin values + used by the DSK subsystem. + + The values declared in this file are accessible at run time + through the routines + + dskgtl_c {DSK, get tolerance value} + dskstl_c {DSK, set tolerance value} + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 27-FEB-2016 (NJB) + +*/ + + +#ifndef HAVE_SPICE_DSKTOL_H + + #define HAVE_SPICE_DSKTOL_H + + +/* + Parameter declarations + ====================== + + DSK type 2 plate expansion factor + --------------------------------- + + The factor SPICE_DSK_XFRACT is used to slightly expand plates + read from DSK type 2 segments in order to perform ray-plate + intercept computations. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + Plate expansion is done by computing the difference vectors + between a plate's vertices and the plate's centroid, scaling + those differences by (1 + SPICE_DSK_XFRACT), then producing new + vertices by adding the scaled differences to the centroid. This + process doesn't affect the stored DSK data. + + Plate expansion is also performed when surface points are mapped + to plates on which they lie, as is done for illumination angle + computations. + + This parameter is user-adjustable. + */ + #define SPICE_DSK_XFRACT ( 1.0e-10 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYXFR 1 + + + /* + Greedy segment selection factor + ------------------------------- + + The factor SGREED is used to slightly expand DSK segment + boundaries in order to select segments to consider for + ray-surface intercept computations. The effect of this factor is + to make the multi-segment intercept algorithm consider all + segments that are sufficiently close to the ray of interest, even + if the ray misses those segments. + + This expansion is performed to prevent rays from passing through + a target object without any intersection being detected. Such + "false miss" conditions can occur due to round-off errors. + + The exact way this parameter is used is dependent on the + coordinate system of the segment to which it applies, and the DSK + software implementation. This parameter may be changed in a + future version of SPICE. + */ + #define SPICE_DSK_SGREED ( 1.0e-8 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSGR ( SPICE_DSK_KEYXFR + 1 ) + + + /* + Segment pad margin + ------------------ + + The segment pad margin is a scale factor used to determine when a + point resulting from a ray-surface intercept computation, if + outside the segment's boundaries, is close enough to the segment + to be considered a valid result. + + This margin is required in order to make DSK segment padding + (surface data extending slightly beyond the segment's coordinate + boundaries) usable: if a ray intersects the pad surface outside + the segment boundaries; the pad is useless if the intercept is + automatically rejected. + + However, an excessively large value for this parameter is + detrimental, since a ray-surface intercept solution found "in" a + segment will supersede solutions in segments farther from the ray's + vertex. Solutions found outside of a segment thus can mask solutions + that are closer to the ray's vertex by as much as the value of this + margin, when applied to a segment's boundary dimensions. + */ + #define SPICE_DSK_SGPADM ( 1.0e-10 ) + + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYSPM ( SPICE_DSK_KEYSGR + 1 ) + + + /* + Surface-point membership margin + ------------------------------- + + The surface-point membership margin limits the distance + between a point and a surface to which the point is + considered to belong. The margin is a scale factor applied + to the size of the segment containing the surface. + + This margin is used to map surface points to outward + normal vectors at those points. + + If this margin is set to an excessively small value, + routines that make use of the surface-point mapping won't + work properly. + */ + #define SPICE_DSK_PTMEMM ( 1.0e-7 ) + + /* + The keyword for setting or retrieving this factor is + */ + #define SPICE_DSK_KEYPTM ( SPICE_DSK_KEYSPM + 1 ) + + + /* + Angular rounding margin + ----------------------- + + This margin specifies an amount by which angular values + may deviate from their proper ranges without a SPICE error + condition being signaled. + + For example, if an input latitude exceeds pi/2 radians by a + positive amount less than this margin, the value is treated as + though it were pi/2 radians. + + Units are radians. + */ + #define SPICE_DSK_ANGMRG ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYAMG ( SPICE_DSK_KEYPTM + 1 ) + + + /* + Longitude alias margin + ---------------------- + + This margin specifies an amount by which a longitude + value can be outside a given longitude range without + being considered eligible for transformation by + addition or subtraction of 2*pi radians. + + A longitude value, when compared to the endpoints of + a longitude interval, will be considered to be equal + to an endpoint if the value is outside the interval + differs from that endpoint by a magnitude less than + the alias margin. + + + Units are radians. + */ + #define SPICE_DSK_LONALI ( 1.0e-12 ) + + /* + This parameter is not user-adjustable. + + The keyword for retrieving this parameter is + */ + #define SPICE_DSK_KEYLAL ( SPICE_DSK_KEYAMG + 1 ) + + + +#endif + +/* +End of header file SpiceDtl.h +*/ + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEK.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEK.h new file mode 100644 index 000000000..cbe213fb0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEK.h @@ -0,0 +1,448 @@ +/* + +-Header_File SpiceEK.h ( CSPICE EK-specific definitions ) + +-Abstract + + Perform CSPICE EK-specific definitions, including macros and user- + defined types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines macros, enumerated types, structures, and + typedefs that may be referenced in application code that calls CSPICE + EK functions. + + + Macros + ====== + + General limits + -------------- + + Name Description + ---- ---------- + SPICE_EK_MXCLSG Maximum number of columns per segment. + + SPICE_EK_TYPLEN Maximum length of a short string + indicating a data type (one of + {"CHR", "DP", "INT", "TIME"}). Such + strings are returned by some of the + Fortran SPICELIB EK routines, hence also + by their f2c'd counterparts. + + Sizes of EK objects + ------------------- + + Name Description + ---- ---------- + + SPICE_EK_CNAMSZ Maximum length of column name. + SPICE_EK_CSTRLN Length of string required to hold column + name. + SPICE_EK_TNAMSZ Maximum length of table name. + SPICE_EK_TSTRLN Length of string required to hold table + name. + + + Query-related limits + -------------------- + + Name Description + ---- ---------- + + SPICE_EK_MAXQRY Maximum length of an input query. This + value is currently equivalent to + twenty-five 80-character lines. + + SPICE_EK_MAXQSEL Maximum number of columns that may be + listed in the `SELECT clause' of a query. + + SPICE_EK_MAXQTAB Maximum number of tables that may be + listed in the `FROM clause' of a query. + + SPICE_EK_MAXQCON Maximum number of relational expressions + that may be listed in the `constraint + clause' of a query. + + This limit applies to a query when it is + represented in `normalized form': that + is, the constraints have been expressed + as a disjunction of conjunctions of + relational expressions. The number of + relational expressions in a query that + has been expanded in this fashion may be + greater than the number of relations in + the query as orginally written. For + example, the expression + + ( ( A LT 1 ) OR ( B GT 2 ) ) + AND + ( ( C NE 3 ) OR ( D EQ 4 ) ) + + which contains 4 relational expressions, + expands to the equivalent normalized + constraint + + ( ( A LT 1 ) AND ( C NE 3 ) ) + OR + ( ( A LT 1 ) AND ( D EQ 4 ) ) + OR + ( ( B GT 2 ) AND ( C NE 3 ) ) + OR + ( ( B GT 2 ) AND ( D EQ 4 ) ) + + which contains eight relational + expressions. + + + + SPICE_EK_MAXQJOIN Maximum number of tables that can be + joined. + + SPICE_EK_MAXQJCON Maximum number of join constraints + allowed. + + SPICE_EK_MAXQORD Maximum number of columns that may be + used in the `order-by clause' of a query. + + SPICE_EK_MAXQTOK Maximum number of tokens in a query. + Tokens + are reserved words, column names, + parentheses, and values. Literal strings + and time values count as single tokens. + + SPICE_EK_MAXQNUM Maximum number of numeric tokens in a + query. + + SPICE_EK_MAXQCLN Maximum total length of character tokens + in a query. + + SPICE_EK_MAXQSTR Maximum length of literal string values + allowed in queries. + + + Codes + ----- + + Name Description + ---- ---------- + + SPICE_EK_VARSIZ Code used to indicate variable-size + objects. Usually this is used in a + context where a non-negative integer + indicates the size of a fixed-size object + and the presence of this code indicates a + variable-size object. + + The value of this constant must match the + parameter IFALSE used in the Fortran + library SPICELIB. + + + Enumerated Types + ================ + + Enumerated code values + ---------------------- + + Name Description + ---- ---------- + SpiceEKDataType Codes for data types used in the EK + interface: character, double precision, + integer, and "time." + + The values are: + + { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3 } + + + + SpiceEKExprClass Codes for types of expressions that may + appear in the SELECT clause of EK + queries. Values and meanings are: + + + SPICE_EK_EXP_COL Selected item was a + column. The column + may qualified by a + table name. + + SPICE_EK_EXP_FUNC Selected item was + a simple function + invocation of the + form + + F ( ) + + or else was + + COUNT(*) + + SPICE_EK_EXP_EXPR Selected item was a + more general + expression than + those shown above. + + + Numeric values are: + + { SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 } + + + Structures + ========== + + EK API structures + ----------------- + + Name Description + ---- ---------- + + SpiceEKAttDsc EK column attribute descriptor. Note + that this object is distinct from the EK + column descriptors used internally in + the EK routines; those descriptors + contain pointers as well as attribute + information. + + The members are: + + cclass: Column class code. + + dtype: Data type code: has type + SpiceEKDataType. + + strlen: String length. Applies to + SPICE_CHR type. Value is + SPICE_EK_VARSIZ for + variable-length strings. + + size: Column entry size; this is + the number of array + elements in a column + entry. The value is + SPICE_EK_VARSIZ for + variable-size columns. + + indexd: Index flag; value is + SPICETRUE if the column is + indexed, SPICEFALSE + otherwise. + + nullok: Null flag; value is + SPICETRUE if the column + may contain null values, + SPICEFALSE otherwise. + + + + SpiceEKSegSum EK segment summary. This structure + contains user interface level descriptive + information. The structure contains the + following members: + + tabnam The name of the table to + which the segment belongs. + + nrows The number of rows in the + segment. + + ncols The number of columns in + the segment. + + cnames An array of names of + columns in the segment. + Column names may contain + as many as SPICE_EK_CNAMSZ + characters. The array + contains room for + SPICE_EK_MXCLSG column + names. + + cdescrs An array of column + attribute descriptors of + type SpiceEKAttDsc. + The array contains room + for SPICE_EK_MXCLSG + descriptors. The Ith + descriptor corresponds to + the column whose name is + the Ith element of the + array cnames. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.0.0 27-JUL-2002 (NJB) + + Defined SpiceEKDataType using SpiceDataType. Removed declaration + of enum _SpiceEKDataType. + + -CSPICE Version 1.0.0, 05-JUL-1999 (NJB) + + Renamed _SpiceEKAttDsc member "class" to "cclass." The + former name is a reserved word in C++. + + + -CSPICE Version 1.0.0, 24-FEB-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_EK_H + + #define HAVE_SPICE_EK_H + + + + /* + Constants + */ + + /* + Sizes of EK objects: + */ + + #define SPICE_EK_CNAMSZ 32 + #define SPICE_EK_CSTRLN ( SPICE_EK_CNAMSZ + 1 ) + #define SPICE_EK_TNAMSZ 64 + #define SPICE_EK_TSTRLN ( SPICE_EK_TNAMSZ + 1 ) + + + + /* + Maximum number of columns per segment: + */ + + #define SPICE_EK_MXCLSG 100 + + + /* + Maximum length of string indicating data type: + */ + + #define SPICE_EK_TYPLEN 4 + + + /* + Query-related limits (see header for details): + */ + + #define SPICE_EK_MAXQRY 2000 + #define SPICE_EK_MAXQSEL 50 + #define SPICE_EK_MAXQTAB 10 + #define SPICE_EK_MAXQCON 1000 + #define SPICE_EK_MAXQJOIN 10 + #define SPICE_EK_MAXQJCON 100 + #define SPICE_EK_MAXQORD 10 + #define SPICE_EK_MAXQTOK 500 + #define SPICE_EK_MAXQNUM 100 + #define SPICE_EK_MAXQCLN SPICE_EK_MAXQRY + #define SPICE_EK_MAXQSTR 1024 + + + + /* + Code indicating "variable size": + */ + #define SPICE_EK_VARSIZ (-1) + + + + /* + Data type codes: + */ + typedef SpiceDataType SpiceEKDataType; + + + + /* + SELECT clause expression type codes: + */ + enum _SpiceEKExprClass{ SPICE_EK_EXP_COL = 0, + SPICE_EK_EXP_FUNC = 1, + SPICE_EK_EXP_EXPR = 2 }; + + typedef enum _SpiceEKExprClass SpiceEKExprClass; + + + + /* + EK column attribute descriptor: + */ + + struct _SpiceEKAttDsc + + { SpiceInt cclass; + SpiceEKDataType dtype; + SpiceInt strlen; + SpiceInt size; + SpiceBoolean indexd; + SpiceBoolean nullok; }; + + typedef struct _SpiceEKAttDsc SpiceEKAttDsc; + + + + /* + EK segment summary: + */ + + struct _SpiceEKSegSum + + { SpiceChar tabnam [SPICE_EK_TSTRLN]; + SpiceInt nrows; + SpiceInt ncols; + SpiceChar cnames [SPICE_EK_MXCLSG][SPICE_EK_CSTRLN]; + SpiceEKAttDsc cdescrs[SPICE_EK_MXCLSG]; }; + + typedef struct _SpiceEKSegSum SpiceEKSegSum; + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEll.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEll.h new file mode 100644 index 000000000..d0c123ab0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceEll.h @@ -0,0 +1,115 @@ +/* + +-Header_File SpiceEll.h ( CSPICE Ellipse definitions ) + +-Abstract + + Perform CSPICE definitions for the SpiceEllipse data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Ellipse functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpiceEllipse Structure representing an ellipse in 3- + dimensional space. + + The members are: + + center: Vector defining ellipse's + center. + + semiMajor: Vector defining ellipse's + semi-major axis. + + semiMinor: Vector defining ellipse's + semi-minor axis. + + The ellipse is the set of points + + {X: X = center + + cos(theta) * semiMajor + + sin(theta) * semiMinor, + + theta in [0, 2*Pi) } + + + ConstSpiceEllipse A const SpiceEllipse. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_ELLIPSES + + #define HAVE_SPICE_ELLIPSES + + + + /* + Ellipse structure: + */ + + struct _SpiceEllipse + + { SpiceDouble center [3]; + SpiceDouble semiMajor [3]; + SpiceDouble semiMinor [3]; }; + + typedef struct _SpiceEllipse SpiceEllipse; + + typedef const SpiceEllipse ConstSpiceEllipse; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceErr.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceErr.h new file mode 100644 index 000000000..21e76605c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceErr.h @@ -0,0 +1,141 @@ +/* + +-Header_File SpiceErr.h ( CSPICE error handling definitions ) + +-Abstract + + Perform CSPICE definitions for error handling APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE error handling functions. + + + CONSTANTS + ========== + + Name Description + ---- ---------- + + SPICE_ERROR_LMSGLN Maximum length of a long error message, + including the null terminator. + + SPICE_ERROR_SMSGLN Maximum length of a short error message, + including the null terminator. + + SPICE_ERROR_XMSGLN Maximum length of a short error + explanation message, including the null + terminator. + + SPICE_ERROR_MODLEN Maximum length of a module name + appearing in the traceback message, + including the null terminator. + + SPICE_ERROR_MAXMOD Maximum count of module names + appearing in the traceback message. + + SPICE_ERROR_TRCLEN Maximum length of a traceback message, + including the null terminator. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 05-NOV-2013 (NJB) + +*/ + +#ifndef HAVE_SPICE_ERROR_HANDLING + + #define HAVE_SPICE_ERROR_HANDLING + + + /* + Local constants + */ + #define ARROWLEN 5 + + /* + Public constants + */ + + /* + Long error message length, which is equal to + + ( 23 * 80 ) + 1 + + */ + #define SPICE_ERROR_LMSGLN 1841 + + /* + Short error message length: + */ + #define SPICE_ERROR_SMSGLN 26 + + /* + Short error message explanation length: + */ + #define SPICE_ERROR_XMSGLN 81 + + /* + Module name length for traceback entries: + */ + #define SPICE_ERROR_MODLEN 33 + + /* + Maximum module count for traceback string: + */ + #define SPICE_ERROR_MAXMOD 100 + + /* + Maximum length of traceback string returned + by qcktrc_c. + */ + #define SPICE_ERROR_TRCLEN ( ( SPICE_ERROR_MAXMOD \ + * ( SPICE_ERROR_MODLEN-1 ) ) \ + + ( ARROWLEN \ + * ( SPICE_ERROR_MAXMOD-1 ) ) \ + + 1 ) +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceFrm.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceFrm.h new file mode 100644 index 000000000..89b5c4d08 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceFrm.h @@ -0,0 +1,243 @@ +/* + +-Header_File SpiceFrm.h ( CSPICE frame subsystem definitions ) + +-Abstract + + Perform CSPICE definitions for frame subsystem APIs. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CK + FRAMES + PCK + +-Particulars + + This header defines constants that may be referenced in + application code that calls CSPICE frame subsystem APIs. + + + CONSTANTS + ========== + + + Frame counts + ------------ + + The following parameter are counts of built-in frames. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE files + + ninert.inc + nninrt.inc + + Name Description + ---- ---------- + + SPICE_NFRAME_NINERT Number of built-in inertial frames. + SPICE_NFRAME_NNINRT Number of built-in non-inertial frames. + + + + Frame classes + ------------- + + The following parameters identify SPICE frame classes. These + parameters correspond to those defined in the SPICELIB Fortran + INCLUDE file frmtyp.inc. See the Frames Required Reading for a + detailed discussion of frame classes. + + + Name Description + ---- ---------- + + SPICE_FRMTYP_INERTL an inertial frame that is listed in the + f2c'd routine chgirf_ and that requires + no external file to compute the + transformation from or to any other + inertial frame. + + + SPICE_FRMTYP_PCK is a frame that is specified relative + to some built-in, inertial frame (of + class SPICE_FRMTYP_INERTL) and that has + an IAU model that may be retrieved from + the PCK system via a call to the + routine tisbod_c. + + + SPICE_FRMTYP_CK is a frame defined by a C-kernel. + + + SPICE_FRMTYP_TK is a "text kernel" frame. These frames + are offset from their associated + "relative" frames by a constant + rotation. + + + SPICE_FRMTYP_DYN is a "dynamic" frame. These currently + are limited to parameterized frames + where the full frame definition depends + on parameters supplied via a frame + kernel. + + SPICE_FRMTYP_SWTCH is a "switch" frame. These frames have + orientation defined by their alignment with + base frames selected from a prioritized list. + The base frames optionally have associated + time intervals of applicability. + + SPICE_FRMTYP_ALL indicates any of the above classes. + This parameter is used in APIs that + fetch information about frames of a + specified class. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.2.0, 26-AUG-2021 (JDR) (NJB) (BVS) + + Added parameter SWTCH to support the switch frame class. + + Increased the number of non-inertial frames from 106 to 124 + in order to accommodate the following PCK based frames: + + IAU_52_EUROPA + IAU_NIX + IAU_HYDRA + IAU_RYUGU + IAU_ARROKOTH + IAU_DIDYMOS_BARYCENTER + IAU_DIDYMOS + IAU_DIMORPHOS + IAU_DONALDJOHANSON + IAU_EURYBATES + IAU_EURYBATES_BARYCENTER + IAU_QUETA + IAU_POLYMELE + IAU_LEUCUS + IAU_ORUS + IAU_PATROCLUS_BARYCENTER + IAU_PATROCLUS + IAU_MENOETIUS + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.1.0, 25-JAN-2016 (EDW) + + Increased the number of non-inertial frames from 105 to 106 + in order to accommodate the following PCK based frame: + + IAU_BENNU + + This value matches that listed in nninrt.inc. + + -CSPICE Version 1.0.0, 23-MAY-2012 (NJB) + +*/ + +#ifndef HAVE_SPICE_FRAME_DEFS + + #define HAVE_SPICE_FRAME_DEFS + + + /* + Frame counts: + */ + + /* + Number of built-in inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file ninert.inc. + */ + #define SPICE_NFRAME_NINERT 21 + + /* + Number of built-in non-inertial frames. This number must be kept in + sync with that defined in the SPICELIB include file nninrt.inc. + */ + #define SPICE_NFRAME_NNINRT 124 + + + + /* + The frame class codes defined here are identical + to those used in SPICELIB. + */ + + /* + Inertial, built-in frames: + */ + #define SPICE_FRMTYP_INERTL 1 + + /* + PCK frames: + */ + #define SPICE_FRMTYP_PCK 2 + + /* + CK frames: + */ + #define SPICE_FRMTYP_CK 3 + + /* + TK frames: + */ + #define SPICE_FRMTYP_TK 4 + + /* + Dynamic frames: + */ + #define SPICE_FRMTYP_DYN 5 + + /* + Switch frames: + */ + #define SPICE_FRMTYP_SWTCH 6 + + /* + All frame classes: + */ + #define SPICE_FRMTYP_ALL ( -1 ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceGF.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceGF.h new file mode 100644 index 000000000..fec0986b7 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceGF.h @@ -0,0 +1,351 @@ +/* + +-Header_File SpiceGF.h ( CSPICE GF-specific definitions ) + +-Abstract + + Perform CSPICE GF-specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + GF + +-Keywords + + GEOMETRY + SEARCH + +-Exceptions + + None + +-Files + + None + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE GF functions. + + + Macros + ====== + + Workspace parameters + -------------------- + + CSPICE applications normally don't declare workspace arguments + and therefore don't directly reference workspace size parameters. + However, CSPICE GF APIs dealing with numeric constraints + dynamically allocate workspace memory; the amount allocated + depends on the number of intervals the workspace windows can + hold. This amount is an input argument to the GF numeric quantity + APIs. + + The parameters below are used to calculate the amount of memory + required. Each workspace window contains 6 double precision + numbers in its control area and 2 double precision numbers for + each interval it can hold. + + + Name Description + ---- ---------- + SPICE_GF_NWMAX Maximum number of windows required for + a user-defined workspace array. + + SPICE_GF_NWDIST Number of workspace windows used by + gfdist_c and the underlying SPICELIB + routine GFDIST. + + SPICE_GF_NWILUM Number of workspace windows used by + gfilum_c and the underlying SPICELIB + routine GFILUM. + + SPICE_GF_NWSEP Number of workspace windows used by + gfsep_c and the underlying SPICELIB + routine GFSEP. + + SPICE_GF_NWRR Number of workspace windows used by + gfrr_c and the underlying SPICELIB + routine GFRR. + + SPICE_GF_NWPA Number of workspace windows used by + gfpa_c and the underlying SPICELIB + routine GFPA. + + + Field of view (FOV) parameters + ------------------------------ + + Name Description + ---- ---------- + SPICE_GF_MAXVRT Maximum allowed number of boundary + vectors for a polygonal FOV. + + SPICE_GF_CIRFOV Parameter identifying a circular FOV. + + SPICE_GF_ELLFOV Parameter identifying a elliptical FOV. + + SPICE_GF_POLFOV Parameter identifying a polygonal FOV. + + SPICE_GF_RECFOV Parameter identifying a rectangular FOV. + + SPICE_GF_SHPLEN Parameter specifying maximum length of + a FOV shape name. + + SPICE_GF_MARGIN is a small positive number used to + constrain the orientation of the + boundary vectors of polygonal FOVs. Such + FOVs must satisfy the following + constraints: + + 1) The boundary vectors must be + contained within a right circular + cone of angular radius less than + than (pi/2) - SPICE_GF_MARGIN radians; + in other words, there must be a vector + A such that all boundary vectors + have angular separation from A of + less than (pi/2)-SPICE_GF_MARGIN + radians. + + 2) There must be a pair of boundary + vectors U, V such that all other + boundary vectors lie in the same + half space bounded by the plane + containing U and V. Furthermore, all + other boundary vectors must have + orthogonal projections onto a plane + normal to this plane such that the + projections have angular separation + of at least 2*SPICE_GF_MARGIN radians + from the plane spanned by U and V. + + SPICE_GF_MARGIN is currently set to 1.e-12. + + + Occultation parameters + ---------------------- + + SPICE_GF_ANNULR Parameter identifying an "annular + occultation." This geometric condition + is more commonly known as a "transit." + The limb of the background object must + not be blocked by the foreground object + in order for an occultation to be + "annular." + + SPICE_GF_ANY Parameter identifying any type of + occultation or transit. + + SPICE_GF_FULL Parameter identifying a full + occultation: the foreground body + entirely blocks the background body. + + SPICE_GF_PARTL Parameter identifying an "partial + occultation." This is an occultation in + which the foreground body blocks part, + but not all, of the limb of the + background body. + + + + Target shape parameters + ----------------------- + + SPICE_GF_EDSHAP Parameter indicating a target object's + shape is modeled as an ellipsoid. + + SPICE_GF_PTSHAP Parameter indicating a target object's + shape is modeled as a point. + + SPICE_GF_RYSHAP Parameter indicating a target object's + "shape" is modeled as a ray emanating + from an observer's location. This model + may be used in visibility computations + for targets whose direction, but not + position, relative to an observer is + known. + + SPICE_GF_SPSHAP Parameter indicating a target object's + shape is modeled as a sphere. + + + + Search parameters + ----------------- + + These parameters affect the manner in which GF searches are + performed. + + SPICE_GF_ADDWIN is a parameter used in numeric quantity + searches that use an equality + constraint. This parameter is used to + expand the confinement window (the + window over which the search is + performed) by a small amount at both + ends. This expansion accommodates the + case where a geometric quantity is equal + to a reference value at a boundary point + of the original confinement window. + + SPICE_GF_CNVTOL is the default convergence tolerance + used by GF routines that don't support a + user-supplied tolerance value. GF + searches for roots will terminate when a + root is bracketed by times separated by + no more than this tolerance. Units are + seconds. + + Configuration parameter + ----------------------- + + SPICE_GFEVNT_MAXPAR Parameter indicating the maximum number of + elements needed for the 'qnames' and 'q*pars' + arrays used in gfevnt_c. + + SpiceChar qcpars[SPICE_GFEVNT_MAXPAR][LNSIZE]; + SpiceDouble qdpars[SPICE_GFEVNT_MAXPAR]; + SpiceInt qipars[SPICE_GFEVNT_MAXPAR]; + SpiceBoolean qlpars[SPICE_GFEVNT_MAXPAR]; + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + L.S. Elson (JPL) + +-Version + + -CSPICE Version 2.1.2, 05-FEB-2020 (JDR) + + Corrected description of parameter SPICE_GF_MARGIN. + + -CSPICE Version 2.1.1, 29-NOV-2016 (NJB) + + Corrected description of parameter SPICE_GF_SPSHAP. + + -CSPICE Version 2.1.0, 23-FEB-2012 (NJB) + + Added parameters: + + SPICE_GF_NWILUM + SPICE_GF_NWRR + SPICE_GF_NWPA + + -CSPICE Version 2.0.0, 23-JUN-2009 (NJB) + + Added parameter for maximum length of FOV shape string. + + -CSPICE Version 1.0.0, 11-MAR-2009 (NJB) + +*/ + + +#ifndef HAVE_SPICE_GF_H + + #define HAVE_SPICE_GF_H + + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Workspace parameters + */ + #define SPICE_GF_NWMAX 15 + #define SPICE_GF_NWDIST 5 + #define SPICE_GF_NWILUM 5 + #define SPICE_GF_NWSEP 5 + #define SPICE_GF_NWRR 5 + #define SPICE_GF_NWPA 5 + + + /* + Field of view (FOV) parameters + */ + #define SPICE_GF_MAXVRT 10000 + #define SPICE_GF_CIRFOV "CIRCLE" + #define SPICE_GF_ELLFOV "ELLIPSE" + #define SPICE_GF_POLFOV "POLYGON" + #define SPICE_GF_RECFOV "RECTANGLE" + #define SPICE_GF_SHPLEN 10 + #define SPICE_GF_MARGIN ( 1.e-12 ) + + + /* + Occultation parameters + */ + #define SPICE_GF_ANNULR "ANNULAR" + #define SPICE_GF_ANY "ANY" + #define SPICE_GF_FULL "FULL" + #define SPICE_GF_PARTL "PARTIAL" + + + /* + Target shape parameters + */ + #define SPICE_GF_EDSHAP "ELLIPSOID" + #define SPICE_GF_PTSHAP "POINT" + #define SPICE_GF_RYSHAP "RAY" + #define SPICE_GF_SPSHAP "SPHERE" + + + /* + Search parameters + */ + #define SPICE_GF_ADDWIN 1.0 + #define SPICE_GF_CNVTOL 1.e-6 + + + /* + Configuration parameters. + */ + #define SPICE_GFEVNT_MAXPAR 10 + + +#endif + + +/* + End of header file SpiceGF.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOccult.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOccult.h new file mode 100644 index 000000000..0caab7c3c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOccult.h @@ -0,0 +1,147 @@ +/* + +-Header_File SpiceOccult.h ( CSPICE Occultation specific definitions ) + +-Abstract + + Perform CSPICE occultation specific definitions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Keywords + + OCCULTATION + GEOMETRY + ELLIPSOID + +-Exceptions + + None + +-Files + + None + +-Particulars + + The following integer codes indicate the geometric relationship + of the three bodies. + + The meaning of the sign of each code is given below. + + Code sign Meaning + --------- ------------------------------ + > 0 The second ellipsoid is + partially or fully occulted + by the first. + + < 0 The first ellipsoid is + partially of fully + occulted by the second. + + = 0 No occultation. + + The meanings of the codes are given below. The variable names + indicate the type of occultation and which target is in the back. + For example, SPICE_OCCULT_TOTAL1 represents a total occultation in which + the first target is in the back (or occulted by) the second target. + + Name Code Meaning + ------ ----- ------------------------------ + SPICE_OCCULT_TOTAL1 -3 Total occultation of first + target by second. + + SPICE_OCCULT_ANNLR1 -2 Annular occultation of first + target by second. The second + target does not block the limb + of the first. + + SPICE_OCCULT_PARTL1 -1 Partial occultation of first + target by second target. + + SPICE_OCCULT_NOOCC 0 No occultation or transit: both + objects are completely visible + to the observer. + + SPICE_OCCULT_PARTL2 1 Partial occultation of second + target by first target. + + SPICE_OCCULT_ANNLR2 2 Annular occultation of second + target by first. + + SPICE_OCCULT_TOTAL2 3 Total occultation of second + target by first. + +-Examples + + None + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + S.C. Krening (JPL) + N.J. Bachman (JPL) + +-Version + + -CSPICE Version 1.0.0, 23-FEB-2012 (SCK) + +*/ + + +#ifndef HAVE_SPICE_OCCULT_H + + #define HAVE_SPICE_OCCULT_H + + /* + See the Particulars section above for parameter descriptions. + */ + + /* + Occultation parameters + */ + + #define SPICE_OCCULT_TOTAL1 -3 + #define SPICE_OCCULT_ANNLR1 -2 + #define SPICE_OCCULT_PARTL1 -1 + #define SPICE_OCCULT_NOOCC 0 + #define SPICE_OCCULT_PARTL2 1 + #define SPICE_OCCULT_ANNLR2 2 + #define SPICE_OCCULT_TOTAL2 3 + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOsc.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOsc.h new file mode 100644 index 000000000..9bb9a937b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceOsc.h @@ -0,0 +1,86 @@ +/* + +-Header_File SpiceOsc.h ( CSPICE osculating element definitions ) + +-Abstract + + Perform CSPICE definitions for osculating element routines. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE osculating element functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_OSCLTX_NELTS Length of output element array + returned by oscltx_c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 25-JAN-2017 (NJB) + +*/ + +#ifndef HAVE_SPICE_OSC + + #define HAVE_SPICE_OSC + + + /* + Constants + */ + #define SPICE_OSCLTX_NELTS 20 + +#endif + + +/* + End of header file SpiceOsc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpicePln.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpicePln.h new file mode 100644 index 000000000..839fb1560 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpicePln.h @@ -0,0 +1,106 @@ +/* + +-Header_File SpicePln.h ( CSPICE Plane definitions ) + +-Abstract + + Perform CSPICE definitions for the SpicePlane data type. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines structures and typedefs that may be referenced in + application code that calls CSPICE Plane functions. + + + Structures + ========== + + Name Description + ---- ---------- + + SpicePlane Structure representing a plane in 3- + dimensional space. + + The members are: + + normal: Vector normal to plane. + + constant: Constant of plane equation + + Plane = + + {X: = constant} + + + + ConstSpicePlane A const SpicePlane. + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 04-MAR-1999 (NJB) + +*/ + +#ifndef HAVE_SPICE_PLANES + + #define HAVE_SPICE_PLANES + + + + /* + Plane structure: + */ + + struct _SpicePlane + + { SpiceDouble normal [3]; + SpiceDouble constant; }; + + typedef struct _SpicePlane SpicePlane; + + typedef const SpicePlane ConstSpicePlane; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSCLK.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSCLK.h new file mode 100644 index 000000000..64053efcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSCLK.h @@ -0,0 +1,90 @@ + +/* + +-Header_File SpiceSCLK.h ( CSPICE SCLK-specific definitions ) + +-Abstract + + Perform CSPICE definitions to support SCLK wrapper interfaces, + including macros. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + SCLK + +-Particulars + + This header defines macros that may be referenced in application + code that calls CSPICE SCLK interfaces. + + The parameters below define sizes and limits used by the SCLK system. + + Macros + ====== + + Name Description + ---- ----------- + SPICE_SCLK_MXPART is the maximum number of partitions in a given + SCLK file. + +-Literature_References + + None. + +-Author_and_Institution + + J. Diaz del Rio (ODC Space) + +-Restrictions + + It is recommended that the default values defined in this file be + changed only by expert SPICE users. + +-Version + + -CSPICE Version 1.0.0, 16-SEP-2020 (JDR) + +*/ + + +#ifndef HAVE_SPICE_SCLK_H + + #define HAVE_SPICE_SCLK_H + + + /* + Maximum number of partitions in a SCLK file: + */ + #define SPICE_SCLK_MXPART 9999 + + +#endif + +/* +End of header file SpiceSCLK.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSPK.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSPK.h new file mode 100644 index 000000000..a4c8eac5f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSPK.h @@ -0,0 +1,128 @@ +/* + +-Header_File SpiceSPK.h ( CSPICE SPK definitions ) + +-Abstract + + Perform CSPICE definitions to support SPK wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines types that may be referenced in + application code that calls CSPICE SPK functions. + + Typedef + ======= + + Name Description + ---- ---------- + + SpiceSPK18Subtype Typedef for enum indicating the + mathematical representation used + in an SPK type 18 segment. Possible + values and meanings are: + + S18TP0: + + Hermite interpolation, 12- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt, + vx, vy, vz, dvx/dt, dvy/dt, dvz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. Note well: vx, vy, and + vz *are not necessarily equal* to the + time derivatives of x, y, and z. + This packet structure mimics that of + the Rosetta/MEX orbit file from which + the data are taken. + + Position units are kilometers, + velocity units are kilometers per + second, and acceleration units are + kilometers per second per second. + + + S18TP1: + + Lagrange interpolation, 6- + element packets containing + + x, y, z, dx/dt, dy/dt, dz/dt + + where x, y, z represent Cartesian + position components and vx, vy, vz + represent Cartesian velocity + components. + + Position units are kilometers; + velocity units are kilometers per + second. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 16-AUG-2002 (NJB) + +*/ + +#ifndef HAVE_SPICE_SPK_H + + #define HAVE_SPICE_SPK_H + + + + /* + SPK type 18 subtype codes: + */ + + enum _SpiceSPK18Subtype { S18TP0, S18TP1 }; + + + typedef enum _SpiceSPK18Subtype SpiceSPK18Subtype; + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSrf.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSrf.h new file mode 100644 index 000000000..97537426c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceSrf.h @@ -0,0 +1,94 @@ +/* + +-Header_File SpiceSrf.h ( CSPICE surface definitions ) + +-Abstract + + Perform CSPICE definitions for surface name-ID mapping. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines constants that may be referenced in application + code that calls CSPICE surface name-ID mapping functions. + + + Constants + ========== + + Name Description + ---- ---------- + + SPICE_SRF_SFNMLN Maximum length of a surface name, + including the terminating null + character. + + SPICE_SRF_MAXSRF Maximum number of surfaces that + can be accommodated in a surface + list. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 1.0.0, 30-AUG-2016 (NJB) + + Added macro SPICE_SRF_MAXSRF + + 22-JAN-2016 (NJB) + + Original version. +*/ + +#ifndef HAVE_SRF + + #define HAVE_SRF + + + /* + Constants + */ + #define SPICE_SRF_SFNMLN 37 + + #define SPICE_SRF_MAXSRF 100 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceUsr.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceUsr.h new file mode 100644 index 000000000..53ac70bcf --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceUsr.h @@ -0,0 +1,296 @@ +/* + +-Header_File SpiceUsr.h ( CSPICE user interface definitions ) + +-Abstract + + Perform CSPICE user interface declarations, including type + definitions and function prototype declarations. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This file is an umbrella header that includes all header files + required to support the CSPICE application programming interface + (API). Users' application code that calls CSPICE need include only + this single header file. This file includes function prototypes for + the entire set of CSPICE routines. Typedef statements used to create + SPICE data types are also included. + + + About SPICE data types + ====================== + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> enum { SPICEFALSE = 0, SPICETRUE = 1 } + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On all currently supported + platforms, type double occupies 8 bytes and type int occupies 4 + bytes. Other platforms may require a SpiceInt to map to type long. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + About CSPICE function prototypes + ================================ + + Because CSPICE function prototypes enable substantial compile-time + error checking, we recommend that user applications always reference + them. Including the header file SpiceUsr.h in any module that calls + CSPICE will automatically make the prototypes available. + + + About CSPICE C style + ==================== + + CSPICE is written in ANSI C. No attempt has been made to support K&R + conventions or restrictions. + + + About C++ compatibility + ======================= + + The preprocessor directive -D__cplusplus should be used when + compiling C++ source code that includes this header file. This + directive will suppress mangling of CSPICE names, permitting linkage + to a CSPICE object library built from object modules produced by + an ANSI C compiler. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + S.C. Krening (JPL) + E.D. Wright (JPL) + +-Restrictions + + The #include statements contained in this file are not part of + the CSPICE API. The set of files included may change without notice. + Users should not include these files directly in their own + application code. + +-Version + + -CSPICE Version 7.0.0, 16-SEP-2020 (JDR) + + Updated to include header file + + SpiceDAS.h + SpiceSCLK.h + + -CSPICE Version 6.0.0, 07-FEB-2010 (NJB) + + Now includes SpiceOsc.h. + + 27-FEB-2016 (NJB) + + Updated to include header files + + SpiceDLA.h + SpiceDSK.h + SpiceSrf.h + SpiceDtl.h + + -CSPICE Version 5.0.0, 11-MAY-2012 (NJB) (SCK) + + Updated to include header files + + SpiceErr.h + SpiceFrm.h + SpiceOccult.h + + -CSPICE Version 4.0.0, 30-SEP-2008 (NJB) + + Updated to include header file + + SpiceGF.h + + -CSPICE Version 3.0.0, 19-AUG-2002 (NJB) + + Updated to include header files + + SpiceCel.h + SpiceCK.h + SpiceSPK.h + + -CSPICE Version 3.0.0, 17-FEB-1999 (NJB) + + Updated to support suppression of name mangling when included in + C++ source code. Also now interface macros to intercept function + calls and perform automatic type casting. + + Now includes platform macro definition header file. + + References to types SpiceVoid and ConstSpiceVoid were removed. + + -CSPICE Version 2.0.0, 06-MAY-1998 (NJB) (EDW) + +*/ + +#ifdef __cplusplus + extern "C" { +#endif + + +#ifndef HAVE_SPICE_USER + + #define HAVE_SPICE_USER + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + /* + Include CSPICE data type definitions. + */ + #include "SpiceZdf.h" + + /* + Include the CSPICE error handling interface definitions. + */ + #include "SpiceErr.h" + + /* + Include the CSPICE EK interface definitions. + */ + #include "SpiceEK.h" + + /* + Include the CSPICE frame subsystem API definitions. + */ + #include "SpiceFrm.h" + + /* + Include the CSPICE Cell interface definitions. + */ + #include "SpiceCel.h" + + /* + Include the CSPICE CK interface definitions. + */ + #include "SpiceCK.h" + + /* + Include the CSPICE SCLK interface definitions. + */ + #include "SpiceSCLK.h" + + /* + Include the CSPICE SPK interface definitions. + */ + #include "SpiceSPK.h" + + /* + Include the CSPICE GF interface definitions. + */ + #include "SpiceGF.h" + + /* + Include the CSPICE occultation definitions. + */ + #include "SpiceOccult.h" + + /* + Include the CSPICE DAS definitions. + */ + #include "SpiceDAS.h" + + /* + Include the CSPICE DLA definitions. + */ + #include "SpiceDLA.h" + + /* + Include the CSPICE DSK definitions. + */ + #include "SpiceDSK.h" + + /* + Include the CSPICE DSK tolerance definitions. + */ + #include "SpiceDtl.h" + + /* + Include the CSPICE surface definitions. + */ + #include "SpiceSrf.h" + + /* + Include oscltx_c definitions. + */ + #include "SpiceOsc.h" + + /* + Include CSPICE prototypes. + */ + #include "SpiceZpr.h" + + /* + Define the CSPICE function interface macros. + */ + #include "SpiceZim.h" + + + +#endif + + +#ifdef __cplusplus + } +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZad.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZad.h new file mode 100644 index 000000000..0414ecd2b --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZad.h @@ -0,0 +1,215 @@ +/* + +-Header_File SpiceZad.h ( CSPICE adapter definitions ) + +-Abstract + + Perform CSPICE declarations to support passed-in function + adapters used in wrapper interfaces. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header file contains declarations used by the CSPICE + passed-in function adapter ("PFA") system. This system enables + CSPICE wrapper functions to support passed-in function + arguments whose prototypes are C-style, even when these + functions are to be called from f2c'd Fortran routines + expecting f2c-style interfaces. + + This header declares: + + - The prototype for the passed-in function argument + pointer storage and fetch routines + + zzadsave_c + zzadget_c + + - Prototypes for CSPICE adapter functions. Each passed-in + function argument in a CSPICE wrapper has a corresponding + adapter function. The adapter functions have interfaces + that match those of their f2c'd counterparts; this allows + the adapters to be called by f2c'd SPICELIB code. The + adapters look up saved function pointers for routines + passed in by the wrapper's caller and call these functions. + + - Values for the enumerated type SpicePassedInFunc. These + values are used to map function pointers to the + functions they represent, enabling adapters to call + the correct passed-in functions. + +Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + J. Diaz del Rio (ODC Space) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 2.3.0, 07-FEB-2021 (JDR) + + Removed spurious comma at the end of enumerator list + "SpicePassedInFunc" to comply with ANSI-C standard. + + -CSPICE Version 2.2.0, 29-NOV-2011 (EDW) + + Updated to support the user defined boolean function capability. + + -CSPICE Version 2.1.0, 21-DEC-2009 (EDW) + + Updated to support the user defined scalar function capability. + + -CSPICE Version 2.0.0, 29-JAN-2009 (NJB) + + Now conditionally includes SpiceZfc.h. + + Updated to reflect new calling sequence of f2c'd + routine gfrefn_. Some header updates were made + as well. + + -CSPICE Version 1.0.0, 29-MAR-2008 (NJB) + +*/ + + +/* + This file has dependencies defined in SpiceZfc.h. Include that + file if it hasn't already been included. +*/ +#ifndef HAVE_SPICEF2C_H + #include "SpiceZfc.h" +#endif + + + +#ifndef HAVE_SPICE_ZAD_H + + #define HAVE_SPICE_ZAD_H + + + + /* + Prototypes for GF adapters: + */ + + logical zzadbail_c ( void ); + + + int zzadstep_c ( doublereal * et, + doublereal * step ); + + + int zzadrefn_c ( doublereal * t1, + doublereal * t2, + logical * s1, + logical * s2, + doublereal * t ); + + + int zzadrepf_c ( void ); + + + int zzadrepi_c ( doublereal * cnfine, + char * srcpre, + char * srcsuf, + ftnlen srcprelen, + ftnlen srcsuflen ); + + + int zzadrepu_c ( doublereal * ivbeg, + doublereal * ivend, + doublereal * et ); + + + int zzadfunc_c ( doublereal * et, + doublereal * value ); + + + int zzadqdec_c ( U_fp udfunc, + doublereal * et, + logical * xbool ); + + /* + Define the enumerated type + + SpicePassedInFunc + + for names of passed-in functions. Using this type gives + us compile-time checking and avoids string comparisons. + */ + enum _SpicePassedInFunc { + UDBAIL, + UDREFN, + UDREPF, + UDREPI, + UDREPU, + UDSTEP, + UDFUNC, + UDQDEC + }; + + typedef enum _SpicePassedInFunc SpicePassedInFunc; + + /* + SPICE_N_PASSED_IN_FUNC is the count of SpicePassedInFunc values. + */ + #define SPICE_N_PASSED_IN_FUNC 8 + + + /* + CSPICE wrappers supporting passed-in function arguments call + the adapter setup interface function once per each such argument; + these calls save the function pointers for later use within the + f2c'd code that calls passed-in functions. The saved pointers + will be used in calls by the adapter functions whose prototypes + are declared above. + + Prototypes for adapter setup interface: + */ + void zzadsave_c ( SpicePassedInFunc functionID, + void * functionPtr ); + + void * zzadget_c ( SpicePassedInFunc functionID ); + + +#endif + +/* +End of header file SpiceZad.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZdf.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZdf.h new file mode 100644 index 000000000..8dc2ab972 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZdf.h @@ -0,0 +1,274 @@ +/* + +-Header_File SpiceZdf.h ( CSPICE definitions ) + +-Abstract + + Define CSPICE data types via typedefs; also define some user-visible + enumerated types. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + CSPICE data types + ================= + + To assist with long-term maintainability of CSPICE, NAIF has elected + to use typedefs to represent data types occurring in argument lists + and as return values of CSPICE functions. These are: + + SpiceBoolean + SpiceChar + SpiceDouble + SpiceInt + ConstSpiceBoolean + ConstSpiceChar + ConstSpiceDouble + ConstSpiceInt + + The SPICE typedefs map in an arguably natural way to ANSI C types: + + SpiceBoolean -> int + SpiceChar -> char + SpiceDouble -> double + SpiceInt -> int or long + ConstX -> const X (X = any of the above types) + + The type SpiceInt is a special case: the corresponding type is picked + so as to be half the size of a double. On most currently supported + platforms, type double occupies 8 bytes and type long occupies 4 + bytes. Other platforms may require a SpiceInt to map to type int. + The Alpha/Digital Unix platform is an example of the latter case. + + While other data types may be used internally in CSPICE, no other + types appear in the API. + + + CSPICE enumerated types + ======================= + + These are provided to enhance readability of the code. + + Type name Value set + --------- --------- + + _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 } + + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Restrictions + + None. + +-Version + + -CSPICE Version 6.3.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 6.2.0, 10-MAR-2014 (BVS) + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 5.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 4.0.0 27-JUL-2002 (NJB) + + Added definition of SpiceDataType. + + -CSPICE Version 3.0.0 18-SEP-1999 (NJB) + + SpiceBoolean implementation changed from enumerated type to + typedef mapping to int. + + -CSPICE Version 2.0.0 29-JAN-1999 (NJB) + + Made definition of SpiceInt and ConstSpiceInt platform + dependent to accommodate the Alpha/Digital Unix platform. + + Removed definitions of SpiceVoid and ConstSpiceVoid. + + -CSPICE Version 1.0.0 25-OCT-1997 (KRG) (NJB) (EDW) +*/ + + #ifndef HAVE_SPICEDEFS_H + #define HAVE_SPICEDEFS_H + + /* + Include platform definitions, if they haven't been executed already. + */ + #ifndef HAVE_PLATFORM_MACROS_H + #include "SpiceZpl.h" + #endif + + /* + Basic data types. These are defined to be compatible with the + types used by f2c, and so they follow the Fortran notion of what + these things are. See the f2c documentation for the details + about the choices for the sizes of these types. + */ + typedef char SpiceChar; + typedef double SpiceDouble; + typedef float SpiceFloat; + + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef int SpiceInt; + #else + typedef long SpiceInt; + #endif + + + typedef const char ConstSpiceChar; + typedef const double ConstSpiceDouble; + typedef const float ConstSpiceFloat; + + + #if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + typedef const int ConstSpiceInt; + #else + typedef const long ConstSpiceInt; + #endif + + + /* + More basic data types. These give mnemonics for some other data + types in C that are not used in Fortran written by NAIF or + supported by ANSI Fortran 77. These are for use in C functions + but should not be passed to any C SPICE wrappers, ``*_c.c'' + since they are not Fortran compatible. + */ + typedef long SpiceLong; + typedef short SpiceShort; + + /* + Unsigned data types + */ + typedef unsigned char SpiceUChar; + typedef unsigned int SpiceUInt; + typedef unsigned long SpiceULong; + typedef unsigned short SpiceUShort; + + /* + Signed data types + */ + typedef signed char SpiceSChar; + + /* + Other basic types + */ + typedef int SpiceBoolean; + typedef const int ConstSpiceBoolean; + + #define SPICETRUE 1 + #define SPICEFALSE 0 + + + enum _Spicestatus { SPICEFAILURE = -1, SPICESUCCESS = 0 }; + + typedef enum _Spicestatus SpiceStatus; + + + enum _SpiceDataType { SPICE_CHR = 0, + SPICE_DP = 1, + SPICE_INT = 2, + SPICE_TIME = 3, + SPICE_BOOL = 4 }; + + + typedef enum _SpiceDataType SpiceDataType; + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZfc.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZfc.h new file mode 100644 index 000000000..a6a99897a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZfc.h @@ -0,0 +1,16163 @@ +/* + +-Header_File SpiceZfc.h ( f2c'd SPICELIB prototypes ) + +-Abstract + + Define prototypes for functions produced by converting Fortran + SPICELIB routines to C using f2c. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.1.0, 28-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 7.0.0, 10-MAR-2014 (BVS) + + Reformatted version lines. + + Now this header conditionally includes SpiceUsr.h. + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 6.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 6.0.0, 21-FEB-2006 (NJB) + + Added typedefs for the PC-LINUX-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 5.0.0, 06-MAR-2005 (NJB) + + Added typedefs for pointers to functions. This change was + made to support CSPICE wrappers for geometry finder routines. + + Added typedefs for the SUN-SOLARIS-64BIT-GCC_C + environment (these are identical to those for the + ALPHA-DIGITAL-UNIX_C environment). + + -CSPICE Version 4.1.0, 24-MAY-2001 (WLT) + + Moved the #ifdef __cplusplus so that it appears after the + typedefs. This allows us to more easily wrap CSPICE in a + namespace for C++. + + -CSPICE Version 4.0.0, 09-FEB-1999 (NJB) + + Updated to accommodate the Alpha/Digital Unix platform. + Also updated to support inclusion in C++ code. + + -CSPICE Version 3.0.0, 02-NOV-1998 (NJB) + + Updated for SPICELIB version N0049. + + -CSPICE Version 2.0.0, 15-SEP-1997 (NJB) + + Changed variable name "typid" to "typid" in prototype + for zzfdat_. This was done to enable compilation under + Borland C++. + + -CSPICE Version 1.0.0, 15-SEP-1997 (NJB) (KRG) + +-Index_Entries + + prototypes of f2c'd SPICELIB functions + +*/ + + +/* + Include SpiceUsr.h if it hasn't already been included + by the current compilation unit. +*/ +#ifndef HAVE_SPICE_USER + #include "SpiceUsr.h" +#endif + + + +#ifndef HAVE_SPICEF2C_H +#define HAVE_SPICEF2C_H + + +/* + Include Files: + + Many of the prototypes below use data types defined by f2c. We + copy here the f2c definitions that occur in prototypes of functions + produced by running f2c on Fortran SPICELIB routines. + + The reason we don't simply conditionally include f2c.h itself here + is that f2c.h defines macros that conflict with stdlib.h on some + systems. It's simpler to just replicate the few typedefs we need. +*/ + +#if ( defined( CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined( CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined( CSPICE_PC_LINUX_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined( CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined( CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_NATIVE) \ + || defined( CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + #define VOID void + + typedef VOID H_f; + typedef int integer; + typedef double doublereal; + typedef int logical; + typedef int ftnlen; + + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#else + + #define VOID void + + typedef VOID H_f; + typedef long integer; + typedef double doublereal; + typedef long logical; + typedef long ftnlen; + + /* + Type H_fp is used for character return type. + Type S_fp is used for subroutines. + Type U_fp is used for functions of unknown type. + */ + typedef VOID (*H_fp)(); + typedef doublereal (*D_fp)(); + typedef doublereal (*E_fp)(); + typedef int (*S_fp)(); + typedef int (*U_fp)(); + typedef integer (*I_fp)(); + typedef logical (*L_fp)(); + +#endif + + +#ifdef __cplusplus + extern "C" { +#endif + + +/* + Function prototypes for functions created by f2c are listed below. + See the headers of the Fortran routines for descriptions of the + routines' interfaces. + + The functions listed below are those expected to be called by + C-SPICELIB wrappers. Prototypes are not currently provided for other + f2c'd functions. + +*/ + +/* +-Prototypes +*/ + +extern logical accept_(logical *ok); +extern logical allowd_(void); + +extern logical alltru_(logical *logcls, integer *n); + +extern H_f ana_(char *ret_val, ftnlen ret_val_len, char *word, char *case__, ftnlen word_len, ftnlen case_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int appndc_(char *item, char *cell, ftnlen item_len, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndd_(doublereal *item, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int appndi_(integer *item, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical approx_(doublereal *x, doublereal *y, doublereal *tol); + +extern int astrip_(char *instr, char *asciib, char *asciie, char *outstr, ftnlen instr_len, ftnlen asciib_len, ftnlen asciie_len, ftnlen outstr_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int axisar_(doublereal *axis, doublereal *angle, doublereal *r__); +/*:ref: ident_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int azlcpo_(char *method, char *target, doublereal *et, char *abcorr, logical *azccw, logical *elplsz, doublereal *obspos, char *obsctr, char *obsref, doublereal *azlsta, doublereal *lt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recazl_ 14 6 7 12 12 7 7 7 */ +/*:ref: dazldr_ 14 6 7 7 7 12 12 7 */ + +extern int azlrec_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern doublereal b1900_(void); + +extern doublereal b1950_(void); + +extern logical badkpv_(char *caller, char *name__, char *comp, integer *size, integer *divby, char *type__, ftnlen caller_len, ftnlen name_len, ftnlen comp_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical bedec_(char *string, ftnlen string_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical beint_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: beuns_ 12 2 13 124 */ + +extern logical benum_(char *string, ftnlen string_len); +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: bedec_ 12 2 13 124 */ +/*:ref: beint_ 12 2 13 124 */ + +extern logical beuns_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int bltfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ + +extern int bodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodc2s_(integer *code, char *name__, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodc2n_ 14 4 4 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int boddef_(char *name__, integer *code, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzboddef_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodeul_(integer *body, doublereal *et, doublereal *ra, doublereal *dec, doublereal *w, doublereal *lambda); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: pckeul_ 14 6 4 7 12 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ + +extern logical bodfnd_(integer *body, char *item, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodmat_(integer *body, doublereal *et, doublereal *tipm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bods2c_(char *name__, integer *code, logical *found, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzbodn2c_ 14 4 13 4 12 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvar_(integer *body, char *item, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: rtpool_ 14 5 13 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int bodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int bodvrd_(char *bodynm, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen bodynm_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal brcktd_(doublereal *number, doublereal *end1, doublereal *end2); + +extern integer brckti_(integer *number, integer *end1, integer *end2); + +extern integer bschoc_(char *value, integer *ndim, char *array, integer *order, ftnlen value_len, ftnlen array_len); + +extern integer bschoi_(integer *value, integer *ndim, integer *array, integer *order); + +extern integer bsrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer bsrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer bsrchi_(integer *value, integer *ndim, integer *array); + +extern integer cardc_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardd_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer cardi_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cgv2el_(doublereal *center, doublereal *vec1, doublereal *vec2, doublereal *ellips); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer chbase_(void); + +extern int chbder_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, integer *nderiv, doublereal *partdp, doublereal *dpdxs); + +extern int chbigr_(integer *degp, doublereal *cp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *itgrlp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int chbint_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p, doublereal *dpdx); + +extern int chbval_(doublereal *cp, integer *degp, doublereal *x2s, doublereal *x, doublereal *p); + +extern int chckid_(char *class__, integer *maxlen, char *id, ftnlen class_len, ftnlen id_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int chgirf_(integer *refa, integer *refb, doublereal *rotab, char *name__, integer *index, ftnlen name_len); +extern int irfrot_(integer *refa, integer *refb, doublereal *rotab); +extern int irfnum_(char *name__, integer *index, ftnlen name_len); +extern int irfnam_(integer *index, char *name__, ftnlen name_len); +extern int irfdef_(integer *index); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ + +extern int ckbsr_(char *fname, integer *handle, integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *descr, char *segid, logical *found, ftnlen fname_len, ftnlen segid_len); +extern int cklpf_(char *fname, integer *handle, ftnlen fname_len); +extern int ckupf_(integer *handle); +extern int ckbss_(integer *inst, doublereal *sclkdp, doublereal *tol, logical *needav); +extern int cksns_(integer *handle, doublereal *descr, char *segid, logical *found, ftnlen segid_len); +extern int ckhave_(logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ + +extern int ckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckcov_(char *ckfnm, integer *idcode, logical *needav, char *level, doublereal *tol, char *timsys, doublereal *cover, ftnlen ckfnm_len, ftnlen level_len, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: zzckcv01_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv02_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv03_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv04_ 14 8 4 4 4 4 7 13 7 124 */ +/*:ref: zzckcv05_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: zzckcv06_ 14 9 4 4 4 4 7 7 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int cke01_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke02_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cke03_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mtxm_ 14 3 7 7 7 */ +/*:ref: raxisa_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: axisar_ 14 3 7 7 7 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int cke04_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke05_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrind_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: qdq2av_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: q2m_ 14 2 7 7 */ + +extern int cke06_(logical *needav, doublereal *record, doublereal *cmat, doublereal *av, doublereal *clkout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckfrot_(integer *inst, doublereal *et, doublereal *rotate, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int ckfxfm_(integer *inst, doublereal *et, doublereal *xform, integer *ref, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: ckhave_ 14 1 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ +/*:ref: sce2c_ 14 3 4 7 7 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: rav2xf_ 14 3 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int ckgp_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgpav_(integer *inst, doublereal *sclkdp, doublereal *tol, char *ref, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ckbss_ 14 4 4 7 7 12 */ +/*:ref: cksns_ 14 5 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ckpfs_ 14 9 4 7 7 7 12 7 7 7 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: xf2rav_ 14 3 7 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int ckgr01_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr02_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr02_ 14 3 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckgr03_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckgr04_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckgr05_(integer *handle, doublereal *descr, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckgr06_(integer *handle, doublereal *descr, integer *msno, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int ckmeta_(integer *ckid, char *meta, integer *idcode, ftnlen meta_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int ckmp06_(integer *handle, doublereal *descr, integer *msno, doublereal *rate, integer *subtyp, integer *winsiz, integer *nrec, doublereal *ivlbds, doublereal *lstepc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknm06_(integer *handle, doublereal *descr, integer *nmini); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int cknr01_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr02_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int cknr03_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int cknr04_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ + +extern int cknr05_(integer *handle, doublereal *descr, integer *nrec); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int ckobj_(char *ckfnm, integer *ids, ftnlen ckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int ckopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckpfs_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *cmat, doublereal *av, doublereal *clkout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: ckr01_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke01_ 14 5 12 7 7 7 7 */ +/*:ref: ckr02_ 14 6 4 7 7 7 7 12 */ +/*:ref: cke02_ 14 5 12 7 7 7 7 */ +/*:ref: ckr03_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke03_ 14 5 12 7 7 7 7 */ +/*:ref: ckr04_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke04_ 14 5 12 7 7 7 7 */ +/*:ref: ckr05_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke05_ 14 5 12 7 7 7 7 */ +/*:ref: ckr06_ 14 7 4 7 7 7 12 7 12 */ +/*:ref: cke06_ 14 5 12 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ckr01_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstcld_ 4 3 7 4 7 */ + +extern int ckr02_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int ckr03_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ + +extern int ckr04_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: zzck4d2i_ 14 4 7 4 7 4 */ + +extern int ckr05_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ckr06_(integer *handle, doublereal *descr, doublereal *sclkdp, doublereal *tol, logical *needav, doublereal *record, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: touchl_ 12 1 12 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int ckw01_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw02_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, char *segid, integer *nrec, doublereal *start, doublereal *stop, doublereal *quats, doublereal *avvs, doublereal *rates, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw03_(integer *handle, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *nrec, doublereal *sclkdp, doublereal *quats, doublereal *avvs, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw04a_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzck4i2d_ 14 4 4 4 7 7 */ +/*:ref: sgwvpk_ 14 6 4 4 4 7 4 7 */ + +extern int ckw04b_(integer *handle, doublereal *begtim, integer *inst, char *ref, logical *avflag, char *segid, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: sgbwvs_ 14 7 4 7 13 4 7 4 124 */ + +extern int ckw04e_(integer *handle, doublereal *endtim); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrs_ 14 1 7 */ + +extern int ckw05_(integer *handle, integer *subtyp, integer *degree, doublereal *begtim, doublereal *endtim, integer *inst, char *ref, logical *avflag, char *segid, integer *n, doublereal *sclkdp, doublereal *packts, doublereal *rate, integer *nints, doublereal *starts, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int ckw06_(integer *handle, integer *inst, char *ref, logical *avflag, doublereal *first, doublereal *last, char *segid, integer *nmini, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *rates, doublereal *sclkdp, doublereal *ivlbds, logical *sellst, ftnlen ref_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: even_ 12 1 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int clearc_(integer *ndim, char *array, ftnlen array_len); + +extern int cleard_(integer *ndim, doublereal *array); + +extern int cleari_(integer *ndim, integer *array); + +extern doublereal clight_(void); + +extern int cmprss_(char *delim, integer *n, char *input, char *output, ftnlen delim_len, ftnlen input_len, ftnlen output_len); + +extern int conics_(doublereal *elts, doublereal *et, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ + +extern int convrt_(doublereal *x, char *in, char *out, doublereal *y, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyc_(char *cell, char *copy, ftnlen cell_len, ftnlen copy_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int copyd_(doublereal *cell, doublereal *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int copyi_(integer *cell, integer *copy); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer countc_(integer *unit, integer *bline, integer *eline, char *line, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: astrip_ 14 8 13 13 13 13 124 124 124 124 */ + +extern integer cpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer cposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int cyacip_(integer *nelt, char *dir, integer *ncycle, char *array, ftnlen dir_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyadip_(integer *nelt, char *dir, integer *ncycle, doublereal *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyaiip_(integer *nelt, char *dir, integer *ncycle, integer *array, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclac_(char *array, integer *nelt, char *dir, integer *ncycle, char *out, ftnlen array_len, ftnlen dir_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: nbwid_ 4 3 13 4 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclad_(doublereal *array, integer *nelt, char *dir, integer *ncycle, doublereal *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclai_(integer *array, integer *nelt, char *dir, integer *ncycle, integer *out, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyclec_(char *instr, char *dir, integer *ncycle, char *outstr, ftnlen instr_len, ftnlen dir_len, ftnlen outstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gcd_ 4 2 4 4 */ + +extern int cyllat_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int cylrec_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *rectan); + +extern int cylsph_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *radius, doublereal *colat, doublereal *slon); + +extern doublereal dacosh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal dacosn_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafa2b_(char *ascii, char *binary, integer *resv, ftnlen ascii_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ + +extern int dafac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ +/*:ref: dafarr_ 14 2 4 4 */ + +extern int dafah_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, integer *unit, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dafopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dafopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dafonw_(char *fname, char *ftype, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dafopn_(char *fname, integer *nd, integer *ni, char *ifname, integer *resv, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dafcls_(integer *handle); +extern int dafhsf_(integer *handle, integer *nd, integer *ni); +extern int dafhlu_(integer *handle, integer *unit); +extern int dafluh_(integer *unit, integer *handle); +extern int dafhfn_(integer *handle, char *fname, ftnlen fname_len); +extern int daffnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dafhof_(integer *fhset); +extern int dafsih_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdafnfr_ 14 12 4 13 4 4 13 4 4 4 13 124 124 124 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern int dafana_(integer *handle, doublereal *sum, char *name__, doublereal *data, integer *n, ftnlen name_len); +extern int dafbna_(integer *handle, doublereal *sum, char *name__, ftnlen name_len); +extern int dafada_(doublereal *data, integer *n); +extern int dafena_(void); +extern int dafcad_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafwda_ 14 4 4 4 4 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafrwa_ 14 3 4 4 4 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ + +extern int dafarr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafb2a_(char *binary, char *ascii, ftnlen binary_len, ftnlen ascii_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ + +extern int dafb2t_(char *binary, integer *text, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int dafbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ + +extern int dafec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int daffa_(integer *handle, doublereal *sum, char *name__, logical *found, ftnlen name_len); +extern int dafbfs_(integer *handle); +extern int daffna_(logical *found); +extern int dafbbs_(integer *handle); +extern int daffpa_(logical *found); +extern int dafgs_(doublereal *sum); +extern int dafgn_(char *name__, ftnlen name_len); +extern int dafgh_(integer *handle); +extern int dafrs_(doublereal *sum); +extern int dafrn_(char *name__, ftnlen name_len); +extern int dafws_(doublereal *sum); +extern int dafcs_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dafhof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ + +extern int dafgda_(integer *handle, integer *baddr, integer *eaddr, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafgdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafps_(integer *nd, integer *ni, doublereal *dc, integer *ic, doublereal *sum); +extern int dafus_(doublereal *sum, integer *nd, integer *ni, doublereal *dc, integer *ic); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int dafra_(integer *handle, integer *iorder, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isordv_ 12 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: dafws_ 14 1 7 */ +/*:ref: dafrn_ 14 2 13 124 */ + +extern int dafrcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ + +extern int dafrda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ + +extern int dafrfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdafgfr_ 14 11 4 13 4 4 13 4 4 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dafrrr_(integer *handle, integer *resv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ +/*:ref: dafrcr_ 14 4 4 4 13 124 */ +/*:ref: dafwcr_ 14 4 4 4 13 124 */ +/*:ref: dafwfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafws_ 14 1 7 */ + +extern int dafrwa_(integer *recno, integer *wordno, integer *addr__); +extern int dafarw_(integer *addr__, integer *recno, integer *wordno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafrwd_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *drec, doublereal *data, logical *found, integer *reads, integer *reqs); +extern int dafgdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafgsr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafrdr_(integer *handle, integer *recno, integer *begin, integer *end, doublereal *data, logical *found); +extern int dafwdr_(integer *handle, integer *recno, doublereal *drec); +extern int dafnrr_(integer *reads, integer *reqs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: minai_ 14 4 4 4 4 4 */ +/*:ref: zzdafgdr_ 14 4 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: zzdafgsr_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzddhisn_ 14 3 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int daft2b_(integer *text, char *binary, integer *resv, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafena_ 14 0 */ + +extern int daftb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int dafwcr_(integer *handle, integer *recno, char *crec, ftnlen crec_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dafwda_(integer *handle, integer *begin, integer *end, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafarw_ 14 3 4 4 4 */ +/*:ref: dafrdr_ 14 6 4 4 4 4 7 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dafwdr_ 14 3 4 4 7 */ + +extern int dafwfr_(integer *handle, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dasa2l_(integer *handle, integer *type__, integer *addrss, integer *clbase, integer *clsize, integer *recno, integer *wordno); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasac_(integer *handle, integer *n, char *buffer, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasacr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasacu_(integer *comlun, char *begmrk, char *endmrk, logical *insbln, integer *handle, ftnlen begmrk_len, ftnlen endmrk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: readla_ 14 6 4 4 4 13 12 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ +/*:ref: dasac_ 14 4 4 4 13 124 */ + +extern int dasadc_(integer *handle, integer *n, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: daswrc_ 14 4 4 4 13 124 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadd_(integer *handle, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: daswrd_ 14 3 4 4 7 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasadi_(integer *handle, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dascud_ 14 3 4 4 4 */ + +extern int dasbt_(char *binfil, integer *xfrlun, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: wrenci_ 14 3 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: wrencc_ 14 4 4 4 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: wrencd_ 14 3 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dascls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: dashof_ 14 1 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dassdr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dascud_(integer *handle, integer *type__, integer *nwords); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswri_ 14 3 4 4 4 */ + +extern int dasdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasrcr_ 14 2 4 4 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ + +extern int dasec_(integer *handle, integer *bufsiz, integer *n, char *buffer, logical *done, ftnlen buffer_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ + +extern int dasecu_(integer *handle, integer *comlun, logical *comnts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasec_ 14 6 4 4 4 13 12 124 */ +/*:ref: writla_ 14 4 4 13 4 124 */ + +extern int dasfm_(char *fname, char *ftype, char *ifname, integer *handle, integer *unit, integer *free, integer *lastla, integer *lastrc, integer *lastwd, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *fhset, char *access, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len, ftnlen access_len); +extern int dasopr_(char *fname, integer *handle, ftnlen fname_len); +extern int dasopw_(char *fname, integer *handle, ftnlen fname_len); +extern int dasonw_(char *fname, char *ftype, char *ifname, integer *ncomr, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +extern int dasopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +extern int dasops_(integer *handle); +extern int dasllc_(integer *handle); +extern int dashfs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dasufs_(integer *handle, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, integer *free, integer *lastla, integer *lastrc, integer *lastwd); +extern int dashlu_(integer *handle, integer *unit); +extern int dasluh_(integer *unit, integer *handle); +extern int dashfn_(integer *handle, char *fname, ftnlen fname_len); +extern int dasfnh_(char *fname, integer *handle, ftnlen fname_len); +extern int dashof_(integer *fhset); +extern int dassih_(integer *handle, char *access, ftnlen access_len); +extern int dasham_(integer *handle, char *access, ftnlen access_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: zzddhopn_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzdasnfr_ 14 11 4 13 13 4 4 4 4 13 124 124 124 */ +/*:ref: zzddhcls_ 14 4 4 13 12 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: removi_ 14 2 4 4 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzddhluh_ 14 3 4 4 12 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: copyi_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: elemi_ 12 2 4 4 */ + +extern doublereal dasine_(doublereal *arg, doublereal *tol); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasioc_(char *action, integer *unit, integer *recno, char *record, ftnlen action_len, ftnlen record_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasiod_(char *action, integer *unit, integer *recno, doublereal *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dasioi_(char *action, integer *unit, integer *recno, integer *record, ftnlen action_len); +/*:ref: return_ 12 0 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int daslla_(integer *handle, integer *lastc, integer *lastd, integer *lasti); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrcr_(integer *handle, integer *n); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dasrdc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrc_ 14 6 4 4 4 4 13 124 */ + +extern int dasrdd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrrd_ 14 5 4 4 4 4 7 */ + +extern int dasrdi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ + +extern int dasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzdasrfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dasrwr_(integer *handle, integer *recno, char *recc, doublereal *recd, integer *reci, integer *first, integer *last, doublereal *datad, integer *datai, char *datac, ftnlen recc_len, ftnlen datac_len); +extern int dasrrd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasrri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasrrc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswrd_(integer *handle, integer *recno, doublereal *recd); +extern int daswri_(integer *handle, integer *recno, integer *reci); +extern int daswrc_(integer *handle, integer *recno, char *recc, ftnlen recc_len); +extern int dasurd_(integer *handle, integer *recno, integer *first, integer *last, doublereal *datad); +extern int dasuri_(integer *handle, integer *recno, integer *first, integer *last, integer *datai); +extern int dasurc_(integer *handle, integer *recno, integer *first, integer *last, char *datac, ftnlen datac_len); +extern int daswbr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzdasgrd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: zzdasgri_ 14 3 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int dassdr_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: maxai_ 14 4 4 4 4 4 */ +/*:ref: dasrri_ 14 5 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasiod_ 14 5 13 4 4 7 124 */ +/*:ref: dasioi_ 14 5 13 4 4 4 124 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dastb_(integer *xfrlun, char *binfil, ftnlen binfil_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: daswfr_ 14 9 4 13 13 4 4 4 4 124 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: rdenci_ 14 3 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: dasacr_ 14 2 4 4 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rdencc_ 14 4 4 4 13 124 */ +/*:ref: dasioc_ 14 6 13 4 4 13 124 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: rdencd_ 14 3 4 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern int dasudc_(integer *handle, integer *first, integer *last, integer *bpos, integer *epos, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurc_ 14 6 4 4 4 4 13 124 */ + +extern int dasudd_(integer *handle, integer *first, integer *last, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasurd_ 14 5 4 4 4 4 7 */ + +extern int dasudi_(integer *handle, integer *first, integer *last, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasa2l_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasuri_ 14 5 4 4 4 4 4 */ + +extern int daswfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dashfs_ 14 9 4 4 4 4 4 4 4 4 4 */ +/*:ref: dasufs_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern doublereal datanh_(doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dazldr_(doublereal *x, doublereal *y, doublereal *z__, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ + +extern doublereal dcbrt_(doublereal *x); + +extern int dcyldr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int delfil_(char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: getlun_ 14 1 4 */ + +extern int deltet_(doublereal *epoch, char *eptype, doublereal *delta, ftnlen eptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern doublereal det_(doublereal *m1); + +extern int dgeodr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern doublereal dhfa_(doublereal *state, doublereal *bodyr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int diags2_(doublereal *symmat, doublereal *diag, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rquad_ 14 5 7 7 7 7 7 */ +/*:ref: vhatg_ 14 3 7 4 7 */ + +extern int diffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int diffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int diffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabbs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabfs_(integer *handle, integer *dladsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlabns_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int dlaens_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dlafns_(integer *handle, integer *dladsc, integer *nxtdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlafps_(integer *handle, integer *dladsc, integer *prvdsc, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int dlaopn_(char *fname, char *ftype, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ftype_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: dasadi_ 14 3 4 4 4 */ + +extern logical dlassg_(integer *han1, integer *han2, integer *dsc1, integer *dsc2); + +extern int dlatdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int dnearp_(doublereal *state, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdnpt_ 14 8 7 7 7 7 7 7 7 12 */ + +extern int dp2hx_(doublereal *number, char *hxstr, integer *hxssiz, ftnlen hxstr_len); +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int dpfmt_(doublereal *x, char *pictur, char *str, ftnlen pictur_len, ftnlen str_len); +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int dpgrdr_(char *body, doublereal *x, doublereal *y, doublereal *z__, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ + +extern doublereal dpr_(void); + +extern int dpspce_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzdpinit_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzdpsec_ 14 9 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdpper_ 14 6 7 7 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dpstr_(doublereal *x, integer *sigdig, char *string, ftnlen string_len); +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int dpstrf_(doublereal *x, integer *sigdig, char *format, char *string, ftnlen format_len, ftnlen string_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzvststr_ 14 4 7 13 4 124 */ +/*:ref: zzvsbstr_ 14 6 4 4 12 13 12 124 */ + +extern int drdazl_(doublereal *range, doublereal *az, doublereal *el, logical *azccw, logical *elplsz, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ + +extern int drdcyl_(doublereal *r__, doublereal *clon, doublereal *z__, doublereal *jacobi); + +extern int drdgeo_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int drdlat_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *jacobi); + +extern int drdpgr_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *jacobi, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ + +extern int drdsph_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *jacobi); + +extern int drotat_(doublereal *angle, integer *iaxis, doublereal *dmout); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskb02_(integer *handle, integer *dladsc, integer *nv, integer *np, integer *nvxtot, doublereal *vtxbds, doublereal *voxsiz, doublereal *voxori, integer *vgrext, integer *cgscal, integer *vtxnpl, integer *voxnpt, integer *voxnpl); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskcls_(integer *handle, logical *optmiz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int dskd02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, doublereal *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dskgd_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int dski02_(integer *handle, integer *dladsc, integer *item, integer *start, integer *room, integer *n, integer *values); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int dskmi2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *finscl, integer *corscl, integer *worksz, integer *voxpsz, integer *voxlsz, logical *makvtl, integer *spxisz, integer *work, doublereal *spaixd, integer *spaixi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzmkspin_ 14 19 4 4 7 7 4 4 4 4 4 4 7 7 4 4 4 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvrtplt_ 14 9 4 4 4 4 4 4 4 4 4 */ + +extern int dskn02_(integer *handle, integer *dladsc, integer *plid, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int dskobj_(char *dskfnm, integer *bodids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dskopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlaopn_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dskp02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ + +extern int dskrb2_(integer *nv, doublereal *vrtces, integer *np, integer *plates, integer *corsys, doublereal *corpar, doublereal *mncor3, doublereal *mxcor3); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int dsksrf_(char *dskfnm, integer *bodyid, integer *srfids, ftnlen dskfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: dskcls_ 14 2 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ + +extern int dsktol_(integer *keywrd, doublereal *dpval); +extern int dskgtl_(integer *keywrd, doublereal *dpval); +extern int dskstl_(integer *keywrd, doublereal *dpval); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: return_ 12 0 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int dskv02_(integer *handle, integer *dladsc, integer *start, integer *room, integer *n, doublereal *vrtces); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dskz02_ 14 4 4 4 4 4 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ + +extern int dskw02_(integer *handle, integer *center, integer *surfid, integer *dclass, char *frame, integer *corsys, doublereal *corpar, doublereal *mncor1, doublereal *mxcor1, doublereal *mncor2, doublereal *mxcor2, doublereal *mncor3, doublereal *mxcor3, doublereal *first, doublereal *last, integer *nv, doublereal *vrtces, integer *np, integer *plates, doublereal *spaixd, integer *spaixi, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dlabns_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dlaens_ 14 1 4 */ + +extern int dskx02_(integer *handle, integer *dladsc, doublereal *vertex, doublereal *raydir, integer *plid, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dskb02_ 14 13 4 4 4 4 4 7 7 7 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ +/*:ref: zztogrid_ 14 4 7 7 7 7 */ +/*:ref: xdda_ 14 6 7 7 4 4 4 4 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: insang_ 14 6 7 7 7 7 12 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ + +extern int dskxsi_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, doublereal *vertex, doublereal *raydir, integer *maxd, integer *maxi, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxri_ 14 14 4 4 4 7 4 7 7 7 4 4 7 7 4 12 */ + +extern int dskxv_(logical *pri, char *target, integer *nsurf, integer *srflst, doublereal *et, char *fixref, integer *nrays, doublereal *vtxarr, doublereal *dirarr, doublereal *xptarr, logical *fndarr, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ + +extern int dskz02_(integer *handle, integer *dladsc, integer *nv, integer *np); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int dsphdr_(doublereal *x, doublereal *y, doublereal *z__, doublereal *jacobi); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: invort_ 14 2 7 7 */ + +extern int ducrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: dvcrss_ 14 3 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ + +extern int dvcrss_(doublereal *s1, doublereal *s2, doublereal *sout); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern doublereal dvdot_(doublereal *s1, doublereal *s2); + +extern int dvhat_(doublereal *s1, doublereal *sout); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern doublereal dvnorm_(doublereal *state); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern doublereal dvsep_(doublereal *s1, doublereal *s2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzdiv_ 7 2 7 7 */ + +extern int dxtrct_(char *keywd, integer *maxwds, char *string, integer *nfound, integer *parsed, doublereal *values, ftnlen keywd_len, ftnlen string_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int edlimb_(doublereal *a, doublereal *b, doublereal *c__, doublereal *viewpt, doublereal *limb); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int ednmpt_(doublereal *a, doublereal *b, doublereal *c__, doublereal *normal, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int edpnt_(doublereal *p, doublereal *a, doublereal *b, doublereal *c__, doublereal *ep); +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int edterm_(char *trmtyp, char *source, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, integer *npts, doublereal *trgepc, doublereal *obspos, doublereal *trmpts, ftnlen trmtyp_len, ftnlen source_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzedterm_ 14 9 13 7 7 7 7 7 4 7 124 */ + +extern int ekacec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekaced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekacei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int ekaclc_(integer *handle, integer *segno, char *column, char *cvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac03_ 14 8 4 4 4 13 12 4 4 124 */ +/*:ref: zzekac06_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: zzekac09_ 14 7 4 4 4 13 12 4 124 */ + +extern int ekacld_(integer *handle, integer *segno, char *column, doublereal *dvals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac02_ 14 7 4 4 4 7 12 4 4 */ +/*:ref: zzekac05_ 14 6 4 4 4 7 4 12 */ +/*:ref: zzekac08_ 14 6 4 4 4 7 12 4 */ + +extern int ekacli_(integer *handle, integer *segno, char *column, integer *ivals, integer *entszs, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen column_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekac01_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: zzekac04_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekac07_ 14 6 4 4 4 4 12 4 */ + +extern int ekappr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: ekinsr_ 14 3 4 4 4 */ + +extern int ekbseg_(integer *handle, char *tabnam, integer *ncols, char *cnames, char *decls, integer *segno, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxdfid_ 14 1 4 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekpdec_ 14 3 13 4 124 */ +/*:ref: zzekstyp_ 4 2 4 4 */ +/*:ref: zzekbs01_ 14 8 4 13 4 13 4 4 124 124 */ +/*:ref: zzekbs02_ 14 8 4 13 4 13 4 4 124 124 */ + +extern int ekcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekdelr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekde01_ 14 4 4 4 4 4 */ +/*:ref: zzekde02_ 14 4 4 4 4 4 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dashlu_ 14 2 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekffld_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekff01_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekfind_(char *query, integer *nmrows, logical *error, char *errmsg, ftnlen query_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: eksrch_ 14 8 4 13 7 4 12 13 124 124 */ + +extern int ekifld_(integer *handle, char *tabnam, integer *ncols, integer *nrows, char *cnames, char *decls, integer *segno, integer *rcptrs, ftnlen tabnam_len, ftnlen cnames_len, ftnlen decls_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekbseg_ 14 9 4 13 4 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekif01_ 14 3 4 4 4 */ +/*:ref: zzekif02_ 14 2 4 4 */ + +extern int ekinsr_(integer *handle, integer *segno, integer *recno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ + +extern integer eknseg_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrsz_ 4 2 4 4 */ + +extern int ekopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasonw_ 14 8 13 13 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopr_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekops_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgin_ 14 1 4 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int ekopw_(char *fname, integer *handle, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dasopw_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ + +extern int ekpsel_(char *query, integer *n, integer *xbegs, integer *xends, char *xtypes, char *xclass, char *tabs, char *cols, logical *error, char *errmsg, ftnlen query_len, ftnlen xtypes_len, ftnlen xclass_len, ftnlen tabs_len, ftnlen cols_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekencd_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int ekqmgr_(integer *cindex, integer *elment, char *eqryc, doublereal *eqryd, integer *eqryi, char *fname, integer *row, integer *selidx, char *column, integer *handle, integer *n, char *table, integer *attdsc, integer *ccount, logical *found, integer *nelt, integer *nmrows, logical *semerr, char *errmsg, char *cdata, doublereal *ddata, integer *idata, logical *null, ftnlen eqryc_len, ftnlen fname_len, ftnlen column_len, ftnlen table_len, ftnlen errmsg_len, ftnlen cdata_len); +extern int eklef_(char *fname, integer *handle, ftnlen fname_len); +extern int ekuef_(integer *handle); +extern int ekntab_(integer *n); +extern int ektnam_(integer *n, char *table, ftnlen table_len); +extern int ekccnt_(char *table, integer *ccount, ftnlen table_len); +extern int ekcii_(char *table, integer *cindex, char *column, integer *attdsc, ftnlen table_len, ftnlen column_len); +extern int eksrch_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *nmrows, logical *semerr, char *errmsg, ftnlen eqryc_len, ftnlen errmsg_len); +extern int eknelt_(integer *selidx, integer *row, integer *nelt); +extern int ekgc_(integer *selidx, integer *row, integer *elment, char *cdata, logical *null, logical *found, ftnlen cdata_len); +extern int ekgd_(integer *selidx, integer *row, integer *elment, doublereal *ddata, logical *null, logical *found); +extern int ekgi_(integer *selidx, integer *row, integer *elment, integer *idata, logical *null, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: ekcls_ 14 1 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: appndc_ 14 4 13 13 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekqcnj_ 14 3 4 4 4 */ +/*:ref: zzekqcon_ 14 24 4 13 7 4 4 13 4 13 4 4 13 4 13 4 4 4 4 7 4 124 124 124 124 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekkey_ 14 20 4 4 4 4 4 4 4 4 13 4 4 7 4 12 4 4 4 4 12 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekrplk_ 14 4 4 4 4 4 */ +/*:ref: zzekrmch_ 12 15 4 12 4 4 4 4 4 4 4 13 4 4 7 4 124 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ +/*:ref: zzekjoin_ 14 18 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekweed_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekqsel_ 14 12 4 13 4 4 4 13 4 13 4 124 124 124 */ +/*:ref: zzekqord_ 14 11 4 13 4 13 4 13 4 4 124 124 124 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ + +extern int ekrcec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekrced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int ekrcei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekesiz_ 4 4 4 4 4 4 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int ekshdw_(integer *handle, logical *isshad); + +extern int ekssum_(integer *handle, integer *segno, char *tabnam, integer *nrows, integer *ncols, char *cnames, char *dtypes, integer *sizes, integer *strlns, logical *indexd, logical *nullok, ftnlen tabnam_len, ftnlen cnames_len, ftnlen dtypes_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksinf_ 14 8 4 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ekucec_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, char *cvals, logical *isnull, ftnlen column_len, ftnlen cvals_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue03_ 14 7 4 4 4 4 13 12 124 */ +/*:ref: zzekue06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int ekuced_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, doublereal *dvals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekue05_ 14 7 4 4 4 4 4 7 12 */ + +extern int ekucei_(integer *handle, integer *segno, integer *recno, char *column, integer *nvals, integer *ivals, logical *isnull, ftnlen column_len); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekcdsc_ 14 5 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: ekshdw_ 14 2 4 12 */ +/*:ref: zzekrbck_ 14 6 13 4 4 4 4 124 */ +/*:ref: zzekue01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekue04_ 14 7 4 4 4 4 4 4 12 */ + +extern int el2cgv_(doublereal *ellips, doublereal *center, doublereal *smajor, doublereal *sminor); +/*:ref: vequ_ 14 2 7 7 */ + +extern logical elemc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical elemi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int elltof_(doublereal *ma, doublereal *ecc, doublereal *e); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int enchar_(integer *number, char *string, ftnlen string_len); +extern int dechar_(char *string, integer *number, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbase_ 4 0 */ + +extern logical eqchr_(char *a, char *b, ftnlen a_len, ftnlen b_len); +extern logical nechr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int eqncpv_(doublereal *et, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kepleq_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern logical eqstr_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int erract_(char *op, char *action, ftnlen op_len, ftnlen action_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: putact_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int errch_(char *marker, char *string, ftnlen marker_len, ftnlen string_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errdev_(char *op, char *device, ftnlen op_len, ftnlen device_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: putdev_ 14 2 13 124 */ + +extern int errdp_(char *marker, doublereal *dpnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errfnm_(char *marker, integer *unit, ftnlen marker_len); +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errhan_(char *marker, integer *handle, ftnlen marker_len); +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int errint_(char *marker, integer *intnum, ftnlen marker_len); +/*:ref: allowd_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int errprt_(char *op, char *list, ftnlen op_len, ftnlen list_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: setprt_ 12 5 12 12 12 12 12 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer esrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int et2lst_(doublereal *et, integer *body, doublereal *lon, char *type__, integer *hr, integer *mn, integer *sc, char *time, char *ampm, ftnlen type_len, ftnlen time_len, ftnlen ampm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int etcal_(doublereal *et, char *calstr, ftnlen calstr_len); +/*:ref: spd_ 7 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: lstlti_ 4 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ + +extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rotate_ 14 3 7 4 7 */ +/*:ref: rotmat_ 14 4 7 7 4 7 */ + +extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern logical even_(integer *ival); + +extern int evsgp4_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ + +extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol); + +extern int excess_(integer *number, char *struct__, ftnlen struct_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical exists_(char *fname, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len); + +extern integer fetchc_(integer *nth, char *set, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchd_(integer *nth, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer fetchi_(integer *nth, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern int filld_(doublereal *value, integer *ndim, doublereal *array); + +extern int filli_(integer *value, integer *ndim, integer *array); + +extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int fndlun_(integer *unit); +extern int reslun_(integer *unit); +extern int frelun_(integer *unit); + +extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len); + +extern int fovray_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int fovtrg_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *et, logical *visibl, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgffvst_ 14 2 7 12 */ + +extern int frame_(doublereal *x, doublereal *y, doublereal *z__); +/*:ref: vhatip_ 14 1 7 */ + +extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len); +extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len); +extern int frinfo_(integer *frcode, integer *cent, integer *frclss, integer *clssid, logical *found); +extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len); +extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len); +extern int ccifrm_(integer *frclss, integer *clssid, integer *frcode, char *frname, integer *cent, logical *found, ftnlen frname_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzfdat_ 14 18 4 4 13 4 4 4 4 4 4 4 13 4 4 4 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: bschoi_ 4 4 4 4 4 4 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frmget_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer frstnb_(char *string, ftnlen string_len); + +extern integer frstnp_(char *string, ftnlen string_len); + +extern integer frstpc_(char *string, ftnlen string_len); + +extern integer gcd_(integer *a, integer *b); + +extern int georec_(doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhfnh_ 14 4 13 4 12 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: zzckspk_ 14 3 4 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int getfvn_(char *inst, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen inst_len, ftnlen shape_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 7 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfov_ 14 9 7 4 13 13 7 4 7 124 124 */ + +extern int getlun_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical gfbail_(void); + +extern int gfdist_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfevnt_(U_fp udstep, U_fp udrefn, char *gquant, integer *qnpars, char *qpnams, char *qcpars, doublereal *qdpars, integer *qipars, logical *qlpars, char *op, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, integer *mw, integer *nw, doublereal *work, logical *bail, L_fp udbail, doublereal *result, ftnlen gquant_len, ftnlen qpnams_len, ftnlen qcpars_len, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgfspin_ 14 10 13 13 13 13 13 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfdiin_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzgfcslv_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 200 200 200 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrrin_ 14 7 13 13 13 7 124 124 124 */ +/*:ref: zzgfpain_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzgfilin_ 14 15 13 13 13 13 13 13 13 7 124 124 124 124 124 124 124 */ + +extern int gffove_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgffvin_ 14 13 13 13 7 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfilum_(char *method, char *angtyp, char *target, char *illmn, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illmn_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfocce_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ + +extern int gfoclt_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gfocce_ 14 29 13 13 13 13 13 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfpa_(char *target, char *illmn, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfposc_(char *target, char *frame, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrefn_(doublereal *t1, doublereal *t2, logical *s1, logical *s2, doublereal *t); +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int gfrfov_(char *inst, doublereal *raydir, char *rframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen rframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfrprt_(doublereal *window, char *begmss, char *endmss, doublereal *ivbeg, doublereal *ivend, doublereal *time, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepi_(doublereal *window, char *begmss, char *endmss, ftnlen begmss_len, ftnlen endmss_len); +extern int gfrepu_(doublereal *ivbeg, doublereal *ivend, doublereal *time); +extern int gfrepf_(void); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: wnsumd_ 14 6 7 7 7 7 4 4 */ +/*:ref: zzgftswk_ 14 7 7 7 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzgfwkin_ 14 1 7 */ +/*:ref: zzgfwkad_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzgfwkmo_ 14 9 4 7 7 4 13 13 7 124 124 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ + +extern int gfrr_(char *target, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsep_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfsntc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfstep_(doublereal *time, doublereal *step); +extern int gfsstp_(doublereal *step); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int gfstol_(doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int gfsubc_(char *target, char *fixref, char *method, char *abcorr, char *obsrvr, char *crdsys, char *coord, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen target_len, ftnlen fixref_len, ftnlen method_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen crdsys_len, ftnlen coord_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: gfevnt_ 14 28 200 200 13 4 13 13 7 4 12 13 7 7 7 7 12 200 200 200 4 4 7 12 212 7 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gftfov_(char *inst, char *target, char *tshape, char *tframe, char *abcorr, char *obsrvr, doublereal *step, doublereal *cnfine, doublereal *result, ftnlen inst_len, ftnlen target_len, ftnlen tshape_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: gffove_ 14 24 13 13 7 13 13 13 13 7 200 200 12 200 200 200 12 212 7 7 124 124 124 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfudb_(U_fp udfuns, U_fp udfunb, doublereal *step, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfudb_ 14 13 200 200 7 200 200 12 200 200 200 12 212 7 7 */ +/*:ref: gfbail_ 12 :*/ + +extern int gfuds_(U_fp udfuns, U_fp udqdec, char *relate, doublereal *refval, doublereal *adjust, doublereal *step, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, doublereal *result, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: gfsstp_ 14 1 7 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: gfbail_ 12 :*/ + +extern doublereal halfpi_(void); + +extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ + +extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: intmin_ 4 0 */ +/*:ref: intmax_ 4 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int ident_(doublereal *matrix); + +extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int illumf_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, logical *visibl, logical *lit, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ + +extern int illumg_(char *method, char *target, char *ilusrc, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen ilusrc_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int ilumin_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, doublereal *phase, doublereal *incdnc, doublereal *emissn, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int incnsg_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzcnquad_ 14 7 7 7 7 7 4 7 7 */ +/*:ref: zzcxbrut_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzsglatx_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pl2psv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ + +extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: vzerog_ 12 2 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int insang_(doublereal *v, doublereal *e1, doublereal *e2, doublereal *e3, logical *found, doublereal *scale); +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrtd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int insrti_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len); + +extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int interd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int interi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int intord_(integer *n, char *string, ftnlen string_len); +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int intstr_(integer *number, char *string, ftnlen string_len); + +extern int inttxt_(integer *n, char *string, ftnlen string_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int invert_(doublereal *m, doublereal *mout); +/*:ref: det_ 7 1 7 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern int invort_(doublereal *m, doublereal *mit); +/*:ref: dpmax_ 7 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int invstm_(doublereal *mat, doublereal *invmat); +/*:ref: xposbl_ 14 5 7 4 4 4 7 */ + +extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ + +extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical isopen_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical isordv_(integer *array, integer *n); + +extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len); + +extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array); + +extern integer isrchi_(integer *value, integer *ndim, integer *array); + +extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern doublereal j1900_(void); + +extern doublereal j1950_(void); + +extern doublereal j2000_(void); + +extern doublereal j2100_(void); + +extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy); +extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy); +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal jyear_(void); + +extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *srcfil, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int furnsh_(char *file, ftnlen file_len); +extern int ktotal_(char *kind, integer *count, ftnlen kind_len); +extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kinfo_(char *file, char *filtyp, char *srcfil, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen srcfil_len); +extern int kclear_(void); +extern int unload_(char *file, ftnlen file_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */ +/*:ref: sepool_ 14 10 13 4 13 13 4 4 12 124 124 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dvpool_ 14 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: spkuef_ 14 1 4 */ +/*:ref: ckupf_ 14 1 4 */ +/*:ref: pckuof_ 14 1 4 */ +/*:ref: ekuef_ 14 1 4 */ +/*:ref: zzdskusf_ 14 1 4 */ +/*:ref: clpool_ 14 0 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: kpsolv_ 7 1 7 */ + +extern int kplfrm_(integer *frmcls, integer *idset); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: gnpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: validi_ 14 3 4 4 4 */ + +extern doublereal kpsolv_(doublereal *evec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *wordsq, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen wordsq_len, ftnlen substr_len); +/*:ref: wdindx_ 4 4 13 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ + +extern integer lastnb_(char *string, ftnlen string_len); + +extern integer lastpc_(char *string, ftnlen string_len); + +extern int latcyl_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int latrec_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rectan); + +extern int latsph_(doublereal *radius, doublereal *lon, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *slon); +/*:ref: halfpi_ 7 0 */ + +extern int latsrf_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *lonlat, doublereal *srfpts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int limbpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *tangts, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int ljucrs_(integer *n, char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len); + +extern int lnkan_(integer *pool, integer *new__); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkfsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkhl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkila_(integer *prev, integer *list, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkilb_(integer *list, integer *next, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkini_(integer *size, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnknfn_(integer *pool); + +extern integer lnknxt_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnkprv_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer lnksiz_(integer *pool); + +extern integer lnktl_(integer *node, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lnkxsl_(integer *head, integer *tail, integer *pool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnksiz_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lnkxsl_ 14 3 4 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ + +extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ + +extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len); + +extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len); + +extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ + +extern integer lstcld_(doublereal *x, integer *n, doublereal *array); + +extern integer lstcli_(integer *x, integer *n, integer *array); + +extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstled_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlei_(integer *x, integer *n, integer *array); + +extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len); + +extern integer lstltd_(doublereal *x, integer *n, doublereal *array); + +extern integer lstlti_(integer *x, integer *n, integer *array); + +extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ + +extern integer ltrim_(char *string, ftnlen string_len); +/*:ref: frstnb_ 4 2 13 124 */ + +extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4dec_ 14 5 13 4 4 4 124 */ +/*:ref: lx4sgn_ 14 5 13 4 4 4 124 */ + +extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ + +extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); + +extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len); +extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len); +extern int lxdfid_(integer *idspec); +extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: validi_ 14 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ + +extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len); + +extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int m2q_(doublereal *r__, doublereal *q); +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ +/*:ref: nechr_ 12 4 13 13 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ + +extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len); + +extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc); + +extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc); + +extern int mequ_(doublereal *m1, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len); + +extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc); + +extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc); + +extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len); + +extern int movei_(integer *arrfrm, integer *ndim, integer *arrto); + +extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout); + +extern int mtxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout); + +extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1r2, integer *nc2, doublereal *mout); + +extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout); + +extern int mxv_(doublereal *m, doublereal *vin, doublereal *vout); + +extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout); + +extern integer nblen_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer nbwid_(char *array, integer *nelt, ftnlen array_len); + +extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len); + +extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: reordd_ 14 3 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ + +extern logical notru_(logical *logcls, integer *n); + +extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len); +/*:ref: dpmax_ 7 0 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: pi_ 7 0 */ + +extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len); +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: inedpl_ 14 6 7 7 7 7 7 12 */ +/*:ref: pjelpl_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: npelpt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjpi_ 14 5 7 7 7 7 12 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int npsgpt_(doublereal *ep1, doublereal *ep2, doublereal *point, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len); + +extern int nvc2pl_(doublereal *normal, doublereal *konst, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int occult_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *abcorr, char *obsrvr, doublereal *et, integer *ocltid, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfocin_ 14 18 13 13 13 13 13 13 13 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfocst_ 14 2 7 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern logical odd_(integer *ival); + +extern logical opsgnd_(doublereal *x, doublereal *y); + +extern logical opsgni_(integer *x, integer *y); + +extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer ordd_(doublereal *item, doublereal *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderd_(doublereal *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int orderi_(integer *array, integer *ndim, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern integer ordi_(integer *item, integer *set); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dacosh_ 7 1 7 */ + +extern int oscltx_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: oscelt_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: exact_ 7 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int outmsg_(char *list, ftnlen list_len); +/*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: msgsel_ 12 2 13 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: getsms_ 14 2 13 124 */ +/*:ref: expln_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getlms_ 14 2 13 124 */ +/*:ref: wdcnt_ 4 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: trcdep_ 14 1 4 */ +/*:ref: trcnam_ 14 3 4 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int partof_(doublereal *ma, doublereal *d__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dcbrt_ 7 1 7 */ + +extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int pck03e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int pcklof_(char *fname, integer *handle, ftnlen fname_len); +extern int pckuof_(integer *handle); +extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int pckcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckcov_(char *pckfnm, integer *idcode, doublereal *cover, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pcke20_(doublereal *et, doublereal *record, doublereal *eulang); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckfrm_(char *pckfnm, integer *ids, ftnlen pckfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: pckr02_ 14 4 4 7 7 7 */ +/*:ref: pcke02_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pckr03_ 14 4 4 7 7 7 */ +/*:ref: pcke03_ 14 3 7 7 7 */ +/*:ref: pckr20_ 14 4 4 7 7 7 */ +/*:ref: pcke20_ 14 3 7 7 7 */ + +extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int pckr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pckw02_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int pckw20_(integer *handle, integer *clssid, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *ascale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern integer pcwid_(char *array, integer *nelt, ftnlen array_len); + +extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ + +extern doublereal phaseq_(doublereal *et, char *target, char *illmn, char *obsrvr, char *abcorr, ftnlen target_len, ftnlen illmn_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern doublereal pi_(void); + +extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *konst); +/*:ref: vequ_ 14 2 7 7 */ + +extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point); +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2); +/*:ref: pl2nvp_ 14 3 7 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ + +extern integer plnsns_(integer *bodid); +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern doublereal pltar_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int pltexp_(doublereal *iverts, doublereal *delta, doublereal *overts); + +extern int pltnp_(doublereal *point, doublereal *v1, doublereal *v2, doublereal *v3, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npsgpt_ 14 5 7 7 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int pltnrm_(doublereal *v1, doublereal *v2, doublereal *v3, doublereal *normal); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ + +extern doublereal pltvol_(integer *nv, doublereal *vrtces, integer *np, integer *plates); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: det_ 7 1 7 */ + +extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p); + +extern int pool_(char *fname, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, integer *usrctr, ftnlen fname_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int clpool_(void); +extern int ldpool_(char *fname, ftnlen fname_len); +extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int expool_(char *name__, logical *found, ftnlen name_len); +extern int wrpool_(integer *unit); +extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len); +extern int cvpool_(char *agent, logical *update, ftnlen agent_len); +extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len); +extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len); +extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len); +extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len); +extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len); +extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len); +extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len); +extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len); +extern int dvpool_(char *name__, ftnlen name_len); +extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len); +extern int dwpool_(char *agent, ftnlen agent_len); +extern int zzvupool_(char *uwvars, integer *uwptrs, integer *uwpool, char *uwagnt, ftnlen uwvars_len, ftnlen uwagnt_len); +extern int zzpctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpini_ 14 28 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 4 13 13 13 13 4 124 124 124 124 124 124 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: zznwpool_ 14 14 13 13 4 4 13 13 13 13 124 124 124 124 124 124 */ +/*:ref: rdknew_ 14 2 13 124 */ +/*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lstltc_ 4 5 13 4 13 124 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: removc_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len); + +extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ + +extern doublereal prodad_(doublereal *array, integer *n); + +extern integer prodai_(integer *array, integer *n); + +extern int prompt_(char *dspmsg, char *buffer, ftnlen dspmsg_len, ftnlen buffer_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: stmp03_ 14 5 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ + +extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len); +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prsint_(char *string, integer *intval, ftnlen string_len); +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int prtenc_(integer *number, char *string, ftnlen string_len); +extern int prtdec_(char *string, integer *number, ftnlen string_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len); +extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault); +extern logical msgsel_(char *type__, ftnlen type_len); +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ + +extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane); +/*:ref: return_ 12 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int putact_(integer *action); +extern int getact_(integer *action); + +extern int putdev_(char *device, ftnlen device_len); +extern int getdev_(char *device, ftnlen device_len); + +extern int putlms_(char *msg, ftnlen msg_len); +extern int getlms_(char *msg, ftnlen msg_len); + +extern int putsms_(char *msg, ftnlen msg_len); +extern int getsms_(char *msg, ftnlen msg_len); + +extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int pxfrm2_(char *from, char *to, doublereal *etfrom, doublereal *etto, doublereal *rotate, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int q2m_(doublereal *q, doublereal *r__); + +extern int qderiv_(integer *ndim, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ + +extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av); +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: qxq_ 14 3 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan); +/*:ref: latrec_ 14 4 7 7 7 7 */ + +extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform); +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2q_ 14 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hx2int_ 14 6 13 4 12 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len); +extern int rdknew_(char *kernel, ftnlen kernel_len); +extern int rdkdat_(char *line, logical *eof, ftnlen line_len); +extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cltext_ 14 2 13 124 */ +/*:ref: zzsetnnread_ 14 1 12 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: failed_ 12 0 */ + +extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */ + +extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rdtext_ 14 5 13 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len); +extern int cltext_(char *file, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: getlun_ 14 1 4 */ + +extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: readln_ 14 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ + +extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int recazl_(doublereal *rectan, logical *azccw, logical *elplsz, doublereal *range, doublereal *az, doublereal *el); +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *clon, doublereal *z__); +/*:ref: twopi_ 7 0 */ + +extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *lon, doublereal *lat); + +extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: plnsns_ 4 1 4 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec); +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *slon); + +extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: rotget_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remlai_(integer *ne, integer *loc, integer *array, integer *na); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removd_(doublereal *item, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchd_ 4 3 7 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int removi_(integer *item, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len); + +extern int reordd_(integer *iorder, integer *ndim, doublereal *array); + +extern int reordi_(integer *iorder, integer *ndim, integer *array); + +extern int reordl_(integer *iorder, integer *ndim, logical *array); + +extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len); + +extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len); +/*:ref: nthwd_ 14 6 13 4 13 4 124 124 */ +/*:ref: fndnwd_ 14 5 13 4 4 4 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmct_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: inttxt_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dpstr_ 14 4 7 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repml_(char *in, char *marker, logical *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repmot_(char *in, char *marker, integer *value, char *rtcase, char *out, ftnlen in_len, ftnlen marker_len, ftnlen rtcase_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: intord_ 14 3 4 13 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ + +extern int reset_(void); +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: putlms_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ + +extern logical return_(void); +/*:ref: failed_ 12 0 */ +/*:ref: getact_ 14 1 4 */ + +extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int rmdupc_(integer *nelt, char *array, ftnlen array_len); +/*:ref: shellc_ 14 3 4 13 124 */ + +extern int rmdupd_(integer *nelt, doublereal *array); +/*:ref: shelld_ 14 2 4 7 */ + +extern int rmdupi_(integer *nelt, integer *array); +/*:ref: shelli_ 14 2 4 4 */ + +extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout); + +extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrot_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout); +/*:ref: moved_ 14 3 7 4 7 */ + +extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout); + +extern doublereal rpd_(void); + +extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern integer rtrim_(char *string, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: diags2_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); + +extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len); +/*:ref: eqchr_ 12 4 13 13 124 124 */ + +extern logical sameai_(integer *a1, integer *a2, integer *ndim); + +extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); +/*:ref: nechr_ 12 4 13 13 124 124 */ + +extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len); + +extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, integer *npartn, doublereal *parbeg, doublereal *parend, integer *clktyp, ftnlen clkstr_len); +extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et); +extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp); +extern int scty01_(integer *sc, integer *clktyp); +extern int scpr01_(integer *sc, integer *npartn, doublereal *parbeg, doublereal *parend); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzscup01_ 14 21 4 4 4 4 4 4 7 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len); +extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ncpos_ 4 5 13 13 4 124 124 */ + +extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end); +/*:ref: isrchi_ 4 3 4 4 4 */ + +extern int scardc_(integer *card, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int scardd_(integer *card, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scardi_(integer *card, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: scfmt_ 14 4 4 7 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ + +extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scec01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sce2t_ 14 3 4 7 7 */ +/*:ref: scdecd_ 14 4 4 7 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scet01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sctiks_ 14 4 4 13 7 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scfm01_ 14 4 4 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len); +extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len); +extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ + +extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scpart_ 14 4 4 4 7 7 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ + +extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scpr01_ 14 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scencd_ 14 4 4 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: scte01_ 14 3 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sctype_ 4 1 4 */ +/*:ref: sctk01_ 14 4 4 13 7 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len); +extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern integer sctype_(integer *sc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scty01_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sdiffi_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sepool_(char *item, integer *fidx, char *contin, char *string, integer *size, integer *lidx, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical seterr_(logical *status); +extern logical failed_(void); + +extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int setmsg_(char *msg, ftnlen msg_len); +/*:ref: allowd_ 12 0 */ +/*:ref: putlms_ 14 2 13 124 */ + +extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ + +extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len); +extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len); +extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len); +extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat); +extern int sgwes_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafcad_ 14 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafena_ 14 0 */ + +extern int sharpr_(doublereal *rot); +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ + +extern int shellc_(integer *ndim, char *array, ftnlen array_len); +/*:ref: swapc_ 14 4 13 13 124 124 */ + +extern int shelld_(integer *ndim, doublereal *array); +/*:ref: swapd_ 14 2 7 7 */ + +extern int shelli_(integer *ndim, integer *array); +/*:ref: swapi_ 14 2 4 4 */ + +extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len); + +extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len); +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ + +extern int sigerr_(char *msg, ftnlen msg_len); +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: seterr_ 12 1 12 */ +/*:ref: putsms_ 14 2 13 124 */ +/*:ref: freeze_ 14 0 */ +/*:ref: outmsg_ 14 2 13 124 */ +/*:ref: accept_ 12 1 12 */ +/*:ref: byebye_ 14 2 13 124 */ + +extern int sincpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzsfxcor_ 14 22 200 200 200 4 7 13 12 12 12 12 13 4 4 4 4 7 7 7 7 12 124 124 */ + +extern integer sizec_(char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dechar_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sized_(doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sizei_(integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical smsgnd_(doublereal *x, doublereal *y); + +extern logical smsgni_(integer *x, integer *y); + +extern logical somfls_(logical *logcls, integer *n); + +extern logical somtru_(logical *logcls, integer *n); + +extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopr_ 14 3 13 4 124 */ +/*:ref: spct2b_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */ +/*:ref: countc_ 4 5 4 4 4 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafarr_ 14 2 4 4 */ +/*:ref: lastnb_ 4 2 13 124 */ + +extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: txtopn_ 14 3 13 4 124 */ +/*:ref: spcb2t_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafb2t_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: spcec_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spcdc_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: dafrrr_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcec_(integer *handle, integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafsih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int spcopn_(char *fname, char *ifname, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len); +extern int spcrnl_(char *line, logical *eoc, ftnlen line_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int spct2b_(integer *unit, char *binary, ftnlen binary_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: daft2b_ 14 4 4 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dafopw_ 14 3 13 4 124 */ +/*:ref: spcac_ 14 6 4 4 13 13 124 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern doublereal spd_(void); + +extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slon, doublereal *r__, doublereal *clon, doublereal *z__); + +extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *radius, doublereal *lon, doublereal *lat); +/*:ref: halfpi_ 7 0 */ + +extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *slon, doublereal *rectan); + +extern doublereal sphsd_(doublereal *radius, doublereal *lon1, doublereal *lat1, doublereal *lon2, doublereal *lat2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ + +extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ + +extern int spk14e_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgwes_ 14 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkacs_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int spkaps_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len); +extern int spklef_(char *fname, integer *handle, ftnlen fname_len); +extern int spkuef_(integer *handle); +extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dafcls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafbbs_ 14 1 4 */ +/*:ref: daffpa_ 14 1 12 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: dafgn_ 14 2 13 124 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnktl_ 4 2 4 4 */ + +extern int spkcls_(integer *handle); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcov_(char *spkfnm, integer *idcode, doublereal *cover, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkcpo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obspos, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvo_ 14 17 13 7 13 13 13 7 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcpt_(doublereal *trgpos, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkcvt_ 14 17 7 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkcvo_(char *target, doublereal *et, char *outref, char *refloc, char *abcorr, doublereal *obssta, doublereal *obsepc, char *obsctr, char *obsref, doublereal *state, doublereal *lt, ftnlen target_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsctr_len, ftnlen obsref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzo_ 14 9 4 7 13 13 200 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 200 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spkcvt_(doublereal *trgsta, doublereal *trgepc, char *trgctr, char *trgref, doublereal *et, char *outref, char *refloc, char *abcorr, char *obsrvr, doublereal *state, doublereal *lt, ftnlen trgctr_len, ftnlen trgref_len, ftnlen outref_len, ftnlen refloc_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzcvssta_ 14 5 7 4 7 13 124 */ +/*:ref: zzspkfzt_ 14 9 200 7 13 13 4 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zzspkfat_ 14 10 200 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ + +extern int spke01_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbint_ 14 6 7 4 7 7 7 7 */ + +extern int spke03_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ + +extern int spke05_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke08_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: lgresp_ 7 6 4 7 7 7 7 7 */ + +extern int spke09_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: xposeg_ 14 4 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke10_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: xxsgp4i_ 14 3 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xxsgp4e_ 14 2 7 7 */ +/*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzteme_ 14 3 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke12_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke13_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke14_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chbval_ 14 5 7 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spke15_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: prop2b_ 14 4 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spke17_(doublereal *et, doublereal *recin, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */ + +extern int spke18_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int spke19_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: xpsgip_ 14 3 4 4 7 */ +/*:ref: lgrint_ 7 5 4 7 7 7 7 */ + +extern int spke20_(doublereal *et, doublereal *record, doublereal *xyzdot); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: chbigr_ 14 6 4 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int spke21_(doublereal *et, doublereal *record, doublereal *state); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int spkezr_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *starg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int spkltc_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int spkobj_(char *spkfnm, integer *ids, ftnlen spkfnm_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafopr_ 14 3 13 4 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: dafcls_ 14 1 4 */ + +extern int spkopa_(char *file, integer *handle, ftnlen file_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafopw_ 14 3 13 4 124 */ + +extern int spkopn_(char *fname, char *ifname, integer *ncomch, integer *handle, ftnlen fname_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ + +extern int spkpos_(char *targ, doublereal *et, char *ref, char *abcorr, char *obs, doublereal *ptarg, doublereal *lt, ftnlen targ_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obs_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ + +extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: spkr01_ 14 4 4 7 7 7 */ +/*:ref: spke01_ 14 3 7 7 7 */ +/*:ref: spkr02_ 14 4 4 7 7 7 */ +/*:ref: spke02_ 14 3 7 7 7 */ +/*:ref: spkr03_ 14 4 4 7 7 7 */ +/*:ref: spke03_ 14 3 7 7 7 */ +/*:ref: spkr05_ 14 4 4 7 7 7 */ +/*:ref: spke05_ 14 3 7 7 7 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: spke08_ 14 3 7 7 7 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: spke09_ 14 3 7 7 7 */ +/*:ref: spkr10_ 14 4 4 7 7 7 */ +/*:ref: spke10_ 14 3 7 7 7 */ +/*:ref: spkr12_ 14 4 4 7 7 7 */ +/*:ref: spke12_ 14 3 7 7 7 */ +/*:ref: spkr13_ 14 4 4 7 7 7 */ +/*:ref: spke13_ 14 3 7 7 7 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkr14_ 14 4 4 7 7 7 */ +/*:ref: spke14_ 14 3 7 7 7 */ +/*:ref: spkr15_ 14 4 4 7 7 7 */ +/*:ref: spke15_ 14 3 7 7 7 */ +/*:ref: spkr17_ 14 4 4 7 7 7 */ +/*:ref: spke17_ 14 3 7 7 7 */ +/*:ref: spkr18_ 14 4 4 7 7 7 */ +/*:ref: spke18_ 14 3 7 7 7 */ +/*:ref: spkr19_ 14 4 4 7 7 7 */ +/*:ref: spke19_ 14 3 7 7 7 */ +/*:ref: spkr20_ 14 4 4 7 7 7 */ +/*:ref: spke20_ 14 3 7 7 7 */ +/*:ref: spkr21_ 14 4 4 7 7 7 */ +/*:ref: spke21_ 14 3 7 7 7 */ + +extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr08_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkr09_ 14 4 4 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ + +extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spkr19_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: odd_ 12 1 4 */ + +extern int spkr20_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkr21_(integer *handle, doublereal *descr, doublereal *et, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstltd_ 4 3 7 4 7 */ + +extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgmeta_ 14 4 4 7 4 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgfcon_ 14 5 4 7 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */ +/*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sgfref_ 14 5 4 7 4 4 7 */ +/*:ref: spk14a_ 14 4 4 4 7 7 */ +/*:ref: spk14e_ 14 1 4 */ + +extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks19_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstltd_ 4 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: dafhfn_ 14 3 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dafada_ 14 2 7 4 */ + +extern int spks20_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spks21_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: spks01_ 14 5 4 4 4 7 7 */ +/*:ref: dafena_ 14 0 */ +/*:ref: spks02_ 14 5 4 4 4 7 7 */ +/*:ref: spks03_ 14 5 4 4 4 7 7 */ +/*:ref: spks05_ 14 5 4 4 4 7 7 */ +/*:ref: spks08_ 14 5 4 4 4 7 7 */ +/*:ref: spks09_ 14 5 4 4 4 7 7 */ +/*:ref: spks10_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks12_ 14 5 4 4 4 7 7 */ +/*:ref: spks13_ 14 5 4 4 4 7 7 */ +/*:ref: spks14_ 14 6 4 7 4 7 13 124 */ +/*:ref: spks15_ 14 5 4 4 4 7 7 */ +/*:ref: spks17_ 14 5 4 4 4 7 7 */ +/*:ref: spks18_ 14 5 4 4 4 7 7 */ +/*:ref: spks19_ 14 5 4 4 4 7 7 */ +/*:ref: spks20_ 14 5 4 4 4 7 7 */ +/*:ref: spks21_ 14 5 4 4 4 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *baddrs, integer *eaddrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int spkw01_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw02_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw03_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw05_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *gm, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw09_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw10_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *consts, integer *n, doublereal *elems, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: sgwfpk_ 14 5 4 4 7 4 7 */ +/*:ref: sgwes_ 14 1 4 */ + +extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *begtim, doublereal *step, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw13_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: even_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw15_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *tp, doublereal *pa, doublereal *p, doublereal *ecc, doublereal *j2flg, doublereal *pv, doublereal *gm, doublereal *j2, doublereal *radius, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dpr_ 7 0 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw17_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *epoch, doublereal *eqel, doublereal *rapol, doublereal *decpol, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw18_(integer *handle, integer *subtyp, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *packts, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw19_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *nintvl, integer *npkts, integer *subtps, integer *degres, doublereal *packts, doublereal *epochs, doublereal *ivlbds, logical *sellst, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw20_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *dscale, doublereal *tscale, doublereal *initjd, doublereal *initfr, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: chckid_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int spkw21_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *n, integer *dlsize, doublereal *dlines, doublereal *epochs, ftnlen frame_len, ftnlen segid_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */ +/*:ref: dafbna_ 14 4 4 7 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafada_ 14 2 7 4 */ +/*:ref: dafena_ 14 0 */ + +extern int srfc2s_(integer *code, integer *bodyid, char *srfstr, logical *isname, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfcss_(integer *code, char *bodstr, char *srfstr, logical *isname, ftnlen bodstr_len, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfc2n_ 14 5 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int srfnrm_(char *method, char *target, doublereal *et, char *fixref, integer *npts, doublereal *srfpts, doublereal *normls, ftnlen method_len, ftnlen target_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: zzsbfnrm_ 14 7 4 4 4 7 4 7 7 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int srfrec_(integer *body, doublereal *lon, doublereal *lat, doublereal *rectan); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ + +extern int srfs2c_(char *srfstr, char *bodstr, integer *code, logical *found, ftnlen srfstr_len, ftnlen bodstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfscc_(char *srfstr, integer *bodyid, integer *code, logical *found, ftnlen srfstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzsrfn2c_ 14 5 13 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int srfxpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, doublereal *spoint, doublereal *dist, doublereal *trgepc, doublereal *obspos, logical *found, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int ssizec_(integer *size, char *cell, ftnlen cell_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: enchar_ 14 3 4 13 124 */ + +extern int ssized_(integer *size, doublereal *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int ssizei_(integer *size, integer *cell); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekopr_ 14 3 13 4 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: nblen_ 4 2 13 124 */ +/*:ref: ekcls_ 14 1 4 */ + +extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ekfind_ 14 6 13 4 12 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ekgd_ 14 6 4 4 4 7 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ekgi_ 14 6 4 4 4 4 12 12 */ +/*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */ +/*:ref: rpd_ 7 0 */ + +extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ + +extern int stdio_(char *name__, integer *unit, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3); +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int stpool_(char *item, integer *nth, char *contin, char *nthstr, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen nthstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int str2et_(char *timstr, doublereal *et, ftnlen timstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: tchckd_ 14 2 13 124 */ +/*:ref: tparch_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ + +extern int subpnt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ + +extern int subpt_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *alt, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ + +extern int subslr_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int subsol_(char *method, char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ + +extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len); +/*:ref: lastnb_ 4 2 13 124 */ + +extern doublereal sumad_(doublereal *array, integer *n); + +extern integer sumai_(integer *array, integer *n); + +extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int surfpv_(doublereal *stvrtx, doublereal *stdir, doublereal *a, doublereal *b, doublereal *c__, doublereal *stx, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ + +extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: cyacip_ 14 6 4 13 4 13 124 124 */ + +extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: cyadip_ 14 5 4 13 4 7 124 */ + +extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: cyaiip_ 14 5 4 13 4 4 124 */ + +extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len); + +extern int swapd_(doublereal *a, doublereal *b); + +extern int swapi_(integer *a, integer *b); + +extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupc_(char *name__, char *copy, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetc_(char *name__, char *tabsym, integer *tabptr, char *tabval, integer *n, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthc_(char *name__, integer *nth, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shellc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelld_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopc_(char *name__, char *tabsym, integer *tabptr, char *tabval, char *value, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syputc_(char *name__, char *values, integer *n, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen values_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ + +extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ + +extern int syrenc_(char *old, char *new__, char *tabsym, integer *tabptr, char *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeld_ 14 6 13 13 4 7 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapad_ 14 5 4 4 4 4 7 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sydeli_ 14 6 13 13 4 4 124 124 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapai_ 14 5 4 4 4 4 4 */ +/*:ref: swapac_ 14 6 4 4 4 4 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syselc_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, char *tabval, char *values, logical *found, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseld_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseli_(char *name__, integer *begin, integer *end, char *tabsym, integer *tabptr, integer *tabval, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetc_(char *name__, char *value, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen value_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlac_ 14 5 4 4 13 4 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlad_ 14 4 4 4 7 4 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: inslad_ 14 5 7 4 4 7 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: lstlec_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: remlai_ 14 4 4 4 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: inslai_ 14 5 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnc_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapc_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrnd_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int sytrni_(char *name__, integer *idx1, integer *idx2, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: sumai_ 4 2 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tangpt_(char *method, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, char *dref, doublereal *dvec, doublereal *tanpt, doublereal *alt, doublereal *range, doublereal *srfpt, doublereal *trgepc, doublereal *srfvec, ftnlen method_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edpnt_ 14 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: clight_ 7 0 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vrel_ 7 2 7 7 */ + +extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len); +extern int tparch_(char *type__, ftnlen type_len); +extern int tchckd_(char *type__, ftnlen type_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int termpt_(char *method, char *ilusrc, char *target, doublereal *et, char *fixref, char *abcorr, char *corloc, char *obsrvr, doublereal *refvec, doublereal *rolstp, integer *ncuts, doublereal *schstp, doublereal *soltol, integer *maxn, integer *npts, doublereal *points, doublereal *epochs, doublereal *trmvcs, ftnlen method_len, ftnlen ilusrc_len, ftnlen target_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen corloc_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsrftrk_ 14 2 4 12 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: zzbodvcd_ 14 7 4 13 4 4 4 7 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: zztangnt_ 14 14 4 7 4 4 4 4 4 7 7 7 7 7 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: zzedtmpt_ 14 8 12 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int texpyr_(integer *year); +extern int tsetyr_(integer *year); + +extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ + +extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scanpr_ 14 5 4 13 4 4 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */ +/*:ref: timdef_ 14 6 13 13 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: scanrj_ 14 6 4 4 4 4 4 4 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: gr2jul_ 14 4 4 4 4 4 */ +/*:ref: jul2gr_ 14 4 4 4 4 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: lcase_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: pckmat_ 14 5 4 7 4 7 12 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: ccifrm_ 14 7 4 4 4 13 4 12 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzbodbry_ 4 1 4 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: rpd_ 7 0 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int tkfram_(integer *frcode, doublereal *rot, integer *frame, logical *found); +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: locati_ 14 6 4 4 4 4 4 12 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: dwpool_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: sharpr_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatg_ 14 3 7 4 7 */ +/*:ref: q2m_ 14 2 7 7 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ + +extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len); +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int tostdo_(char *line, ftnlen line_len); +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: writln_ 14 3 13 4 124 */ + +extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len); + +extern doublereal touchd_(doublereal *dp); + +extern integer touchi_(integer *int__); + +extern logical touchl_(logical *log__); + +extern int tparse_(char *string, doublereal *sp2000, char *errmsg, ftnlen string_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int tpartv_(char *string, doublereal *tvec, integer *ntvec, char *type__, char *modify, logical *mods, logical *yabbrv, logical *succes, char *pictur, char *error, ftnlen string_len, ftnlen type_len, ftnlen modify_len, ftnlen pictur_len, ftnlen error_len); +/*:ref: zztpats_ 12 6 4 4 13 13 124 124 */ +/*:ref: zztokns_ 12 4 13 13 124 124 */ +/*:ref: zzcmbt_ 12 5 13 13 12 124 124 */ +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzrept_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ +/*:ref: zzist_ 12 2 13 124 */ +/*:ref: zznote_ 12 4 13 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */ +/*:ref: zzgrep_ 12 2 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzispt_ 12 4 13 4 4 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ + +extern int tpictr_(char *sample, char *pictur, logical *ok, char *errmsg, ftnlen sample_len, ftnlen pictur_len, ftnlen errmsg_len); +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ + +extern doublereal trace_(doublereal *matrix); + +extern doublereal traceg_(doublereal *matrix, integer *ndim); + +extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len); +extern int chkin_(char *module, ftnlen module_len); +extern int chkout_(char *module, ftnlen module_len); +extern int trcdep_(integer *depth); +extern int trcmxd_(integer *depth); +extern int trcnam_(integer *index, char *name__, ftnlen name_len); +extern int qcktrc_(char *trace, ftnlen trace_len); +extern int freeze_(void); +extern int trcoff_(void); +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: frstnb_ 4 2 13 124 */ +/*:ref: getdev_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: getact_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern doublereal trgsep_(doublereal *et, char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspin_ 14 20 13 13 13 13 13 13 13 13 4 4 7 4 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordi_ 14 3 4 4 4 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: rmaini_ 14 4 4 4 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: rmaind_ 14 4 7 7 7 7 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ +/*:ref: unitim_ 7 5 7 13 13 124 124 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: lstlti_ 4 3 4 4 4 */ + +extern doublereal twopi_(void); + +extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int txtopn_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int txtopr_(char *fname, integer *unit, ftnlen fname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern doublereal tyear_(void); + +extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len); + +extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int uddc_(U_fp udfunc, doublereal *x, doublereal *dx, logical *isdecr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: uddf_ 14 4 200 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int uddf_(S_fp udfunc, doublereal *x, doublereal *dx, doublereal *deriv); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int udf_(doublereal *x, doublereal *value); + +extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int uniond_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int unioni_(integer *a, integer *b, integer *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: scardi_ 14 2 4 4 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spd_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: somfls_ 12 2 12 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: insrtc_ 14 4 13 13 124 124 */ +/*:ref: setc_ 12 6 13 13 13 124 124 124 */ +/*:ref: elemc_ 12 4 13 13 124 124 */ + +extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag); +/*:ref: vnorm_ 7 1 7 */ + +extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */ +/*:ref: texpyr_ 14 1 4 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern int validc_(integer *size, integer *n, char *a, ftnlen a_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupc_ 14 3 4 13 124 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ + +extern int validd_(integer *size, integer *n, doublereal *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int validi_(integer *size, integer *n, integer *a); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rmdupi_ 14 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: scardi_ 14 2 4 4 */ + +extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern doublereal vdist_(doublereal *v1, doublereal *v2); +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern doublereal vdot_(doublereal *v1, doublereal *v2); + +extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim); + +extern int vequ_(doublereal *vin, doublereal *vout); + +extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vhat_(doublereal *v1, doublereal *vout); +/*:ref: vnorm_ 7 1 7 */ + +extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout); +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vhatip_(doublereal *v); +/*:ref: vnorm_ 7 1 7 */ + +extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum); + +extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum); + +extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout); + +extern int vminus_(doublereal *v1, doublereal *vout); + +extern doublereal vnorm_(doublereal *v1); + +extern doublereal vnormg_(doublereal *v1, integer *ndim); + +extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v); + +extern int vperp_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: approx_ 12 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int vproj_(doublereal *a, doublereal *b, doublereal *p); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p); +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: vsclg_ 14 4 7 7 4 7 */ + +extern doublereal vrel_(doublereal *v1, doublereal *v2); +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vdistg_ 7 3 7 7 4 */ +/*:ref: vnormg_ 7 2 7 4 */ + +extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__); +/*:ref: vnorm_ 7 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vproj_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout); + +extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout); + +extern int vsclip_(doublereal *s, doublereal *v); + +extern doublereal vsep_(doublereal *v1, doublereal *v2); +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: pi_ 7 0 */ + +extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim); +/*:ref: vnormg_ 7 2 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: pi_ 7 0 */ + +extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout); + +extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout); + +extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2); + +extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol); + +extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__); + +extern logical vzero_(doublereal *v); + +extern logical vzerog_(doublereal *v, integer *ndim); + +extern integer wdcnt_(char *string, ftnlen string_len); + +extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: frstnb_ 4 2 13 124 */ + +extern integer wncard_(doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int wncond_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern logical wnelmd_(doublereal *point, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnextd_(char *side, doublereal *window, ftnlen side_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfild_(doublereal *smlgap, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnfltd_(doublereal *smlint, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wninsd_(doublereal *left, doublereal *right, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ + +extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: wnincd_ 12 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *idxsml, integer *idxlon); +/*:ref: return_ 12 0 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: even_ 12 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: excess_ 14 3 4 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wnvald_(integer *size, integer *n, doublereal *window); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrencd_(integer *unit, integer *n, doublereal *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dp2hx_ 14 4 7 13 4 124 */ + +extern int wrenci_(integer *unit, integer *n, integer *data); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: int2hx_ 14 4 4 13 4 124 */ + +extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ + +extern int writln_(char *line, integer *unit, ftnlen line_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sydimd_ 4 6 13 13 4 7 124 124 */ +/*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: rjust_ 14 4 13 13 124 124 */ +/*:ref: ioerr_ 14 5 13 13 4 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len); +extern int clline_(char *device, ftnlen device_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: fndlun_ 14 1 4 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ + +extern int xdda_(doublereal *vertex, doublereal *raydir, integer *grdext, integer *maxnvx, integer *nvx, integer *voxlst); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzingrd_ 12 2 4 4 */ + +extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique); +extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: mxmt_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ + +extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av); +/*:ref: mtxm_ 14 3 7 7 7 */ + +extern int xfmsta_(doublereal *istate, char *icosys, char *ocosys, char *body, doublereal *ostate, ftnlen icosys_len, ftnlen ocosys_len, ftnlen body_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequg_ 14 3 7 4 7 */ +/*:ref: zzbods2c_ 14 9 4 13 4 12 13 4 12 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: drdcyl_ 14 4 7 7 7 7 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: drdlat_ 14 4 7 7 7 7 */ +/*:ref: sphrec_ 14 4 7 7 7 7 */ +/*:ref: drdsph_ 14 4 7 7 7 7 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: drdgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: pgrrec_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: drdpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: dcyldr_ 14 4 7 7 7 7 */ +/*:ref: dlatdr_ 14 4 7 7 7 7 */ +/*:ref: dsphdr_ 14 4 7 7 7 7 */ +/*:ref: dgeodr_ 14 6 7 7 7 7 7 7 */ +/*:ref: dpgrdr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int xpose_(doublereal *m1, doublereal *mout); + +extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem); + +extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix); + +extern int zzaddlnk_(integer *aval, integer *bval, integer *maxa, integer *cellsz, integer *pntrs, integer *ncell, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: swapd_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzbodblt_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, char *device, char *reqst, ftnlen names_len, ftnlen nornam_len, ftnlen device_len, ftnlen reqst_len); +extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len); +extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzidmap_ 14 3 4 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: wrline_ 14 4 13 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ + +extern integer zzbodbry_(integer *body); + +extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *maxval, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, logical *extker, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen names_len, ftnlen nornam_len, ftnlen bnmnms_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ + +extern int zzbods2c_(integer *usrctr, char *savnam, integer *savcde, logical *savfnd, char *name__, integer *code, logical *found, ftnlen savnam_len, ftnlen name_len); +/*:ref: return_ 12 0 */ +/*:ref: zzbctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbodtrn_(char *name__, integer *code, logical *found, integer *usrctr, logical *update, ftnlen name_len); +extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len); +extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len); +extern int zzboddef_(char *name__, integer *code, ftnlen name_len); +extern int zzbodkik_(void); +extern int zzbodrst_(void); +extern int zzbctrck_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodini_ 14 16 13 13 4 4 4 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: zzbodker_ 14 16 13 13 4 4 12 4 4 13 4 4 4 4 4 124 124 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzhscchk_ 14 7 4 4 13 13 4 124 124 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *varctr, integer *n, doublereal *values, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzbquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, integer *nx, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zzchrlat_(doublereal *midlat, doublereal *dlon, doublereal *eptlat); +/*:ref: return_ 12 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: brcktd_ 7 3 7 7 7 */ + +extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__); + +extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef); + +extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: dafps_ 14 5 4 4 7 4 7 */ +/*:ref: cknr04_ 14 3 4 7 4 */ +/*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: errint_ 14 3 13 7 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckcv06_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ + +extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dafhsf_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dafbfs_ 14 1 4 */ +/*:ref: daffna_ 14 1 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: dafgs_ 14 1 7 */ +/*:ref: dafus_ 14 5 7 4 4 7 4 */ +/*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */ +/*:ref: dafgda_ 14 4 4 4 4 7 */ + +extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcnquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *ub, integer *n, doublereal *r1, doublereal *r2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: zzbquad_ 14 8 7 7 7 7 4 4 7 7 */ + +extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcorsxf_(logical *xmit, doublereal *dlt, doublereal *xform, doublereal *corxfm); +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ + +extern int zzcputim_(doublereal *tvec); +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzctr_(integer *newctr, integer *oldctr, logical *update); +extern int zzctruin_(integer *oldctr); +extern int zzctrsin_(integer *oldctr); +extern int zzctrinc_(integer *oldctr); +extern int zzctrchk_(integer *newctr, integer *oldctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: intmin_ 4 0 */ + +extern int zzcvpool_(char *agent, integer *usrctr, logical *update, ftnlen agent_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzcvstat_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvxsta_(doublereal *et, char *ref, integer *center, doublereal *state, ftnlen ref_len); +extern int zzcvssta_(doublereal *state, integer *center, doublereal *et, char *ref, ftnlen ref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzcxbrut_(doublereal *apex, doublereal *axis, doublereal *angle, doublereal *endpt1, doublereal *endpt2, doublereal *xpt, logical *isbrck); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafgfr_(integer *handle, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, logical *found, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzdafnfr_(integer *lun, char *idword, integer *nd, integer *ni, char *ifname, integer *fward, integer *bward, integer *free, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasgrd_(integer *handle, integer *recno, doublereal *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlated_ 14 5 4 13 4 7 124 */ + +extern int zzdasgri_(integer *handle, integer *recno, integer *record); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzdasnfr_(integer *lun, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, char *format, ftnlen idword_len, ftnlen ifname_len, ftnlen format_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdasrfr_(integer *handle, char *idword, char *ifname, integer *nresvr, integer *nresvc, integer *ncomr, integer *ncomc, ftnlen idword_len, ftnlen ifname_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhnfc_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern integer zzddhclu_(logical *utlck, integer *nut); + +extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, doublereal *ftmnm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, doublereal *mnm, ftnlen fname_len, ftnlen ftnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhmnm_ 7 1 4 */ + +extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex); +/*:ref: return_ 12 0 */ +/*:ref: getlun_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: frelun_ 14 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len); +/*:ref: return_ 12 0 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: nextwd_ 14 6 13 13 13 124 124 124 */ + +extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len); + +extern int zzddhman_(logical *lock, char *arch, char *fname, char *method, integer *handle, integer *unit, integer *intamh, integer *intarc, integer *intbff, logical *native, logical *found, logical *kill, ftnlen arch_len, ftnlen fname_len, ftnlen method_len); +extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len); +extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len); +extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len); +extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len); +extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len); +extern int zzddhisn_(integer *handle, logical *native, logical *found); +extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len); +extern int zzddhluh_(integer *unit, integer *handle, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzpltchk_ 14 1 12 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzddhclu_ 4 2 12 4 */ +/*:ref: zzddhf2h_ 14 22 13 4 4 4 4 4 13 4 7 4 4 4 12 4 4 12 12 4 12 7 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrcm_ 14 3 4 4 4 */ +/*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */ +/*:ref: frelun_ 14 1 4 */ + +extern doublereal zzddhmnm_(integer *unit); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: zzddhppf_ 14 3 4 4 4 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzxlatei_ 14 5 4 13 4 4 124 */ + +extern int zzddhnfc_(integer *natbff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzddhppf_(integer *unit, integer *arch, integer *bff); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errfnm_ 14 3 13 4 124 */ +/*:ref: idw2at_ 14 6 13 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzftpchk_ 14 3 13 12 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzddhivf_ 14 4 13 4 12 124 */ + +extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt); +/*:ref: intmax_ 4 0 */ + +extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reslun_ 14 1 4 */ + +extern doublereal zzdiv_(doublereal *numr, doublereal *denom); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdnpt_(doublereal *state, doublereal *nearp, doublereal *a, doublereal *b, doublereal *c__, doublereal *dnear, doublereal *dalt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vtmv_ 7 3 7 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzdscm_(doublereal *epoch, doublereal *eccp, doublereal *argpp, doublereal *tc, doublereal *inclp, doublereal *nodep, doublereal *np, doublereal *snodm, doublereal *cnodm, doublereal *sinim, doublereal *cosim, doublereal *sinomm, doublereal *cosomm, doublereal *day, doublereal *e3, doublereal *ee2, doublereal *eccm, doublereal *emsq, doublereal *gam, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *rtemsq, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *s6, doublereal *s7, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *ss6, doublereal *ss7, doublereal *sz1, doublereal *sz2, doublereal *sz3, doublereal *sz11, doublereal *sz12, doublereal *sz13, doublereal *sz21, doublereal *sz22, doublereal *sz23, doublereal *sz31, doublereal *sz32, doublereal *sz33, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *xn, doublereal *z1, doublereal *z2, doublereal *z3, doublereal *z11, doublereal *z12, doublereal *z13, doublereal *z21, doublereal *z22, doublereal *z23, doublereal *z31, doublereal *z32, doublereal *z33, doublereal *zmol, doublereal *zmos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsin_(doublereal *geophs, doublereal *cosim, doublereal *emsq, doublereal *argpo, doublereal *s1, doublereal *s2, doublereal *s3, doublereal *s4, doublereal *s5, doublereal *sinim, doublereal *ss1, doublereal *ss2, doublereal *ss3, doublereal *ss4, doublereal *ss5, doublereal *sz1, doublereal *sz3, doublereal *sz11, doublereal *sz13, doublereal *sz21, doublereal *sz23, doublereal *sz31, doublereal *sz33, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *mo, doublereal *mdot, doublereal *no, doublereal *nodeo, doublereal *nodedot, doublereal *xpidot, doublereal *z1, doublereal *z3, doublereal *z11, doublereal *z13, doublereal *z21, doublereal *z23, doublereal *z31, doublereal *z33, doublereal *ecco, doublereal *eccsq, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *mm, doublereal *xn, doublereal *nodem, integer *irez, doublereal *atime, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *didt, doublereal *dmdt, doublereal *dndt, doublereal *dnodt, doublereal *domdt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *xfact, doublereal *xlamo, doublereal *xli, doublereal *xni); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbbl_(integer *bodyid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdskbsr_(char *fname, integer *bodyid, integer *handle, L_fp cmpfun, integer *usrctr, logical *update, integer *dladsc, doublereal *dskdsc, logical *found, ftnlen fname_len); +extern int zzdsklsf_(char *fname, integer *handle, ftnlen fname_len); +extern int zzdskusf_(integer *handle); +extern int zzdskbss_(integer *bodyid); +extern int zzdsksns_(L_fp cmpfun, integer *handle, integer *dladsc, doublereal *dskdsc, logical *found); +extern int zzdskchk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: dasopr_ 14 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: dascls_ 14 1 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: intmax_ 4 0 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: dlabfs_ 14 3 4 4 12 */ +/*:ref: dlafns_ 14 4 4 4 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgd_ 14 3 4 4 7 */ +/*:ref: dlabbs_ 14 3 4 4 12 */ +/*:ref: dlafps_ 14 4 4 4 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzdskbun_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzptpl02_ 14 8 4 4 7 7 4 4 7 12 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdskbux_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, integer *nseg, integer *hanbuf, integer *dlabuf, doublereal *dskbuf, doublereal *offbuf, doublereal *ctrbuf, doublereal *radbuf, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *segidx, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: zzrytelt_ 14 6 7 7 7 7 4 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: orderd_ 14 3 7 4 4 */ +/*:ref: zzdsksgx_ 14 10 4 4 4 7 7 7 7 7 4 12 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ + +extern int zzdsksba_(integer *bodyid, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzdsksbd_ 12 1 4 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: zzdsksbr_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ + +extern int zzdsksbf_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *point, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found, doublereal *normal); +extern int zzsbfxr_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, logical *found); +extern int zzsbfxri_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *xpt, integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *dc, integer *ic, logical *found); +extern int zzsbfnrm_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *point, doublereal *normal); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: zzdsksbi_ 14 13 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zzdsksba_ 14 14 4 4 4 4 4 4 4 4 7 4 4 7 7 7 */ +/*:ref: zzdskbux_ 14 19 4 4 4 7 4 4 4 4 7 7 7 7 7 7 7 4 7 4 12 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzdskbun_ 14 14 4 4 4 7 4 4 4 4 7 7 7 7 7 7 */ + +extern int zzdsksbi_(integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksbr_(integer *needed, integer *maxbod, integer *stsize, integer *btbody, integer *btnbod, integer *btsegp, integer *btstsz, integer *sthan, doublereal *stdscr, integer *stdlad, integer *stfree, doublereal *stoff, doublereal *stctr, doublereal *strad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern logical zzdsksel_(integer *surfid, integer *nsurf, integer *srflst, integer *bodyid, integer *dclass, integer *corsys, doublereal *corpar, doublereal *cor1, doublereal *cor2, integer *framid, doublereal *pos, doublereal *et, integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksbd_(integer *bodyid); +extern logical zzdskbdc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsknot_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksit_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *et); +extern logical zzdskcit_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskusc_(integer *bodyid, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskumc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdskmsc_(integer *bodyid, integer *surfid, integer *framid, integer *corsys, doublereal *corpar, doublereal *et, doublereal *cor1, doublereal *cor2); +extern logical zzdskmmc_(integer *handle, integer *dladsc, doublereal *dskdsc); +extern logical zzdsksrc_(integer *surfid, integer *bodyid, integer *dclass, doublereal *et, integer *framid, doublereal *pos); +extern logical zzdskmrc_(integer *handle, integer *dladsc, doublereal *dskdsc); +/*:ref: touchi_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: shelli_ 14 2 4 4 */ +/*:ref: bsrchi_ 4 3 4 4 4 */ +/*:ref: twopi_ 7 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern doublereal zzdsksgr_(doublereal *dskdsc); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzdsksgx_(integer *handle, integer *dladsc, integer *dtype, doublereal *et, doublereal *vertex, doublereal *raydir, doublereal *xpt, doublereal *dc, integer *ic, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: dskx02_ 14 7 4 4 7 7 4 7 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdsksph_(integer *bodyid, integer *nsurf, integer *srflst, doublereal *minrad, doublereal *maxrad); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdskchk_ 14 2 4 12 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzdskbbl_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdskbss_ 14 1 4 */ +/*:ref: zzdsksbd_ 14 1 4 */ +/*:ref: zzdsksns_ 14 5 200 4 4 7 12 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzdspc_(integer *irez, doublereal *d2201, doublereal *d2211, doublereal *d3210, doublereal *d3222, doublereal *d4410, doublereal *d4422, doublereal *d5220, doublereal *d5232, doublereal *d5421, doublereal *d5433, doublereal *dedt, doublereal *del1, doublereal *del2, doublereal *del3, doublereal *didt, doublereal *dmdt, doublereal *dnodt, doublereal *domdt, doublereal *argpo, doublereal *argpdot, doublereal *t, doublereal *tc, doublereal *gsto, doublereal *xfact, doublereal *xlamo, doublereal *no, doublereal *atime, doublereal *eccm, doublereal *argpm, doublereal *inclm, doublereal *xli, doublereal *mm, doublereal *xni, doublereal *nodem, doublereal *dndt, doublereal *xn); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdspr_(integer *opmode, doublereal *e3, doublereal *ee2, doublereal *peo, doublereal *pgho, doublereal *pho, doublereal *pinco, doublereal *plo, doublereal *se2, doublereal *se3, doublereal *sgh2, doublereal *sgh3, doublereal *sgh4, doublereal *sh2, doublereal *sh3, doublereal *si2, doublereal *si3, doublereal *sl2, doublereal *sl3, doublereal *sl4, doublereal *t, doublereal *xgh2, doublereal *xgh3, doublereal *xgh4, doublereal *xh2, doublereal *xh3, doublereal *xi2, doublereal *xi3, doublereal *xl2, doublereal *xl3, doublereal *xl4, doublereal *zmol, doublereal *zmos, doublereal *inclo, logical *doinit, doublereal *eccp, doublereal *inclp, doublereal *nodep, doublereal *argpp, doublereal *mp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: prsint_ 14 3 13 4 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxmg_ 14 6 7 7 4 4 4 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynoac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, logical *found, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: bodn2c_ 14 4 13 4 12 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */ +/*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: cidfrm_ 14 5 4 4 13 12 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: nearpt_ 14 6 7 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */ +/*:ref: convrt_ 14 6 7 13 13 7 124 124 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: twovec_ 14 5 7 4 7 4 7 */ +/*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */ +/*:ref: polyds_ 14 5 7 4 4 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ + +extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ + +extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ + +extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ + +extern int zzedterm_(char *type__, doublereal *a, doublereal *b, doublereal *c__, doublereal *srcrad, doublereal *srcpos, integer *npts, doublereal *trmpts, ftnlen type_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ + +extern int zzedtmpt_(logical *umbral, doublereal *a, doublereal *b, doublereal *c__, doublereal *r__, doublereal *axis, doublereal *plnvec, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordi_ 14 5 4 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzekpgwd_ 14 3 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordd_ 14 5 7 12 12 4 4 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */ +/*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */ + +extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ + +extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ + +extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */ + +extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ + +extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base); +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzeksfwd_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekcix1_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgan_ 14 4 4 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrap_ 14 4 4 4 4 4 */ + +extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekcix1_(integer *handle, integer *coldsc); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrit_ 14 2 4 4 */ + +extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: zzekdps_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p); +/*:ref: zzekpgfr_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ + +extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts); +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ + +extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */ +/*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */ +/*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */ + +extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: zzeksz04_ 4 4 4 4 4 4 */ +/*:ref: zzeksz05_ 4 4 4 4 4 4 */ +/*:ref: zzeksz06_ 4 4 4 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrit_ 14 2 4 4 */ +/*:ref: zzektr1s_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgei_(integer *handle, integer *addrss, integer *ival); +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ + +extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekgrs_(integer *handle, integer *recptr, integer *status); +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksdec_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekif02_(integer *handle, integer *segno); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */ + +extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */ +/*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */ +/*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */ + +extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekfrx_ 14 5 4 4 4 4 4 */ +/*:ref: zzektrdl_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekjnxt_ 14 2 12 4 */ + +extern int zzekjsqz_(integer *jrsbas); +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzekvcal_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: swapi_ 14 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ + +extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec); +extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs); +extern int zzekjnxt_(logical *found, integer *rowvec); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzekspsh_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ordi_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ + +extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */ + +extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */ + +extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr); +/*:ref: failed_ 12 0 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */ + +extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekixlk_ 14 4 4 4 4 4 */ +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base); +/*:ref: eknseg_ 4 1 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: ekntab_ 14 1 4 */ +/*:ref: ektnam_ 14 3 4 13 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lnkhl_ 4 2 4 4 */ +/*:ref: lnkprv_ 4 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lnkilb_ 14 3 4 4 4 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnktl_ 4 2 4 4 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder); +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len); +extern int zzekpgin_(integer *handle); +extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base); +extern int zzekpgfr_(integer *handle, integer *type__, integer *p); +extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgri_(integer *handle, integer *p, integer *pagei); +extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len); +extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged); +extern int zzekpgwi_(integer *handle, integer *p, integer *pagei); +extern int zzekpgbs_(integer *type__, integer *p, integer *base); +extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base); +extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len); +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: fillc_ 14 5 13 4 13 124 124 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: filli_ 14 3 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: dasadc_ 14 6 4 4 4 4 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasadd_ 14 3 4 4 7 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: prtdec_ 14 3 13 4 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: ekccnt_ 14 3 13 4 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zzekpgch_(integer *handle, char *access, ftnlen access_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dassih_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ + +extern int zzekqcnj_(integer *eqryi, integer *n, integer *size); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: appndi_ 14 2 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len); + +extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekgfwd_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len); +/*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */ + +extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr); +/*:ref: zzeksdsc_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrls_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr); +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */ +/*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */ + +extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found); +/*:ref: zzekcnam_ 14 4 4 4 13 124 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */ +/*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */ + +extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top); +extern int zzekstop_(integer *top); +extern int zzekspsh_(integer *n, integer *idata); +extern int zzekspop_(integer *n, integer *idata); +extern int zzeksdec_(integer *n); +extern int zzeksupd_(integer *beg, integer *end, integer *idata); +extern int zzeksrd_(integer *beg, integer *end, integer *idata); +extern int zzekscln_(void); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasops_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: daslla_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasadi_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: daswbr_ 14 1 4 */ +/*:ref: dasllc_ 14 1 4 */ + +extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: lxcsid_ 14 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: lx4num_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: beint_ 12 2 13 124 */ +/*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: frstpc_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len); +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */ +/*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc); +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzeksei_(integer *handle, integer *addrss, integer *ival); +/*:ref: prtenc_ 14 3 4 13 124 */ +/*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eknseg_ 4 1 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekmloc_ 14 4 4 4 4 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */ + +extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzeksei_ 14 3 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzeksrs_(integer *handle, integer *recptr, integer *status); +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern integer zzekstyp_(integer *ncols, integer *cdscrs); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasrdd_ 14 4 4 4 4 7 */ + +extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekgei_ 14 3 4 4 4 */ + +extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: scn2id_ 14 4 13 4 12 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: sct2e_ 14 3 4 7 7 */ +/*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ + +extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found); + +extern int zzektr13_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ + +extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektr31_(integer *handle, integer *tree); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrin_ 14 4 4 4 4 4 */ + +extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ + +extern integer zzektrbs_(integer *node); +/*:ref: zzekpgbs_ 14 3 4 4 4 */ + +extern int zzektrdl_(integer *handle, integer *tree, integer *key); +/*:ref: zzektrud_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzektr31_ 14 2 4 4 */ + +extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ + +extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len); +/*:ref: zzekreqi_ 14 4 4 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */ +/*:ref: ekcii_ 14 6 13 4 13 4 124 124 */ +/*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */ +/*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekweqi_ 14 4 13 4 4 124 */ + +extern int zzektrfr_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgfr_ 14 3 4 4 4 */ + +extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value); +/*:ref: zzektrui_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzektrki_ 14 5 4 4 4 4 4 */ +/*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */ +/*:ref: zzektr13_ 14 2 4 4 */ + +extern int zzektrit_(integer *handle, integer *tree); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgal_ 14 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key); +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: zzektrnk_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value); +/*:ref: dasham_ 14 3 4 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern integer zzektrls_(integer *handle, integer *tree, integer *ival); +/*:ref: zzektrsz_ 4 2 4 4 */ +/*:ref: zzektrdp_ 14 4 4 4 4 4 */ + +extern integer zzektrnk_(integer *handle, integer *tree, integer *node); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ + +extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey); +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern integer zzektrsz_(integer *handle, integer *tree); +/*:ref: zzektrbs_ 4 1 4 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ + +extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl); +/*:ref: zzekpgri_ 14 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */ + +extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekpgch_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dasrdi_ 14 4 4 4 4 4 */ +/*:ref: zzekixdl_ 14 4 4 4 4 4 */ +/*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzekpgpg_ 14 4 4 4 4 4 */ +/*:ref: zzekglnk_ 14 4 4 4 4 4 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: dasudi_ 14 4 4 4 4 4 */ +/*:ref: dasudd_ 14 4 4 4 4 7 */ +/*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */ +/*:ref: zzekrp2n_ 4 3 4 4 4 */ +/*:ref: errhan_ 14 3 13 4 124 */ + +extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde03_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */ + +extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde04_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */ + +extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde05_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */ + +extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekde06_ 14 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */ + +extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas); +extern int zzekvset_(integer *njrs, integer *bases); +extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzekstop_ 14 1 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: lstlei_ 4 3 4 4 4 */ + +extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2); +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts); +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: zzekecmp_ 4 5 4 4 4 4 4 */ +/*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errhan_ 14 3 13 4 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */ + +extern int zzekweed_(integer *njrs, integer *bases, integer *nrows); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekvset_ 14 2 4 4 */ +/*:ref: zzeksrd_ 14 3 4 4 4 */ +/*:ref: sameai_ 12 3 4 4 4 */ +/*:ref: zzeksupd_ 14 3 4 4 4 */ +/*:ref: zzekjsqz_ 14 1 4 */ + +extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len); +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ + +extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzekpgwi_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzekpgwc_ 14 4 4 4 13 124 */ +/*:ref: zzekslnk_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzellbds_(doublereal *a, doublereal *b, doublereal *hmax, doublereal *hmin, doublereal *amax, doublereal *bmax, doublereal *amin, doublereal *bmin); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzelnaxx_(doublereal *a, doublereal *b, doublereal *lat, doublereal *xxpt, doublereal *yxpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ednmpt_ 14 5 7 7 7 7 7 */ + +extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: nvp2pl_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: zzwind_ 4 4 7 4 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: inelpl_ 14 5 7 7 4 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzenut80_(doublereal *et, doublereal *nutxf); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzwahr_ 14 2 7 7 */ +/*:ref: zzmobliq_ 14 3 7 7 7 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzeprc76_(doublereal *et, doublereal *precxf); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2xf_ 14 5 7 4 4 4 7 */ + +extern int zzeprcss_(doublereal *et, doublereal *precm); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ +/*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */ + +extern int zzfdat_(integer *ncount, integer *maxbfr, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *centrd, integer *bnmlst, integer *bnmpol, char *bnmnms, integer *bnmidx, integer *bidlst, integer *bidpol, integer *bidids, integer *bididx, ftnlen name_len, ftnlen bnmnms_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnam_ 14 3 4 13 124 */ +/*:ref: orderi_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscadd_ 14 8 4 4 13 13 4 12 124 124 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ + +extern int zzfovaxi_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: zzhullax_ 14 5 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vhatip_ 14 1 7 */ + +extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzmsxf_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: invstm_ 14 2 7 7 */ + +extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len); +/*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ + +extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len); +/*:ref: suffix_ 14 5 13 4 13 124 124 */ + +extern int zzgapool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtset, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtset_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardc_ 14 3 4 13 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: cardc_ 4 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: validc_ 14 4 4 4 13 124 */ +/*:ref: sizec_ 4 2 13 124 */ + +extern int zzgetbff_(integer *bffid); + +extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: rpd_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ + +extern int zzgetvox_(doublereal *voxsiz, doublereal *voxori, integer *nvox, doublereal *xyz, logical *inbox, integer *voxcor); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcoq_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, doublereal *dvec, char *crdsys, integer *ctrid, doublereal *re, doublereal *f, char *crdnam, doublereal *value, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ + +extern int zzgfcost_(char *vecdef, char *method, integer *trgid, doublereal *et, char *ref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen vecdef_len, ftnlen method_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzgfssob_ 14 11 13 4 7 13 13 4 7 7 124 124 124 */ +/*:ref: zzgfssin_ 14 16 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgfcou_(char *vecdef, char *method, char *target, doublereal *et, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, logical *decres, doublereal *crdval, logical *crdfnd, U_fp udfunc, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcoin_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len); +extern int zzgfcog_(doublereal *et, doublereal *crdval); +extern int zzgfcodc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcoex_(U_fp udfunc, doublereal *et, logical *crdfnd); +extern int zzgfcocg_(doublereal *et, doublereal *crdval); +extern int zzgfcosg_(doublereal *et, doublereal *crdval); +extern int zzgfcocd_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfcosd_(U_fp udfunc, doublereal *et, logical *decres); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: bodfnd_ 12 3 4 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzgfcoq_ 14 23 13 13 4 7 13 13 4 13 7 13 4 7 7 13 7 12 124 124 124 124 124 124 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: zzgfcost_ 14 18 13 13 4 7 13 13 4 13 4 7 7 7 12 124 124 124 124 124 */ +/*:ref: zzgfcprx_ 14 7 7 13 7 7 4 4 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: recrad_ 14 4 7 7 7 7 */ +/*:ref: recsph_ 14 4 7 7 7 7 */ +/*:ref: reccyl_ 14 4 7 7 7 7 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ + +extern int zzgfcprx_(doublereal *state, char *corsys, doublereal *re, doublereal *f, integer *sense, integer *cdsign, ftnlen corsys_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: recgeo_ 14 6 7 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: latrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzrtnmat_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzgfcslv_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wncond_ 14 3 7 7 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzgflong_ 14 37 13 13 13 13 13 13 13 7 13 13 13 7 7 7 200 200 12 214 200 214 12 212 4 4 7 7 7 124 124 124 124 124 124 124 124 124 124 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 200 13 7 7 7 7 4 4 7 12 214 200 214 13 13 12 212 7 124 124 124 */ + +extern int zzgfdiq_(integer *targid, doublereal *et, char *abcorr, integer *obsid, doublereal *dist, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzgfdiu_(char *target, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *dist, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdiin_(char *target, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfdidc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfdigq_(doublereal *et, doublereal *dist); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfdiq_ 14 6 4 7 13 4 7 124 */ + +extern int zzgfdsps_(integer *nlead, char *string, char *fmt, integer *ntrail, ftnlen string_len, ftnlen fmt_len); +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgffvu_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, doublereal *time, logical *vistat, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvin_(char *inst, char *tshape, doublereal *raydir, char *target, char *tframe, char *abcorr, char *obsrvr, ftnlen inst_len, ftnlen tshape_len, ftnlen target_len, ftnlen tframe_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgffvst_(doublereal *time, logical *vistat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: getfov_ 14 9 4 4 13 13 7 4 7 124 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: zzfovaxi_ 14 5 13 4 7 7 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: frame_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzelvupy_ 14 6 7 7 7 4 7 12 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzwind2d_ 4 3 4 7 7 */ + +extern int zzgfilu_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *et, U_fp udfunc, logical *decres, doublereal *angle, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfilin_(char *method, char *angtyp, char *target, char *illum, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, ftnlen method_len, ftnlen angtyp_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfildc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfilgq_(doublereal *et, doublereal *angle); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: bodvrd_ 14 7 13 13 4 4 7 124 124 */ +/*:ref: surfnm_ 14 5 7 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: esrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzilusta_ 14 18 13 13 13 7 13 13 13 7 7 7 7 7 124 124 124 124 124 124 */ +/*:ref: illumg_ 14 19 13 13 13 7 13 13 13 7 7 7 7 7 7 124 124 124 124 124 124 */ + +extern int zzgflong_(char *vecdef, char *method, char *target, char *ref, char *abcorr, char *obsrvr, char *dref, doublereal *dvec, char *crdsys, char *crdnam, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, U_fp udstep, U_fp udrefn, logical *rpt, U_fp udrepi, U_fp udrepu, U_fp udrepf, logical *bail, L_fp udbail, integer *mw, integer *nw, doublereal *work, doublereal *cnfine, doublereal *result, ftnlen vecdef_len, ftnlen method_len, ftnlen target_len, ftnlen ref_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen dref_len, ftnlen crdsys_len, ftnlen crdnam_len, ftnlen relate_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzgfcoin_ 14 19 13 13 13 13 13 13 13 7 13 13 124 124 124 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: recpgr_ 14 8 13 7 7 7 7 7 7 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: zzgfrelx_ 14 25 200 200 200 200 214 13 7 7 7 7 4 4 7 12 200 200 200 13 13 12 212 7 124 124 124 */ +/*:ref: zzgfcosg_ 14 2 7 7 */ +/*:ref: zzgfcocg_ 14 2 7 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: smsgnd_ 12 2 7 7 */ +/*:ref: wninsd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzgfcog_ 14 2 7 7 */ +/*:ref: wnunid_ 14 3 7 7 7 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: lnknxt_ 4 2 4 4 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ + +extern int zzgfocu_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, doublereal *time, logical *ocstat, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocin_(char *occtyp, char *front, char *fshape, char *fframe, char *back, char *bshape, char *bframe, char *obsrvr, char *abcorr, ftnlen occtyp_len, ftnlen front_len, ftnlen fshape_len, ftnlen fframe_len, ftnlen back_len, ftnlen bshape_len, ftnlen bframe_len, ftnlen obsrvr_len, ftnlen abcorr_len); +extern int zzgfocst_(doublereal *time, logical *ocstat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzprsmet_ 14 15 4 13 4 13 13 12 4 4 13 13 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: minad_ 14 4 7 4 7 4 */ +/*:ref: maxad_ 14 4 7 4 7 4 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: zzminrad_ 14 1 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: zzocced_ 4 5 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ + +extern int zzgfpaq_(doublereal *et, integer *targ, integer *illmn, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzgfpau_(char *target, char *illmn, char *abcorr, char *obsrvr, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfpain_(char *target, char *illmn, char *abcorr, char *obsrvr, ftnlen target_len, ftnlen illmn_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfpadc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfpagq_(doublereal *et, doublereal *rvl); +extern int zzgfpax_(integer *xtarg, integer *xillmn, char *xabcor, integer *xobs, logical *xablk, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: zzgfpaq_ 14 7 7 4 4 4 13 7 124 */ + +extern int zzgfref_(doublereal *refval); +/*:ref: zzholdd_ 14 4 4 4 12 7 */ + +extern int zzgfrel_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, S_fp udqref, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolv_ 14 13 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrelx_(U_fp udstep, U_fp udrefn, U_fp udqdec, U_fp udcond, S_fp udfunc, char *relate, doublereal *refval, doublereal *tol, doublereal *adjust, doublereal *cnfine, integer *mw, integer *nw, doublereal *work, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, char *rptpre, char *rptsuf, logical *bail, L_fp udbail, doublereal *result, ftnlen relate_len, ftnlen rptpre_len, ftnlen rptsuf_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: copyd_ 14 2 7 7 */ +/*:ref: wnexpd_ 14 3 7 7 7 */ +/*:ref: zzgfref_ 14 1 7 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 214 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: wnextd_ 14 3 13 7 124 */ +/*:ref: zzgfwsts_ 14 5 7 7 13 7 124 */ +/*:ref: wnintd_ 14 3 7 7 7 */ +/*:ref: wndifd_ 14 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ +/*:ref: swapi_ 14 2 4 4 */ + +extern int zzgfrpwk_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +extern int zzgftswk_(doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkin_(doublereal *incr); +extern int zzgfwkad_(doublereal *wait, integer *tcheck, char *begin, char *end, ftnlen begin_len, ftnlen end_len); +extern int zzgfwkun_(integer *unit); +extern int zzgfwkmo_(integer *unit, doublereal *total, doublereal *wait, integer *tcheck, char *begin, char *end, doublereal *incr, ftnlen begin_len, ftnlen end_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: stdio_ 14 3 13 4 124 */ +/*:ref: zzcputim_ 14 1 7 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: zzgfdsps_ 14 6 4 13 13 4 124 124 */ +/*:ref: writln_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: dpfmt_ 14 5 7 13 13 124 124 */ + +extern int zzgfrrq_(doublereal *et, integer *targ, integer *obs, char *abcorr, doublereal *value, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvnorm_ 7 1 7 */ + +extern int zzgfrru_(char *target, char *abcorr, char *obsrvr, doublereal *dt, U_fp udfunc, doublereal *et, logical *decres, doublereal *rvl, integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len, ftnlen xabcor_len); +extern int zzgfrrin_(char *target, char *abcorr, char *obsrvr, doublereal *dt, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len); +extern int zzgfrrdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfrrgq_(doublereal *et, doublereal *rvl); +extern int zzgfrrx_(integer *xtarg, char *xabcor, integer *xobs, doublereal *xdt, ftnlen xabcor_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: zzgfrrq_ 14 6 7 4 4 13 7 124 */ + +extern int zzgfsolv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfsolvx_(U_fp udfuns, S_fp udfunb, S_fp udstep, S_fp udrefn, logical *bail, L_fp udbail, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, logical *rpt, S_fp udrepu, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zzgfspq_(doublereal *et, integer *targ1, integer *targ2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, doublereal *value, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzgfspu_(char *of, char *from, char *shape, char *frame, doublereal *et, U_fp udfunc, char *abcorr, logical *decres, doublereal *sep, char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +extern int zzgfspin_(char *of, char *from, char *shape, char *frame, char *abcorr, ftnlen of_len, ftnlen from_len, ftnlen shape_len, ftnlen frame_len, ftnlen abcorr_len); +extern int zzgfspdc_(U_fp udfunc, doublereal *et, logical *decres); +extern int zzgfspgq_(doublereal *et, doublereal *sep); +extern int zzgfspx_(char *xabcr, integer *xbod, char *yref, char *xref, integer *xobs, doublereal *xrad, integer *xshp, ftnlen xabcr_len, ftnlen yref_len, ftnlen xref_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: dvsep_ 7 2 7 7 */ +/*:ref: dhfa_ 7 2 7 7 */ +/*:ref: zzsepq_ 7 10 7 4 4 7 7 4 13 13 124 124 */ + +extern int zzgfssin_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, char *dref, integer *dctr, doublereal *dvec, doublereal *radii, doublereal *state, logical *found, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen dref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: spkacs_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: sincpt_ 14 18 13 13 7 13 13 13 13 7 7 7 7 12 124 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgfssob_(char *method, integer *trgid, doublereal *et, char *fixref, char *abcorr, integer *obsid, doublereal *radii, doublereal *state, ftnlen method_len, ftnlen fixref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodc2s_ 14 3 4 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: surfpv_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: subpnt_ 14 14 13 13 7 13 13 13 7 7 7 124 124 124 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzgftreb_(integer *body, doublereal *axes); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfudb_(U_fp udfuns, U_fp udfunb, doublereal *tol, U_fp udstep, U_fp udrefn, logical *rpt, S_fp udrepi, U_fp udrepu, S_fp udrepf, logical *bail, L_fp udbail, doublereal *cnfine, doublereal *result); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: wncard_ 4 1 7 */ +/*:ref: wnfetd_ 14 4 7 4 7 7 */ +/*:ref: zzgfsolvx_ 14 14 200 200 200 200 12 212 12 7 7 7 7 12 200 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzgfudlt_(S_fp udfunc, doublereal *et, logical *isless); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzholdd_ 14 4 4 4 12 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzgfwsts_(doublereal *wndw1, doublereal *wndw2, char *inclsn, doublereal *wndw3, ftnlen inclsn_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: ssized_ 14 2 4 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: scardd_ 14 2 4 7 */ + +extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzgrav_(doublereal *grav); + +extern integer zzhashi_(integer *n, integer *m); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzholdd_(integer *op, integer *id, logical *ok, doublereal *value); +/*:ref: return_ 12 0 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzhsc_(integer *hashsz, integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, integer *avail, ftnlen items_len, ftnlen item_len); +extern int zzhscini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhscadd_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, logical *new__, ftnlen items_len, ftnlen item_len); +extern int zzhscchk_(integer *hedlst, integer *collst, char *items, char *item, integer *itemat, ftnlen items_len, ftnlen item_len); +extern int zzhscavl_(integer *collst, integer *avail); +extern int zzhscinf_(integer *hedlst, integer *collst, char *items, char *item, integer *avail, ftnlen items_len, ftnlen item_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhsi_(integer *hashsz, integer *hedlst, integer *collst, integer *items, integer *item, char *param, integer *itemat, logical *new__, integer *avail, ftnlen param_len); +extern int zzhsiini_(integer *hashsz, integer *hedlst, integer *collst); +extern int zzhsiadd_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat, logical *new__); +extern int zzhsichk_(integer *hedlst, integer *collst, integer *items, integer *item, integer *itemat); +extern int zzhsiavl_(integer *collst, integer *avail); +extern int zzhsiinf_(integer *hedlst, integer *collst, integer *items, char *param, integer *avail, ftnlen param_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzhullax_(char *inst, integer *n, doublereal *bounds, doublereal *axis, ftnlen inst_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ + +extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len); + +extern int zzilusta_(char *method, char *target, char *illum, doublereal *et, char *fixref, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *normal, doublereal *phssta, doublereal *incsta, doublereal *emista, ftnlen method_len, ftnlen target_len, ftnlen illum_len, ftnlen fixref_len, ftnlen abcorr_len, ftnlen obsrvr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: spkcpt_ 14 16 7 13 13 7 13 13 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: zzcorepc_ 14 5 13 7 7 7 124 */ +/*:ref: spkcpo_ 14 16 13 7 13 13 13 7 13 13 7 7 124 124 124 124 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: sxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vminug_ 14 3 7 4 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: dvsep_ 7 2 7 7 */ + +extern logical zzingrd_(integer *nvox, integer *voxel); + +extern int zzinil_(doublereal *geophs, integer *opmode, doublereal *ecco, doublereal *epoch, doublereal *inclo, doublereal *no, doublereal *ainv, doublereal *ao, doublereal *con41, doublereal *con42, doublereal *cosio, doublereal *cosio2, doublereal *eccsq, doublereal *omeosq, doublereal *posq, doublereal *rp, doublereal *rteosq, doublereal *sinio, doublereal *gsto); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinilnk_(integer *maxp, integer *maxc, integer *ncell, integer *pntrs, integer *cells); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzinlat_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinlat0_ 14 6 7 7 7 7 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinlat0_(doublereal *r__, doublereal *lon, doublereal *lat, doublereal *bounds, integer *exclud, logical *inside); +/*:ref: twopi_ 7 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt_(doublereal *p, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: pi_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: zzinpdt0_ 14 6 7 7 7 7 4 12 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ + +extern int zzinpdt0_(doublereal *p, doublereal *lon, doublereal *bounds, doublereal *corpar, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzpdcmpl_ 14 5 7 7 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ + +extern int zzinrec_(doublereal *p, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzinrypl_(doublereal *vertex, doublereal *udir, doublereal *uplnml, doublereal *const__, doublereal *maxd, integer *nxpts, doublereal *xpt); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len); + +extern int zzinvelt_(doublereal *p, integer *corsys, doublereal *corpar, doublereal *bounds, doublereal *margin, integer *exclud, logical *inside); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzlatbox_(doublereal *bounds, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: exists_ 12 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: getfat_ 14 6 13 13 13 124 124 124 */ +/*:ref: spklef_ 14 3 13 4 124 */ +/*:ref: cklpf_ 14 3 13 4 124 */ +/*:ref: pcklof_ 14 3 13 4 124 */ +/*:ref: tkvrsn_ 14 4 13 13 124 124 */ +/*:ref: eklef_ 14 3 13 4 124 */ +/*:ref: zzdsklsf_ 14 3 13 4 124 */ +/*:ref: ldpool_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzbodkik_ 14 0 */ + +extern int zzlexmet_(char *method, integer *maxn, integer *n, integer *begs, integer *ends, ftnlen method_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len); +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ + +extern int zzmkspin_(integer *np, integer *plates, doublereal *vrtces, doublereal *voxscl, integer *cgscal, integer *maxptr, integer *mxcell, integer *maxvxl, integer *cells, integer *nvox, doublereal *voxsiz, doublereal *voxori, integer *nvxtot, integer *nvxptr, integer *vxptr, integer *nvxlst, integer *vxlist, doublereal *extent, integer *cgrptr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: dpmin_ 7 0 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzgetvox_ 14 6 7 7 4 7 12 4 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob); +/*:ref: jyear_ 7 0 */ +/*:ref: rpd_ 7 0 */ + +extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output); + +extern doublereal zzmult_(doublereal *a, doublereal *b); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zznamfrm_(integer *usrctr, char *savnam, integer *savcde, char *frname, integer *frcode, ftnlen savnam_len, ftnlen frname_len); +/*:ref: return_ 12 0 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zznofcon_(doublereal *et, integer *frame1, integer *endp1, integer *frame2, integer *endp2, char *errmsg, ftnlen errmsg_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: frmnam_ 14 3 4 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmf_ 14 10 13 13 7 4 13 13 124 124 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: ckmeta_ 14 4 4 13 4 124 */ +/*:ref: zzsclk_ 12 2 4 4 */ + +extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp); +extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems); +extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot); +extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: j2000_ 7 0 */ +/*:ref: spd_ 7 0 */ +/*:ref: j1950_ 7 0 */ +/*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */ + +extern int zznrmlon_(doublereal *inmin, doublereal *inmax, doublereal *tol, doublereal *outmin, doublereal *outmax); +/*:ref: twopi_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dpr_ 7 0 */ +/*:ref: touchd_ 7 1 7 */ + +extern int zznwpool_(char *varnam, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agtwrk, char *notify, char *agents, ftnlen varnam_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agtwrk_len, ftnlen notify_len, ftnlen agents_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzgapool_ 14 10 13 13 4 4 13 13 124 124 124 124 */ +/*:ref: unionc_ 14 6 13 13 13 124 124 124 */ +/*:ref: copyc_ 14 4 13 13 124 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: unorm_ 14 3 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: isrot_ 12 3 7 7 7 */ +/*:ref: det_ 7 1 7 */ +/*:ref: mtxv_ 14 3 7 7 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: edlimb_ 14 5 7 7 7 7 7 */ +/*:ref: el2cgv_ 14 4 7 7 7 7 */ +/*:ref: psv2pl_ 14 4 7 7 7 7 */ +/*:ref: vprjp_ 14 3 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: mxm_ 14 3 7 7 7 */ +/*:ref: saelgv_ 14 4 7 7 7 7 */ +/*:ref: cgv2el_ 14 4 7 7 7 7 */ +/*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: pi_ 7 0 */ + +extern int zzpdcmpl_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat, integer *rel); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ + +extern logical zzpdpltc_(doublereal *re, doublereal *f, doublereal *p, doublereal *lat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzpdtbox_(doublereal *bounds, doublereal *corpar, doublereal *center, doublereal *lr, doublereal *lt, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: twopi_ 7 0 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: georec_ 14 6 7 7 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: cylrec_ 14 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ + +extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len); +extern integer zzshsh_(integer *m); +extern integer zzhash_(char *word, ftnlen word_len); +extern integer zzhash2_(char *word, integer *m2, ftnlen word_len); +/*:ref: intmax_ 4 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *wtvars, integer *wtptrs, integer *wtpool, char *wtagnt, char *agents, char *active, char *notify, integer *subctr, ftnlen begdat_len, ftnlen begtxt_len, ftnlen wtvars_len, ftnlen wtagnt_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzshsh_ 4 1 4 */ +/*:ref: touchi_ 4 1 4 */ +/*:ref: lnkini_ 14 2 4 4 */ +/*:ref: ssizec_ 14 3 4 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: clearc_ 14 3 4 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len); +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: ljust_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ + +extern int zzpltchk_(logical *ok); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: zzgetbff_ 14 1 4 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ +/*:ref: reordl_ 14 3 4 4 12 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: bsrchc_ 4 5 13 4 13 124 124 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzprsmet_(integer *bodyid, char *method, integer *mxnsrf, char *shape, char *subtyp, logical *pri, integer *nsurf, integer *srflst, char *pntdef, char *trmtyp, ftnlen method_len, ftnlen shape_len, ftnlen subtyp_len, ftnlen pntdef_len, ftnlen trmtyp_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzlexmet_ 14 6 13 4 4 4 4 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: srfscc_ 14 5 13 4 4 12 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ + +extern int zzptpl02_(integer *handle, integer *dladsc, doublereal *dskdsc, doublereal *point, integer *plid, integer *plate, doublereal *verts, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: dlassg_ 12 4 4 4 4 4 */ +/*:ref: dskd02_ 14 7 4 4 4 4 4 4 7 */ +/*:ref: dski02_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzsegbox_ 14 3 7 7 7 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: dskgtl_ 14 2 4 7 */ +/*:ref: zzinvelt_ 14 7 7 4 7 7 7 4 12 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: brckti_ 4 3 4 4 4 */ +/*:ref: zzvoxcvo_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzvox2id_ 4 2 4 4 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: pltexp_ 14 3 7 7 7 */ +/*:ref: pltnrm_ 14 4 7 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: pltnp_ 14 6 7 7 7 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzraybox_(doublereal *vertex, doublereal *raydir, doublereal *boxori, doublereal *extent, doublereal *xpt, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len); +/*:ref: posr_ 4 5 13 13 4 124 124 */ + +extern int zzrecbox_(doublereal *bounds, doublereal *center, doublereal *lx, doublereal *ly, doublereal *lz, doublereal *radius); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ + +extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ident_ 14 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */ +/*:ref: zzrxr_ 14 3 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: zznofcon_ 14 7 7 4 4 4 4 13 124 */ +/*:ref: xpose_ 14 2 7 7 */ + +extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len); +/*:ref: sumai_ 4 2 4 4 */ + +extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len); +/*:ref: zzsubt_ 12 5 13 13 12 124 124 */ +/*:ref: zzremt_ 12 2 13 124 */ + +extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzswfxfm_ 14 6 4 7 4 7 4 12 */ +/*:ref: errch_ 14 4 13 13 124 124 */ + +extern int zzrtnmat_(doublereal *v, doublereal *m); +/*:ref: return_ 12 0 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ + +extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: rdkdat_ 14 3 13 12 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: rdklin_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: lastpc_ 4 2 13 124 */ +/*:ref: zzhash_ 4 2 13 124 */ +/*:ref: lnknfn_ 4 1 4 */ +/*:ref: lnkan_ 14 2 4 4 */ +/*:ref: lnkila_ 14 3 4 4 4 */ +/*:ref: lnkfsl_ 14 3 4 4 4 */ +/*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: tparse_ 14 5 13 7 13 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ + +extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output); +/*:ref: ident_ 14 1 7 */ + +extern int zzrytelt_(doublereal *vertex, doublereal *raydir, doublereal *dskdsc, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzrytlat_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytrec_ 14 6 7 7 7 7 4 7 */ +/*:ref: zzrytpdt_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzrytlat_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: zzinlat_ 14 5 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: zzryxsph_ 14 5 7 7 7 7 12 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytpdt_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *corpar, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: zzinpdt_ 14 6 7 7 7 7 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zznrmlon_ 14 5 7 7 7 7 7 */ +/*:ref: zzellbds_ 14 8 7 7 7 7 7 7 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: dpmax_ 7 0 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: halfpi_ 7 0 */ +/*:ref: zzelnaxx_ 14 5 7 7 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: incnsg_ 14 8 7 7 7 7 7 4 7 7 */ +/*:ref: zzpdpltc_ 12 4 7 7 7 7 */ +/*:ref: vpack_ 14 4 7 7 7 7 */ +/*:ref: zzinrypl_ 14 7 7 7 7 7 7 4 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ + +extern int zzrytrec_(doublereal *vertex, doublereal *raydir, doublereal *bounds, doublereal *margin, integer *nxpts, doublereal *xpt); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinrec_ 14 5 7 7 7 4 12 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zzraybox_ 14 6 7 7 7 7 7 12 */ + +extern int zzryxsph_(doublereal *vertex, doublereal *udir, doublereal *r__, doublereal *xpt, logical *found); +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzscad01_(integer *sc, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *sclkat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: movec_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: scli01_ 14 6 13 4 4 4 4 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: scld01_ 14 6 13 4 4 4 7 124 */ + +extern int zzscin01_(integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, integer *ifree, integer *prvsc); +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern logical zzsclk_(integer *ckid, integer *sclkid); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ssizei_ 14 2 4 4 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: elemi_ 12 2 4 4 */ +/*:ref: cvpool_ 14 3 13 12 124 */ +/*:ref: cardi_ 4 1 4 */ +/*:ref: sizei_ 4 1 4 */ +/*:ref: insrti_ 14 2 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: removi_ 14 2 4 4 */ + +extern int zzscup01_(integer *sc, integer *polctr, integer *hdsclk, integer *scpool, integer *clklst, integer *dpfree, doublereal *dpbuff, integer *ifree, integer *intbuf, integer *scbase, integer *prvsc, integer *nfield, integer *delcde, integer *timsys, integer *ncoeff, integer *npart, integer *cofbas, integer *strbas, integer *endbas, integer *modbas, integer *offbas); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzscin01_ 14 6 4 4 4 4 4 4 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzscad01_ 14 10 4 4 4 4 4 7 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt); + +extern int zzsegbox_(doublereal *dskdsc, doublereal *boxctr, doublereal *maxr); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzlatbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzrecbox_ 14 6 7 7 7 7 7 7 */ +/*:ref: zzpdtbox_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern doublereal zzsepq_(doublereal *et, integer *bod1, integer *bod2, doublereal *r1, doublereal *r2, integer *obs, char *abcorr, char *ref, ftnlen abcorr_len, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ + +extern int zzsfxcor_(S_fp udnear, S_fp udmaxr, S_fp udrayx, integer *trgcde, doublereal *et, char *abcorr, logical *uselt, logical *usecn, logical *usestl, logical *xmit, char *fixref, integer *obscde, integer *dfrcde, integer *dclass, integer *dcentr, doublereal *dvec, doublereal *spoint, doublereal *trgepc, doublereal *srfvec, logical *found, ftnlen abcorr_len, ftnlen fixref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: refchg_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: pxform_ 14 6 13 13 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: stelab_ 14 3 7 7 7 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: vdist_ 7 2 7 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: nplnpt_ 14 5 7 7 7 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vscl_ 14 3 7 7 7 */ + +extern int zzsglatx_(doublereal *p1, doublereal *p2, doublereal *minlat, doublereal *minp, doublereal *maxlat, doublereal *maxp); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: reclat_ 14 4 7 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: opsgnd_ 12 2 7 7 */ +/*:ref: nvc2pl_ 14 3 7 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: inrypl_ 14 5 7 7 7 4 7 */ +/*:ref: failed_ 12 0 */ + +extern int zzsgp4_(doublereal *geophs, doublereal *elems, integer *opmode, doublereal *t, doublereal *state); +extern int xxsgp4i_(doublereal *geophs, doublereal *elems, integer *opmode); +extern int xxsgp4e_(doublereal *t, doublereal *state); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: ttrans_ 14 5 13 13 7 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzinil_ 14 19 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: twopi_ 7 0 */ +/*:ref: zzdscm_ 14 88 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspr_ 14 40 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 7 7 7 7 7 */ +/*:ref: zzdsin_ 14 73 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: zzdspc_ 14 37 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: pi_ 7 0 */ + +extern int zzsinutl_(integer *trgcde, integer *nsurf, integer *srflst, doublereal *et, integer *fixfid, doublereal *vertex, doublereal *raydir, doublereal *spoint, logical *found, doublereal *minrad, doublereal *maxrad, doublereal *pnear, doublereal *dist); +extern int zzsuelin_(integer *trgcde); +extern int zzsudski_(integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid); +extern int zzraysfx_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *spoint, logical *found); +extern int zzmaxrad_(doublereal *maxrad); +extern int zzminrad_(doublereal *minrad); +extern int zzraynp_(doublereal *vertex, doublereal *raydir, doublereal *et, doublereal *pnear, doublereal *dist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: movei_ 14 3 4 4 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzdsksph_ 14 5 4 4 4 7 7 */ +/*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */ +/*:ref: zzsbfxr_ 14 9 4 4 4 7 4 7 7 7 12 */ +/*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */ + +extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n); +/*:ref: rmaini_ 14 4 4 4 4 4 */ + +extern int zzspin_(char *targ1, char *shape1, char *frame1, char *targ2, char *shape2, char *frame2, char *obsrvr, char *abcorr, integer *bods, integer *frames, doublereal *mxrad, integer *obs, ftnlen targ1_len, ftnlen shape1_len, ftnlen frame1_len, ftnlen targ2_len, ftnlen shape2_len, ftnlen frame2_len, ftnlen obsrvr_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: bods2c_ 14 4 13 4 12 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzgftreb_ 14 2 4 7 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ + +extern int zzspkac0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas0_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkac1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkas1_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkas0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkas1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac0_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt0_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkac1_ 14 10 4 7 13 13 4 7 7 7 124 124 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspklt1_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfao_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: spkaps_ 14 11 4 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkfap_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *accobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkflt_ 14 10 200 7 13 13 7 7 7 7 124 124 */ +/*:ref: zzstelab_ 14 6 12 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ + +extern int zzspkfat_(U_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: zzspkfap_ 14 11 200 7 13 13 7 7 7 7 7 124 124 */ + +extern int zzspkflt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkfzo_(integer *targ, doublereal *et, char *ref, char *abcorr, S_fp obssub, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfao_ 14 10 4 7 13 13 214 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkfzt_(S_fp trgsub, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: zzspkfat_ 14 10 214 7 13 13 4 7 7 7 124 124 */ +/*:ref: spkssb_ 14 5 4 7 13 7 124 */ +/*:ref: spkltc_ 14 10 4 7 13 13 7 7 7 7 124 124 */ +/*:ref: frmchg_ 14 4 4 4 7 7 */ +/*:ref: zzcorsxf_ 14 4 12 7 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ + +extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch0_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzfrmch1_ 14 4 4 4 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: vaddg_ 14 4 7 7 4 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: frstnp_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */ +/*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: isrchi_ 4 3 4 4 4 */ +/*:ref: bodc2n_ 14 4 4 13 12 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: intstr_ 14 3 4 13 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ + +extern int zzspklt0_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspklt1_(integer *targ, doublereal *et, char *ref, char *abcorr, doublereal *stobs, doublereal *starg, doublereal *lt, doublereal *dlt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzvalcor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ + +extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: odd_ 12 1 4 */ +/*:ref: irfnum_ 14 3 13 4 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: stlabx_ 14 3 7 7 7 */ +/*:ref: stelab_ 14 3 7 7 7 */ + +extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb0_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch0_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: ltrim_ 4 2 13 124 */ +/*:ref: eqchr_ 12 4 13 13 124 124 */ +/*:ref: eqstr_ 12 4 13 13 124 124 */ +/*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */ +/*:ref: zznamfrm_ 14 7 4 13 4 13 4 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzspksb1_ 14 5 4 7 13 7 124 */ +/*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */ +/*:ref: zzrefch1_ 14 4 4 4 7 7 */ +/*:ref: mxv_ 14 3 7 7 7 */ + +extern int zzsrfini_(char *nornam, integer *codes, integer *bodies, integer *nvals, integer *maxval, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen nornam_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: zzhscini_ 14 3 4 4 4 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ + +extern int zzsrfker_(char *kernam, char *nornam, integer *kersid, integer *kerbid, logical *extker, integer *nkvar, integer *snmhls, integer *snmpol, integer *snmidx, integer *sidhls, integer *sidpol, integer *sididx, ftnlen kernam_len, ftnlen nornam_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: swpool_ 14 5 13 4 13 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: zzsrfini_ 14 12 13 4 4 4 4 4 4 4 4 4 4 124 */ + +extern int zzsrftrn_(integer *bodyid, char *srfnam, integer *surfid, integer *usrctr, logical *found, logical *update, ftnlen srfnam_len); +extern int zzsrfn2c_(char *srfnam, integer *bodyid, integer *surfid, logical *found, ftnlen srfnam_len); +extern int zzsrfc2n_(integer *surfid, integer *bodyid, char *srfnam, logical *found, ftnlen srfnam_len); +extern int zzsrftrk_(integer *usrctr, logical *update); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzctrsin_ 14 1 4 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: zzsrfker_ 14 14 13 13 4 4 12 4 4 4 4 4 4 4 124 124 */ +/*:ref: zzcvpool_ 14 4 13 4 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzctrinc_ 14 1 4 */ +/*:ref: ljucrs_ 14 5 4 13 13 124 124 */ +/*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */ +/*:ref: zzhash2_ 4 3 13 4 124 */ +/*:ref: zzhashi_ 4 2 4 4 */ +/*:ref: zzctrchk_ 14 3 4 4 12 */ + +extern int zzstelab_(logical *xmit, doublereal *accobs, doublereal *vobs, doublereal *starg, doublereal *scorr, doublereal *dscorr); +/*:ref: return_ 12 0 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: clight_ 7 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: vlcom_ 14 5 7 7 7 7 7 */ +/*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ +/*:ref: qderiv_ 14 5 4 7 7 7 7 */ + +extern int zzswfcln_(integer *hdfram, integer *frpool, integer *basbeg, integer *framat); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzswffet_(integer *framid, integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *bascnt, logical *usetim, logical *binary, integer *clsses, integer *clsids, integer *baslst, doublereal *starts, doublereal *stops, integer *framat); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */ +/*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzswfcln_ 14 4 4 4 4 4 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */ +/*:ref: dtpool_ 14 6 13 12 4 13 124 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: zzhsiavl_ 14 2 4 4 */ +/*:ref: zzhsiadd_ 14 6 4 4 4 4 4 12 */ +/*:ref: namfrm_ 14 3 13 4 124 */ +/*:ref: frinfo_ 14 5 4 4 4 4 12 */ +/*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */ +/*:ref: str2et_ 14 3 13 7 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: etcal_ 14 3 7 13 124 */ + +extern int zzswfini_(integer *hdfram, integer *frpool, integer *fidlst, integer *basbeg, integer *free, integer *prvat, integer *prvfrm, logical *samfrm); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzhsiini_ 14 3 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: cleari_ 14 2 4 4 */ + +extern int zzswfxfm_(integer *infrm, doublereal *et, integer *ndim, doublereal *xform, integer *outfrm, logical *found); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzswfini_ 14 8 4 4 4 4 4 4 4 12 */ +/*:ref: zzctruin_ 14 1 4 */ +/*:ref: filld_ 14 3 7 4 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzpctrck_ 14 2 4 12 */ +/*:ref: zzhsichk_ 14 5 4 4 4 4 4 */ +/*:ref: zzswffet_ 14 15 4 4 4 4 4 4 4 12 12 4 4 4 7 7 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: lstled_ 4 3 7 4 7 */ +/*:ref: ckfxfm_ 14 5 4 7 7 4 12 */ +/*:ref: ckfrot_ 14 5 4 7 7 4 12 */ +/*:ref: tkfram_ 14 4 4 7 4 12 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: tisbod_ 14 5 13 4 7 7 124 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: tipbod_ 14 5 13 4 7 7 124 */ +/*:ref: xpose_ 14 2 7 7 */ +/*:ref: irfrot_ 14 3 4 4 7 */ +/*:ref: ident_ 14 1 7 */ + +extern int zztangnt_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *schstp, doublereal *soltol, doublereal *result, doublereal *points); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: pi_ 7 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: zztanini_ 14 10 4 7 4 4 4 4 4 7 7 7 */ +/*:ref: zzmaxrad_ 14 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: vnorm_ 7 1 7 */ +/*:ref: dasine_ 7 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: zztanslv_ 14 11 200 200 200 12 7 7 7 7 7 7 12 */ +/*:ref: cardd_ 4 1 7 */ + +extern int zztanslv_(S_fp udcond, S_fp udstep, S_fp udrefn, logical *cstep, doublereal *step, doublereal *start, doublereal *finish, doublereal *tol, doublereal *result, doublereal *points, logical *endflg); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: touchd_ 7 1 7 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: failed_ 12 0 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: brcktd_ 7 3 7 7 7 */ +/*:ref: zzwninsd_ 14 5 7 7 13 7 124 */ + +extern int zztanutl_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis, doublereal *angle, logical *ocultd, doublereal *point); +extern int zztanini_(integer *curve, doublereal *srcrad, integer *shape, integer *trgcde, integer *nsurf, integer *srflst, integer *fixfid, doublereal *et, doublereal *plnvec, doublereal *axis); +extern int zztansta_(doublereal *angle, logical *ocultd, doublereal *point); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: return_ 12 0 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: vcrss_ 14 3 7 7 7 */ +/*:ref: vhatip_ 14 1 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vhat_ 14 2 7 7 */ +/*:ref: zzsuelin_ 14 1 4 */ +/*:ref: zzsudski_ 14 4 4 4 4 4 */ +/*:ref: vrotv_ 14 4 7 7 7 7 */ +/*:ref: zzraysfx_ 14 5 7 7 7 7 12 */ +/*:ref: pi_ 7 0 */ +/*:ref: vsclip_ 14 2 7 7 */ +/*:ref: vadd_ 14 3 7 7 7 */ + +extern int zzteme_(doublereal *et, doublereal *j2tm, doublereal *tm2j); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzeprc76_ 14 2 7 7 */ +/*:ref: invstm_ 14 2 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: zzenut80_ 14 2 7 7 */ +/*:ref: mxvg_ 14 5 7 7 4 4 7 */ +/*:ref: zztwovxf_ 14 5 7 4 7 4 7 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len); +extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len); +extern logical zzgrep_(char *string, ftnlen string_len); +extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len); +extern logical zzist_(char *letter, ftnlen letter_len); +extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len); +extern logical zzremt_(char *letter, ftnlen letter_len); +extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len); +extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len); +extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len); +extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len); +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pos_ 4 5 13 13 4 124 124 */ +/*:ref: posr_ 4 5 13 13 4 124 124 */ +/*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: cpos_ 4 5 13 13 4 124 124 */ +/*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: rtrim_ 4 2 13 124 */ +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: zztknerr_ 14 9 13 13 13 13 12 124 124 124 124 */ +/*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */ +/*:ref: prefix_ 14 5 13 4 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */ +/*:ref: samchi_ 12 6 13 4 13 4 124 124 */ +/*:ref: suffix_ 14 5 13 4 13 124 124 */ +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */ +/*:ref: nparsi_ 14 6 13 4 13 4 124 124 */ + +extern int zztknerr_(char *templt, char *string, char *token, char *error, logical *status, ftnlen templt_len, ftnlen string_len, ftnlen token_len, ftnlen error_len); +/*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */ + +extern int zztogrid_(doublereal *modxyz, doublereal *voxori, doublereal *voxsiz, doublereal *grdxyz); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len); +/*:ref: orderc_ 14 4 13 4 4 124 */ +/*:ref: reordc_ 14 4 4 4 13 124 */ + +extern int zztrvlnk_(integer *aval, integer *maxa, integer *pntrs, integer *cellsz, integer *cells, integer *maxb, integer *nb, integer *blist); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: dvhat_ 14 2 7 7 */ +/*:ref: ducrss_ 14 3 7 7 7 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: cleard_ 14 2 4 7 */ +/*:ref: vzero_ 12 1 7 */ + +extern int zzuntngl_(integer *nptr, integer *maxcel, integer *cells, integer *maxb, integer *pntrs, integer *nout, integer *outlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zztrvlnk_ 14 8 4 4 4 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ + +extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len); +/*:ref: lx4uns_ 14 5 13 4 4 4 124 */ +/*:ref: nparsd_ 14 6 13 7 13 4 124 124 */ +/*:ref: samch_ 12 6 13 4 13 4 124 124 */ + +extern int zzvalcor_(char *abcorr, logical *attblk, ftnlen abcorr_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzprscor_ 14 3 13 12 124 */ +/*:ref: failed_ 12 0 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ + +extern integer zzvox2id_(integer *vixyz, integer *nvox); + +extern int zzvoxcvo_(integer *vixyz, integer *nvox, integer *cgrscl, integer *cgxyz, integer *cgoff, integer *cgof1d); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ + +extern int zzvrtplt_(integer *nv, integer *np, integer *plates, integer *cellsz, integer *maxlst, integer *cells, integer *vrtptr, integer *nlist, integer *pltlst); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: zzinilnk_ 14 5 4 4 4 4 4 */ +/*:ref: failed_ 12 0 */ +/*:ref: zzaddlnk_ 14 7 4 4 4 4 4 4 4 */ +/*:ref: zzuntngl_ 14 7 4 4 4 4 4 4 4 */ + +extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len); +extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len); +extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len); +/*:ref: dpstr_ 14 4 7 4 13 124 */ + +extern int zzwahr_(doublereal *et, doublereal *dvnut); +/*:ref: pi_ 7 0 */ +/*:ref: twopi_ 7 0 */ +/*:ref: spd_ 7 0 */ + +extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: pl2nvc_ 14 3 7 7 7 */ +/*:ref: vzero_ 12 1 7 */ +/*:ref: vdot_ 7 2 7 7 */ +/*:ref: vminus_ 14 2 7 7 */ +/*:ref: vequ_ 14 2 7 7 */ +/*:ref: vsub_ 14 3 7 7 7 */ +/*:ref: vperp_ 14 3 7 7 7 */ +/*:ref: vsep_ 7 2 7 7 */ +/*:ref: ucrss_ 14 3 7 7 7 */ +/*:ref: twopi_ 7 0 */ + +extern integer zzwind2d_(integer *n, doublereal *vertcs, doublereal *point); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: vsubg_ 14 4 7 7 4 7 */ +/*:ref: vsepg_ 7 3 7 7 4 */ +/*:ref: vdotg_ 7 3 7 7 4 */ +/*:ref: moved_ 14 3 7 4 7 */ +/*:ref: twopi_ 7 0 */ + +extern int zzwninsd_(doublereal *left, doublereal *right, char *context, doublereal *window, ftnlen context_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: sized_ 4 1 7 */ +/*:ref: cardd_ 4 1 7 */ +/*:ref: lastnb_ 4 2 13 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errdp_ 14 3 13 7 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: scardd_ 14 2 4 7 */ +/*:ref: errint_ 14 3 13 4 124 */ + +extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ +/*:ref: moved_ 14 3 7 4 7 */ + +extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len); +/*:ref: return_ 12 0 */ +/*:ref: chkin_ 14 2 13 124 */ +/*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */ +/*:ref: zzplatfm_ 14 4 13 13 124 124 */ +/*:ref: ucase_ 14 4 13 13 124 124 */ +/*:ref: isrchc_ 4 5 13 4 13 124 124 */ +/*:ref: setmsg_ 14 2 13 124 */ +/*:ref: errch_ 14 4 13 13 124 124 */ +/*:ref: sigerr_ 14 2 13 124 */ +/*:ref: chkout_ 14 2 13 124 */ +/*:ref: intmin_ 4 0 */ +/*:ref: errint_ 14 3 13 4 124 */ + + +#ifdef __cplusplus + } +#endif + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZim.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZim.h new file mode 100644 index 000000000..51aa182b8 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZim.h @@ -0,0 +1,1686 @@ +/* + +-Header_File SpiceZim.h ( CSPICE interface macros ) + +-Abstract + + Define interface macros to be called in place of CSPICE + user-interface-level functions. These macros are generally used + to compensate for compiler deficiencies. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines interface macros to be called in place of + CSPICE user-interface-level functions. Currently, the sole purpose + of these macros is to implement automatic type casting under some + environments that generate compile-time warnings without the casts. + The typical case that causes a problem is a function argument list + containing an input formal argument of type + + const double [3][3] + + Under some compilers, a non-const actual argument supplied in a call + to such a function will generate a spurious warning due to the + "mismatched" type. These macros generate type casts that will + make such compilers happy. + + Examples of compilers that generate warnings of this type are + + gcc version 2.2.2, hosted on NeXT workstations running + NeXTStep 3.3 + + Sun C compiler, version 4.2, running under Solaris. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 14.0.0, 19-DEC-2021 (NJB) + + Added macro for invstm_c. + + -CSPICE Version 13.0.0, 25-JAN-2017 (NJB) (EDW) + + Defined new abbreviation macro CONST_IVEC3. + Added macros for + + dskgd_c + dskmi2_c + dskb02_c + dskd02_c + dski02_c + dskn02_c + dskobj_c + dskp02_c + dskrb2_c + dsksrf_c + dskv02_c + dskxv_c + dskxsi_c + dskw02_c + latsrf_c + limbpt_c + oscltx_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + srfnrm_c + termpt_c + + -CSPICE Version 12.0.0, 03-DEC-2013 (NJB) (EDW) (SCK) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Added macros for + + eqncpv_c + fovray_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpnv_c + spkw20_c + + -CSPICE Version 11.0.0, 09-MAR-2009 (NJB) (EDW) + + Added macros for + + dvsep_c + gfevnt_c + gffove_c + gfrfov_c + gfsntc_c + surfpv_c + + + -CSPICE Version 10.0.0, 19-FEB-2008 (NJB) (EDW) + + Added macros for + + ilumin_c + spkaps_c + spkltc_c + + -CSPICE Version 9.0.0, 31-OCT-2005 (NJB) + + Added macros for + + qdq2av_c + qxq_c + + -CSPICE Version 8.0.0, 23-FEB-2004 (NJB) + + Added macro for + + dafrs_c + + + -CSPICE Version 7.0.0, 23-FEB-2004 (EDW) + + Added macro for + + srfxpt_c + + -CSPICE Version 6.0.1, 25-FEB-2003 (EDW) (NJB) + + Remove duplicate macro definitions for ekaced_c and + ekacei_c. Visual Studio errored out when compiling + code that included SpiceZim.h. + + Added macro for + + dasac_c + + -CSPICE Version 6.0.0, 17-AUG-2002 (NJB) + + Added macros for + + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + esrchc_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lstltc_c + lstltd_c + lstlti_c + lstlec_c + lstled_c + lstlei_c + orderc_c + orderd_c + orderi_c + reordc_c + reordd_c + reordi_c + reordl_c + spkw18_c + + -CSPICE Version 5.0.0, 28-AUG-2001 (NJB) + + Added macros for + + conics_c + illum_c + invort_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + -CSPICE Version 4.0.0, 22-MAR-2000 (NJB) + + Added macros for + + spkw12_c + spkw13_c + + -CSPICE Version 3.0.0, 27-AUG-1999 (NJB) (EDW) + + Fixed cut & paste error in macro nvp2pl_c. + + Added macros for + + axisar_c + cgv2el_c + dafps_c + dafus_c + diags2_c + dvdot_c + dvhat_c + edlimb_c + ekacli_c + ekacld_c + ekacli_c + eul2xf_c + el2cgv_c + getelm_c + inedpl_c + isrot_c + mequ_c + npedln_c + nplnpt_c + rav2xf_c + raxisa_c + saelgv_c + spk14a_c + spkapo_c + spkapp_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + sumai_c + trace_c + vadd_g + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vupack_c + vzerog_c + xf2eul_c + xf2rav_c + + -CSPICE Version 2.0.0, 07-MAR-1999 (NJB) + + Added macros for + + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + vprjp_c + vprjpi_c + + -CSPICE Version 1.0.0, 24-JAN-1999 (NJB) (EDW) + + +-Index_Entries + + interface macros for CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +/* +Include the type definitions prior to defining the interface macros. +The macros reference the types. +*/ +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +#ifndef HAVE_SPICEIFMACROS_H +#define HAVE_SPICEIFMACROS_H + + +/* +Macros used to abbreviate type casts: +*/ + + #define CONST_BOOL ( ConstSpiceBoolean * ) + #define CONST_DLADSC ( ConstSpiceDLADescr * ) + #define CONST_DSKDSC ( ConstSpiceDSKDescr * ) + #define CONST_ELLIPSE ( ConstSpiceEllipse * ) + #define CONST_IVEC ( ConstSpiceInt * ) + #define CONST_IVEC3 ( ConstSpiceInt (*) [3] ) + #define CONST_MAT ( ConstSpiceDouble (*) [3] ) + #define CONST_MAT2 ( ConstSpiceDouble (*) [2] ) + #define CONST_MAT6 ( ConstSpiceDouble (*) [6] ) + #define CONST_PLANE ( ConstSpicePlane * ) + #define CONST_VEC3 ( ConstSpiceDouble (*) [3] ) + #define CONST_VEC4 ( ConstSpiceDouble (*) [4] ) + #define CONST_STR ( ConstSpiceChar * ) + #define CONST_VEC ( ConstSpiceDouble * ) + #define CONST_VOID ( const void * ) + +/* +Macros that substitute for function calls: +*/ + + #define axisar_c( axis, angle, r ) \ + \ + ( axisar_c( CONST_VEC(axis), (angle), (r) ) ) + + + #define bschoc_c( value, ndim, lenvals, array, order ) \ + \ + ( bschoc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array), CONST_IVEC(order) ) ) + + + #define bschoi_c( value, ndim, array, order ) \ + \ + ( bschoi_c ( (value) , (ndim), \ + CONST_IVEC(array), CONST_IVEC(order) ) ) + + + #define bsrchc_c( value, ndim, lenvals, array ) \ + \ + ( bsrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define bsrchd_c( value, ndim, array ) \ + \ + ( bsrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define bsrchi_c( value, ndim, array ) \ + \ + ( bsrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define ckw01_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs ) \ + \ + ( ckw01_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs) ) ) + + + #define ckw02_c( handle, begtim, endtim, inst, ref, segid, \ + nrec, start, stop, quats, avvs, rates ) \ + \ + ( ckw02_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(start), CONST_VEC(stop), \ + CONST_VEC4(quats), CONST_VEC3(avvs), \ + CONST_VEC(rates) ) ) + + + #define ckw03_c( handle, begtim, endtim, inst, ref, avflag, \ + segid, nrec, sclkdp, quats, avvs, nints, \ + starts ) \ + \ + ( ckw03_c ( (handle), (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (nrec), \ + CONST_VEC(sclkdp), CONST_VEC4(quats), \ + CONST_VEC3(avvs), (nints), \ + CONST_VEC(starts) ) ) + + + #define ckw05_c( handle, subtyp, degree, begtim, endtim, inst, \ + ref, avflag, segid, n, sclkdp, packts, \ + rate, nints, starts ) \ + \ + ( ckw05_c ( (handle), (subtyp), (degree), \ + (begtim), (endtim), \ + (inst), CONST_STR(ref), (avflag), \ + CONST_STR(segid), (n), \ + CONST_VEC(sclkdp), CONST_VOID(packts), \ + (rate), (nints), \ + CONST_VEC(starts) ) ) + + + #define cgv2el_c( center, vec1, vec2, ellipse ) \ + \ + ( cgv2el_c( CONST_VEC(center), CONST_VEC(vec1), \ + CONST_VEC(vec2), (ellipse) ) ) + + + #define conics_c( elts, et, state ) \ + \ + ( conics_c( CONST_VEC(elts), (et), (state) ) ) + + + #define dafps_c( nd, ni, dc, ic, sum ) \ + \ + ( dafps_c ( (nd), (ni), CONST_VEC(dc), CONST_IVEC(ic), \ + (sum) ) ) + + + #define dafrs_c( sum ) \ + \ + ( dafrs_c ( CONST_VEC( sum ) ) ) + + + #define dafus_c( sum, nd, ni, dc, ic ) \ + \ + ( dafus_c ( CONST_VEC(sum), (nd), (ni), (dc), (ic) ) ) + + + #define dasac_c( handle, n, buflen, buffer ) \ + \ + ( dasac_c ( (handle), (n), (buflen), CONST_VOID(buffer) ) ) + + + #define det_c( m1 ) \ + \ + ( det_c ( CONST_MAT(m1) ) ) + + + #define diags2_c( symmat, diag, rotate ) \ + \ + ( diags2_c ( CONST_MAT2(symmat), (diag), (rotate) ) ) + + + #define dskb02_c( handle, dladsc, nv, np, nvxtot, \ + vtxbds, voxsiz, voxori, vgrext, cgscal, \ + vtxnpl, voxnpt, voxnpl ) \ + \ + ( dskb02_c( (handle), CONST_DLADSC(dladsc), (nv), (np), \ + (nvxtot), (vtxbds), (voxsiz), (voxori), \ + (vgrext), (cgscal), (vtxnpl), (voxnpt), \ + (voxnpl) ) ) + + + #define dskd02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dskd02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dski02_c( handle, dladsc, item, start, room, n, values ) \ + \ + ( dski02_c ( (handle), CONST_DLADSC(dladsc), (item), \ + (start), (room), (n), (values) ) ) + + + #define dskgd_c( handle, dladsc, dskdsc ) \ + \ + ( dskgd_c ( (handle), CONST_DLADSC(dladsc), (dskdsc) ) ) + + + #define dskmi2_c( nv, vrtces, np, plates, \ + finscl, corscl, worksz, voxpsz, voxlsz, \ + makvtl, spxisz, work, spaixd, spaixi ) \ + \ + ( dskmi2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (finscl), \ + (corscl), (worksz), (voxpsz), \ + (voxlsz), (makvtl), (spxisz), \ + (work), (spaixd), (spaixi) ) ) + + + #define dskn02_c( handle, dladsc, plid, normal ) \ + \ + ( dskn02_c ( (handle), CONST_DLADSC(dladsc), (plid), \ + (normal) ) ) + + + #define dskobj_c( dsk, bodids ) \ + \ + ( dskobj_c ( CONST_STR(dsk), (bodids) ) ) + + + #define dskp02_c( handle, dladsc, start, room, n, plates ) \ + \ + ( dskp02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (plates) ) ) + + + #define dskrb2_c( nv, vrtces, np, plates, \ + corsys, corpar, mncor3, mxcor3 ) \ + \ + ( dskrb2_c ( (nv), CONST_VEC3(vrtces), (np), \ + CONST_IVEC3(plates), (corsys), \ + (corpar), (mncor3), (mxcor3) ) ) + + + #define dsksrf_c( dsk, bodyid, srfids ) \ + \ + ( dsksrf_c ( CONST_STR(dsk), (bodyid), (srfids) ) ) + + + #define dskv02_c( handle, dladsc, start, room, n, vrtces ) \ + \ + ( dskv02_c ( (handle), CONST_DLADSC(dladsc), (start), \ + (room), (n), (vrtces) ) ) + + + #define dskw02_c( handle, center, surfce, dclass, \ + frame, corsys, corpar, mncor1, \ + mxcor1, mncor2, mxcor2, mncor3, \ + mxcor3, first, last, nv, \ + vrtces, np, plates, spaixd, spaixi ) \ + \ + ( dskw02_c ( (handle), (center), (surfce), (dclass), \ + CONST_STR(frame), (corsys), \ + CONST_VEC(corpar), (mncor1), (mxcor1), \ + (mncor2), (mxcor2), (mncor3), \ + (mxcor3), (first), (last), \ + (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates), \ + (spaixd), (spaixi) ) ) + + + #define dskxsi_c( pri, target, nsurf, srflst, et, \ + fixref, vertex, raydir, maxd, maxi, \ + xpt, handle, dladsc, dskdsc, dc, \ + ic, found ) \ + \ + ( dskxsi_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), CONST_VEC(vertex), \ + CONST_VEC(raydir), (maxd), (maxi), \ + (xpt), (handle), (dladsc),\ + (dskdsc), (dc), (ic), \ + (found) ) ) + + + #define dskxv_c( pri, target, nsurf, srflst, et, fixref, \ + nrays, vtxarr, dirarr, xptarr, fndarr ) \ + \ + ( dskxv_c( (pri), CONST_STR(target), (nsurf), \ + CONST_IVEC(srflst), (et), \ + CONST_STR(fixref), (nrays), \ + CONST_VEC3(vtxarr), CONST_VEC3(dirarr), \ + (xptarr), (fndarr) ) ) + + + #define dvdot_c( s1, s2 ) \ + \ + ( dvdot_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define dvhat_c( v1, v2 ) \ + \ + ( dvhat_c ( CONST_VEC(v1), (v2) ) ) + + + #define dvsep_c( s1, s2 ) \ + \ + ( dvsep_c ( CONST_VEC(s1), CONST_VEC(s2) ) ) + + + #define edlimb_c( a, b, c, viewpt, limb ) \ + \ + ( edlimb_c( (a), (b), (c), CONST_VEC(viewpt), (limb) ) ) + + + #define ekacec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekacec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + + #define ekaced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekaced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VEC(dvals), (isnull) ) ) + + + #define ekacei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekacei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_IVEC(ivals), (isnull) ) ) + + + #define ekaclc_c( handle, segno, column, vallen, cvals, entszs, \ + nlflgs, rcptrs, wkindx ) \ + \ + ( ekaclc_c( (handle), (segno), (column), (vallen), \ + CONST_VOID(cvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacld_c( handle, segno, column, dvals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacld_c( (handle), (segno), (column), \ + CONST_VEC(dvals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekacli_c( handle, segno, column, ivals, entszs, nlflgs, \ + rcptrs, wkindx ) \ + \ + ( ekacli_c( (handle), (segno), (column), \ + CONST_IVEC(ivals), CONST_IVEC(entszs), \ + CONST_BOOL(nlflgs), CONST_IVEC(rcptrs), \ + (wkindx) ) ) + + + #define ekbseg_c( handle, tabnam, ncols, cnmlen, cnames, declen, \ + decls, segno ) \ + \ + ( ekbseg_c( (handle), (tabnam), (ncols), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno) ) ) + + + #define ekifld_c( handle, tabnam, ncols, nrows, cnmlen, cnames, \ + declen, decls, segno, rcptrs ) \ + \ + ( ekifld_c( (handle), (tabnam), (ncols), (nrows), (cnmlen), \ + CONST_VOID(cnames), (declen), \ + CONST_VOID(decls), (segno), (rcptrs) ) ) + + + #define ekucec_c( handle, segno, recno, column, nvals, vallen, \ + cvals, isnull ) \ + \ + ( ekucec_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), (vallen), CONST_VOID(cvals), \ + (isnull) ) ) + + #define ekuced_c( handle, segno, recno, column, nvals, \ + dvals, isnull ) \ + \ + ( ekuced_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(dvals), (isnull) ) ) + + + #define ekucei_c( handle, segno, recno, column, nvals, \ + ivals, isnull ) \ + \ + ( ekucei_c( (handle), (segno), (recno), CONST_STR(column), \ + (nvals), CONST_VOID(ivals), (isnull) ) ) + + + #define el2cgv_c( ellipse, center, smajor, sminor ) \ + \ + ( el2cgv_c( CONST_ELLIPSE(ellipse), (center), \ + (smajor), (sminor) ) ) + + + #define eqncpv_c( et, epoch, eqel, rapol, decpol, state ) \ + \ + ( eqncpv_c ( (et), (epoch), CONST_VEC(eqel), (rapol), \ + (decpol), (state) ) ) + + + #define esrchc_c( value, ndim, lenvals, array ) \ + \ + ( esrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define eul2xf_c( eulang, axisa, axisb, axisc, xform ) \ + \ + ( eul2xf_c ( CONST_VEC(eulang), (axisa), (axisb), (axisc), \ + (xform) ) ) + + #define fovray_c( inst, raydir, rframe, abcorr, observer, \ + et, visible ) \ + \ + ( fovray_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (observer), (et), (visible) ) ) + + #define getelm_c( frstyr, lineln, lines, epoch, elems ) \ + \ + ( getelm_c ( (frstyr), (lineln), CONST_VOID(lines), \ + (epoch), (elems) ) ) + + + #define gfevnt_c( udstep, udrefn, gquant, qnpars, lenvals, \ + qpnams, qcpars, qdpars, qipars, qlpars, \ + op, refval, tol, adjust, rpt, \ + udrepi, udrepu, udrepf, nintvls, \ + bail, udbail, cnfine, result ) \ + \ + ( gfevnt_c( (udstep), (udrefn), (gquant), \ + (qnpars), (lenvals), CONST_VOID(qpnams),\ + CONST_VOID(qcpars), (qdpars), (qipars), \ + (qlpars), (op), (refval), \ + (tol), (adjust), (rpt), \ + (udrepi), (udrepu), (udrepf), \ + (nintvls), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gffove_c( inst, tshape, raydir, target, tframe, \ + abcorr, obsrvr, tol, udstep, udrefn, \ + rpt, udrepi, udrepu, udrepf, bail, \ + udbail, cnfine, result ) \ + \ + ( gffove_c( (inst), (tshape), CONST_VEC(raydir), \ + (target), (tframe), (abcorr), \ + (obsrvr), (tol), (udstep), \ + (udrefn), (rpt), (udrepi), \ + (udrepu), (udrepf), (bail), \ + (udbail), (cnfine), (result) ) ) + + + #define gfrfov_c( inst, raydir, rframe, abcorr, obsrvr, \ + step, cnfine, result ) \ + \ + ( gfrfov_c( (inst), CONST_VEC(raydir), (rframe), \ + (abcorr), (obsrvr), (step), \ + (cnfine), (result) ) ) + + + #define gfsntc_c( target, fixref, method, abcorr, obsrvr, \ + dref, dvec, crdsys, coord, relate, \ + refval, adjust, step, nintvls, cnfine, \ + result ) \ + \ + ( gfsntc_c( (target), (fixref), (method), \ + (abcorr), (obsrvr), (dref), \ + CONST_VEC(dvec), (crdsys), (coord), \ + (relate), (refval), (adjust), \ + (step), (nintvls), (cnfine), (result) ) ) + + + #define illum_c( target, et, abcorr, obsrvr, \ + spoint, phase, solar, emissn ) \ + \ + ( illum_c ( (target), (et), (abcorr), (obsrvr), \ + CONST_VEC(spoint), (phase), (solar), (emissn) ) ) + + + #define ilumin_c( method, target, et, fixref, \ + abcorr, obsrvr, spoint, trgepc, \ + srfvec, phase, solar, emissn ) \ + \ + ( ilumin_c ( (method), (target), (et), (fixref), \ + (abcorr), (obsrvr), CONST_VEC(spoint), (trgepc), \ + (srfvec), (phase), (solar), (emissn) ) ) + + + #define inedpl_c( a, b, c, plane, ellipse, found ) \ + \ + ( inedpl_c ( (a), (b), (c), \ + CONST_PLANE(plane), (ellipse), (found) ) ) + + + #define inrypl_c( vertex, dir, plane, nxpts, xpt ) \ + \ + ( inrypl_c ( CONST_VEC(vertex), CONST_VEC(dir), \ + CONST_PLANE(plane), (nxpts), (xpt) ) ) + + + #define invert_c( m1, m2 ) \ + \ + ( invert_c ( CONST_MAT(m1), (m2) ) ) + + + #define invort_c( m, mit ) \ + \ + ( invort_c ( CONST_MAT(m), (mit) ) ) + + + #define invstm_c( mat, invmat ) \ + \ + ( invstm_c ( CONST_MAT6(mat), (invmat) ) ) + + + #define isordv_c( array, n ) \ + \ + ( isordv_c ( CONST_IVEC(array), (n) ) ) + + + #define isrchc_c( value, ndim, lenvals, array ) \ + \ + ( isrchc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + #define isrchd_c( value, ndim, array ) \ + \ + ( isrchd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define isrchi_c( value, ndim, array ) \ + \ + ( isrchi_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define isrot_c( m, ntol, dtol ) \ + \ + ( isrot_c ( CONST_MAT(m), (ntol), (dtol) ) ) + + + #define latsrf_c( method, target, et, fixref, \ + npts, lonlat, srfpts ) \ + \ + ( latsrf_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), CONST_MAT2(lonlat), \ + (srfpts) ) ) + + + #define limbpt_c( method, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( limbpt_c( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define lmpool_c( cvals, lenvals, n ) \ + \ + ( lmpool_c( CONST_VOID(cvals), (lenvals), (n) ) ) + + + #define lstltc_c( value, ndim, lenvals, array ) \ + \ + ( lstltc_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstled_c( value, ndim, array ) \ + \ + ( lstled_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlei_c( value, ndim, array ) \ + \ + ( lstlei_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define lstlec_c( value, ndim, lenvals, array ) \ + \ + ( lstlec_c ( CONST_STR(value), (ndim), (lenvals), \ + CONST_VOID(array) ) ) + + + #define lstltd_c( value, ndim, array ) \ + \ + ( lstltd_c( (value), (ndim), CONST_VEC(array) ) ) + + + #define lstlti_c( value, ndim, array ) \ + \ + ( lstlti_c( (value), (ndim), CONST_IVEC(array) ) ) + + + #define m2eul_c( r, axis3, axis2, axis1, \ + angle3, angle2, angle1 ) \ + \ + ( m2eul_c ( CONST_MAT(r), (axis3), (axis2), (axis1), \ + (angle3), (angle2), (angle1) ) ) + + #define m2q_c( r, q ) \ + \ + ( m2q_c ( CONST_MAT(r), (q) ) ) + + + #define mequ_c( m1, m2 ) \ + \ + ( mequ_c ( CONST_MAT(m1), m2 ) ) + + + #define mequg_c( m1, nr, nc, mout ) \ + \ + ( mequg_c ( CONST_MAT(m1), (nr), (nc), mout ) ) + + + #define mtxm_c( m1, m2, mout ) \ + \ + ( mtxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mtxmg_c( m1, m2, ncol1, nr1r2, ncol2, mout ) \ + \ + ( mtxmg_c ( CONST_MAT(m1), CONST_MAT(m2), \ + (ncol1), (nr1r2), (ncol2), (mout) ) ) + + + #define mtxv_c( m1, vin, vout ) \ + \ + ( mtxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mtxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mtxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define mxm_c( m1, m2, mout ) \ + \ + ( mxm_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmg_c( m1, m2, row1, col1, col2, mout ) \ + \ + ( mxmg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (row1), (col1), (col2), (mout) ) ) + + + #define mxmt_c( m1, m2, mout ) \ + \ + ( mxmt_c ( CONST_MAT(m1), CONST_MAT(m2), (mout) ) ) + + + #define mxmtg_c( m1, m2, nrow1, nc1c2, nrow2, mout ) \ + \ + ( mxmtg_c ( CONST_VOID(m1), CONST_VOID(m2), \ + (nrow1), (nc1c2), \ + (nrow2), (mout) ) ) + + + #define mxv_c( m1, vin, vout ) \ + \ + ( mxv_c ( CONST_MAT(m1), CONST_VEC(vin), (vout) ) ) + + + #define mxvg_c( m1, v2, nrow1, nc1r2, vout ) \ + \ + ( mxvg_c( CONST_VOID(m1), CONST_VOID(v2), \ + (nrow1), (nc1r2), (vout) ) ) + + #define nearpt_c( positn, a, b, c, npoint, alt ) \ + \ + ( nearpt_c ( CONST_VEC(positn), (a), (b), (c), \ + (npoint), (alt) ) ) + + + #define npedln_c( a, b, c, linept, linedr, pnear, dist ) \ + \ + ( npedln_c ( (a), (b), (c), \ + CONST_VEC(linept), CONST_VEC(linedr), \ + (pnear), (dist) ) ) + + + #define nplnpt_c( linpt, lindir, point, pnear, dist ) \ + \ + ( nplnpt_c ( CONST_VEC(linpt), CONST_VEC(lindir), \ + CONST_VEC(point), (pnear), (dist ) ) ) + + + #define nvc2pl_c( normal, constant, plane ) \ + \ + ( nvc2pl_c ( CONST_VEC(normal), (constant), (plane) ) ) + + + #define nvp2pl_c( normal, point, plane ) \ + \ + ( nvp2pl_c( CONST_VEC(normal), CONST_VEC(point), (plane) ) ) + + + #define orderc_c( lenvals, array, ndim, iorder ) \ + \ + ( orderc_c ( (lenvals), CONST_VOID(array), (ndim), (iorder)) ) + + + #define orderd_c( array, ndim, iorder ) \ + \ + ( orderd_c ( CONST_VEC(array), (ndim), (iorder) ) ) + + + #define orderi_c( array, ndim, iorder ) \ + \ + ( orderi_c ( CONST_IVEC(array), (ndim), (iorder) ) ) + + + #define oscelt_c( state, et, mu, elts ) \ + \ + ( oscelt_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define oscltx_c( state, et, mu, elts ) \ + \ + ( oscltx_c ( CONST_VEC(state), (et), (mu), (elts) ) ) + + + #define pcpool_c( name, n, lenvals, cvals ) \ + \ + ( pcpool_c ( (name), (n), (lenvals), CONST_VOID(cvals) ) ) + + + #define pdpool_c( name, n, dvals ) \ + \ + ( pdpool_c ( (name), (n), CONST_VEC(dvals) ) ) + + + #define pipool_c( name, n, ivals ) \ + \ + ( pipool_c ( (name), (n), CONST_IVEC(ivals) ) ) + + + #define pl2nvc_c( plane, normal, constant ) \ + \ + ( pl2nvc_c ( CONST_PLANE(plane), (normal), (constant) ) ) + + + #define pl2nvp_c( plane, normal, point ) \ + \ + ( pl2nvp_c ( CONST_PLANE(plane), (normal), (point) ) ) + + + #define pl2psv_c( plane, point, span1, span2 ) \ + \ + ( pl2psv_c( CONST_PLANE(plane), (point), (span1), (span2) ) ) + + + #define pltar_c( nv, vrtces, np, plates ) \ + \ + ( pltar_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define pltexp_c( iverts, delta, overts ) \ + \ + ( pltexp_c( CONST_VEC3(iverts), (delta), (overts) ) ) + + + #define pltnp_c( point, v1, v2, v3, pnear, dist ) \ + \ + ( pltnp_c( CONST_VEC(point), CONST_VEC(v1), CONST_VEC(v2), \ + CONST_VEC(v3), (pnear), (dist) ) ) + + + #define pltnrm_c( v1, v2, v3, normal ) \ + \ + ( pltnrm_c( CONST_VEC(v1), CONST_VEC(v2), CONST_VEC(v3), \ + (normal) ) ) + + + #define pltvol_c( nv, vrtces, np, plates ) \ + \ + ( pltvol_c( (nv), CONST_VEC3(vrtces), \ + (np), CONST_IVEC3(plates) ) ) + + + #define prop2b_c( gm, pvinit, dt, pvprop ) \ + \ + ( prop2b_c ( (gm), CONST_VEC(pvinit), (dt), (pvprop) ) ) + + + #define psv2pl_c( point, span1, span2, plane ) \ + \ + ( psv2pl_c ( CONST_VEC(point), CONST_VEC(span1), \ + CONST_VEC(span2), (plane) ) ) + + + #define qdq2av_c( q, dq, av ) \ + \ + ( qdq2av_c ( CONST_VEC(q), CONST_VEC(dq), (av) ) ) + + + #define q2m_c( q, r ) \ + \ + ( q2m_c ( CONST_VEC(q), (r) ) ) + + + #define qxq_c( q1, q2, qout ) \ + \ + ( qxq_c ( CONST_VEC(q1), CONST_VEC(q2), (qout) ) ) + + + #define rav2xf_c( rot, av, xform ) \ + \ + ( rav2xf_c ( CONST_MAT(rot), CONST_VEC(av), (xform) ) ) + + + #define raxisa_c( matrix, axis, angle ) \ + \ + ( raxisa_c ( CONST_MAT(matrix), (axis), (angle) ) ); + + + #define reccyl_c( rectan, r, lon, z ) \ + \ + ( reccyl_c ( CONST_VEC(rectan), (r), (lon), (z) ) ) + + + #define recgeo_c( rectan, re, f, lon, lat, alt ) \ + \ + ( recgeo_c ( CONST_VEC(rectan), (re), (f), \ + (lon), (lat), (alt) ) ) + + #define reclat_c( rectan, r, lon, lat ) \ + \ + ( reclat_c ( CONST_VEC(rectan), (r), (lon), (lat) ) ) + + + #define recrad_c( rectan, radius, ra, dec ) \ + \ + ( recrad_c ( CONST_VEC(rectan), (radius), (ra), (dec) ) ) + + + #define recsph_c( rectan, r, colat, lon ) \ + \ + ( recsph_c ( CONST_VEC(rectan), (r), (colat), (lon) ) ) + + + #define reordd_c( iorder, ndim, array ) \ + \ + ( reordd_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordi_c( iorder, ndim, array ) \ + \ + ( reordi_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define reordl_c( iorder, ndim, array ) \ + \ + ( reordl_c ( CONST_IVEC(iorder), (ndim), (array) ) ) + + + #define rotmat_c( m1, angle, iaxis, mout ) \ + \ + ( rotmat_c ( CONST_MAT(m1), (angle), (iaxis), (mout) ) ) + + + #define rotvec_c( v1, angle, iaxis, vout ) \ + \ + ( rotvec_c ( CONST_VEC(v1), (angle), (iaxis), (vout) ) ) + + + #define saelgv_c( vec1, vec2, smajor, sminor ) \ + \ + ( saelgv_c ( CONST_VEC(vec1), CONST_VEC(vec2), \ + (smajor), (sminor) ) ) + + + #define spk14a_c( handle, ncsets, coeffs, epochs ) \ + \ + ( spk14a_c ( (handle), (ncsets), \ + CONST_VEC(coeffs), CONST_VEC(epochs) ) ) + + + #define spkapo_c( targ, et, ref, sobs, abcorr, ptarg, lt ) \ + \ + ( spkapo_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (ptarg), (lt) ) ) + + + #define spkapp_c( targ, et, ref, sobs, abcorr, starg, lt ) \ + \ + ( spkapp_c ( (targ), (et), (ref), CONST_VEC(sobs), \ + (abcorr), (starg), (lt) ) ) + + + #define spkaps_c( targ, et, ref, abcorr, sobs, \ + accobs, starg, lt, dlt ) \ + \ + ( spkaps_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), CONST_VEC(accobs), \ + (starg), (lt), (dlt) ) ) + + + #define spkcpo_c( target, et, outref, refloc, \ + abcorr, obspos, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcpo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obspos), (obsctr), \ + (obsref), (state), (lt) ) ) + + + #define spkcpt_c( trgpos, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcpt_c( CONST_VEC(trgpos), (trgctr), (trgref), \ + (et), (outref), (refloc), (abcorr), \ + (obsrvr), (state), (lt) ) ) + + + #define spkcvo_c( target, et, outref, refloc, \ + abcorr, obssta, obsepc, obsctr, \ + obsref, state, lt ) \ + \ + ( spkcvo_c( (target), (et), (outref), (refloc), \ + (abcorr), CONST_VEC(obssta), (obsepc), \ + (obsctr), (obsref), (state), (lt) ) ) + + + #define spkcvt_c( trgsta, trgepc, trgctr, trgref, \ + et, outref, refloc, abcorr, \ + obsrvr, state, lt ) \ + \ + ( spkcvt_c( CONST_VEC(trgsta), (trgepc), (trgctr), \ + (trgref), (et), (outref), (refloc), \ + (abcorr), (obsrvr), (state), (lt) ) ) + + + #define spkltc_c( targ, et, ref, abcorr, sobs, starg, lt, dlt ) \ + \ + ( spkltc_c ( (targ), (et), (ref), (abcorr), \ + CONST_VEC(sobs), (starg), (lt), (dlt) ) ) + + + #define spkpvn_c( handle, descr, et, ref, state, center ) \ + \ + ( spkpvn_c ( (handle), CONST_VEC(descr), (et), \ + (ref), (state), (center) ) ) + + #define spkuds_c( descr, body, center, frame, type, \ + first, last, begin, end ) \ + \ + ( spkuds_c ( CONST_VEC(descr), (body), (center), (frame), \ + (type), (first), (last), (begin), (end) ) ) + + + #define spkw02_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw02_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + #define spkw03_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, btime ) \ + \ + ( spkw03_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (btime) ) ) + + + + #define spkw05_c( handle, body, center, frame, first, last, \ + segid, gm, n, states, epochs ) \ + \ + ( spkw05_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (gm), \ + (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw08_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch1, step ) \ + \ + ( spkw08_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch1), \ + (step) ) ) + + + #define spkw09_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw09_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + #define spkw10_c( handle, body, center, frame, first, last, \ + segid, consts, n, elems, epochs ) \ + \ + ( spkw10_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), CONST_VEC(consts), \ + (n), CONST_VEC(elems), CONST_VEC(epochs)) ) + + + #define spkw12_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epoch0, step ) \ + \ + ( spkw12_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), \ + (n), CONST_MAT6(states), (epoch0), \ + (step) ) ) + + + #define spkw13_c( handle, body, center, frame, first, last, \ + segid, degree, n, states, epochs ) \ + \ + ( spkw13_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_MAT6(states), CONST_VEC(epochs) ) ) + + + + + + #define spkw15_c( handle, body, center, frame, first, last, \ + segid, epoch, tp, pa, p, ecc, \ + j2flg, pv, gm, j2, radius ) \ + \ + ( spkw15_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(tp), CONST_VEC(pa), \ + (p), (ecc), (j2flg), CONST_VEC(pv), \ + (gm), (j2), (radius) ) ) + + + #define spkw17_c( handle, body, center, frame, first, last, \ + segid, epoch, eqel, rapol, decpol ) \ + \ + ( spkw17_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (epoch), \ + CONST_VEC(eqel), (rapol), (decpol) ) ) + + + + #define spkw18_c( handle, subtyp, body, center, frame, first, \ + last, segid, degree, n, packts, epochs ) \ + \ + ( spkw18_c ( (handle), (subtyp), (body), (center), (frame), \ + (first), (last), (segid), (degree), (n), \ + CONST_VOID(packts), CONST_VEC(epochs) ) ) + + + #define spkw20_c( handle, body, center, frame, first, last, \ + segid, intlen, n, polydg, cdata, dscale, \ + tscale, initjd, initfr ) \ + \ + ( spkw20_c ( (handle), (body), (center), (frame), \ + (first), (last), (segid), (intlen), \ + (n), (polydg), CONST_VEC(cdata), (dscale), \ + (tscale), (initjd), (initfr) ) ) + + + + #define srfxpt_c( method, target, et, abcorr, obsrvr, dref, \ + dvec, spoint, dist, trgepc, obspos, found ) \ + \ + ( srfxpt_c ( (method), (target), (et), (abcorr), (obsrvr), \ + (dref), CONST_VEC(dvec), (spoint), (dist), \ + (trgepc), (obspos), (found) ) ) + + + #define srfnrm_c( method, target, et, fixref, \ + npts, srfpts, normls ) \ + \ + ( srfnrm_c ( CONST_STR(method), CONST_STR(target), (et), \ + CONST_STR(fixref), (npts), \ + CONST_VEC3(srfpts), (normls) ) ) + + + #define stelab_c( pobj, vobj, appobj ) \ + \ + ( stelab_c ( CONST_VEC(pobj), CONST_VEC(vobj), (appobj) ) ) + + + #define sumad_c( array, n ) \ + \ + ( sumad_c ( CONST_VEC(array), (n) ) ) + + + #define sumai_c( array, n ) \ + \ + ( sumai_c ( CONST_IVEC(array), (n) ) ) + + + #define surfnm_c( a, b, c, point, normal ) \ + \ + ( surfnm_c ( (a), (b), (c), CONST_VEC(point), (normal) ) ) + + + #define surfpt_c( positn, u, a, b, c, point, found ) \ + \ + ( surfpt_c ( CONST_VEC(positn), CONST_VEC(u), \ + (a), (b), (c), \ + (point), (found) ) ) + + + #define surfpv_c( stvrtx, stdir, a, b, c, stx, found ) \ + \ + ( surfpv_c ( CONST_VEC(stvrtx), CONST_VEC(stdir), \ + (a), (b), (c), \ + (stx), (found) ) ) + + + #define swpool_c( agent, nnames, lenvals, names ) \ + \ + ( swpool_c( CONST_STR(agent), (nnames), \ + (lenvals), CONST_VOID(names) ) ) + + + #define termpt_c( method, ilusrc, target, et, fixref, \ + abcorr, corloc, obsrvr, refvec, \ + rolstp, ncuts, schstp, soltol, \ + maxn, npts, points, epochs, \ + tangts ) \ + \ + ( termpt_c( CONST_STR(method), CONST_STR(ilusrc), \ + CONST_STR(target), (et), \ + CONST_STR(fixref), CONST_STR(abcorr), \ + CONST_STR(corloc), CONST_STR(obsrvr), \ + CONST_VEC(refvec), (rolstp), (ncuts), \ + (schstp), (soltol), (maxn), \ + (npts), (points), (epochs), \ + (tangts) ) ) + + + #define trace_c( m1 ) \ + \ + ( trace_c ( CONST_MAT(m1) ) ) + + + #define twovec_c( axdef, indexa, plndef, indexp, mout ) \ + \ + ( twovec_c ( CONST_VEC(axdef), (indexa), \ + CONST_VEC(plndef), (indexp), (mout) ) ) + + + #define ucrss_c( v1, v2, vout ) \ + \ + ( ucrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define unorm_c( v1, vout, vmag ) \ + \ + ( unorm_c ( CONST_VEC(v1), (vout), (vmag) ) ) + + + #define unormg_c( v1, ndim, vout, vmag ) \ + \ + ( unormg_c ( CONST_VEC(v1), (ndim), (vout), (vmag) ) ) + + + #define vadd_c( v1, v2, vout ) \ + \ + ( vadd_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vaddg_c( v1, v2, ndim,vout ) \ + \ + ( vaddg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim), (vout) ) ) + + + #define vcrss_c( v1, v2, vout ) \ + \ + ( vcrss_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vdist_c( v1, v2 ) \ + \ + ( vdist_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdistg_c( v1, v2, ndim ) \ + \ + ( vdistg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vdot_c( v1, v2 ) \ + \ + ( vdot_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vdotg_c( v1, v2, ndim ) \ + \ + ( vdotg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vequ_c( vin, vout ) \ + \ + ( vequ_c ( CONST_VEC(vin), (vout) ) ) + + + #define vequg_c( vin, ndim, vout ) \ + \ + ( vequg_c ( CONST_VEC(vin), (ndim), (vout) ) ) + + + #define vhat_c( v1, vout ) \ + \ + ( vhat_c ( CONST_VEC(v1), (vout) ) ) + + + #define vhatg_c( v1, ndim, vout ) \ + \ + ( vhatg_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vlcom3_c( a, v1, b, v2, c, v3, sum ) \ + \ + ( vlcom3_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), \ + (c), CONST_VEC(v3), (sum) ) ) + + + #define vlcom_c( a, v1, b, v2, sum ) \ + \ + ( vlcom_c ( (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vlcomg_c( n, a, v1, b, v2, sum ) \ + \ + ( vlcomg_c ( (n), (a), CONST_VEC(v1), \ + (b), CONST_VEC(v2), (sum) ) ) + + + #define vminug_c( v1, ndim, vout ) \ + \ + ( vminug_c ( CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vminus_c( v1, vout ) \ + \ + ( vminus_c ( CONST_VEC(v1), (vout) ) ) + + + #define vnorm_c( v1 ) \ + \ + ( vnorm_c ( CONST_VEC(v1) ) ) + + + #define vnormg_c( v1, ndim ) \ + \ + ( vnormg_c ( CONST_VEC(v1), (ndim) ) ) + + + #define vperp_c( a, b, p ) \ + \ + ( vperp_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vprjp_c( vin, plane, vout ) \ + \ + ( vprjp_c ( CONST_VEC(vin), CONST_PLANE(plane), (vout) ) ) + + + #define vprjpi_c( vin, projpl, invpl, vout, found ) \ + \ + ( vprjpi_c( CONST_VEC(vin), CONST_PLANE(projpl), \ + CONST_PLANE(invpl), (vout), (found) ) ) + + + #define vproj_c( a, b, p ) \ + \ + ( vproj_c ( CONST_VEC(a), CONST_VEC(b), (p) ) ) + + + #define vrel_c( v1, v2 ) \ + \ + ( vrel_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vrelg_c( v1, v2, ndim ) \ + \ + ( vrelg_c ( CONST_VEC(v1), CONST_VEC(v2), (ndim) ) ) + + + #define vrotv_c( v, axis, theta, r ) \ + \ + ( vrotv_c ( CONST_VEC(v), CONST_VEC(axis), (theta), (r) ) ) + + + #define vscl_c( s, v1, vout ) \ + \ + ( vscl_c ( (s), CONST_VEC(v1), (vout) ) ) + + + #define vsclg_c( s, v1, ndim, vout ) \ + \ + ( vsclg_c ( (s), CONST_VEC(v1), (ndim), (vout) ) ) + + + #define vsep_c( v1, v2 ) \ + \ + ( vsep_c ( CONST_VEC(v1), CONST_VEC(v2) ) ) + + + #define vsepg_c( v1, v2, ndim) \ + \ + ( vsepg_c ( CONST_VEC(v1), CONST_VEC(v2), ndim ) ) + + + #define vsub_c( v1, v2, vout ) \ + \ + ( vsub_c ( CONST_VEC(v1), CONST_VEC(v2), (vout) ) ) + + + #define vsubg_c( v1, v2, ndim, vout ) \ + \ + ( vsubg_c ( CONST_VEC(v1), CONST_VEC(v2), \ + (ndim), (vout) ) ) + + #define vtmv_c( v1, mat, v2 ) \ + \ + ( vtmv_c ( CONST_VEC(v1), CONST_MAT(mat), CONST_VEC(v2) ) ) + + + #define vtmvg_c( v1, mat, v2, nrow, ncol ) \ + \ + ( vtmvg_c ( CONST_VOID(v1), CONST_VOID(mat), CONST_VOID(v2), \ + (nrow), (ncol) ) ) + + + #define vupack_c( v, x, y, z ) \ + \ + ( vupack_c ( CONST_VEC(v), (x), (y), (z) ) ) + + + #define vzero_c( v1 ) \ + \ + ( vzero_c ( CONST_VEC(v1) ) ) + + + #define vzerog_c( v1, ndim ) \ + \ + ( vzerog_c ( CONST_VEC(v1), (ndim) ) ) + + + #define xf2eul_c( xform, axisa, axisb, axisc, eulang, unique ) \ + \ + ( xf2eul_c( CONST_MAT6(xform), (axisa), (axisb), (axisc), \ + (eulang), (unique) ) ) + + + #define xf2rav_c( xform, rot, av ) \ + \ + ( xf2rav_c( CONST_MAT6(xform), (rot), (av) ) ) + + + #define xpose6_c( m1, mout ) \ + \ + ( xpose6_c ( CONST_MAT6(m1), (mout) ) ) + + + #define xpose_c( m1, mout ) \ + \ + ( xpose_c ( CONST_MAT(m1), (mout) ) ) + + + #define xposeg_c( matrix, nrow, ncol, mout ) \ + \ + ( xposeg_c ( CONST_VOID(matrix), (nrow), (ncol), (mout) ) ) + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZmc.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZmc.h new file mode 100644 index 000000000..5e0c83435 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZmc.h @@ -0,0 +1,958 @@ +/* + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +*/ + +/* + CSPICE private macro file. + +-Particulars + + Current list of macros (spelling counts) + + BLANK + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + CHKFSTR + CHKFSTR_VAL + CHKOSTR + CHKOSTR_VAL + CHKPTR + F2C_MAP_CELL + Index values + MOVED + MOVEI + MaxAbs + MaxVal + MinAbs + MinVal + SpiceError + TolOrFail + +-Restrictions + + This is a private macro file for use within CSPICE. + Do not use or alter any entry. Or else! + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 6.0.0, 21-FEB-2021 (NJB) + + Deleted macros for physical constants and dates. Deleted macros `Even` + and `Odd`. + + -CSPICE Version 5.0.0, 07-FEB-2017 (NJB) + + Updated MaxAbs and MinAbs macros to cast their input arguments + to type double. + + -CSPICE Version 4.3.0, 18-SEP-2013 (NJB) + + Bug fix: missing comma was added to argument list + in body of macro CELLTYPECHK3_VAL. + + -CSPICE Version 4.2.0, 16-FEB-2005 (NJB) + + Bug fix: in the macro C2F_MAP_CELL, error checking has been + added after the sequence of calls to ssizec_ and scardc_. + If either of these routines signals an error, the dynamically + allocated memory for the "Fortran cell" is freed. + + -CSPICE Version 4.1.0, 06-DEC-2002 (NJB) + + Bug fix: added previous missing, bracketing parentheses to + references to input cell pointer argument in macro + CELLINIT. + + Changed CELLINIT macro so it no longer initializes to zero + length all strings in data array of a character cell. Instead, + strings are terminated with a null in their final element. + + -CSPICE Version 4.0.0, 22-AUG-2002 (NJB) + + Added macro definitions to support CSPICE cells and sets: + + C2F_MAP_CELL + C2F_MAP_CELL2 + C2F_MAP_CELL3 + CELLINIT + CELLINIT2 + CELLINIT3 + CELLISSETCHK + CELLISSETCHK2 + CELLISSETCHK2_VAL + CELLISSETCHK3 + CELLISSETCHK3_VAL + CELLISSETCHK_VAL + CELLMATCH2 + CELLMATCH2_VAL + CELLMATCH3 + CELLMATCH3_VAL + CELLTYPECHK + CELLTYPECHK2 + CELLTYPECHK2_VAL + CELLTYPECHK3 + CELLTYPECHK3_VAL + CELLTYPECHK_VAL + F2C_MAP_CELL + + -CSPICE Version 3.0.0, 09-JAN-1998 (NJB) + + Added output string check macros CHKOSTR and CHKOSTR_VAL. + Removed variable name arguments from macros + + CHKPTR + CHKPTR_VAL + CHKFSTR + CHKRSTR_VAL + + The strings containing names of the checked variables are now + generated from the variables themselves via the # operator. + + -CSPICE Version 2.0.0, 03-DEC-1997 (NJB) + + Added pointer check macro CHKPTR and Fortran string check macro + CHKFSTR. + + -CSPICE Version 1.0.0, 25-OCT-1997 (EDW) +*/ + + + +#include +#include +#include "SpiceZdf.h" + + +#define MOVED( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceDouble) * (ndim) ) ) + + + + + +#define MOVEI( arrfrm, ndim, arrto ) \ + \ + ( memmove ( (void*) (arrto) , \ + (void*) (arrfrm), \ + sizeof (SpiceInt) * (ndim) ) ) + + + + + +/* +Define a tolerance test for those pesky double precision reals. +True if the difference is less than the tolerance, false otherwise. +The tolerance refers to a percentage. x, y and tol should be declared +double. All values are assumed to be non-zero. Okay? +*/ + +#define TolOrFail( x, y, tol ) \ + \ + ( fabs( x-y ) < ( tol * fabs(x) ) ) + + + + + +/* +Simple error output through standard SPICE error system . Set the error +message and the type +*/ + +#define SpiceError( errmsg, errtype ) \ + \ + { \ + setmsg_c ( errmsg ); \ + sigerr_c ( errtype ); \ + } + + + + + + +/* +Return a value which is the maximum/minimum of the absolute values of +two values. +*/ + +#define MaxAbs(a,b) \ + \ + ( fabs((double)(a)) >= fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + +#define MinAbs(a,b) \ + \ + ( fabs((double)(a)) < fabs((double)(b)) ? \ + fabs((double)(a)) : fabs((double)(b)) ) + + +/* +Return a value which is the maximum/minimum value of two values. +*/ + +#define MaxVal(A,B) ( (A) >= (B) ? (A) : (B) ) +#define MinVal(A,B) ( (A) < (B) ? (A) : (B) ) + + + +/* +Array indexes for vectors. +*/ + +#define SpiceX 0 +#define SpiceY 1 +#define SpiceZ 2 +#define SpiceVx 3 +#define SpiceVy 4 +#define SpiceVz 5 + + +/* +Common literal values. +*/ + +#define NULLCHAR ( (SpiceChar ) 0 ) +#define NULLCPTR ( (SpiceChar * ) 0 ) +#define BLANK ( (SpiceChar ) ' ' ) + + + +/* +Macro CHKPTR is used for checking for a null pointer. CHKPTR uses +the constants + + CHK_STANDARD + CHK_DISCOVER + CHK_REMAIN + +to control tracing behavior. Values and meanings are: + + CHK_STANDARD Standard tracing. If an error + is found, signal it, check out + and return. + + CHK_DISCOVER Discovery check-in. If an + error is found, check in, signal + the error, check out, and return. + + CHK_REMAIN If an error is found, signal it. + Do not check out or return. This + would allow the caller to clean up + before returning, if necessary. + In such cases the caller must test + failed_c() after the macro call. + +CHKPTR should be used in void functions. In non-void functions, +use CHKPTR_VAL, which is defined below. + +*/ + +#define CHK_STANDARD 1 +#define CHK_DISCOVER 2 +#define CHK_REMAIN 3 + +#define CHKPTR( errHandling, modname, pointer ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKPTR_VAL( errHandling, modname, pointer, retval ) \ + \ + if ( (void *)(pointer) == (void *)0 ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Pointer \"#\" is null; a non-null " \ + "pointer is required." ); \ + errch_c ( "#", (#pointer) ); \ + sigerr_c ( "SPICE(NULLPOINTER)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKFSTR checks strings that are to be passed to Fortran or +f2c'd Fortran routines. Such strings must have non-zero length, +and their pointers must be non-null. + +CHKFSTR should be used in void functions. In non-void functions, +use CHKFSTR_VAL, which is defined below. +*/ + +#define CHKFSTR( errHandling, modname, string ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + +#define CHKFSTR_VAL( errHandling, modname, string, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( strlen(string) == 0 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length zero." ); \ + errch_c ( "#", (#string) ); \ + sigerr_c ( "SPICE(EMPTYSTRING)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + +/* +Macro CHKOSTR checks output string pointers and the associated +string length values supplied as input arguments. Output string +pointers must be non-null, and the string lengths must be at +least 2, so Fortran routine can write at least one character to +the output string, and so a null terminator can be appended. +CHKOSTR should be used in void functions. In non-void functions, +use CHKOSTR_VAL, which is defined below. +*/ + +#define CHKOSTR( errHandling, modname, string, length ) \ + \ + CHKPTR ( errHandling, modname, string ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + +#define CHKOSTR_VAL( errHandling, modname, string, length, retval ) \ + \ + CHKPTR_VAL( errHandling, modname, string, retval ); \ + \ + if ( ( (void *)string != (void *)0 ) \ + && ( length < 2 ) ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "String \"#\" has length #; must be >= 2." ); \ + errch_c ( "#", (#string) ); \ + errint_c ( "#", (length) ); \ + sigerr_c ( "SPICE(STRINGTOOSHORT)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + /* + Definitions for Cells and Sets + */ + + + /* + Cell initialization macros + */ + #define CELLINIT( cellPtr ) \ + \ + if ( !( (cellPtr)->init ) ) \ + { \ + if ( (cellPtr)->dtype == SPICE_CHR ) \ + { \ + /* \ + Make sure all elements of the data array, including \ + the control area, start off null-terminated. We place \ + the null character in the final element of each string, \ + so as to avoid wiping out data that may have been \ + assigned to the data array prior to initialization. \ + */ \ + SpiceChar * sPtr; \ + SpiceInt i; \ + SpiceInt nmax; \ + \ + nmax = SPICE_CELL_CTRLSZ + (cellPtr)->size; \ + \ + for ( i = 1; i <= nmax; i++ ) \ + { \ + sPtr = (SpiceChar *)((cellPtr)->base) \ + + i * (cellPtr)->length \ + - 1; \ + \ + *sPtr = NULLCHAR; \ + } \ + } \ + else \ + { \ + zzsynccl_c ( C2F, (cellPtr) ); \ + } \ + \ + (cellPtr)->init = SPICETRUE; \ + } + + + #define CELLINIT2( cellPtr1, cellPtr2 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); + + + #define CELLINIT3( cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLINIT ( cellPtr1 ); \ + CELLINIT ( cellPtr2 ); \ + CELLINIT ( cellPtr3 ); + + + /* + Data type checking macros: + */ + #define CELLTYPECHK( errHandling, modname, dType, cellPtr1 ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLTYPECHK_VAL( errHandling, modname, \ + dType, cellPtr1, retval ) \ + \ + if ( (cellPtr1)->dtype != (dType) ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; expected type " \ + "is #." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", typstr[ dType ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLTYPECHK2( errHandling, modname, dtype, \ + cellPtr1, cellPtr2 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); + + + + #define CELLTYPECHK2_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); + + + + #define CELLTYPECHK3( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr1 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr2 ); \ + CELLTYPECHK( errHandling, modname, dtype, cellPtr3 ); + + + #define CELLTYPECHK3_VAL( errHandling, modname, dtype, \ + cellPtr1, cellPtr2, cellPtr3, \ + retval ) \ + \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr1, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr2, \ + retval ); \ + CELLTYPECHK_VAL( errHandling, modname, dtype, cellPtr3, \ + retval ); + + + + #define CELLMATCH2( errHandling, modname, cellPtr1, cellPtr2 ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr[ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr[ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + #define CELLMATCH2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + if ( (cellPtr1)->dtype != (cellPtr2)->dtype ) \ + { \ + SpiceChar * typstr[3] = \ + { \ + "character", "double precision", "integer" \ + }; \ + \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Data type of # is #; data type of # " \ + "is #, but types must match." ); \ + errch_c ( "#", (#cellPtr1) ); \ + errch_c ( "#", typstr [ (cellPtr1)->dtype ] ); \ + errch_c ( "#", (#cellPtr2) ); \ + errch_c ( "#", typstr [ (cellPtr2)->dtype ] ); \ + sigerr_c ( "SPICE(TYPEMISMATCH)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return ( retval ); \ + } \ + } + + + #define CELLMATCH3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLMATCH2 ( errHandling, modname, cellPtr1, cellPtr2 ); \ + CELLMATCH2 ( errHandling, modname, cellPtr2, cellPtr3 ); + + + + + #define CELLMATCH3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr1, cellPtr2, retval ); \ + \ + CELLMATCH2_VAL ( errHandling, modname, \ + cellPtr2, cellPtr3, retval ); + + /* + Set checking macros: + */ + #define CELLISSETCHK( errHandling, modname, cellPtr1 ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return; \ + } \ + } + + + #define CELLISSETCHK_VAL( errHandling, modname, \ + cellPtr1, retval ) \ + \ + if ( !(cellPtr1)->isSet ) \ + { \ + if ( (errHandling) == CHK_DISCOVER ) \ + { \ + chkin_c ( modname ); \ + } \ + \ + setmsg_c ( "Cell # must be sorted and have unique " \ + "values in order to be a CSPICE set. " \ + "The isSet flag in this cell is SPICEFALSE, " \ + "indicating the cell may have been modified " \ + "by a routine that doesn't preserve these " \ + "properties." ); \ + errch_c ( "#", (#cellPtr1) ); \ + sigerr_c ( "SPICE(NOTASET)" ); \ + \ + if ( ( (errHandling) == CHK_DISCOVER ) \ + || ( (errHandling) == CHK_STANDARD ) ) \ + { \ + chkout_c ( modname ); \ + return (retval); \ + } \ + } + + + #define CELLISSETCHK2( errHandling, modname, \ + cellPtr1, cellPtr2 ) \ + \ + CELLISSETCHK( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK( errHandling, modname, cellPtr2 ); + + + + #define CELLISSETCHK2_VAL( errHandling, modname, \ + cellPtr1, cellPtr2, retval ) \ + \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL( errHandling, modname, cellPtr2, retval ); \ + + + + #define CELLISSETCHK3( errHandling, modname, \ + cellPtr1, cellPtr2, cellPtr3 ) \ + \ + CELLISSETCHK ( errHandling, modname, cellPtr1 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr2 ); \ + CELLISSETCHK ( errHandling, modname, cellPtr3 ); + + + #define CELLISSETCHK3_VAL( errHandling, modname, cellPtr1, \ + cellPtr2, cellPtr3, retval ) \ + \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr1, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr2, retval ); \ + CELLISSETCHK_VAL ( errHandling, modname, cellPtr3, retval ); + + + /* + C-to-Fortran and Fortran-to-C character cell translation macros: + */ + + /* + Macros that map one or more character C cells to dynamically + allocated Fortran-style character cells: + */ + #define C2F_MAP_CELL( caller, CCell, fCell, fLen ) \ + \ + { \ + /* \ + fCell and fLen are to be passed by reference, as if this \ + macro were a function. \ + \ + \ + Caution: dynamically allocates array fCell, which is to be \ + freed by caller! \ + */ \ + SpiceInt ndim; \ + SpiceInt lenvals; \ + \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + \ + C2F_MapFixStrArr ( (caller), ndim, lenvals, \ + (CCell)->base, (fLen), (fCell) ); \ + \ + if ( !failed_c() ) \ + { \ + /* \ + Explicitly set the control area info in the Fortran cell.\ + */ \ + ssizec_ ( ( integer * ) &((CCell)->size), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + scardc_ ( ( integer * ) &((CCell)->card), \ + ( char * ) *(fCell), \ + ( ftnlen ) *(fLen) ); \ + \ + if ( failed_c() ) \ + { \ + /* \ + Setting size or cardinality of the Fortran cell \ + can fail, for example if the cell's string length \ + is too short. \ + */ \ + free ( *(fCell) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ) \ + \ + { \ + C2F_MAP_CELL( caller, CCell1, fCell1, fLen1 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell2, fCell2, fLen2 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + } \ + } \ + } + + + #define C2F_MAP_CELL3( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2, \ + CCell3, fCell3, fLen3 ) \ + \ + { \ + C2F_MAP_CELL2( caller, CCell1, fCell1, fLen1, \ + CCell2, fCell2, fLen2 ); \ + \ + if ( !failed_c() ) \ + { \ + C2F_MAP_CELL( caller, CCell3, fCell3, fLen3 ); \ + \ + if ( failed_c() ) \ + { \ + free ( *(fCell1) ); \ + free ( *(fCell2) ); \ + } \ + } \ + } + + + + /* + Macro that maps a Fortran-style character cell to a C cell + (Note: this macro frees the Fortran cell): + */ + + #define F2C_MAP_CELL( fCell, fLen, CCell ) \ + \ + { \ + SpiceInt card; \ + SpiceInt lenvals; \ + SpiceInt ndim; \ + SpiceInt nBytes; \ + SpiceInt size; \ + void * array; \ + \ + ndim = (CCell)->size + SPICE_CELL_CTRLSZ; \ + lenvals = (CCell)->length; \ + array = (CCell)->base; \ + \ + /* \ + Capture the size and cardinality of the Fortran cell. \ + */ \ + if ( !failed_c() ) \ + { \ + size = sizec_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + \ + card = cardc_ ( ( char * ) (fCell), \ + ( ftnlen ) fLen ); \ + } \ + \ + \ + /* \ + Copy the Fortran array into the output array. \ + */ \ + \ + nBytes = ndim * fLen * sizeof(SpiceChar); \ + memmove ( array, fCell, nBytes ); \ + /* \ + Convert the output array from Fortran to C style. \ + */ \ + F2C_ConvertTrStrArr ( ndim, lenvals, (SpiceChar *)array ); \ + \ + /* \ + Sync the size and cardinality of the C cell. \ + */ \ + if ( !failed_c() ) \ + { \ + (CCell)->size = size; \ + (CCell)->card = card; \ + } \ + } + + + +/* + End of header SpiceZmc.h +*/ diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpl.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpl.h new file mode 100644 index 000000000..aecb29808 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpl.h @@ -0,0 +1,125 @@ +/* + +-Header_File SpiceZpl.h ( CSPICE platform macros ) + +-Abstract + + Define macros identifying the host platform for which this + version of CSPICE is targeted. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This header file defines macros that enable CSPICE code to be + compiled conditionally based on the identity of the host platform. + + The macros defined here ARE visible in the macro name space of + any file that includes SpiceUsr.h. The names are prefixed with + the string CSPICE_ to help prevent conflicts with macros defined + by users' applications. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 2.4.0, 28-NOV-2021 (BVS) + + Updated for the: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. + + -CSPICE Version 2.3.0, 10-MAR-2014 (BVS) + + Updated for the: + + PC-CYGWIN-64BIT-GCC_C + + environment. + + -CSPICE Version 2.2.0, 14-MAY-2010 (EDW)(BVS) + + Updated for the: + + MAC-OSX-64BIT-INTEL_C + PC-64BIT-MS_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + SUN-SOLARIS-INTEL-CC_C + + environments. + + -CSPICE Version 2.1.0, 15-NOV-2006 (BVS) + + Updated for MAC-OSX-INTEL_C environment. + + -CSPICE Version 2.0.0, 21-FEB-2006 (NJB) + + Updated for PC-LINUX-64BIT-GCC_C environment. + + -CSPICE Version 1.3.0, 06-MAR-2005 (NJB) + + Updated for SUN-SOLARIS-64BIT-GCC_C environment. + + -CSPICE Version 1.2.0, 03-JAN-2005 (BVS) + + Updated for PC-CYGWIN_C environment. + + -CSPICE Version 1.1.0, 27-JUL-2002 (BVS) + + Updated for MAC-OSX-NATIVE_C environment. + + -CSPICE Version 1.0.0, 26-FEB-1999 (NJB) (EDW) + +-Index_Entries + + platform ID defines for CSPICE + +*/ + + +#ifndef HAVE_PLATFORM_MACROS_H +#define HAVE_PLATFORM_MACROS_H + + + #define CSPICE_PC_MS + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpr.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpr.h new file mode 100644 index 000000000..3f2424970 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZpr.h @@ -0,0 +1,5190 @@ +/* + +-Header_File SpiceZpr.h ( CSPICE prototypes ) + +-Abstract + + Define prototypes for CSPICE user-interface-level functions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + This C header file contains prototypes for CSPICE user-level + C routines. Prototypes for the underlying f2c'd SPICELIB routines + are contained in the separate header file SpiceZfc. However, those + routines are not part of the official CSPICE API. + +-Author_and_Institution + + N.J. Bachman (JPL) + M. Costa Sitja (JPL) + J. Diaz del Rio (ODC Space) + K.R. Gehringer (JPL) + W.L. Taber (JPL) + F.S. Turner (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 13.0.0, 05-NOV-2021 (JDR) (MCS) (NJB) + + Fixed size of "accobs" argument of spkaps_c: it was 6 when it + should be 3. + + Corrected prototype of gfoclt_c: switched order of abcorr and + obsrvr. + + Added prototypes for + + azlcpo_c + azlrec_c + chbigr_c + chbint_c + chbval_c + ckfrot_c + ckfxfm_c + ckgr02_c + ckgr03_c + ckmeta_c + cknr02_c + cknr03_c + clearc_c + cleari_c + dafhsf_c + dasadc_c + dasadd_c + dasadi_c + dashfs_c + daslla_c + dasllc_c + dasonw_c + dasops_c + dasrdc_c + dasrdd_c + dasrdi_c + dasudc_c + dasudd_c + dasudi_c + daswbr_c + dazldr_c + dlabns_c + dlaens_c + dlaopn_c + dnearp_c + drdazl_c + ednmpt_c + edpnt_c + evsgp4_c + filld_c + filli_c + getfvn_c + hrmesp_c + invstm_c + lgresp_c + lgrint_c + moved_c + nextwd_c + nthwd_c + qderiv_c + recazl_c + repml_c + stlabx_c + tangpt_c + tkfram_c + tparch_c + trgsep_c + twovxf_c + vprojg_c + + -CSPICE Version 12.14.0, 05-JAN-2017 (EDW) (NJB) + + Added prototypes for + + chbder_c + cleard_c + dasdc_c + dashfn_c + dasopw_c + dasrfr_c + dlabbs_c + dlabfs_c + dlafns_c + dlafps_c + dskb02_c + dskcls_c + dskd02_c + dskgd_c + dskgtl_c + dski02_c + dskmi2_c + dskn02_c + dskobj_c + dskopn_c + dskp02_c + dskrb2_c + dsksrf_c + dskstl_c + dskv02_c + dskw02_c + dskx02_c + dskxsi_c + dskxv_c + dskz02_c + hrmint_c + illum_pl02 + illum_plid_pl02 + latsrf_c + lgrind_c + limb_pl02 + limbpt_c + llgrid_pl02 + oscltx_c + pckcls_c + pckopn_c + pckw02_c + pltar_c + pltexp_c + pltnp_c + pltnrm_c + pltvol_c + polyds_c + srfc2s_c + srfcss_c + srfnrm_c + srfs2c_c + srfscc_c + subpt_pl02 + subsol_pl02 + term_pl02 + termpt_c + + -CSPICE Version 12.13.0, 03-DEC-2013 (NJB) (SCK) (EDW) + + Correction to argument order for gfsep_c.c prototype. + + Added prototypes for + + bltfrm_c + ccifrm_c + edterm_c + eqncpv_c + fovray_c + fovtrg_c + gfilum_c + gfpa_c + gfstol_c + gfudb_c + illumg_c + kplfrm_c + occult_c + phaseq_c + pxfrm2_c + qcktrc_c + trcdep_c + trcnam_c + spkcpo_c + spkcpt_c + spkcvo_c + spkcvt_c + spkpvn_c + spksfs_c + spkw20_c + xfmsta_c + udf_c + + -CSPICE Version 12.12.0, 19-FEB-2010 (EDW) (NJB) + + Added prototypes for + + bodc2s_c + dafgsr_c + dafrfr_c + dp2hx_c + ducrss_c + dvcrss_c + dvnorm_c + gfrr_c + gfuds_c + hx2dp_c + uddc_c + uddf_c + + -CSPICE Version 12.11.0, 29-MAR-2009 (EDW) (NJB) + + Added prototypes for + + dvsep_c + gfbail_c + gfclrh_c + gfdist_c + gfevnt_c + gffove_c + gfinth_c + gfocce_c + gfoclt_c + gfposc_c + gfrefn_c + gfrepf_c + gfrepi_c + gfrepu_c + gfrfov_c + gfsep_c + gfseth_c + gfsntc_c + gfsstp_c + gfstep_c + gfsubc_c + gftfov_c + surfpv_c + zzgfgeth_c + zzgfsavh_c + + -CSPICE Version 12.10.0, 30-JAN-2008 (EDW) (NJB) + + Added prototypes for: + + ilumin_c + pckcov_c + pckfrm_c + sincpt_c + spkacs_c + spkaps_c + spkltc_c + subpnt_c + subslr_c + wncard_c + + -CSPICE Version 12.9.0, 16-NOV-2006 (NJB) + + Bug fix: corrected prototype for vhatg_c. + + Renamed wnfild_c and wnfltd_c arguments `small' to 'smal' for + compatibility with MS Visual C++. + + Added prototypes for + + dafac_c + dafdc_c + dafec_c + dafgda_c + dascls_c + dasopr_c + kclear_c + + -CSPICE Version 12.8.0, 07-NOV-2005 (NJB) + + Added prototypes for + + bodvcd_c + qdq2av_c + qxq_c + srfrec_c + + -CSPICE Version 12.7.0, 06-JAN-2004 (NJB) + + Added prototypes for + + bods2c_c + ckcov_c + ckobj_c + dafopw_c + dafrs_c + dpgrdr_c + drdpgr_c + lspcn_c + pgrrec_c + recpgr_c + spkcov_c + spkobj_c + + -CSPICE Version 12.6.0, 24-FEB-2003 (NJB) + + Added prototype for + + bodvrd_c + deltet_c + srfxpt_c + + -CSPICE Version 12.5.0, 14-MAY-2003 (NJB) + + Removed prototype for getcml_. + + + -CSPICE Version 12.4.0, 25-FEB-2003 (NJB) + + Added prototypes for + + dasac_c + dasec_c + et2lst_c + + -CSPICE Version 12.3.0, 03-SEP-2002 (NJB) + + Added prototypes for + + appndc_c + appndd_c + appndi_c + bschoc_c + bschoi_c + bsrchc_c + bsrchd_c + bsrchi_c + card_c + ckw05_c + copy_c + cpos_c + cposr_c + diff_c + elemc_c + elemd_c + elemi_c + esrchc_c + insrtc_c + insrtd_c + insrti_c + inter_c + isordv_c + isrchc_c + isrchd_c + isrchi_c + lparss_c + lstlec_c + lstled_c + lstlei_c + lstltc_c + lstltd_c + lstlti_c + lx4dec_c + lx4num_c + lx4sgn_c + lx4uns_c + lxqstr_c + ncpos_c + ncposr_c + ordc_c + ordd_c + orderc_c + orderd_c + orderi_c + ordi_c + pos_c + posr_c + prefix_c + removc_c + removd_c + remove_c + removi_c + reordc_c + reordd_c + reordi_c + reordl_c + repmc_c + repmct_c + repmd_c + repmf_c + repmi_c + repmot_c + scard_c + sdiff_c + set_c + shellc_c + shelld_c + shelli_c + size_c + spkw18_c + ssize_c + union_c + valid_c + wncomd_c + wncond_c + wndifd_c + wnelmd_c + wnexpd_c + wnextd_c + wnfetd_c + wnfild_c + wnfltd_c + wnincd_c + wninsd_c + wnintd_c + wnreld_c + wnsumd_c + wnunid_c + wnvald_c + zzsynccl_c + + -CSPICE Version 12.2.0, 23-OCT-2001 (NJB) + + Added prototypes for + + badkpv_c + dcyldr_c + dgeodr_c + dlatdr_c + drdcyl_c + drdgeo_c + drdlat_c + drdsph_c + dsphdr_c + ekacec_c + ekaced_c + ekacei_c + ekappr_c + ekbseg_c + ekccnt_c + ekcii_c + ekdelr_c + ekinsr_c + ekntab_c + ekrcec_c + ekrced_c + ekrcei_c + ektnam_c + ekucec_c + ekuced_c + ekucei_c + inelpl_c + invort_c + kxtrct_c + + Added const qualifier to input array arguments of + + conics_c + illum_c + pdpool_c + prop2b_c + q2m_c + spkuds_c + xposeg_c + + Added const qualifier to the return value of + + tkvrsn_c + + -CSPICE Version 12.1.0, 12-APR-2000 (FST) + + Added prototype for + + getfov_c + + -CSPICE Version 12.0.0, 22-MAR-2000 (NJB) + + Added prototypes for + + lparse_c + lparsm_c + spkw12_c + spkw13_c + + + -CSPICE Version 11.1.0, 17-DEC-1999 (WLT) + + Added prototype for + + dafrda_c + + -CSPICE Version 11.0.0, 07-OCT-1999 (NJB) (EDW) + + Changed ekaclc_c, ekacld_c, ekacli_c prototypes to make input + pointers const-qualified where appropriate. + + Changed prompt_c prototype to accommodate memory leak bug fix. + + Changed ekpsel_c prototype to be consistent with other interfaces + having string array outputs. + + Added prototypes for + + axisar_c + brcktd_c + brckti_c + cgv2el_c + cidfrm_c + clpool_c + cmprss_c + cnmfrm_c + convrt_c + cvpool_c + dafbbs_c + dafbfs_c + dafcls_c + dafcs_c + daffna_c + daffpa_c + dafgh_c + dafgn_c + dafgs_c + dafopr_c + dafps_c + dafus_c + diags2_c + dtpool_c + dvdot_c + dvhat_c + dvpool_c + edlimb_c + ekops_c + ekopw_c + eul2xf_c + ftncls_c + furnsh_c + getelm_c + getmsg_c + gnpool_c + ident_c + illum_c + inedpl_c + kdata_c + kinfo_c + ktotal_c + lmpool_c + matchi_c + matchw_c + maxd_c + maxi_c + mequ_c + mind_c + mini_c + moved_ + npedln_c + npelpt_c + nplnpt_c + pcpool_c + pdpool_c + pipool_c + pjelpl_c + pxform_c + rav2xf_c + raxisa_c + rquad_c + saelgv_c + spk14a_c + spk14b_c + spk14e_c + spkapo_c + spkapp_c + spkcls_c + spkezp_c + spkgps_c + spkopn_c + spkpds_c + spkpos_c + spkssb_c + spksub_c + spkuds_c + spkw02_c + spkw03_c + spkw05_c + spkw08_c + spkw09_c + spkw10_c + spkw15_c + spkw17_c + stpool_c + subpt_c + subsol_c + swpool_c + szpool_c + tparse_c + trace_c + unload_c + vaddg_c + vhatg_c + vlcomg_c + vminug_c + vrel_c + vrelg_c + vsepg_c + vtmv_c + vtmvg_c + vzerog_c + xf2eul_c + xf2rav_c + xposeg_c + + -CSPICE Version 10.0.0, 09-MAR-1999 (NJB) + + Added prototypes for + + frame_c + inrypl_c + nvc2pl_c + nvp2pl_c + pl2nvc_c + pl2nvp_c + pl2psv_c + psv2pl_c + sce2c_c + vprjp_c + vprjpi_c + + Now conditionally includes SpiceEll.h and SpicePln.h. + + + -CSPICE Version 9.0.0, 25-FEB-1999 (NJB) + + Added prototypes for + + eknseg_c + eknelt_c + ekpsel_c + ekssum_c + + Now conditionally includes SpiceEK.h. + + + -CSPICE Version 8.0.0, 20-OCT-1998 (NJB) + + Added const qualifier to all input matrix and vector arguments. + + Added prototypes for + + det_c + dpmax_c + dpmax_ + dpmin_c + dpmin_ + frinfo_c + frmnam_c + getfat_c + intmax_c + intmax_ + intmin_c + intmin_ + invert_c + namfrm_c + vrotv_c + vsclg_c + + + -CSPICE Version 7.0.0, 02-APR-1998 (EDW) + + Added prototypes for + + mequg_c + unormg_c + vdistg_c + vdotg_c + vequg_c + vnormg_c + + -CSPICE Version 6.0.0, 31-MAR-1998 (NJB) + + Added prototypes for + + ekaclc_c + ekacld_c + ekacli_c + ekcls_c + ekffld_c + ekfind_c + ekgc_c + ekgd_c + ekgi_c + ekifld_c + eklef_c + ekopr_c + ekopn_c + ekuef_c + + -CSPICE Version 5.0.1, 05-MAR-1998 (EDW) + + Remove some non printing characters. + + -CSPICE Version 5.0.0, 03-MAR-1998 (NJB) + + Added prototypes for + + etcal_c + ltime_c + stelab_c + tpictr_c + twovec_c + vsubg_c + + -CSPICE Version 4.0.0, 11-FEB-1998 (EDW) + + Added prototypes for + + timdef_c + tsetyr_c + + + -CSPICE Version 3.0.0, 02-FEB-1998 (NJB) + + Added prototypes for + + pckuof_c + tipbod_c + + Type SpiceVoid was replaced with void. + + -CSPICE Version 2.0.0, 06-JAN-1998 (NJB) + + Changed all input-only character pointers to type ConstSpiceChar. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + prototypes of CSPICE functions + +*/ + + +/* +Include Files: +*/ + + +#ifndef HAVE_SPICEDEFS_H +#include "SpiceZdf.h" +#endif + +#ifndef HAVE_SPICE_CELLS_H +#include "SpiceCel.h" +#endif + +#ifndef HAVE_SPICE_DLA_H +#include "SpiceDLA.h" +#endif + +#ifndef HAVE_SPICE_DSK_H +#include "SpiceDSK.h" +#endif + +#ifndef HAVE_SPICE_EK_H +#include "SpiceEK.h" +#endif + +#ifndef HAVE_SPICE_PLANES_H +#include "SpicePln.h" +#endif + +#ifndef HAVE_SPICE_ELLIPSES_H +#include "SpiceEll.h" +#endif + +#ifndef HAVE_SPICE_OSC_H +#include "SpiceOsc.h" +#endif + +#ifndef HAVE_SPICE_SPK_H +#include "SpiceSPK.h" +#endif + +#ifndef HAVE_SPICEWRAPPERS_H +#define HAVE_SPICEWRAPPERS_H + + + + +/* + Function prototypes for CSPICE functions are listed below. + Each prototype is accompanied by a function abstract and brief I/O + description. + + See the headers of the C wrappers for detailed descriptions of the + routines' interfaces. + + The list below should be maintained in alphabetical order. +*/ + + void appndc_c ( ConstSpiceChar * item, + SpiceCell * cell ); + + + void appndd_c ( SpiceDouble item, + SpiceCell * cell ); + + + void appndi_c ( SpiceInt item, + SpiceCell * cell ); + + + void axisar_c ( ConstSpiceDouble axis [3], + SpiceDouble angle, + SpiceDouble r [3][3] ); + + + void azlcpo_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + SpiceBoolean azccw, + SpiceBoolean elplsz, + ConstSpiceDouble obspos [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble azlsta [6], + SpiceDouble * lt ); + + + void azlrec_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble rectan [3] ); + + + SpiceBoolean badkpv_c ( ConstSpiceChar *caller, + ConstSpiceChar *name, + ConstSpiceChar *comp, + SpiceInt size, + SpiceInt divby, + SpiceChar type ); + + + void bltfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void bodc2n_c ( SpiceInt code, + SpiceInt namelen, + SpiceChar * name, + SpiceBoolean * found ); + + + void bodc2s_c ( SpiceInt code, + SpiceInt lenout, + SpiceChar * name ); + + void boddef_c ( ConstSpiceChar * name, + SpiceInt code ); + + + SpiceBoolean bodfnd_c ( SpiceInt body, + ConstSpiceChar * item ); + + + void bodn2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bods2c_c ( ConstSpiceChar * name, + SpiceInt * code, + SpiceBoolean * found ); + + + void bodvar_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvcd_c ( SpiceInt body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + void bodvrd_c ( ConstSpiceChar * body, + ConstSpiceChar * item, + SpiceInt maxn, + SpiceInt * dim , + SpiceDouble * values ); + + + SpiceDouble brcktd_c ( SpiceDouble number, + SpiceDouble end1, + SpiceDouble end2 ); + + + SpiceInt brckti_c ( SpiceInt number, + SpiceInt end1, + SpiceInt end2 ); + + + SpiceInt bschoc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array, + ConstSpiceInt * order ); + + + SpiceInt bschoi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array, + ConstSpiceInt * order ); + + + SpiceInt bsrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt bsrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt bsrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceDouble b1900_c ( void ); + + + SpiceDouble b1950_c ( void ); + + + SpiceInt card_c ( SpiceCell * cell ); + + + void ccifrm_c ( SpiceInt frclss, + SpiceInt clssid, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceInt * center, + SpiceBoolean * found ); + + + void cgv2el_c ( ConstSpiceDouble center[3], + ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceEllipse * ellipse ); + + + void chbder_c ( ConstSpiceDouble * cp, + SpiceInt degp, + SpiceDouble x2s[2], + SpiceDouble x, + SpiceInt nderiv, + SpiceDouble * partdp, + SpiceDouble * dpdxs ); + + + void chbigr_c ( SpiceInt degp, + ConstSpiceDouble cp [], + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * itgrlp ); + + + void chbint_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dpdx ); + + + void chbval_c ( ConstSpiceDouble cp [], + SpiceInt degp, + ConstSpiceDouble x2s [2], + SpiceDouble x, + SpiceDouble * p ); + + + void chkin_c ( ConstSpiceChar * module ); + + + void chkout_c ( ConstSpiceChar * module ); + + + void cidfrm_c ( SpiceInt cent, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void ckfrot_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble rotate [3][3], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckfxfm_c ( SpiceInt inst, + SpiceDouble et, + SpiceDouble xform [6][6], + SpiceInt * ref, + SpiceBoolean * found ); + + + void ckgr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckcls_c ( SpiceInt handle ); + + + void ckcov_c ( ConstSpiceChar * ck, + SpiceInt idcode, + SpiceBoolean needav, + ConstSpiceChar * level, + SpiceDouble tol, + ConstSpiceChar * timsys, + SpiceCell * cover ); + + + void ckgr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt recno, + SpiceDouble record [] ); + + + void ckobj_c ( ConstSpiceChar * ck, + SpiceCell * ids ); + + + void ckgp_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckgpav_c ( SpiceInt inst, + SpiceDouble sclkdp, + SpiceDouble tol, + ConstSpiceChar * ref, + SpiceDouble cmat[3][3], + SpiceDouble av[3], + SpiceDouble * clkout, + SpiceBoolean * found ); + + + void ckmeta_c ( SpiceInt ckid, + ConstSpiceChar * meta, + SpiceInt * idcode ); + + + void cknr02_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void cknr03_c ( SpiceInt handle, + ConstSpiceDouble descr [], + SpiceInt * nrec ); + + + void clearc_c ( SpiceInt ndim, + SpiceInt arrlen, + void * array ); + + + void cklpf_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ckupf_c ( SpiceInt handle ); + + + void ckw01_c ( SpiceInt handle, + SpiceDouble begtime, + SpiceDouble endtime, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3] ); + + + void ckw02_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble start [], + ConstSpiceDouble stop [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + ConstSpiceDouble rates [] ); + + + void ckw03_c ( SpiceInt handle, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt nrec, + ConstSpiceDouble sclkdp [], + ConstSpiceDouble quats [][4], + ConstSpiceDouble avvs [][3], + SpiceInt nints, + ConstSpiceDouble starts [] ); + + + void ckw05_c ( SpiceInt handle, + SpiceCK05Subtype subtyp, + SpiceInt degree, + SpiceDouble begtim, + SpiceDouble endtim, + SpiceInt inst, + ConstSpiceChar * ref, + SpiceBoolean avflag, + ConstSpiceChar * segid, + SpiceInt n, + ConstSpiceDouble sclkdp[], + const void * packets, + SpiceDouble rate, + SpiceInt nints, + ConstSpiceDouble starts[] ); + + + void cleard_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void cleari_c ( SpiceInt ndim, + SpiceInt array [] ); + + + SpiceDouble clight_c ( void ); + + + void clpool_c ( void ); + + + void cmprss_c ( SpiceChar delim, + SpiceInt n, + ConstSpiceChar * input, + SpiceInt lenout, + SpiceChar * output ); + + + void cnmfrm_c ( ConstSpiceChar * cname, + SpiceInt lenout, + SpiceInt * frcode, + SpiceChar * frname, + SpiceBoolean * found ); + + + void conics_c ( ConstSpiceDouble elts[8], + SpiceDouble et, + SpiceDouble state[6] ); + + + void convrt_c ( SpiceDouble x, + ConstSpiceChar * in, + ConstSpiceChar * out, + SpiceDouble * y ); + + + void copy_c ( SpiceCell * a, + SpiceCell * b ); + + + SpiceInt cpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt cposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void cvpool_c ( ConstSpiceChar * agent, + SpiceBoolean * update ); + + + void cyllat_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void cylrec_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble rectan[3] ); + + + void cylsph_c ( SpiceDouble r, + SpiceDouble lonc, + SpiceDouble z, + SpiceDouble * radius, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void dafac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt lenvals, + const void * buffer ); + + + void dafbbs_c ( SpiceInt handle ); + + + void dafbfs_c ( SpiceInt handle ); + + + void dafcls_c ( SpiceInt handle ); + + + void dafcs_c ( SpiceInt handle ); + + + void dafdc_c ( SpiceInt handle ); + + + void dafec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt lenout, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void daffna_c ( SpiceBoolean * found ); + + + void daffpa_c ( SpiceBoolean * found ); + + + void dafgda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + void dafgh_c ( SpiceInt * handle ); + + + void dafgn_c ( SpiceInt lenout, + SpiceChar * name ); + + + void dafgs_c ( SpiceDouble sum[] ); + + + void dafgsr_c ( SpiceInt handle, + SpiceInt recno, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data, + SpiceBoolean * found ); + + + void dafhsf_c ( SpiceInt handle, + SpiceInt * nd, + SpiceInt * ni ); + + + void dafopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dafps_c ( SpiceInt nd, + SpiceInt ni, + ConstSpiceDouble dc [], + ConstSpiceInt ic [], + SpiceDouble sum [] ); + + + void dafrda_c ( SpiceInt handle, + SpiceInt begin, + SpiceInt end, + SpiceDouble * data ); + + + + void dafrfr_c ( SpiceInt handle, + SpiceInt lenout, + SpiceInt * nd, + SpiceInt * ni, + SpiceChar * ifname, + SpiceInt * fward, + SpiceInt * bward, + SpiceInt * free ); + + + void dasadc_c ( SpiceInt handle, + SpiceInt n, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasadd_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceDouble data [] ); + + + void dasadi_c ( SpiceInt handle, + SpiceInt n, + ConstSpiceInt data [] ); + + + + void dafrs_c ( ConstSpiceDouble * sum ); + + + void dafus_c ( ConstSpiceDouble sum [], + SpiceInt nd, + SpiceInt ni, + SpiceDouble dc [], + SpiceInt ic [] ); + + + void dasac_c ( SpiceInt handle, + SpiceInt n, + SpiceInt buflen, + const void * buffer ); + + + void dascls_c ( SpiceInt handle ); + + + void dasdc_c ( SpiceInt handle ); + + + void dasec_c ( SpiceInt handle, + SpiceInt bufsiz, + SpiceInt buflen, + SpiceInt * n, + void * buffer, + SpiceBoolean * done ); + + + void dashfn_c ( SpiceInt handle, + SpiceInt namlen, + SpiceChar * fname ); + + + void dashfs_c ( SpiceInt handle, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc, + SpiceInt * free, + SpiceInt lastla [3], + SpiceInt lastrc [3], + SpiceInt lastwd [3] ); + + + void daslla_c ( SpiceInt handle, + SpiceInt * lastc, + SpiceInt * lastd, + SpiceInt * lasti ); + + + void dasllc_c ( SpiceInt handle ); + + + void dasonw_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomr, + SpiceInt * handle ); + + + void dasopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasops_c ( SpiceInt * handle ); + + + void dasopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void dasrdc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + void * data ); + + + void dasrdd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceDouble data [] ); + + + void dasrdi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt data [] ); + + + + void dasrfr_c ( SpiceInt handle, + SpiceInt idwlen, + SpiceInt ifnlen, + SpiceChar * idword, + SpiceChar * ifname, + SpiceInt * nresvr, + SpiceInt * nresvc, + SpiceInt * ncomr, + SpiceInt * ncomc ); + + + void dasudc_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + SpiceInt bpos, + SpiceInt epos, + SpiceInt datlen, + const void * data ); + + + void dasudd_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceDouble data [] ); + + + void dasudi_c ( SpiceInt handle, + SpiceInt first, + SpiceInt last, + ConstSpiceInt data [] ); + + + void daswbr_c ( SpiceInt handle ); + + + void dazldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + void dcyldr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void deltet_c ( SpiceDouble epoch, + ConstSpiceChar * eptype, + SpiceDouble * delta ); + + + SpiceDouble det_c ( ConstSpiceDouble m1[3][3] ); + + + void diags2_c ( ConstSpiceDouble symmat [2][2], + SpiceDouble diag [2][2], + SpiceDouble rotate [2][2] ); + + + void diff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void dgeodr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void dlabbs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabfs_c ( SpiceInt handle, + SpiceDLADescr * descr, + SpiceBoolean * found ); + + + void dlabns_c ( SpiceInt handle ); + + + void dlaens_c ( SpiceInt handle ); + + + void dlafns_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * nxtdsc, + SpiceBoolean * found ); + + + void dlafps_c ( SpiceInt handle, + ConstSpiceDLADescr * descr, + SpiceDLADescr * prvdsc, + SpiceBoolean * found ); + + + void dlaopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ftype, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dlatdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dnearp_c ( ConstSpiceDouble state [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble dnear [6], + SpiceDouble dalt [2], + SpiceBoolean * found ); + + + void dp2hx_c ( SpiceDouble number, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * length ); + + + void dpgrdr_c ( ConstSpiceChar * body, + SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdazl_c ( SpiceDouble range, + SpiceDouble az, + SpiceDouble el, + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble jacobi [3][3] ); + + + SpiceDouble dpmax_c ( void ); + + + SpiceDouble dpmax_ ( void ); + + + SpiceDouble dpmin_c ( void ); + + + SpiceDouble dpmin_ ( void ); + + + SpiceDouble dpr_c ( void ); + + + void drdcyl_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void drdgeo_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdlat_c ( SpiceDouble r, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble jacobi[3][3] ); + + + void drdpgr_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble jacobi[3][3] ); + + + void drdsph_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble jacobi[3][3] ); + + + void dskb02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np, + SpiceInt * nvxtot, + SpiceDouble vtxbds [3][2], + SpiceDouble * voxsiz, + SpiceDouble voxori [3], + SpiceInt vgrext [3], + SpiceInt * cgscal, + SpiceInt * vtxnpl, + SpiceInt * voxnpt, + SpiceInt * voxnpl ); + + + void dskcls_c ( SpiceInt handle, + SpiceBoolean optmiz ); + + + void dskd02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values ); + + + void dskgd_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc ); + + + void dskgtl_c ( SpiceInt keywrd, + SpiceDouble * dpval ); + + + void dski02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt item, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * values ); + + void dskobj_c ( ConstSpiceChar * dsk, + SpiceCell * bodids ); + + void dskopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void dskn02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt plid, + SpiceDouble normal[3] ); + + + void dskmi2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceDouble finscl, + SpiceInt corscl, + SpiceInt worksz, + SpiceInt voxpsz, + SpiceInt voxlsz, + SpiceBoolean makvtl, + SpiceInt spxisz, + SpiceInt work [][2], + SpiceDouble spaixd [], + SpiceInt spaixi [] ); + + + void dskp02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt plates[][3] ); + + + void dskrb2_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble * mncor3, + SpiceDouble * mxcor3 ); + + + void dsksrf_c ( ConstSpiceChar * dsk, + SpiceInt bodyid, + SpiceCell * srfids ); + + + void dskstl_c ( SpiceInt keywrd, + SpiceDouble dpval ); + + + void dskv02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble vrtces[][3] ); + + + void dskw02_c ( SpiceInt handle, + SpiceInt center, + SpiceInt surfce, + SpiceInt dclass, + ConstSpiceChar * frame, + SpiceInt corsys, + ConstSpiceDouble corpar[], + SpiceDouble mncor1, + SpiceDouble mxcor1, + SpiceDouble mncor2, + SpiceDouble mxcor2, + SpiceDouble mncor3, + SpiceDouble mxcor3, + SpiceDouble first, + SpiceDouble last, + SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3], + ConstSpiceDouble spaixd[], + ConstSpiceInt spaixi[] ); + + + void dskx02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt * plid, + SpiceDouble xpt [3], + SpiceBoolean * found ); + + + void dskxsi_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst [], + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceDouble vertex [3], + ConstSpiceDouble raydir [3], + SpiceInt maxd, + SpiceInt maxi, + SpiceDouble xpt [3], + SpiceInt * handle, + SpiceDLADescr * dladsc, + SpiceDSKDescr * dskdsc, + SpiceDouble dc [], + SpiceInt ic [], + SpiceBoolean * found ); + + + void dskxv_c ( SpiceBoolean pri, + ConstSpiceChar * target, + SpiceInt nsurf, + ConstSpiceInt srflst[], + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt nrays, + ConstSpiceDouble vtxarr[][3], + ConstSpiceDouble dirarr[][3], + SpiceDouble xptarr[][3], + SpiceBoolean fndarr[] ); + + + void dskz02_c ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt * nv, + SpiceInt * np ); + + + void dsphdr_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble jacobi[3][3] ); + + + void dtpool_c ( ConstSpiceChar * name, + SpiceBoolean * found, + SpiceInt * n, + SpiceChar type [1] ); + + + void ducrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + void dvcrss_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6], + SpiceDouble sout[6] ); + + + SpiceDouble dvdot_c ( ConstSpiceDouble s1 [6], + ConstSpiceDouble s2 [6] ); + + + void dvhat_c ( ConstSpiceDouble s1 [6], + SpiceDouble sout[6] ); + + SpiceDouble dvnorm_c ( ConstSpiceDouble state[6] ); + + void dvpool_c ( ConstSpiceChar * name ); + + + SpiceDouble dvsep_c ( ConstSpiceDouble * s1, + ConstSpiceDouble * s2 ); + + + void edlimb_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble viewpt[3], + SpiceEllipse * limb ); + + + void ednmpt_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble normal [3], + SpiceDouble point [3] ); + + + void edpnt_c ( ConstSpiceDouble p [3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble ep [3] ); + + + void edterm_c ( ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixfrm, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npts, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble termpts [ ][3] ); + + + void ekacec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekaced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekacei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekaclc_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + SpiceInt vallen, + const void * cvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacld_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceDouble * dvals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekacli_c ( SpiceInt handle, + SpiceInt segno, + ConstSpiceChar * column, + ConstSpiceInt * ivals, + ConstSpiceInt * entszs, + ConstSpiceBoolean * nlflgs, + ConstSpiceInt * rcptrs, + SpiceInt * wkindx ); + + + void ekappr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * recno ); + + + void ekbseg_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno ); + + + void ekccnt_c ( ConstSpiceChar * table, + SpiceInt * ccount ); + + + void ekcii_c ( ConstSpiceChar * table, + SpiceInt cindex, + SpiceInt lenout, + SpiceChar * column, + SpiceEKAttDsc * attdsc ); + + + void ekcls_c ( SpiceInt handle ); + + + void ekdelr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void ekffld_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt * rcptrs ); + + + void ekfind_c ( ConstSpiceChar * query, + SpiceInt lenout, + SpiceInt * nmrows, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekgc_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt lenout, + SpiceChar * cdata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgd_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceDouble * ddata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekgi_c ( SpiceInt selidx, + SpiceInt row, + SpiceInt elment, + SpiceInt * idata, + SpiceBoolean * null, + SpiceBoolean * found ); + + + void ekifld_c ( SpiceInt handle, + ConstSpiceChar * tabnam, + SpiceInt ncols, + SpiceInt nrows, + SpiceInt cnmlen, + const void * cnames, + SpiceInt declen, + const void * decls, + SpiceInt * segno, + SpiceInt * rcptrs ); + + + void ekinsr_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno ); + + + void eklef_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + SpiceInt eknelt_c ( SpiceInt selidx, + SpiceInt row ); + + + SpiceInt eknseg_c ( SpiceInt handle ); + + + void ekntab_c ( SpiceInt * n ); + + + void ekopn_c ( ConstSpiceChar * fname, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void ekopr_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekops_c ( SpiceInt * handle ); + + + void ekopw_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void ekpsel_c ( ConstSpiceChar * query, + SpiceInt msglen, + SpiceInt tablen, + SpiceInt collen, + SpiceInt * n, + SpiceInt * xbegs, + SpiceInt * xends, + SpiceEKDataType * xtypes, + SpiceEKExprClass * xclass, + void * tabs, + void * cols, + SpiceBoolean * error, + SpiceChar * errmsg ); + + + void ekrcec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt lenout, + SpiceInt * nvals, + void * cvals, + SpiceBoolean * isnull ); + + + void ekrced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceDouble * dvals, + SpiceBoolean * isnull ); + + + void ekrcei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt * nvals, + SpiceInt * ivals, + SpiceBoolean * isnull ); + + + void ekssum_c ( SpiceInt handle, + SpiceInt segno, + SpiceEKSegSum * segsum ); + + + void ektnam_c ( SpiceInt n, + SpiceInt lenout, + SpiceChar * table ); + + + void ekucec_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + SpiceInt vallen, + const void * cvals, + SpiceBoolean isnull ); + + + void ekuced_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceDouble * dvals, + SpiceBoolean isnull ); + + + void ekucei_c ( SpiceInt handle, + SpiceInt segno, + SpiceInt recno, + ConstSpiceChar * column, + SpiceInt nvals, + ConstSpiceInt * ivals, + SpiceBoolean isnull ); + + + void ekuef_c ( SpiceInt handle ); + + + SpiceBoolean elemc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceBoolean elemd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceBoolean elemi_c ( SpiceInt item, + SpiceCell * set ); + + + void eqncpv_c ( SpiceDouble et, + SpiceDouble epoch, + ConstSpiceDouble eqel[9], + SpiceDouble rapol, + SpiceDouble decpol, + SpiceDouble state[6] ); + + + SpiceBoolean eqstr_c ( ConstSpiceChar * a, + ConstSpiceChar * b ); + + + void el2cgv_c ( ConstSpiceEllipse * ellipse, + SpiceDouble center[3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void erract_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * action ); + + + void errch_c ( ConstSpiceChar * marker, + ConstSpiceChar * string ); + + + void errdev_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * device ); + + + void errdp_c ( ConstSpiceChar * marker, + SpiceDouble number ); + + + void errint_c ( ConstSpiceChar * marker, + SpiceInt number ); + + + void errprt_c ( ConstSpiceChar * operation, + SpiceInt lenout, + SpiceChar * list ); + + + SpiceInt esrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + void etcal_c ( SpiceDouble et, + SpiceInt lenout, + SpiceChar * string ); + + + void et2lst_c ( SpiceDouble et, + SpiceInt body, + SpiceDouble lon, + ConstSpiceChar * type, + SpiceInt timlen, + SpiceInt ampmlen, + SpiceInt * hr, + SpiceInt * mn, + SpiceInt * sc, + SpiceChar * time, + SpiceChar * ampm ); + + + void et2utc_c ( SpiceDouble et , + ConstSpiceChar * format, + SpiceInt prec, + SpiceInt lenout, + SpiceChar * utcstr ); + + + void eul2m_c ( SpiceDouble angle3, + SpiceDouble angle2, + SpiceDouble angle1, + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble r [3][3] ); + + + void eul2xf_c ( ConstSpiceDouble eulang[6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble xform [6][6] ); + + + void evsgp4_c ( SpiceDouble et, + ConstSpiceDouble geophs [8], + ConstSpiceDouble elems [10], + SpiceDouble state [6] ); + + + SpiceBoolean exists_c ( ConstSpiceChar * name ); + + + void expool_c ( ConstSpiceChar * name, + SpiceBoolean * found ); + + + SpiceBoolean failed_c ( void ); + + void fovray_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + void fovtrg_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble * et, + SpiceBoolean * visible ); + + + void filli_c ( SpiceInt value, + SpiceInt ndim, + SpiceInt array [] ); + + + void filld_c ( SpiceDouble value, + SpiceInt ndim, + SpiceDouble array [] ); + + + void frame_c ( SpiceDouble x[3], + SpiceDouble y[3], + SpiceDouble z[3] ); + + + void frinfo_c ( SpiceInt frcode, + SpiceInt * cent, + SpiceInt * clss, + SpiceInt * clssid, + SpiceBoolean * found ); + + + void frmnam_c ( SpiceInt frcode, + SpiceInt lenout, + SpiceChar * frname ); + + + void ftncls_c ( SpiceInt unit ); + + + void furnsh_c ( ConstSpiceChar * file ); + + + void gcpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * cvals, + SpiceBoolean * found ); + + + void gdpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceDouble * values, + SpiceBoolean * found ); + + + void georec_c ( SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + void getcml_c ( SpiceInt * argc, + SpiceChar *** argv ); + + + void getelm_c ( SpiceInt frstyr, + SpiceInt lineln, + const void * lines, + SpiceDouble * epoch, + SpiceDouble * elems ); + + + void getfat_c ( ConstSpiceChar * file, + SpiceInt arclen, + SpiceInt typlen, + SpiceChar * arch, + SpiceChar * type ); + + + void getfov_c ( SpiceInt instid, + SpiceInt room, + SpiceInt shapelen, + SpiceInt framelen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getfvn_c ( ConstSpiceChar * inst, + SpiceInt room, + SpiceInt shalen, + SpiceInt fralen, + SpiceChar * shape, + SpiceChar * frame, + SpiceDouble bsight [3], + SpiceInt * n, + SpiceDouble bounds [][3] ); + + + void getmsg_c ( ConstSpiceChar * option, + SpiceInt lenout, + SpiceChar * msg ); + + + SpiceBoolean gfbail_c ( void ); + + + void gfclrh_c ( void ); + + + void gfdist_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfevnt_c ( void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + ConstSpiceChar * gquant, + SpiceInt qnpars, + SpiceInt lenvals, + const void * qpnams, + const void * qcpars, + ConstSpiceDouble * qdpars, + ConstSpiceInt * qipars, + ConstSpiceBoolean * qlpars, + ConstSpiceChar * op, + SpiceDouble refval, + SpiceDouble tol, + SpiceDouble adjust, + SpiceBoolean rpt, + + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + + void ( * udrepf ) ( void ), + SpiceInt nintvls, + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gffove_c ( ConstSpiceChar * inst, + ConstSpiceChar * tshape, + ConstSpiceDouble raydir [3], + ConstSpiceChar * target, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfilum_c ( ConstSpiceChar * method, + ConstSpiceChar * angtyp, + ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfinth_c ( int sigcode ); + + + void gfocce_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr, + SpiceDouble tol, + void ( * udstep ) ( SpiceDouble et, + SpiceDouble * step ), + void ( * udrefn ) ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ), + SpiceBoolean rpt, + void ( * udrepi ) ( SpiceCell * cnfine, + ConstSpiceChar * srcpre, + ConstSpiceChar * srcsuf ), + void ( * udrepu ) ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble et ), + void ( * udrepf ) ( void ), + SpiceBoolean bail, + SpiceBoolean ( * udbail ) ( void ), + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfoclt_c ( ConstSpiceChar * occtyp, + ConstSpiceChar * front, + ConstSpiceChar * fshape, + ConstSpiceChar * fframe, + ConstSpiceChar * back, + ConstSpiceChar * bshape, + ConstSpiceChar * bframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfpa_c ( ConstSpiceChar * target, + ConstSpiceChar * illum, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfposc_c ( ConstSpiceChar * target, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrefn_c ( SpiceDouble t1, + SpiceDouble t2, + SpiceBoolean s1, + SpiceBoolean s2, + SpiceDouble * t ); + + + void gfrepf_c ( void ); + + + void gfrepi_c ( SpiceCell * window, + ConstSpiceChar * begmss, + ConstSpiceChar * endmss ); + + + void gfrepu_c ( SpiceDouble ivbeg, + SpiceDouble ivend, + SpiceDouble time ); + + + void gfrfov_c ( ConstSpiceChar * inst, + ConstSpiceDouble raydir [3], + ConstSpiceChar * rframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfrr_c ( ConstSpiceChar * target, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsep_c ( ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsntc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfsstp_c ( SpiceDouble step ); + + + void gfstep_c ( SpiceDouble time, + SpiceDouble * step ); + + + void gfstol_c ( SpiceDouble value ); + + + void gfsubc_c ( ConstSpiceChar * target, + ConstSpiceChar * fixref, + ConstSpiceChar * method, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * crdsys, + ConstSpiceChar * coord, + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gftfov_c ( ConstSpiceChar * inst, + ConstSpiceChar * target, + ConstSpiceChar * tshape, + ConstSpiceChar * tframe, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + + void gfudb_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble et, + SpiceBoolean * xbool ), + + SpiceDouble step, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gfuds_c ( void ( * udfuns ) ( SpiceDouble et, + SpiceDouble * value ), + + void ( * udfunb ) ( void ( * udfuns ) + ( SpiceDouble et, + SpiceDouble * value ), + + SpiceDouble x, + SpiceBoolean * xbool ), + + ConstSpiceChar * relate, + SpiceDouble refval, + SpiceDouble adjust, + SpiceDouble step, + SpiceInt nintvls, + SpiceCell * cnfine, + SpiceCell * result ); + + + void gipool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt * n, + SpiceInt * ivals, + SpiceBoolean * found ); + + + void gnpool_c ( ConstSpiceChar * name, + SpiceInt start, + SpiceInt room, + SpiceInt lenout, + SpiceInt * n, + void * kvars, + SpiceBoolean * found ); + + + void hrmesp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x, + SpiceDouble * f, + SpiceDouble * df ); + + + void hrmint_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble x, + SpiceDouble * work, + SpiceDouble * f, + SpiceDouble * df ); + + + SpiceDouble halfpi_c ( void ); + + + void hx2dp_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * number, + SpiceBoolean * error, + SpiceChar * errmsg + ); + + + void ident_c ( SpiceDouble matrix[3][3] ); + + + void ilumin_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void illum_plid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceInt plid, + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn, + SpiceBoolean * visible, + SpiceBoolean * lit ); + + + void illumf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * ilusrc, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * incdnc, + SpiceDouble * emissn, + SpiceBoolean * visibl, + SpiceBoolean * lit ); + + + void illumg_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + ConstSpiceChar * illum, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceDouble * phase, + SpiceDouble * solar, + SpiceDouble * emissn ); + + + void inedpl_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpicePlane * plane, + SpiceEllipse * ellipse, + SpiceBoolean * found ); + + + void inelpl_c ( ConstSpiceEllipse * ellips, + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt1[3], + SpiceDouble xpt2[3] ); + + + void insrtc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void insrtd_c ( SpiceDouble item, + SpiceCell * set ); + + + void insrti_c ( SpiceInt item, + SpiceCell * set ); + + + void inter_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void inrypl_c ( ConstSpiceDouble vertex [3], + ConstSpiceDouble dir [3], + ConstSpicePlane * plane, + SpiceInt * nxpts, + SpiceDouble xpt [3] ); + + + SpiceInt intmax_c ( void ); + + + SpiceInt intmax_ ( void ); + + + SpiceInt intmin_c ( void ); + + + SpiceInt intmin_ ( void ); + + + void invert_c ( ConstSpiceDouble m1[3][3], + SpiceDouble m2[3][3] ); + + + void invort_c ( ConstSpiceDouble m [3][3], + SpiceDouble mit[3][3] ); + + + void invstm_c ( ConstSpiceDouble mat [6][6], + SpiceDouble invmat [6][6] ); + + + SpiceBoolean isordv_c ( ConstSpiceInt * array, + SpiceInt n ); + + + SpiceBoolean isrot_c ( ConstSpiceDouble m [3][3], + SpiceDouble ntol, + SpiceDouble dtol ); + + + + SpiceInt isrchc_c ( ConstSpiceChar * value, + SpiceInt ndim, + SpiceInt lenvals, + const void * array ); + + + SpiceInt isrchd_c ( SpiceDouble value, + SpiceInt ndim, + ConstSpiceDouble * array ); + + + SpiceInt isrchi_c ( SpiceInt value, + SpiceInt ndim, + ConstSpiceInt * array ); + + + SpiceBoolean iswhsp_c ( ConstSpiceChar * string ); + + + SpiceDouble j1900_c ( void ); + + + SpiceDouble j1950_c ( void ); + + + SpiceDouble j2000_c ( void ); + + + SpiceDouble j2100_c ( void ); + + + SpiceDouble jyear_c ( void ); + + + void kclear_c ( void ); + + + void kdata_c ( SpiceInt which, + ConstSpiceChar * kind, + SpiceInt fillen, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * file, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kinfo_c ( ConstSpiceChar * file, + SpiceInt typlen, + SpiceInt srclen, + SpiceChar * filtyp, + SpiceChar * source, + SpiceInt * handle, + SpiceBoolean * found ); + + + void kplfrm_c ( SpiceInt frmcls, + SpiceCell * idset ); + + + void ktotal_c ( ConstSpiceChar * kind, + SpiceInt * count ); + + + void kxtrct_c ( ConstSpiceChar * keywd, + SpiceInt termlen, + const void * terms, + SpiceInt nterms, + SpiceInt stringlen, + SpiceInt substrlen, + SpiceChar * string, + SpiceBoolean * found, + SpiceChar * substr ); + + + SpiceInt lastnb_c ( ConstSpiceChar * string ); + + + void latcyl_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * r, + SpiceDouble * lonc, + SpiceDouble * z ); + + + void latrec_c ( SpiceDouble radius, + SpiceDouble longitude, + SpiceDouble latitude, + SpiceDouble rectan [3] ); + + + void latsph_c ( SpiceDouble radius, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble * rho, + SpiceDouble * colat, + SpiceDouble * lons ); + + + void latsrf_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble lonlat[][2], + SpiceDouble srfpts[][3] ); + + + void lcase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ldpool_c ( ConstSpiceChar * filename ); + + + SpiceDouble lgresp_c ( SpiceInt n, + SpiceDouble first, + SpiceDouble step, + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void lgrind_c ( SpiceInt n, + ConstSpiceDouble * xvals, + ConstSpiceDouble * yvals, + SpiceDouble * work, + SpiceDouble x, + SpiceDouble * p, + SpiceDouble * dp ); + + + SpiceDouble lgrint_c ( SpiceInt n, + ConstSpiceDouble xvals [], + ConstSpiceDouble yvals [], + SpiceDouble x ); + + + void limb_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble limbpts [][3], + SpiceInt plateIDs [] ); + + + void limbpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void llgrid_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + SpiceInt npoints, + ConstSpiceDouble grid [][2], + SpiceDouble spoints [][3], + SpiceInt plateIDs [] ); + + + void lmpool_c ( const void * cvals, + SpiceInt lenvals, + SpiceInt n ); + + + void lparse_c ( ConstSpiceChar * list, + ConstSpiceChar * delim, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparsm_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceInt nmax, + SpiceInt lenout, + SpiceInt * n, + void * items ); + + + void lparss_c ( ConstSpiceChar * list, + ConstSpiceChar * delims, + SpiceCell * set ); + + + SpiceDouble lspcn_c ( ConstSpiceChar * body, + SpiceDouble et, + ConstSpiceChar * abcorr ); + + + SpiceInt lstlec_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstled_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlei_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + SpiceInt lstltc_c ( ConstSpiceChar * string, + SpiceInt n, + SpiceInt lenvals, + const void * array ); + + + SpiceInt lstltd_c ( SpiceDouble x, + SpiceInt n, + ConstSpiceDouble * array ); + + + SpiceInt lstlti_c ( SpiceInt x, + SpiceInt n, + ConstSpiceInt * array ); + + + void ltime_c ( SpiceDouble etobs, + SpiceInt obs, + ConstSpiceChar * dir, + SpiceInt targ, + SpiceDouble * ettarg, + SpiceDouble * elapsd ); + + + void lx4dec_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4num_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4sgn_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lx4uns_c ( ConstSpiceChar * string, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void lxqstr_c ( ConstSpiceChar * string, + SpiceChar qchar, + SpiceInt first, + SpiceInt * last, + SpiceInt * nchar ); + + + void m2eul_c ( ConstSpiceDouble r[3][3], + SpiceInt axis3, + SpiceInt axis2, + SpiceInt axis1, + SpiceDouble * angle3, + SpiceDouble * angle2, + SpiceDouble * angle1 ); + + + void m2q_c ( ConstSpiceDouble r[3][3], + SpiceDouble q[4] ); + + + + SpiceBoolean matchi_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceBoolean matchw_c ( ConstSpiceChar * string, + ConstSpiceChar * templ, + SpiceChar wstr, + SpiceChar wchr ); + + + SpiceDouble maxd_c ( SpiceInt n, + ... ); + + + SpiceInt maxi_c ( SpiceInt n, + ... ); + + + void mequ_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void mequg_c ( const void * m1, + SpiceInt nr, + SpiceInt nc, + void * mout ); + + + SpiceDouble mind_c ( SpiceInt n, + ... ); + + + SpiceInt mini_c ( SpiceInt n, + ... ); + + + int moved_ ( SpiceDouble * arrfrm, + SpiceInt * ndim, + SpiceDouble * arrto ); + + + void moved_c ( ConstSpiceDouble arrfrm [], + SpiceInt ndim, + SpiceDouble arrto [] ); + + + void mtxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mtxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mtxv_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble vin [3], + SpiceDouble vout[3] ); + + + void mtxvg_c ( const void * m1, + const void * v2, + SpiceInt ncol1, + SpiceInt nr1r2, + void * vout ); + + + void mxm_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmg_c ( const void * m1, + const void * m2, + SpiceInt row1, + SpiceInt col1, + SpiceInt col2, + void * mout ); + + + void mxmt_c ( ConstSpiceDouble m1 [3][3], + ConstSpiceDouble m2 [3][3], + SpiceDouble mout[3][3] ); + + + void mxmtg_c ( const void * m1, + const void * m2, + SpiceInt nrow1, + SpiceInt nc1c2, + SpiceInt nrow2, + void * mout ); + + + void mxv_c ( ConstSpiceDouble m1[3][3], + ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void mxvg_c ( const void * m1, + const void * v2, + SpiceInt nrow1, + SpiceInt nc1r2, + void * vout ); + + + void namfrm_c ( ConstSpiceChar * frname, + SpiceInt * frcode ); + + + SpiceInt ncpos_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + SpiceInt ncposr_c ( ConstSpiceChar * str, + ConstSpiceChar * chars, + SpiceInt start ); + + + void nearpt_c ( ConstSpiceDouble positn[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble npoint[3], + SpiceDouble * alt ); + + + void nextwd_c ( ConstSpiceChar * string, + SpiceInt nexlen, + SpiceInt reslen, + SpiceChar * next, + SpiceChar * rest ); + + + void npedln_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble linept[3], + ConstSpiceDouble linedr[3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void npelpt_c ( ConstSpiceDouble point[3], + ConstSpiceEllipse * ellips, + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void nplnpt_c ( ConstSpiceDouble linpt [3], + ConstSpiceDouble lindir [3], + ConstSpiceDouble point [3], + SpiceDouble pnear [3], + SpiceDouble * dist ); + + + void nthwd_c ( ConstSpiceChar * string, + SpiceInt nth, + SpiceInt worlen, + SpiceChar * word, + SpiceInt * loc ); + + + void nvc2pl_c ( ConstSpiceDouble normal[3], + SpiceDouble constant, + SpicePlane * plane ); + + + void nvp2pl_c ( ConstSpiceDouble normal[3], + ConstSpiceDouble point[3], + SpicePlane * plane ); + + void occult_c ( ConstSpiceChar * target1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * target2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble time, + SpiceInt * occult_code ); + + SpiceInt ordc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + SpiceInt ordd_c ( SpiceDouble item, + SpiceCell * set ); + + + SpiceInt ordi_c ( SpiceInt item, + SpiceCell * set ); + + + void orderc_c ( SpiceInt lenvals, + const void * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderd_c ( ConstSpiceDouble * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void orderi_c ( ConstSpiceInt * array, + SpiceInt ndim, + SpiceInt * iorder ); + + + void oscelt_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[8] ); + + + void oscltx_c ( ConstSpiceDouble state[6], + SpiceDouble et , + SpiceDouble mu , + SpiceDouble elts[SPICE_OSCLTX_NELTS] ); + + + void pckcls_c ( SpiceInt handle ); + + + void pckcov_c ( ConstSpiceChar * pck, + SpiceInt idcode, + SpiceCell * cover ); + + + void pckfrm_c ( ConstSpiceChar * pck, + SpiceCell * ids ); + + + void pcklof_c ( ConstSpiceChar * fname, + SpiceInt * handle ); + + + void pckopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void pckuof_c ( SpiceInt handle ); + + + void pckw02_c ( SpiceInt handle, + SpiceInt clssid, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + SpiceDouble cdata [], + SpiceDouble btime ); + + + void pcpool_c ( ConstSpiceChar * name, + SpiceInt n, + SpiceInt lenvals, + const void * cvals ); + + + void pdpool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceDouble * dvals ); + + + void pgrrec_c ( ConstSpiceChar * body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble alt, + SpiceDouble re, + SpiceDouble f, + SpiceDouble rectan[3] ); + + + SpiceDouble phaseq_c ( SpiceDouble et, + ConstSpiceChar * target, + ConstSpiceChar * illumn, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + SpiceDouble pi_c ( void ); + + + void pipool_c ( ConstSpiceChar * name, + SpiceInt n, + ConstSpiceInt * ivals ); + + + void pjelpl_c ( ConstSpiceEllipse * elin, + ConstSpicePlane * plane, + SpiceEllipse * elout ); + + + void pl2nvc_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble * constant ); + + + void pl2nvp_c ( ConstSpicePlane * plane, + SpiceDouble normal[3], + SpiceDouble point[3] ); + + + void pl2psv_c ( ConstSpicePlane * plane, + SpiceDouble point[3], + SpiceDouble span1[3], + SpiceDouble span2[3] ); + + + SpiceDouble pltar_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void pltexp_c ( ConstSpiceDouble iverts[3][3], + SpiceDouble delta, + SpiceDouble overts[3][3] ); + + + void pltnp_c ( ConstSpiceDouble point[3], + ConstSpiceDouble v1 [3], + ConstSpiceDouble v2 [3], + ConstSpiceDouble v3 [3], + SpiceDouble pnear[3], + SpiceDouble * dist ); + + + void pltnrm_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + ConstSpiceDouble v3[3], + SpiceDouble normal[3] ); + + + SpiceDouble pltvol_c ( SpiceInt nv, + ConstSpiceDouble vrtces[][3], + SpiceInt np, + ConstSpiceInt plates[][3] ); + + + void polyds_c ( ConstSpiceDouble * coeffs, + SpiceInt deg, + SpiceInt nderiv, + SpiceDouble t, + SpiceDouble * p ); + + + SpiceInt pos_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + SpiceInt posr_c ( ConstSpiceChar * str, + ConstSpiceChar * substr, + SpiceInt start ); + + + void prefix_c ( ConstSpiceChar * pref, + SpiceInt spaces, + SpiceInt lenout, + SpiceChar * string ); + + + SpiceChar * prompt_c ( ConstSpiceChar * prmptStr, + SpiceInt lenout, + SpiceChar * buffer ); + + + void prop2b_c ( SpiceDouble gm, + ConstSpiceDouble pvinit[6], + SpiceDouble dt, + SpiceDouble pvprop[6] ); + + + void prsdp_c ( ConstSpiceChar * string, + SpiceDouble * dpval ); + + + void prsint_c ( ConstSpiceChar * string, + SpiceInt * intval ); + + + void psv2pl_c ( ConstSpiceDouble point[3], + ConstSpiceDouble span1[3], + ConstSpiceDouble span2[3], + SpicePlane * plane ); + + + void putcml_c ( SpiceInt argc , + SpiceChar ** argv ); + + + void pxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble rotate[3][3] ); + + + void pxfrm2_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble etfrom, + SpiceDouble etto, + SpiceDouble rotate[3][3] ); + + + void q2m_c ( ConstSpiceDouble q[4], + SpiceDouble r[3][3] ); + + + void qcktrc_c ( SpiceInt tracelen, + SpiceChar * trace ); + + + void qderiv_c ( SpiceInt ndim, + ConstSpiceDouble f0 [], + ConstSpiceDouble f2 [], + SpiceDouble delta, + SpiceDouble dfdt [] ); + + + void qdq2av_c ( ConstSpiceDouble q[4], + ConstSpiceDouble dq[4], + SpiceDouble av[3] ); + + + void qxq_c ( ConstSpiceDouble q1[4], + ConstSpiceDouble q2[4], + SpiceDouble qout[4] ); + + + + void radrec_c ( SpiceDouble range, + SpiceDouble ra, + SpiceDouble dec, + SpiceDouble rectan[3] ); + + + void rav2xf_c ( ConstSpiceDouble rot [3][3], + ConstSpiceDouble av [3], + SpiceDouble xform [6][6] ); + + + void raxisa_c ( ConstSpiceDouble matrix[3][3], + SpiceDouble axis [3], + SpiceDouble * angle ); + + + void rdtext_c ( ConstSpiceChar * file, + SpiceInt lenout, + SpiceChar * line, + SpiceBoolean * eof ); + + + void recazl_c ( ConstSpiceDouble rectan [3], + SpiceBoolean azccw, + SpiceBoolean elplsz, + SpiceDouble * range, + SpiceDouble * az, + SpiceDouble * el ); + + + void reccyl_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void recgeo_c ( ConstSpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void reclat_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * longitude, + SpiceDouble * latitude ); + + + void recpgr_c ( ConstSpiceChar * body, + SpiceDouble rectan[3], + SpiceDouble re, + SpiceDouble f, + SpiceDouble * lon, + SpiceDouble * lat, + SpiceDouble * alt ); + + + void recrad_c ( ConstSpiceDouble rectan[3], + SpiceDouble * radius, + SpiceDouble * ra, + SpiceDouble * dec ); + + + + void reordc_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void reordd_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceDouble * array ); + + + void reordi_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceInt * array ); + + + void reordl_c ( ConstSpiceInt * iorder, + SpiceInt ndim, + SpiceBoolean * array ); + + + void removc_c ( ConstSpiceChar * item, + SpiceCell * set ); + + + void removd_c ( SpiceDouble item, + SpiceCell * set ); + + + void removi_c ( SpiceInt item, + SpiceCell * set ); + + + void repmc_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + ConstSpiceChar * value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmct_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void repml_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceBoolean value, + SpiceChar rtcase, + SpiceInt outlen, + SpiceChar * out ); + + + void repmd_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceInt lenout, + SpiceChar * out ); + + + void repmf_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceDouble value, + SpiceInt sigdig, + SpiceChar format, + SpiceInt lenout, + SpiceChar * out ); + + + void repmi_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceInt lenout, + SpiceChar * out ); + + + void repmot_c ( ConstSpiceChar * in, + ConstSpiceChar * marker, + SpiceInt value, + SpiceChar strCase, + SpiceInt lenout, + SpiceChar * out ); + + + void reset_c ( void ); + + + SpiceBoolean return_c ( void ); + + + void recsph_c ( ConstSpiceDouble rectan[3], + SpiceDouble * r, + SpiceDouble * colat, + SpiceDouble * lon ); + + + void rotate_c ( SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotmat_c ( ConstSpiceDouble m1[3][3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble mout[3][3] ); + + + void rotvec_c ( ConstSpiceDouble v1[3], + SpiceDouble angle, + SpiceInt iaxis, + SpiceDouble vout[3] ); + + + SpiceDouble rpd_c ( void ); + + + void rquad_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble root1[2], + SpiceDouble root2[2] ); + + + void saelgv_c ( ConstSpiceDouble vec1 [3], + ConstSpiceDouble vec2 [3], + SpiceDouble smajor[3], + SpiceDouble sminor[3] ); + + + void scard_c ( SpiceInt card, + SpiceCell * cell ); + + + void scdecd_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2s_c ( SpiceInt sc, + SpiceDouble et, + SpiceInt sclklen, + SpiceChar * sclkch ); + + + void sce2c_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void sce2t_c ( SpiceInt sc, + SpiceDouble et, + SpiceDouble * sclkdp ); + + + void scencd_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * sclkdp ); + + + void scfmt_c ( SpiceInt sc, + SpiceDouble ticks, + SpiceInt clkstrlen, + SpiceChar * clkstr ); + + + void scpart_c ( SpiceInt sc, + SpiceInt * nparts, + SpiceDouble * pstart, + SpiceDouble * pstop ); + + + void scs2e_c ( SpiceInt sc, + ConstSpiceChar * sclkch, + SpiceDouble * et ); + + + void sct2e_c ( SpiceInt sc, + SpiceDouble sclkdp, + SpiceDouble * et ); + + + void sctiks_c ( SpiceInt sc, + ConstSpiceChar * clkstr, + SpiceDouble * ticks ); + + + void sdiff_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean set_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void setmsg_c ( ConstSpiceChar * msg ); + + + void shellc_c ( SpiceInt ndim, + SpiceInt lenvals, + void * array ); + + + void shelld_c ( SpiceInt ndim, + SpiceDouble * array ); + + + void shelli_c ( SpiceInt ndim, + SpiceInt * array ); + + + void sigerr_c ( ConstSpiceChar * message ); + + + void sincpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3], + SpiceBoolean * found ); + + + SpiceInt size_c ( SpiceCell * size ); + + + SpiceDouble spd_c ( void ); + + + void sphcyl_c ( SpiceDouble radius, + SpiceDouble colat, + SpiceDouble slon, + SpiceDouble * r, + SpiceDouble * lon, + SpiceDouble * z ); + + + void sphlat_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lons, + SpiceDouble * radius, + SpiceDouble * lon, + SpiceDouble * lat ); + + + void sphrec_c ( SpiceDouble r, + SpiceDouble colat, + SpiceDouble lon, + SpiceDouble rectan[3] ); + + + void spk14a_c ( SpiceInt handle, + SpiceInt ncsets, + ConstSpiceDouble coeffs [], + ConstSpiceDouble epochs [] ); + + + void spk14b_c ( SpiceInt handle, + ConstSpiceChar * segid, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + SpiceInt chbdeg ); + + + void spk14e_c ( SpiceInt handle ); + + + void spkapo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs[6], + ConstSpiceChar * abcorr, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkapp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceDouble sobs [6], + ConstSpiceChar * abcorr, + SpiceDouble starg [6], + SpiceDouble * lt ); + + + void spkacs_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkaps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + ConstSpiceDouble accobs[3], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkcls_c ( SpiceInt handle ); + + + void spkcov_c ( ConstSpiceChar * spk, + SpiceInt idcode, + SpiceCell * cover ); + + + void spkcpo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [3], + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcpt_c ( ConstSpiceDouble trgpos [3], + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvo_c ( ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceDouble obssta [6], + SpiceDouble obsepc, + ConstSpiceChar * obsctr, + ConstSpiceChar * obsref, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkcvt_c ( ConstSpiceDouble trgsta [6], + SpiceDouble trgepc, + ConstSpiceChar * trgctr, + ConstSpiceChar * trgref, + SpiceDouble et, + ConstSpiceChar * outref, + ConstSpiceChar * refloc, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble state [6], + SpiceDouble * lt ); + + + void spkez_c ( SpiceInt target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + SpiceInt observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkezp_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + SpiceInt obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkezr_c ( ConstSpiceChar * target, + SpiceDouble epoch, + ConstSpiceChar * frame, + ConstSpiceChar * abcorr, + ConstSpiceChar * observer, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgeo_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble state[6], + SpiceDouble * lt ); + + + void spkgps_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceInt obs, + SpiceDouble pos[3], + SpiceDouble * lt ); + + + void spklef_c ( ConstSpiceChar * filename, + SpiceInt * handle ); + + + void spkltc_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceDouble stobs[6], + SpiceDouble starg[6], + SpiceDouble * lt, + SpiceDouble * dlt ); + + + void spkobj_c ( ConstSpiceChar * spk, + SpiceCell * ids ); + + + void spkopa_c ( ConstSpiceChar * file, + SpiceInt * handle ); + + + void spkopn_c ( ConstSpiceChar * name, + ConstSpiceChar * ifname, + SpiceInt ncomch, + SpiceInt * handle ); + + + void spkpds_c ( SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceInt type, + SpiceDouble first, + SpiceDouble last, + SpiceDouble descr[5] ); + + + void spkpos_c ( ConstSpiceChar * targ, + SpiceDouble et, + ConstSpiceChar * ref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obs, + SpiceDouble ptarg[3], + SpiceDouble * lt ); + + + void spkpvn_c ( SpiceInt handle, + ConstSpiceDouble descr [5], + SpiceDouble et, + SpiceInt * ref, + SpiceDouble state [6], + SpiceInt * center ); + + + void spksfs_c ( SpiceInt body, + SpiceDouble et, + SpiceInt idlen, + SpiceInt * handle, + SpiceDouble descr [5], + SpiceChar * ident, + SpiceBoolean * found ); + + + void spkssb_c ( SpiceInt targ, + SpiceDouble et, + ConstSpiceChar * ref, + SpiceDouble starg[6] ); + + + void spksub_c ( SpiceInt handle, + SpiceDouble descr[5], + ConstSpiceChar * ident, + SpiceDouble begin, + SpiceDouble end, + SpiceInt newh ); + + + void spkuds_c ( ConstSpiceDouble descr [5], + SpiceInt * body, + SpiceInt * center, + SpiceInt * frame, + SpiceInt * type, + SpiceDouble * first, + SpiceDouble * last, + SpiceInt * begin, + SpiceInt * end ); + + + void spkuef_c ( SpiceInt handle ); + + + void spkw02_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw03_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata [], + SpiceDouble btime ); + + + void spkw05_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble gm, + SpiceInt n, + ConstSpiceDouble states [][6], + ConstSpiceDouble epochs [] ); + + + void spkw08_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch1, + SpiceDouble step ); + + + void spkw09_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw10_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + ConstSpiceDouble consts [8], + SpiceInt n, + ConstSpiceDouble elems [], + ConstSpiceDouble epochs [] ); + + + void spkw12_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + SpiceDouble epoch0, + SpiceDouble step ); + + + void spkw13_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + ConstSpiceDouble states[][6], + ConstSpiceDouble epochs[] ); + + + void spkw15_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble tp [3], + ConstSpiceDouble pa [3], + SpiceDouble p, + SpiceDouble ecc, + SpiceDouble j2flg, + ConstSpiceDouble pv [3], + SpiceDouble gm, + SpiceDouble j2, + SpiceDouble radius ); + + + void spkw17_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble epoch, + ConstSpiceDouble eqel [9], + SpiceDouble rapol, + SpiceDouble decpol ); + + + void spkw18_c ( SpiceInt handle, + SpiceSPK18Subtype subtyp, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceInt degree, + SpiceInt n, + const void * packts, + ConstSpiceDouble epochs[] ); + + + void spkw20_c ( SpiceInt handle, + SpiceInt body, + SpiceInt center, + ConstSpiceChar * frame, + SpiceDouble first, + SpiceDouble last, + ConstSpiceChar * segid, + SpiceDouble intlen, + SpiceInt n, + SpiceInt polydg, + ConstSpiceDouble cdata[], + SpiceDouble dscale, + SpiceDouble tscale, + SpiceDouble initjd, + SpiceDouble initfr ); + + + + void srfrec_c ( SpiceInt body, + SpiceDouble lon, + SpiceDouble lat, + SpiceDouble rectan[3] ); + + + void srfc2s_c ( SpiceInt code, + SpiceInt bodyid, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfcss_c ( SpiceInt code, + ConstSpiceChar * bodstr, + SpiceInt srflen, + SpiceChar * srfstr, + SpiceBoolean * isname ); + + + void srfnrm_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + SpiceInt npts, + ConstSpiceDouble srfpts[][3], + SpiceDouble normls[][3] ); + + + void srfs2c_c ( ConstSpiceChar * srfstr, + ConstSpiceChar * bodstr, + SpiceInt * code, + SpiceBoolean * found ); + + + void srfscc_c ( ConstSpiceChar * surfce, + SpiceInt bodyid, + SpiceInt * surfid, + SpiceBoolean * found ); + + + void srfxpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceBoolean * found ); + + + void ssize_c ( SpiceInt size, + SpiceCell * cell ); + + + void stelab_c ( ConstSpiceDouble pobj[3], + ConstSpiceDouble vobs[3], + SpiceDouble appobj[3] ); + + + void stlabx_c ( ConstSpiceDouble pobj [3], + ConstSpiceDouble vobs [3], + SpiceDouble corpos [3] ); + + + void stpool_c ( ConstSpiceChar * item, + SpiceInt nth, + ConstSpiceChar * contin, + SpiceInt lenout, + SpiceChar * string, + SpiceInt * size, + SpiceBoolean * found ); + + + void str2et_c ( ConstSpiceChar * date, + SpiceDouble * et ); + + + void subpnt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt ); + + void subpt_pl02( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * alt, + SpiceInt * plateID ); + + + void subslr_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void subsol_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint[3] ); + + + void subsol_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceDouble spoint [3], + SpiceDouble * dist, + SpiceInt * plateID ); + + + SpiceDouble sumad_c ( ConstSpiceDouble array[], + SpiceInt n ); + + + SpiceInt sumai_c ( ConstSpiceInt array[], + SpiceInt n ); + + + void surfnm_c ( SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + ConstSpiceDouble point[3], + SpiceDouble normal[3] ); + + + void surfpt_c ( ConstSpiceDouble positn[3], + ConstSpiceDouble u[3], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble point[3], + SpiceBoolean * found ); + + + void surfpv_c ( ConstSpiceDouble stvrtx[6], + ConstSpiceDouble stdir [6], + SpiceDouble a, + SpiceDouble b, + SpiceDouble c, + SpiceDouble stx [6], + SpiceBoolean * found ); + + + void swpool_c ( ConstSpiceChar * agent, + SpiceInt nnames, + SpiceInt lenvals, + const void * names ); + + + void sxform_c ( ConstSpiceChar * from, + ConstSpiceChar * to, + SpiceDouble et, + SpiceDouble xform[6][6] ); + + + void szpool_c ( ConstSpiceChar * name, + SpiceInt * n, + SpiceBoolean * found ); + + + void tangpt_c ( ConstSpiceChar * method, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceChar * dref, + ConstSpiceDouble dvec [3], + SpiceDouble tanpt [3], + SpiceDouble * alt, + SpiceDouble * range, + SpiceDouble srfpt [3], + SpiceDouble * trgepc, + SpiceDouble srfvec [3] ); + + + void term_pl02 ( SpiceInt handle, + ConstSpiceDLADescr * dladsc, + ConstSpiceChar * trmtyp, + ConstSpiceChar * source, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * obsrvr, + SpiceInt npoints, + SpiceDouble * trgepc, + SpiceDouble obspos [3], + SpiceDouble trmpts [][3], + SpiceInt plateIDs [] ); + + + void termpt_c ( ConstSpiceChar * method, + ConstSpiceChar * ilusrc, + ConstSpiceChar * target, + SpiceDouble et, + ConstSpiceChar * fixref, + ConstSpiceChar * abcorr, + ConstSpiceChar * corloc, + ConstSpiceChar * obsrvr, + ConstSpiceDouble refvec[3], + SpiceDouble rolstp, + SpiceInt ncuts, + SpiceDouble schstp, + SpiceDouble soltol, + SpiceInt maxn, + SpiceInt npts [], + SpiceDouble points[][3], + SpiceDouble epochs[], + SpiceDouble tangts[][3] ); + + + void timdef_c ( ConstSpiceChar * action, + ConstSpiceChar * item, + SpiceInt lenout, + SpiceChar * value ); + + + void timout_c ( SpiceDouble et, + ConstSpiceChar * pictur, + SpiceInt lenout, + SpiceChar * output ); + + + void tipbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tipm[3][3] ); + + + void tisbod_c ( ConstSpiceChar * ref, + SpiceInt body, + SpiceDouble et, + SpiceDouble tsipm[6][6] ); + + + void tkfram_c ( SpiceInt frcode, + SpiceDouble rot [3][3], + SpiceInt * frame, + SpiceBoolean * found ); + + + ConstSpiceChar * tkvrsn_c ( ConstSpiceChar * item ); + + + void tparch_c ( ConstSpiceChar * type ); + + + void tparse_c ( ConstSpiceChar * string, + SpiceInt lenout, + SpiceDouble * sp2000, + SpiceChar * errmsg ); + + + void tpictr_c ( ConstSpiceChar * sample, + SpiceInt lenpictur, + SpiceInt lenerror, + SpiceChar * pictur, + SpiceBoolean * ok, + SpiceChar * error ); + + + SpiceDouble trace_c ( ConstSpiceDouble matrix[3][3] ); + + + void trcdep_c ( SpiceInt * depth ); + + + void trcnam_c ( SpiceInt index, + SpiceInt namelen, + SpiceChar * name ); + + + void trcoff_c ( void ); + + + SpiceDouble trgsep_c ( SpiceDouble et, + ConstSpiceChar * targ1, + ConstSpiceChar * shape1, + ConstSpiceChar * frame1, + ConstSpiceChar * targ2, + ConstSpiceChar * shape2, + ConstSpiceChar * frame2, + ConstSpiceChar * obsrvr, + ConstSpiceChar * abcorr ); + + + void tsetyr_c ( SpiceInt year ); + + + SpiceDouble twopi_c ( void ); + + + void twovec_c ( ConstSpiceDouble axdef [3], + SpiceInt indexa, + ConstSpiceDouble plndef [3], + SpiceInt indexp, + SpiceDouble mout [3][3] ); + + + void twovxf_c ( ConstSpiceDouble axdef [6], + SpiceInt indexa, + ConstSpiceDouble plndef [6], + SpiceInt indexp, + SpiceDouble xform [6][6] ); + + + SpiceDouble tyear_c ( void ); + + + void ucase_c ( SpiceChar * in, + SpiceInt lenout, + SpiceChar * out ); + + + void ucrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void uddc_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + + SpiceDouble x, + SpiceDouble dx, + SpiceBoolean * isdecr ); + + + void uddf_c ( void ( * udfunc ) ( SpiceDouble x, + SpiceDouble * value ), + SpiceDouble x, + SpiceDouble dx, + SpiceDouble * deriv ); + + + void udf_c ( SpiceDouble x, + SpiceDouble * value ); + + + void union_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceDouble unitim_c ( SpiceDouble epoch, + ConstSpiceChar * insys, + ConstSpiceChar * outsys ); + + + void unload_c ( ConstSpiceChar * file ); + + + void unorm_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3], + SpiceDouble * vmag ); + + + void unormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout, + SpiceDouble * vmag ); + + + void utc2et_c ( ConstSpiceChar * utcstr, + SpiceDouble * et ); + + + void vadd_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ) ; + + + void vaddg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + void valid_c ( SpiceInt size, + SpiceInt n, + SpiceCell * a ); + + + void vcrss_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + SpiceDouble vdist_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vdistg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vdot_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + SpiceDouble vdotg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + void vequ_c ( ConstSpiceDouble vin[3], + SpiceDouble vout[3] ); + + + void vequg_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vhat_c ( ConstSpiceDouble v1 [3], + SpiceDouble vout[3] ); + + + void vhatg_c ( ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vlcom_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble sum[3] ); + + + void vlcom3_c ( SpiceDouble a, + ConstSpiceDouble v1[3], + SpiceDouble b, + ConstSpiceDouble v2[3], + SpiceDouble c, + ConstSpiceDouble v3[3], + SpiceDouble sum[3] ); + + + void vlcomg_c ( SpiceInt n, + SpiceDouble a, + ConstSpiceDouble * v1, + SpiceDouble b, + ConstSpiceDouble * v2, + SpiceDouble * sum ); + + + void vminug_c ( ConstSpiceDouble * vin, + SpiceInt ndim, + SpiceDouble * vout ); + + + void vminus_c ( ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + SpiceDouble vnorm_c ( ConstSpiceDouble v1[3] ); + + + SpiceDouble vnormg_c ( ConstSpiceDouble * v1, + SpiceInt ndim ); + + + void vpack_c ( SpiceDouble x, + SpiceDouble y, + SpiceDouble z, + SpiceDouble v[3] ); + + + void vperp_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + void vprjp_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * plane, + SpiceDouble vout [3] ); + + + void vprjpi_c ( ConstSpiceDouble vin [3], + ConstSpicePlane * projpl, + ConstSpicePlane * invpl, + SpiceDouble vout [3], + SpiceBoolean * found ); + + + void vprojg_c ( ConstSpiceDouble a [], + ConstSpiceDouble b [], + SpiceInt ndim, + SpiceDouble p [] ); + + + void vproj_c ( ConstSpiceDouble a[3], + ConstSpiceDouble b[3], + SpiceDouble p[3] ); + + + SpiceDouble vrel_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + SpiceDouble vrelg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + void vrotv_c ( ConstSpiceDouble v[3], + ConstSpiceDouble axis[3], + SpiceDouble theta, + SpiceDouble r[3] ); + + + void vscl_c ( SpiceDouble s, + ConstSpiceDouble v1[3], + SpiceDouble vout[3] ); + + + void vsclg_c ( SpiceDouble s, + ConstSpiceDouble * v1, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsep_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3] ); + + + void vsub_c ( ConstSpiceDouble v1[3], + ConstSpiceDouble v2[3], + SpiceDouble vout[3] ); + + + void vsubg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim, + SpiceDouble * vout ); + + + SpiceDouble vsepg_c ( ConstSpiceDouble * v1, + ConstSpiceDouble * v2, + SpiceInt ndim ); + + + SpiceDouble vtmv_c ( ConstSpiceDouble v1 [3], + ConstSpiceDouble matrix [3][3], + ConstSpiceDouble v2 [3] ); + + + SpiceDouble vtmvg_c ( const void * v1, + const void * matrix, + const void * v2, + SpiceInt nrow, + SpiceInt ncol ); + + + void vupack_c ( ConstSpiceDouble v[3], + SpiceDouble * x, + SpiceDouble * y, + SpiceDouble * z ); + + SpiceBoolean vzero_c ( ConstSpiceDouble v[3] ); + + + SpiceBoolean vzerog_c ( ConstSpiceDouble * v, + SpiceInt ndim ); + + SpiceInt wncard_c ( SpiceCell * window ); + + void wncomd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window, + SpiceCell * result ); + + + void wncond_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wndifd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnelmd_c ( SpiceDouble point, + SpiceCell * window ); + + + void wnexpd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnextd_c ( SpiceChar side, + SpiceCell * window ); + + + void wnfetd_c ( SpiceCell * window, + SpiceInt n, + SpiceDouble * left, + SpiceDouble * right ); + + + void wnfild_c ( SpiceDouble sml, + SpiceCell * window ); + + + void wnfltd_c ( SpiceDouble sml, + SpiceCell * window ); + + + SpiceBoolean wnincd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wninsd_c ( SpiceDouble left, + SpiceDouble right, + SpiceCell * window ); + + + void wnintd_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + SpiceBoolean wnreld_c ( SpiceCell * a, + ConstSpiceChar * op, + SpiceCell * b ); + + + void wnsumd_c ( SpiceCell * window, + SpiceDouble * meas, + SpiceDouble * avg, + SpiceDouble * stddev, + SpiceInt * shortest, + SpiceInt * longest ); + + + void wnunid_c ( SpiceCell * a, + SpiceCell * b, + SpiceCell * c ); + + + void wnvald_c ( SpiceInt size, + SpiceInt n, + SpiceCell * window ); + + + + void xf2eul_c ( ConstSpiceDouble xform [6][6], + SpiceInt axisa, + SpiceInt axisb, + SpiceInt axisc, + SpiceDouble eulang [6], + SpiceBoolean * unique ); + + + void xf2rav_c ( ConstSpiceDouble xform [6][6], + SpiceDouble rot [3][3], + SpiceDouble av [3] ); + + void xfmsta_c ( ConstSpiceDouble input_state [6], + ConstSpiceChar * input_coord_sys, + ConstSpiceChar * output_coord_sys, + ConstSpiceChar * body, + SpiceDouble output_state [6] ); + + void xpose_c ( ConstSpiceDouble m1 [3][3], + SpiceDouble mout[3][3] ); + + + void xpose6_c ( ConstSpiceDouble m1 [6][6], + SpiceDouble mout[6][6] ); + + + void xposeg_c ( const void * matrix, + SpiceInt nrow, + SpiceInt ncol, + void * xposem ); + + + void zzgetcml_c( SpiceInt * argc, + SpiceChar *** argv, + SpiceBoolean init ); + + + SpiceBoolean zzgfgeth_c ( void ); + + + void zzgfsavh_c( SpiceBoolean status ); + + + void zzsynccl_c( SpiceTransDir xdir, + SpiceCell * cell ); + + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZrnm.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZrnm.h new file mode 100644 index 000000000..2542b343c --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZrnm.h @@ -0,0 +1,82 @@ +/* + +-Header_File SpiceZrnm.h ( CSPICE rename assignments ) + +-Abstract + + Reassign CSPICE symbol names to prevent symbol collisions. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Literature_References + + None. + +-Particulars + + Compiled symbol names in CSPICE may collide with symbols in other, + non-SPICE libraries. This file redefines names which have or may + cause a collision. + +-Author_and_Institution + + N.J. Bachman (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.0.0, 17-OCT-2011 (EDW) + +-Index_Entries + + Rename assignments for CSPICE functions + +*/ + + +#ifndef HAVE_SPICERENAME_H + +/* +Redefine names causing symbol conflicts: +*/ +#define HAVE_SPICERENAME_H + + /* dpstrf_ may exist in the LAPACK library. */ + + #define dpstrf_ zz_dpstrf_ + + /* Just in case. */ + + #define pi_ zz_pi_ + #define vnorm_ zz_vnorm_ + #define vdist_ zz_vdist_ + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZst.h b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZst.h new file mode 100644 index 000000000..b39a49f05 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/SpiceZst.h @@ -0,0 +1,207 @@ +/* + +-Header_File SpiceZst.h ( Fortran/C string conversion utilities ) + +-Abstract + + Define prototypes for CSPICE Fortran/C string conversion utilities. + + Caution: these prototypes are subject to revision without notice. + + These are private routines and are not part of the official CSPICE + user interface. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + None. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + K.R. Gehringer (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 7.0.0, 24-FEB-2021 (NJB) + + Added prototype for function C_OptEmptyStr. + + -CSPICE Version 6.0.0, 10-JUL-2002 (NJB) + + Added prototype for new functions C2F_MapStrArr and + C2F_MapFixStrArr. + + -CSPICE Version 5.0.0, 18-MAY-2001 (WLT) + + Added #ifdef's to add namespace specification for C++ compilation. + + -CSPICE Version 4.0.0, 14-FEB-2000 (NJB) + + Added prototype for new function C2F_CreateStrArr_Sig. + + -CSPICE Version 3.0.0, 12-JUL-1999 (NJB) + + Added prototype for function C2F_CreateFixStrArr. + Added prototype for function F2C_ConvertTrStrArr. + Removed reference in comments to C2F_CreateStrArr_Sig, which + does not exist. + + -CSPICE Version 2.0.1, 06-MAR-1998 (NJB) + + Type SpiceVoid was changed to void. + + -CSPICE Version 2.0.1, 09-FEB-1998 (EDW) + + Added prototype for F2C_ConvertStrArr. + + -CSPICE Version 2.0.0, 04-JAN-1998 (NJB) + + Added prototype for F2C_ConvertStr. + + -CSPICE Version 1.0.0, 25-OCT-1997 (NJB) (KRG) (EDW) + +-Index_Entries + + protoypes of CSPICE Fortran/C string conversion utilities + +*/ + +#include +#include +#include "SpiceZdf.h" + +#ifndef HAVE_FCSTRINGS_H +#define HAVE_FCSTRINGS_H + +#ifdef __cplusplus +namespace Jpl_NAIF_CSpice { +#endif + + + ConstSpiceChar * C_OptEmptyStr ( ConstSpiceChar * cStr ); + + + SpiceStatus C2F_CreateStr ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStr_Sig ( ConstSpiceChar *, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateFixStrArr ( SpiceInt nStr, + SpiceInt cStrDim, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_CreateStrArr ( SpiceInt, + ConstSpiceChar **, + SpiceInt *, + SpiceChar ** ); + + void C2F_CreateStrArr_Sig ( SpiceInt nStr, + ConstSpiceChar ** cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapFixStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + void C2F_MapStrArr ( ConstSpiceChar * caller, + SpiceInt nStr, + SpiceInt cStrLen, + const void * cStrArr, + SpiceInt * fStrLen, + SpiceChar ** fStrArr ); + + SpiceStatus C2F_StrCpy ( ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + void F_Alloc ( SpiceInt, + SpiceChar** ); + + void F2C_ConvertStr ( SpiceInt, + SpiceChar * ); + + void F2C_ConvertStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + void F2C_ConvertTrStrArr ( SpiceInt n, + SpiceInt lenout, + SpiceChar * cvals ); + + SpiceStatus F2C_CreateStr ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + void F2C_CreateStr_Sig ( SpiceInt, + ConstSpiceChar *, + SpiceChar ** ); + + SpiceStatus F2C_CreateStrArr ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_CreateStrArr_Sig ( SpiceInt, + SpiceInt, + ConstSpiceChar *, + SpiceChar *** ); + + void F2C_FreeStrArr ( SpiceChar **cStrArr ); + + + SpiceStatus F2C_StrCpy ( SpiceInt, + ConstSpiceChar *, + SpiceInt, + SpiceChar * ); + + SpiceInt F_StrLen ( SpiceInt, + ConstSpiceChar * ); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/f2c.h b/Src/Celbody/SPICE/cspice/win_x86/include/f2c.h new file mode 100644 index 000000000..6b99950c3 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/f2c.h @@ -0,0 +1,696 @@ +/* + +-Header_File f2c.h ( CSPICE version of the f2c standard header file ) + +-Abstract + + Perform standard f2c declarations, customized for the host + environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + The standard f2c header file f2c.h must be included by every function + generated by running f2c on Fortran source code. The header f2c.h + includes typedefs used to provide a level of indirection in mapping + Fortran data types to native C data types. For example, Fortran + INTEGER variables are mapped to variables of type integer, where + integer is a C typedef. In the standard f2c.h header, the typedef + integer translates to the C type long. + + Because the standard version of f2c.h does not work on all platforms, + this header file contains two platform-dependent versions of it, + meant to be selected at build time via precompiler switches. The + precompiler switches reference macros defined in SpiceZpl.h to + determine for which host platform the code is targeted. The first + version of f2c.h, which works on most platforms, is copied directly + from the standard version of f2c.h. The second version is intended + for use on the DEC Alpha running Digital Unix and the Sun/Solaris + platform using 64 bit mode and running gcc. On those systems, longs + occupy 8 bytes, as do doubles. Because the Fortran standard requires + that INTEGERS occupy half the storage of DOUBLE PRECISION numbers, + INTEGERS should be mapped to 4-byte ints rather than 8-byte longs + on the platforms having 8-byte longs. In order to achieve this, the + header f2c.h was transformed using the sed command + + sed 's/long //' f2c.h + + The high-level structure of this file is then: + + # if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) ) + + + [ Alpha/Digital Unix and Sun Solaris 64 bit mode/gcc + version of f2c.h source code ] + + # else + + [ Standard version of f2c.h source code ] + + # endif + + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 31-JAN-1999 release + are: + + ALPHA-DIGITAL-UNIX + HP + NEXT + PC-LINUX + PC-MS + SGI-IRIX-N32 + SGI-IRIX-NO2 + SUN-SOLARIS + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 4.3.0, 09-NOV-2021 (BVS) + + Updated for: + + MAC-OSX-M1-64BIT-CLANG_C + + environment. Added the corresponding tag: + + CSPICE_MAC_OSX_M1_64BIT_CLANG + + tag to the #ifdefs set. + + -CSPICE Version 4.2.0, 09-APR-2014 (EDW) (BVS) + + Added include for SpiceZrnm.h to eliminate symbol conflict + encountered from Icy and JNISpice under OS X 10.7. + + Minor text format correction to eliminate error signal from + OS X cpp. The edit removes leading whitespace from the + final "#endif". + + Updated for: + + PC-CYGWIN-64BIT-GCC_C + + environment. Added the corresponding tag: + + CSPICE_PC_CYGWIN_64BIT_GCC + + tag to the #ifdefs set. + + -CSPICE Version 4.1.0, 14-MAY-2010 (EDW)(BVS) + + Updated for: + + MAC-OSX-64BIT-INTEL_C + SUN-SOLARIS-64BIT-NATIVE_C + SUN-SOLARIS-INTEL-64BIT-CC_C + + environments. Added the corresponding tags: + + CSPICE_MAC_OSX_INTEL_64BIT_GCC + CSPICE_SUN_SOLARIS_64BIT_NATIVE + CSPICE_SUN_SOLARIS_INTEL_64BIT_CC + + tag to the #ifdefs set. + + -CSPICE Version 4.0.0, 21-FEB-2006 (NJB) + + Updated to support the PC Linux 64 bit mode/gcc platform. + + -CSPICE Version 3.0.0, 27-JAN-2003 (NJB) + + Updated to support the Sun Solaris 64 bit mode/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + + Updated to support linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. See the header + + f2cMang.h + + for further information. + + -CSPICE Version 1.0.0, 07-FEB-1999 (NJB) + +*/ + + +/* +Include those rename assignments for routines whose symbols will +collide with other libraries. +*/ +#ifndef HAVE_SPICERENAME_H +#include "SpiceZrnm.h" +#endif + + +/* +Optionally include name-mangling macros for f2c external symbols. +*/ +#ifdef MIX_C_AND_FORTRAN +#include "f2cMang.h" +#endif + + + /* + Include CSPICE platform macro definitions. + */ + #include "SpiceZpl.h" + + +#if ( defined(CSPICE_ALPHA_DIGITAL_UNIX ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_GCC ) \ + || defined(CSPICE_SUN_SOLARIS_64BIT_NATIVE ) \ + || defined(CSPICE_MAC_OSX_INTEL_64BIT_GCC ) \ + || defined(CSPICE_MAC_OSX_M1_64BIT_CLANG ) \ + || defined(CSPICE_SUN_SOLARIS_INTEL_64BIT_CC ) \ + || defined(CSPICE_PC_CYGWIN_64BIT_GCC ) \ + || defined(CSPICE_PC_LINUX_64BIT_GCC ) ) + + + /* + MODIFICATION + + The following code is intended to be used on the platforms where + a long is the size of a double and an int is half the + size of a double. + + Note that the comment line below indicating that the header is + "Standard" has been retained from the original, but is no longer + true. + */ + + + + + +/* f2c.h -- Standard Fortran to C header file */ + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef int integer; +typedef unsigned uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long longint; /* system-dependent */ +typedef unsigned long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef int flag; +typedef int ftnlen; +typedef int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + + /* + This marks the end of the MODIFICATION section version of f2c.h. + */ + +#else + + /* + The following code is the standard f2c.h header. In this + header, an "integer" is defined to be of type long. + + Because the code is copied verbatim, it does not follow the usual + CSPICE indentation pattern. + */ + + +/* f2c.h -- Standard Fortran to C header file */ + + +#ifndef F2C_INCLUDE +#define F2C_INCLUDE + +typedef long int integer; +typedef unsigned long uinteger; +typedef char *address; +typedef short int shortint; +typedef float real; +typedef double doublereal; +typedef struct { real r, i; } complex; +typedef struct { doublereal r, i; } doublecomplex; +typedef long int logical; +typedef short int shortlogical; +typedef char logical1; +typedef char integer1; +#if 0 /* Adjust for integer*8. */ +typedef long long longint; /* system-dependent */ +typedef unsigned long long ulongint; /* system-dependent */ +#define qbit_clear(a,b) ((a) & ~((ulongint)1 << (b))) +#define qbit_set(a,b) ((a) | ((ulongint)1 << (b))) +#endif + +#define TRUE_ (1) +#define FALSE_ (0) + +/* Extern is for use with -E */ +#ifndef Extern +#define Extern extern +#endif + +/* I/O stuff */ + +#ifdef f2c_i2 +/* for -i2 */ +typedef short flag; +typedef short ftnlen; +typedef short ftnint; +#else +typedef long int flag; +typedef long int ftnlen; +typedef long int ftnint; +#endif + +/*external read, write*/ +typedef struct +{ flag cierr; + ftnint ciunit; + flag ciend; + char *cifmt; + ftnint cirec; +} cilist; + +/*internal read, write*/ +typedef struct +{ flag icierr; + char *iciunit; + flag iciend; + char *icifmt; + ftnint icirlen; + ftnint icirnum; +} icilist; + +/*open*/ +typedef struct +{ flag oerr; + ftnint ounit; + char *ofnm; + ftnlen ofnmlen; + char *osta; + char *oacc; + char *ofm; + ftnint orl; + char *oblnk; +} olist; + +/*close*/ +typedef struct +{ flag cerr; + ftnint cunit; + char *csta; +} cllist; + +/*rewind, backspace, endfile*/ +typedef struct +{ flag aerr; + ftnint aunit; +} alist; + +/* inquire */ +typedef struct +{ flag inerr; + ftnint inunit; + char *infile; + ftnlen infilen; + ftnint *inex; /*parameters in standard's order*/ + ftnint *inopen; + ftnint *innum; + ftnint *innamed; + char *inname; + ftnlen innamlen; + char *inacc; + ftnlen inacclen; + char *inseq; + ftnlen inseqlen; + char *indir; + ftnlen indirlen; + char *infmt; + ftnlen infmtlen; + char *inform; + ftnint informlen; + char *inunf; + ftnlen inunflen; + ftnint *inrecl; + ftnint *innrec; + char *inblank; + ftnlen inblanklen; +} inlist; + +#define VOID void + +union Multitype { /* for multiple entry points */ + integer1 g; + shortint h; + integer i; + /* longint j; */ + real r; + doublereal d; + complex c; + doublecomplex z; + }; + +typedef union Multitype Multitype; + +/*typedef long int Long;*/ /* No longer used; formerly in Namelist */ + +struct Vardesc { /* for Namelist */ + char *name; + char *addr; + ftnlen *dims; + int type; + }; +typedef struct Vardesc Vardesc; + +struct Namelist { + char *name; + Vardesc **vars; + int nvars; + }; +typedef struct Namelist Namelist; + +#define abs(x) ((x) >= 0 ? (x) : -(x)) +#define dabs(x) (doublereal)abs(x) +#define min(a,b) ((a) <= (b) ? (a) : (b)) +#define max(a,b) ((a) >= (b) ? (a) : (b)) +#define dmin(a,b) (doublereal)min(a,b) +#define dmax(a,b) (doublereal)max(a,b) +#define bit_test(a,b) ((a) >> (b) & 1) +#define bit_clear(a,b) ((a) & ~((uinteger)1 << (b))) +#define bit_set(a,b) ((a) | ((uinteger)1 << (b))) + +/* procedure parameter types for -A and -C++ */ + +#define F2C_proc_par_types 1 +#ifdef __cplusplus +typedef int /* Unknown procedure type */ (*U_fp)(...); +typedef shortint (*J_fp)(...); +typedef integer (*I_fp)(...); +typedef real (*R_fp)(...); +typedef doublereal (*D_fp)(...), (*E_fp)(...); +typedef /* Complex */ VOID (*C_fp)(...); +typedef /* Double Complex */ VOID (*Z_fp)(...); +typedef logical (*L_fp)(...); +typedef shortlogical (*K_fp)(...); +typedef /* Character */ VOID (*H_fp)(...); +typedef /* Subroutine */ int (*S_fp)(...); +#else +typedef int /* Unknown procedure type */ (*U_fp)(); +typedef shortint (*J_fp)(); +typedef integer (*I_fp)(); +typedef real (*R_fp)(); +typedef doublereal (*D_fp)(), (*E_fp)(); +typedef /* Complex */ VOID (*C_fp)(); +typedef /* Double Complex */ VOID (*Z_fp)(); +typedef logical (*L_fp)(); +typedef shortlogical (*K_fp)(); +typedef /* Character */ VOID (*H_fp)(); +typedef /* Subroutine */ int (*S_fp)(); +#endif +/* E_fp is for real functions when -R is not specified */ +typedef VOID C_f; /* complex function */ +typedef VOID H_f; /* character function */ +typedef VOID Z_f; /* double complex function */ +typedef doublereal E_f; /* real function with -R not specified */ + +/* undef any lower-case symbols that your C compiler predefines, e.g.: */ + +#ifndef Skip_f2c_Undefs +#undef cray +#undef gcos +#undef mc68010 +#undef mc68020 +#undef mips +#undef pdp11 +#undef sgi +#undef sparc +#undef sun +#undef sun2 +#undef sun3 +#undef sun4 +#undef u370 +#undef u3b +#undef u3b2 +#undef u3b5 +#undef unix +#undef vax +#endif +#endif + + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/f2cMang.h b/Src/Celbody/SPICE/cspice/win_x86/include/f2cMang.h new file mode 100644 index 000000000..f18fded68 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/f2cMang.h @@ -0,0 +1,390 @@ +/* + +-Header_File f2cMang.h ( f2c external symbol mangling ) + +-Abstract + + Define macros that mangle the external symbols in the f2c F77 and I77 + libraries. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header supports linking CSPICE into executables that + also link in objects compiled from Fortran, in particular + ones that perform Fortran I/O. To enable this odd mix, + one defines the preprocessor flag + + MIX_C_AND_FORTRAN + + This macro is undefined by default, since the action it invokes + is usually not desirable. When the flag is defined, this header + defines macros that mangle the f2c library external symbols: + the symbol + + xxx + + gets mapped to + + xxx_f2c + + This mangling prevents name collisions between the f2c + implementations of the F77 and I77 library routines and those + in the corresponding Fortran libraries on a host system. + + The set of external symbols defined in the f2c libraries can + be determined by combining objects from both F77 and I77 into + a single Unix archive libarary, then running the Unix utility + nm on the that archive. If available, an nm option that selects + only external symbols should be invoked. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) It is recommended that use of the features implemented by this + header be avoided if at all possible. There are robustness and + portability problems associated with linking Fortran and C objects + together in one executable. + + 2) When f2c external symbol name mangling is invoked, objects + derived from C code translated from Fortran by f2c won't + link against CSPICE any longer, if these objects reference + the standard f2c external symbols. + + 3) The features implemented by this header have been tested only + under the Sun Solaris GCC, Sun Solaris native ANSI C, and + PC/Linux/gcc environments. + +-Version + + -CSPICE Version 2.0.1, 07-MAR-2009 (NJB) + + Restrictions header section was updated to note successful + testing on the PC/Linux/gcc platform. + + -CSPICE Version 2.0.0, 19-DEC-2001 (NJB) + +*/ + + + /* + Define masking macros for f2c external symbols. + */ + #ifdef MIX_C_AND_FORTRAN + + /* + Define the macros only once, if they need to be defined. + */ + #ifndef F2C_MANGLING_DONE + + #define F77_aloc F77_aloc_f2c + #define F_err F_err_f2c + #define L_len L_len_f2c + #define abort_ abort__f2c + #define b_char b_char_f2c + #define c_abs c_abs_f2c + #define c_cos c_cos_f2c + #define c_dfe c_dfe_f2c + #define c_div c_div_f2c + #define c_due c_due_f2c + #define c_exp c_exp_f2c + #define c_le c_le_f2c + #define c_log c_log_f2c + #define c_sfe c_sfe_f2c + #define c_si c_si_f2c + #define c_sin c_sin_f2c + #define c_sqrt c_sqrt_f2c + #define c_sue c_sue_f2c + #define d_abs d_abs_f2c + #define d_acos d_acos_f2c + #define d_asin d_asin_f2c + #define d_atan d_atan_f2c + #define d_atn2 d_atn2_f2c + #define d_cnjg d_cnjg_f2c + #define d_cos d_cos_f2c + #define d_cosh d_cosh_f2c + #define d_dim d_dim_f2c + #define d_exp d_exp_f2c + #define d_imag d_imag_f2c + #define d_int d_int_f2c + #define d_lg10 d_lg10_f2c + #define d_log d_log_f2c + #define d_mod d_mod_f2c + #define d_nint d_nint_f2c + #define d_prod d_prod_f2c + #define d_sign d_sign_f2c + #define d_sin d_sin_f2c + #define d_sinh d_sinh_f2c + #define d_sqrt d_sqrt_f2c + #define d_tan d_tan_f2c + #define d_tanh d_tanh_f2c + #define derf_ derf__f2c + #define derfc_ derfc__f2c + #define do_fio do_fio_f2c + #define do_lio do_lio_f2c + #define do_ud do_ud_f2c + #define do_uio do_uio_f2c + #define do_us do_us_f2c + #define dtime_ dtime__f2c + #define e_rdfe e_rdfe_f2c + #define e_rdue e_rdue_f2c + #define e_rsfe e_rsfe_f2c + #define e_rsfi e_rsfi_f2c + #define e_rsle e_rsle_f2c + #define e_rsli e_rsli_f2c + #define e_rsue e_rsue_f2c + #define e_wdfe e_wdfe_f2c + #define e_wdue e_wdue_f2c + #define e_wsfe e_wsfe_f2c + #define e_wsfi e_wsfi_f2c + #define e_wsle e_wsle_f2c + #define e_wsli e_wsli_f2c + #define e_wsue e_wsue_f2c + #define ef1asc_ ef1asc__f2c + #define ef1cmc_ ef1cmc__f2c + #define en_fio en_fio_f2c + #define erf_ erf__f2c + #define erfc_ erfc__f2c + #define err__fl err__fl_f2c + #define etime_ etime__f2c + #define exit_ exit__f2c + #define f__Aquote f__Aquote_f2c + #define f__buflen f__buflen_f2c + #define f__cabs f__cabs_f2c + #define f__canseek f__canseek_f2c + #define f__cblank f__cblank_f2c + #define f__cf f__cf_f2c + #define f__cnt f__cnt_f2c + #define f__cp f__cp_f2c + #define f__cplus f__cplus_f2c + #define f__cursor f__cursor_f2c + #define f__curunit f__curunit_f2c + #define f__doed f__doed_f2c + #define f__doend f__doend_f2c + #define f__doned f__doned_f2c + #define f__donewrec f__donewrec_f2c + #define f__dorevert f__dorevert_f2c + #define f__elist f__elist_f2c + #define f__external f__external_f2c + #define f__fatal f__fatal_f2c + #define f__fmtbuf f__fmtbuf_f2c + #define f__formatted f__formatted_f2c + #define f__getn f__getn_f2c + #define f__hiwater f__hiwater_f2c + #define f__icend f__icend_f2c + #define f__icnum f__icnum_f2c + #define f__icptr f__icptr_f2c + #define f__icvt f__icvt_f2c + #define f__init f__init_f2c + #define f__inode f__inode_f2c + #define f__lchar f__lchar_f2c + #define f__lcount f__lcount_f2c + #define f__lioproc f__lioproc_f2c + #define f__lquit f__lquit_f2c + #define f__ltab f__ltab_f2c + #define f__ltype f__ltype_f2c + #define f__lx f__lx_f2c + #define f__ly f__ly_f2c + #define f__nonl f__nonl_f2c + #define f__nowreading f__nowreading_f2c + #define f__nowwriting f__nowwriting_f2c + #define f__parenlvl f__parenlvl_f2c + #define f__pc f__pc_f2c + #define f__putbuf f__putbuf_f2c + #define f__putn f__putn_f2c + #define f__r_mode f__r_mode_f2c + #define f__reading f__reading_f2c + #define f__reclen f__reclen_f2c + #define f__recloc f__recloc_f2c + #define f__recpos f__recpos_f2c + #define f__ret f__ret_f2c + #define f__revloc f__revloc_f2c + #define f__rp f__rp_f2c + #define f__scale f__scale_f2c + #define f__sequential f__sequential_f2c + #define f__svic f__svic_f2c + #define f__typesize f__typesize_f2c + #define f__units f__units_f2c + #define f__w_mode f__w_mode_f2c + #define f__workdone f__workdone_f2c + #define f_back f_back_f2c + #define f_clos f_clos_f2c + #define f_end f_end_f2c + #define f_exit f_exit_f2c + #define f_init f_init_f2c + #define f_inqu f_inqu_f2c + #define f_open f_open_f2c + #define f_rew f_rew_f2c + #define fk_open fk_open_f2c + #define flush_ flush__f2c + #define fmt_bg fmt_bg_f2c + #define fseek_ fseek__f2c + #define ftell_ ftell__f2c + #define g_char g_char_f2c + #define getenv_ getenv__f2c + #define h_abs h_abs_f2c + #define h_dim h_dim_f2c + #define h_dnnt h_dnnt_f2c + #define h_indx h_indx_f2c + #define h_len h_len_f2c + #define h_mod h_mod_f2c + #define h_nint h_nint_f2c + #define h_sign h_sign_f2c + #define hl_ge hl_ge_f2c + #define hl_gt hl_gt_f2c + #define hl_le hl_le_f2c + #define hl_lt hl_lt_f2c + #define i_abs i_abs_f2c + #define i_dim i_dim_f2c + #define i_dnnt i_dnnt_f2c + #define i_indx i_indx_f2c + #define i_len i_len_f2c + #define i_mod i_mod_f2c + #define i_nint i_nint_f2c + #define i_sign i_sign_f2c + #define iw_rev iw_rev_f2c + #define l_eof l_eof_f2c + #define l_ge l_ge_f2c + #define l_getc l_getc_f2c + #define l_gt l_gt_f2c + #define l_le l_le_f2c + #define l_lt l_lt_f2c + #define l_read l_read_f2c + #define l_ungetc l_ungetc_f2c + #define l_write l_write_f2c + #define lbit_bits lbit_bits_f2c + #define lbit_cshift lbit_cshift_f2c + #define lbit_shift lbit_shift_f2c + #define mk_hashtab mk_hashtab_f2c + #define nml_read nml_read_f2c + #define pars_f pars_f_f2c + #define pow_ci pow_ci_f2c + #define pow_dd pow_dd_f2c + #define pow_di pow_di_f2c + #define pow_hh pow_hh_f2c + #define pow_ii pow_ii_f2c + #define pow_ri pow_ri_f2c + #define pow_zi pow_zi_f2c + #define pow_zz pow_zz_f2c + #define r_abs r_abs_f2c + #define r_acos r_acos_f2c + #define r_asin r_asin_f2c + #define r_atan r_atan_f2c + #define r_atn2 r_atn2_f2c + #define r_cnjg r_cnjg_f2c + #define r_cos r_cos_f2c + #define r_cosh r_cosh_f2c + #define r_dim r_dim_f2c + #define r_exp r_exp_f2c + #define r_imag r_imag_f2c + #define r_int r_int_f2c + #define r_lg10 r_lg10_f2c + #define r_log r_log_f2c + #define r_mod r_mod_f2c + #define r_nint r_nint_f2c + #define r_sign r_sign_f2c + #define r_sin r_sin_f2c + #define r_sinh r_sinh_f2c + #define r_sqrt r_sqrt_f2c + #define r_tan r_tan_f2c + #define r_tanh r_tanh_f2c + #define rd_ed rd_ed_f2c + #define rd_ned rd_ned_f2c + #define s_cat s_cat_f2c + #define s_cmp s_cmp_f2c + #define s_copy s_copy_f2c + #define s_paus s_paus_f2c + #define s_rdfe s_rdfe_f2c + #define s_rdue s_rdue_f2c + #define s_rnge s_rnge_f2c + #define s_rsfe s_rsfe_f2c + #define s_rsfi s_rsfi_f2c + #define s_rsle s_rsle_f2c + #define s_rsli s_rsli_f2c + #define s_rsne s_rsne_f2c + #define s_rsni s_rsni_f2c + #define s_rsue s_rsue_f2c + #define s_stop s_stop_f2c + #define s_wdfe s_wdfe_f2c + #define s_wdue s_wdue_f2c + #define s_wsfe s_wsfe_f2c + #define s_wsfi s_wsfi_f2c + #define s_wsle s_wsle_f2c + #define s_wsli s_wsli_f2c + #define s_wsne s_wsne_f2c + #define s_wsni s_wsni_f2c + #define s_wsue s_wsue_f2c + #define sig_die sig_die_f2c + #define signal_ signal__f2c + #define system_ system__f2c + #define t_getc t_getc_f2c + #define t_runc t_runc_f2c + #define w_ed w_ed_f2c + #define w_ned w_ned_f2c + #define wrt_E wrt_E_f2c + #define wrt_F wrt_F_f2c + #define wrt_L wrt_L_f2c + #define x_endp x_endp_f2c + #define x_getc x_getc_f2c + #define x_putc x_putc_f2c + #define x_rev x_rev_f2c + #define x_rsne x_rsne_f2c + #define x_wSL x_wSL_f2c + #define x_wsne x_wsne_f2c + #define xrd_SL xrd_SL_f2c + #define y_getc y_getc_f2c + #define y_rsk y_rsk_f2c + #define z_abs z_abs_f2c + #define z_cos z_cos_f2c + #define z_div z_div_f2c + #define z_exp z_exp_f2c + #define z_getc z_getc_f2c + #define z_log z_log_f2c + #define z_putc z_putc_f2c + #define z_rnew z_rnew_f2c + #define z_sin z_sin_f2c + #define z_sqrt z_sqrt_f2c + #define z_wnew z_wnew_f2c + + #define F2C_MANGLING_DONE + + #endif + + + #endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/fio.h b/Src/Celbody/SPICE/cspice/win_x86/include/fio.h new file mode 100644 index 000000000..bb20dd2ca --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/fio.h @@ -0,0 +1,107 @@ +#include "stdio.h" +#include "errno.h" +#ifndef NULL +/* ANSI C */ +#include "stddef.h" +#endif + +#ifndef SEEK_SET +#define SEEK_SET 0 +#define SEEK_CUR 1 +#define SEEK_END 2 +#endif + +#ifdef MSDOS +#ifndef NON_UNIX_STDIO +#define NON_UNIX_STDIO +#endif +#endif + +#ifdef UIOLEN_int +typedef int uiolen; +#else +typedef long uiolen; +#endif + +/*units*/ +typedef struct +{ FILE *ufd; /*0=unconnected*/ + char *ufnm; +#ifndef MSDOS + long uinode; + int udev; +#endif + int url; /*0=sequential*/ + flag useek; /*true=can backspace, use dir, ...*/ + flag ufmt; + flag urw; /* (1 for can read) | (2 for can write) */ + flag ublnk; + flag uend; + flag uwrt; /*last io was write*/ + flag uscrtch; +} unit; + +extern flag f__init; +extern cilist *f__elist; /*active external io list*/ +extern flag f__reading,f__external,f__sequential,f__formatted; +#undef Void +#ifdef KR_headers +#define Void /*void*/ +extern int (*f__getn)(); /* for formatted input */ +extern void (*f__putn)(); /* for formatted output */ +extern void x_putc(); +extern long f__inode(); +extern VOID sig_die(); +extern int (*f__donewrec)(), t_putc(), x_wSL(); +extern int c_sfe(), err__fl(), xrd_SL(), f__putbuf(); +#else +#define Void void +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__getn)(void); /* for formatted input */ +extern void (*f__putn)(int); /* for formatted output */ +extern void x_putc(int); +extern long f__inode(char*,int*); +extern void sig_die(char*,int); +extern void f__fatal(int,char*); +extern int t_runc(alist*); +extern int f__nowreading(unit*), f__nowwriting(unit*); +extern int fk_open(int,int,ftnint); +extern int en_fio(void); +extern void f_init(void); +extern int (*f__donewrec)(void), t_putc(int), x_wSL(void); +extern void b_char(char*,char*,ftnlen), g_char(char*,ftnlen,char*); +extern int c_sfe(cilist*), z_rnew(void); +extern int isatty(int); +extern int err__fl(int,int,char*); +extern int xrd_SL(void); +extern int f__putbuf(int); +#ifdef __cplusplus + } +#endif +#endif +extern int (*f__doend)(Void); +extern FILE *f__cf; /*current file*/ +extern unit *f__curunit; /*current unit*/ +extern unit f__units[]; +#define err(f,m,s) {if(f) errno= m; else f__fatal(m,s); return(m);} +#define errfl(f,m,s) return err__fl((int)f,m,s) + +/*Table sizes*/ +#define MXUNIT 100 + +extern int f__recpos; /*position in current record*/ +extern int f__cursor; /* offset to move to */ +extern int f__hiwater; /* so TL doesn't confuse us */ + +#define WRITE 1 +#define READ 2 +#define SEQ 3 +#define DIR 4 +#define FMT 5 +#define UNF 6 +#define EXT 7 +#define INT 8 + +#define buf_end(x) (x->_flag & _IONBF ? x->_ptr : x->_base + BUFSIZ) diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/fmt.h b/Src/Celbody/SPICE/cspice/win_x86/include/fmt.h new file mode 100644 index 000000000..19065a2f0 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/fmt.h @@ -0,0 +1,100 @@ +struct syl +{ int op; + int p1; + union { int i[2]; char *s;} p2; + }; +#define RET1 1 +#define REVERT 2 +#define GOTO 3 +#define X 4 +#define SLASH 5 +#define STACK 6 +#define I 7 +#define ED 8 +#define NED 9 +#define IM 10 +#define APOS 11 +#define H 12 +#define TL 13 +#define TR 14 +#define T 15 +#define COLON 16 +#define S 17 +#define SP 18 +#define SS 19 +#define P 20 +#define BN 21 +#define BZ 22 +#define F 23 +#define E 24 +#define EE 25 +#define D 26 +#define G 27 +#define GE 28 +#define L 29 +#define A 30 +#define AW 31 +#define O 32 +#define NONL 33 +#define OM 34 +#define Z 35 +#define ZM 36 +extern int f__pc,f__parenlvl,f__revloc; +typedef union +{ real pf; + doublereal pd; +} ufloat; +typedef union +{ short is; +#ifndef KR_headers + signed +#endif + char ic; + integer il; +#ifdef Allow_TYQUAD + longint ili; +#endif +} Uint; +#ifdef KR_headers +extern int (*f__doed)(),(*f__doned)(); +extern int (*f__dorevert)(); +extern int rd_ed(),rd_ned(); +extern int w_ed(),w_ned(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__doed)(struct syl*, char*, ftnlen),(*f__doned)(struct syl*); +extern int (*f__dorevert)(void); +extern void fmt_bg(void); +extern int pars_f(char*); +extern int rd_ed(struct syl*, char*, ftnlen),rd_ned(struct syl*); +extern int w_ed(struct syl*, char*, ftnlen),w_ned(struct syl*); +extern int wrt_E(ufloat*, int, int, int, ftnlen); +extern int wrt_F(ufloat*, int, int, ftnlen); +extern int wrt_L(Uint*, int, ftnlen); +#ifdef __cplusplus + } +#endif +#endif +extern flag f__cblank,f__cplus,f__workdone, f__nonl; +extern char *f__fmtbuf; +extern int f__scale; +#define GET(x) if((x=(*f__getn)())<0) return(x) +#define VAL(x) (x!='\n'?x:' ') +#define PUT(x) (*f__putn)(x) +extern int f__cursor; + +#undef TYQUAD +#ifndef Allow_TYQUAD +#undef longint +#define longint long +#else +#define TYQUAD 14 +#endif + +#ifdef KR_headers +extern char *f__icvt(); +#else +extern char *f__icvt(longint, int*, int*, int); +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/fp.h b/Src/Celbody/SPICE/cspice/win_x86/include/fp.h new file mode 100644 index 000000000..40743d79f --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/fp.h @@ -0,0 +1,28 @@ +#define FMAX 40 +#define EXPMAXDIGS 8 +#define EXPMAX 99999999 +/* FMAX = max number of nonzero digits passed to atof() */ +/* EXPMAX = 10^EXPMAXDIGS - 1 = largest allowed exponent absolute value */ + +#ifdef V10 /* Research Tenth-Edition Unix */ +#include "local.h" +#endif + +/* MAXFRACDIGS and MAXINTDIGS are for wrt_F -- bounds (not necessarily + tight) on the maximum number of digits to the right and left of + * the decimal point. + */ + +#ifdef VAX +#define MAXFRACDIGS 56 +#define MAXINTDIGS 38 +#else +#ifdef CRAY +#define MAXFRACDIGS 9880 +#define MAXINTDIGS 9864 +#else +/* values that suffice for IEEE double */ +#define MAXFRACDIGS 344 +#define MAXINTDIGS 308 +#endif +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/lio.h b/Src/Celbody/SPICE/cspice/win_x86/include/lio.h new file mode 100644 index 000000000..012317206 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/lio.h @@ -0,0 +1,74 @@ +/* copy of ftypes from the compiler */ +/* variable types + * numeric assumptions: + * int < reals < complexes + * TYDREAL-TYREAL = TYDCOMPLEX-TYCOMPLEX + */ + +/* 0-10 retain their old (pre LOGICAL*1, etc.) */ +/* values to allow mixing old and new objects. */ + +#define TYUNKNOWN 0 +#define TYADDR 1 +#define TYSHORT 2 +#define TYLONG 3 +#define TYREAL 4 +#define TYDREAL 5 +#define TYCOMPLEX 6 +#define TYDCOMPLEX 7 +#define TYLOGICAL 8 +#define TYCHAR 9 +#define TYSUBR 10 +#define TYINT1 11 +#define TYLOGICAL1 12 +#define TYLOGICAL2 13 +#ifdef Allow_TYQUAD +#undef TYQUAD +#define TYQUAD 14 +#endif + +#define LINTW 24 +#define LINE 80 +#define LLOGW 2 +#ifdef Old_list_output +#define LLOW 1.0 +#define LHIGH 1.e9 +#define LEFMT " %# .8E" +#define LFFMT " %# .9g" +#else +#define LGFMT "%.9G" +#endif +/* LEFBL 20 should suffice; 24 overcomes a NeXT bug. */ +#define LEFBL 24 + +typedef union +{ + char flchar; + short flshort; + ftnint flint; +#ifdef Allow_TYQUAD + longint fllongint; +#endif + real flreal; + doublereal fldouble; +} flex; +extern int f__scale; +#ifdef KR_headers +extern int (*f__lioproc)(), (*l_getc)(), (*l_ungetc)(); +extern int l_read(), l_write(); +#else +#ifdef __cplusplus +extern "C" { +#endif +extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint); +extern int l_write(ftnint*, char*, ftnlen, ftnint); +extern void x_wsne(cilist*); +extern int c_le(cilist*), (*l_getc)(void), (*l_ungetc)(int,FILE*); +extern int l_read(ftnint*,char*,ftnlen,ftnint); +extern integer e_rsle(void), e_wsle(void), s_wsne(cilist*); +extern int z_rnew(void); +#ifdef __cplusplus + } +#endif +#endif +extern ftnint L_len; diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/rawio.h b/Src/Celbody/SPICE/cspice/win_x86/include/rawio.h new file mode 100644 index 000000000..fd36a4826 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/rawio.h @@ -0,0 +1,41 @@ +#ifndef KR_headers +#ifdef MSDOS +#include "io.h" +#ifndef WATCOM +#define close _close +#define creat _creat +#define open _open +#define read _read +#define write _write +#endif /*WATCOM*/ +#endif /*MSDOS*/ +#ifdef __cplusplus +extern "C" { +#endif +#ifndef MSDOS +#ifdef OPEN_DECL +extern int creat(const char*,int), open(const char*,int); +#endif +extern int close(int); +extern int read(int,void*,size_t), write(int,void*,size_t); +extern int unlink(const char*); +#ifndef _POSIX_SOURCE +#ifndef NON_UNIX_STDIO +extern FILE *fdopen(int, const char*); +#endif +#endif +#endif /*KR_HEADERS*/ + +extern char *mktemp(char*); + +#ifdef __cplusplus + } +#endif +#endif + +#include "fcntl.h" + +#ifndef O_WRONLY +#define O_RDONLY 0 +#define O_WRONLY 1 +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/signal1.h b/Src/Celbody/SPICE/cspice/win_x86/include/signal1.h new file mode 100644 index 000000000..360d8d011 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/signal1.h @@ -0,0 +1,118 @@ +/* + +-Header_File signal1.h (CSPICE version of the f2c signal1.h header file) + +-Abstract + + Define macros associated with signal handling, customized for the + host environment. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + None. + +-Particulars + + This header defines the macro signal1 referenced in main.c, + which is a generic main routine used in CSPICE executables that + link to code generated by f2c. + +-Literature_References + + None. + +-Author_and_Institution + + N.J. Bachman (JPL) + +-Restrictions + + 1) This header file must be updated whenever the f2c processor + or the f2c libraries libI77 and libF77 are updated. + + 2) This header may need to be updated to support new platforms. + The supported platforms at the time of the 03-FEB-2000 release + are: + + ALPHA-DIGITAL-UNIX_C + HP_C + NEXT_C + PC-LINUX_C + PC-MS_C + SGI-IRIX-N32_C + SGI-IRIX-NO2_C + SUN-SOLARIS-GCC_C + SUN-SOLARIS-NATIVE_C + +-Version + + -CSPICE Version 1.0.0, 03-FEB-2000 (NJB) + +*/ + + + + +/* You may need to adjust the definition of signal1 to supply a */ +/* cast to the correct argument type. This detail is system- and */ +/* compiler-dependent. The #define below assumes signal.h declares */ +/* type SIG_PF for the signal function's second argument. */ + +#include + +#ifndef Sigret_t +#define Sigret_t void +#endif +#ifndef Sigarg_t +#ifdef KR_headers +#define Sigarg_t +#else +#ifdef __cplusplus +#define Sigarg_t ... +#else +#define Sigarg_t int +#endif +#endif +#endif /*Sigarg_t*/ + +#ifdef USE_SIG_PF /* compile with -DUSE_SIG_PF under IRIX */ +#define sig_pf SIG_PF +#else +typedef Sigret_t (*sig_pf)(Sigarg_t); +#endif + +#define signal1(a,b) signal(a,(sig_pf)b) + +#ifdef __cplusplus +#define Sigarg ... +#define Use_Sigarg +#else +#define Sigarg Int n +#define Use_Sigarg n = n /* shut up compiler warning */ +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/zzalloc.h b/Src/Celbody/SPICE/cspice/win_x86/include/zzalloc.h new file mode 100644 index 000000000..0c4a50b7a --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/zzalloc.h @@ -0,0 +1,192 @@ +/* + +-Header_File zzalloc.h ( CSPICE memory allocation prototypes and macros ) + +-Abstract + + The memory allocation prototypes and macros for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Required_Reading + + CSPICE + +-Keywords + + MEMORY + +-Exceptions + + None. + +-Files + + None. + +-Particulars + + The routines maintain a count of the number of mallocs vs. free, + signalling an error if any unreleased memory exists at the end + of an Icy interface call. + + The macro ALLOC_CHECK performs malloc/free test. If used, the macro + should exists at the end of any routine using these memory management + routines. + + Prototypes in this file: + + alloc_count + alloc_SpiceString_C_array + alloc_SpiceString_C_Copy_array + alloc_SpiceDouble_C_array + alloc_SpiceInt_C_array + alloc_SpiceBoolean_C_array + alloc_SpiceString + alloc_SpiceString_Pointer_array + free_SpiceString_C_array + alloc_SpiceMemory + free_SpiceMemory + + Macro definitions in this file: + + ALLOC_CHECK + ALLOC_CHECK_INTRA + +-Examples + + None. + +-Restrictions + + None. + +-Literature_References + + None. + +-Author_and_Institution + + B.V. Semenov (JPL) + E.D. Wright (JPL) + +-Version + + -CSPICE Version 1.4.0, 27-JUL-2021 (EDW) (BVS) + + Added macro ALLOC_CHECK_INTRA. + + Added missing header sections. + + -CSPICE Version 1.3.0, 26-AUG-2016 (EDW) + + Added routine alloc_SpiceBoolean_C_array. + + -CSPICE Version 1.0.3, 02-MAY-2008 (EDW) + + Added alloc_count prototype. + + -CSPICE Version 1.0.2, 10-MAY-2007 (EDW) + + Minor edits to clarify 'size' in alloc_SpiceMemory as + size_t. + + -CSPICE Version 1.0.1, 23-JUN-2005 (EDW) + + Add prototype for alloc_SpiceString_Pointer_array, allocate + an array of pointers to SpiceChar. + + -CSPICE Version 1.0.0, 19-DEC-2003 (EDW) + + Initial release. + +*/ + +#ifndef ZZALLOC_H +#define ZZALLOC_H + + /* + Allocation call prototypes: + */ + int alloc_count (); + + SpiceChar ** alloc_SpiceString_C_array ( int string_length, + int string_count ); + + SpiceChar ** alloc_SpiceString_C_Copy_array ( int array_len , + int string_len, + SpiceChar ** array ); + + SpiceDouble * alloc_SpiceDouble_C_array ( int rows, + int cols ); + + SpiceInt * alloc_SpiceInt_C_array ( int rows, + int cols ); + + SpiceBoolean * alloc_SpiceBoolean_C_array ( int rows, + int cols ); + + SpiceChar * alloc_SpiceString ( int length ); + + SpiceChar ** alloc_SpiceString_Pointer_array( int array_len ); + + void free_SpiceString_C_array ( int dim, + SpiceChar ** array ); + + void * alloc_SpiceMemory ( size_t size ); + + void free_SpiceMemory ( void * ptr ); + + + /* + Simple macro to ensure a zero value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK if ( alloc_count() != 0 ) \ + { \ + setmsg_c ( "Malloc/Free count not zero at end of routine." \ + " Malloc count = #."); \ + errint_c ( "#", alloc_count() ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + + + /* + Simple macro to ensure an expected value alloc count at end of routine. + Note, the need to use this macro exists only in those routines + allocating/deallocating memory. + */ +#define ALLOC_CHECK_INTRA(n) if ( alloc_count() != n ) \ + { \ + setmsg_c ( "Malloc/Free count not expected value." \ + " Malloc count = #1, expected count = #2."); \ + errint_c ( "#1", alloc_count() ); \ + errint_c ( "#2", n ); \ + sigerr_c ( "SPICE(MALLOCCOUNT)" ); \ + } + +#endif diff --git a/Src/Celbody/SPICE/cspice/win_x86/include/zzerror.h b/Src/Celbody/SPICE/cspice/win_x86/include/zzerror.h new file mode 100644 index 000000000..3af69f2f4 --- /dev/null +++ b/Src/Celbody/SPICE/cspice/win_x86/include/zzerror.h @@ -0,0 +1,86 @@ +/* + +-Abstract + + The error control routine prototypes for use in CSPICE. + +-Disclaimer + + THIS SOFTWARE AND ANY RELATED MATERIALS WERE CREATED BY THE + CALIFORNIA INSTITUTE OF TECHNOLOGY (CALTECH) UNDER A U.S. + GOVERNMENT CONTRACT WITH THE NATIONAL AERONAUTICS AND SPACE + ADMINISTRATION (NASA). THE SOFTWARE IS TECHNOLOGY AND SOFTWARE + PUBLICLY AVAILABLE UNDER U.S. EXPORT LAWS AND IS PROVIDED "AS-IS" + TO THE RECIPIENT WITHOUT WARRANTY OF ANY KIND, INCLUDING ANY + WARRANTIES OF PERFORMANCE OR MERCHANTABILITY OR FITNESS FOR A + PARTICULAR USE OR PURPOSE (AS SET FORTH IN UNITED STATES UCC + SECTIONS 2312-2313) OR FOR ANY PURPOSE WHATSOEVER, FOR THE + SOFTWARE AND RELATED MATERIALS, HOWEVER USED. + + IN NO EVENT SHALL CALTECH, ITS JET PROPULSION LABORATORY, OR NASA + BE LIABLE FOR ANY DAMAGES AND/OR COSTS, INCLUDING, BUT NOT + LIMITED TO, INCIDENTAL OR CONSEQUENTIAL DAMAGES OF ANY KIND, + INCLUDING ECONOMIC DAMAGE OR INJURY TO PROPERTY AND LOST PROFITS, + REGARDLESS OF WHETHER CALTECH, JPL, OR NASA BE ADVISED, HAVE + REASON TO KNOW, OR, IN FACT, SHALL KNOW OF THE POSSIBILITY. + + RECIPIENT BEARS ALL RISK RELATING TO QUALITY AND PERFORMANCE OF + THE SOFTWARE AND ANY RELATED MATERIALS, AND AGREES TO INDEMNIFY + CALTECH AND NASA FOR ALL THIRD-PARTY CLAIMS RESULTING FROM THE + ACTIONS OF RECIPIENT IN THE USE OF THE SOFTWARE. + +-Particulars + + Routines prototyped in this file: + + zzerrorinit + zzerror + +-Examples + + See the examples section in zzerror() and zzerrorinit(). + +-Restrictions + + None. + +-Exceptions + + None. + +-Files + + None. + +-Author_and_Institution + + E. D. Wright (JPL) + +-Literature_References + + None. + +-Version + + -CSPICE 1.1.0 14-JAN-2013 (EDW) + + Added parameter: + + SCALAR_OP + + -CSPICE 1.0.0 17-OCT-2005 (EDW) + + Initial release. + +*/ + +#ifndef ZZERROR_H +#define ZZERROR_H + + const char * zzerror( long cnt ); + void zzerrorinit(); + + #define SCALAR_OP -1 + +#endif + diff --git a/Src/Celbody/SPICE/cspice/win_x86/lib/cspice.lib b/Src/Celbody/SPICE/cspice/win_x86/lib/cspice.lib new file mode 100644 index 000000000..db7396792 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/win_x86/lib/cspice.lib differ diff --git a/Src/Celbody/SPICE/cspice/win_x86/lib/csupport.lib b/Src/Celbody/SPICE/cspice/win_x86/lib/csupport.lib new file mode 100644 index 000000000..24e381dc0 Binary files /dev/null and b/Src/Celbody/SPICE/cspice/win_x86/lib/csupport.lib differ diff --git a/Src/Celbody/SPICE/spice.cpp b/Src/Celbody/SPICE/spice.cpp new file mode 100644 index 000000000..940f2a15e --- /dev/null +++ b/Src/Celbody/SPICE/spice.cpp @@ -0,0 +1,742 @@ +// Copyright(c) Alex Frost +// Licensed under the MIT License + +//#pragma warning( disable : 6067 ) + +#define STRICT +#define ORBITER_MODULE +#include +#include +#include +#include +#include "Orbitersdk.h" +#include "SpiceUsr.h" + +using namespace std; + +static set loaded_kernels; + +#define DONT_ALLOW_EXECUTION_OUTSIDE_KERNEL_DATE_RANGE + +bool load_kernel(const string& kernel_name) +{ + char s[1024]; + if (loaded_kernels.find(kernel_name) != loaded_kernels.end()) + return true; + furnsh_c(kernel_name.c_str()); + if (failed_c()) + { + getmsg_c("long", sizeof(s), s); + reset_c(); + return false; + } + sprintf_s(s, 1024, "spice.dll: Kernel %s - OK.", kernel_name.c_str()); + loaded_kernels.insert(kernel_name); + oapiWriteLog(s); + return true; +} + +bool get_id(char* name, int* id) +{ + SpiceInt spiceID = 0; + SpiceBoolean found = SPICEFALSE; + if (strlen(name) > 0) + { + bodn2c_c(name, &spiceID, &found); + if (found) + { + *id = (int)spiceID; + } + else + { + long spiceIDlng; + if (sscanf_s(name, " %ld", &spiceIDlng) == 1) + { + *id = (int)spiceIDlng; + found = SPICETRUE; + } + } + } + return found == SPICETRUE; +} + +class SpiceBody : public CELBODY2 +{ +public: + SpiceBody(OBJHANDLE hCBody); + bool bEphemeris() const; + void clbkInit(FILEHANDLE cfg); + int clbkEphemeris(double mjd, int req, double* ret); + int clbkFastEphemeris(double simt, int req, double* ret); + bool clbkAtmParam(double alt, ATMPARAM* prm); + + inline bool LegacyAtmosphereInterface() const + { + return false; + }; + + inline ATMOSPHERE* GetAtmosphere() const + { + return atm; + }; + + void SpiceBody::show_error(char* s); + +private: + char body_name[256]; + char origin_name[256]; + char bary_name[256]; + char parent_bary_name[256]; + double kernel_begin = 0.0; + double kernel_end = 0.0; + int body_id = 0; + int origin_id = 0; + int bary_id = 0; + int parent_bary_id = 0; + bool error = false; + double elts_begin[8]; + double elts_end[8]; + double elts_sys_begin[8]; + double elts_sys_end[8]; + void SpiceBody::Interpolate(double simt, double* r); + double interval; + int response = -1; + int prev_response = -1; + double t_beg = -1.0e99; + double t_end = -1.0e99; + double sp_beg[12]; + double sp_end[12]; + double SpiceBody::calc_gm(double* state1, double* state2, double dt); + double gm, gm_sys; +}; + +void SpiceBody::show_error(char* s) +{ + oapiWriteLog(s); + error = true; +} + +SpiceBody::SpiceBody(OBJHANDLE hCBody) : CELBODY2(hCBody) +{ + // add constructor code here + version = 2; + kernel_begin = 0.0; + kernel_end = 0.0; + error = false; + atm = NULL; + body_id = 0; + origin_id = 0; + bary_id = 0; + parent_bary_id = 0; + gm = 0.0; + gm_sys = 0.0; +} + +bool SpiceBody::bEphemeris() const +{ + // class supports ephemeris calculation + return !error; +} + +void trimspaces(string& str) +{ + size_t startpos = str.find_first_not_of(" \t\r\n;,"); + size_t endpos = str.find_last_not_of(" \t\r\n;,"); + if ((string::npos == startpos) || (string::npos == endpos)) + { + str = ""; + } + else + str = str.substr(startpos, endpos - startpos + 1); +} + +int stringsplit(string str, const string delim, vector& results) +{ + int cutAt; + int cnt = 0; + while ((cutAt = str.find_first_of(delim)) != str.npos) + { + if (cutAt > 0) + { + results.push_back(str.substr(0, cutAt)); + cnt++; + } + str = str.substr(cutAt + 1); + } + trimspaces(str); + if (str.length() > 0) + { + results.push_back(str); + cnt++; + } + return cnt; +} + +void SpiceBody::clbkInit(FILEHANDLE cfg) +{ + // read parameters from config file (e.g. tolerance limits, etc) + // perform any required initialisation (e.g. read perturbation terms from data files) + char s[256]; + vector kernels; + bool default_interval = true; + + // old atmosphere! + if (oapiReadItem_string(cfg, "Module_Atm", s)) + { + // oapiWriteLog(s); + if (!LoadAtmosphereModule(s)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Module_Atm is wrong!", cfg); + show_error(s); + return; + }; + // if (atm==NULL) oapiWriteLog("NULL atm"); + }; + + if (!oapiReadItem_string(cfg, "Kernel", s)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - No kernel file specified!", cfg); + show_error(s); + exit(1); + return; + } + + if (!stringsplit(s, ",", kernels)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Kernel parameter is wrong or misformatted!", cfg); + show_error(s); + exit(1); + return; + } + + if (!oapiReadItem_string(cfg, "Body", body_name)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Not specified: Body!", cfg); + show_error(s); + exit(1); + return; + } + + if (!oapiReadItem_string(cfg, "Barycenter", bary_name)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Not specified: Barycenter!", cfg); + show_error(s); + exit(1); + return; + } + + if (!oapiReadItem_float(cfg, "Interval", interval)) + { + interval = 60.0; + } + + if (!oapiReadItem_string(cfg, "ParentBarycenter", parent_bary_name)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Not specified: ParentBarycenter!", cfg); + show_error(s); + exit(1); + return; + } + + if (!get_id(parent_bary_name, &parent_bary_id)) + { + sprintf_s(s, 256, "spice.dll: Couldn't find SPICE ID for %s", parent_bary_name); + show_error(s); + exit(1); + return; + } + + if (!oapiReadItem_string(cfg, "Origin", origin_name)) + { + sprintf_s(s, 256, "spice.dll: Error in %s - Not specified: Origin!", cfg); + show_error(s); + exit(1); + return; + } + + if (!oapiReadItem_float(cfg, "GM", gm)) + { + gm = -1.0; + } + + if (!oapiReadItem_float(cfg, "GMSystem", gm_sys)) + { + gm_sys = -1.0; + } + + + if (oapiReadItem_float(cfg, "Beginning", kernel_begin)) + { + kernel_begin = (kernel_begin - 51544.5) * 86400.0; + if (oapiReadItem_float(cfg, "Ending", kernel_end)) + { + kernel_end = (kernel_end - 51544.5) * 86400.0; + if (kernel_end > kernel_begin) + default_interval = false; + } + } + + for (vector::iterator i = kernels.begin(); i != kernels.end(); i++) + { + trimspaces(*i); + if (!load_kernel(*i)) + { + sprintf_s(s, 256, "spice.dll: Couldn't load kernel: %s", (*i).c_str()); + show_error(s); + exit(1); + return; + } + } + + if (!get_id(body_name, &body_id)) + { + sprintf_s(s, 256, "spice.dll: Couldn't find SPICE ID for %s", body_name); + show_error(s); + exit(1); + return; + } + + if (!get_id(origin_name, &origin_id)) + { + sprintf_s(s, 256, "spice.dll: Couldn't find SPICE ID for %s", origin_name); + show_error(s); + exit(1); + return; + } + + if (!get_id(bary_name, &bary_id)) + { + sprintf_s(s, 256, "spice.dll: Couldn't find SPICE ID for %s", bary_name); + show_error(s); + exit(1); + return; + } + + SpiceInt spkCount = 0; + ktotal_c("spk", &spkCount); + const int MaxIntervals = 10; + SPICEDOUBLE_CELL(targetCoverage, MaxIntervals * 2); + scard_c(0, &targetCoverage); + for (SpiceInt i = 0; i < spkCount; i++) + { + SpiceChar filename[512]; + SpiceChar filetype[32]; + SpiceChar source[256]; + SpiceInt handle; + SpiceBoolean found; + kdata_c(i, "spk", sizeof(filename), sizeof(filetype), sizeof(source), filename, filetype, source, &handle, &found); + if (body_id != 0) + { + spkcov_c(filename, body_id, &targetCoverage); + } + } + + SpiceInt nIntervals = card_c(&targetCoverage) / 2; + if (nIntervals <= 0 && body_id != 0) + { + sprintf_s(s, 256, "spice.dll: Couldn't find object %s in SPICE kernel pool!", body_name); + show_error(s); + if (failed_c()) + { + reset_c(); + } + return; + } + + if (default_interval) + { + if (body_id == 0) + { + kernel_begin = -1.0e50; + kernel_end = +1.0e50; + } + else + { + wnfetd_c(&targetCoverage, 0, &kernel_begin, &kernel_end); + kernel_begin += 0.001; + kernel_end -= 0.001; + } + } + else + { + kernel_begin += 0.001; + kernel_end -= 0.001; + if (body_id != 0 && !wnincd_c(kernel_begin, kernel_end, &targetCoverage)) + { + sprintf_s(s, 256, "spice.dll: Specified time interval for target %s not available.", body_name); + show_error(s); + exit(1); + return; + } + } + + double state1[6]; + double state2[6]; + double lt = 0.0; + double dt = 10; + + if (body_id != 10) + { + spkgeo_c(bary_id, kernel_begin, "ECLIPJ2000", parent_bary_id, state1, <); + if (gm <= 0.0) { + spkgeo_c(bary_id, kernel_begin + dt, "ECLIPJ2000", parent_bary_id, state2, <); + gm = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_begin, gm, elts_begin); + + spkgeo_c(bary_id, kernel_end, "ECLIPJ2000", parent_bary_id, state1, <); + if (gm <= 0.0) { + spkgeo_c(bary_id, kernel_end - dt, "ECLIPJ2000", parent_bary_id, state2, <); + gm = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_end, gm, elts_end); + + if (body_id != bary_id) + { + spkgeo_c(body_id, kernel_begin, "ECLIPJ2000", bary_id, state1, <); + if (gm_sys <= 0.0) { + spkgeo_c(body_id, kernel_begin + dt, "ECLIPJ2000", bary_id, state2, <); + gm_sys = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_begin, gm_sys, elts_sys_begin); + + spkgeo_c(body_id, kernel_end, "ECLIPJ2000", bary_id, state1, <); + if (gm_sys <= 0.0) { + spkgeo_c(body_id, kernel_end - dt, "ECLIPJ2000", bary_id, state2, <); + gm_sys = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_end, gm_sys, elts_sys_end); + } + } + else + { + spkgeo_c(body_id, kernel_begin, "ECLIPJ2000", 0, state1, <); + if (gm <= 0.0) { + spkgeo_c(body_id, kernel_begin + dt, "ECLIPJ2000", 0, state2, <); + gm = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_begin, gm, elts_begin); + + spkgeo_c(body_id, kernel_end, "ECLIPJ2000", 0, state1, <); + if (gm <= 0.0) { + spkgeo_c(body_id, kernel_end - dt, "ECLIPJ2000", 0, state2, <); + gm = calc_gm(state1, state2, dt); + } + oscelt_c(state1, kernel_end - dt, gm, elts_end); + } + + if (failed_c()) + { + char errMsg[1024]; + getmsg_c("long", sizeof(errMsg), errMsg); + show_error(errMsg); + reset_c(); + return; + } + + sprintf_s(s, 256, "spice.dll: %s (MJD %.1f - %.1f) - OK", + body_name, kernel_begin / 86400.0 + 51544.5, kernel_end / 86400.0 + 51544.5); + oapiWriteLog(s); + + // caching + double t0 = (oapiTime2MJD(0) - 51544.5) * 86400.0; + if (t0 < kernel_begin) + t0 = kernel_begin; + double t1 = t0 + 365.0 * 86400.0; + if (t1 > kernel_end) + t1 = kernel_end; + for (double t = t0; t < t1; t += 86400.0) + spkgeo_c(body_id, t, "ECLIPJ2000", origin_id, state1, <); + + CELBODY2::clbkInit(cfg); +} + +bool SpiceBody::clbkAtmParam(double alt, ATMPARAM* prm) +{ + ATMOSPHERE::PRM_IN prm_in; + prm_in.alt = alt; + prm_in.lat = 0.0; + prm_in.lng = 0.0; + prm_in.ap = 0.0; + prm_in.f107 = 0.0; + prm_in.f107bar = 0.0; + prm_in.flag = ATMOSPHERE::PRM_ALT; + ATMOSPHERE::PRM_OUT prm_out; + prm->p = 0.0; + prm->rho = 0.0; + prm->T = 0.0; + if (atm == NULL) + { + // oapiWriteLog("null ATM"); + return false; + }; + bool res = atm->clbkParams(&prm_in, &prm_out); + if (!res) + oapiWriteLog("false ATM"); + prm->p = prm_out.p; + prm->rho = prm_out.rho; + prm->T = prm_out.T; + return res; +} + +int SpiceBody::clbkEphemeris(double mjd, int req, double* r) +{ + // return planet position and velocity for Modified Julian date mjd in ret + double state[6] = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 }; + double* elts; + double lt = 0.0; + int resp = 0; + + if (error) + { + return 0; + } + + r[0] = r[1] = r[2] = r[3] = r[4] = r[5] = r[6] = r[7] = r[8] = r[9] = r[10] = r[11] = 0.0; + + double t = (mjd - 51544.5) * 86400.0; + + if ((t >= kernel_begin) && (t <= kernel_end)) + { + //----------------SPICE------------------------------ + lt = 0.0; + spkgeo_c(body_id, t, "ECLIPJ2000", origin_id, state, <); + if (req & (EPHEM_TRUEPOS | EPHEM_TRUEVEL)) + { + r[6] = r[0] = state[0] * 1000.0; + r[8] = r[2] = state[1] * 1000.0; + r[7] = r[1] = state[2] * 1000.0; + r[9] = r[3] = state[3] * 1000.0; + r[11] = r[5] = state[4] * 1000.0; + r[10] = r[4] = state[5] * 1000.0; + resp |= EPHEM_TRUEPOS | EPHEM_TRUEVEL; + } + if ((body_id != 10) && (req & (EPHEM_BARYPOS | EPHEM_BARYVEL))) + { + resp |= EPHEM_BARYPOS | EPHEM_BARYVEL; + if (bary_id != body_id) + { + // body with sattelits - return TRUEPOS/TRUEVEL/BARYPOS/BARYVEL relative to PARENTBODY + lt = 0.0; + spkgeo_c(bary_id, t, "ECLIPJ2000", origin_id, state, <); + r[6] = state[0] * 1000.0; + r[8] = state[1] * 1000.0; + r[7] = state[2] * 1000.0; + r[9] = state[3] * 1000.0; + r[11] = state[4] * 1000.0; + r[10] = state[5] * 1000.0; + } + else + { + // body without sattelits return TRUEPOS/TRUEVEL = BARYPOS/BARYVEL relative to PARENTBODY + resp |= EPHEM_BARYISTRUE; + } + } + } + else + { + + //Error handeling for allowing conic orbit approximateion outside of the loaded kernels. If not allowed, we want to exit quickly. + char s[512]; + sprintf_s(s, 512, "spice.dll: Scenerio MJD for %s is outside loaded kernel data. Closing Simulation\n\tUse kernel with longer date range or remove %s from sol.cfg", body_name, body_name); + show_error(s); + exit(1); +//This code is disabled as there isn't a good way currently of notifying the user what is happening or the source of errors. +// causing orbiter to close will at least make people look at the log. +#ifndef DONT_ALLOW_EXECUTION_OUTSIDE_KERNEL_DATE_RANGE + // elliptical orbit + if (t < kernel_begin) + { + elts = elts_begin; + } + else + { + elts = elts_end; + } + if ((body_id != bary_id) && (body_id != 10)) + { + // body with sattelites + conics_c(elts, t, state); + r[6] = state[0] * 1000.0; + r[8] = state[1] * 1000.0; + r[7] = state[2] * 1000.0; + r[9] = state[3] * 1000.0; + r[11] = state[4] * 1000.0; + r[10] = state[5] * 1000.0; + resp = EPHEM_BARYPOS | EPHEM_BARYVEL | EPHEM_PARENTBARY; + if (t < kernel_begin) + { + elts = elts_sys_begin; + } + else + { + elts = elts_sys_end; + } + conics_c(elts, t, state); + r[0] = r[6] + state[0] * 1000.0; + r[2] = r[8] + state[1] * 1000.0; + r[1] = r[7] + state[2] * 1000.0; + r[3] = r[9] + state[3] * 1000.0; + r[5] = r[11] + state[4] * 1000.0; + r[4] = r[10] + state[5] * 1000.0; + resp |= EPHEM_TRUEPOS | EPHEM_TRUEVEL; + } + else + { + // body without sattelits - return TRUEPOS/TRUEVEL relative to PARENTBARY + conics_c(elts, t, state); + r[0] = r[6] = state[0] * 1000.0; + r[2] = r[8] = state[1] * 1000.0; + r[1] = r[7] = state[2] * 1000.0; + r[3] = r[9] = state[3] * 1000.0; + r[5] = r[11] = state[4] * 1000.0; + r[4] = r[10] = state[5] * 1000.0; + resp = EPHEM_TRUEPOS | EPHEM_TRUEVEL; + if (body_id != 10) + { + resp |= EPHEM_BARYPOS | EPHEM_BARYVEL | EPHEM_PARENTBARY | EPHEM_BARYISTRUE; + } + } +#endif + } + + if (failed_c()) + { + char errMsg[1024]; + getmsg_c("long", sizeof(errMsg), errMsg); + show_error(errMsg); + reset_c(); + return 0; + } + + return resp; + +} + +int SpiceBody::clbkFastEphemeris(double simt, int req, double* r) +{ + // char s[1024]; + if (error) + return 0; + + if (simt > t_beg && simt <= t_end) + { + Interpolate(simt, r); + // sprintf_s(s, 1024, "I %s;%.8f;%d;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f;%.8f", + // body_name, simt, response, r[0], r[1], r[2], r[3], r[4], r[5], r[6], r[7], r[8], r[9], r[10], r[11]); + // oapiWriteLog(s); + } + else if (simt > t_end && simt <= t_end + interval) + { + t_beg = t_end; + memcpy(sp_beg, sp_end, 12 * sizeof(double)); + t_end = t_beg + interval; + response = clbkEphemeris(oapiTime2MJD(t_end), req, sp_end); + + if (prev_response != response) + { + t_beg = simt; + t_end = simt; + response = clbkEphemeris(oapiTime2MJD(simt), req, r); + memcpy(sp_end, r, 12 * sizeof(double)); + } + else + { + Interpolate(simt, r); + } + } + else + { + t_beg = simt; + t_end = simt; + response = clbkEphemeris(oapiTime2MJD(simt), req, r); + memcpy(sp_end, r, 12 * sizeof(double)); + } + + prev_response = response; + + return response; +} + +void SpiceBody::Interpolate(double simt, double* r) +{ + double tT = (simt - t_beg) / interval; + double tT2 = tT * tT; + double tT3 = tT * tT * tT; + double p1 = 2 * tT3 - 3 * tT2 + 1; + double p2 = (tT3 - 2 * tT2 + tT) * interval; + double p3 = 3 * tT2 - 2 * tT3; + double p4 = (tT3 - tT2) * interval; + double v1 = (6 * tT2 - 6 * tT) / interval; + double v2 = 3 * tT2 - 4 * tT + 1; + double v3 = (6 * tT - 6 * tT2) / interval; + double v4 = 3 * tT2 - 2 * tT; + + for (int i = 0; i < 3; ++i) + { + r[i] = p1 * sp_beg[i] + p2 * sp_beg[i + 3] + p3 * sp_end[i] + p4 * sp_end[i + 3]; + r[i + 3] = v1 * sp_beg[i] + v2 * sp_beg[i + 3] + v3 * sp_end[i] + v4 * sp_end[i + 3]; + if (response & (EPHEM_BARYPOS | EPHEM_BARYVEL) && !(response & EPHEM_BARYISTRUE)) + { + r[i + 6] = p1 * sp_beg[i + 6] + p2 * sp_beg[i + 9] + p3 * sp_end[i + 6] + p4 * sp_end[i + 9]; + r[i + 9] = v1 * sp_beg[i + 6] + v2 * sp_beg[i + 9] + v3 * sp_end[i + 6] + v4 * sp_end[i + 9]; + } + else + { + r[i + 6] = r[i]; + r[i + 9] = r[i + 3]; + } + } +} + +double SpiceBody::calc_gm(double* state1, double* state2, double dt) +{ + double g = 0.0; + double r1 = 0.0; + double r2 = 0.0; + double state_diff[6]; + int i; + + for (i = 0; i < 6; ++i) + { + state_diff[i] = state2[i] - state1[i]; + } + + for (i = 0; i < 3; ++i) + { + g += state_diff[i + 3] * state_diff[i + 3]; + r1 += state1[i] * state1[i]; + r2 += state2[i] * state2[i]; + } + + r1 = sqrt(r1); + r2 = sqrt(r2); + r1 = (r1 + r2) / 2.0; + g = sqrt(g) / dt * r1 * r1; + return g; +} + +DLLCLBK void InitModule(HINSTANCE hModule) +{ + // module initialisation + loaded_kernels.clear(); + remove("SPICE.ERR"); + errdev_c("SET", 1024, "SPICE.ERR"); + errprt_c("SET", 1024, "ALL"); + erract_c("SET", 1024, "REPORT"); + trcoff_c(); +} +DLLCLBK void ExitModule(HINSTANCE hModule) +{ + // module cleanup +} +DLLCLBK CELBODY* InitInstance(OBJHANDLE hBody) +{ + // instance initialisation + return new SpiceBody(hBody); +} +DLLCLBK void ExitInstance(CELBODY* body) +{ + // instance cleanup + delete (SpiceBody*)body; +} diff --git a/Textures/Charon.tex b/Textures/Charon.tex new file mode 100644 index 000000000..7614bcf12 Binary files /dev/null and b/Textures/Charon.tex differ diff --git a/Textures/CharonM.bmp b/Textures/CharonM.bmp new file mode 100644 index 000000000..15c05ff88 Binary files /dev/null and b/Textures/CharonM.bmp differ diff --git a/Textures/HydraM.bmp b/Textures/HydraM.bmp new file mode 100644 index 000000000..20d1ed772 Binary files /dev/null and b/Textures/HydraM.bmp differ diff --git a/Textures/NixM.bmp b/Textures/NixM.bmp new file mode 100644 index 000000000..f19a6e018 Binary files /dev/null and b/Textures/NixM.bmp differ diff --git a/Textures/Pluto.tex b/Textures/Pluto.tex new file mode 100644 index 000000000..be6446326 Binary files /dev/null and b/Textures/Pluto.tex differ diff --git a/Textures/PlutoM.bmp b/Textures/PlutoM.bmp new file mode 100644 index 000000000..1149d437d Binary files /dev/null and b/Textures/PlutoM.bmp differ diff --git a/Textures/hydra.dds b/Textures/hydra.dds new file mode 100644 index 000000000..2cc122787 Binary files /dev/null and b/Textures/hydra.dds differ diff --git a/Textures/nix.dds b/Textures/nix.dds new file mode 100644 index 000000000..a97e18344 Binary files /dev/null and b/Textures/nix.dds differ