开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 图形图像 > OpenGL > 查看源码
SpiceZfc.h
资源名称：celestia-1.6.0.tar.gz　[点击查看]
上传用户：center1979
上传日期：2022-07-26
资源大小：50633k
文件大小：433k
源码类别：

OpenGL

开发平台：

Visual C++

SpiceZfc.h：源码内容
  1. /*:ref: errch_ 14 4 13 13 124 124 */
  2. /*:ref: sigerr_ 14 2 13 124 */
  3. /*:ref: chkout_ 14 2 13 124 */
  4. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  5. /*:ref: spkssb_ 14 5 4 7 13 7 124 */
  6. /*:ref: spkapo_ 14 9 4 7 13 7 13 7 7 124 124 */
  7. /*:ref: failed_ 12 0 */
  8. /*:ref: refchg_ 14 4 4 4 7 7 */
  9. /*:ref: mxv_ 14 3 7 7 7 */
  10.  
  11. 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);
  12. /*:ref: return_ 12 0 */
  13. /*:ref: chkin_ 14 2 13 124 */
  14. /*:ref: zzbodn2c_ 14 4 13 4 12 124 */
  15. /*:ref: beint_ 12 2 13 124 */
  16. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  17. /*:ref: setmsg_ 14 2 13 124 */
  18. /*:ref: errch_ 14 4 13 13 124 124 */
  19. /*:ref: sigerr_ 14 2 13 124 */
  20. /*:ref: chkout_ 14 2 13 124 */
  21. /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
  22.  
  23. extern int spkgeo_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
  24. /*:ref: return_ 12 0 */
  25. /*:ref: chkin_ 14 2 13 124 */
  26. /*:ref: cleard_ 14 2 4 7 */
  27. /*:ref: chkout_ 14 2 13 124 */
  28. /*:ref: irfnum_ 14 3 13 4 124 */
  29. /*:ref: namfrm_ 14 3 13 4 124 */
  30. /*:ref: frstnp_ 4 2 13 124 */
  31. /*:ref: setmsg_ 14 2 13 124 */
  32. /*:ref: errch_ 14 4 13 13 124 124 */
  33. /*:ref: sigerr_ 14 2 13 124 */
  34. /*:ref: failed_ 12 0 */
  35. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  36. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  37. /*:ref: moved_ 14 3 7 4 7 */
  38. /*:ref: irfrot_ 14 3 4 4 7 */
  39. /*:ref: mxv_ 14 3 7 7 7 */
  40. /*:ref: frmchg_ 14 4 4 4 7 7 */
  41. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  42. /*:ref: vaddg_ 14 4 7 7 4 7 */
  43. /*:ref: isrchi_ 4 3 4 4 4 */
  44. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  45. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  46. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  47. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  48. /*:ref: intstr_ 14 3 4 13 124 */
  49. /*:ref: etcal_ 14 3 7 13 124 */
  50. /*:ref: vsubg_ 14 4 7 7 4 7 */
  51. /*:ref: vnorm_ 7 1 7 */
  52. /*:ref: clight_ 7 0 */
  53.  
  54. extern int spkgps_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
  55. /*:ref: return_ 12 0 */
  56. /*:ref: chkin_ 14 2 13 124 */
  57. /*:ref: cleard_ 14 2 4 7 */
  58. /*:ref: chkout_ 14 2 13 124 */
  59. /*:ref: irfnum_ 14 3 13 4 124 */
  60. /*:ref: namfrm_ 14 3 13 4 124 */
  61. /*:ref: frstnp_ 4 2 13 124 */
  62. /*:ref: setmsg_ 14 2 13 124 */
  63. /*:ref: errch_ 14 4 13 13 124 124 */
  64. /*:ref: sigerr_ 14 2 13 124 */
  65. /*:ref: failed_ 12 0 */
  66. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  67. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  68. /*:ref: moved_ 14 3 7 4 7 */
  69. /*:ref: irfrot_ 14 3 4 4 7 */
  70. /*:ref: mxv_ 14 3 7 7 7 */
  71. /*:ref: refchg_ 14 4 4 4 7 7 */
  72. /*:ref: vadd_ 14 3 7 7 7 */
  73. /*:ref: vequ_ 14 2 7 7 */
  74. /*:ref: isrchi_ 4 3 4 4 4 */
  75. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  76. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  77. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  78. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  79. /*:ref: intstr_ 14 3 4 13 124 */
  80. /*:ref: etcal_ 14 3 7 13 124 */
  81. /*:ref: vsub_ 14 3 7 7 7 */
  82. /*:ref: vnorm_ 7 1 7 */
  83. /*:ref: clight_ 7 0 */
  84.  
  85. extern int spkobj_(char *spk, integer *ids, ftnlen spk_len);
  86. /*:ref: return_ 12 0 */
  87. /*:ref: chkin_ 14 2 13 124 */
  88. /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
  89. /*:ref: setmsg_ 14 2 13 124 */
  90. /*:ref: errch_ 14 4 13 13 124 124 */
  91. /*:ref: sigerr_ 14 2 13 124 */
  92. /*:ref: chkout_ 14 2 13 124 */
  93. /*:ref: dafopr_ 14 3 13 4 124 */
  94. /*:ref: failed_ 12 0 */
  95. /*:ref: dafbfs_ 14 1 4 */
  96. /*:ref: daffna_ 14 1 12 */
  97. /*:ref: dafgs_ 14 1 7 */
  98. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  99. /*:ref: insrti_ 14 2 4 4 */
  100. /*:ref: dafcls_ 14 1 4 */
  101.  
  102. extern int spkopa_(char *file, integer *handle, ftnlen file_len);
  103. /*:ref: return_ 12 0 */
  104. /*:ref: chkin_ 14 2 13 124 */
  105. /*:ref: exists_ 12 2 13 124 */
  106. /*:ref: setmsg_ 14 2 13 124 */
  107. /*:ref: errch_ 14 4 13 13 124 124 */
  108. /*:ref: sigerr_ 14 2 13 124 */
  109. /*:ref: chkout_ 14 2 13 124 */
  110. /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
  111. /*:ref: failed_ 12 0 */
  112. /*:ref: dafopw_ 14 3 13 4 124 */
  113.  
  114. extern int spkopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len);
  115. /*:ref: return_ 12 0 */
  116. /*:ref: chkin_ 14 2 13 124 */
  117. /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
  118. /*:ref: failed_ 12 0 */
  119. /*:ref: chkout_ 14 2 13 124 */
  120.  
  121. extern int spkpds_(integer *body, integer *center, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len);
  122. /*:ref: return_ 12 0 */
  123. /*:ref: chkin_ 14 2 13 124 */
  124. /*:ref: setmsg_ 14 2 13 124 */
  125. /*:ref: sigerr_ 14 2 13 124 */
  126. /*:ref: chkout_ 14 2 13 124 */
  127. /*:ref: errint_ 14 3 13 4 124 */
  128. /*:ref: namfrm_ 14 3 13 4 124 */
  129. /*:ref: errch_ 14 4 13 13 124 124 */
  130. /*:ref: etcal_ 14 3 7 13 124 */
  131. /*:ref: errdp_ 14 3 13 7 124 */
  132. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  133.  
  134. 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);
  135. /*:ref: return_ 12 0 */
  136. /*:ref: chkin_ 14 2 13 124 */
  137. /*:ref: zzbodn2c_ 14 4 13 4 12 124 */
  138. /*:ref: beint_ 12 2 13 124 */
  139. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  140. /*:ref: setmsg_ 14 2 13 124 */
  141. /*:ref: errch_ 14 4 13 13 124 124 */
  142. /*:ref: sigerr_ 14 2 13 124 */
  143. /*:ref: chkout_ 14 2 13 124 */
  144. /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
  145.  
  146. extern int spkpv_(integer *handle, doublereal *descr, doublereal *et, char *ref, doublereal *state, integer *center, ftnlen ref_len);
  147. /*:ref: return_ 12 0 */
  148. /*:ref: chkin_ 14 2 13 124 */
  149. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  150. /*:ref: namfrm_ 14 3 13 4 124 */
  151. /*:ref: setmsg_ 14 2 13 124 */
  152. /*:ref: errch_ 14 4 13 13 124 124 */
  153. /*:ref: sigerr_ 14 2 13 124 */
  154. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  155. /*:ref: frmchg_ 14 4 4 4 7 7 */
  156. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  157. /*:ref: chkout_ 14 2 13 124 */
  158.  
  159. extern int spkpvn_(integer *handle, doublereal *descr, doublereal *et, integer *ref, doublereal *state, integer *center);
  160. /*:ref: return_ 12 0 */
  161. /*:ref: chkin_ 14 2 13 124 */
  162. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  163. /*:ref: spkr01_ 14 4 4 7 7 7 */
  164. /*:ref: spke01_ 14 3 7 7 7 */
  165. /*:ref: spkr02_ 14 4 4 7 7 7 */
  166. /*:ref: spke02_ 14 3 7 7 7 */
  167. /*:ref: spkr03_ 14 4 4 7 7 7 */
  168. /*:ref: spke03_ 14 3 7 7 7 */
  169. /*:ref: spkr05_ 14 4 4 7 7 7 */
  170. /*:ref: spke05_ 14 3 7 7 7 */
  171. /*:ref: spkr08_ 14 4 4 7 7 7 */
  172. /*:ref: spke08_ 14 3 7 7 7 */
  173. /*:ref: spkr09_ 14 4 4 7 7 7 */
  174. /*:ref: spke09_ 14 3 7 7 7 */
  175. /*:ref: spkr10_ 14 4 4 7 7 7 */
  176. /*:ref: spke10_ 14 3 7 7 7 */
  177. /*:ref: spkr12_ 14 4 4 7 7 7 */
  178. /*:ref: spke12_ 14 3 7 7 7 */
  179. /*:ref: spkr13_ 14 4 4 7 7 7 */
  180. /*:ref: spke13_ 14 3 7 7 7 */
  181. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  182. /*:ref: failed_ 12 0 */
  183. /*:ref: chkout_ 14 2 13 124 */
  184. /*:ref: setmsg_ 14 2 13 124 */
  185. /*:ref: errint_ 14 3 13 4 124 */
  186. /*:ref: sigerr_ 14 2 13 124 */
  187. /*:ref: spkr14_ 14 4 4 7 7 7 */
  188. /*:ref: spke14_ 14 3 7 7 7 */
  189. /*:ref: spkr15_ 14 4 4 7 7 7 */
  190. /*:ref: spke15_ 14 3 7 7 7 */
  191. /*:ref: spkr17_ 14 4 4 7 7 7 */
  192. /*:ref: spke17_ 14 3 7 7 7 */
  193. /*:ref: spkr18_ 14 4 4 7 7 7 */
  194. /*:ref: spke18_ 14 3 7 7 7 */
  195.  
  196. extern int spkr01_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  197. /*:ref: return_ 12 0 */
  198. /*:ref: chkin_ 14 2 13 124 */
  199. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  200. /*:ref: dafgda_ 14 4 4 4 4 7 */
  201. /*:ref: lstltd_ 4 3 7 4 7 */
  202. /*:ref: chkout_ 14 2 13 124 */
  203.  
  204. extern int spkr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  205. /*:ref: return_ 12 0 */
  206. /*:ref: chkin_ 14 2 13 124 */
  207. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  208. /*:ref: dafgda_ 14 4 4 4 4 7 */
  209. /*:ref: chkout_ 14 2 13 124 */
  210.  
  211. extern int spkr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  212. /*:ref: return_ 12 0 */
  213. /*:ref: chkin_ 14 2 13 124 */
  214. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  215. /*:ref: dafgda_ 14 4 4 4 4 7 */
  216. /*:ref: chkout_ 14 2 13 124 */
  217.  
  218. extern int spkr05_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  219. /*:ref: return_ 12 0 */
  220. /*:ref: chkin_ 14 2 13 124 */
  221. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  222. /*:ref: setmsg_ 14 2 13 124 */
  223. /*:ref: errint_ 14 3 13 4 124 */
  224. /*:ref: sigerr_ 14 2 13 124 */
  225. /*:ref: chkout_ 14 2 13 124 */
  226. /*:ref: dafgda_ 14 4 4 4 4 7 */
  227. /*:ref: lstltd_ 4 3 7 4 7 */
  228. /*:ref: moved_ 14 3 7 4 7 */
  229.  
  230. extern int spkr08_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  231. /*:ref: return_ 12 0 */
  232. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  233. /*:ref: chkin_ 14 2 13 124 */
  234. /*:ref: setmsg_ 14 2 13 124 */
  235. /*:ref: errint_ 14 3 13 4 124 */
  236. /*:ref: sigerr_ 14 2 13 124 */
  237. /*:ref: chkout_ 14 2 13 124 */
  238. /*:ref: errdp_ 14 3 13 7 124 */
  239. /*:ref: dafgda_ 14 4 4 4 4 7 */
  240. /*:ref: odd_ 12 1 4 */
  241.  
  242. extern int spkr09_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  243. /*:ref: return_ 12 0 */
  244. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  245. /*:ref: chkin_ 14 2 13 124 */
  246. /*:ref: setmsg_ 14 2 13 124 */
  247. /*:ref: errint_ 14 3 13 4 124 */
  248. /*:ref: sigerr_ 14 2 13 124 */
  249. /*:ref: chkout_ 14 2 13 124 */
  250. /*:ref: errdp_ 14 3 13 7 124 */
  251. /*:ref: dafgda_ 14 4 4 4 4 7 */
  252. /*:ref: lstltd_ 4 3 7 4 7 */
  253. /*:ref: odd_ 12 1 4 */
  254.  
  255. extern int spkr10_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  256. /*:ref: return_ 12 0 */
  257. /*:ref: chkin_ 14 2 13 124 */
  258. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  259. /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
  260. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  261. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  262. /*:ref: moved_ 14 3 7 4 7 */
  263. /*:ref: chkout_ 14 2 13 124 */
  264.  
  265. extern int spkr12_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  266. /*:ref: return_ 12 0 */
  267. /*:ref: chkin_ 14 2 13 124 */
  268. /*:ref: spkr08_ 14 4 4 7 7 7 */
  269. /*:ref: chkout_ 14 2 13 124 */
  270.  
  271. extern int spkr13_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  272. /*:ref: return_ 12 0 */
  273. /*:ref: chkin_ 14 2 13 124 */
  274. /*:ref: spkr09_ 14 4 4 7 7 7 */
  275. /*:ref: chkout_ 14 2 13 124 */
  276.  
  277. extern int spkr14_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  278. /*:ref: return_ 12 0 */
  279. /*:ref: chkin_ 14 2 13 124 */
  280. /*:ref: setmsg_ 14 2 13 124 */
  281. /*:ref: errdp_ 14 3 13 7 124 */
  282. /*:ref: sigerr_ 14 2 13 124 */
  283. /*:ref: chkout_ 14 2 13 124 */
  284. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  285. /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
  286. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  287.  
  288. extern int spkr15_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  289. /*:ref: return_ 12 0 */
  290. /*:ref: chkin_ 14 2 13 124 */
  291. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  292. /*:ref: setmsg_ 14 2 13 124 */
  293. /*:ref: errint_ 14 3 13 4 124 */
  294. /*:ref: sigerr_ 14 2 13 124 */
  295. /*:ref: chkout_ 14 2 13 124 */
  296. /*:ref: dafgda_ 14 4 4 4 4 7 */
  297.  
  298. extern int spkr17_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  299. /*:ref: return_ 12 0 */
  300. /*:ref: chkin_ 14 2 13 124 */
  301. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  302. /*:ref: setmsg_ 14 2 13 124 */
  303. /*:ref: errint_ 14 3 13 4 124 */
  304. /*:ref: sigerr_ 14 2 13 124 */
  305. /*:ref: chkout_ 14 2 13 124 */
  306. /*:ref: dafgda_ 14 4 4 4 4 7 */
  307.  
  308. extern int spkr18_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  309. /*:ref: return_ 12 0 */
  310. /*:ref: chkin_ 14 2 13 124 */
  311. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  312. /*:ref: setmsg_ 14 2 13 124 */
  313. /*:ref: errint_ 14 3 13 4 124 */
  314. /*:ref: sigerr_ 14 2 13 124 */
  315. /*:ref: chkout_ 14 2 13 124 */
  316. /*:ref: errdp_ 14 3 13 7 124 */
  317. /*:ref: dafgda_ 14 4 4 4 4 7 */
  318. /*:ref: failed_ 12 0 */
  319. /*:ref: odd_ 12 1 4 */
  320. /*:ref: lstltd_ 4 3 7 4 7 */
  321.  
  322. extern int spks01_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  323. /*:ref: return_ 12 0 */
  324. /*:ref: chkin_ 14 2 13 124 */
  325. /*:ref: dafgda_ 14 4 4 4 4 7 */
  326. /*:ref: dafada_ 14 2 7 4 */
  327. /*:ref: chkout_ 14 2 13 124 */
  328.  
  329. extern int spks02_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  330. /*:ref: return_ 12 0 */
  331. /*:ref: chkin_ 14 2 13 124 */
  332. /*:ref: dafgda_ 14 4 4 4 4 7 */
  333. /*:ref: dafada_ 14 2 7 4 */
  334. /*:ref: chkout_ 14 2 13 124 */
  335.  
  336. extern int spks03_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  337. /*:ref: return_ 12 0 */
  338. /*:ref: chkin_ 14 2 13 124 */
  339. /*:ref: dafgda_ 14 4 4 4 4 7 */
  340. /*:ref: dafada_ 14 2 7 4 */
  341. /*:ref: chkout_ 14 2 13 124 */
  342.  
  343. extern int spks05_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  344. /*:ref: return_ 12 0 */
  345. /*:ref: chkin_ 14 2 13 124 */
  346. /*:ref: dafgda_ 14 4 4 4 4 7 */
  347. /*:ref: dafada_ 14 2 7 4 */
  348. /*:ref: chkout_ 14 2 13 124 */
  349.  
  350. extern int spks08_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  351. /*:ref: return_ 12 0 */
  352. /*:ref: chkin_ 14 2 13 124 */
  353. /*:ref: dafgda_ 14 4 4 4 4 7 */
  354. /*:ref: chkout_ 14 2 13 124 */
  355. /*:ref: dafada_ 14 2 7 4 */
  356.  
  357. extern int spks09_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  358. /*:ref: return_ 12 0 */
  359. /*:ref: chkin_ 14 2 13 124 */
  360. /*:ref: chkout_ 14 2 13 124 */
  361. /*:ref: dafgda_ 14 4 4 4 4 7 */
  362. /*:ref: dafada_ 14 2 7 4 */
  363.  
  364. extern int spks10_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len);
  365. /*:ref: return_ 12 0 */
  366. /*:ref: chkin_ 14 2 13 124 */
  367. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  368. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  369. /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
  370. /*:ref: failed_ 12 0 */
  371. /*:ref: chkout_ 14 2 13 124 */
  372. /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
  373. /*:ref: etcal_ 14 3 7 13 124 */
  374. /*:ref: setmsg_ 14 2 13 124 */
  375. /*:ref: errch_ 14 4 13 13 124 124 */
  376. /*:ref: sigerr_ 14 2 13 124 */
  377. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  378. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  379. /*:ref: sgfref_ 14 5 4 7 4 4 7 */
  380. /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
  381. /*:ref: sgwes_ 14 1 4 */
  382.  
  383. extern int spks12_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  384. /*:ref: return_ 12 0 */
  385. /*:ref: chkin_ 14 2 13 124 */
  386. /*:ref: spks08_ 14 5 4 4 4 7 7 */
  387. /*:ref: chkout_ 14 2 13 124 */
  388.  
  389. extern int spks13_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  390. /*:ref: return_ 12 0 */
  391. /*:ref: chkin_ 14 2 13 124 */
  392. /*:ref: spks09_ 14 5 4 4 4 7 7 */
  393. /*:ref: chkout_ 14 2 13 124 */
  394.  
  395. extern int spks14_(integer *srchan, doublereal *srcdsc, integer *dsthan, doublereal *dstdsc, char *dstsid, ftnlen dstsid_len);
  396. /*:ref: return_ 12 0 */
  397. /*:ref: chkin_ 14 2 13 124 */
  398. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  399. /*:ref: irfnam_ 14 3 4 13 124 */
  400. /*:ref: failed_ 12 0 */
  401. /*:ref: chkout_ 14 2 13 124 */
  402. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  403. /*:ref: setmsg_ 14 2 13 124 */
  404. /*:ref: errint_ 14 3 13 4 124 */
  405. /*:ref: sigerr_ 14 2 13 124 */
  406. /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
  407. /*:ref: spk14b_ 14 10 4 13 4 4 13 7 7 4 124 124 */
  408. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  409. /*:ref: sgfref_ 14 5 4 7 4 4 7 */
  410. /*:ref: spk14a_ 14 4 4 4 7 7 */
  411. /*:ref: spk14e_ 14 1 4 */
  412.  
  413. extern int spks15_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  414. /*:ref: return_ 12 0 */
  415. /*:ref: chkin_ 14 2 13 124 */
  416. /*:ref: chkout_ 14 2 13 124 */
  417. /*:ref: dafgda_ 14 4 4 4 4 7 */
  418. /*:ref: dafada_ 14 2 7 4 */
  419.  
  420. extern int spks17_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  421. /*:ref: return_ 12 0 */
  422. /*:ref: chkin_ 14 2 13 124 */
  423. /*:ref: chkout_ 14 2 13 124 */
  424. /*:ref: dafgda_ 14 4 4 4 4 7 */
  425. /*:ref: dafada_ 14 2 7 4 */
  426.  
  427. extern int spks18_(integer *handle, integer *baddr, integer *eaddr, doublereal *begin, doublereal *end);
  428. /*:ref: return_ 12 0 */
  429. /*:ref: chkin_ 14 2 13 124 */
  430. /*:ref: chkout_ 14 2 13 124 */
  431. /*:ref: dafgda_ 14 4 4 4 4 7 */
  432. /*:ref: setmsg_ 14 2 13 124 */
  433. /*:ref: errint_ 14 3 13 4 124 */
  434. /*:ref: sigerr_ 14 2 13 124 */
  435. /*:ref: dafada_ 14 2 7 4 */
  436.  
  437. extern int spkssb_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
  438. /*:ref: return_ 12 0 */
  439. /*:ref: chkin_ 14 2 13 124 */
  440. /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
  441. /*:ref: chkout_ 14 2 13 124 */
  442.  
  443. extern int spksub_(integer *handle, doublereal *descr, char *ident, doublereal *begin, doublereal *end, integer *newh, ftnlen ident_len);
  444. /*:ref: return_ 12 0 */
  445. /*:ref: chkin_ 14 2 13 124 */
  446. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  447. /*:ref: setmsg_ 14 2 13 124 */
  448. /*:ref: errdp_ 14 3 13 7 124 */
  449. /*:ref: sigerr_ 14 2 13 124 */
  450. /*:ref: chkout_ 14 2 13 124 */
  451. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  452. /*:ref: dafbna_ 14 4 4 7 13 124 */
  453. /*:ref: spks01_ 14 5 4 4 4 7 7 */
  454. /*:ref: dafena_ 14 0 */
  455. /*:ref: spks02_ 14 5 4 4 4 7 7 */
  456. /*:ref: spks03_ 14 5 4 4 4 7 7 */
  457. /*:ref: spks05_ 14 5 4 4 4 7 7 */
  458. /*:ref: spks08_ 14 5 4 4 4 7 7 */
  459. /*:ref: spks09_ 14 5 4 4 4 7 7 */
  460. /*:ref: spks10_ 14 6 4 7 4 7 13 124 */
  461. /*:ref: spks12_ 14 5 4 4 4 7 7 */
  462. /*:ref: spks13_ 14 5 4 4 4 7 7 */
  463. /*:ref: spks14_ 14 6 4 7 4 7 13 124 */
  464. /*:ref: spks15_ 14 5 4 4 4 7 7 */
  465. /*:ref: spks17_ 14 5 4 4 4 7 7 */
  466. /*:ref: spks18_ 14 5 4 4 4 7 7 */
  467. /*:ref: errint_ 14 3 13 4 124 */
  468.  
  469. extern int spkuds_(doublereal *descr, integer *body, integer *center, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end);
  470. /*:ref: return_ 12 0 */
  471. /*:ref: chkin_ 14 2 13 124 */
  472. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  473. /*:ref: failed_ 12 0 */
  474. /*:ref: chkout_ 14 2 13 124 */
  475.  
  476. 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);
  477. /*:ref: return_ 12 0 */
  478. /*:ref: chkin_ 14 2 13 124 */
  479. /*:ref: namfrm_ 14 3 13 4 124 */
  480. /*:ref: setmsg_ 14 2 13 124 */
  481. /*:ref: errch_ 14 4 13 13 124 124 */
  482. /*:ref: sigerr_ 14 2 13 124 */
  483. /*:ref: chkout_ 14 2 13 124 */
  484. /*:ref: lastnb_ 4 2 13 124 */
  485. /*:ref: errint_ 14 3 13 4 124 */
  486. /*:ref: errdp_ 14 3 13 7 124 */
  487. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  488. /*:ref: dafbna_ 14 4 4 7 13 124 */
  489. /*:ref: failed_ 12 0 */
  490. /*:ref: dafada_ 14 2 7 4 */
  491. /*:ref: dafena_ 14 0 */
  492.  
  493. 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);
  494. /*:ref: return_ 12 0 */
  495. /*:ref: chkin_ 14 2 13 124 */
  496. /*:ref: setmsg_ 14 2 13 124 */
  497. /*:ref: errint_ 14 3 13 4 124 */
  498. /*:ref: sigerr_ 14 2 13 124 */
  499. /*:ref: chkout_ 14 2 13 124 */
  500. /*:ref: errdp_ 14 3 13 7 124 */
  501. /*:ref: irfnum_ 14 3 13 4 124 */
  502. /*:ref: errch_ 14 4 13 13 124 124 */
  503. /*:ref: etcal_ 14 3 7 13 124 */
  504. /*:ref: chckid_ 14 5 13 4 13 124 124 */
  505. /*:ref: failed_ 12 0 */
  506. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  507. /*:ref: dafbna_ 14 4 4 7 13 124 */
  508. /*:ref: dafada_ 14 2 7 4 */
  509. /*:ref: dafena_ 14 0 */
  510.  
  511. 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);
  512. /*:ref: return_ 12 0 */
  513. /*:ref: chkin_ 14 2 13 124 */
  514. /*:ref: setmsg_ 14 2 13 124 */
  515. /*:ref: errint_ 14 3 13 4 124 */
  516. /*:ref: sigerr_ 14 2 13 124 */
  517. /*:ref: chkout_ 14 2 13 124 */
  518. /*:ref: errdp_ 14 3 13 7 124 */
  519. /*:ref: irfnum_ 14 3 13 4 124 */
  520. /*:ref: errch_ 14 4 13 13 124 124 */
  521. /*:ref: etcal_ 14 3 7 13 124 */
  522. /*:ref: chckid_ 14 5 13 4 13 124 124 */
  523. /*:ref: failed_ 12 0 */
  524. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  525. /*:ref: dafbna_ 14 4 4 7 13 124 */
  526. /*:ref: dafada_ 14 2 7 4 */
  527. /*:ref: dafena_ 14 0 */
  528.  
  529. 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);
  530. /*:ref: return_ 12 0 */
  531. /*:ref: chkin_ 14 2 13 124 */
  532. /*:ref: setmsg_ 14 2 13 124 */
  533. /*:ref: errdp_ 14 3 13 7 124 */
  534. /*:ref: sigerr_ 14 2 13 124 */
  535. /*:ref: chkout_ 14 2 13 124 */
  536. /*:ref: irfnum_ 14 3 13 4 124 */
  537. /*:ref: errch_ 14 4 13 13 124 124 */
  538. /*:ref: errint_ 14 3 13 4 124 */
  539. /*:ref: lastnb_ 4 2 13 124 */
  540. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  541. /*:ref: dafbna_ 14 4 4 7 13 124 */
  542. /*:ref: failed_ 12 0 */
  543. /*:ref: dafada_ 14 2 7 4 */
  544. /*:ref: dafena_ 14 0 */
  545.  
  546. extern int spkw08_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epoch1, doublereal *step, ftnlen frame_len, ftnlen segid_len);
  547. /*:ref: return_ 12 0 */
  548. /*:ref: chkin_ 14 2 13 124 */
  549. /*:ref: namfrm_ 14 3 13 4 124 */
  550. /*:ref: setmsg_ 14 2 13 124 */
  551. /*:ref: errch_ 14 4 13 13 124 124 */
  552. /*:ref: sigerr_ 14 2 13 124 */
  553. /*:ref: chkout_ 14 2 13 124 */
  554. /*:ref: lastnb_ 4 2 13 124 */
  555. /*:ref: errint_ 14 3 13 4 124 */
  556. /*:ref: errdp_ 14 3 13 7 124 */
  557. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  558. /*:ref: dafbna_ 14 4 4 7 13 124 */
  559. /*:ref: failed_ 12 0 */
  560. /*:ref: dafada_ 14 2 7 4 */
  561. /*:ref: dafena_ 14 0 */
  562.  
  563. 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);
  564. /*:ref: return_ 12 0 */
  565. /*:ref: chkin_ 14 2 13 124 */
  566. /*:ref: namfrm_ 14 3 13 4 124 */
  567. /*:ref: setmsg_ 14 2 13 124 */
  568. /*:ref: errch_ 14 4 13 13 124 124 */
  569. /*:ref: sigerr_ 14 2 13 124 */
  570. /*:ref: chkout_ 14 2 13 124 */
  571. /*:ref: errdp_ 14 3 13 7 124 */
  572. /*:ref: lastnb_ 4 2 13 124 */
  573. /*:ref: errint_ 14 3 13 4 124 */
  574. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  575. /*:ref: dafbna_ 14 4 4 7 13 124 */
  576. /*:ref: failed_ 12 0 */
  577. /*:ref: dafada_ 14 2 7 4 */
  578. /*:ref: dafena_ 14 0 */
  579.  
  580. 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);
  581. /*:ref: return_ 12 0 */
  582. /*:ref: chkin_ 14 2 13 124 */
  583. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  584. /*:ref: failed_ 12 0 */
  585. /*:ref: chkout_ 14 2 13 124 */
  586. /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
  587. /*:ref: moved_ 14 3 7 4 7 */
  588. /*:ref: zzwahr_ 14 2 7 7 */
  589. /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
  590. /*:ref: sgwes_ 14 1 4 */
  591.  
  592. extern int spkw12_(integer *handle, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, char *segid, integer *degree, integer *n, doublereal *states, doublereal *epoch1, doublereal *step, ftnlen frame_len, ftnlen segid_len);
  593. /*:ref: return_ 12 0 */
  594. /*:ref: chkin_ 14 2 13 124 */
  595. /*:ref: namfrm_ 14 3 13 4 124 */
  596. /*:ref: setmsg_ 14 2 13 124 */
  597. /*:ref: errch_ 14 4 13 13 124 124 */
  598. /*:ref: sigerr_ 14 2 13 124 */
  599. /*:ref: chkout_ 14 2 13 124 */
  600. /*:ref: lastnb_ 4 2 13 124 */
  601. /*:ref: errint_ 14 3 13 4 124 */
  602. /*:ref: even_ 12 1 4 */
  603. /*:ref: errdp_ 14 3 13 7 124 */
  604. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  605. /*:ref: dafbna_ 14 4 4 7 13 124 */
  606. /*:ref: failed_ 12 0 */
  607. /*:ref: dafada_ 14 2 7 4 */
  608. /*:ref: dafena_ 14 0 */
  609.  
  610. 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);
  611. /*:ref: return_ 12 0 */
  612. /*:ref: chkin_ 14 2 13 124 */
  613. /*:ref: namfrm_ 14 3 13 4 124 */
  614. /*:ref: setmsg_ 14 2 13 124 */
  615. /*:ref: errch_ 14 4 13 13 124 124 */
  616. /*:ref: sigerr_ 14 2 13 124 */
  617. /*:ref: chkout_ 14 2 13 124 */
  618. /*:ref: lastnb_ 4 2 13 124 */
  619. /*:ref: errint_ 14 3 13 4 124 */
  620. /*:ref: even_ 12 1 4 */
  621. /*:ref: errdp_ 14 3 13 7 124 */
  622. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  623. /*:ref: dafbna_ 14 4 4 7 13 124 */
  624. /*:ref: failed_ 12 0 */
  625. /*:ref: dafada_ 14 2 7 4 */
  626. /*:ref: dafena_ 14 0 */
  627.  
  628. 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);
  629. /*:ref: return_ 12 0 */
  630. /*:ref: chkin_ 14 2 13 124 */
  631. /*:ref: vequ_ 14 2 7 7 */
  632. /*:ref: setmsg_ 14 2 13 124 */
  633. /*:ref: errdp_ 14 3 13 7 124 */
  634. /*:ref: sigerr_ 14 2 13 124 */
  635. /*:ref: chkout_ 14 2 13 124 */
  636. /*:ref: vzero_ 12 1 7 */
  637. /*:ref: vhat_ 14 2 7 7 */
  638. /*:ref: vdot_ 7 2 7 7 */
  639. /*:ref: vsep_ 7 2 7 7 */
  640. /*:ref: dpr_ 7 0 */
  641. /*:ref: lastnb_ 4 2 13 124 */
  642. /*:ref: errint_ 14 3 13 4 124 */
  643. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  644. /*:ref: failed_ 12 0 */
  645. /*:ref: dafbna_ 14 4 4 7 13 124 */
  646. /*:ref: dafada_ 14 2 7 4 */
  647. /*:ref: dafena_ 14 0 */
  648.  
  649. 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);
  650. /*:ref: return_ 12 0 */
  651. /*:ref: chkin_ 14 2 13 124 */
  652. /*:ref: moved_ 14 3 7 4 7 */
  653. /*:ref: setmsg_ 14 2 13 124 */
  654. /*:ref: errdp_ 14 3 13 7 124 */
  655. /*:ref: sigerr_ 14 2 13 124 */
  656. /*:ref: chkout_ 14 2 13 124 */
  657. /*:ref: lastnb_ 4 2 13 124 */
  658. /*:ref: errint_ 14 3 13 4 124 */
  659. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  660. /*:ref: failed_ 12 0 */
  661. /*:ref: dafbna_ 14 4 4 7 13 124 */
  662. /*:ref: dafada_ 14 2 7 4 */
  663. /*:ref: dafena_ 14 0 */
  664.  
  665. 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);
  666. /*:ref: return_ 12 0 */
  667. /*:ref: chkin_ 14 2 13 124 */
  668. /*:ref: setmsg_ 14 2 13 124 */
  669. /*:ref: errint_ 14 3 13 4 124 */
  670. /*:ref: sigerr_ 14 2 13 124 */
  671. /*:ref: chkout_ 14 2 13 124 */
  672. /*:ref: namfrm_ 14 3 13 4 124 */
  673. /*:ref: errch_ 14 4 13 13 124 124 */
  674. /*:ref: lastnb_ 4 2 13 124 */
  675. /*:ref: odd_ 12 1 4 */
  676. /*:ref: errdp_ 14 3 13 7 124 */
  677. /*:ref: failed_ 12 0 */
  678. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  679. /*:ref: dafbna_ 14 4 4 7 13 124 */
  680. /*:ref: dafada_ 14 2 7 4 */
  681. /*:ref: dafena_ 14 0 */
  682.  
  683. extern int srfrec_(integer *body, doublereal *long__, doublereal *lat, doublereal *rectan);
  684. /*:ref: return_ 12 0 */
  685. /*:ref: chkin_ 14 2 13 124 */
  686. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  687. /*:ref: latrec_ 14 4 7 7 7 7 */
  688. /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
  689. /*:ref: chkout_ 14 2 13 124 */
  690.  
  691. 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);
  692. /*:ref: return_ 12 0 */
  693. /*:ref: chkin_ 14 2 13 124 */
  694. /*:ref: namfrm_ 14 3 13 4 124 */
  695. /*:ref: bods2c_ 14 4 13 4 12 124 */
  696. /*:ref: setmsg_ 14 2 13 124 */
  697. /*:ref: errch_ 14 4 13 13 124 124 */
  698. /*:ref: sigerr_ 14 2 13 124 */
  699. /*:ref: chkout_ 14 2 13 124 */
  700. /*:ref: ljust_ 14 4 13 13 124 124 */
  701. /*:ref: ucase_ 14 4 13 13 124 124 */
  702. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  703. /*:ref: eqchr_ 12 4 13 13 124 124 */
  704. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  705. /*:ref: spkezp_ 14 9 4 7 13 13 4 7 7 124 124 */
  706. /*:ref: vminus_ 14 2 7 7 */
  707. /*:ref: failed_ 12 0 */
  708. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  709. /*:ref: pxform_ 14 6 13 13 7 7 124 124 */
  710. /*:ref: mxv_ 14 3 7 7 7 */
  711. /*:ref: spkssb_ 14 5 4 7 13 7 124 */
  712. /*:ref: stelab_ 14 3 7 7 7 */
  713. /*:ref: stlabx_ 14 3 7 7 7 */
  714. /*:ref: vsub_ 14 3 7 7 7 */
  715. /*:ref: vadd_ 14 3 7 7 7 */
  716. /*:ref: vequ_ 14 2 7 7 */
  717. /*:ref: eqstr_ 12 4 13 13 124 124 */
  718. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  719. /*:ref: vnorm_ 7 1 7 */
  720. /*:ref: vsep_ 7 2 7 7 */
  721. /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
  722. /*:ref: npedln_ 14 7 7 7 7 7 7 7 7 */
  723. /*:ref: vdist_ 7 2 7 7 */
  724. /*:ref: clight_ 7 0 */
  725. /*:ref: touchd_ 7 1 7 */
  726.  
  727. extern int ssizec_(integer *size, char *cell, ftnlen cell_len);
  728. /*:ref: return_ 12 0 */
  729. /*:ref: chkin_ 14 2 13 124 */
  730. /*:ref: setmsg_ 14 2 13 124 */
  731. /*:ref: errint_ 14 3 13 4 124 */
  732. /*:ref: sigerr_ 14 2 13 124 */
  733. /*:ref: chkout_ 14 2 13 124 */
  734. /*:ref: enchar_ 14 3 4 13 124 */
  735.  
  736. extern int ssized_(integer *size, doublereal *cell);
  737. /*:ref: return_ 12 0 */
  738. /*:ref: chkin_ 14 2 13 124 */
  739. /*:ref: setmsg_ 14 2 13 124 */
  740. /*:ref: errint_ 14 3 13 4 124 */
  741. /*:ref: sigerr_ 14 2 13 124 */
  742. /*:ref: chkout_ 14 2 13 124 */
  743.  
  744. extern int ssizei_(integer *size, integer *cell);
  745. /*:ref: return_ 12 0 */
  746. /*:ref: chkin_ 14 2 13 124 */
  747. /*:ref: setmsg_ 14 2 13 124 */
  748. /*:ref: errint_ 14 3 13 4 124 */
  749. /*:ref: sigerr_ 14 2 13 124 */
  750. /*:ref: chkout_ 14 2 13 124 */
  751.  
  752. extern int stcc01_(char *catfnm, char *tabnam, logical *istyp1, char *errmsg, ftnlen catfnm_len, ftnlen tabnam_len, ftnlen errmsg_len);
  753. /*:ref: return_ 12 0 */
  754. /*:ref: chkin_ 14 2 13 124 */
  755. /*:ref: ekopr_ 14 3 13 4 124 */
  756. /*:ref: eknseg_ 4 1 4 */
  757. /*:ref: chkout_ 14 2 13 124 */
  758. /*:ref: ekssum_ 14 14 4 4 13 4 4 13 13 4 4 12 12 124 124 124 */
  759. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  760. /*:ref: nblen_ 4 2 13 124 */
  761. /*:ref: ekcls_ 14 1 4 */
  762.  
  763. extern int stcf01_(char *catnam, doublereal *westra, doublereal *eastra, doublereal *sthdec, doublereal *nthdec, integer *nstars, ftnlen catnam_len);
  764. /*:ref: return_ 12 0 */
  765. /*:ref: chkin_ 14 2 13 124 */
  766. /*:ref: dpr_ 7 0 */
  767. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  768. /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
  769. /*:ref: ekfind_ 14 6 13 4 12 13 124 124 */
  770. /*:ref: setmsg_ 14 2 13 124 */
  771. /*:ref: errch_ 14 4 13 13 124 124 */
  772. /*:ref: sigerr_ 14 2 13 124 */
  773. /*:ref: chkout_ 14 2 13 124 */
  774.  
  775. extern int stcg01_(integer *index, doublereal *ra, doublereal *dec, doublereal *rasig, doublereal *decsig, integer *catnum, char *sptype, doublereal *vmag, ftnlen sptype_len);
  776. /*:ref: return_ 12 0 */
  777. /*:ref: chkin_ 14 2 13 124 */
  778. /*:ref: ekgd_ 14 6 4 4 4 7 12 12 */
  779. /*:ref: setmsg_ 14 2 13 124 */
  780. /*:ref: errint_ 14 3 13 4 124 */
  781. /*:ref: sigerr_ 14 2 13 124 */
  782. /*:ref: chkout_ 14 2 13 124 */
  783. /*:ref: ekgi_ 14 6 4 4 4 4 12 12 */
  784. /*:ref: ekgc_ 14 7 4 4 4 13 12 12 124 */
  785. /*:ref: rpd_ 7 0 */
  786.  
  787. extern int stcl01_(char *catfnm, char *tabnam, integer *handle, ftnlen catfnm_len, ftnlen tabnam_len);
  788. /*:ref: return_ 12 0 */
  789. /*:ref: chkin_ 14 2 13 124 */
  790. /*:ref: stcc01_ 14 7 13 13 12 13 124 124 124 */
  791. /*:ref: setmsg_ 14 2 13 124 */
  792. /*:ref: errch_ 14 4 13 13 124 124 */
  793. /*:ref: sigerr_ 14 2 13 124 */
  794. /*:ref: chkout_ 14 2 13 124 */
  795. /*:ref: eklef_ 14 3 13 4 124 */
  796.  
  797. extern int stdio_(char *name__, integer *unit, ftnlen name_len);
  798. /*:ref: ljust_ 14 4 13 13 124 124 */
  799. /*:ref: ucase_ 14 4 13 13 124 124 */
  800. /*:ref: return_ 12 0 */
  801. /*:ref: chkin_ 14 2 13 124 */
  802. /*:ref: setmsg_ 14 2 13 124 */
  803. /*:ref: errch_ 14 4 13 13 124 124 */
  804. /*:ref: sigerr_ 14 2 13 124 */
  805. /*:ref: chkout_ 14 2 13 124 */
  806.  
  807. extern int stelab_(doublereal *pobj, doublereal *vobs, doublereal *appobj);
  808. /*:ref: return_ 12 0 */
  809. /*:ref: chkin_ 14 2 13 124 */
  810. /*:ref: vhat_ 14 2 7 7 */
  811. /*:ref: clight_ 7 0 */
  812. /*:ref: vscl_ 14 3 7 7 7 */
  813. /*:ref: vdot_ 7 2 7 7 */
  814. /*:ref: setmsg_ 14 2 13 124 */
  815. /*:ref: errdp_ 14 3 13 7 124 */
  816. /*:ref: sigerr_ 14 2 13 124 */
  817. /*:ref: chkout_ 14 2 13 124 */
  818. /*:ref: vcrss_ 14 3 7 7 7 */
  819. /*:ref: vnorm_ 7 1 7 */
  820. /*:ref: vrotv_ 14 4 7 7 7 7 */
  821. /*:ref: moved_ 14 3 7 4 7 */
  822.  
  823. extern int stlabx_(doublereal *pobj, doublereal *vobs, doublereal *corpos);
  824. /*:ref: return_ 12 0 */
  825. /*:ref: chkin_ 14 2 13 124 */
  826. /*:ref: vminus_ 14 2 7 7 */
  827. /*:ref: stelab_ 14 3 7 7 7 */
  828. /*:ref: chkout_ 14 2 13 124 */
  829.  
  830. extern int stmp03_(doublereal *x, doublereal *c0, doublereal *c1, doublereal *c2, doublereal *c3);
  831. /*:ref: dpmax_ 7 0 */
  832. /*:ref: chkin_ 14 2 13 124 */
  833. /*:ref: setmsg_ 14 2 13 124 */
  834. /*:ref: errdp_ 14 3 13 7 124 */
  835. /*:ref: sigerr_ 14 2 13 124 */
  836. /*:ref: chkout_ 14 2 13 124 */
  837.  
  838. extern int stpool_(char *item, integer *nth, char *contin, char *string, integer *size, logical *found, ftnlen item_len, ftnlen contin_len, ftnlen string_len);
  839. /*:ref: return_ 12 0 */
  840. /*:ref: chkin_ 14 2 13 124 */
  841. /*:ref: rtrim_ 4 2 13 124 */
  842. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  843. /*:ref: chkout_ 14 2 13 124 */
  844.  
  845. extern int str2et_(char *string, doublereal *et, ftnlen string_len);
  846. /*:ref: return_ 12 0 */
  847. /*:ref: chkin_ 14 2 13 124 */
  848. /*:ref: timdef_ 14 6 13 13 13 124 124 124 */
  849. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  850. /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
  851. /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
  852. /*:ref: setmsg_ 14 2 13 124 */
  853. /*:ref: sigerr_ 14 2 13 124 */
  854. /*:ref: chkout_ 14 2 13 124 */
  855. /*:ref: errch_ 14 4 13 13 124 124 */
  856. /*:ref: ttrans_ 14 5 13 13 7 124 124 */
  857. /*:ref: tchckd_ 14 2 13 124 */
  858. /*:ref: tparch_ 14 2 13 124 */
  859. /*:ref: moved_ 14 3 7 4 7 */
  860. /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
  861. /*:ref: texpyr_ 14 1 4 */
  862. /*:ref: jul2gr_ 14 4 4 4 4 4 */
  863. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  864. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  865. /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
  866. /*:ref: gr2jul_ 14 4 4 4 4 4 */
  867.  
  868. 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);
  869. /*:ref: return_ 12 0 */
  870. /*:ref: chkin_ 14 2 13 124 */
  871. /*:ref: bods2c_ 14 4 13 4 12 124 */
  872. /*:ref: setmsg_ 14 2 13 124 */
  873. /*:ref: errch_ 14 4 13 13 124 124 */
  874. /*:ref: sigerr_ 14 2 13 124 */
  875. /*:ref: chkout_ 14 2 13 124 */
  876. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  877. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  878. /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
  879. /*:ref: vminus_ 14 2 7 7 */
  880. /*:ref: eqstr_ 12 4 13 13 124 124 */
  881. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  882. /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
  883. /*:ref: vdist_ 7 2 7 7 */
  884.  
  885. 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);
  886. /*:ref: return_ 12 0 */
  887. /*:ref: chkin_ 14 2 13 124 */
  888. /*:ref: bods2c_ 14 4 13 4 12 124 */
  889. /*:ref: setmsg_ 14 2 13 124 */
  890. /*:ref: errch_ 14 4 13 13 124 124 */
  891. /*:ref: sigerr_ 14 2 13 124 */
  892. /*:ref: chkout_ 14 2 13 124 */
  893. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  894. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  895. /*:ref: eqstr_ 12 4 13 13 124 124 */
  896. /*:ref: ltime_ 14 7 7 4 13 4 7 7 124 */
  897. /*:ref: spkpos_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
  898. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  899. /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
  900.  
  901. extern int suffix_(char *suff, integer *spaces, char *string, ftnlen suff_len, ftnlen string_len);
  902. /*:ref: lastnb_ 4 2 13 124 */
  903.  
  904. extern doublereal sumad_(doublereal *array, integer *n);
  905.  
  906. extern integer sumai_(integer *array, integer *n);
  907.  
  908. extern int surfnm_(doublereal *a, doublereal *b, doublereal *c__, doublereal *point, doublereal *normal);
  909. /*:ref: return_ 12 0 */
  910. /*:ref: chkin_ 14 2 13 124 */
  911. /*:ref: setmsg_ 14 2 13 124 */
  912. /*:ref: errch_ 14 4 13 13 124 124 */
  913. /*:ref: errdp_ 14 3 13 7 124 */
  914. /*:ref: sigerr_ 14 2 13 124 */
  915. /*:ref: chkout_ 14 2 13 124 */
  916. /*:ref: vhatip_ 14 1 7 */
  917.  
  918. extern int surfpt_(doublereal *positn, doublereal *u, doublereal *a, doublereal *b, doublereal *c__, doublereal *point, logical *found);
  919. /*:ref: return_ 12 0 */
  920. /*:ref: chkin_ 14 2 13 124 */
  921. /*:ref: vzero_ 12 1 7 */
  922. /*:ref: setmsg_ 14 2 13 124 */
  923. /*:ref: sigerr_ 14 2 13 124 */
  924. /*:ref: chkout_ 14 2 13 124 */
  925. /*:ref: errch_ 14 4 13 13 124 124 */
  926. /*:ref: errdp_ 14 3 13 7 124 */
  927. /*:ref: cleard_ 14 2 4 7 */
  928. /*:ref: vperp_ 14 3 7 7 7 */
  929. /*:ref: vsub_ 14 3 7 7 7 */
  930. /*:ref: vnorm_ 7 1 7 */
  931. /*:ref: vhat_ 14 2 7 7 */
  932. /*:ref: vdot_ 7 2 7 7 */
  933. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  934.  
  935. extern int swapac_(integer *n, integer *locn, integer *m, integer *locm, char *array, ftnlen array_len);
  936. /*:ref: return_ 12 0 */
  937. /*:ref: chkin_ 14 2 13 124 */
  938. /*:ref: setmsg_ 14 2 13 124 */
  939. /*:ref: errint_ 14 3 13 4 124 */
  940. /*:ref: sigerr_ 14 2 13 124 */
  941. /*:ref: chkout_ 14 2 13 124 */
  942. /*:ref: swapc_ 14 4 13 13 124 124 */
  943. /*:ref: cyacip_ 14 6 4 13 4 13 124 124 */
  944.  
  945. extern int swapad_(integer *n, integer *locn, integer *m, integer *locm, doublereal *array);
  946. /*:ref: return_ 12 0 */
  947. /*:ref: chkin_ 14 2 13 124 */
  948. /*:ref: setmsg_ 14 2 13 124 */
  949. /*:ref: errint_ 14 3 13 4 124 */
  950. /*:ref: sigerr_ 14 2 13 124 */
  951. /*:ref: chkout_ 14 2 13 124 */
  952. /*:ref: swapd_ 14 2 7 7 */
  953. /*:ref: cyadip_ 14 5 4 13 4 7 124 */
  954.  
  955. extern int swapai_(integer *n, integer *locn, integer *m, integer *locm, integer *array);
  956. /*:ref: return_ 12 0 */
  957. /*:ref: chkin_ 14 2 13 124 */
  958. /*:ref: setmsg_ 14 2 13 124 */
  959. /*:ref: errint_ 14 3 13 4 124 */
  960. /*:ref: sigerr_ 14 2 13 124 */
  961. /*:ref: chkout_ 14 2 13 124 */
  962. /*:ref: swapi_ 14 2 4 4 */
  963. /*:ref: cyaiip_ 14 5 4 13 4 4 124 */
  964.  
  965. extern int swapc_(char *a, char *b, ftnlen a_len, ftnlen b_len);
  966.  
  967. extern int swapd_(doublereal *a, doublereal *b);
  968.  
  969. extern int swapi_(integer *a, integer *b);
  970.  
  971. extern int sxform_(char *from, char *to, doublereal *et, doublereal *xform, ftnlen from_len, ftnlen to_len);
  972. /*:ref: return_ 12 0 */
  973. /*:ref: chkin_ 14 2 13 124 */
  974. /*:ref: namfrm_ 14 3 13 4 124 */
  975. /*:ref: frmchg_ 14 4 4 4 7 7 */
  976. /*:ref: setmsg_ 14 2 13 124 */
  977. /*:ref: errch_ 14 4 13 13 124 124 */
  978. /*:ref: sigerr_ 14 2 13 124 */
  979. /*:ref: chkout_ 14 2 13 124 */
  980.  
  981. extern int sydelc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
  982. /*:ref: return_ 12 0 */
  983. /*:ref: chkin_ 14 2 13 124 */
  984. /*:ref: cardc_ 4 2 13 124 */
  985. /*:ref: cardi_ 4 1 4 */
  986. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  987. /*:ref: sumai_ 4 2 4 4 */
  988. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  989. /*:ref: scardc_ 14 3 4 13 124 */
  990. /*:ref: remlai_ 14 4 4 4 4 4 */
  991. /*:ref: scardi_ 14 2 4 4 */
  992. /*:ref: chkout_ 14 2 13 124 */
  993.  
  994. extern int sydeld_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  995. /*:ref: return_ 12 0 */
  996. /*:ref: chkin_ 14 2 13 124 */
  997. /*:ref: cardc_ 4 2 13 124 */
  998. /*:ref: cardi_ 4 1 4 */
  999. /*:ref: cardd_ 4 1 7 */
  1000. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1001. /*:ref: sumai_ 4 2 4 4 */
  1002. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1003. /*:ref: scardc_ 14 3 4 13 124 */
  1004. /*:ref: remlai_ 14 4 4 4 4 4 */
  1005. /*:ref: scardi_ 14 2 4 4 */
  1006. /*:ref: remlad_ 14 4 4 4 7 4 */
  1007. /*:ref: scardd_ 14 2 4 7 */
  1008. /*:ref: chkout_ 14 2 13 124 */
  1009.  
  1010. extern int sydeli_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1011. /*:ref: return_ 12 0 */
  1012. /*:ref: chkin_ 14 2 13 124 */
  1013. /*:ref: cardc_ 4 2 13 124 */
  1014. /*:ref: cardi_ 4 1 4 */
  1015. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1016. /*:ref: sumai_ 4 2 4 4 */
  1017. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1018. /*:ref: scardc_ 14 3 4 13 124 */
  1019. /*:ref: remlai_ 14 4 4 4 4 4 */
  1020. /*:ref: scardi_ 14 2 4 4 */
  1021. /*:ref: chkout_ 14 2 13 124 */
  1022.  
  1023. extern integer sydimc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
  1024. /*:ref: return_ 12 0 */
  1025. /*:ref: chkin_ 14 2 13 124 */
  1026. /*:ref: cardc_ 4 2 13 124 */
  1027. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1028. /*:ref: chkout_ 14 2 13 124 */
  1029.  
  1030. extern integer sydimd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1031. /*:ref: return_ 12 0 */
  1032. /*:ref: chkin_ 14 2 13 124 */
  1033. /*:ref: cardc_ 4 2 13 124 */
  1034. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1035. /*:ref: chkout_ 14 2 13 124 */
  1036.  
  1037. extern integer sydimi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1038. /*:ref: return_ 12 0 */
  1039. /*:ref: chkin_ 14 2 13 124 */
  1040. /*:ref: cardc_ 4 2 13 124 */
  1041. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1042. /*:ref: chkout_ 14 2 13 124 */
  1043.  
  1044. 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);
  1045. /*:ref: return_ 12 0 */
  1046. /*:ref: chkin_ 14 2 13 124 */
  1047. /*:ref: cardc_ 4 2 13 124 */
  1048. /*:ref: cardi_ 4 1 4 */
  1049. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1050. /*:ref: setmsg_ 14 2 13 124 */
  1051. /*:ref: errch_ 14 4 13 13 124 124 */
  1052. /*:ref: sigerr_ 14 2 13 124 */
  1053. /*:ref: sumai_ 4 2 4 4 */
  1054. /*:ref: sizec_ 4 2 13 124 */
  1055. /*:ref: sizei_ 4 1 4 */
  1056. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1057. /*:ref: scardc_ 14 3 4 13 124 */
  1058. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1059. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1060. /*:ref: scardi_ 14 2 4 4 */
  1061. /*:ref: chkout_ 14 2 13 124 */
  1062.  
  1063. extern int sydupd_(char *name__, char *copy, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len);
  1064. /*:ref: return_ 12 0 */
  1065. /*:ref: chkin_ 14 2 13 124 */
  1066. /*:ref: cardc_ 4 2 13 124 */
  1067. /*:ref: cardi_ 4 1 4 */
  1068. /*:ref: cardd_ 4 1 7 */
  1069. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1070. /*:ref: setmsg_ 14 2 13 124 */
  1071. /*:ref: errch_ 14 4 13 13 124 124 */
  1072. /*:ref: sigerr_ 14 2 13 124 */
  1073. /*:ref: sumai_ 4 2 4 4 */
  1074. /*:ref: sizec_ 4 2 13 124 */
  1075. /*:ref: sizei_ 4 1 4 */
  1076. /*:ref: sized_ 4 1 7 */
  1077. /*:ref: remlad_ 14 4 4 4 7 4 */
  1078. /*:ref: scardd_ 14 2 4 7 */
  1079. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1080. /*:ref: scardc_ 14 3 4 13 124 */
  1081. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1082. /*:ref: scardi_ 14 2 4 4 */
  1083. /*:ref: chkout_ 14 2 13 124 */
  1084.  
  1085. extern int sydupi_(char *name__, char *copy, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen copy_len, ftnlen tabsym_len);
  1086. /*:ref: return_ 12 0 */
  1087. /*:ref: chkin_ 14 2 13 124 */
  1088. /*:ref: cardc_ 4 2 13 124 */
  1089. /*:ref: cardi_ 4 1 4 */
  1090. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1091. /*:ref: setmsg_ 14 2 13 124 */
  1092. /*:ref: errch_ 14 4 13 13 124 124 */
  1093. /*:ref: sigerr_ 14 2 13 124 */
  1094. /*:ref: sumai_ 4 2 4 4 */
  1095. /*:ref: sizec_ 4 2 13 124 */
  1096. /*:ref: sizei_ 4 1 4 */
  1097. /*:ref: remlai_ 14 4 4 4 4 4 */
  1098. /*:ref: scardi_ 14 2 4 4 */
  1099. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1100. /*:ref: scardc_ 14 3 4 13 124 */
  1101. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1102. /*:ref: chkout_ 14 2 13 124 */
  1103.  
  1104. 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);
  1105. /*:ref: return_ 12 0 */
  1106. /*:ref: chkin_ 14 2 13 124 */
  1107. /*:ref: cardc_ 4 2 13 124 */
  1108. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1109. /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */
  1110. /*:ref: sizec_ 4 2 13 124 */
  1111. /*:ref: setmsg_ 14 2 13 124 */
  1112. /*:ref: errch_ 14 4 13 13 124 124 */
  1113. /*:ref: sigerr_ 14 2 13 124 */
  1114. /*:ref: sumai_ 4 2 4 4 */
  1115. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1116. /*:ref: scardc_ 14 3 4 13 124 */
  1117. /*:ref: chkout_ 14 2 13 124 */
  1118.  
  1119. extern int syenqd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1120. /*:ref: return_ 12 0 */
  1121. /*:ref: chkin_ 14 2 13 124 */
  1122. /*:ref: cardc_ 4 2 13 124 */
  1123. /*:ref: cardd_ 4 1 7 */
  1124. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1125. /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */
  1126. /*:ref: sized_ 4 1 7 */
  1127. /*:ref: setmsg_ 14 2 13 124 */
  1128. /*:ref: errdp_ 14 3 13 7 124 */
  1129. /*:ref: errch_ 14 4 13 13 124 124 */
  1130. /*:ref: sigerr_ 14 2 13 124 */
  1131. /*:ref: sumai_ 4 2 4 4 */
  1132. /*:ref: inslad_ 14 5 7 4 4 7 4 */
  1133. /*:ref: scardd_ 14 2 4 7 */
  1134. /*:ref: chkout_ 14 2 13 124 */
  1135.  
  1136. extern int syenqi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1137. /*:ref: return_ 12 0 */
  1138. /*:ref: chkin_ 14 2 13 124 */
  1139. /*:ref: cardc_ 4 2 13 124 */
  1140. /*:ref: cardi_ 4 1 4 */
  1141. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1142. /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */
  1143. /*:ref: sizei_ 4 1 4 */
  1144. /*:ref: setmsg_ 14 2 13 124 */
  1145. /*:ref: errint_ 14 3 13 4 124 */
  1146. /*:ref: errch_ 14 4 13 13 124 124 */
  1147. /*:ref: sigerr_ 14 2 13 124 */
  1148. /*:ref: sumai_ 4 2 4 4 */
  1149. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1150. /*:ref: scardi_ 14 2 4 4 */
  1151. /*:ref: chkout_ 14 2 13 124 */
  1152.  
  1153. extern int syfetc_(integer *nth, char *tabsym, integer *tabptr, char *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen tabval_len, ftnlen name_len);
  1154. /*:ref: return_ 12 0 */
  1155. /*:ref: chkin_ 14 2 13 124 */
  1156. /*:ref: cardc_ 4 2 13 124 */
  1157. /*:ref: chkout_ 14 2 13 124 */
  1158.  
  1159. extern int syfetd_(integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len);
  1160. /*:ref: return_ 12 0 */
  1161. /*:ref: chkin_ 14 2 13 124 */
  1162. /*:ref: cardc_ 4 2 13 124 */
  1163. /*:ref: chkout_ 14 2 13 124 */
  1164.  
  1165. extern int syfeti_(integer *nth, char *tabsym, integer *tabptr, integer *tabval, char *name__, logical *found, ftnlen tabsym_len, ftnlen name_len);
  1166. /*:ref: return_ 12 0 */
  1167. /*:ref: chkin_ 14 2 13 124 */
  1168. /*:ref: cardc_ 4 2 13 124 */
  1169. /*:ref: chkout_ 14 2 13 124 */
  1170.  
  1171. 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);
  1172. /*:ref: return_ 12 0 */
  1173. /*:ref: chkin_ 14 2 13 124 */
  1174. /*:ref: cardc_ 4 2 13 124 */
  1175. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1176. /*:ref: sumai_ 4 2 4 4 */
  1177. /*:ref: movec_ 14 5 13 4 13 124 124 */
  1178. /*:ref: chkout_ 14 2 13 124 */
  1179.  
  1180. extern int sygetd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, integer *n, doublereal *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1181. /*:ref: return_ 12 0 */
  1182. /*:ref: chkin_ 14 2 13 124 */
  1183. /*:ref: cardc_ 4 2 13 124 */
  1184. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1185. /*:ref: sumai_ 4 2 4 4 */
  1186. /*:ref: moved_ 14 3 7 4 7 */
  1187. /*:ref: chkout_ 14 2 13 124 */
  1188.  
  1189. extern int sygeti_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *n, integer *values, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1190. /*:ref: return_ 12 0 */
  1191. /*:ref: chkin_ 14 2 13 124 */
  1192. /*:ref: cardc_ 4 2 13 124 */
  1193. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1194. /*:ref: sumai_ 4 2 4 4 */
  1195. /*:ref: movei_ 14 3 4 4 4 */
  1196. /*:ref: chkout_ 14 2 13 124 */
  1197.  
  1198. 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);
  1199. /*:ref: return_ 12 0 */
  1200. /*:ref: chkin_ 14 2 13 124 */
  1201. /*:ref: cardc_ 4 2 13 124 */
  1202. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1203. /*:ref: sumai_ 4 2 4 4 */
  1204. /*:ref: chkout_ 14 2 13 124 */
  1205.  
  1206. extern int synthd_(char *name__, integer *nth, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1207. /*:ref: return_ 12 0 */
  1208. /*:ref: chkin_ 14 2 13 124 */
  1209. /*:ref: cardc_ 4 2 13 124 */
  1210. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1211. /*:ref: sumai_ 4 2 4 4 */
  1212. /*:ref: chkout_ 14 2 13 124 */
  1213.  
  1214. extern int synthi_(char *name__, integer *nth, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1215. /*:ref: return_ 12 0 */
  1216. /*:ref: chkin_ 14 2 13 124 */
  1217. /*:ref: cardc_ 4 2 13 124 */
  1218. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1219. /*:ref: sumai_ 4 2 4 4 */
  1220. /*:ref: chkout_ 14 2 13 124 */
  1221.  
  1222. extern int syordc_(char *name__, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
  1223. /*:ref: return_ 12 0 */
  1224. /*:ref: chkin_ 14 2 13 124 */
  1225. /*:ref: cardc_ 4 2 13 124 */
  1226. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1227. /*:ref: sumai_ 4 2 4 4 */
  1228. /*:ref: shellc_ 14 3 4 13 124 */
  1229. /*:ref: chkout_ 14 2 13 124 */
  1230.  
  1231. extern int syordd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1232. /*:ref: return_ 12 0 */
  1233. /*:ref: chkin_ 14 2 13 124 */
  1234. /*:ref: cardc_ 4 2 13 124 */
  1235. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1236. /*:ref: sumai_ 4 2 4 4 */
  1237. /*:ref: shelld_ 14 2 4 7 */
  1238. /*:ref: chkout_ 14 2 13 124 */
  1239.  
  1240. extern int syordi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1241. /*:ref: return_ 12 0 */
  1242. /*:ref: chkin_ 14 2 13 124 */
  1243. /*:ref: cardc_ 4 2 13 124 */
  1244. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1245. /*:ref: sumai_ 4 2 4 4 */
  1246. /*:ref: shelli_ 14 2 4 4 */
  1247. /*:ref: chkout_ 14 2 13 124 */
  1248.  
  1249. 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);
  1250. /*:ref: return_ 12 0 */
  1251. /*:ref: chkin_ 14 2 13 124 */
  1252. /*:ref: cardc_ 4 2 13 124 */
  1253. /*:ref: cardi_ 4 1 4 */
  1254. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1255. /*:ref: sumai_ 4 2 4 4 */
  1256. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1257. /*:ref: scardc_ 14 3 4 13 124 */
  1258. /*:ref: remlai_ 14 4 4 4 4 4 */
  1259. /*:ref: scardi_ 14 2 4 4 */
  1260. /*:ref: chkout_ 14 2 13 124 */
  1261.  
  1262. extern int sypopd_(char *name__, char *tabsym, integer *tabptr, doublereal *tabval, doublereal *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1263. /*:ref: return_ 12 0 */
  1264. /*:ref: chkin_ 14 2 13 124 */
  1265. /*:ref: cardc_ 4 2 13 124 */
  1266. /*:ref: cardi_ 4 1 4 */
  1267. /*:ref: cardd_ 4 1 7 */
  1268. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1269. /*:ref: sumai_ 4 2 4 4 */
  1270. /*:ref: remlad_ 14 4 4 4 7 4 */
  1271. /*:ref: scardd_ 14 2 4 7 */
  1272. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1273. /*:ref: scardc_ 14 3 4 13 124 */
  1274. /*:ref: remlai_ 14 4 4 4 4 4 */
  1275. /*:ref: scardi_ 14 2 4 4 */
  1276. /*:ref: chkout_ 14 2 13 124 */
  1277.  
  1278. extern int sypopi_(char *name__, char *tabsym, integer *tabptr, integer *tabval, integer *value, logical *found, ftnlen name_len, ftnlen tabsym_len);
  1279. /*:ref: return_ 12 0 */
  1280. /*:ref: chkin_ 14 2 13 124 */
  1281. /*:ref: cardc_ 4 2 13 124 */
  1282. /*:ref: cardi_ 4 1 4 */
  1283. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1284. /*:ref: sumai_ 4 2 4 4 */
  1285. /*:ref: remlai_ 14 4 4 4 4 4 */
  1286. /*:ref: scardi_ 14 2 4 4 */
  1287. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1288. /*:ref: scardc_ 14 3 4 13 124 */
  1289. /*:ref: chkout_ 14 2 13 124 */
  1290.  
  1291. 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);
  1292. /*:ref: return_ 12 0 */
  1293. /*:ref: chkin_ 14 2 13 124 */
  1294. /*:ref: cardc_ 4 2 13 124 */
  1295. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1296. /*:ref: sysetc_ 14 9 13 13 13 4 13 124 124 124 124 */
  1297. /*:ref: sizec_ 4 2 13 124 */
  1298. /*:ref: setmsg_ 14 2 13 124 */
  1299. /*:ref: errch_ 14 4 13 13 124 124 */
  1300. /*:ref: sigerr_ 14 2 13 124 */
  1301. /*:ref: sumai_ 4 2 4 4 */
  1302. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1303. /*:ref: scardc_ 14 3 4 13 124 */
  1304. /*:ref: chkout_ 14 2 13 124 */
  1305.  
  1306. extern int sypshd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1307. /*:ref: return_ 12 0 */
  1308. /*:ref: chkin_ 14 2 13 124 */
  1309. /*:ref: cardc_ 4 2 13 124 */
  1310. /*:ref: cardd_ 4 1 7 */
  1311. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1312. /*:ref: sysetd_ 14 7 13 7 13 4 7 124 124 */
  1313. /*:ref: sized_ 4 1 7 */
  1314. /*:ref: setmsg_ 14 2 13 124 */
  1315. /*:ref: errdp_ 14 3 13 7 124 */
  1316. /*:ref: errch_ 14 4 13 13 124 124 */
  1317. /*:ref: sigerr_ 14 2 13 124 */
  1318. /*:ref: sumai_ 4 2 4 4 */
  1319. /*:ref: inslad_ 14 5 7 4 4 7 4 */
  1320. /*:ref: scardd_ 14 2 4 7 */
  1321. /*:ref: chkout_ 14 2 13 124 */
  1322.  
  1323. extern int sypshi_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1324. /*:ref: return_ 12 0 */
  1325. /*:ref: chkin_ 14 2 13 124 */
  1326. /*:ref: cardc_ 4 2 13 124 */
  1327. /*:ref: cardi_ 4 1 4 */
  1328. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1329. /*:ref: syseti_ 14 7 13 4 13 4 4 124 124 */
  1330. /*:ref: sizei_ 4 1 4 */
  1331. /*:ref: setmsg_ 14 2 13 124 */
  1332. /*:ref: errint_ 14 3 13 4 124 */
  1333. /*:ref: errch_ 14 4 13 13 124 124 */
  1334. /*:ref: sigerr_ 14 2 13 124 */
  1335. /*:ref: sumai_ 4 2 4 4 */
  1336. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1337. /*:ref: scardi_ 14 2 4 4 */
  1338. /*:ref: chkout_ 14 2 13 124 */
  1339.  
  1340. 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);
  1341. /*:ref: return_ 12 0 */
  1342. /*:ref: chkin_ 14 2 13 124 */
  1343. /*:ref: setmsg_ 14 2 13 124 */
  1344. /*:ref: sigerr_ 14 2 13 124 */
  1345. /*:ref: chkout_ 14 2 13 124 */
  1346. /*:ref: cardc_ 4 2 13 124 */
  1347. /*:ref: cardi_ 4 1 4 */
  1348. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1349. /*:ref: sumai_ 4 2 4 4 */
  1350. /*:ref: sizec_ 4 2 13 124 */
  1351. /*:ref: errch_ 14 4 13 13 124 124 */
  1352. /*:ref: sizei_ 4 1 4 */
  1353. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1354. /*:ref: scardc_ 14 3 4 13 124 */
  1355. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1356. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1357. /*:ref: scardi_ 14 2 4 4 */
  1358.  
  1359. extern int syputd_(char *name__, doublereal *values, integer *n, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1360. /*:ref: return_ 12 0 */
  1361. /*:ref: chkin_ 14 2 13 124 */
  1362. /*:ref: setmsg_ 14 2 13 124 */
  1363. /*:ref: sigerr_ 14 2 13 124 */
  1364. /*:ref: chkout_ 14 2 13 124 */
  1365. /*:ref: cardc_ 4 2 13 124 */
  1366. /*:ref: cardi_ 4 1 4 */
  1367. /*:ref: cardd_ 4 1 7 */
  1368. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1369. /*:ref: sumai_ 4 2 4 4 */
  1370. /*:ref: sizec_ 4 2 13 124 */
  1371. /*:ref: errch_ 14 4 13 13 124 124 */
  1372. /*:ref: sizei_ 4 1 4 */
  1373. /*:ref: sized_ 4 1 7 */
  1374. /*:ref: remlad_ 14 4 4 4 7 4 */
  1375. /*:ref: scardd_ 14 2 4 7 */
  1376. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1377. /*:ref: scardc_ 14 3 4 13 124 */
  1378. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1379. /*:ref: scardi_ 14 2 4 4 */
  1380. /*:ref: inslad_ 14 5 7 4 4 7 4 */
  1381.  
  1382. extern int syputi_(char *name__, integer *values, integer *n, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1383. /*:ref: return_ 12 0 */
  1384. /*:ref: chkin_ 14 2 13 124 */
  1385. /*:ref: setmsg_ 14 2 13 124 */
  1386. /*:ref: sigerr_ 14 2 13 124 */
  1387. /*:ref: chkout_ 14 2 13 124 */
  1388. /*:ref: cardc_ 4 2 13 124 */
  1389. /*:ref: cardi_ 4 1 4 */
  1390. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1391. /*:ref: sumai_ 4 2 4 4 */
  1392. /*:ref: sizec_ 4 2 13 124 */
  1393. /*:ref: errch_ 14 4 13 13 124 124 */
  1394. /*:ref: sizei_ 4 1 4 */
  1395. /*:ref: remlai_ 14 4 4 4 4 4 */
  1396. /*:ref: scardi_ 14 2 4 4 */
  1397. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1398. /*:ref: scardc_ 14 3 4 13 124 */
  1399. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1400.  
  1401. 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);
  1402. /*:ref: return_ 12 0 */
  1403. /*:ref: chkin_ 14 2 13 124 */
  1404. /*:ref: cardc_ 4 2 13 124 */
  1405. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1406. /*:ref: setmsg_ 14 2 13 124 */
  1407. /*:ref: errch_ 14 4 13 13 124 124 */
  1408. /*:ref: sigerr_ 14 2 13 124 */
  1409. /*:ref: sydelc_ 14 7 13 13 4 13 124 124 124 */
  1410. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1411. /*:ref: sumai_ 4 2 4 4 */
  1412. /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
  1413. /*:ref: swapai_ 14 5 4 4 4 4 4 */
  1414. /*:ref: chkout_ 14 2 13 124 */
  1415.  
  1416. extern int syrend_(char *old, char *new__, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len);
  1417. /*:ref: return_ 12 0 */
  1418. /*:ref: chkin_ 14 2 13 124 */
  1419. /*:ref: cardc_ 4 2 13 124 */
  1420. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1421. /*:ref: setmsg_ 14 2 13 124 */
  1422. /*:ref: errch_ 14 4 13 13 124 124 */
  1423. /*:ref: sigerr_ 14 2 13 124 */
  1424. /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */
  1425. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1426. /*:ref: sumai_ 4 2 4 4 */
  1427. /*:ref: swapad_ 14 5 4 4 4 4 7 */
  1428. /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
  1429. /*:ref: swapai_ 14 5 4 4 4 4 4 */
  1430. /*:ref: chkout_ 14 2 13 124 */
  1431.  
  1432. extern int syreni_(char *old, char *new__, char *tabsym, integer *tabptr, integer *tabval, ftnlen old_len, ftnlen new_len, ftnlen tabsym_len);
  1433. /*:ref: return_ 12 0 */
  1434. /*:ref: chkin_ 14 2 13 124 */
  1435. /*:ref: cardc_ 4 2 13 124 */
  1436. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1437. /*:ref: setmsg_ 14 2 13 124 */
  1438. /*:ref: errch_ 14 4 13 13 124 124 */
  1439. /*:ref: sigerr_ 14 2 13 124 */
  1440. /*:ref: sydeli_ 14 6 13 13 4 4 124 124 */
  1441. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1442. /*:ref: sumai_ 4 2 4 4 */
  1443. /*:ref: swapai_ 14 5 4 4 4 4 4 */
  1444. /*:ref: swapac_ 14 6 4 4 4 4 13 124 */
  1445. /*:ref: chkout_ 14 2 13 124 */
  1446.  
  1447. 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);
  1448. /*:ref: return_ 12 0 */
  1449. /*:ref: chkin_ 14 2 13 124 */
  1450. /*:ref: cardc_ 4 2 13 124 */
  1451. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1452. /*:ref: sumai_ 4 2 4 4 */
  1453. /*:ref: movec_ 14 5 13 4 13 124 124 */
  1454. /*:ref: chkout_ 14 2 13 124 */
  1455.  
  1456. 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);
  1457. /*:ref: return_ 12 0 */
  1458. /*:ref: chkin_ 14 2 13 124 */
  1459. /*:ref: cardc_ 4 2 13 124 */
  1460. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1461. /*:ref: sumai_ 4 2 4 4 */
  1462. /*:ref: moved_ 14 3 7 4 7 */
  1463. /*:ref: chkout_ 14 2 13 124 */
  1464.  
  1465. 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);
  1466. /*:ref: return_ 12 0 */
  1467. /*:ref: chkin_ 14 2 13 124 */
  1468. /*:ref: cardc_ 4 2 13 124 */
  1469. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1470. /*:ref: sumai_ 4 2 4 4 */
  1471. /*:ref: movei_ 14 3 4 4 4 */
  1472. /*:ref: chkout_ 14 2 13 124 */
  1473.  
  1474. 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);
  1475. /*:ref: return_ 12 0 */
  1476. /*:ref: chkin_ 14 2 13 124 */
  1477. /*:ref: cardc_ 4 2 13 124 */
  1478. /*:ref: cardi_ 4 1 4 */
  1479. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1480. /*:ref: sumai_ 4 2 4 4 */
  1481. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  1482. /*:ref: scardc_ 14 3 4 13 124 */
  1483. /*:ref: sizec_ 4 2 13 124 */
  1484. /*:ref: setmsg_ 14 2 13 124 */
  1485. /*:ref: errch_ 14 4 13 13 124 124 */
  1486. /*:ref: sigerr_ 14 2 13 124 */
  1487. /*:ref: sizei_ 4 1 4 */
  1488. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1489. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1490. /*:ref: scardi_ 14 2 4 4 */
  1491. /*:ref: chkout_ 14 2 13 124 */
  1492.  
  1493. extern int sysetd_(char *name__, doublereal *value, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1494. /*:ref: return_ 12 0 */
  1495. /*:ref: chkin_ 14 2 13 124 */
  1496. /*:ref: cardc_ 4 2 13 124 */
  1497. /*:ref: cardi_ 4 1 4 */
  1498. /*:ref: cardd_ 4 1 7 */
  1499. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1500. /*:ref: sumai_ 4 2 4 4 */
  1501. /*:ref: remlad_ 14 4 4 4 7 4 */
  1502. /*:ref: scardd_ 14 2 4 7 */
  1503. /*:ref: sizec_ 4 2 13 124 */
  1504. /*:ref: setmsg_ 14 2 13 124 */
  1505. /*:ref: errch_ 14 4 13 13 124 124 */
  1506. /*:ref: sigerr_ 14 2 13 124 */
  1507. /*:ref: sizei_ 4 1 4 */
  1508. /*:ref: sized_ 4 1 7 */
  1509. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1510. /*:ref: scardc_ 14 3 4 13 124 */
  1511. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1512. /*:ref: scardi_ 14 2 4 4 */
  1513. /*:ref: inslad_ 14 5 7 4 4 7 4 */
  1514. /*:ref: chkout_ 14 2 13 124 */
  1515.  
  1516. extern int syseti_(char *name__, integer *value, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1517. /*:ref: return_ 12 0 */
  1518. /*:ref: chkin_ 14 2 13 124 */
  1519. /*:ref: cardc_ 4 2 13 124 */
  1520. /*:ref: cardi_ 4 1 4 */
  1521. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  1522. /*:ref: sumai_ 4 2 4 4 */
  1523. /*:ref: remlai_ 14 4 4 4 4 4 */
  1524. /*:ref: scardi_ 14 2 4 4 */
  1525. /*:ref: sizec_ 4 2 13 124 */
  1526. /*:ref: setmsg_ 14 2 13 124 */
  1527. /*:ref: errch_ 14 4 13 13 124 124 */
  1528. /*:ref: sigerr_ 14 2 13 124 */
  1529. /*:ref: sizei_ 4 1 4 */
  1530. /*:ref: inslac_ 14 7 13 4 4 13 4 124 124 */
  1531. /*:ref: scardc_ 14 3 4 13 124 */
  1532. /*:ref: inslai_ 14 5 4 4 4 4 4 */
  1533. /*:ref: chkout_ 14 2 13 124 */
  1534.  
  1535. extern int sytrnc_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, char *tabval, ftnlen name_len, ftnlen tabsym_len, ftnlen tabval_len);
  1536. /*:ref: return_ 12 0 */
  1537. /*:ref: chkin_ 14 2 13 124 */
  1538. /*:ref: cardc_ 4 2 13 124 */
  1539. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1540. /*:ref: sumai_ 4 2 4 4 */
  1541. /*:ref: swapc_ 14 4 13 13 124 124 */
  1542. /*:ref: setmsg_ 14 2 13 124 */
  1543. /*:ref: errint_ 14 3 13 4 124 */
  1544. /*:ref: sigerr_ 14 2 13 124 */
  1545. /*:ref: chkout_ 14 2 13 124 */
  1546.  
  1547. extern int sytrnd_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen tabsym_len);
  1548. /*:ref: return_ 12 0 */
  1549. /*:ref: chkin_ 14 2 13 124 */
  1550. /*:ref: cardc_ 4 2 13 124 */
  1551. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1552. /*:ref: sumai_ 4 2 4 4 */
  1553. /*:ref: swapd_ 14 2 7 7 */
  1554. /*:ref: setmsg_ 14 2 13 124 */
  1555. /*:ref: errint_ 14 3 13 4 124 */
  1556. /*:ref: sigerr_ 14 2 13 124 */
  1557. /*:ref: chkout_ 14 2 13 124 */
  1558.  
  1559. extern int sytrni_(char *name__, integer *i__, integer *j, char *tabsym, integer *tabptr, integer *tabval, ftnlen name_len, ftnlen tabsym_len);
  1560. /*:ref: return_ 12 0 */
  1561. /*:ref: chkin_ 14 2 13 124 */
  1562. /*:ref: cardc_ 4 2 13 124 */
  1563. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1564. /*:ref: sumai_ 4 2 4 4 */
  1565. /*:ref: swapi_ 14 2 4 4 */
  1566. /*:ref: setmsg_ 14 2 13 124 */
  1567. /*:ref: errint_ 14 3 13 4 124 */
  1568. /*:ref: sigerr_ 14 2 13 124 */
  1569. /*:ref: chkout_ 14 2 13 124 */
  1570.  
  1571. extern int tcheck_(doublereal *tvec, char *type__, logical *mods, char *modify, logical *ok, char *error, ftnlen type_len, ftnlen modify_len, ftnlen error_len);
  1572. extern int tparch_(char *type__, ftnlen type_len);
  1573. extern int tchckd_(char *type__, ftnlen type_len);
  1574. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1575. /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
  1576. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1577. /*:ref: eqstr_ 12 4 13 13 124 124 */
  1578.  
  1579. extern int texpyr_(integer *year);
  1580. extern int tsetyr_(integer *year);
  1581.  
  1582. extern int timdef_(char *action, char *item, char *value, ftnlen action_len, ftnlen item_len, ftnlen value_len);
  1583. /*:ref: return_ 12 0 */
  1584. /*:ref: chkin_ 14 2 13 124 */
  1585. /*:ref: ljust_ 14 4 13 13 124 124 */
  1586. /*:ref: ucase_ 14 4 13 13 124 124 */
  1587. /*:ref: setmsg_ 14 2 13 124 */
  1588. /*:ref: errch_ 14 4 13 13 124 124 */
  1589. /*:ref: sigerr_ 14 2 13 124 */
  1590. /*:ref: chkout_ 14 2 13 124 */
  1591. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1592. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1593. /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
  1594.  
  1595. extern int timout_(doublereal *et, char *pictur, char *output, ftnlen pictur_len, ftnlen output_len);
  1596. /*:ref: return_ 12 0 */
  1597. /*:ref: chkin_ 14 2 13 124 */
  1598. /*:ref: scanpr_ 14 5 4 13 4 4 124 */
  1599. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1600. /*:ref: ljust_ 14 4 13 13 124 124 */
  1601. /*:ref: rtrim_ 4 2 13 124 */
  1602. /*:ref: scan_ 14 12 13 13 4 4 4 4 4 4 4 4 124 124 */
  1603. /*:ref: timdef_ 14 6 13 13 13 124 124 124 */
  1604. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1605. /*:ref: zzutcpm_ 14 7 13 4 7 7 4 12 124 */
  1606. /*:ref: isrchi_ 4 3 4 4 4 */
  1607. /*:ref: scanrj_ 14 6 4 4 4 4 4 4 */
  1608. /*:ref: unitim_ 7 5 7 13 13 124 124 */
  1609. /*:ref: spd_ 7 0 */
  1610. /*:ref: j2000_ 7 0 */
  1611. /*:ref: j1950_ 7 0 */
  1612. /*:ref: brckti_ 4 3 4 4 4 */
  1613. /*:ref: brcktd_ 7 3 7 7 7 */
  1614. /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
  1615. /*:ref: ttrans_ 14 5 13 13 7 124 124 */
  1616. /*:ref: gr2jul_ 14 4 4 4 4 4 */
  1617. /*:ref: jul2gr_ 14 4 4 4 4 4 */
  1618. /*:ref: rmaind_ 14 4 7 7 7 7 */
  1619. /*:ref: ucase_ 14 4 13 13 124 124 */
  1620. /*:ref: lcase_ 14 4 13 13 124 124 */
  1621. /*:ref: chkout_ 14 2 13 124 */
  1622.  
  1623. extern int tipbod_(char *ref, integer *body, doublereal *et, doublereal *tipm, ftnlen ref_len);
  1624. /*:ref: return_ 12 0 */
  1625. /*:ref: chkin_ 14 2 13 124 */
  1626. /*:ref: irftrn_ 14 5 13 13 7 124 124 */
  1627. /*:ref: bodmat_ 14 3 4 7 7 */
  1628. /*:ref: failed_ 12 0 */
  1629. /*:ref: chkout_ 14 2 13 124 */
  1630. /*:ref: mxm_ 14 3 7 7 7 */
  1631. /*:ref: moved_ 14 3 7 4 7 */
  1632.  
  1633. extern int tisbod_(char *ref, integer *body, doublereal *et, doublereal *tsipm, ftnlen ref_len);
  1634. /*:ref: return_ 12 0 */
  1635. /*:ref: chkin_ 14 2 13 124 */
  1636. /*:ref: irfnum_ 14 3 13 4 124 */
  1637. /*:ref: pckmat_ 14 5 4 7 4 7 12 */
  1638. /*:ref: zzbodbry_ 4 1 4 */
  1639. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1640. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  1641. /*:ref: spd_ 7 0 */
  1642. /*:ref: j2000_ 7 0 */
  1643. /*:ref: cleard_ 14 2 4 7 */
  1644. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  1645. /*:ref: bodfnd_ 12 3 4 13 124 */
  1646. /*:ref: setmsg_ 14 2 13 124 */
  1647. /*:ref: errint_ 14 3 13 4 124 */
  1648. /*:ref: errdp_ 14 3 13 7 124 */
  1649. /*:ref: sigerr_ 14 2 13 124 */
  1650. /*:ref: chkout_ 14 2 13 124 */
  1651. /*:ref: rpd_ 7 0 */
  1652. /*:ref: vdotg_ 7 3 7 7 4 */
  1653. /*:ref: twopi_ 7 0 */
  1654. /*:ref: halfpi_ 7 0 */
  1655. /*:ref: failed_ 12 0 */
  1656. /*:ref: vpack_ 14 4 7 7 7 7 */
  1657. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  1658. /*:ref: irfrot_ 14 3 4 4 7 */
  1659. /*:ref: mxm_ 14 3 7 7 7 */
  1660.  
  1661. extern int tkfram_(integer *id, doublereal *rot, integer *frame, logical *found);
  1662. /*:ref: lnkini_ 14 2 4 4 */
  1663. /*:ref: return_ 12 0 */
  1664. /*:ref: chkin_ 14 2 13 124 */
  1665. /*:ref: setmsg_ 14 2 13 124 */
  1666. /*:ref: sigerr_ 14 2 13 124 */
  1667. /*:ref: chkout_ 14 2 13 124 */
  1668. /*:ref: locati_ 14 6 4 4 4 4 4 12 */
  1669. /*:ref: ident_ 14 1 7 */
  1670. /*:ref: intstr_ 14 3 4 13 124 */
  1671. /*:ref: frmnam_ 14 3 4 13 124 */
  1672. /*:ref: errint_ 14 3 13 4 124 */
  1673. /*:ref: rtrim_ 4 2 13 124 */
  1674. /*:ref: cvpool_ 14 3 13 12 124 */
  1675. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  1676. /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */
  1677. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  1678. /*:ref: namfrm_ 14 3 13 4 124 */
  1679. /*:ref: errch_ 14 4 13 13 124 124 */
  1680. /*:ref: ucase_ 14 4 13 13 124 124 */
  1681. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  1682. /*:ref: moved_ 14 3 7 4 7 */
  1683. /*:ref: sharpr_ 14 1 7 */
  1684. /*:ref: vdot_ 7 2 7 7 */
  1685. /*:ref: vsclip_ 14 2 7 7 */
  1686. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  1687. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  1688. /*:ref: failed_ 12 0 */
  1689. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  1690. /*:ref: vhatg_ 14 3 7 4 7 */
  1691. /*:ref: q2m_ 14 2 7 7 */
  1692. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  1693.  
  1694. extern int tkvrsn_(char *item, char *verstr, ftnlen item_len, ftnlen verstr_len);
  1695. /*:ref: eqstr_ 12 4 13 13 124 124 */
  1696.  
  1697. extern int tostdo_(char *line, ftnlen line_len);
  1698. /*:ref: stdio_ 14 3 13 4 124 */
  1699. /*:ref: writln_ 14 3 13 4 124 */
  1700.  
  1701. extern H_f touchc_(char *ret_val, ftnlen ret_val_len, char *string, ftnlen string_len);
  1702.  
  1703. extern doublereal touchd_(doublereal *dp);
  1704.  
  1705. extern integer touchi_(integer *int__);
  1706.  
  1707. extern logical touchl_(logical *log__);
  1708.  
  1709. extern int tparse_(char *string, doublereal *sp2000, char *error, ftnlen string_len, ftnlen error_len);
  1710. /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
  1711. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1712. /*:ref: j2000_ 7 0 */
  1713. /*:ref: spd_ 7 0 */
  1714. /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
  1715. /*:ref: texpyr_ 14 1 4 */
  1716. /*:ref: rmaini_ 14 4 4 4 4 4 */
  1717.  
  1718. 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);
  1719. /*:ref: zztpats_ 12 6 4 4 13 13 124 124 */
  1720. /*:ref: zztokns_ 12 4 13 13 124 124 */
  1721. /*:ref: zzcmbt_ 12 5 13 13 12 124 124 */
  1722. /*:ref: zzsubt_ 12 5 13 13 12 124 124 */
  1723. /*:ref: zzrept_ 12 5 13 13 12 124 124 */
  1724. /*:ref: zzremt_ 12 2 13 124 */
  1725. /*:ref: zzist_ 12 2 13 124 */
  1726. /*:ref: zznote_ 12 4 13 4 4 124 */
  1727. /*:ref: ucase_ 14 4 13 13 124 124 */
  1728. /*:ref: zzunpck_ 12 11 13 12 7 4 13 13 13 124 124 124 124 */
  1729. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1730. /*:ref: intmax_ 4 0 */
  1731. /*:ref: zzvalt_ 12 6 13 4 4 13 124 124 */
  1732. /*:ref: zzgrep_ 12 2 13 124 */
  1733. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1734. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1735. /*:ref: zzispt_ 12 4 13 4 4 124 */
  1736. /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
  1737. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1738. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1739. /*:ref: rtrim_ 4 2 13 124 */
  1740.  
  1741. extern int tpictr_(char *sample, char *pictur, logical *ok, char *error, ftnlen sample_len, ftnlen pictur_len, ftnlen error_len);
  1742. /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
  1743.  
  1744. extern doublereal trace_(doublereal *matrix);
  1745.  
  1746. extern doublereal traceg_(doublereal *matrix, integer *ndim);
  1747.  
  1748. extern int trcpkg_(integer *depth, integer *index, char *module, char *trace, char *name__, ftnlen module_len, ftnlen trace_len, ftnlen name_len);
  1749. extern int chkin_(char *module, ftnlen module_len);
  1750. extern int chkout_(char *module, ftnlen module_len);
  1751. extern int trcdep_(integer *depth);
  1752. extern int trcmxd_(integer *depth);
  1753. extern int trcnam_(integer *index, char *name__, ftnlen name_len);
  1754. extern int qcktrc_(char *trace, ftnlen trace_len);
  1755. extern int freeze_(void);
  1756. extern int trcoff_(void);
  1757. /*:ref: wrline_ 14 4 13 13 124 124 */
  1758. /*:ref: frstnb_ 4 2 13 124 */
  1759. /*:ref: getdev_ 14 2 13 124 */
  1760. /*:ref: rtrim_ 4 2 13 124 */
  1761. /*:ref: getact_ 14 1 4 */
  1762. /*:ref: failed_ 12 0 */
  1763. /*:ref: intstr_ 14 3 4 13 124 */
  1764. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1765.  
  1766. extern int ttrans_(char *from, char *to, doublereal *tvec, ftnlen from_len, ftnlen to_len);
  1767. /*:ref: return_ 12 0 */
  1768. /*:ref: chkin_ 14 2 13 124 */
  1769. /*:ref: spd_ 7 0 */
  1770. /*:ref: j2000_ 7 0 */
  1771. /*:ref: ssizec_ 14 3 4 13 124 */
  1772. /*:ref: insrtc_ 14 4 13 13 124 124 */
  1773. /*:ref: orderc_ 14 4 13 4 4 124 */
  1774. /*:ref: reordc_ 14 4 4 4 13 124 */
  1775. /*:ref: reordi_ 14 3 4 4 4 */
  1776. /*:ref: reordl_ 14 3 4 4 12 */
  1777. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  1778. /*:ref: cvpool_ 14 3 13 12 124 */
  1779. /*:ref: rtpool_ 14 5 13 4 7 12 124 */
  1780. /*:ref: setmsg_ 14 2 13 124 */
  1781. /*:ref: sigerr_ 14 2 13 124 */
  1782. /*:ref: chkout_ 14 2 13 124 */
  1783. /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
  1784. /*:ref: ucase_ 14 4 13 13 124 124 */
  1785. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1786. /*:ref: errch_ 14 4 13 13 124 124 */
  1787. /*:ref: rmaini_ 14 4 4 4 4 4 */
  1788. /*:ref: lstlei_ 4 3 4 4 4 */
  1789. /*:ref: odd_ 12 1 4 */
  1790. /*:ref: rmaind_ 14 4 7 7 7 7 */
  1791. /*:ref: elemc_ 12 4 13 13 124 124 */
  1792. /*:ref: unitim_ 7 5 7 13 13 124 124 */
  1793. /*:ref: lstled_ 4 3 7 4 7 */
  1794. /*:ref: lstlti_ 4 3 4 4 4 */
  1795.  
  1796. extern doublereal twopi_(void);
  1797.  
  1798. extern int twovec_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *mout);
  1799. /*:ref: return_ 12 0 */
  1800. /*:ref: chkin_ 14 2 13 124 */
  1801. /*:ref: setmsg_ 14 2 13 124 */
  1802. /*:ref: errint_ 14 3 13 4 124 */
  1803. /*:ref: sigerr_ 14 2 13 124 */
  1804. /*:ref: chkout_ 14 2 13 124 */
  1805. /*:ref: vhat_ 14 2 7 7 */
  1806. /*:ref: ucrss_ 14 3 7 7 7 */
  1807. /*:ref: xpose_ 14 2 7 7 */
  1808. /*:ref: moved_ 14 3 7 4 7 */
  1809.  
  1810. extern int twovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform);
  1811. /*:ref: return_ 12 0 */
  1812. /*:ref: chkin_ 14 2 13 124 */
  1813. /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
  1814. /*:ref: invstm_ 14 2 7 7 */
  1815. /*:ref: chkout_ 14 2 13 124 */
  1816.  
  1817. extern int txtopn_(char *fname, integer *unit, ftnlen fname_len);
  1818. /*:ref: return_ 12 0 */
  1819. /*:ref: chkin_ 14 2 13 124 */
  1820. /*:ref: setmsg_ 14 2 13 124 */
  1821. /*:ref: sigerr_ 14 2 13 124 */
  1822. /*:ref: chkout_ 14 2 13 124 */
  1823. /*:ref: getlun_ 14 1 4 */
  1824. /*:ref: errch_ 14 4 13 13 124 124 */
  1825. /*:ref: errint_ 14 3 13 4 124 */
  1826.  
  1827. extern int txtopr_(char *fname, integer *unit, ftnlen fname_len);
  1828. /*:ref: return_ 12 0 */
  1829. /*:ref: chkin_ 14 2 13 124 */
  1830. /*:ref: setmsg_ 14 2 13 124 */
  1831. /*:ref: sigerr_ 14 2 13 124 */
  1832. /*:ref: chkout_ 14 2 13 124 */
  1833. /*:ref: getlun_ 14 1 4 */
  1834. /*:ref: errch_ 14 4 13 13 124 124 */
  1835. /*:ref: errint_ 14 3 13 4 124 */
  1836.  
  1837. extern doublereal tyear_(void);
  1838.  
  1839. extern int ucase_(char *in, char *out, ftnlen in_len, ftnlen out_len);
  1840.  
  1841. extern int ucrss_(doublereal *v1, doublereal *v2, doublereal *vout);
  1842. /*:ref: vnorm_ 7 1 7 */
  1843.  
  1844. extern int unionc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
  1845. /*:ref: return_ 12 0 */
  1846. /*:ref: chkin_ 14 2 13 124 */
  1847. /*:ref: setmsg_ 14 2 13 124 */
  1848. /*:ref: errint_ 14 3 13 4 124 */
  1849. /*:ref: sigerr_ 14 2 13 124 */
  1850. /*:ref: chkout_ 14 2 13 124 */
  1851. /*:ref: cardc_ 4 2 13 124 */
  1852. /*:ref: sizec_ 4 2 13 124 */
  1853. /*:ref: scardc_ 14 3 4 13 124 */
  1854. /*:ref: excess_ 14 3 4 13 124 */
  1855.  
  1856. extern int uniond_(doublereal *a, doublereal *b, doublereal *c__);
  1857. /*:ref: return_ 12 0 */
  1858. /*:ref: chkin_ 14 2 13 124 */
  1859. /*:ref: cardd_ 4 1 7 */
  1860. /*:ref: sized_ 4 1 7 */
  1861. /*:ref: scardd_ 14 2 4 7 */
  1862. /*:ref: excess_ 14 3 4 13 124 */
  1863. /*:ref: sigerr_ 14 2 13 124 */
  1864. /*:ref: chkout_ 14 2 13 124 */
  1865.  
  1866. extern int unioni_(integer *a, integer *b, integer *c__);
  1867. /*:ref: return_ 12 0 */
  1868. /*:ref: chkin_ 14 2 13 124 */
  1869. /*:ref: cardi_ 4 1 4 */
  1870. /*:ref: sizei_ 4 1 4 */
  1871. /*:ref: scardi_ 14 2 4 4 */
  1872. /*:ref: excess_ 14 3 4 13 124 */
  1873. /*:ref: sigerr_ 14 2 13 124 */
  1874. /*:ref: chkout_ 14 2 13 124 */
  1875.  
  1876. extern doublereal unitim_(doublereal *epoch, char *insys, char *outsys, ftnlen insys_len, ftnlen outsys_len);
  1877. /*:ref: return_ 12 0 */
  1878. /*:ref: chkin_ 14 2 13 124 */
  1879. /*:ref: spd_ 7 0 */
  1880. /*:ref: j2000_ 7 0 */
  1881. /*:ref: validc_ 14 4 4 4 13 124 */
  1882. /*:ref: ssizec_ 14 3 4 13 124 */
  1883. /*:ref: unionc_ 14 6 13 13 13 124 124 124 */
  1884. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  1885. /*:ref: cvpool_ 14 3 13 12 124 */
  1886. /*:ref: rtpool_ 14 5 13 4 7 12 124 */
  1887. /*:ref: somfls_ 12 2 12 4 */
  1888. /*:ref: setmsg_ 14 2 13 124 */
  1889. /*:ref: errch_ 14 4 13 13 124 124 */
  1890. /*:ref: sigerr_ 14 2 13 124 */
  1891. /*:ref: chkout_ 14 2 13 124 */
  1892. /*:ref: ucase_ 14 4 13 13 124 124 */
  1893. /*:ref: insrtc_ 14 4 13 13 124 124 */
  1894. /*:ref: setc_ 12 6 13 13 13 124 124 124 */
  1895. /*:ref: elemc_ 12 4 13 13 124 124 */
  1896.  
  1897. extern int unorm_(doublereal *v1, doublereal *vout, doublereal *vmag);
  1898. /*:ref: vnorm_ 7 1 7 */
  1899.  
  1900. extern int unormg_(doublereal *v1, integer *ndim, doublereal *vout, doublereal *vmag);
  1901. /*:ref: vnormg_ 7 2 7 4 */
  1902.  
  1903. extern int utc2et_(char *utcstr, doublereal *et, ftnlen utcstr_len);
  1904. /*:ref: return_ 12 0 */
  1905. /*:ref: chkin_ 14 2 13 124 */
  1906. /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
  1907. /*:ref: setmsg_ 14 2 13 124 */
  1908. /*:ref: sigerr_ 14 2 13 124 */
  1909. /*:ref: chkout_ 14 2 13 124 */
  1910. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1911. /*:ref: tcheck_ 14 9 7 13 12 13 12 13 124 124 124 */
  1912. /*:ref: texpyr_ 14 1 4 */
  1913. /*:ref: ttrans_ 14 5 13 13 7 124 124 */
  1914. /*:ref: errch_ 14 4 13 13 124 124 */
  1915.  
  1916. extern int vadd_(doublereal *v1, doublereal *v2, doublereal *vout);
  1917.  
  1918. extern int vaddg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout);
  1919.  
  1920. extern int validc_(integer *size, integer *n, char *a, ftnlen a_len);
  1921. /*:ref: return_ 12 0 */
  1922. /*:ref: chkin_ 14 2 13 124 */
  1923. /*:ref: setmsg_ 14 2 13 124 */
  1924. /*:ref: errint_ 14 3 13 4 124 */
  1925. /*:ref: sigerr_ 14 2 13 124 */
  1926. /*:ref: chkout_ 14 2 13 124 */
  1927. /*:ref: rmdupc_ 14 3 4 13 124 */
  1928. /*:ref: ssizec_ 14 3 4 13 124 */
  1929. /*:ref: scardc_ 14 3 4 13 124 */
  1930.  
  1931. extern int validd_(integer *size, integer *n, doublereal *a);
  1932. /*:ref: return_ 12 0 */
  1933. /*:ref: chkin_ 14 2 13 124 */
  1934. /*:ref: setmsg_ 14 2 13 124 */
  1935. /*:ref: errint_ 14 3 13 4 124 */
  1936. /*:ref: sigerr_ 14 2 13 124 */
  1937. /*:ref: chkout_ 14 2 13 124 */
  1938. /*:ref: rmdupd_ 14 2 4 7 */
  1939. /*:ref: ssized_ 14 2 4 7 */
  1940. /*:ref: scardd_ 14 2 4 7 */
  1941.  
  1942. extern int validi_(integer *size, integer *n, integer *a);
  1943. /*:ref: return_ 12 0 */
  1944. /*:ref: chkin_ 14 2 13 124 */
  1945. /*:ref: setmsg_ 14 2 13 124 */
  1946. /*:ref: errint_ 14 3 13 4 124 */
  1947. /*:ref: sigerr_ 14 2 13 124 */
  1948. /*:ref: chkout_ 14 2 13 124 */
  1949. /*:ref: rmdupi_ 14 2 4 4 */
  1950. /*:ref: ssizei_ 14 2 4 4 */
  1951. /*:ref: scardi_ 14 2 4 4 */
  1952.  
  1953. extern int vcrss_(doublereal *v1, doublereal *v2, doublereal *vout);
  1954.  
  1955. extern doublereal vdist_(doublereal *v1, doublereal *v2);
  1956. /*:ref: vsub_ 14 3 7 7 7 */
  1957. /*:ref: vnorm_ 7 1 7 */
  1958.  
  1959. extern doublereal vdistg_(doublereal *v1, doublereal *v2, integer *ndim);
  1960.  
  1961. extern doublereal vdot_(doublereal *v1, doublereal *v2);
  1962.  
  1963. extern doublereal vdotg_(doublereal *v1, doublereal *v2, integer *ndim);
  1964.  
  1965. extern int vequ_(doublereal *vin, doublereal *vout);
  1966.  
  1967. extern int vequg_(doublereal *vin, integer *ndim, doublereal *vout);
  1968.  
  1969. extern int vhat_(doublereal *v1, doublereal *vout);
  1970. /*:ref: vnorm_ 7 1 7 */
  1971.  
  1972. extern int vhatg_(doublereal *v1, integer *ndim, doublereal *vout);
  1973. /*:ref: vnormg_ 7 2 7 4 */
  1974.  
  1975. extern int vhatip_(doublereal *v);
  1976. /*:ref: vnorm_ 7 1 7 */
  1977.  
  1978. extern int vlcom_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum);
  1979.  
  1980. extern int vlcom3_(doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *c__, doublereal *v3, doublereal *sum);
  1981.  
  1982. extern int vlcomg_(integer *n, doublereal *a, doublereal *v1, doublereal *b, doublereal *v2, doublereal *sum);
  1983.  
  1984. extern int vminug_(doublereal *vin, integer *ndim, doublereal *vout);
  1985.  
  1986. extern int vminus_(doublereal *v1, doublereal *vout);
  1987.  
  1988. extern doublereal vnorm_(doublereal *v1);
  1989.  
  1990. extern doublereal vnormg_(doublereal *v1, integer *ndim);
  1991.  
  1992. extern int vpack_(doublereal *x, doublereal *y, doublereal *z__, doublereal *v);
  1993.  
  1994. extern int vperp_(doublereal *a, doublereal *b, doublereal *p);
  1995. /*:ref: vproj_ 14 3 7 7 7 */
  1996. /*:ref: vsub_ 14 3 7 7 7 */
  1997. /*:ref: vsclip_ 14 2 7 7 */
  1998.  
  1999. extern int vprjp_(doublereal *vin, doublereal *plane, doublereal *vout);
  2000. /*:ref: return_ 12 0 */
  2001. /*:ref: chkin_ 14 2 13 124 */
  2002. /*:ref: pl2nvc_ 14 3 7 7 7 */
  2003. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2004. /*:ref: vdot_ 7 2 7 7 */
  2005. /*:ref: chkout_ 14 2 13 124 */
  2006.  
  2007. extern int vprjpi_(doublereal *vin, doublereal *projpl, doublereal *invpl, doublereal *vout, logical *found);
  2008. /*:ref: return_ 12 0 */
  2009. /*:ref: chkin_ 14 2 13 124 */
  2010. /*:ref: pl2nvc_ 14 3 7 7 7 */
  2011. /*:ref: vdot_ 7 2 7 7 */
  2012. /*:ref: dpmax_ 7 0 */
  2013. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2014. /*:ref: chkout_ 14 2 13 124 */
  2015.  
  2016. extern int vproj_(doublereal *a, doublereal *b, doublereal *p);
  2017. /*:ref: vdot_ 7 2 7 7 */
  2018. /*:ref: vscl_ 14 3 7 7 7 */
  2019.  
  2020. extern int vprojg_(doublereal *a, doublereal *b, integer *ndim, doublereal *p);
  2021. /*:ref: vdotg_ 7 3 7 7 4 */
  2022. /*:ref: vsclg_ 14 4 7 7 4 7 */
  2023.  
  2024. extern doublereal vrel_(doublereal *v1, doublereal *v2);
  2025. /*:ref: vdist_ 7 2 7 7 */
  2026. /*:ref: vnorm_ 7 1 7 */
  2027.  
  2028. extern doublereal vrelg_(doublereal *v1, doublereal *v2, integer *ndim);
  2029. /*:ref: vdistg_ 7 3 7 7 4 */
  2030. /*:ref: vnormg_ 7 2 7 4 */
  2031.  
  2032. extern int vrotv_(doublereal *v, doublereal *axis, doublereal *theta, doublereal *r__);
  2033. /*:ref: vnorm_ 7 1 7 */
  2034. /*:ref: moved_ 14 3 7 4 7 */
  2035. /*:ref: vhat_ 14 2 7 7 */
  2036. /*:ref: vproj_ 14 3 7 7 7 */
  2037. /*:ref: vsub_ 14 3 7 7 7 */
  2038. /*:ref: vcrss_ 14 3 7 7 7 */
  2039. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2040. /*:ref: vadd_ 14 3 7 7 7 */
  2041.  
  2042. extern int vscl_(doublereal *s, doublereal *v1, doublereal *vout);
  2043.  
  2044. extern int vsclg_(doublereal *s, doublereal *v1, integer *ndim, doublereal *vout);
  2045.  
  2046. extern int vsclip_(doublereal *s, doublereal *v);
  2047.  
  2048. extern doublereal vsep_(doublereal *v1, doublereal *v2);
  2049. /*:ref: unorm_ 14 3 7 7 7 */
  2050. /*:ref: vdot_ 7 2 7 7 */
  2051. /*:ref: vnorm_ 7 1 7 */
  2052. /*:ref: pi_ 7 0 */
  2053.  
  2054. extern doublereal vsepg_(doublereal *v1, doublereal *v2, integer *ndim);
  2055. /*:ref: vnormg_ 7 2 7 4 */
  2056. /*:ref: vdotg_ 7 3 7 7 4 */
  2057. /*:ref: pi_ 7 0 */
  2058.  
  2059. extern int vsub_(doublereal *v1, doublereal *v2, doublereal *vout);
  2060.  
  2061. extern int vsubg_(doublereal *v1, doublereal *v2, integer *ndim, doublereal *vout);
  2062.  
  2063. extern doublereal vtmv_(doublereal *v1, doublereal *matrix, doublereal *v2);
  2064.  
  2065. extern doublereal vtmvg_(doublereal *v1, doublereal *matrix, doublereal *v2, integer *nrow, integer *ncol);
  2066.  
  2067. extern int vupack_(doublereal *v, doublereal *x, doublereal *y, doublereal *z__);
  2068.  
  2069. extern logical vzero_(doublereal *v);
  2070.  
  2071. extern logical vzerog_(doublereal *v, integer *ndim);
  2072.  
  2073. extern integer wdcnt_(char *string, ftnlen string_len);
  2074.  
  2075. extern integer wdindx_(char *string, char *word, ftnlen string_len, ftnlen word_len);
  2076. /*:ref: lastnb_ 4 2 13 124 */
  2077. /*:ref: frstnb_ 4 2 13 124 */
  2078.  
  2079. extern int wncomd_(doublereal *left, doublereal *right, doublereal *window, doublereal *result);
  2080. /*:ref: return_ 12 0 */
  2081. /*:ref: chkin_ 14 2 13 124 */
  2082. /*:ref: cardd_ 4 1 7 */
  2083. /*:ref: scardd_ 14 2 4 7 */
  2084. /*:ref: setmsg_ 14 2 13 124 */
  2085. /*:ref: sigerr_ 14 2 13 124 */
  2086. /*:ref: chkout_ 14 2 13 124 */
  2087. /*:ref: wninsd_ 14 3 7 7 7 */
  2088. /*:ref: failed_ 12 0 */
  2089.  
  2090. extern int wncond_(doublereal *left, doublereal *right, doublereal *window);
  2091. /*:ref: return_ 12 0 */
  2092. /*:ref: chkin_ 14 2 13 124 */
  2093. /*:ref: wnexpd_ 14 3 7 7 7 */
  2094. /*:ref: chkout_ 14 2 13 124 */
  2095.  
  2096. extern int wndifd_(doublereal *a, doublereal *b, doublereal *c__);
  2097. /*:ref: return_ 12 0 */
  2098. /*:ref: chkin_ 14 2 13 124 */
  2099. /*:ref: cardd_ 4 1 7 */
  2100. /*:ref: sized_ 4 1 7 */
  2101. /*:ref: ssized_ 14 2 4 7 */
  2102. /*:ref: copyd_ 14 2 7 7 */
  2103. /*:ref: chkout_ 14 2 13 124 */
  2104. /*:ref: scardd_ 14 2 4 7 */
  2105. /*:ref: setmsg_ 14 2 13 124 */
  2106. /*:ref: errint_ 14 3 13 4 124 */
  2107. /*:ref: sigerr_ 14 2 13 124 */
  2108.  
  2109. extern logical wnelmd_(doublereal *point, doublereal *window);
  2110. /*:ref: return_ 12 0 */
  2111. /*:ref: chkin_ 14 2 13 124 */
  2112. /*:ref: cardd_ 4 1 7 */
  2113. /*:ref: chkout_ 14 2 13 124 */
  2114.  
  2115. extern int wnexpd_(doublereal *left, doublereal *right, doublereal *window);
  2116. /*:ref: return_ 12 0 */
  2117. /*:ref: chkin_ 14 2 13 124 */
  2118. /*:ref: cardd_ 4 1 7 */
  2119. /*:ref: scardd_ 14 2 4 7 */
  2120. /*:ref: chkout_ 14 2 13 124 */
  2121.  
  2122. extern int wnextd_(char *side, doublereal *window, ftnlen side_len);
  2123. /*:ref: return_ 12 0 */
  2124. /*:ref: chkin_ 14 2 13 124 */
  2125. /*:ref: cardd_ 4 1 7 */
  2126. /*:ref: setmsg_ 14 2 13 124 */
  2127. /*:ref: errch_ 14 4 13 13 124 124 */
  2128. /*:ref: sigerr_ 14 2 13 124 */
  2129. /*:ref: chkout_ 14 2 13 124 */
  2130.  
  2131. extern int wnfetd_(doublereal *window, integer *n, doublereal *left, doublereal *right);
  2132. /*:ref: return_ 12 0 */
  2133. /*:ref: chkin_ 14 2 13 124 */
  2134. /*:ref: cardd_ 4 1 7 */
  2135. /*:ref: setmsg_ 14 2 13 124 */
  2136. /*:ref: sigerr_ 14 2 13 124 */
  2137. /*:ref: chkout_ 14 2 13 124 */
  2138.  
  2139. extern int wnfild_(doublereal *small, doublereal *window);
  2140. /*:ref: return_ 12 0 */
  2141. /*:ref: chkin_ 14 2 13 124 */
  2142. /*:ref: cardd_ 4 1 7 */
  2143. /*:ref: scardd_ 14 2 4 7 */
  2144. /*:ref: chkout_ 14 2 13 124 */
  2145.  
  2146. extern int wnfltd_(doublereal *small, doublereal *window);
  2147. /*:ref: return_ 12 0 */
  2148. /*:ref: chkin_ 14 2 13 124 */
  2149. /*:ref: cardd_ 4 1 7 */
  2150. /*:ref: scardd_ 14 2 4 7 */
  2151. /*:ref: chkout_ 14 2 13 124 */
  2152.  
  2153. extern logical wnincd_(doublereal *left, doublereal *right, doublereal *window);
  2154. /*:ref: return_ 12 0 */
  2155. /*:ref: chkin_ 14 2 13 124 */
  2156. /*:ref: cardd_ 4 1 7 */
  2157. /*:ref: chkout_ 14 2 13 124 */
  2158.  
  2159. extern int wninsd_(doublereal *left, doublereal *right, doublereal *window);
  2160. /*:ref: return_ 12 0 */
  2161. /*:ref: chkin_ 14 2 13 124 */
  2162. /*:ref: sized_ 4 1 7 */
  2163. /*:ref: cardd_ 4 1 7 */
  2164. /*:ref: setmsg_ 14 2 13 124 */
  2165. /*:ref: errdp_ 14 3 13 7 124 */
  2166. /*:ref: sigerr_ 14 2 13 124 */
  2167. /*:ref: chkout_ 14 2 13 124 */
  2168. /*:ref: scardd_ 14 2 4 7 */
  2169. /*:ref: excess_ 14 3 4 13 124 */
  2170.  
  2171. extern int wnintd_(doublereal *a, doublereal *b, doublereal *c__);
  2172. /*:ref: return_ 12 0 */
  2173. /*:ref: chkin_ 14 2 13 124 */
  2174. /*:ref: cardd_ 4 1 7 */
  2175. /*:ref: sized_ 4 1 7 */
  2176. /*:ref: scardd_ 14 2 4 7 */
  2177. /*:ref: excess_ 14 3 4 13 124 */
  2178. /*:ref: sigerr_ 14 2 13 124 */
  2179. /*:ref: chkout_ 14 2 13 124 */
  2180.  
  2181. extern logical wnreld_(doublereal *a, char *op, doublereal *b, ftnlen op_len);
  2182. /*:ref: return_ 12 0 */
  2183. /*:ref: chkin_ 14 2 13 124 */
  2184. /*:ref: cardd_ 4 1 7 */
  2185. /*:ref: wnincd_ 12 3 7 7 7 */
  2186. /*:ref: setmsg_ 14 2 13 124 */
  2187. /*:ref: errch_ 14 4 13 13 124 124 */
  2188. /*:ref: sigerr_ 14 2 13 124 */
  2189. /*:ref: chkout_ 14 2 13 124 */
  2190.  
  2191. extern int wnsumd_(doublereal *window, doublereal *meas, doublereal *avg, doublereal *stddev, integer *short__, integer *long__);
  2192. /*:ref: return_ 12 0 */
  2193. /*:ref: chkin_ 14 2 13 124 */
  2194. /*:ref: cardd_ 4 1 7 */
  2195. /*:ref: chkout_ 14 2 13 124 */
  2196.  
  2197. extern int wnunid_(doublereal *a, doublereal *b, doublereal *c__);
  2198. /*:ref: return_ 12 0 */
  2199. /*:ref: chkin_ 14 2 13 124 */
  2200. /*:ref: cardd_ 4 1 7 */
  2201. /*:ref: sized_ 4 1 7 */
  2202. /*:ref: scardd_ 14 2 4 7 */
  2203. /*:ref: excess_ 14 3 4 13 124 */
  2204. /*:ref: sigerr_ 14 2 13 124 */
  2205. /*:ref: chkout_ 14 2 13 124 */
  2206.  
  2207. extern int wnvald_(integer *size, integer *n, doublereal *a);
  2208. /*:ref: return_ 12 0 */
  2209. /*:ref: chkin_ 14 2 13 124 */
  2210. /*:ref: odd_ 12 1 4 */
  2211. /*:ref: setmsg_ 14 2 13 124 */
  2212. /*:ref: sigerr_ 14 2 13 124 */
  2213. /*:ref: chkout_ 14 2 13 124 */
  2214. /*:ref: ssized_ 14 2 4 7 */
  2215. /*:ref: scardd_ 14 2 4 7 */
  2216. /*:ref: wninsd_ 14 3 7 7 7 */
  2217.  
  2218. extern int wrencc_(integer *unit, integer *n, char *data, ftnlen data_len);
  2219. /*:ref: return_ 12 0 */
  2220. /*:ref: chkin_ 14 2 13 124 */
  2221. /*:ref: setmsg_ 14 2 13 124 */
  2222. /*:ref: errint_ 14 3 13 4 124 */
  2223. /*:ref: sigerr_ 14 2 13 124 */
  2224. /*:ref: chkout_ 14 2 13 124 */
  2225.  
  2226. extern int wrencd_(integer *unit, integer *n, doublereal *data);
  2227. /*:ref: return_ 12 0 */
  2228. /*:ref: chkin_ 14 2 13 124 */
  2229. /*:ref: setmsg_ 14 2 13 124 */
  2230. /*:ref: errint_ 14 3 13 4 124 */
  2231. /*:ref: sigerr_ 14 2 13 124 */
  2232. /*:ref: chkout_ 14 2 13 124 */
  2233. /*:ref: dp2hx_ 14 4 7 13 4 124 */
  2234.  
  2235. extern int wrenci_(integer *unit, integer *n, integer *data);
  2236. /*:ref: return_ 12 0 */
  2237. /*:ref: chkin_ 14 2 13 124 */
  2238. /*:ref: setmsg_ 14 2 13 124 */
  2239. /*:ref: errint_ 14 3 13 4 124 */
  2240. /*:ref: sigerr_ 14 2 13 124 */
  2241. /*:ref: chkout_ 14 2 13 124 */
  2242. /*:ref: int2hx_ 14 4 4 13 4 124 */
  2243.  
  2244. extern int writla_(integer *numlin, char *array, integer *unit, ftnlen array_len);
  2245. /*:ref: return_ 12 0 */
  2246. /*:ref: chkin_ 14 2 13 124 */
  2247. /*:ref: setmsg_ 14 2 13 124 */
  2248. /*:ref: errint_ 14 3 13 4 124 */
  2249. /*:ref: sigerr_ 14 2 13 124 */
  2250. /*:ref: chkout_ 14 2 13 124 */
  2251. /*:ref: writln_ 14 3 13 4 124 */
  2252. /*:ref: failed_ 12 0 */
  2253.  
  2254. extern int writln_(char *line, integer *unit, ftnlen line_len);
  2255. /*:ref: rtrim_ 4 2 13 124 */
  2256. /*:ref: chkin_ 14 2 13 124 */
  2257. /*:ref: setmsg_ 14 2 13 124 */
  2258. /*:ref: errfnm_ 14 3 13 4 124 */
  2259. /*:ref: errint_ 14 3 13 4 124 */
  2260. /*:ref: sigerr_ 14 2 13 124 */
  2261. /*:ref: chkout_ 14 2 13 124 */
  2262.  
  2263. extern int wrkvar_(integer *unit, char *name__, char *dirctv, char *tabsym, integer *tabptr, doublereal *tabval, ftnlen name_len, ftnlen dirctv_len, ftnlen tabsym_len);
  2264. /*:ref: return_ 12 0 */
  2265. /*:ref: chkin_ 14 2 13 124 */
  2266. /*:ref: sydimd_ 4 6 13 13 4 7 124 124 */
  2267. /*:ref: synthd_ 14 9 13 4 13 4 7 7 12 124 124 */
  2268. /*:ref: ljust_ 14 4 13 13 124 124 */
  2269. /*:ref: rjust_ 14 4 13 13 124 124 */
  2270. /*:ref: ioerr_ 14 5 13 13 4 124 124 */
  2271. /*:ref: sigerr_ 14 2 13 124 */
  2272. /*:ref: chkout_ 14 2 13 124 */
  2273.  
  2274. extern int wrline_(char *device, char *line, ftnlen device_len, ftnlen line_len);
  2275. extern int clline_(char *device, ftnlen device_len);
  2276. /*:ref: ljust_ 14 4 13 13 124 124 */
  2277. /*:ref: ucase_ 14 4 13 13 124 124 */
  2278. /*:ref: rtrim_ 4 2 13 124 */
  2279. /*:ref: ltrim_ 4 2 13 124 */
  2280. /*:ref: fndlun_ 14 1 4 */
  2281. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2282. /*:ref: intstr_ 14 3 4 13 124 */
  2283.  
  2284. extern int xf2eul_(doublereal *xform, integer *axisa, integer *axisb, integer *axisc, doublereal *eulang, logical *unique);
  2285. extern int eul2xf_(doublereal *eulang, integer *axisa, integer *axisb, integer *axisc, doublereal *xform);
  2286. /*:ref: return_ 12 0 */
  2287. /*:ref: chkin_ 14 2 13 124 */
  2288. /*:ref: m2eul_ 14 7 7 4 4 4 7 7 7 */
  2289. /*:ref: failed_ 12 0 */
  2290. /*:ref: chkout_ 14 2 13 124 */
  2291. /*:ref: mxmt_ 14 3 7 7 7 */
  2292. /*:ref: mxv_ 14 3 7 7 7 */
  2293. /*:ref: moved_ 14 3 7 4 7 */
  2294. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  2295. /*:ref: mxm_ 14 3 7 7 7 */
  2296.  
  2297. extern int xf2rav_(doublereal *xform, doublereal *rot, doublereal *av);
  2298. /*:ref: mtxm_ 14 3 7 7 7 */
  2299.  
  2300. extern int xposbl_(doublereal *bmat, integer *nrow, integer *ncol, integer *bsize, doublereal *btmat);
  2301. /*:ref: chkin_ 14 2 13 124 */
  2302. /*:ref: setmsg_ 14 2 13 124 */
  2303. /*:ref: errint_ 14 3 13 4 124 */
  2304. /*:ref: sigerr_ 14 2 13 124 */
  2305. /*:ref: chkout_ 14 2 13 124 */
  2306.  
  2307. extern int xpose_(doublereal *m1, doublereal *mout);
  2308.  
  2309. extern int xposeg_(doublereal *matrix, integer *nrow, integer *ncol, doublereal *xposem);
  2310.  
  2311. extern int xpsgip_(integer *nrow, integer *ncol, doublereal *matrix);
  2312.  
  2313. extern int zzascii_(char *file, char *line, logical *check, char *termin, ftnlen file_len, ftnlen line_len, ftnlen termin_len);
  2314. /*:ref: return_ 12 0 */
  2315. /*:ref: chkin_ 14 2 13 124 */
  2316. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2317. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2318. /*:ref: chkout_ 14 2 13 124 */
  2319. /*:ref: setmsg_ 14 2 13 124 */
  2320. /*:ref: sigerr_ 14 2 13 124 */
  2321. /*:ref: getlun_ 14 1 4 */
  2322. /*:ref: rtrim_ 4 2 13 124 */
  2323. /*:ref: errch_ 14 4 13 13 124 124 */
  2324. /*:ref: errint_ 14 3 13 4 124 */
  2325.  
  2326. extern int zzasryel_(char *extrem, doublereal *ellips, doublereal *vertex, doublereal *dir, doublereal *angle, doublereal *extpt, ftnlen extrem_len);
  2327. /*:ref: return_ 12 0 */
  2328. /*:ref: chkin_ 14 2 13 124 */
  2329. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2330. /*:ref: ljust_ 14 4 13 13 124 124 */
  2331. /*:ref: setmsg_ 14 2 13 124 */
  2332. /*:ref: errch_ 14 4 13 13 124 124 */
  2333. /*:ref: sigerr_ 14 2 13 124 */
  2334. /*:ref: chkout_ 14 2 13 124 */
  2335. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  2336. /*:ref: vnorm_ 7 1 7 */
  2337. /*:ref: vzero_ 12 1 7 */
  2338. /*:ref: errdp_ 14 3 13 7 124 */
  2339. /*:ref: psv2pl_ 14 4 7 7 7 7 */
  2340. /*:ref: failed_ 12 0 */
  2341. /*:ref: vprjp_ 14 3 7 7 7 */
  2342. /*:ref: vdist_ 7 2 7 7 */
  2343. /*:ref: inrypl_ 14 5 7 7 7 4 7 */
  2344. /*:ref: vsub_ 14 3 7 7 7 */
  2345. /*:ref: vdot_ 7 2 7 7 */
  2346. /*:ref: twopi_ 7 0 */
  2347. /*:ref: vhat_ 14 2 7 7 */
  2348. /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
  2349. /*:ref: touchd_ 7 1 7 */
  2350. /*:ref: swapd_ 14 2 7 7 */
  2351. /*:ref: vadd_ 14 3 7 7 7 */
  2352. /*:ref: vsep_ 7 2 7 7 */
  2353.  
  2354. 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);
  2355. extern int zzbodget_(integer *room, char *names, char *nornam, integer *codes, integer *nvals, ftnlen names_len, ftnlen nornam_len);
  2356. extern int zzbodlst_(char *device, char *reqst, ftnlen device_len, ftnlen reqst_len);
  2357. /*:ref: return_ 12 0 */
  2358. /*:ref: chkin_ 14 2 13 124 */
  2359. /*:ref: sigerr_ 14 2 13 124 */
  2360. /*:ref: chkout_ 14 2 13 124 */
  2361. /*:ref: zzidmap_ 14 3 4 13 124 */
  2362. /*:ref: ljust_ 14 4 13 13 124 124 */
  2363. /*:ref: ucase_ 14 4 13 13 124 124 */
  2364. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2365. /*:ref: setmsg_ 14 2 13 124 */
  2366. /*:ref: errint_ 14 3 13 4 124 */
  2367. /*:ref: movec_ 14 5 13 4 13 124 124 */
  2368. /*:ref: movei_ 14 3 4 4 4 */
  2369. /*:ref: intstr_ 14 3 4 13 124 */
  2370. /*:ref: wrline_ 14 4 13 13 124 124 */
  2371. /*:ref: lastnb_ 4 2 13 124 */
  2372. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2373. /*:ref: orderi_ 14 3 4 4 4 */
  2374. /*:ref: orderc_ 14 4 13 4 4 124 */
  2375.  
  2376. extern integer zzbodbry_(integer *body);
  2377.  
  2378. extern int zzbodini_(char *names, char *nornam, integer *codes, integer *nvals, integer *ordnom, integer *ordcod, integer *nocds, ftnlen names_len, ftnlen nornam_len);
  2379. /*:ref: orderc_ 14 4 13 4 4 124 */
  2380. /*:ref: orderi_ 14 3 4 4 4 */
  2381.  
  2382. extern int zzbodker_(char *names, char *nornam, integer *codes, integer *nvals, integer *ordnom, integer *ordcod, integer *nocds, logical *extker, ftnlen names_len, ftnlen nornam_len);
  2383. /*:ref: return_ 12 0 */
  2384. /*:ref: chkin_ 14 2 13 124 */
  2385. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  2386. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  2387. /*:ref: setmsg_ 14 2 13 124 */
  2388. /*:ref: errch_ 14 4 13 13 124 124 */
  2389. /*:ref: sigerr_ 14 2 13 124 */
  2390. /*:ref: chkout_ 14 2 13 124 */
  2391. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2392. /*:ref: errint_ 14 3 13 4 124 */
  2393. /*:ref: ljust_ 14 4 13 13 124 124 */
  2394. /*:ref: ucase_ 14 4 13 13 124 124 */
  2395. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2396. /*:ref: orderc_ 14 4 13 4 4 124 */
  2397. /*:ref: zzbodini_ 14 9 13 13 4 4 4 4 4 124 124 */
  2398.  
  2399. extern int zzbodtrn_(char *name__, integer *code, logical *found, ftnlen name_len);
  2400. extern int zzbodn2c_(char *name__, integer *code, logical *found, ftnlen name_len);
  2401. extern int zzbodc2n_(integer *code, char *name__, logical *found, ftnlen name_len);
  2402. extern int zzboddef_(char *name__, integer *code, ftnlen name_len);
  2403. extern int zzbodkik_(void);
  2404. extern int zzbodrst_(void);
  2405. /*:ref: return_ 12 0 */
  2406. /*:ref: chkin_ 14 2 13 124 */
  2407. /*:ref: sigerr_ 14 2 13 124 */
  2408. /*:ref: chkout_ 14 2 13 124 */
  2409. /*:ref: zzbodget_ 14 7 4 13 13 4 4 124 124 */
  2410. /*:ref: failed_ 12 0 */
  2411. /*:ref: zzbodini_ 14 9 13 13 4 4 4 4 4 124 124 */
  2412. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  2413. /*:ref: cvpool_ 14 3 13 12 124 */
  2414. /*:ref: zzbodker_ 14 10 13 13 4 4 4 4 4 12 124 124 */
  2415. /*:ref: ljust_ 14 4 13 13 124 124 */
  2416. /*:ref: ucase_ 14 4 13 13 124 124 */
  2417. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2418. /*:ref: bschoc_ 4 6 13 4 13 4 124 124 */
  2419. /*:ref: bschoi_ 4 4 4 4 4 4 */
  2420. /*:ref: setmsg_ 14 2 13 124 */
  2421. /*:ref: errint_ 14 3 13 4 124 */
  2422. /*:ref: errch_ 14 4 13 13 124 124 */
  2423.  
  2424. extern int zzbodvcd_(integer *bodyid, char *item, integer *maxn, integer *dim, doublereal *values, ftnlen item_len);
  2425. /*:ref: return_ 12 0 */
  2426. /*:ref: chkin_ 14 2 13 124 */
  2427. /*:ref: intstr_ 14 3 4 13 124 */
  2428. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2429. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2430. /*:ref: setmsg_ 14 2 13 124 */
  2431. /*:ref: errch_ 14 4 13 13 124 124 */
  2432. /*:ref: sigerr_ 14 2 13 124 */
  2433. /*:ref: chkout_ 14 2 13 124 */
  2434. /*:ref: errint_ 14 3 13 4 124 */
  2435. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  2436.  
  2437. extern int zzck4d2i_(doublereal *dpcoef, integer *nsets, doublereal *parcod, integer *i__);
  2438.  
  2439. extern int zzck4i2d_(integer *i__, integer *nsets, doublereal *parcod, doublereal *dpcoef);
  2440.  
  2441. extern int zzckcv01_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
  2442. /*:ref: return_ 12 0 */
  2443. /*:ref: chkin_ 14 2 13 124 */
  2444. /*:ref: setmsg_ 14 2 13 124 */
  2445. /*:ref: errdp_ 14 3 13 7 124 */
  2446. /*:ref: sigerr_ 14 2 13 124 */
  2447. /*:ref: chkout_ 14 2 13 124 */
  2448. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2449. /*:ref: errch_ 14 4 13 13 124 124 */
  2450. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2451. /*:ref: errhan_ 14 3 13 4 124 */
  2452. /*:ref: errint_ 14 3 13 4 124 */
  2453. /*:ref: sct2e_ 14 3 4 7 7 */
  2454. /*:ref: wninsd_ 14 3 7 7 7 */
  2455.  
  2456. extern int zzckcv02_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
  2457. /*:ref: return_ 12 0 */
  2458. /*:ref: chkin_ 14 2 13 124 */
  2459. /*:ref: setmsg_ 14 2 13 124 */
  2460. /*:ref: errdp_ 14 3 13 7 124 */
  2461. /*:ref: sigerr_ 14 2 13 124 */
  2462. /*:ref: chkout_ 14 2 13 124 */
  2463. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2464. /*:ref: errch_ 14 4 13 13 124 124 */
  2465. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2466. /*:ref: sct2e_ 14 3 4 7 7 */
  2467. /*:ref: wninsd_ 14 3 7 7 7 */
  2468.  
  2469. extern int zzckcv03_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
  2470. /*:ref: return_ 12 0 */
  2471. /*:ref: chkin_ 14 2 13 124 */
  2472. /*:ref: setmsg_ 14 2 13 124 */
  2473. /*:ref: errdp_ 14 3 13 7 124 */
  2474. /*:ref: sigerr_ 14 2 13 124 */
  2475. /*:ref: chkout_ 14 2 13 124 */
  2476. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2477. /*:ref: errch_ 14 4 13 13 124 124 */
  2478. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2479. /*:ref: errhan_ 14 3 13 4 124 */
  2480. /*:ref: errint_ 14 3 13 4 124 */
  2481. /*:ref: sct2e_ 14 3 4 7 7 */
  2482. /*:ref: wninsd_ 14 3 7 7 7 */
  2483.  
  2484. extern int zzckcv04_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
  2485. /*:ref: return_ 12 0 */
  2486. /*:ref: chkin_ 14 2 13 124 */
  2487. /*:ref: setmsg_ 14 2 13 124 */
  2488. /*:ref: errdp_ 14 3 13 7 124 */
  2489. /*:ref: sigerr_ 14 2 13 124 */
  2490. /*:ref: chkout_ 14 2 13 124 */
  2491. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2492. /*:ref: errch_ 14 4 13 13 124 124 */
  2493. /*:ref: intmax_ 4 0 */
  2494. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  2495. /*:ref: cknr04_ 14 3 4 7 4 */
  2496. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  2497. /*:ref: sct2e_ 14 3 4 7 7 */
  2498. /*:ref: wninsd_ 14 3 7 7 7 */
  2499.  
  2500. extern int zzckcv05_(integer *handle, integer *arrbeg, integer *arrend, integer *sclkid, doublereal *dc, doublereal *tol, char *timsys, doublereal *schedl, ftnlen timsys_len);
  2501. /*:ref: return_ 12 0 */
  2502. /*:ref: chkin_ 14 2 13 124 */
  2503. /*:ref: setmsg_ 14 2 13 124 */
  2504. /*:ref: errdp_ 14 3 13 7 124 */
  2505. /*:ref: sigerr_ 14 2 13 124 */
  2506. /*:ref: chkout_ 14 2 13 124 */
  2507. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2508. /*:ref: errch_ 14 4 13 13 124 124 */
  2509. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2510. /*:ref: errint_ 14 3 13 7 124 */
  2511. /*:ref: sct2e_ 14 3 4 7 7 */
  2512. /*:ref: wninsd_ 14 3 7 7 7 */
  2513.  
  2514. extern int zzckspk_(integer *handle, char *ckspk, ftnlen ckspk_len);
  2515. /*:ref: return_ 12 0 */
  2516. /*:ref: chkin_ 14 2 13 124 */
  2517. /*:ref: dafhsf_ 14 3 4 4 4 */
  2518. /*:ref: chkout_ 14 2 13 124 */
  2519. /*:ref: dafbfs_ 14 1 4 */
  2520. /*:ref: daffna_ 14 1 12 */
  2521. /*:ref: failed_ 12 0 */
  2522. /*:ref: dafgs_ 14 1 7 */
  2523. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  2524. /*:ref: zzsizeok_ 14 6 4 4 4 4 12 4 */
  2525. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2526.  
  2527. extern int zzcln_(integer *lookat, integer *nameat, integer *namlst, integer *datlst, integer *nmpool, integer *chpool, integer *dppool);
  2528. /*:ref: chkin_ 14 2 13 124 */
  2529. /*:ref: lnkfsl_ 14 3 4 4 4 */
  2530. /*:ref: chkout_ 14 2 13 124 */
  2531.  
  2532. extern int zzcorepc_(char *abcorr, doublereal *et, doublereal *lt, doublereal *etcorr, ftnlen abcorr_len);
  2533. /*:ref: return_ 12 0 */
  2534. /*:ref: chkin_ 14 2 13 124 */
  2535. /*:ref: zzprscor_ 14 3 13 12 124 */
  2536. /*:ref: chkout_ 14 2 13 124 */
  2537.  
  2538. extern int zzdafgdr_(integer *handle, integer *recno, doublereal *dprec, logical *found);
  2539. /*:ref: return_ 12 0 */
  2540. /*:ref: chkin_ 14 2 13 124 */
  2541. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2542. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2543. /*:ref: ucase_ 14 4 13 13 124 124 */
  2544. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2545. /*:ref: setmsg_ 14 2 13 124 */
  2546. /*:ref: errch_ 14 4 13 13 124 124 */
  2547. /*:ref: sigerr_ 14 2 13 124 */
  2548. /*:ref: chkout_ 14 2 13 124 */
  2549. /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
  2550. /*:ref: errint_ 14 3 13 4 124 */
  2551. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2552. /*:ref: failed_ 12 0 */
  2553. /*:ref: zzxlated_ 14 5 4 13 4 7 124 */
  2554. /*:ref: moved_ 14 3 7 4 7 */
  2555.  
  2556. 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);
  2557. /*:ref: return_ 12 0 */
  2558. /*:ref: chkin_ 14 2 13 124 */
  2559. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2560. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2561. /*:ref: ucase_ 14 4 13 13 124 124 */
  2562. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2563. /*:ref: setmsg_ 14 2 13 124 */
  2564. /*:ref: errch_ 14 4 13 13 124 124 */
  2565. /*:ref: sigerr_ 14 2 13 124 */
  2566. /*:ref: chkout_ 14 2 13 124 */
  2567. /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
  2568. /*:ref: errint_ 14 3 13 4 124 */
  2569. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2570. /*:ref: failed_ 12 0 */
  2571. /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
  2572.  
  2573. extern int zzdafgsr_(integer *handle, integer *recno, integer *nd, integer *ni, doublereal *dprec, logical *found);
  2574. /*:ref: return_ 12 0 */
  2575. /*:ref: chkin_ 14 2 13 124 */
  2576. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2577. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2578. /*:ref: ucase_ 14 4 13 13 124 124 */
  2579. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2580. /*:ref: setmsg_ 14 2 13 124 */
  2581. /*:ref: errch_ 14 4 13 13 124 124 */
  2582. /*:ref: sigerr_ 14 2 13 124 */
  2583. /*:ref: chkout_ 14 2 13 124 */
  2584. /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
  2585. /*:ref: errint_ 14 3 13 4 124 */
  2586. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2587. /*:ref: failed_ 12 0 */
  2588. /*:ref: zzxlated_ 14 5 4 13 4 7 124 */
  2589. /*:ref: zzxlatei_ 14 5 4 13 4 4 124 */
  2590. /*:ref: moved_ 14 3 7 4 7 */
  2591.  
  2592. 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);
  2593. /*:ref: return_ 12 0 */
  2594. /*:ref: chkin_ 14 2 13 124 */
  2595. /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
  2596. /*:ref: rtrim_ 4 2 13 124 */
  2597. /*:ref: setmsg_ 14 2 13 124 */
  2598. /*:ref: errfnm_ 14 3 13 4 124 */
  2599. /*:ref: errint_ 14 3 13 4 124 */
  2600. /*:ref: sigerr_ 14 2 13 124 */
  2601. /*:ref: chkout_ 14 2 13 124 */
  2602.  
  2603. 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);
  2604. /*:ref: return_ 12 0 */
  2605. /*:ref: chkin_ 14 2 13 124 */
  2606. /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
  2607. /*:ref: rtrim_ 4 2 13 124 */
  2608. /*:ref: setmsg_ 14 2 13 124 */
  2609. /*:ref: errfnm_ 14 3 13 4 124 */
  2610. /*:ref: errint_ 14 3 13 4 124 */
  2611. /*:ref: sigerr_ 14 2 13 124 */
  2612. /*:ref: chkout_ 14 2 13 124 */
  2613.  
  2614. extern integer zzddhclu_(logical *utlck, integer *nut);
  2615.  
  2616. extern int zzddhf2h_(char *fname, integer *ftabs, integer *ftamh, integer *ftarc, integer *ftbff, integer *fthan, char *ftnam, integer *ftrtm, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, logical *exists, logical *opened, integer *handle, logical *found, ftnlen fname_len, ftnlen ftnam_len);
  2617. /*:ref: return_ 12 0 */
  2618. /*:ref: chkin_ 14 2 13 124 */
  2619. /*:ref: chkout_ 14 2 13 124 */
  2620. /*:ref: rtrim_ 4 2 13 124 */
  2621. /*:ref: setmsg_ 14 2 13 124 */
  2622. /*:ref: errint_ 14 3 13 4 124 */
  2623. /*:ref: sigerr_ 14 2 13 124 */
  2624. /*:ref: isrchi_ 4 3 4 4 4 */
  2625. /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */
  2626. /*:ref: failed_ 12 0 */
  2627. /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */
  2628. /*:ref: errch_ 14 4 13 13 124 124 */
  2629.  
  2630. extern int zzddhgsd_(char *class__, integer *id, char *label, ftnlen class_len, ftnlen label_len);
  2631. /*:ref: ljust_ 14 4 13 13 124 124 */
  2632. /*:ref: ucase_ 14 4 13 13 124 124 */
  2633. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2634.  
  2635. extern int zzddhgtu_(integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut, integer *uindex);
  2636. /*:ref: return_ 12 0 */
  2637. /*:ref: getlun_ 14 1 4 */
  2638. /*:ref: failed_ 12 0 */
  2639. /*:ref: orderi_ 14 3 4 4 4 */
  2640. /*:ref: frelun_ 14 1 4 */
  2641. /*:ref: chkin_ 14 2 13 124 */
  2642. /*:ref: setmsg_ 14 2 13 124 */
  2643. /*:ref: sigerr_ 14 2 13 124 */
  2644. /*:ref: chkout_ 14 2 13 124 */
  2645.  
  2646. extern int zzddhini_(integer *natbff, integer *supbff, integer *numsup, char *stramh, char *strarc, char *strbff, ftnlen stramh_len, ftnlen strarc_len, ftnlen strbff_len);
  2647. /*:ref: return_ 12 0 */
  2648. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2649. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2650. /*:ref: ucase_ 14 4 13 13 124 124 */
  2651. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2652. /*:ref: chkin_ 14 2 13 124 */
  2653. /*:ref: setmsg_ 14 2 13 124 */
  2654. /*:ref: errch_ 14 4 13 13 124 124 */
  2655. /*:ref: sigerr_ 14 2 13 124 */
  2656. /*:ref: chkout_ 14 2 13 124 */
  2657. /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
  2658.  
  2659. extern int zzddhivf_(char *nsum, integer *bff, logical *found, ftnlen nsum_len);
  2660.  
  2661. 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);
  2662. extern int zzddhopn_(char *fname, char *method, char *arch, integer *handle, ftnlen fname_len, ftnlen method_len, ftnlen arch_len);
  2663. extern int zzddhcls_(integer *handle, char *arch, logical *kill, ftnlen arch_len);
  2664. extern int zzddhhlu_(integer *handle, char *arch, logical *lock, integer *unit, ftnlen arch_len);
  2665. extern int zzddhunl_(integer *handle, char *arch, ftnlen arch_len);
  2666. extern int zzddhnfo_(integer *handle, char *fname, integer *intarc, integer *intbff, integer *intamh, logical *found, ftnlen fname_len);
  2667. extern int zzddhisn_(integer *handle, logical *native, logical *found);
  2668. extern int zzddhfnh_(char *fname, integer *handle, logical *found, ftnlen fname_len);
  2669. extern int zzddhluh_(integer *unit, integer *handle, logical *found);
  2670. /*:ref: return_ 12 0 */
  2671. /*:ref: chkin_ 14 2 13 124 */
  2672. /*:ref: sigerr_ 14 2 13 124 */
  2673. /*:ref: chkout_ 14 2 13 124 */
  2674. /*:ref: zzddhini_ 14 9 4 4 4 13 13 13 124 124 124 */
  2675. /*:ref: failed_ 12 0 */
  2676. /*:ref: zzpltchk_ 14 1 12 */
  2677. /*:ref: ljust_ 14 4 13 13 124 124 */
  2678. /*:ref: ucase_ 14 4 13 13 124 124 */
  2679. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2680. /*:ref: setmsg_ 14 2 13 124 */
  2681. /*:ref: errch_ 14 4 13 13 124 124 */
  2682. /*:ref: zzddhclu_ 4 2 12 4 */
  2683. /*:ref: zzddhf2h_ 14 20 13 4 4 4 4 4 13 4 4 4 4 12 4 4 12 12 4 12 124 124 */
  2684. /*:ref: errint_ 14 3 13 4 124 */
  2685. /*:ref: bsrchi_ 4 3 4 4 4 */
  2686. /*:ref: zzddhrcm_ 14 3 4 4 4 */
  2687. /*:ref: zzddhgtu_ 14 6 4 4 12 4 4 4 */
  2688. /*:ref: rtrim_ 4 2 13 124 */
  2689. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2690. /*:ref: zzddhppf_ 14 3 4 4 4 */
  2691. /*:ref: isrchi_ 4 3 4 4 4 */
  2692. /*:ref: zzddhrmu_ 14 7 4 4 4 4 12 4 4 */
  2693. /*:ref: frelun_ 14 1 4 */
  2694.  
  2695. extern int zzddhppf_(integer *unit, integer *arch, integer *bff);
  2696. /*:ref: return_ 12 0 */
  2697. /*:ref: chkin_ 14 2 13 124 */
  2698. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2699. /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
  2700. /*:ref: setmsg_ 14 2 13 124 */
  2701. /*:ref: errint_ 14 3 13 4 124 */
  2702. /*:ref: sigerr_ 14 2 13 124 */
  2703. /*:ref: chkout_ 14 2 13 124 */
  2704. /*:ref: errfnm_ 14 3 13 4 124 */
  2705. /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
  2706. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2707. /*:ref: errch_ 14 4 13 13 124 124 */
  2708. /*:ref: zzftpchk_ 14 3 13 12 124 */
  2709. /*:ref: pos_ 4 5 13 13 4 124 124 */
  2710. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2711. /*:ref: ucase_ 14 4 13 13 124 124 */
  2712. /*:ref: zzddhivf_ 14 4 13 4 12 124 */
  2713.  
  2714. extern int zzddhrcm_(integer *nut, integer *utcst, integer *reqcnt);
  2715. /*:ref: intmax_ 4 0 */
  2716.  
  2717. extern int zzddhrmu_(integer *uindex, integer *nft, integer *utcst, integer *uthan, logical *utlck, integer *utlun, integer *nut);
  2718. /*:ref: chkin_ 14 2 13 124 */
  2719. /*:ref: setmsg_ 14 2 13 124 */
  2720. /*:ref: errint_ 14 3 13 4 124 */
  2721. /*:ref: sigerr_ 14 2 13 124 */
  2722. /*:ref: chkout_ 14 2 13 124 */
  2723. /*:ref: reslun_ 14 1 4 */
  2724.  
  2725. extern int zzdynbid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len);
  2726. /*:ref: return_ 12 0 */
  2727. /*:ref: chkin_ 14 2 13 124 */
  2728. /*:ref: intstr_ 14 3 4 13 124 */
  2729. /*:ref: failed_ 12 0 */
  2730. /*:ref: chkout_ 14 2 13 124 */
  2731. /*:ref: rtrim_ 4 2 13 124 */
  2732. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2733. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2734. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2735. /*:ref: setmsg_ 14 2 13 124 */
  2736. /*:ref: errint_ 14 3 13 4 124 */
  2737. /*:ref: errch_ 14 4 13 13 124 124 */
  2738. /*:ref: sigerr_ 14 2 13 124 */
  2739. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  2740. /*:ref: bods2c_ 14 4 13 4 12 124 */
  2741. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  2742.  
  2743. extern int zzdynfid_(char *frname, integer *frcode, char *item, integer *idcode, ftnlen frname_len, ftnlen item_len);
  2744. /*:ref: return_ 12 0 */
  2745. /*:ref: chkin_ 14 2 13 124 */
  2746. /*:ref: intstr_ 14 3 4 13 124 */
  2747. /*:ref: failed_ 12 0 */
  2748. /*:ref: chkout_ 14 2 13 124 */
  2749. /*:ref: rtrim_ 4 2 13 124 */
  2750. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2751. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2752. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2753. /*:ref: setmsg_ 14 2 13 124 */
  2754. /*:ref: errint_ 14 3 13 4 124 */
  2755. /*:ref: errch_ 14 4 13 13 124 124 */
  2756. /*:ref: sigerr_ 14 2 13 124 */
  2757. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  2758. /*:ref: namfrm_ 14 3 13 4 124 */
  2759. /*:ref: beint_ 12 2 13 124 */
  2760. /*:ref: prsint_ 14 3 13 4 124 */
  2761. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  2762.  
  2763. extern int zzdynfr0_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm);
  2764. /*:ref: return_ 12 0 */
  2765. /*:ref: chkin_ 14 2 13 124 */
  2766. /*:ref: irfnum_ 14 3 13 4 124 */
  2767. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  2768. /*:ref: cleard_ 14 2 4 7 */
  2769. /*:ref: frmnam_ 14 3 4 13 124 */
  2770. /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
  2771. /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
  2772. /*:ref: failed_ 12 0 */
  2773. /*:ref: chkout_ 14 2 13 124 */
  2774. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2775. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2776. /*:ref: ucase_ 14 4 13 13 124 124 */
  2777. /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
  2778. /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
  2779. /*:ref: setmsg_ 14 2 13 124 */
  2780. /*:ref: errch_ 14 4 13 13 124 124 */
  2781. /*:ref: sigerr_ 14 2 13 124 */
  2782. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2783. /*:ref: intstr_ 14 3 4 13 124 */
  2784. /*:ref: zzeprc76_ 14 2 7 7 */
  2785. /*:ref: invstm_ 14 2 7 7 */
  2786. /*:ref: zzenut80_ 14 2 7 7 */
  2787. /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */
  2788. /*:ref: zzmobliq_ 14 3 7 7 7 */
  2789. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  2790. /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
  2791. /*:ref: moved_ 14 3 7 4 7 */
  2792. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2793. /*:ref: errint_ 14 3 13 4 124 */
  2794. /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
  2795. /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */
  2796. /*:ref: vpack_ 14 4 7 7 7 7 */
  2797. /*:ref: vhat_ 14 2 7 7 */
  2798. /*:ref: qderiv_ 14 5 4 7 7 7 7 */
  2799. /*:ref: vequ_ 14 2 7 7 */
  2800. /*:ref: zzprscor_ 14 3 13 12 124 */
  2801. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2802. /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */
  2803. /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
  2804. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2805. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  2806. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  2807. /*:ref: vminug_ 14 3 7 4 7 */
  2808. /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */
  2809. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2810. /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
  2811. /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
  2812. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  2813. /*:ref: latrec_ 14 4 7 7 7 7 */
  2814. /*:ref: stlabx_ 14 3 7 7 7 */
  2815. /*:ref: stelab_ 14 3 7 7 7 */
  2816. /*:ref: vsep_ 7 2 7 7 */
  2817. /*:ref: etcal_ 14 3 7 13 124 */
  2818. /*:ref: errdp_ 14 3 13 7 124 */
  2819. /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
  2820. /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
  2821. /*:ref: polyds_ 14 5 7 4 4 7 7 */
  2822.  
  2823. extern int zzdynfrm_(integer *infram, integer *center, doublereal *et, doublereal *xform, integer *basfrm);
  2824. /*:ref: return_ 12 0 */
  2825. /*:ref: chkin_ 14 2 13 124 */
  2826. /*:ref: irfnum_ 14 3 13 4 124 */
  2827. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  2828. /*:ref: cleard_ 14 2 4 7 */
  2829. /*:ref: frmnam_ 14 3 4 13 124 */
  2830. /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
  2831. /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
  2832. /*:ref: failed_ 12 0 */
  2833. /*:ref: chkout_ 14 2 13 124 */
  2834. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2835. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2836. /*:ref: ucase_ 14 4 13 13 124 124 */
  2837. /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
  2838. /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
  2839. /*:ref: setmsg_ 14 2 13 124 */
  2840. /*:ref: errch_ 14 4 13 13 124 124 */
  2841. /*:ref: sigerr_ 14 2 13 124 */
  2842. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2843. /*:ref: intstr_ 14 3 4 13 124 */
  2844. /*:ref: zzeprc76_ 14 2 7 7 */
  2845. /*:ref: invstm_ 14 2 7 7 */
  2846. /*:ref: zzenut80_ 14 2 7 7 */
  2847. /*:ref: mxmg_ 14 6 7 7 4 4 4 7 */
  2848. /*:ref: zzmobliq_ 14 3 7 7 7 */
  2849. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  2850. /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
  2851. /*:ref: moved_ 14 3 7 4 7 */
  2852. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2853. /*:ref: errint_ 14 3 13 4 124 */
  2854. /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
  2855. /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */
  2856. /*:ref: vpack_ 14 4 7 7 7 7 */
  2857. /*:ref: vhat_ 14 2 7 7 */
  2858. /*:ref: qderiv_ 14 5 4 7 7 7 7 */
  2859. /*:ref: vequ_ 14 2 7 7 */
  2860. /*:ref: zzprscor_ 14 3 13 12 124 */
  2861. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2862. /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */
  2863. /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
  2864. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2865. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  2866. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  2867. /*:ref: vminug_ 14 3 7 4 7 */
  2868. /*:ref: dnearp_ 14 7 7 7 7 7 7 7 12 */
  2869. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2870. /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
  2871. /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
  2872. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  2873. /*:ref: latrec_ 14 4 7 7 7 7 */
  2874. /*:ref: stlabx_ 14 3 7 7 7 */
  2875. /*:ref: stelab_ 14 3 7 7 7 */
  2876. /*:ref: vsep_ 7 2 7 7 */
  2877. /*:ref: etcal_ 14 3 7 13 124 */
  2878. /*:ref: errdp_ 14 3 13 7 124 */
  2879. /*:ref: zztwovxf_ 14 5 7 4 7 4 7 */
  2880. /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
  2881. /*:ref: polyds_ 14 5 7 4 4 7 7 */
  2882.  
  2883. 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);
  2884. /*:ref: return_ 12 0 */
  2885. /*:ref: chkin_ 14 2 13 124 */
  2886. /*:ref: intstr_ 14 3 4 13 124 */
  2887. /*:ref: failed_ 12 0 */
  2888. /*:ref: chkout_ 14 2 13 124 */
  2889. /*:ref: rtrim_ 4 2 13 124 */
  2890. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2891. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2892. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2893. /*:ref: setmsg_ 14 2 13 124 */
  2894. /*:ref: errint_ 14 3 13 4 124 */
  2895. /*:ref: errch_ 14 4 13 13 124 124 */
  2896. /*:ref: sigerr_ 14 2 13 124 */
  2897. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  2898.  
  2899. extern int zzdynoad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, logical *found, ftnlen frname_len, ftnlen item_len);
  2900. /*:ref: return_ 12 0 */
  2901. /*:ref: chkin_ 14 2 13 124 */
  2902. /*:ref: intstr_ 14 3 4 13 124 */
  2903. /*:ref: failed_ 12 0 */
  2904. /*:ref: chkout_ 14 2 13 124 */
  2905. /*:ref: rtrim_ 4 2 13 124 */
  2906. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2907. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2908. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2909. /*:ref: setmsg_ 14 2 13 124 */
  2910. /*:ref: errint_ 14 3 13 4 124 */
  2911. /*:ref: errch_ 14 4 13 13 124 124 */
  2912. /*:ref: sigerr_ 14 2 13 124 */
  2913. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  2914.  
  2915. extern int zzdynrot_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm);
  2916. /*:ref: return_ 12 0 */
  2917. /*:ref: chkin_ 14 2 13 124 */
  2918. /*:ref: irfnum_ 14 3 13 4 124 */
  2919. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  2920. /*:ref: cleard_ 14 2 4 7 */
  2921. /*:ref: frmnam_ 14 3 4 13 124 */