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

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

OpenGL

开发平台：

Visual C++

SpiceZfc.h：源码内容
  1. /*:ref: sigerr_ 14 2 13 124 */
  2. /*:ref: chkout_ 14 2 13 124 */
  3. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  4. /*:ref: errint_ 14 3 13 4 124 */
  5. /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
  6. /*:ref: rmaind_ 14 4 7 7 7 7 */
  7. /*:ref: twopi_ 7 0 */
  8. /*:ref: pi_ 7 0 */
  9. /*:ref: brcktd_ 7 3 7 7 7 */
  10. /*:ref: dpfmt_ 14 5 7 13 13 124 124 */
  11.  
  12. extern int et2utc_(doublereal *et, char *format, integer *prec, char *utcstr, ftnlen format_len, ftnlen utcstr_len);
  13. /*:ref: return_ 12 0 */
  14. /*:ref: chkin_ 14 2 13 124 */
  15. /*:ref: ucase_ 14 4 13 13 124 124 */
  16. /*:ref: setmsg_ 14 2 13 124 */
  17. /*:ref: errch_ 14 4 13 13 124 124 */
  18. /*:ref: sigerr_ 14 2 13 124 */
  19. /*:ref: chkout_ 14 2 13 124 */
  20. /*:ref: ttrans_ 14 5 13 13 7 124 124 */
  21. /*:ref: failed_ 12 0 */
  22. /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
  23. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  24. /*:ref: unitim_ 7 5 7 13 13 124 124 */
  25. /*:ref: intstr_ 14 3 4 13 124 */
  26. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  27. /*:ref: errint_ 14 3 13 4 124 */
  28.  
  29. extern int etcal_(doublereal *et, char *string, ftnlen string_len);
  30. /*:ref: spd_ 7 0 */
  31. /*:ref: intmax_ 4 0 */
  32. /*:ref: intmin_ 4 0 */
  33. /*:ref: lstlti_ 4 3 4 4 4 */
  34. /*:ref: intstr_ 14 3 4 13 124 */
  35. /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
  36. /*:ref: ljust_ 14 4 13 13 124 124 */
  37. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  38.  
  39. extern int eul2m_(doublereal *angle3, doublereal *angle2, doublereal *angle1, integer *axis3, integer *axis2, integer *axis1, doublereal *r__);
  40. /*:ref: return_ 12 0 */
  41. /*:ref: chkin_ 14 2 13 124 */
  42. /*:ref: setmsg_ 14 2 13 124 */
  43. /*:ref: errint_ 14 3 13 4 124 */
  44. /*:ref: sigerr_ 14 2 13 124 */
  45. /*:ref: chkout_ 14 2 13 124 */
  46. /*:ref: rotate_ 14 3 7 4 7 */
  47. /*:ref: rotmat_ 14 4 7 7 4 7 */
  48.  
  49. extern int ev2lin_(doublereal *et, doublereal *geophs, doublereal *elems, doublereal *state);
  50. /*:ref: twopi_ 7 0 */
  51. /*:ref: brcktd_ 7 3 7 7 7 */
  52.  
  53. extern logical even_(integer *i__);
  54.  
  55. extern doublereal exact_(doublereal *number, doublereal *value, doublereal *tol);
  56.  
  57. extern int excess_(integer *number, char *struct__, ftnlen struct_len);
  58. /*:ref: return_ 12 0 */
  59. /*:ref: chkin_ 14 2 13 124 */
  60. /*:ref: intstr_ 14 3 4 13 124 */
  61. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  62. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  63. /*:ref: setmsg_ 14 2 13 124 */
  64. /*:ref: chkout_ 14 2 13 124 */
  65.  
  66. extern logical exists_(char *file, ftnlen file_len);
  67. /*:ref: return_ 12 0 */
  68. /*:ref: chkin_ 14 2 13 124 */
  69. /*:ref: setmsg_ 14 2 13 124 */
  70. /*:ref: sigerr_ 14 2 13 124 */
  71. /*:ref: chkout_ 14 2 13 124 */
  72. /*:ref: rtrim_ 4 2 13 124 */
  73. /*:ref: errint_ 14 3 13 4 124 */
  74.  
  75. extern int expln_(char *msg, char *expl, ftnlen msg_len, ftnlen expl_len);
  76.  
  77. extern integer fetchc_(integer *nth, char *set, ftnlen set_len);
  78. /*:ref: return_ 12 0 */
  79. /*:ref: chkin_ 14 2 13 124 */
  80. /*:ref: cardc_ 4 2 13 124 */
  81. /*:ref: setmsg_ 14 2 13 124 */
  82. /*:ref: errint_ 14 3 13 4 124 */
  83. /*:ref: sigerr_ 14 2 13 124 */
  84. /*:ref: chkout_ 14 2 13 124 */
  85.  
  86. extern integer fetchd_(integer *nth, doublereal *set);
  87. /*:ref: return_ 12 0 */
  88. /*:ref: chkin_ 14 2 13 124 */
  89. /*:ref: cardd_ 4 1 7 */
  90. /*:ref: setmsg_ 14 2 13 124 */
  91. /*:ref: errint_ 14 3 13 4 124 */
  92. /*:ref: sigerr_ 14 2 13 124 */
  93. /*:ref: chkout_ 14 2 13 124 */
  94.  
  95. extern integer fetchi_(integer *nth, integer *set);
  96. /*:ref: return_ 12 0 */
  97. /*:ref: chkin_ 14 2 13 124 */
  98. /*:ref: cardi_ 4 1 4 */
  99. /*:ref: setmsg_ 14 2 13 124 */
  100. /*:ref: errint_ 14 3 13 4 124 */
  101. /*:ref: sigerr_ 14 2 13 124 */
  102. /*:ref: chkout_ 14 2 13 124 */
  103.  
  104. extern int fillc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
  105.  
  106. extern int filld_(doublereal *value, integer *ndim, doublereal *array);
  107.  
  108. extern int filli_(integer *value, integer *ndim, integer *array);
  109.  
  110. extern int fn2lun_(char *filnam, integer *lunit, ftnlen filnam_len);
  111. /*:ref: return_ 12 0 */
  112. /*:ref: chkin_ 14 2 13 124 */
  113. /*:ref: setmsg_ 14 2 13 124 */
  114. /*:ref: sigerr_ 14 2 13 124 */
  115. /*:ref: chkout_ 14 2 13 124 */
  116. /*:ref: errch_ 14 4 13 13 124 124 */
  117. /*:ref: errint_ 14 3 13 4 124 */
  118.  
  119. extern int fndlun_(integer *unit);
  120. extern int reslun_(integer *unit);
  121. extern int frelun_(integer *unit);
  122.  
  123. extern int fndnwd_(char *string, integer *start, integer *b, integer *e, ftnlen string_len);
  124.  
  125. extern int frame_(doublereal *x, doublereal *y, doublereal *z__);
  126. /*:ref: vhatip_ 14 1 7 */
  127.  
  128. extern int framex_(char *cname, char *frname, integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found, ftnlen cname_len, ftnlen frname_len);
  129. extern int namfrm_(char *frname, integer *frcode, ftnlen frname_len);
  130. extern int frmnam_(integer *frcode, char *frname, ftnlen frname_len);
  131. extern int frinfo_(integer *frcode, integer *cent, integer *class__, integer *clssid, logical *found);
  132. extern int cidfrm_(integer *cent, integer *frcode, char *frname, logical *found, ftnlen frname_len);
  133. extern int cnmfrm_(char *cname, integer *frcode, char *frname, logical *found, ftnlen cname_len, ftnlen frname_len);
  134. /*:ref: chkin_ 14 2 13 124 */
  135. /*:ref: setmsg_ 14 2 13 124 */
  136. /*:ref: sigerr_ 14 2 13 124 */
  137. /*:ref: chkout_ 14 2 13 124 */
  138. /*:ref: return_ 12 0 */
  139. /*:ref: zzfdat_ 14 10 4 13 4 4 4 4 4 4 4 124 */
  140. /*:ref: ljust_ 14 4 13 13 124 124 */
  141. /*:ref: ucase_ 14 4 13 13 124 124 */
  142. /*:ref: bschoc_ 4 6 13 4 13 4 124 124 */
  143. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  144. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  145. /*:ref: bschoi_ 4 4 4 4 4 4 */
  146. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  147. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  148. /*:ref: errch_ 14 4 13 13 124 124 */
  149. /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
  150. /*:ref: failed_ 12 0 */
  151. /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
  152. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  153. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  154. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  155. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  156.  
  157. extern int frmchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
  158. /*:ref: return_ 12 0 */
  159. /*:ref: chkin_ 14 2 13 124 */
  160. /*:ref: chkout_ 14 2 13 124 */
  161. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  162. /*:ref: setmsg_ 14 2 13 124 */
  163. /*:ref: errint_ 14 3 13 4 124 */
  164. /*:ref: sigerr_ 14 2 13 124 */
  165. /*:ref: frmget_ 14 5 4 7 7 4 12 */
  166. /*:ref: zzmsxf_ 14 3 7 4 7 */
  167. /*:ref: isrchi_ 4 3 4 4 4 */
  168. /*:ref: frmnam_ 14 3 4 13 124 */
  169. /*:ref: rtrim_ 4 2 13 124 */
  170. /*:ref: errch_ 14 4 13 13 124 124 */
  171. /*:ref: invstm_ 14 2 7 7 */
  172.  
  173. extern int frmget_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
  174. /*:ref: return_ 12 0 */
  175. /*:ref: chkin_ 14 2 13 124 */
  176. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  177. /*:ref: chkout_ 14 2 13 124 */
  178. /*:ref: tisbod_ 14 5 13 4 7 7 124 */
  179. /*:ref: invstm_ 14 2 7 7 */
  180. /*:ref: namfrm_ 14 3 13 4 124 */
  181. /*:ref: irfrot_ 14 3 4 4 7 */
  182. /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
  183. /*:ref: tkfram_ 14 4 4 7 4 12 */
  184. /*:ref: zzdynfrm_ 14 5 4 4 7 7 4 */
  185. /*:ref: setmsg_ 14 2 13 124 */
  186. /*:ref: errint_ 14 3 13 4 124 */
  187. /*:ref: errch_ 14 4 13 13 124 124 */
  188. /*:ref: sigerr_ 14 2 13 124 */
  189. /*:ref: failed_ 12 0 */
  190.  
  191. extern integer frstnb_(char *string, ftnlen string_len);
  192.  
  193. extern integer frstnp_(char *string, ftnlen string_len);
  194.  
  195. extern integer frstpc_(char *string, ftnlen string_len);
  196.  
  197. extern integer gcd_(integer *a, integer *b);
  198.  
  199. extern int georec_(doublereal *long__, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan);
  200. /*:ref: return_ 12 0 */
  201. /*:ref: chkin_ 14 2 13 124 */
  202. /*:ref: setmsg_ 14 2 13 124 */
  203. /*:ref: errdp_ 14 3 13 7 124 */
  204. /*:ref: sigerr_ 14 2 13 124 */
  205. /*:ref: chkout_ 14 2 13 124 */
  206. /*:ref: surfnm_ 14 5 7 7 7 7 7 */
  207. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  208.  
  209. extern int getelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, ftnlen lines_len);
  210. /*:ref: return_ 12 0 */
  211. /*:ref: chkin_ 14 2 13 124 */
  212. /*:ref: zzgetelm_ 14 8 4 13 7 7 12 13 124 124 */
  213. /*:ref: setmsg_ 14 2 13 124 */
  214. /*:ref: errch_ 14 4 13 13 124 124 */
  215. /*:ref: sigerr_ 14 2 13 124 */
  216. /*:ref: chkout_ 14 2 13 124 */
  217.  
  218. extern int getfat_(char *file, char *arch, char *kertyp, ftnlen file_len, ftnlen arch_len, ftnlen kertyp_len);
  219. /*:ref: return_ 12 0 */
  220. /*:ref: chkin_ 14 2 13 124 */
  221. /*:ref: setmsg_ 14 2 13 124 */
  222. /*:ref: sigerr_ 14 2 13 124 */
  223. /*:ref: chkout_ 14 2 13 124 */
  224. /*:ref: zzddhfnh_ 14 4 13 4 12 124 */
  225. /*:ref: zzddhnfo_ 14 7 4 13 4 4 4 12 124 */
  226. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  227. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  228. /*:ref: errint_ 14 3 13 4 124 */
  229. /*:ref: errch_ 14 4 13 13 124 124 */
  230. /*:ref: ssizei_ 14 2 4 4 */
  231. /*:ref: dashof_ 14 1 4 */
  232. /*:ref: cardi_ 4 1 4 */
  233. /*:ref: dashlu_ 14 2 4 4 */
  234. /*:ref: getlun_ 14 1 4 */
  235. /*:ref: ljust_ 14 4 13 13 124 124 */
  236. /*:ref: ucase_ 14 4 13 13 124 124 */
  237. /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
  238. /*:ref: idw2at_ 14 6 13 13 13 124 124 124 */
  239. /*:ref: dafopr_ 14 3 13 4 124 */
  240. /*:ref: zzckspk_ 14 3 4 13 124 */
  241. /*:ref: dafcls_ 14 1 4 */
  242.  
  243. extern int getfov_(integer *instid, integer *room, char *shape, char *frame, doublereal *bsight, integer *n, doublereal *bounds, ftnlen shape_len, ftnlen frame_len);
  244. /*:ref: return_ 12 0 */
  245. /*:ref: chkin_ 14 2 13 124 */
  246. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  247. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  248. /*:ref: setmsg_ 14 2 13 124 */
  249. /*:ref: errch_ 14 4 13 13 124 124 */
  250. /*:ref: rtrim_ 4 2 13 124 */
  251. /*:ref: errint_ 14 3 13 4 124 */
  252. /*:ref: sigerr_ 14 2 13 124 */
  253. /*:ref: chkout_ 14 2 13 124 */
  254. /*:ref: ucase_ 14 4 13 13 124 124 */
  255. /*:ref: ljust_ 14 4 13 13 124 124 */
  256. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  257. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  258. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  259. /*:ref: eqstr_ 12 4 13 13 124 124 */
  260. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  261. /*:ref: vcrss_ 14 3 7 7 7 */
  262. /*:ref: vnorm_ 7 1 7 */
  263. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  264. /*:ref: vrotv_ 14 4 7 7 7 7 */
  265. /*:ref: vequ_ 14 2 7 7 */
  266. /*:ref: unorm_ 14 3 7 7 7 */
  267. /*:ref: vperp_ 14 3 7 7 7 */
  268. /*:ref: vhat_ 14 2 7 7 */
  269. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  270. /*:ref: vscl_ 14 3 7 7 7 */
  271.  
  272. extern int getlun_(integer *unit);
  273. /*:ref: return_ 12 0 */
  274. /*:ref: chkin_ 14 2 13 124 */
  275. /*:ref: fndlun_ 14 1 4 */
  276. /*:ref: setmsg_ 14 2 13 124 */
  277. /*:ref: sigerr_ 14 2 13 124 */
  278. /*:ref: chkout_ 14 2 13 124 */
  279. /*:ref: errint_ 14 3 13 4 124 */
  280.  
  281. extern int getmsg_(char *option, char *msg, ftnlen option_len, ftnlen msg_len);
  282. /*:ref: ljust_ 14 4 13 13 124 124 */
  283. /*:ref: ucase_ 14 4 13 13 124 124 */
  284. /*:ref: getsms_ 14 2 13 124 */
  285. /*:ref: expln_ 14 4 13 13 124 124 */
  286. /*:ref: getlms_ 14 2 13 124 */
  287. /*:ref: setmsg_ 14 2 13 124 */
  288. /*:ref: sigerr_ 14 2 13 124 */
  289.  
  290. extern doublereal halfpi_(void);
  291.  
  292. extern int hrmesp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df);
  293. /*:ref: return_ 12 0 */
  294. /*:ref: chkin_ 14 2 13 124 */
  295. /*:ref: setmsg_ 14 2 13 124 */
  296. /*:ref: errint_ 14 3 13 4 124 */
  297. /*:ref: sigerr_ 14 2 13 124 */
  298. /*:ref: chkout_ 14 2 13 124 */
  299.  
  300. extern int hrmint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *x, doublereal *work, doublereal *f, doublereal *df);
  301. /*:ref: return_ 12 0 */
  302. /*:ref: chkin_ 14 2 13 124 */
  303. /*:ref: setmsg_ 14 2 13 124 */
  304. /*:ref: errint_ 14 3 13 4 124 */
  305. /*:ref: sigerr_ 14 2 13 124 */
  306. /*:ref: chkout_ 14 2 13 124 */
  307. /*:ref: errdp_ 14 3 13 7 124 */
  308.  
  309. extern int hx2dp_(char *string, doublereal *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len);
  310. /*:ref: dpmin_ 7 0 */
  311. /*:ref: dpmax_ 7 0 */
  312. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  313. /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
  314.  
  315. extern int hx2int_(char *string, integer *number, logical *error, char *errmsg, ftnlen string_len, ftnlen errmsg_len);
  316. /*:ref: intmin_ 4 0 */
  317. /*:ref: intmax_ 4 0 */
  318. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  319.  
  320. extern int hyptof_(doublereal *ma, doublereal *ecc, doublereal *f);
  321. /*:ref: return_ 12 0 */
  322. /*:ref: chkin_ 14 2 13 124 */
  323. /*:ref: dpmax_ 7 0 */
  324. /*:ref: sigerr_ 14 2 13 124 */
  325. /*:ref: chkout_ 14 2 13 124 */
  326. /*:ref: dcbrt_ 7 1 7 */
  327.  
  328. extern int ident_(doublereal *matrix);
  329.  
  330. extern int idw2at_(char *idword, char *arch, char *type__, ftnlen idword_len, ftnlen arch_len, ftnlen type_len);
  331. /*:ref: return_ 12 0 */
  332. /*:ref: chkin_ 14 2 13 124 */
  333. /*:ref: chkout_ 14 2 13 124 */
  334. /*:ref: pos_ 4 5 13 13 4 124 124 */
  335.  
  336. extern int illum_(char *target, doublereal *et, char *abcorr, char *obsrvr, doublereal *spoint, doublereal *phase, doublereal *solar, doublereal *emissn, ftnlen target_len, ftnlen abcorr_len, ftnlen obsrvr_len);
  337. /*:ref: return_ 12 0 */
  338. /*:ref: chkin_ 14 2 13 124 */
  339. /*:ref: bods2c_ 14 4 13 4 12 124 */
  340. /*:ref: setmsg_ 14 2 13 124 */
  341. /*:ref: errch_ 14 4 13 13 124 124 */
  342. /*:ref: sigerr_ 14 2 13 124 */
  343. /*:ref: chkout_ 14 2 13 124 */
  344. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  345. /*:ref: spkez_ 14 9 4 7 13 13 4 7 7 124 124 */
  346. /*:ref: eqstr_ 12 4 13 13 124 124 */
  347. /*:ref: vminus_ 14 2 7 7 */
  348. /*:ref: vequ_ 14 2 7 7 */
  349. /*:ref: vsub_ 14 3 7 7 7 */
  350. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  351. /*:ref: surfnm_ 14 5 7 7 7 7 7 */
  352. /*:ref: vsep_ 7 2 7 7 */
  353.  
  354. extern int inedpl_(doublereal *a, doublereal *b, doublereal *c__, doublereal *plane, doublereal *ellips, logical *found);
  355. /*:ref: return_ 12 0 */
  356. /*:ref: chkin_ 14 2 13 124 */
  357. /*:ref: setmsg_ 14 2 13 124 */
  358. /*:ref: errdp_ 14 3 13 7 124 */
  359. /*:ref: sigerr_ 14 2 13 124 */
  360. /*:ref: chkout_ 14 2 13 124 */
  361. /*:ref: pl2nvc_ 14 3 7 7 7 */
  362. /*:ref: vzero_ 12 1 7 */
  363. /*:ref: pl2psv_ 14 4 7 7 7 7 */
  364. /*:ref: vnorm_ 7 1 7 */
  365. /*:ref: psv2pl_ 14 4 7 7 7 7 */
  366. /*:ref: brcktd_ 7 3 7 7 7 */
  367. /*:ref: vsclip_ 14 2 7 7 */
  368. /*:ref: cgv2el_ 14 4 7 7 7 7 */
  369.  
  370. extern int inelpl_(doublereal *ellips, doublereal *plane, integer *nxpts, doublereal *xpt1, doublereal *xpt2);
  371. /*:ref: return_ 12 0 */
  372. /*:ref: chkin_ 14 2 13 124 */
  373. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  374. /*:ref: pl2nvp_ 14 3 7 7 7 */
  375. /*:ref: vsub_ 14 3 7 7 7 */
  376. /*:ref: nvp2pl_ 14 3 7 7 7 */
  377. /*:ref: pl2nvc_ 14 3 7 7 7 */
  378. /*:ref: vdot_ 7 2 7 7 */
  379. /*:ref: vzerog_ 12 2 7 4 */
  380. /*:ref: chkout_ 14 2 13 124 */
  381. /*:ref: vnormg_ 7 2 7 4 */
  382. /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
  383.  
  384. extern int inrypl_(doublereal *vertex, doublereal *dir, doublereal *plane, integer *nxpts, doublereal *xpt);
  385. /*:ref: return_ 12 0 */
  386. /*:ref: chkin_ 14 2 13 124 */
  387. /*:ref: dpmax_ 7 0 */
  388. /*:ref: vnorm_ 7 1 7 */
  389. /*:ref: setmsg_ 14 2 13 124 */
  390. /*:ref: sigerr_ 14 2 13 124 */
  391. /*:ref: chkout_ 14 2 13 124 */
  392. /*:ref: pl2nvc_ 14 3 7 7 7 */
  393. /*:ref: vhat_ 14 2 7 7 */
  394. /*:ref: vzero_ 12 1 7 */
  395. /*:ref: vscl_ 14 3 7 7 7 */
  396. /*:ref: vequ_ 14 2 7 7 */
  397. /*:ref: vdot_ 7 2 7 7 */
  398. /*:ref: smsgnd_ 12 2 7 7 */
  399. /*:ref: cleard_ 14 2 4 7 */
  400. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  401. /*:ref: vsclip_ 14 2 7 7 */
  402.  
  403. extern int inslac_(char *elts, integer *ne, integer *loc, char *array, integer *na, ftnlen elts_len, ftnlen array_len);
  404. /*:ref: return_ 12 0 */
  405. /*:ref: chkin_ 14 2 13 124 */
  406. /*:ref: setmsg_ 14 2 13 124 */
  407. /*:ref: errint_ 14 3 13 4 124 */
  408. /*:ref: sigerr_ 14 2 13 124 */
  409. /*:ref: chkout_ 14 2 13 124 */
  410.  
  411. extern int inslad_(doublereal *elts, integer *ne, integer *loc, doublereal *array, integer *na);
  412. /*:ref: return_ 12 0 */
  413. /*:ref: chkin_ 14 2 13 124 */
  414. /*:ref: setmsg_ 14 2 13 124 */
  415. /*:ref: errint_ 14 3 13 4 124 */
  416. /*:ref: sigerr_ 14 2 13 124 */
  417. /*:ref: chkout_ 14 2 13 124 */
  418.  
  419. extern int inslai_(integer *elts, integer *ne, integer *loc, integer *array, integer *na);
  420. /*:ref: return_ 12 0 */
  421. /*:ref: chkin_ 14 2 13 124 */
  422. /*:ref: setmsg_ 14 2 13 124 */
  423. /*:ref: errint_ 14 3 13 4 124 */
  424. /*:ref: sigerr_ 14 2 13 124 */
  425. /*:ref: chkout_ 14 2 13 124 */
  426.  
  427. extern int insrtc_(char *item, char *a, ftnlen item_len, ftnlen a_len);
  428. /*:ref: return_ 12 0 */
  429. /*:ref: chkin_ 14 2 13 124 */
  430. /*:ref: sizec_ 4 2 13 124 */
  431. /*:ref: cardc_ 4 2 13 124 */
  432. /*:ref: lstlec_ 4 5 13 4 13 124 124 */
  433. /*:ref: scardc_ 14 3 4 13 124 */
  434. /*:ref: setmsg_ 14 2 13 124 */
  435. /*:ref: errint_ 14 3 13 4 124 */
  436. /*:ref: sigerr_ 14 2 13 124 */
  437. /*:ref: chkout_ 14 2 13 124 */
  438.  
  439. extern int insrtd_(doublereal *item, doublereal *a);
  440. /*:ref: return_ 12 0 */
  441. /*:ref: chkin_ 14 2 13 124 */
  442. /*:ref: sized_ 4 1 7 */
  443. /*:ref: cardd_ 4 1 7 */
  444. /*:ref: lstled_ 4 3 7 4 7 */
  445. /*:ref: scardd_ 14 2 4 7 */
  446. /*:ref: setmsg_ 14 2 13 124 */
  447. /*:ref: errint_ 14 3 13 4 124 */
  448. /*:ref: sigerr_ 14 2 13 124 */
  449. /*:ref: chkout_ 14 2 13 124 */
  450.  
  451. extern int insrti_(integer *item, integer *a);
  452. /*:ref: return_ 12 0 */
  453. /*:ref: chkin_ 14 2 13 124 */
  454. /*:ref: sizei_ 4 1 4 */
  455. /*:ref: cardi_ 4 1 4 */
  456. /*:ref: lstlei_ 4 3 4 4 4 */
  457. /*:ref: scardi_ 14 2 4 4 */
  458. /*:ref: setmsg_ 14 2 13 124 */
  459. /*:ref: errint_ 14 3 13 4 124 */
  460. /*:ref: sigerr_ 14 2 13 124 */
  461. /*:ref: chkout_ 14 2 13 124 */
  462.  
  463. extern int inssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len);
  464. /*:ref: chkin_ 14 2 13 124 */
  465. /*:ref: setmsg_ 14 2 13 124 */
  466. /*:ref: errint_ 14 3 13 4 124 */
  467. /*:ref: sigerr_ 14 2 13 124 */
  468. /*:ref: chkout_ 14 2 13 124 */
  469.  
  470. extern int int2hx_(integer *number, char *string, integer *length, ftnlen string_len);
  471.  
  472. extern int interc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
  473. /*:ref: return_ 12 0 */
  474. /*:ref: chkin_ 14 2 13 124 */
  475. /*:ref: setmsg_ 14 2 13 124 */
  476. /*:ref: errint_ 14 3 13 4 124 */
  477. /*:ref: sigerr_ 14 2 13 124 */
  478. /*:ref: chkout_ 14 2 13 124 */
  479. /*:ref: cardc_ 4 2 13 124 */
  480. /*:ref: sizec_ 4 2 13 124 */
  481. /*:ref: scardc_ 14 3 4 13 124 */
  482. /*:ref: excess_ 14 3 4 13 124 */
  483.  
  484. extern int interd_(doublereal *a, doublereal *b, doublereal *c__);
  485. /*:ref: return_ 12 0 */
  486. /*:ref: chkin_ 14 2 13 124 */
  487. /*:ref: cardd_ 4 1 7 */
  488. /*:ref: sized_ 4 1 7 */
  489. /*:ref: scardd_ 14 2 4 7 */
  490. /*:ref: excess_ 14 3 4 13 124 */
  491. /*:ref: sigerr_ 14 2 13 124 */
  492. /*:ref: chkout_ 14 2 13 124 */
  493.  
  494. extern int interi_(integer *a, integer *b, integer *c__);
  495. /*:ref: return_ 12 0 */
  496. /*:ref: chkin_ 14 2 13 124 */
  497. /*:ref: cardi_ 4 1 4 */
  498. /*:ref: sizei_ 4 1 4 */
  499. /*:ref: scardi_ 14 2 4 4 */
  500. /*:ref: excess_ 14 3 4 13 124 */
  501. /*:ref: sigerr_ 14 2 13 124 */
  502. /*:ref: chkout_ 14 2 13 124 */
  503.  
  504. extern int intord_(integer *n, char *string, ftnlen string_len);
  505. /*:ref: inttxt_ 14 3 4 13 124 */
  506. /*:ref: lastnb_ 4 2 13 124 */
  507. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  508.  
  509. extern int intstr_(integer *number, char *string, ftnlen string_len);
  510.  
  511. extern int inttxt_(integer *n, char *string, ftnlen string_len);
  512. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  513.  
  514. extern int invert_(doublereal *m1, doublereal *mout);
  515. /*:ref: det_ 7 1 7 */
  516. /*:ref: filld_ 14 3 7 4 7 */
  517. /*:ref: vsclg_ 14 4 7 7 4 7 */
  518.  
  519. extern int invort_(doublereal *m, doublereal *mit);
  520. /*:ref: dpmax_ 7 0 */
  521. /*:ref: unorm_ 14 3 7 7 7 */
  522. /*:ref: chkin_ 14 2 13 124 */
  523. /*:ref: setmsg_ 14 2 13 124 */
  524. /*:ref: errint_ 14 3 13 4 124 */
  525. /*:ref: sigerr_ 14 2 13 124 */
  526. /*:ref: chkout_ 14 2 13 124 */
  527. /*:ref: errdp_ 14 3 13 7 124 */
  528. /*:ref: vsclip_ 14 2 7 7 */
  529. /*:ref: xpose_ 14 2 7 7 */
  530.  
  531. extern int invstm_(doublereal *mat, doublereal *invmat);
  532. /*:ref: return_ 12 0 */
  533. /*:ref: chkin_ 14 2 13 124 */
  534. /*:ref: xposbl_ 14 5 7 4 4 4 7 */
  535. /*:ref: chkout_ 14 2 13 124 */
  536.  
  537. extern int ioerr_(char *action, char *file, integer *iostat, ftnlen action_len, ftnlen file_len);
  538. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  539. /*:ref: intstr_ 14 3 4 13 124 */
  540. /*:ref: setmsg_ 14 2 13 124 */
  541.  
  542. extern int irftrn_(char *refa, char *refb, doublereal *rotab, ftnlen refa_len, ftnlen refb_len);
  543. /*:ref: return_ 12 0 */
  544. /*:ref: chkin_ 14 2 13 124 */
  545. /*:ref: irfnum_ 14 3 13 4 124 */
  546. /*:ref: irfrot_ 14 3 4 4 7 */
  547. /*:ref: chkout_ 14 2 13 124 */
  548.  
  549. extern int iso2utc_(char *tstrng, char *utcstr, char *error, ftnlen tstrng_len, ftnlen utcstr_len, ftnlen error_len);
  550. /*:ref: return_ 12 0 */
  551. /*:ref: chkin_ 14 2 13 124 */
  552. /*:ref: ljust_ 14 4 13 13 124 124 */
  553. /*:ref: rtrim_ 4 2 13 124 */
  554. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  555. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  556. /*:ref: chkout_ 14 2 13 124 */
  557.  
  558. extern logical isopen_(char *file, ftnlen file_len);
  559. /*:ref: return_ 12 0 */
  560. /*:ref: chkin_ 14 2 13 124 */
  561. /*:ref: setmsg_ 14 2 13 124 */
  562. /*:ref: sigerr_ 14 2 13 124 */
  563. /*:ref: chkout_ 14 2 13 124 */
  564. /*:ref: errint_ 14 3 13 4 124 */
  565.  
  566. extern logical isordv_(integer *array, integer *n);
  567.  
  568. extern integer isrchc_(char *value, integer *ndim, char *array, ftnlen value_len, ftnlen array_len);
  569.  
  570. extern integer isrchd_(doublereal *value, integer *ndim, doublereal *array);
  571.  
  572. extern integer isrchi_(integer *value, integer *ndim, integer *array);
  573.  
  574. extern logical isrot_(doublereal *m, doublereal *ntol, doublereal *dtol);
  575. /*:ref: return_ 12 0 */
  576. /*:ref: chkin_ 14 2 13 124 */
  577. /*:ref: setmsg_ 14 2 13 124 */
  578. /*:ref: errdp_ 14 3 13 7 124 */
  579. /*:ref: sigerr_ 14 2 13 124 */
  580. /*:ref: chkout_ 14 2 13 124 */
  581. /*:ref: unorm_ 14 3 7 7 7 */
  582. /*:ref: det_ 7 1 7 */
  583. /*:ref: brcktd_ 7 3 7 7 7 */
  584.  
  585. extern doublereal j1900_(void);
  586.  
  587. extern doublereal j1950_(void);
  588.  
  589. extern doublereal j2000_(void);
  590.  
  591. extern doublereal j2100_(void);
  592.  
  593. extern int jul2gr_(integer *year, integer *month, integer *day, integer *doy);
  594. extern int gr2jul_(integer *year, integer *month, integer *day, integer *doy);
  595. /*:ref: rmaini_ 14 4 4 4 4 4 */
  596. /*:ref: lstlti_ 4 3 4 4 4 */
  597.  
  598. extern doublereal jyear_(void);
  599.  
  600. extern int keeper_(integer *which, char *kind, char *file, integer *count, char *filtyp, integer *handle, char *source, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
  601. extern int furnsh_(char *file, ftnlen file_len);
  602. extern int ktotal_(char *kind, integer *count, ftnlen kind_len);
  603. extern int kdata_(integer *which, char *kind, char *file, char *filtyp, char *source, integer *handle, logical *found, ftnlen kind_len, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
  604. extern int kinfo_(char *file, char *filtyp, char *source, integer *handle, logical *found, ftnlen file_len, ftnlen filtyp_len, ftnlen source_len);
  605. extern int unload_(char *file, ftnlen file_len);
  606. /*:ref: chkin_ 14 2 13 124 */
  607. /*:ref: setmsg_ 14 2 13 124 */
  608. /*:ref: sigerr_ 14 2 13 124 */
  609. /*:ref: chkout_ 14 2 13 124 */
  610. /*:ref: return_ 12 0 */
  611. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  612. /*:ref: cvpool_ 14 3 13 12 124 */
  613. /*:ref: errint_ 14 3 13 4 124 */
  614. /*:ref: zzldker_ 14 7 13 13 13 4 124 124 124 */
  615. /*:ref: failed_ 12 0 */
  616. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  617. /*:ref: badkpv_ 12 10 13 13 13 4 4 13 124 124 124 124 */
  618. /*:ref: stpool_ 14 9 13 4 13 13 4 12 124 124 124 */
  619. /*:ref: pos_ 4 5 13 13 4 124 124 */
  620. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  621. /*:ref: rtrim_ 4 2 13 124 */
  622. /*:ref: samsub_ 12 8 13 4 4 13 4 4 124 124 */
  623. /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
  624. /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */
  625. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  626. /*:ref: dvpool_ 14 2 13 124 */
  627. /*:ref: errch_ 14 4 13 13 124 124 */
  628. /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
  629. /*:ref: eqstr_ 12 4 13 13 124 124 */
  630. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  631. /*:ref: spkuef_ 14 1 4 */
  632. /*:ref: ckupf_ 14 1 4 */
  633. /*:ref: pckuof_ 14 1 4 */
  634. /*:ref: ekuef_ 14 1 4 */
  635. /*:ref: clpool_ 14 0 */
  636. /*:ref: remlac_ 14 5 4 4 13 4 124 */
  637. /*:ref: remlai_ 14 4 4 4 4 4 */
  638. /*:ref: ldpool_ 14 2 13 124 */
  639. /*:ref: spklef_ 14 3 13 4 124 */
  640. /*:ref: cklpf_ 14 3 13 4 124 */
  641. /*:ref: pcklof_ 14 3 13 4 124 */
  642. /*:ref: eklef_ 14 3 13 4 124 */
  643.  
  644. extern doublereal kepleq_(doublereal *ml, doublereal *h__, doublereal *k);
  645. /*:ref: chkin_ 14 2 13 124 */
  646. /*:ref: setmsg_ 14 2 13 124 */
  647. /*:ref: errdp_ 14 3 13 7 124 */
  648. /*:ref: sigerr_ 14 2 13 124 */
  649. /*:ref: chkout_ 14 2 13 124 */
  650. /*:ref: kpsolv_ 7 1 7 */
  651.  
  652. extern doublereal kpsolv_(doublereal *evec);
  653. /*:ref: chkin_ 14 2 13 124 */
  654. /*:ref: setmsg_ 14 2 13 124 */
  655. /*:ref: errdp_ 14 3 13 7 124 */
  656. /*:ref: sigerr_ 14 2 13 124 */
  657. /*:ref: chkout_ 14 2 13 124 */
  658.  
  659. extern int kxtrct_(char *keywd, char *terms, integer *nterms, char *string, logical *found, char *substr, ftnlen keywd_len, ftnlen terms_len, ftnlen string_len, ftnlen substr_len);
  660. /*:ref: wdindx_ 4 4 13 13 124 124 */
  661. /*:ref: nblen_ 4 2 13 124 */
  662. /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
  663. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  664. /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */
  665.  
  666. extern integer lastnb_(char *string, ftnlen string_len);
  667.  
  668. extern integer lastpc_(char *string, ftnlen string_len);
  669.  
  670. extern int latcyl_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *r__, doublereal *longc, doublereal *z__);
  671.  
  672. extern int latrec_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rectan);
  673.  
  674. extern int latsph_(doublereal *radius, doublereal *long__, doublereal *lat, doublereal *rho, doublereal *colat, doublereal *longs);
  675. /*:ref: halfpi_ 7 0 */
  676.  
  677. extern int lbuild_(char *items, integer *n, char *delim, char *list, ftnlen items_len, ftnlen delim_len, ftnlen list_len);
  678. /*:ref: frstnb_ 4 2 13 124 */
  679. /*:ref: lastnb_ 4 2 13 124 */
  680. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  681.  
  682. extern int lcase_(char *in, char *out, ftnlen in_len, ftnlen out_len);
  683.  
  684. extern doublereal lgresp_(integer *n, doublereal *first, doublereal *step, doublereal *yvals, doublereal *work, doublereal *x);
  685. /*:ref: return_ 12 0 */
  686. /*:ref: chkin_ 14 2 13 124 */
  687. /*:ref: setmsg_ 14 2 13 124 */
  688. /*:ref: errint_ 14 3 13 4 124 */
  689. /*:ref: sigerr_ 14 2 13 124 */
  690. /*:ref: chkout_ 14 2 13 124 */
  691.  
  692. extern int lgrind_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x, doublereal *p, doublereal *dp);
  693. /*:ref: return_ 12 0 */
  694. /*:ref: chkin_ 14 2 13 124 */
  695. /*:ref: setmsg_ 14 2 13 124 */
  696. /*:ref: errint_ 14 3 13 4 124 */
  697. /*:ref: sigerr_ 14 2 13 124 */
  698. /*:ref: chkout_ 14 2 13 124 */
  699. /*:ref: errdp_ 14 3 13 7 124 */
  700.  
  701. extern doublereal lgrint_(integer *n, doublereal *xvals, doublereal *yvals, doublereal *work, doublereal *x);
  702. /*:ref: return_ 12 0 */
  703. /*:ref: chkin_ 14 2 13 124 */
  704. /*:ref: setmsg_ 14 2 13 124 */
  705. /*:ref: errint_ 14 3 13 4 124 */
  706. /*:ref: sigerr_ 14 2 13 124 */
  707. /*:ref: chkout_ 14 2 13 124 */
  708. /*:ref: errdp_ 14 3 13 7 124 */
  709.  
  710. extern int ljust_(char *input, char *output, ftnlen input_len, ftnlen output_len);
  711.  
  712. extern int lnkan_(integer *pool, integer *new__);
  713. /*:ref: chkin_ 14 2 13 124 */
  714. /*:ref: setmsg_ 14 2 13 124 */
  715. /*:ref: sigerr_ 14 2 13 124 */
  716. /*:ref: chkout_ 14 2 13 124 */
  717.  
  718. extern int lnkfsl_(integer *head, integer *tail, integer *pool);
  719. /*:ref: chkin_ 14 2 13 124 */
  720. /*:ref: setmsg_ 14 2 13 124 */
  721. /*:ref: errint_ 14 3 13 4 124 */
  722. /*:ref: sigerr_ 14 2 13 124 */
  723. /*:ref: chkout_ 14 2 13 124 */
  724.  
  725. extern integer lnkhl_(integer *node, integer *pool);
  726. /*:ref: chkin_ 14 2 13 124 */
  727. /*:ref: setmsg_ 14 2 13 124 */
  728. /*:ref: errint_ 14 3 13 4 124 */
  729. /*:ref: sigerr_ 14 2 13 124 */
  730. /*:ref: chkout_ 14 2 13 124 */
  731.  
  732. extern int lnkila_(integer *prev, integer *list, integer *pool);
  733. /*:ref: chkin_ 14 2 13 124 */
  734. /*:ref: setmsg_ 14 2 13 124 */
  735. /*:ref: errint_ 14 3 13 4 124 */
  736. /*:ref: sigerr_ 14 2 13 124 */
  737. /*:ref: chkout_ 14 2 13 124 */
  738.  
  739. extern int lnkilb_(integer *list, integer *next, integer *pool);
  740. /*:ref: chkin_ 14 2 13 124 */
  741. /*:ref: setmsg_ 14 2 13 124 */
  742. /*:ref: errint_ 14 3 13 4 124 */
  743. /*:ref: sigerr_ 14 2 13 124 */
  744. /*:ref: chkout_ 14 2 13 124 */
  745.  
  746. extern int lnkini_(integer *size, integer *pool);
  747. /*:ref: chkin_ 14 2 13 124 */
  748. /*:ref: setmsg_ 14 2 13 124 */
  749. /*:ref: errint_ 14 3 13 4 124 */
  750. /*:ref: sigerr_ 14 2 13 124 */
  751. /*:ref: chkout_ 14 2 13 124 */
  752.  
  753. extern integer lnknfn_(integer *pool);
  754.  
  755. extern integer lnknxt_(integer *node, integer *pool);
  756. /*:ref: chkin_ 14 2 13 124 */
  757. /*:ref: setmsg_ 14 2 13 124 */
  758. /*:ref: errint_ 14 3 13 4 124 */
  759. /*:ref: sigerr_ 14 2 13 124 */
  760. /*:ref: chkout_ 14 2 13 124 */
  761.  
  762. extern integer lnkprv_(integer *node, integer *pool);
  763. /*:ref: chkin_ 14 2 13 124 */
  764. /*:ref: setmsg_ 14 2 13 124 */
  765. /*:ref: errint_ 14 3 13 4 124 */
  766. /*:ref: sigerr_ 14 2 13 124 */
  767. /*:ref: chkout_ 14 2 13 124 */
  768.  
  769. extern integer lnksiz_(integer *pool);
  770.  
  771. extern integer lnktl_(integer *node, integer *pool);
  772. /*:ref: chkin_ 14 2 13 124 */
  773. /*:ref: setmsg_ 14 2 13 124 */
  774. /*:ref: errint_ 14 3 13 4 124 */
  775. /*:ref: sigerr_ 14 2 13 124 */
  776. /*:ref: chkout_ 14 2 13 124 */
  777.  
  778. extern int lnkxsl_(integer *head, integer *tail, integer *pool);
  779. /*:ref: chkin_ 14 2 13 124 */
  780. /*:ref: setmsg_ 14 2 13 124 */
  781. /*:ref: errint_ 14 3 13 4 124 */
  782. /*:ref: sigerr_ 14 2 13 124 */
  783. /*:ref: chkout_ 14 2 13 124 */
  784.  
  785. extern int locati_(integer *id, integer *idsz, integer *list, integer *pool, integer *at, logical *presnt);
  786. /*:ref: chkin_ 14 2 13 124 */
  787. /*:ref: lnknfn_ 4 1 4 */
  788. /*:ref: lnksiz_ 4 1 4 */
  789. /*:ref: lnkan_ 14 2 4 4 */
  790. /*:ref: chkout_ 14 2 13 124 */
  791. /*:ref: setmsg_ 14 2 13 124 */
  792. /*:ref: errint_ 14 3 13 4 124 */
  793. /*:ref: sigerr_ 14 2 13 124 */
  794. /*:ref: lnkxsl_ 14 3 4 4 4 */
  795. /*:ref: lnkilb_ 14 3 4 4 4 */
  796.  
  797. extern int locln_(integer *unit, char *bmark, char *emark, char *line, integer *bline, integer *eline, logical *found, ftnlen bmark_len, ftnlen emark_len, ftnlen line_len);
  798. /*:ref: return_ 12 0 */
  799. /*:ref: chkin_ 14 2 13 124 */
  800. /*:ref: setmsg_ 14 2 13 124 */
  801. /*:ref: errch_ 14 4 13 13 124 124 */
  802. /*:ref: errint_ 14 3 13 4 124 */
  803. /*:ref: errfnm_ 14 3 13 4 124 */
  804. /*:ref: sigerr_ 14 2 13 124 */
  805. /*:ref: chkout_ 14 2 13 124 */
  806. /*:ref: ljust_ 14 4 13 13 124 124 */
  807. /*:ref: ltrim_ 4 2 13 124 */
  808.  
  809. extern int lparse_(char *list, char *delim, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delim_len, ftnlen items_len);
  810.  
  811. extern int lparsm_(char *list, char *delims, integer *nmax, integer *n, char *items, ftnlen list_len, ftnlen delims_len, ftnlen items_len);
  812.  
  813. extern int lparss_(char *list, char *delims, char *set, ftnlen list_len, ftnlen delims_len, ftnlen set_len);
  814. /*:ref: return_ 12 0 */
  815. /*:ref: chkin_ 14 2 13 124 */
  816. /*:ref: sizec_ 4 2 13 124 */
  817. /*:ref: scardc_ 14 3 4 13 124 */
  818. /*:ref: insrtc_ 14 4 13 13 124 124 */
  819. /*:ref: lastnb_ 4 2 13 124 */
  820. /*:ref: validc_ 14 4 4 4 13 124 */
  821. /*:ref: failed_ 12 0 */
  822. /*:ref: chkout_ 14 2 13 124 */
  823.  
  824. extern doublereal lspcn_(char *body, doublereal *et, char *abcorr, ftnlen body_len, ftnlen abcorr_len);
  825. /*:ref: return_ 12 0 */
  826. /*:ref: chkin_ 14 2 13 124 */
  827. /*:ref: bods2c_ 14 4 13 4 12 124 */
  828. /*:ref: setmsg_ 14 2 13 124 */
  829. /*:ref: errch_ 14 4 13 13 124 124 */
  830. /*:ref: sigerr_ 14 2 13 124 */
  831. /*:ref: chkout_ 14 2 13 124 */
  832. /*:ref: tipbod_ 14 5 13 4 7 7 124 */
  833. /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
  834. /*:ref: ucrss_ 14 3 7 7 7 */
  835. /*:ref: twovec_ 14 5 7 4 7 4 7 */
  836. /*:ref: failed_ 12 0 */
  837. /*:ref: spkezr_ 14 11 13 7 13 13 13 7 7 124 124 124 124 */
  838. /*:ref: mxv_ 14 3 7 7 7 */
  839. /*:ref: recrad_ 14 4 7 7 7 7 */
  840.  
  841. extern integer lstcld_(doublereal *x, integer *n, doublereal *array);
  842.  
  843. extern integer lstcli_(integer *x, integer *n, integer *array);
  844.  
  845. extern integer lstlec_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len);
  846.  
  847. extern integer lstled_(doublereal *x, integer *n, doublereal *array);
  848.  
  849. extern integer lstlei_(integer *x, integer *n, integer *array);
  850.  
  851. extern integer lstltc_(char *string, integer *n, char *array, ftnlen string_len, ftnlen array_len);
  852.  
  853. extern integer lstltd_(doublereal *x, integer *n, doublereal *array);
  854.  
  855. extern integer lstlti_(integer *x, integer *n, integer *array);
  856.  
  857. extern int ltime_(doublereal *etobs, integer *obs, char *dir, integer *targ, doublereal *ettarg, doublereal *elapsd, ftnlen dir_len);
  858. /*:ref: return_ 12 0 */
  859. /*:ref: chkin_ 14 2 13 124 */
  860. /*:ref: setmsg_ 14 2 13 124 */
  861. /*:ref: rtrim_ 4 2 13 124 */
  862. /*:ref: errch_ 14 4 13 13 124 124 */
  863. /*:ref: sigerr_ 14 2 13 124 */
  864. /*:ref: chkout_ 14 2 13 124 */
  865. /*:ref: clight_ 7 0 */
  866. /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
  867. /*:ref: vdist_ 7 2 7 7 */
  868. /*:ref: failed_ 12 0 */
  869.  
  870. extern integer ltrim_(char *string, ftnlen string_len);
  871. /*:ref: frstnb_ 4 2 13 124 */
  872.  
  873. extern int lun2fn_(integer *lunit, char *filnam, ftnlen filnam_len);
  874. /*:ref: return_ 12 0 */
  875. /*:ref: chkin_ 14 2 13 124 */
  876. /*:ref: setmsg_ 14 2 13 124 */
  877. /*:ref: errint_ 14 3 13 4 124 */
  878. /*:ref: sigerr_ 14 2 13 124 */
  879. /*:ref: chkout_ 14 2 13 124 */
  880.  
  881. extern int lx4dec_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
  882. /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
  883. /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */
  884.  
  885. extern int lx4num_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
  886. /*:ref: lx4dec_ 14 5 13 4 4 4 124 */
  887. /*:ref: lx4sgn_ 14 5 13 4 4 4 124 */
  888.  
  889. extern int lx4sgn_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
  890. /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
  891.  
  892. extern int lx4uns_(char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
  893.  
  894. extern int lxname_(char *hdchrs, char *tlchrs, char *string, integer *first, integer *last, integer *idspec, integer *nchar, ftnlen hdchrs_len, ftnlen tlchrs_len, ftnlen string_len);
  895. extern int lxidnt_(integer *idspec, char *string, integer *first, integer *last, integer *nchar, ftnlen string_len);
  896. extern int lxdfid_(integer *idspec);
  897. extern int lxcsid_(char *hdchrs, char *tlchrs, integer *idspec, ftnlen hdchrs_len, ftnlen tlchrs_len);
  898. /*:ref: return_ 12 0 */
  899. /*:ref: chkin_ 14 2 13 124 */
  900. /*:ref: sigerr_ 14 2 13 124 */
  901. /*:ref: chkout_ 14 2 13 124 */
  902. /*:ref: rtrim_ 4 2 13 124 */
  903. /*:ref: bsrchi_ 4 3 4 4 4 */
  904. /*:ref: ssizei_ 14 2 4 4 */
  905. /*:ref: validi_ 14 3 4 4 4 */
  906. /*:ref: scardi_ 14 2 4 4 */
  907. /*:ref: appndi_ 14 2 4 4 */
  908. /*:ref: setmsg_ 14 2 13 124 */
  909. /*:ref: errint_ 14 3 13 4 124 */
  910. /*:ref: insrti_ 14 2 4 4 */
  911. /*:ref: cardi_ 4 1 4 */
  912.  
  913. extern int lxqstr_(char *string, char *qchar, integer *first, integer *last, integer *nchar, ftnlen string_len, ftnlen qchar_len);
  914.  
  915. extern int m2eul_(doublereal *r__, integer *axis3, integer *axis2, integer *axis1, doublereal *angle3, doublereal *angle2, doublereal *angle1);
  916. /*:ref: return_ 12 0 */
  917. /*:ref: chkin_ 14 2 13 124 */
  918. /*:ref: setmsg_ 14 2 13 124 */
  919. /*:ref: errint_ 14 3 13 4 124 */
  920. /*:ref: sigerr_ 14 2 13 124 */
  921. /*:ref: chkout_ 14 2 13 124 */
  922. /*:ref: isrot_ 12 3 7 7 7 */
  923. /*:ref: vhat_ 14 2 7 7 */
  924. /*:ref: cleard_ 14 2 4 7 */
  925. /*:ref: mxm_ 14 3 7 7 7 */
  926. /*:ref: mtxm_ 14 3 7 7 7 */
  927.  
  928. extern int m2q_(doublereal *r__, doublereal *q);
  929. /*:ref: isrot_ 12 3 7 7 7 */
  930. /*:ref: chkin_ 14 2 13 124 */
  931. /*:ref: setmsg_ 14 2 13 124 */
  932. /*:ref: sigerr_ 14 2 13 124 */
  933. /*:ref: chkout_ 14 2 13 124 */
  934.  
  935. extern logical matchi_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len);
  936. /*:ref: frstnb_ 4 2 13 124 */
  937. /*:ref: lastnb_ 4 2 13 124 */
  938. /*:ref: samch_ 12 6 13 4 13 4 124 124 */
  939. /*:ref: nechr_ 12 4 13 13 124 124 */
  940. /*:ref: samchi_ 12 6 13 4 13 4 124 124 */
  941.  
  942. extern logical matchw_(char *string, char *templ, char *wstr, char *wchr, ftnlen string_len, ftnlen templ_len, ftnlen wstr_len, ftnlen wchr_len);
  943. /*:ref: frstnb_ 4 2 13 124 */
  944. /*:ref: lastnb_ 4 2 13 124 */
  945. /*:ref: samch_ 12 6 13 4 13 4 124 124 */
  946.  
  947. extern int maxac_(char *array, integer *ndim, char *maxval, integer *loc, ftnlen array_len, ftnlen maxval_len);
  948.  
  949. extern int maxad_(doublereal *array, integer *ndim, doublereal *maxval, integer *loc);
  950.  
  951. extern int maxai_(integer *array, integer *ndim, integer *maxval, integer *loc);
  952.  
  953. extern int mequ_(doublereal *m1, doublereal *mout);
  954. /*:ref: moved_ 14 3 7 4 7 */
  955.  
  956. extern int mequg_(doublereal *m1, integer *nr, integer *nc, doublereal *mout);
  957. /*:ref: moved_ 14 3 7 4 7 */
  958.  
  959. extern int minac_(char *array, integer *ndim, char *minval, integer *loc, ftnlen array_len, ftnlen minval_len);
  960.  
  961. extern int minad_(doublereal *array, integer *ndim, doublereal *minval, integer *loc);
  962.  
  963. extern int minai_(integer *array, integer *ndim, integer *minval, integer *loc);
  964.  
  965. extern int movec_(char *arrfrm, integer *ndim, char *arrto, ftnlen arrfrm_len, ftnlen arrto_len);
  966.  
  967. extern int movei_(integer *arrfrm, integer *ndim, integer *arrto);
  968.  
  969. extern int mtxm_(doublereal *m1, doublereal *m2, doublereal *mout);
  970. /*:ref: moved_ 14 3 7 4 7 */
  971.  
  972. extern int mtxmg_(doublereal *m1, doublereal *m2, integer *nc1, integer *nr1r2, integer *nc2, doublereal *mout);
  973.  
  974. extern int mtxv_(doublereal *matrix, doublereal *vin, doublereal *vout);
  975.  
  976. extern int mtxvg_(doublereal *m1, doublereal *v2, integer *nc1, integer *nr1r2, doublereal *vout);
  977.  
  978. extern int mxm_(doublereal *m1, doublereal *m2, doublereal *mout);
  979. /*:ref: moved_ 14 3 7 4 7 */
  980.  
  981. extern int mxmg_(doublereal *m1, doublereal *m2, integer *row1, integer *col1, integer *col2, doublereal *mout);
  982.  
  983. extern int mxmt_(doublereal *m1, doublereal *m2, doublereal *mout);
  984. /*:ref: moved_ 14 3 7 4 7 */
  985.  
  986. extern int mxmtg_(doublereal *m1, doublereal *m2, integer *nr1, integer *nc1c2, integer *nr2, doublereal *mout);
  987.  
  988. extern int mxv_(doublereal *matrix, doublereal *vin, doublereal *vout);
  989.  
  990. extern int mxvg_(doublereal *m1, doublereal *v2, integer *nr1, integer *nc1r2, doublereal *vout);
  991.  
  992. extern integer nblen_(char *string, ftnlen string_len);
  993. /*:ref: lastnb_ 4 2 13 124 */
  994. /*:ref: frstnb_ 4 2 13 124 */
  995.  
  996. extern integer nbwid_(char *array, integer *nelt, ftnlen array_len);
  997.  
  998. extern integer ncpos_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
  999.  
  1000. extern integer ncposr_(char *str, char *chars, integer *start, ftnlen str_len, ftnlen chars_len);
  1001.  
  1002. extern int nearpt_(doublereal *positn, doublereal *a, doublereal *b, doublereal *c__, doublereal *npoint, doublereal *alt);
  1003. /*:ref: return_ 12 0 */
  1004. /*:ref: chkin_ 14 2 13 124 */
  1005. /*:ref: setmsg_ 14 2 13 124 */
  1006. /*:ref: errch_ 14 4 13 13 124 124 */
  1007. /*:ref: errdp_ 14 3 13 7 124 */
  1008. /*:ref: sigerr_ 14 2 13 124 */
  1009. /*:ref: chkout_ 14 2 13 124 */
  1010. /*:ref: vequ_ 14 2 7 7 */
  1011. /*:ref: orderd_ 14 3 7 4 4 */
  1012. /*:ref: reordd_ 14 3 4 4 7 */
  1013. /*:ref: vsclip_ 14 2 7 7 */
  1014. /*:ref: vnorm_ 7 1 7 */
  1015. /*:ref: dpmax_ 7 0 */
  1016. /*:ref: errint_ 14 3 13 4 124 */
  1017. /*:ref: touchd_ 7 1 7 */
  1018. /*:ref: brcktd_ 7 3 7 7 7 */
  1019. /*:ref: approx_ 12 3 7 7 7 */
  1020. /*:ref: vdist_ 7 2 7 7 */
  1021. /*:ref: surfnm_ 14 5 7 7 7 7 7 */
  1022. /*:ref: vperp_ 14 3 7 7 7 */
  1023. /*:ref: vadd_ 14 3 7 7 7 */
  1024.  
  1025. extern int nextwd_(char *string, char *next, char *rest, ftnlen string_len, ftnlen next_len, ftnlen rest_len);
  1026. /*:ref: ljust_ 14 4 13 13 124 124 */
  1027.  
  1028. extern logical notru_(logical *logcls, integer *n);
  1029.  
  1030. extern int nparsd_(char *string, doublereal *x, char *error, integer *ptr, ftnlen string_len, ftnlen error_len);
  1031. /*:ref: dpmax_ 7 0 */
  1032. /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
  1033. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1034. /*:ref: pi_ 7 0 */
  1035.  
  1036. extern int nparsi_(char *string, integer *n, char *error, integer *pnter, ftnlen string_len, ftnlen error_len);
  1037. /*:ref: intmax_ 4 0 */
  1038. /*:ref: intmin_ 4 0 */
  1039. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  1040.  
  1041. extern int npedln_(doublereal *a, doublereal *b, doublereal *c__, doublereal *linept, doublereal *linedr, doublereal *pnear, doublereal *dist);
  1042. /*:ref: return_ 12 0 */
  1043. /*:ref: chkin_ 14 2 13 124 */
  1044. /*:ref: unorm_ 14 3 7 7 7 */
  1045. /*:ref: setmsg_ 14 2 13 124 */
  1046. /*:ref: sigerr_ 14 2 13 124 */
  1047. /*:ref: chkout_ 14 2 13 124 */
  1048. /*:ref: errdp_ 14 3 13 7 124 */
  1049. /*:ref: vminus_ 14 2 7 7 */
  1050. /*:ref: surfpt_ 14 7 7 7 7 7 7 7 12 */
  1051. /*:ref: vscl_ 14 3 7 7 7 */
  1052. /*:ref: nvc2pl_ 14 3 7 7 7 */
  1053. /*:ref: inedpl_ 14 6 7 7 7 7 7 12 */
  1054. /*:ref: pjelpl_ 14 3 7 7 7 */
  1055. /*:ref: vprjp_ 14 3 7 7 7 */
  1056. /*:ref: npelpt_ 14 4 7 7 7 7 */
  1057. /*:ref: failed_ 12 0 */
  1058. /*:ref: vprjpi_ 14 5 7 7 7 7 12 */
  1059. /*:ref: vsclip_ 14 2 7 7 */
  1060.  
  1061. extern int npelpt_(doublereal *point, doublereal *ellips, doublereal *pnear, doublereal *dist);
  1062. /*:ref: return_ 12 0 */
  1063. /*:ref: chkin_ 14 2 13 124 */
  1064. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  1065. /*:ref: vnorm_ 7 1 7 */
  1066. /*:ref: setmsg_ 14 2 13 124 */
  1067. /*:ref: errdp_ 14 3 13 7 124 */
  1068. /*:ref: sigerr_ 14 2 13 124 */
  1069. /*:ref: chkout_ 14 2 13 124 */
  1070. /*:ref: vsclip_ 14 2 7 7 */
  1071. /*:ref: vsub_ 14 3 7 7 7 */
  1072. /*:ref: twovec_ 14 5 7 4 7 4 7 */
  1073. /*:ref: mxv_ 14 3 7 7 7 */
  1074. /*:ref: vequ_ 14 2 7 7 */
  1075. /*:ref: vpack_ 14 4 7 7 7 7 */
  1076. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  1077. /*:ref: mtxv_ 14 3 7 7 7 */
  1078. /*:ref: vadd_ 14 3 7 7 7 */
  1079. /*:ref: vdist_ 7 2 7 7 */
  1080.  
  1081. extern int nplnpt_(doublereal *linpt, doublereal *lindir, doublereal *point, doublereal *pnear, doublereal *dist);
  1082. /*:ref: return_ 12 0 */
  1083. /*:ref: chkin_ 14 2 13 124 */
  1084. /*:ref: vzero_ 12 1 7 */
  1085. /*:ref: setmsg_ 14 2 13 124 */
  1086. /*:ref: sigerr_ 14 2 13 124 */
  1087. /*:ref: chkout_ 14 2 13 124 */
  1088. /*:ref: vsub_ 14 3 7 7 7 */
  1089. /*:ref: vproj_ 14 3 7 7 7 */
  1090. /*:ref: vadd_ 14 3 7 7 7 */
  1091. /*:ref: vdist_ 7 2 7 7 */
  1092.  
  1093. extern int nthwd_(char *string, integer *nth, char *word, integer *loc, ftnlen string_len, ftnlen word_len);
  1094.  
  1095. extern int nvc2pl_(doublereal *normal, doublereal *const__, doublereal *plane);
  1096. /*:ref: return_ 12 0 */
  1097. /*:ref: unorm_ 14 3 7 7 7 */
  1098. /*:ref: chkin_ 14 2 13 124 */
  1099. /*:ref: setmsg_ 14 2 13 124 */
  1100. /*:ref: sigerr_ 14 2 13 124 */
  1101. /*:ref: chkout_ 14 2 13 124 */
  1102. /*:ref: vminus_ 14 2 7 7 */
  1103. /*:ref: vequ_ 14 2 7 7 */
  1104.  
  1105. extern int nvp2pl_(doublereal *normal, doublereal *point, doublereal *plane);
  1106. /*:ref: return_ 12 0 */
  1107. /*:ref: vzero_ 12 1 7 */
  1108. /*:ref: chkin_ 14 2 13 124 */
  1109. /*:ref: setmsg_ 14 2 13 124 */
  1110. /*:ref: sigerr_ 14 2 13 124 */
  1111. /*:ref: chkout_ 14 2 13 124 */
  1112. /*:ref: vhat_ 14 2 7 7 */
  1113. /*:ref: vdot_ 7 2 7 7 */
  1114. /*:ref: vminus_ 14 2 7 7 */
  1115. /*:ref: vequ_ 14 2 7 7 */
  1116.  
  1117. extern logical odd_(integer *i__);
  1118.  
  1119. extern logical opsgnd_(doublereal *x, doublereal *y);
  1120.  
  1121. extern logical opsgni_(integer *x, integer *y);
  1122.  
  1123. extern integer ordc_(char *item, char *set, ftnlen item_len, ftnlen set_len);
  1124. /*:ref: return_ 12 0 */
  1125. /*:ref: chkin_ 14 2 13 124 */
  1126. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1127. /*:ref: cardc_ 4 2 13 124 */
  1128. /*:ref: chkout_ 14 2 13 124 */
  1129.  
  1130. extern integer ordd_(doublereal *item, doublereal *set);
  1131. /*:ref: return_ 12 0 */
  1132. /*:ref: chkin_ 14 2 13 124 */
  1133. /*:ref: bsrchd_ 4 3 7 4 7 */
  1134. /*:ref: cardd_ 4 1 7 */
  1135. /*:ref: chkout_ 14 2 13 124 */
  1136.  
  1137. extern int orderc_(char *array, integer *ndim, integer *iorder, ftnlen array_len);
  1138. /*:ref: swapi_ 14 2 4 4 */
  1139.  
  1140. extern int orderd_(doublereal *array, integer *ndim, integer *iorder);
  1141. /*:ref: swapi_ 14 2 4 4 */
  1142.  
  1143. extern int orderi_(integer *array, integer *ndim, integer *iorder);
  1144. /*:ref: swapi_ 14 2 4 4 */
  1145.  
  1146. extern integer ordi_(integer *item, integer *set);
  1147. /*:ref: return_ 12 0 */
  1148. /*:ref: chkin_ 14 2 13 124 */
  1149. /*:ref: bsrchi_ 4 3 4 4 4 */
  1150. /*:ref: cardi_ 4 1 4 */
  1151. /*:ref: chkout_ 14 2 13 124 */
  1152.  
  1153. extern int oscelt_(doublereal *state, doublereal *et, doublereal *mu, doublereal *elts);
  1154. /*:ref: return_ 12 0 */
  1155. /*:ref: chkin_ 14 2 13 124 */
  1156. /*:ref: setmsg_ 14 2 13 124 */
  1157. /*:ref: errdp_ 14 3 13 7 124 */
  1158. /*:ref: sigerr_ 14 2 13 124 */
  1159. /*:ref: chkout_ 14 2 13 124 */
  1160. /*:ref: vequ_ 14 2 7 7 */
  1161. /*:ref: vzero_ 12 1 7 */
  1162. /*:ref: vnorm_ 7 1 7 */
  1163. /*:ref: vcrss_ 14 3 7 7 7 */
  1164. /*:ref: vpack_ 14 4 7 7 7 7 */
  1165. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  1166. /*:ref: vdot_ 7 2 7 7 */
  1167. /*:ref: vsclip_ 14 2 7 7 */
  1168. /*:ref: exact_ 7 3 7 7 7 */
  1169. /*:ref: vsep_ 7 2 7 7 */
  1170. /*:ref: pi_ 7 0 */
  1171. /*:ref: twopi_ 7 0 */
  1172. /*:ref: ucrss_ 14 3 7 7 7 */
  1173. /*:ref: vhat_ 14 2 7 7 */
  1174. /*:ref: dacosh_ 7 1 7 */
  1175.  
  1176. extern int outmsg_(char *list, ftnlen list_len);
  1177. /*:ref: lparse_ 14 8 13 13 4 4 13 124 124 124 */
  1178. /*:ref: ucase_ 14 4 13 13 124 124 */
  1179. /*:ref: getdev_ 14 2 13 124 */
  1180. /*:ref: wrline_ 14 4 13 13 124 124 */
  1181. /*:ref: msgsel_ 12 2 13 124 */
  1182. /*:ref: tkvrsn_ 14 4 13 13 124 124 */
  1183. /*:ref: getsms_ 14 2 13 124 */
  1184. /*:ref: expln_ 14 4 13 13 124 124 */
  1185. /*:ref: rtrim_ 4 2 13 124 */
  1186. /*:ref: getlms_ 14 2 13 124 */
  1187. /*:ref: wdcnt_ 4 2 13 124 */
  1188. /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
  1189. /*:ref: ljust_ 14 4 13 13 124 124 */
  1190. /*:ref: trcdep_ 14 1 4 */
  1191. /*:ref: trcnam_ 14 3 4 13 124 */
  1192. /*:ref: lastnb_ 4 2 13 124 */
  1193. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1194.  
  1195. extern int packac_(char *in, integer *pack, integer *npack, integer *maxout, integer *nout, char *out, ftnlen in_len, ftnlen out_len);
  1196. /*:ref: return_ 12 0 */
  1197. /*:ref: chkin_ 14 2 13 124 */
  1198. /*:ref: setmsg_ 14 2 13 124 */
  1199. /*:ref: errint_ 14 3 13 4 124 */
  1200. /*:ref: sigerr_ 14 2 13 124 */
  1201. /*:ref: chkout_ 14 2 13 124 */
  1202.  
  1203. extern int packad_(doublereal *in, integer *pack, integer *npack, integer *maxout, integer *nout, doublereal *out);
  1204. /*:ref: return_ 12 0 */
  1205. /*:ref: chkin_ 14 2 13 124 */
  1206. /*:ref: setmsg_ 14 2 13 124 */
  1207. /*:ref: errint_ 14 3 13 4 124 */
  1208. /*:ref: sigerr_ 14 2 13 124 */
  1209. /*:ref: chkout_ 14 2 13 124 */
  1210.  
  1211. extern int packai_(integer *in, integer *pack, integer *npack, integer *maxout, integer *nout, integer *out);
  1212. /*:ref: return_ 12 0 */
  1213. /*:ref: chkin_ 14 2 13 124 */
  1214. /*:ref: setmsg_ 14 2 13 124 */
  1215. /*:ref: errint_ 14 3 13 4 124 */
  1216. /*:ref: sigerr_ 14 2 13 124 */
  1217. /*:ref: chkout_ 14 2 13 124 */
  1218.  
  1219. extern int parsqs_(char *string, char *qchar, char *value, integer *length, logical *error, char *errmsg, integer *ptr, ftnlen string_len, ftnlen qchar_len, ftnlen value_len, ftnlen errmsg_len);
  1220. /*:ref: frstnb_ 4 2 13 124 */
  1221. /*:ref: lastnb_ 4 2 13 124 */
  1222.  
  1223. extern int partof_(doublereal *ma, doublereal *d__);
  1224. /*:ref: return_ 12 0 */
  1225. /*:ref: chkin_ 14 2 13 124 */
  1226. /*:ref: chkout_ 14 2 13 124 */
  1227. /*:ref: dcbrt_ 7 1 7 */
  1228.  
  1229. extern int pck03a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs);
  1230. /*:ref: return_ 12 0 */
  1231. /*:ref: chkin_ 14 2 13 124 */
  1232. /*:ref: setmsg_ 14 2 13 124 */
  1233. /*:ref: errhan_ 14 3 13 4 124 */
  1234. /*:ref: errint_ 14 3 13 4 124 */
  1235. /*:ref: sigerr_ 14 2 13 124 */
  1236. /*:ref: chkout_ 14 2 13 124 */
  1237. /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
  1238.  
  1239. extern int pck03b_(integer *handle, char *segid, integer *body, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len);
  1240. /*:ref: return_ 12 0 */
  1241. /*:ref: chkin_ 14 2 13 124 */
  1242. /*:ref: setmsg_ 14 2 13 124 */
  1243. /*:ref: errint_ 14 3 13 4 124 */
  1244. /*:ref: sigerr_ 14 2 13 124 */
  1245. /*:ref: chkout_ 14 2 13 124 */
  1246. /*:ref: pckpds_ 14 7 4 13 4 7 7 7 124 */
  1247. /*:ref: failed_ 12 0 */
  1248. /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
  1249.  
  1250. extern int pck03e_(integer *handle);
  1251. /*:ref: return_ 12 0 */
  1252. /*:ref: chkin_ 14 2 13 124 */
  1253. /*:ref: sgwes_ 14 1 4 */
  1254. /*:ref: chkout_ 14 2 13 124 */
  1255.  
  1256. extern int pckbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len);
  1257. extern int pcklof_(char *fname, integer *handle, ftnlen fname_len);
  1258. extern int pckuof_(integer *handle);
  1259. extern int pcksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len);
  1260. /*:ref: return_ 12 0 */
  1261. /*:ref: chkin_ 14 2 13 124 */
  1262. /*:ref: sigerr_ 14 2 13 124 */
  1263. /*:ref: chkout_ 14 2 13 124 */
  1264. /*:ref: lnkini_ 14 2 4 4 */
  1265. /*:ref: dafopr_ 14 3 13 4 124 */
  1266. /*:ref: failed_ 12 0 */
  1267. /*:ref: isrchi_ 4 3 4 4 4 */
  1268. /*:ref: dafcls_ 14 1 4 */
  1269. /*:ref: lnknxt_ 4 2 4 4 */
  1270. /*:ref: lnkfsl_ 14 3 4 4 4 */
  1271. /*:ref: setmsg_ 14 2 13 124 */
  1272. /*:ref: errint_ 14 3 13 4 124 */
  1273. /*:ref: intmax_ 4 0 */
  1274. /*:ref: moved_ 14 3 7 4 7 */
  1275. /*:ref: lnkprv_ 4 2 4 4 */
  1276. /*:ref: dpmin_ 7 0 */
  1277. /*:ref: dpmax_ 7 0 */
  1278. /*:ref: cleard_ 14 2 4 7 */
  1279. /*:ref: dafbfs_ 14 1 4 */
  1280. /*:ref: daffna_ 14 1 12 */
  1281. /*:ref: dafgs_ 14 1 7 */
  1282. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  1283. /*:ref: dafbbs_ 14 1 4 */
  1284. /*:ref: daffpa_ 14 1 12 */
  1285. /*:ref: lnknfn_ 4 1 4 */
  1286. /*:ref: lnkan_ 14 2 4 4 */
  1287. /*:ref: dafgn_ 14 2 13 124 */
  1288. /*:ref: lnkilb_ 14 3 4 4 4 */
  1289. /*:ref: lnkila_ 14 3 4 4 4 */
  1290. /*:ref: lnktl_ 4 2 4 4 */
  1291.  
  1292. extern int pckcls_(integer *handle);
  1293. /*:ref: return_ 12 0 */
  1294. /*:ref: chkin_ 14 2 13 124 */
  1295. /*:ref: dafbfs_ 14 1 4 */
  1296. /*:ref: daffna_ 14 1 12 */
  1297. /*:ref: failed_ 12 0 */
  1298. /*:ref: chkout_ 14 2 13 124 */
  1299. /*:ref: setmsg_ 14 2 13 124 */
  1300. /*:ref: errhan_ 14 3 13 4 124 */
  1301. /*:ref: sigerr_ 14 2 13 124 */
  1302. /*:ref: dafcls_ 14 1 4 */
  1303.  
  1304. extern int pcke02_(doublereal *et, doublereal *record, doublereal *eulang);
  1305. /*:ref: return_ 12 0 */
  1306. /*:ref: chkin_ 14 2 13 124 */
  1307. /*:ref: spke02_ 14 3 7 7 7 */
  1308. /*:ref: twopi_ 7 0 */
  1309. /*:ref: chkout_ 14 2 13 124 */
  1310.  
  1311. extern int pcke03_(doublereal *et, doublereal *record, doublereal *rotmat);
  1312. /*:ref: return_ 12 0 */
  1313. /*:ref: chkin_ 14 2 13 124 */
  1314. /*:ref: chbval_ 14 5 7 4 7 7 7 */
  1315. /*:ref: rpd_ 7 0 */
  1316. /*:ref: halfpi_ 7 0 */
  1317. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  1318. /*:ref: vcrss_ 14 3 7 7 7 */
  1319. /*:ref: chkout_ 14 2 13 124 */
  1320.  
  1321. extern int pckeul_(integer *body, doublereal *et, logical *found, char *ref, doublereal *eulang, ftnlen ref_len);
  1322. /*:ref: return_ 12 0 */
  1323. /*:ref: chkin_ 14 2 13 124 */
  1324. /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */
  1325. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  1326. /*:ref: irfnam_ 14 3 4 13 124 */
  1327. /*:ref: pckr02_ 14 4 4 7 7 7 */
  1328. /*:ref: pcke02_ 14 3 7 7 7 */
  1329. /*:ref: chkout_ 14 2 13 124 */
  1330.  
  1331. extern int pckmat_(integer *body, doublereal *et, integer *ref, doublereal *tsipm, logical *found);
  1332. /*:ref: return_ 12 0 */
  1333. /*:ref: chkin_ 14 2 13 124 */
  1334. /*:ref: pcksfs_ 14 7 4 7 4 7 13 12 124 */
  1335. /*:ref: failed_ 12 0 */
  1336. /*:ref: chkout_ 14 2 13 124 */
  1337. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  1338. /*:ref: pckr02_ 14 4 4 7 7 7 */
  1339. /*:ref: pcke02_ 14 3 7 7 7 */
  1340. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  1341. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  1342. /*:ref: setmsg_ 14 2 13 124 */
  1343. /*:ref: errint_ 14 3 13 4 124 */
  1344. /*:ref: sigerr_ 14 2 13 124 */
  1345. /*:ref: pckr03_ 14 4 4 7 7 7 */
  1346. /*:ref: pcke03_ 14 3 7 7 7 */
  1347.  
  1348. extern int pckopn_(char *name__, char *ifname, integer *ncomch, integer *handle, ftnlen name_len, ftnlen ifname_len);
  1349. /*:ref: return_ 12 0 */
  1350. /*:ref: chkin_ 14 2 13 124 */
  1351. /*:ref: dafonw_ 14 10 13 13 4 4 13 4 4 124 124 124 */
  1352. /*:ref: failed_ 12 0 */
  1353. /*:ref: chkout_ 14 2 13 124 */
  1354.  
  1355. extern int pckpds_(integer *body, char *frame, integer *type__, doublereal *first, doublereal *last, doublereal *descr, ftnlen frame_len);
  1356. /*:ref: return_ 12 0 */
  1357. /*:ref: chkin_ 14 2 13 124 */
  1358. /*:ref: setmsg_ 14 2 13 124 */
  1359. /*:ref: sigerr_ 14 2 13 124 */
  1360. /*:ref: chkout_ 14 2 13 124 */
  1361. /*:ref: irfnum_ 14 3 13 4 124 */
  1362. /*:ref: errch_ 14 4 13 13 124 124 */
  1363. /*:ref: etcal_ 14 3 7 13 124 */
  1364. /*:ref: errdp_ 14 3 13 7 124 */
  1365. /*:ref: errint_ 14 3 13 4 124 */
  1366. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  1367.  
  1368. extern int pckr02_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  1369. /*:ref: return_ 12 0 */
  1370. /*:ref: chkin_ 14 2 13 124 */
  1371. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  1372. /*:ref: dafgda_ 14 4 4 4 4 7 */
  1373. /*:ref: chkout_ 14 2 13 124 */
  1374.  
  1375. extern int pckr03_(integer *handle, doublereal *descr, doublereal *et, doublereal *record);
  1376. /*:ref: return_ 12 0 */
  1377. /*:ref: chkin_ 14 2 13 124 */
  1378. /*:ref: setmsg_ 14 2 13 124 */
  1379. /*:ref: errdp_ 14 3 13 7 124 */
  1380. /*:ref: sigerr_ 14 2 13 124 */
  1381. /*:ref: chkout_ 14 2 13 124 */
  1382. /*:ref: sgfcon_ 14 5 4 7 4 4 7 */
  1383. /*:ref: sgfrvi_ 14 6 4 7 7 7 4 12 */
  1384. /*:ref: sgfpkt_ 14 6 4 7 4 4 7 4 */
  1385.  
  1386. extern int pckuds_(doublereal *descr, integer *body, integer *frame, integer *type__, doublereal *first, doublereal *last, integer *begin, integer *end);
  1387. /*:ref: return_ 12 0 */
  1388. /*:ref: chkin_ 14 2 13 124 */
  1389. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  1390. /*:ref: failed_ 12 0 */
  1391. /*:ref: chkout_ 14 2 13 124 */
  1392.  
  1393. extern int pckw02_(integer *handle, integer *body, char *frame, doublereal *first, doublereal *last, char *segid, doublereal *intlen, integer *n, integer *polydg, doublereal *cdata, doublereal *btime, ftnlen frame_len, ftnlen segid_len);
  1394. /*:ref: return_ 12 0 */
  1395. /*:ref: chkin_ 14 2 13 124 */
  1396. /*:ref: setmsg_ 14 2 13 124 */
  1397. /*:ref: errint_ 14 3 13 4 124 */
  1398. /*:ref: sigerr_ 14 2 13 124 */
  1399. /*:ref: chkout_ 14 2 13 124 */
  1400. /*:ref: errdp_ 14 3 13 7 124 */
  1401. /*:ref: irfnum_ 14 3 13 4 124 */
  1402. /*:ref: errch_ 14 4 13 13 124 124 */
  1403. /*:ref: etcal_ 14 3 7 13 124 */
  1404. /*:ref: chckid_ 14 5 13 4 13 124 124 */
  1405. /*:ref: failed_ 12 0 */
  1406. /*:ref: dafps_ 14 5 4 4 7 4 7 */
  1407. /*:ref: dafbna_ 14 4 4 7 13 124 */
  1408. /*:ref: dafada_ 14 2 7 4 */
  1409. /*:ref: dafena_ 14 0 */
  1410.  
  1411. extern integer pcwid_(char *array, integer *nelt, ftnlen array_len);
  1412.  
  1413. extern int pgrrec_(char *body, doublereal *lon, doublereal *lat, doublereal *alt, doublereal *re, doublereal *f, doublereal *rectan, ftnlen body_len);
  1414. /*:ref: return_ 12 0 */
  1415. /*:ref: chkin_ 14 2 13 124 */
  1416. /*:ref: bods2c_ 14 4 13 4 12 124 */
  1417. /*:ref: setmsg_ 14 2 13 124 */
  1418. /*:ref: errch_ 14 4 13 13 124 124 */
  1419. /*:ref: sigerr_ 14 2 13 124 */
  1420. /*:ref: chkout_ 14 2 13 124 */
  1421. /*:ref: errdp_ 14 3 13 7 124 */
  1422. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1423. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  1424. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  1425. /*:ref: ucase_ 14 4 13 13 124 124 */
  1426. /*:ref: plnsns_ 4 1 4 */
  1427. /*:ref: georec_ 14 6 7 7 7 7 7 7 */
  1428.  
  1429. extern doublereal pi_(void);
  1430.  
  1431. extern int pjelpl_(doublereal *elin, doublereal *plane, doublereal *elout);
  1432. /*:ref: return_ 12 0 */
  1433. /*:ref: chkin_ 14 2 13 124 */
  1434. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  1435. /*:ref: pl2nvc_ 14 3 7 7 7 */
  1436. /*:ref: vperp_ 14 3 7 7 7 */
  1437. /*:ref: vprjp_ 14 3 7 7 7 */
  1438. /*:ref: cgv2el_ 14 4 7 7 7 7 */
  1439. /*:ref: chkout_ 14 2 13 124 */
  1440.  
  1441. extern int pl2nvc_(doublereal *plane, doublereal *normal, doublereal *const__);
  1442. /*:ref: vequ_ 14 2 7 7 */
  1443.  
  1444. extern int pl2nvp_(doublereal *plane, doublereal *normal, doublereal *point);
  1445. /*:ref: pl2nvc_ 14 3 7 7 7 */
  1446. /*:ref: vscl_ 14 3 7 7 7 */
  1447.  
  1448. extern int pl2psv_(doublereal *plane, doublereal *point, doublereal *span1, doublereal *span2);
  1449. /*:ref: pl2nvp_ 14 3 7 7 7 */
  1450. /*:ref: frame_ 14 3 7 7 7 */
  1451.  
  1452. extern integer plnsns_(integer *bodid);
  1453. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1454. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  1455. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  1456.  
  1457. extern int polyds_(doublereal *coeffs, integer *deg, integer *nderiv, doublereal *t, doublereal *p);
  1458.  
  1459. extern int pool_(char *kernel, integer *unit, char *name__, char *names, integer *nnames, char *agent, integer *n, doublereal *values, logical *found, logical *update, integer *start, integer *room, char *cvals, integer *ivals, char *type__, ftnlen kernel_len, ftnlen name_len, ftnlen names_len, ftnlen agent_len, ftnlen cvals_len, ftnlen type_len);
  1460. extern int clpool_(void);
  1461. extern int ldpool_(char *kernel, ftnlen kernel_len);
  1462. extern int rtpool_(char *name__, integer *n, doublereal *values, logical *found, ftnlen name_len);
  1463. extern int expool_(char *name__, logical *found, ftnlen name_len);
  1464. extern int wrpool_(integer *unit);
  1465. extern int swpool_(char *agent, integer *nnames, char *names, ftnlen agent_len, ftnlen names_len);
  1466. extern int cvpool_(char *agent, logical *update, ftnlen agent_len);
  1467. extern int gcpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len);
  1468. extern int gdpool_(char *name__, integer *start, integer *room, integer *n, doublereal *values, logical *found, ftnlen name_len);
  1469. extern int gipool_(char *name__, integer *start, integer *room, integer *n, integer *ivals, logical *found, ftnlen name_len);
  1470. extern int dtpool_(char *name__, logical *found, integer *n, char *type__, ftnlen name_len, ftnlen type_len);
  1471. extern int pcpool_(char *name__, integer *n, char *cvals, ftnlen name_len, ftnlen cvals_len);
  1472. extern int pdpool_(char *name__, integer *n, doublereal *values, ftnlen name_len);
  1473. extern int pipool_(char *name__, integer *n, integer *ivals, ftnlen name_len);
  1474. extern int lmpool_(char *cvals, integer *n, ftnlen cvals_len);
  1475. extern int szpool_(char *name__, integer *n, logical *found, ftnlen name_len);
  1476. extern int dvpool_(char *name__, ftnlen name_len);
  1477. extern int gnpool_(char *name__, integer *start, integer *room, integer *n, char *cvals, logical *found, ftnlen name_len, ftnlen cvals_len);
  1478. /*:ref: return_ 12 0 */
  1479. /*:ref: chkin_ 14 2 13 124 */
  1480. /*:ref: setmsg_ 14 2 13 124 */
  1481. /*:ref: sigerr_ 14 2 13 124 */
  1482. /*:ref: chkout_ 14 2 13 124 */
  1483. /*:ref: zzpini_ 14 26 12 4 4 4 13 13 4 4 4 4 4 4 4 13 4 13 13 13 13 124 124 124 124 124 124 124 */
  1484. /*:ref: lnkini_ 14 2 4 4 */
  1485. /*:ref: copyc_ 14 4 13 13 124 124 */
  1486. /*:ref: cardc_ 4 2 13 124 */
  1487. /*:ref: syfetc_ 14 9 4 13 4 13 13 12 124 124 124 */
  1488. /*:ref: sygetc_ 14 11 13 13 4 13 4 13 12 124 124 124 124 */
  1489. /*:ref: validc_ 14 4 4 4 13 124 */
  1490. /*:ref: unionc_ 14 6 13 13 13 124 124 124 */
  1491. /*:ref: rdknew_ 14 2 13 124 */
  1492. /*:ref: zzrvar_ 14 13 4 4 13 4 4 7 4 13 13 12 124 124 124 */
  1493. /*:ref: failed_ 12 0 */
  1494. /*:ref: cltext_ 14 2 13 124 */
  1495. /*:ref: zzhash_ 4 2 13 124 */
  1496. /*:ref: ioerr_ 14 5 13 13 4 124 124 */
  1497. /*:ref: rtrim_ 4 2 13 124 */
  1498. /*:ref: errch_ 14 4 13 13 124 124 */
  1499. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1500. /*:ref: sypshc_ 14 9 13 13 13 4 13 124 124 124 124 */
  1501. /*:ref: syordc_ 14 7 13 13 4 13 124 124 124 */
  1502. /*:ref: errint_ 14 3 13 4 124 */
  1503. /*:ref: insrtc_ 14 4 13 13 124 124 */
  1504. /*:ref: elemc_ 12 4 13 13 124 124 */
  1505. /*:ref: removc_ 14 4 13 13 124 124 */
  1506. /*:ref: intmax_ 4 0 */
  1507. /*:ref: intmin_ 4 0 */
  1508. /*:ref: errdp_ 14 3 13 7 124 */
  1509. /*:ref: zzgpnm_ 14 15 4 4 13 4 4 7 4 13 13 12 4 4 124 124 124 */
  1510. /*:ref: lnknfn_ 4 1 4 */
  1511. /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
  1512. /*:ref: lnkfsl_ 14 3 4 4 4 */
  1513. /*:ref: lnkan_ 14 2 4 4 */
  1514. /*:ref: lnkila_ 14 3 4 4 4 */
  1515. /*:ref: zzrvbf_ 14 17 13 4 4 4 4 13 4 4 7 4 13 13 12 124 124 124 124 */
  1516. /*:ref: eqstr_ 12 4 13 13 124 124 */
  1517. /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
  1518.  
  1519. extern integer pos_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len);
  1520.  
  1521. extern integer posr_(char *str, char *substr, integer *start, ftnlen str_len, ftnlen substr_len);
  1522.  
  1523. extern int prefix_(char *pref, integer *spaces, char *string, ftnlen pref_len, ftnlen string_len);
  1524. /*:ref: lastnb_ 4 2 13 124 */
  1525. /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */
  1526.  
  1527. extern doublereal prodad_(doublereal *array, integer *n);
  1528.  
  1529. extern integer prodai_(integer *array, integer *n);
  1530.  
  1531. extern int prompt_(char *prmpt, char *string, ftnlen prmpt_len, ftnlen string_len);
  1532. /*:ref: chkin_ 14 2 13 124 */
  1533. /*:ref: setmsg_ 14 2 13 124 */
  1534. /*:ref: sigerr_ 14 2 13 124 */
  1535. /*:ref: chkout_ 14 2 13 124 */
  1536. /*:ref: errch_ 14 4 13 13 124 124 */
  1537. /*:ref: errint_ 14 3 13 4 124 */
  1538.  
  1539. extern int prop2b_(doublereal *gm, doublereal *pvinit, doublereal *dt, doublereal *pvprop);
  1540. /*:ref: return_ 12 0 */
  1541. /*:ref: chkin_ 14 2 13 124 */
  1542. /*:ref: sigerr_ 14 2 13 124 */
  1543. /*:ref: chkout_ 14 2 13 124 */
  1544. /*:ref: vzero_ 12 1 7 */
  1545. /*:ref: vnorm_ 7 1 7 */
  1546. /*:ref: vdot_ 7 2 7 7 */
  1547. /*:ref: vcrss_ 14 3 7 7 7 */
  1548. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  1549. /*:ref: dpmax_ 7 0 */
  1550. /*:ref: brckti_ 4 3 4 4 4 */
  1551. /*:ref: brcktd_ 7 3 7 7 7 */
  1552. /*:ref: stmp03_ 14 5 7 7 7 7 7 */
  1553. /*:ref: setmsg_ 14 2 13 124 */
  1554. /*:ref: errdp_ 14 3 13 7 124 */
  1555. /*:ref: vequg_ 14 3 7 4 7 */
  1556.  
  1557. extern int prsdp_(char *string, doublereal *dpval, ftnlen string_len);
  1558. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  1559. /*:ref: chkin_ 14 2 13 124 */
  1560. /*:ref: setmsg_ 14 2 13 124 */
  1561. /*:ref: sigerr_ 14 2 13 124 */
  1562. /*:ref: chkout_ 14 2 13 124 */
  1563.  
  1564. extern int prsint_(char *string, integer *intval, ftnlen string_len);
  1565. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  1566. /*:ref: chkin_ 14 2 13 124 */
  1567. /*:ref: setmsg_ 14 2 13 124 */
  1568. /*:ref: sigerr_ 14 2 13 124 */
  1569. /*:ref: chkout_ 14 2 13 124 */
  1570.  
  1571. extern int prtenc_(integer *number, char *string, ftnlen string_len);
  1572. extern int prtdec_(char *string, integer *number, ftnlen string_len);
  1573. /*:ref: chkin_ 14 2 13 124 */
  1574. /*:ref: sigerr_ 14 2 13 124 */
  1575. /*:ref: chkout_ 14 2 13 124 */
  1576.  
  1577. extern logical prtpkg_(logical *short__, logical *long__, logical *expl, logical *trace, logical *dfault, char *type__, ftnlen type_len);
  1578. extern logical setprt_(logical *short__, logical *expl, logical *long__, logical *trace, logical *dfault);
  1579. extern logical msgsel_(char *type__, ftnlen type_len);
  1580. /*:ref: getdev_ 14 2 13 124 */
  1581. /*:ref: wrline_ 14 4 13 13 124 124 */
  1582. /*:ref: ljust_ 14 4 13 13 124 124 */
  1583. /*:ref: ucase_ 14 4 13 13 124 124 */
  1584.  
  1585. extern int psv2pl_(doublereal *point, doublereal *span1, doublereal *span2, doublereal *plane);
  1586. /*:ref: return_ 12 0 */
  1587. /*:ref: ucrss_ 14 3 7 7 7 */
  1588. /*:ref: vzero_ 12 1 7 */
  1589. /*:ref: chkin_ 14 2 13 124 */
  1590. /*:ref: setmsg_ 14 2 13 124 */
  1591. /*:ref: sigerr_ 14 2 13 124 */
  1592. /*:ref: chkout_ 14 2 13 124 */
  1593. /*:ref: vdot_ 7 2 7 7 */
  1594. /*:ref: vminus_ 14 2 7 7 */
  1595. /*:ref: vequ_ 14 2 7 7 */
  1596.  
  1597. extern int putact_(integer *action);
  1598. extern int getact_(integer *action);
  1599.  
  1600. extern int putdev_(char *device, ftnlen device_len);
  1601. extern int getdev_(char *device, ftnlen device_len);
  1602.  
  1603. extern int putlms_(char *msg, ftnlen msg_len);
  1604. extern int getlms_(char *msg, ftnlen msg_len);
  1605.  
  1606. extern int putsms_(char *msg, ftnlen msg_len);
  1607. extern int getsms_(char *msg, ftnlen msg_len);
  1608.  
  1609. extern int pxform_(char *from, char *to, doublereal *et, doublereal *rotate, ftnlen from_len, ftnlen to_len);
  1610. /*:ref: return_ 12 0 */
  1611. /*:ref: chkin_ 14 2 13 124 */
  1612. /*:ref: namfrm_ 14 3 13 4 124 */
  1613. /*:ref: refchg_ 14 4 4 4 7 7 */
  1614. /*:ref: setmsg_ 14 2 13 124 */
  1615. /*:ref: errch_ 14 4 13 13 124 124 */
  1616. /*:ref: sigerr_ 14 2 13 124 */
  1617. /*:ref: chkout_ 14 2 13 124 */
  1618.  
  1619. extern int q2m_(doublereal *q, doublereal *r__);
  1620.  
  1621. extern int qderiv_(integer *n, doublereal *f0, doublereal *f2, doublereal *delta, doublereal *dfdt);
  1622. /*:ref: chkin_ 14 2 13 124 */
  1623. /*:ref: setmsg_ 14 2 13 124 */
  1624. /*:ref: sigerr_ 14 2 13 124 */
  1625. /*:ref: chkout_ 14 2 13 124 */
  1626. /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
  1627.  
  1628. extern int qdq2av_(doublereal *q, doublereal *dq, doublereal *av);
  1629. /*:ref: vhatg_ 14 3 7 4 7 */
  1630. /*:ref: vminus_ 14 2 7 7 */
  1631. /*:ref: qxq_ 14 3 7 7 7 */
  1632. /*:ref: vscl_ 14 3 7 7 7 */
  1633.  
  1634. extern int quote_(char *in, char *left, char *right, char *out, ftnlen in_len, ftnlen left_len, ftnlen right_len, ftnlen out_len);
  1635. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1636. /*:ref: frstnb_ 4 2 13 124 */
  1637. /*:ref: lastnb_ 4 2 13 124 */
  1638. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1639.  
  1640. extern int qxq_(doublereal *q1, doublereal *q2, doublereal *qout);
  1641. /*:ref: vdot_ 7 2 7 7 */
  1642. /*:ref: vcrss_ 14 3 7 7 7 */
  1643. /*:ref: vlcom3_ 14 7 7 7 7 7 7 7 7 */
  1644.  
  1645. extern int radrec_(doublereal *range, doublereal *ra, doublereal *dec, doublereal *rectan);
  1646. /*:ref: latrec_ 14 4 7 7 7 7 */
  1647.  
  1648. extern int rav2xf_(doublereal *rot, doublereal *av, doublereal *xform);
  1649. /*:ref: mxm_ 14 3 7 7 7 */
  1650.  
  1651. extern int raxisa_(doublereal *matrix, doublereal *axis, doublereal *angle);
  1652. /*:ref: return_ 12 0 */
  1653. /*:ref: chkin_ 14 2 13 124 */
  1654. /*:ref: m2q_ 14 2 7 7 */
  1655. /*:ref: failed_ 12 0 */
  1656. /*:ref: chkout_ 14 2 13 124 */
  1657. /*:ref: vzero_ 12 1 7 */
  1658. /*:ref: pi_ 7 0 */
  1659. /*:ref: vhat_ 14 2 7 7 */
  1660. /*:ref: vnorm_ 7 1 7 */
  1661.  
  1662. extern int rdencc_(integer *unit, integer *n, char *data, ftnlen data_len);
  1663. /*:ref: return_ 12 0 */
  1664. /*:ref: chkin_ 14 2 13 124 */
  1665. /*:ref: setmsg_ 14 2 13 124 */
  1666. /*:ref: errint_ 14 3 13 4 124 */
  1667. /*:ref: sigerr_ 14 2 13 124 */
  1668. /*:ref: chkout_ 14 2 13 124 */
  1669. /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
  1670. /*:ref: errch_ 14 4 13 13 124 124 */
  1671.  
  1672. extern int rdencd_(integer *unit, integer *n, doublereal *data);
  1673. /*:ref: return_ 12 0 */
  1674. /*:ref: chkin_ 14 2 13 124 */
  1675. /*:ref: setmsg_ 14 2 13 124 */
  1676. /*:ref: errint_ 14 3 13 4 124 */
  1677. /*:ref: sigerr_ 14 2 13 124 */
  1678. /*:ref: chkout_ 14 2 13 124 */
  1679. /*:ref: hx2dp_ 14 6 13 7 12 13 124 124 */
  1680. /*:ref: errch_ 14 4 13 13 124 124 */
  1681.  
  1682. extern int rdenci_(integer *unit, integer *n, integer *data);
  1683. /*:ref: return_ 12 0 */
  1684. /*:ref: chkin_ 14 2 13 124 */
  1685. /*:ref: setmsg_ 14 2 13 124 */
  1686. /*:ref: errint_ 14 3 13 4 124 */
  1687. /*:ref: sigerr_ 14 2 13 124 */
  1688. /*:ref: chkout_ 14 2 13 124 */
  1689. /*:ref: hx2int_ 14 6 13 4 12 13 124 124 */
  1690. /*:ref: errch_ 14 4 13 13 124 124 */
  1691.  
  1692. extern int rdker_(char *kernel, char *line, integer *number, logical *eof, ftnlen kernel_len, ftnlen line_len);
  1693. extern int rdknew_(char *kernel, ftnlen kernel_len);
  1694. extern int rdkdat_(char *line, logical *eof, ftnlen line_len);
  1695. extern int rdklin_(char *kernel, integer *number, ftnlen kernel_len);
  1696. /*:ref: return_ 12 0 */
  1697. /*:ref: chkin_ 14 2 13 124 */
  1698. /*:ref: setmsg_ 14 2 13 124 */
  1699. /*:ref: sigerr_ 14 2 13 124 */
  1700. /*:ref: chkout_ 14 2 13 124 */
  1701. /*:ref: cltext_ 14 2 13 124 */
  1702. /*:ref: zzsetnnread_ 14 1 12 */
  1703. /*:ref: rdtext_ 14 5 13 13 12 124 124 */
  1704. /*:ref: ljust_ 14 4 13 13 124 124 */
  1705. /*:ref: failed_ 12 0 */
  1706.  
  1707. extern int rdkvar_(char *tabsym, integer *tabptr, doublereal *tabval, char *name__, logical *eof, ftnlen tabsym_len, ftnlen name_len);
  1708. /*:ref: return_ 12 0 */
  1709. /*:ref: chkin_ 14 2 13 124 */
  1710. /*:ref: failed_ 12 0 */
  1711. /*:ref: rdkdat_ 14 3 13 12 124 */
  1712. /*:ref: chkout_ 14 2 13 124 */
  1713. /*:ref: replch_ 14 8 13 13 13 13 124 124 124 124 */
  1714. /*:ref: nextwd_ 14 6 13 13 13 124 124 124 */
  1715. /*:ref: sydeld_ 14 6 13 13 4 7 124 124 */
  1716. /*:ref: tparse_ 14 5 13 7 13 124 124 */
  1717. /*:ref: setmsg_ 14 2 13 124 */
  1718. /*:ref: sigerr_ 14 2 13 124 */
  1719. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  1720. /*:ref: syenqd_ 14 7 13 7 13 4 7 124 124 */
  1721.  
  1722. extern int rdnbl_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len);
  1723. /*:ref: return_ 12 0 */
  1724. /*:ref: chkin_ 14 2 13 124 */
  1725. /*:ref: rdtext_ 14 5 13 13 12 124 124 */
  1726. /*:ref: failed_ 12 0 */
  1727. /*:ref: chkout_ 14 2 13 124 */
  1728.  
  1729. extern int rdtext_(char *file, char *line, logical *eof, ftnlen file_len, ftnlen line_len);
  1730. extern int cltext_(char *file, ftnlen file_len);
  1731. /*:ref: return_ 12 0 */
  1732. /*:ref: chkin_ 14 2 13 124 */
  1733. /*:ref: setmsg_ 14 2 13 124 */
  1734. /*:ref: errch_ 14 4 13 13 124 124 */
  1735. /*:ref: errint_ 14 3 13 4 124 */
  1736. /*:ref: sigerr_ 14 2 13 124 */
  1737. /*:ref: chkout_ 14 2 13 124 */
  1738. /*:ref: isrchi_ 4 3 4 4 4 */
  1739. /*:ref: getlun_ 14 1 4 */
  1740.  
  1741. extern int readla_(integer *unit, integer *maxlin, integer *numlin, char *array, logical *eof, ftnlen array_len);
  1742. /*:ref: return_ 12 0 */
  1743. /*:ref: chkin_ 14 2 13 124 */
  1744. /*:ref: setmsg_ 14 2 13 124 */
  1745. /*:ref: errint_ 14 3 13 4 124 */
  1746. /*:ref: sigerr_ 14 2 13 124 */
  1747. /*:ref: chkout_ 14 2 13 124 */
  1748. /*:ref: readln_ 14 4 4 13 12 124 */
  1749. /*:ref: failed_ 12 0 */
  1750.  
  1751. extern int readln_(integer *unit, char *line, logical *eof, ftnlen line_len);
  1752. /*:ref: chkin_ 14 2 13 124 */
  1753. /*:ref: setmsg_ 14 2 13 124 */
  1754. /*:ref: errfnm_ 14 3 13 4 124 */
  1755. /*:ref: errint_ 14 3 13 4 124 */
  1756. /*:ref: sigerr_ 14 2 13 124 */
  1757. /*:ref: chkout_ 14 2 13 124 */
  1758.  
  1759. extern int reccyl_(doublereal *rectan, doublereal *r__, doublereal *long__, doublereal *z__);
  1760. /*:ref: twopi_ 7 0 */
  1761.  
  1762. extern int recgeo_(doublereal *rectan, doublereal *re, doublereal *f, doublereal *long__, doublereal *lat, doublereal *alt);
  1763. /*:ref: return_ 12 0 */
  1764. /*:ref: chkin_ 14 2 13 124 */
  1765. /*:ref: setmsg_ 14 2 13 124 */
  1766. /*:ref: errdp_ 14 3 13 7 124 */
  1767. /*:ref: sigerr_ 14 2 13 124 */
  1768. /*:ref: chkout_ 14 2 13 124 */
  1769. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  1770. /*:ref: surfnm_ 14 5 7 7 7 7 7 */
  1771. /*:ref: reclat_ 14 4 7 7 7 7 */
  1772.  
  1773. extern int reclat_(doublereal *rectan, doublereal *radius, doublereal *long__, doublereal *lat);
  1774.  
  1775. extern int recpgr_(char *body, doublereal *rectan, doublereal *re, doublereal *f, doublereal *lon, doublereal *lat, doublereal *alt, ftnlen body_len);
  1776. /*:ref: return_ 12 0 */
  1777. /*:ref: chkin_ 14 2 13 124 */
  1778. /*:ref: bods2c_ 14 4 13 4 12 124 */
  1779. /*:ref: setmsg_ 14 2 13 124 */
  1780. /*:ref: errch_ 14 4 13 13 124 124 */
  1781. /*:ref: sigerr_ 14 2 13 124 */
  1782. /*:ref: chkout_ 14 2 13 124 */
  1783. /*:ref: errdp_ 14 3 13 7 124 */
  1784. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1785. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  1786. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  1787. /*:ref: ucase_ 14 4 13 13 124 124 */
  1788. /*:ref: plnsns_ 4 1 4 */
  1789. /*:ref: recgeo_ 14 6 7 7 7 7 7 7 */
  1790. /*:ref: twopi_ 7 0 */
  1791. /*:ref: brcktd_ 7 3 7 7 7 */
  1792.  
  1793. extern int recrad_(doublereal *rectan, doublereal *range, doublereal *ra, doublereal *dec);
  1794. /*:ref: reclat_ 14 4 7 7 7 7 */
  1795. /*:ref: twopi_ 7 0 */
  1796.  
  1797. extern int recsph_(doublereal *rectan, doublereal *r__, doublereal *colat, doublereal *long__);
  1798.  
  1799. extern int refchg_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
  1800. /*:ref: return_ 12 0 */
  1801. /*:ref: chkin_ 14 2 13 124 */
  1802. /*:ref: ident_ 14 1 7 */
  1803. /*:ref: chkout_ 14 2 13 124 */
  1804. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  1805. /*:ref: setmsg_ 14 2 13 124 */
  1806. /*:ref: errint_ 14 3 13 4 124 */
  1807. /*:ref: sigerr_ 14 2 13 124 */
  1808. /*:ref: rotget_ 14 5 4 7 7 4 12 */
  1809. /*:ref: zzrxr_ 14 3 7 4 7 */
  1810. /*:ref: isrchi_ 4 3 4 4 4 */
  1811. /*:ref: frmnam_ 14 3 4 13 124 */
  1812. /*:ref: rtrim_ 4 2 13 124 */
  1813. /*:ref: errch_ 14 4 13 13 124 124 */
  1814. /*:ref: xpose_ 14 2 7 7 */
  1815.  
  1816. extern int remlac_(integer *ne, integer *loc, char *array, integer *na, ftnlen array_len);
  1817. /*:ref: return_ 12 0 */
  1818. /*:ref: chkin_ 14 2 13 124 */
  1819. /*:ref: setmsg_ 14 2 13 124 */
  1820. /*:ref: errint_ 14 3 13 4 124 */
  1821. /*:ref: sigerr_ 14 2 13 124 */
  1822. /*:ref: chkout_ 14 2 13 124 */
  1823.  
  1824. extern int remlad_(integer *ne, integer *loc, doublereal *array, integer *na);
  1825. /*:ref: return_ 12 0 */
  1826. /*:ref: chkin_ 14 2 13 124 */
  1827. /*:ref: setmsg_ 14 2 13 124 */
  1828. /*:ref: errint_ 14 3 13 4 124 */
  1829. /*:ref: sigerr_ 14 2 13 124 */
  1830. /*:ref: chkout_ 14 2 13 124 */
  1831.  
  1832. extern int remlai_(integer *ne, integer *loc, integer *array, integer *na);
  1833. /*:ref: return_ 12 0 */
  1834. /*:ref: chkin_ 14 2 13 124 */
  1835. /*:ref: setmsg_ 14 2 13 124 */
  1836. /*:ref: errint_ 14 3 13 4 124 */
  1837. /*:ref: sigerr_ 14 2 13 124 */
  1838. /*:ref: chkout_ 14 2 13 124 */
  1839.  
  1840. extern int removc_(char *item, char *a, ftnlen item_len, ftnlen a_len);
  1841. /*:ref: return_ 12 0 */
  1842. /*:ref: chkin_ 14 2 13 124 */
  1843. /*:ref: cardc_ 4 2 13 124 */
  1844. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1845. /*:ref: scardc_ 14 3 4 13 124 */
  1846. /*:ref: chkout_ 14 2 13 124 */
  1847.  
  1848. extern int removd_(doublereal *item, doublereal *a);
  1849. /*:ref: return_ 12 0 */
  1850. /*:ref: chkin_ 14 2 13 124 */
  1851. /*:ref: cardd_ 4 1 7 */
  1852. /*:ref: bsrchd_ 4 3 7 4 7 */
  1853. /*:ref: scardd_ 14 2 4 7 */
  1854. /*:ref: chkout_ 14 2 13 124 */
  1855.  
  1856. extern int removi_(integer *item, integer *a);
  1857. /*:ref: return_ 12 0 */
  1858. /*:ref: chkin_ 14 2 13 124 */
  1859. /*:ref: cardi_ 4 1 4 */
  1860. /*:ref: bsrchi_ 4 3 4 4 4 */
  1861. /*:ref: scardi_ 14 2 4 4 */
  1862. /*:ref: chkout_ 14 2 13 124 */
  1863.  
  1864. extern int remsub_(char *in, integer *left, integer *right, char *out, ftnlen in_len, ftnlen out_len);
  1865. /*:ref: return_ 12 0 */
  1866. /*:ref: chkin_ 14 2 13 124 */
  1867. /*:ref: setmsg_ 14 2 13 124 */
  1868. /*:ref: errint_ 14 3 13 4 124 */
  1869. /*:ref: sigerr_ 14 2 13 124 */
  1870. /*:ref: chkout_ 14 2 13 124 */
  1871. /*:ref: lastnb_ 4 2 13 124 */
  1872.  
  1873. extern int reordc_(integer *iorder, integer *ndim, char *array, ftnlen array_len);
  1874.  
  1875. extern int reordd_(integer *iorder, integer *ndim, doublereal *array);
  1876.  
  1877. extern int reordi_(integer *iorder, integer *ndim, integer *array);
  1878.  
  1879. extern int reordl_(integer *iorder, integer *ndim, logical *array);
  1880.  
  1881. extern int replch_(char *instr, char *old, char *new__, char *outstr, ftnlen instr_len, ftnlen old_len, ftnlen new_len, ftnlen outstr_len);
  1882.  
  1883. extern int replwd_(char *instr, integer *nth, char *new__, char *outstr, ftnlen instr_len, ftnlen new_len, ftnlen outstr_len);
  1884. /*:ref: nthwd_ 14 6 13 4 13 4 124 124 */
  1885. /*:ref: fndnwd_ 14 5 13 4 4 4 124 */
  1886. /*:ref: frstnb_ 4 2 13 124 */
  1887. /*:ref: lastnb_ 4 2 13 124 */
  1888.  
  1889. extern int repmc_(char *in, char *marker, char *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen value_len, ftnlen out_len);
  1890. /*:ref: frstnb_ 4 2 13 124 */
  1891. /*:ref: lastnb_ 4 2 13 124 */
  1892. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  1893.  
  1894. extern int repmct_(char *in, char *marker, integer *value, char *case__, char *out, ftnlen in_len, ftnlen marker_len, ftnlen case_len, ftnlen out_len);
  1895. /*:ref: return_ 12 0 */
  1896. /*:ref: chkin_ 14 2 13 124 */
  1897. /*:ref: ljust_ 14 4 13 13 124 124 */
  1898. /*:ref: ucase_ 14 4 13 13 124 124 */
  1899. /*:ref: setmsg_ 14 2 13 124 */
  1900. /*:ref: errch_ 14 4 13 13 124 124 */
  1901. /*:ref: sigerr_ 14 2 13 124 */
  1902. /*:ref: chkout_ 14 2 13 124 */
  1903. /*:ref: frstnb_ 4 2 13 124 */
  1904. /*:ref: lastnb_ 4 2 13 124 */
  1905. /*:ref: inttxt_ 14 3 4 13 124 */
  1906. /*:ref: lcase_ 14 4 13 13 124 124 */
  1907. /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
  1908.  
  1909. extern int repmd_(char *in, char *marker, doublereal *value, integer *sigdig, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len);
  1910. /*:ref: frstnb_ 4 2 13 124 */
  1911. /*:ref: lastnb_ 4 2 13 124 */
  1912. /*:ref: dpstr_ 14 4 7 4 13 124 */
  1913. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  1914.  
  1915. extern int repmf_(char *in, char *marker, doublereal *value, integer *sigdig, char *format, char *out, ftnlen in_len, ftnlen marker_len, ftnlen format_len, ftnlen out_len);
  1916. /*:ref: frstnb_ 4 2 13 124 */
  1917. /*:ref: lastnb_ 4 2 13 124 */
  1918. /*:ref: ljust_ 14 4 13 13 124 124 */
  1919. /*:ref: ucase_ 14 4 13 13 124 124 */
  1920. /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
  1921. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  1922.  
  1923. extern int repmi_(char *in, char *marker, integer *value, char *out, ftnlen in_len, ftnlen marker_len, ftnlen out_len);
  1924. /*:ref: frstnb_ 4 2 13 124 */
  1925. /*:ref: lastnb_ 4 2 13 124 */
  1926. /*:ref: intstr_ 14 3 4 13 124 */
  1927. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  1928.  
  1929. extern int repmot_(char *in, char *marker, integer *value, char *case__, char *out, ftnlen in_len, ftnlen marker_len, ftnlen case_len, ftnlen out_len);
  1930. /*:ref: return_ 12 0 */
  1931. /*:ref: chkin_ 14 2 13 124 */
  1932. /*:ref: ljust_ 14 4 13 13 124 124 */
  1933. /*:ref: ucase_ 14 4 13 13 124 124 */
  1934. /*:ref: setmsg_ 14 2 13 124 */
  1935. /*:ref: errch_ 14 4 13 13 124 124 */
  1936. /*:ref: sigerr_ 14 2 13 124 */
  1937. /*:ref: chkout_ 14 2 13 124 */
  1938. /*:ref: frstnb_ 4 2 13 124 */
  1939. /*:ref: lastnb_ 4 2 13 124 */
  1940. /*:ref: intord_ 14 3 4 13 124 */
  1941. /*:ref: lcase_ 14 4 13 13 124 124 */
  1942. /*:ref: repsub_ 14 8 13 4 4 13 13 124 124 124 */
  1943.  
  1944. extern int repsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len);
  1945. /*:ref: return_ 12 0 */
  1946. /*:ref: chkin_ 14 2 13 124 */
  1947. /*:ref: setmsg_ 14 2 13 124 */
  1948. /*:ref: errint_ 14 3 13 4 124 */
  1949. /*:ref: sigerr_ 14 2 13 124 */
  1950. /*:ref: chkout_ 14 2 13 124 */
  1951. /*:ref: sumai_ 4 2 4 4 */
  1952.  
  1953. extern int reset_(void);
  1954. /*:ref: seterr_ 12 1 12 */
  1955. /*:ref: putsms_ 14 2 13 124 */
  1956. /*:ref: putlms_ 14 2 13 124 */
  1957. /*:ref: accept_ 12 1 12 */
  1958.  
  1959. extern logical return_(void);
  1960. /*:ref: getact_ 14 1 4 */
  1961. /*:ref: failed_ 12 0 */
  1962.  
  1963. extern int rjust_(char *input, char *output, ftnlen input_len, ftnlen output_len);
  1964. /*:ref: frstnb_ 4 2 13 124 */
  1965. /*:ref: lastnb_ 4 2 13 124 */
  1966.  
  1967. extern int rmaind_(doublereal *num, doublereal *denom, doublereal *q, doublereal *rem);
  1968. /*:ref: chkin_ 14 2 13 124 */
  1969. /*:ref: setmsg_ 14 2 13 124 */
  1970. /*:ref: sigerr_ 14 2 13 124 */
  1971. /*:ref: chkout_ 14 2 13 124 */
  1972.  
  1973. extern int rmaini_(integer *num, integer *denom, integer *q, integer *rem);
  1974. /*:ref: chkin_ 14 2 13 124 */
  1975. /*:ref: setmsg_ 14 2 13 124 */
  1976. /*:ref: sigerr_ 14 2 13 124 */
  1977. /*:ref: chkout_ 14 2 13 124 */
  1978.  
  1979. extern int rmdupc_(integer *nelt, char *array, ftnlen array_len);
  1980. /*:ref: shellc_ 14 3 4 13 124 */
  1981.  
  1982. extern int rmdupd_(integer *nelt, doublereal *array);
  1983. /*:ref: shelld_ 14 2 4 7 */
  1984.  
  1985. extern int rmdupi_(integer *nelt, integer *array);
  1986. /*:ref: shelli_ 14 2 4 4 */
  1987.  
  1988. extern int rotate_(doublereal *angle, integer *iaxis, doublereal *mout);
  1989.  
  1990. extern int rotget_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
  1991. /*:ref: return_ 12 0 */
  1992. /*:ref: chkin_ 14 2 13 124 */
  1993. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  1994. /*:ref: chkout_ 14 2 13 124 */
  1995. /*:ref: irfrot_ 14 3 4 4 7 */
  1996. /*:ref: tipbod_ 14 5 13 4 7 7 124 */
  1997. /*:ref: xpose_ 14 2 7 7 */
  1998. /*:ref: namfrm_ 14 3 13 4 124 */
  1999. /*:ref: failed_ 12 0 */
  2000. /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
  2001. /*:ref: tkfram_ 14 4 4 7 4 12 */
  2002. /*:ref: zzdynrot_ 14 5 4 4 7 7 4 */
  2003. /*:ref: setmsg_ 14 2 13 124 */
  2004. /*:ref: errint_ 14 3 13 4 124 */
  2005. /*:ref: errch_ 14 4 13 13 124 124 */
  2006. /*:ref: sigerr_ 14 2 13 124 */
  2007.  
  2008. extern int rotmat_(doublereal *m1, doublereal *angle, integer *iaxis, doublereal *mout);
  2009. /*:ref: moved_ 14 3 7 4 7 */
  2010.  
  2011. extern int rotvec_(doublereal *v1, doublereal *angle, integer *iaxis, doublereal *vout);
  2012.  
  2013. extern doublereal rpd_(void);
  2014.  
  2015. extern int rquad_(doublereal *a, doublereal *b, doublereal *c__, doublereal *root1, doublereal *root2);
  2016. /*:ref: return_ 12 0 */
  2017. /*:ref: chkin_ 14 2 13 124 */
  2018. /*:ref: setmsg_ 14 2 13 124 */
  2019. /*:ref: sigerr_ 14 2 13 124 */
  2020. /*:ref: chkout_ 14 2 13 124 */
  2021. /*:ref: moved_ 14 3 7 4 7 */
  2022.  
  2023. extern integer rtrim_(char *string, ftnlen string_len);
  2024. /*:ref: lastnb_ 4 2 13 124 */
  2025.  
  2026. extern int saelgv_(doublereal *vec1, doublereal *vec2, doublereal *smajor, doublereal *sminor);
  2027. /*:ref: return_ 12 0 */
  2028. /*:ref: chkin_ 14 2 13 124 */
  2029. /*:ref: moved_ 14 3 7 4 7 */
  2030. /*:ref: vnorm_ 7 1 7 */
  2031. /*:ref: cleard_ 14 2 4 7 */
  2032. /*:ref: chkout_ 14 2 13 124 */
  2033. /*:ref: vdot_ 7 2 7 7 */
  2034. /*:ref: diags2_ 14 3 7 7 7 */
  2035. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2036. /*:ref: vsclip_ 14 2 7 7 */
  2037.  
  2038. extern logical samch_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len);
  2039.  
  2040. extern logical samchi_(char *str1, integer *l1, char *str2, integer *l2, ftnlen str1_len, ftnlen str2_len);
  2041. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2042.  
  2043. extern logical sameai_(integer *a1, integer *a2, integer *ndim);
  2044.  
  2045. extern logical samsbi_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len);
  2046. /*:ref: nechr_ 12 4 13 13 124 124 */
  2047.  
  2048. extern logical samsub_(char *str1, integer *b1, integer *e1, char *str2, integer *b2, integer *e2, ftnlen str1_len, ftnlen str2_len);
  2049.  
  2050. extern int sc01_(integer *sc, char *clkstr, doublereal *ticks, doublereal *sclkdp, doublereal *et, ftnlen clkstr_len);
  2051. extern int sctk01_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len);
  2052. extern int scfm01_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len);
  2053. extern int scte01_(integer *sc, doublereal *sclkdp, doublereal *et);
  2054. extern int scet01_(integer *sc, doublereal *et, doublereal *sclkdp);
  2055. extern int scec01_(integer *sc, doublereal *et, doublereal *sclkdp);
  2056. /*:ref: return_ 12 0 */
  2057. /*:ref: chkin_ 14 2 13 124 */
  2058. /*:ref: sigerr_ 14 2 13 124 */
  2059. /*:ref: chkout_ 14 2 13 124 */
  2060. /*:ref: movec_ 14 5 13 4 13 124 124 */
  2061. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2062. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2063. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  2064. /*:ref: cvpool_ 14 3 13 12 124 */
  2065. /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
  2066. /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
  2067. /*:ref: failed_ 12 0 */
  2068. /*:ref: setmsg_ 14 2 13 124 */
  2069. /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
  2070. /*:ref: errint_ 14 3 13 4 124 */
  2071. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2072. /*:ref: errch_ 14 4 13 13 124 124 */
  2073. /*:ref: sumai_ 4 2 4 4 */
  2074. /*:ref: errdp_ 14 3 13 7 124 */
  2075. /*:ref: dpstrf_ 14 6 7 4 13 13 124 124 */
  2076. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2077. /*:ref: unitim_ 7 5 7 13 13 124 124 */
  2078.  
  2079. extern int scanit_(char *string, integer *start, integer *room, integer *nmarks, char *marks, integer *mrklen, integer *pnters, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len);
  2080. extern int scanpr_(integer *nmarks, char *marks, integer *mrklen, integer *pnters, ftnlen marks_len);
  2081. extern int scan_(char *string, char *marks, integer *mrklen, integer *pnters, integer *room, integer *start, integer *ntokns, integer *ident, integer *beg, integer *end, ftnlen string_len, ftnlen marks_len);
  2082. /*:ref: return_ 12 0 */
  2083. /*:ref: chkin_ 14 2 13 124 */
  2084. /*:ref: setmsg_ 14 2 13 124 */
  2085. /*:ref: sigerr_ 14 2 13 124 */
  2086. /*:ref: chkout_ 14 2 13 124 */
  2087. /*:ref: ljust_ 14 4 13 13 124 124 */
  2088. /*:ref: rmdupc_ 14 3 4 13 124 */
  2089. /*:ref: rtrim_ 4 2 13 124 */
  2090. /*:ref: ncpos_ 4 5 13 13 4 124 124 */
  2091.  
  2092. extern int scanrj_(integer *ids, integer *n, integer *ntokns, integer *ident, integer *beg, integer *end);
  2093. /*:ref: isrchi_ 4 3 4 4 4 */
  2094.  
  2095. extern int scardc_(integer *card, char *cell, ftnlen cell_len);
  2096. /*:ref: return_ 12 0 */
  2097. /*:ref: chkin_ 14 2 13 124 */
  2098. /*:ref: dechar_ 14 3 13 4 124 */
  2099. /*:ref: setmsg_ 14 2 13 124 */
  2100. /*:ref: errint_ 14 3 13 4 124 */
  2101. /*:ref: sigerr_ 14 2 13 124 */
  2102. /*:ref: chkout_ 14 2 13 124 */
  2103. /*:ref: enchar_ 14 3 4 13 124 */
  2104.  
  2105. extern int scardd_(integer *card, doublereal *cell);
  2106. /*:ref: return_ 12 0 */
  2107. /*:ref: chkin_ 14 2 13 124 */
  2108. /*:ref: setmsg_ 14 2 13 124 */
  2109. /*:ref: errint_ 14 3 13 4 124 */
  2110. /*:ref: sigerr_ 14 2 13 124 */
  2111. /*:ref: chkout_ 14 2 13 124 */
  2112.  
  2113. extern int scardi_(integer *card, integer *cell);
  2114. /*:ref: return_ 12 0 */
  2115. /*:ref: chkin_ 14 2 13 124 */
  2116. /*:ref: setmsg_ 14 2 13 124 */
  2117. /*:ref: errint_ 14 3 13 4 124 */
  2118. /*:ref: sigerr_ 14 2 13 124 */
  2119. /*:ref: chkout_ 14 2 13 124 */
  2120.  
  2121. extern int scdecd_(integer *sc, doublereal *sclkdp, char *sclkch, ftnlen sclkch_len);
  2122. /*:ref: return_ 12 0 */
  2123. /*:ref: chkin_ 14 2 13 124 */
  2124. /*:ref: scpart_ 14 4 4 4 7 7 */
  2125. /*:ref: failed_ 12 0 */
  2126. /*:ref: chkout_ 14 2 13 124 */
  2127. /*:ref: setmsg_ 14 2 13 124 */
  2128. /*:ref: errint_ 14 3 13 4 124 */
  2129. /*:ref: sigerr_ 14 2 13 124 */
  2130. /*:ref: lstled_ 4 3 7 4 7 */
  2131. /*:ref: errdp_ 14 3 13 7 124 */
  2132. /*:ref: scfmt_ 14 4 4 7 13 124 */
  2133. /*:ref: intstr_ 14 3 4 13 124 */
  2134. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2135. /*:ref: lastnb_ 4 2 13 124 */
  2136. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2137.  
  2138. extern int sce2c_(integer *sc, doublereal *et, doublereal *sclkdp);
  2139. /*:ref: return_ 12 0 */
  2140. /*:ref: chkin_ 14 2 13 124 */
  2141. /*:ref: sctype_ 4 1 4 */
  2142. /*:ref: scec01_ 14 3 4 7 7 */
  2143. /*:ref: setmsg_ 14 2 13 124 */
  2144. /*:ref: errint_ 14 3 13 4 124 */
  2145. /*:ref: sigerr_ 14 2 13 124 */
  2146. /*:ref: chkout_ 14 2 13 124 */
  2147.  
  2148. extern int sce2s_(integer *sc, doublereal *et, char *sclkch, ftnlen sclkch_len);
  2149. /*:ref: return_ 12 0 */
  2150. /*:ref: chkin_ 14 2 13 124 */
  2151. /*:ref: sce2t_ 14 3 4 7 7 */
  2152. /*:ref: scdecd_ 14 4 4 7 13 124 */
  2153. /*:ref: chkout_ 14 2 13 124 */
  2154.  
  2155. extern int sce2t_(integer *sc, doublereal *et, doublereal *sclkdp);
  2156. /*:ref: return_ 12 0 */
  2157. /*:ref: chkin_ 14 2 13 124 */
  2158. /*:ref: sctype_ 4 1 4 */
  2159. /*:ref: scet01_ 14 3 4 7 7 */
  2160. /*:ref: setmsg_ 14 2 13 124 */
  2161. /*:ref: errint_ 14 3 13 4 124 */
  2162. /*:ref: sigerr_ 14 2 13 124 */
  2163. /*:ref: chkout_ 14 2 13 124 */
  2164.  
  2165. extern int scencd_(integer *sc, char *sclkch, doublereal *sclkdp, ftnlen sclkch_len);
  2166. /*:ref: return_ 12 0 */
  2167. /*:ref: chkin_ 14 2 13 124 */
  2168. /*:ref: cpos_ 4 5 13 13 4 124 124 */
  2169. /*:ref: sctiks_ 14 4 4 13 7 124 */
  2170. /*:ref: scpart_ 14 4 4 4 7 7 */
  2171. /*:ref: setmsg_ 14 2 13 124 */
  2172. /*:ref: errint_ 14 3 13 4 124 */
  2173. /*:ref: sigerr_ 14 2 13 124 */
  2174. /*:ref: chkout_ 14 2 13 124 */
  2175. /*:ref: errch_ 14 4 13 13 124 124 */
  2176. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  2177.  
  2178. extern int scfmt_(integer *sc, doublereal *ticks, char *clkstr, ftnlen clkstr_len);
  2179. /*:ref: return_ 12 0 */
  2180. /*:ref: chkin_ 14 2 13 124 */
  2181. /*:ref: sctype_ 4 1 4 */
  2182. /*:ref: scfm01_ 14 4 4 7 13 124 */
  2183. /*:ref: setmsg_ 14 2 13 124 */
  2184. /*:ref: errint_ 14 3 13 4 124 */
  2185. /*:ref: sigerr_ 14 2 13 124 */
  2186. /*:ref: chkout_ 14 2 13 124 */
  2187.  
  2188. extern int sclu01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, doublereal *dval, ftnlen name_len);
  2189. extern int scli01_(char *name__, integer *sc, integer *maxnv, integer *n, integer *ival, ftnlen name_len);
  2190. extern int scld01_(char *name__, integer *sc, integer *maxnv, integer *n, doublereal *dval, ftnlen name_len);
  2191. /*:ref: return_ 12 0 */
  2192. /*:ref: chkin_ 14 2 13 124 */
  2193. /*:ref: sigerr_ 14 2 13 124 */
  2194. /*:ref: chkout_ 14 2 13 124 */
  2195. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2196. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2197. /*:ref: rtpool_ 14 5 13 4 7 12 124 */
  2198. /*:ref: setmsg_ 14 2 13 124 */
  2199. /*:ref: errch_ 14 4 13 13 124 124 */
  2200. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2201. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2202. /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
  2203.  
  2204. extern int scpars_(integer *sc, char *sclkch, logical *error, char *msg, doublereal *sclkdp, ftnlen sclkch_len, ftnlen msg_len);
  2205. /*:ref: return_ 12 0 */
  2206. /*:ref: chkin_ 14 2 13 124 */
  2207. /*:ref: chkout_ 14 2 13 124 */
  2208. /*:ref: cpos_ 4 5 13 13 4 124 124 */
  2209. /*:ref: sctype_ 4 1 4 */
  2210. /*:ref: failed_ 12 0 */
  2211. /*:ref: scps01_ 14 7 4 13 12 13 7 124 124 */
  2212. /*:ref: setmsg_ 14 2 13 124 */
  2213. /*:ref: errint_ 14 3 13 4 124 */
  2214. /*:ref: sigerr_ 14 2 13 124 */
  2215. /*:ref: scpart_ 14 4 4 4 7 7 */
  2216. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2217. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  2218. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2219.  
  2220. extern int scpart_(integer *sc, integer *nparts, doublereal *pstart, doublereal *pstop);
  2221. /*:ref: return_ 12 0 */
  2222. /*:ref: chkin_ 14 2 13 124 */
  2223. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2224. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2225. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  2226. /*:ref: cvpool_ 14 3 13 12 124 */
  2227. /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
  2228. /*:ref: setmsg_ 14 2 13 124 */
  2229. /*:ref: errint_ 14 3 13 4 124 */
  2230. /*:ref: sigerr_ 14 2 13 124 */
  2231. /*:ref: chkout_ 14 2 13 124 */
  2232.  
  2233. extern int scps01_(integer *sc, char *clkstr, logical *error, char *msg, doublereal *ticks, ftnlen clkstr_len, ftnlen msg_len);
  2234. /*:ref: return_ 12 0 */
  2235. /*:ref: chkin_ 14 2 13 124 */
  2236. /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
  2237. /*:ref: scld01_ 14 6 13 4 4 4 7 124 */
  2238. /*:ref: failed_ 12 0 */
  2239. /*:ref: chkout_ 14 2 13 124 */
  2240. /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
  2241. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2242. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2243. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2244.  
  2245. extern int scs2e_(integer *sc, char *sclkch, doublereal *et, ftnlen sclkch_len);
  2246. /*:ref: return_ 12 0 */
  2247. /*:ref: chkin_ 14 2 13 124 */
  2248. /*:ref: scencd_ 14 4 4 13 7 124 */
  2249. /*:ref: sct2e_ 14 3 4 7 7 */
  2250. /*:ref: chkout_ 14 2 13 124 */
  2251.  
  2252. extern int sct2e_(integer *sc, doublereal *sclkdp, doublereal *et);
  2253. /*:ref: return_ 12 0 */
  2254. /*:ref: chkin_ 14 2 13 124 */
  2255. /*:ref: sctype_ 4 1 4 */
  2256. /*:ref: scte01_ 14 3 4 7 7 */
  2257. /*:ref: setmsg_ 14 2 13 124 */
  2258. /*:ref: errint_ 14 3 13 4 124 */
  2259. /*:ref: sigerr_ 14 2 13 124 */
  2260. /*:ref: chkout_ 14 2 13 124 */
  2261.  
  2262. extern int sctiks_(integer *sc, char *clkstr, doublereal *ticks, ftnlen clkstr_len);
  2263. /*:ref: return_ 12 0 */
  2264. /*:ref: chkin_ 14 2 13 124 */
  2265. /*:ref: sctype_ 4 1 4 */
  2266. /*:ref: sctk01_ 14 4 4 13 7 124 */
  2267. /*:ref: setmsg_ 14 2 13 124 */
  2268. /*:ref: errint_ 14 3 13 4 124 */
  2269. /*:ref: sigerr_ 14 2 13 124 */
  2270. /*:ref: chkout_ 14 2 13 124 */
  2271.  
  2272. extern int sctran_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len);
  2273. extern int scn2id_(char *clknam, integer *clkid, logical *found, ftnlen clknam_len);
  2274. extern int scid2n_(integer *clkid, char *clknam, logical *found, ftnlen clknam_len);
  2275. /*:ref: return_ 12 0 */
  2276. /*:ref: chkin_ 14 2 13 124 */
  2277. /*:ref: sigerr_ 14 2 13 124 */
  2278. /*:ref: chkout_ 14 2 13 124 */
  2279. /*:ref: ucase_ 14 4 13 13 124 124 */
  2280. /*:ref: posr_ 4 5 13 13 4 124 124 */
  2281. /*:ref: rtrim_ 4 2 13 124 */
  2282. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  2283. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2284. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2285.  
  2286. extern integer sctype_(integer *sc);
  2287. /*:ref: return_ 12 0 */
  2288. /*:ref: chkin_ 14 2 13 124 */
  2289. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2290. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2291. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  2292. /*:ref: cvpool_ 14 3 13 12 124 */
  2293. /*:ref: scli01_ 14 6 13 4 4 4 4 124 */
  2294. /*:ref: chkout_ 14 2 13 124 */
  2295.  
  2296. extern int sdiffc_(char *a, char *b, char *c__, ftnlen a_len, ftnlen b_len, ftnlen c_len);
  2297. /*:ref: return_ 12 0 */
  2298. /*:ref: chkin_ 14 2 13 124 */
  2299. /*:ref: setmsg_ 14 2 13 124 */
  2300. /*:ref: errint_ 14 3 13 4 124 */
  2301. /*:ref: sigerr_ 14 2 13 124 */
  2302. /*:ref: chkout_ 14 2 13 124 */
  2303. /*:ref: cardc_ 4 2 13 124 */
  2304. /*:ref: sizec_ 4 2 13 124 */
  2305. /*:ref: scardc_ 14 3 4 13 124 */
  2306. /*:ref: excess_ 14 3 4 13 124 */
  2307.  
  2308. extern int sdiffd_(doublereal *a, doublereal *b, doublereal *c__);
  2309. /*:ref: return_ 12 0 */
  2310. /*:ref: chkin_ 14 2 13 124 */
  2311. /*:ref: cardd_ 4 1 7 */
  2312. /*:ref: sized_ 4 1 7 */
  2313. /*:ref: scardd_ 14 2 4 7 */
  2314. /*:ref: excess_ 14 3 4 13 124 */
  2315. /*:ref: sigerr_ 14 2 13 124 */
  2316. /*:ref: chkout_ 14 2 13 124 */
  2317.  
  2318. extern int sdiffi_(integer *a, integer *b, integer *c__);
  2319. /*:ref: return_ 12 0 */
  2320. /*:ref: chkin_ 14 2 13 124 */
  2321. /*:ref: cardi_ 4 1 4 */
  2322. /*:ref: sizei_ 4 1 4 */
  2323. /*:ref: scardi_ 14 2 4 4 */
  2324. /*:ref: excess_ 14 3 4 13 124 */
  2325. /*:ref: sigerr_ 14 2 13 124 */
  2326. /*:ref: chkout_ 14 2 13 124 */
  2327.  
  2328. extern logical setc_(char *a, char *op, char *b, ftnlen a_len, ftnlen op_len, ftnlen b_len);
  2329. /*:ref: return_ 12 0 */
  2330. /*:ref: chkin_ 14 2 13 124 */
  2331. /*:ref: cardc_ 4 2 13 124 */
  2332. /*:ref: chkout_ 14 2 13 124 */
  2333. /*:ref: setmsg_ 14 2 13 124 */
  2334. /*:ref: errch_ 14 4 13 13 124 124 */
  2335. /*:ref: sigerr_ 14 2 13 124 */
  2336.  
  2337. extern logical setd_(doublereal *a, char *op, doublereal *b, ftnlen op_len);
  2338. /*:ref: return_ 12 0 */
  2339. /*:ref: chkin_ 14 2 13 124 */
  2340. /*:ref: cardd_ 4 1 7 */
  2341. /*:ref: chkout_ 14 2 13 124 */
  2342. /*:ref: setmsg_ 14 2 13 124 */
  2343. /*:ref: errch_ 14 4 13 13 124 124 */
  2344. /*:ref: sigerr_ 14 2 13 124 */
  2345.  
  2346. extern logical seterr_(logical *status);
  2347. extern logical failed_(void);
  2348.  
  2349. extern logical seti_(integer *a, char *op, integer *b, ftnlen op_len);
  2350. /*:ref: return_ 12 0 */
  2351. /*:ref: chkin_ 14 2 13 124 */
  2352. /*:ref: cardi_ 4 1 4 */
  2353. /*:ref: chkout_ 14 2 13 124 */
  2354. /*:ref: setmsg_ 14 2 13 124 */
  2355. /*:ref: errch_ 14 4 13 13 124 124 */
  2356. /*:ref: sigerr_ 14 2 13 124 */
  2357.  
  2358. extern int setmsg_(char *msg, ftnlen msg_len);
  2359. /*:ref: allowd_ 12 0 */
  2360. /*:ref: putlms_ 14 2 13 124 */
  2361.  
  2362. extern int sgfcon_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values);
  2363. /*:ref: return_ 12 0 */
  2364. /*:ref: chkin_ 14 2 13 124 */
  2365. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  2366. /*:ref: failed_ 12 0 */
  2367. /*:ref: chkout_ 14 2 13 124 */
  2368. /*:ref: setmsg_ 14 2 13 124 */
  2369. /*:ref: errint_ 14 3 13 4 124 */
  2370. /*:ref: sigerr_ 14 2 13 124 */
  2371. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2372.  
  2373. extern int sgfpkt_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values, integer *ends);
  2374. /*:ref: return_ 12 0 */
  2375. /*:ref: chkin_ 14 2 13 124 */
  2376. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  2377. /*:ref: failed_ 12 0 */
  2378. /*:ref: chkout_ 14 2 13 124 */
  2379. /*:ref: setmsg_ 14 2 13 124 */
  2380. /*:ref: errint_ 14 3 13 4 124 */
  2381. /*:ref: sigerr_ 14 2 13 124 */
  2382. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2383.  
  2384. extern int sgfref_(integer *handle, doublereal *descr, integer *first, integer *last, doublereal *values);
  2385. /*:ref: return_ 12 0 */
  2386. /*:ref: chkin_ 14 2 13 124 */
  2387. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  2388. /*:ref: failed_ 12 0 */
  2389. /*:ref: chkout_ 14 2 13 124 */
  2390. /*:ref: setmsg_ 14 2 13 124 */
  2391. /*:ref: errint_ 14 3 13 4 124 */
  2392. /*:ref: sigerr_ 14 2 13 124 */
  2393. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2394.  
  2395. extern int sgfrvi_(integer *handle, doublereal *descr, doublereal *x, doublereal *value, integer *indx, logical *found);
  2396. /*:ref: return_ 12 0 */
  2397. /*:ref: chkin_ 14 2 13 124 */
  2398. /*:ref: intmax_ 4 0 */
  2399. /*:ref: sgmeta_ 14 4 4 7 4 4 */
  2400. /*:ref: failed_ 12 0 */
  2401. /*:ref: chkout_ 14 2 13 124 */
  2402. /*:ref: setmsg_ 14 2 13 124 */
  2403. /*:ref: errint_ 14 3 13 4 124 */
  2404. /*:ref: sigerr_ 14 2 13 124 */
  2405. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2406. /*:ref: lstled_ 4 3 7 4 7 */
  2407. /*:ref: errdp_ 14 3 13 7 124 */
  2408.  
  2409. extern int sgmeta_(integer *handle, doublereal *descr, integer *mnemon, integer *value);
  2410. /*:ref: return_ 12 0 */
  2411. /*:ref: moved_ 14 3 7 4 7 */
  2412. /*:ref: chkin_ 14 2 13 124 */
  2413. /*:ref: setmsg_ 14 2 13 124 */
  2414. /*:ref: errint_ 14 3 13 4 124 */
  2415. /*:ref: sigerr_ 14 2 13 124 */
  2416. /*:ref: chkout_ 14 2 13 124 */
  2417. /*:ref: dafhsf_ 14 3 4 4 4 */
  2418. /*:ref: failed_ 12 0 */
  2419. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2420.  
  2421. extern int sgseqw_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat, integer *idxtyp, ftnlen segid_len);
  2422. extern int sgbwfs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *pktsiz, integer *idxtyp, ftnlen segid_len);
  2423. extern int sgbwvs_(integer *handle, doublereal *descr, char *segid, integer *nconst, doublereal *const__, integer *idxtyp, ftnlen segid_len);
  2424. extern int sgwfpk_(integer *handle, integer *npkts, doublereal *pktdat, integer *nrefs, doublereal *refdat);
  2425. extern int sgwvpk_(integer *handle, integer *npkts, integer *pktsiz, doublereal *pktdat, integer *nrefs, doublereal *refdat);
  2426. extern int sgwes_(integer *handle);
  2427. /*:ref: return_ 12 0 */
  2428. /*:ref: chkin_ 14 2 13 124 */
  2429. /*:ref: setmsg_ 14 2 13 124 */
  2430. /*:ref: sigerr_ 14 2 13 124 */
  2431. /*:ref: chkout_ 14 2 13 124 */
  2432. /*:ref: dafsih_ 14 3 4 13 124 */
  2433. /*:ref: failed_ 12 0 */
  2434. /*:ref: isrchi_ 4 3 4 4 4 */
  2435. /*:ref: errhan_ 14 3 13 4 124 */
  2436. /*:ref: dafhsf_ 14 3 4 4 4 */
  2437. /*:ref: lastnb_ 4 2 13 124 */
  2438. /*:ref: errint_ 14 3 13 4 124 */
  2439. /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
  2440. /*:ref: dafbna_ 14 4 4 7 13 124 */
  2441. /*:ref: dafada_ 14 2 7 4 */
  2442. /*:ref: dafcad_ 14 1 4 */
  2443. /*:ref: errdp_ 14 3 13 7 124 */
  2444. /*:ref: dafgda_ 14 4 4 4 4 7 */
  2445. /*:ref: dafena_ 14 0 */
  2446.  
  2447. extern int sharpr_(doublereal *rot);
  2448. /*:ref: vhatip_ 14 1 7 */
  2449. /*:ref: ucrss_ 14 3 7 7 7 */
  2450.  
  2451. extern int shellc_(integer *ndim, char *array, ftnlen array_len);
  2452. /*:ref: swapc_ 14 4 13 13 124 124 */
  2453.  
  2454. extern int shelld_(integer *ndim, doublereal *array);
  2455. /*:ref: swapd_ 14 2 7 7 */
  2456.  
  2457. extern int shelli_(integer *ndim, integer *array);
  2458. /*:ref: swapi_ 14 2 4 4 */
  2459.  
  2460. extern int shiftc_(char *in, char *dir, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen dir_len, ftnlen fillc_len, ftnlen out_len);
  2461. /*:ref: return_ 12 0 */
  2462. /*:ref: chkin_ 14 2 13 124 */
  2463. /*:ref: shiftl_ 14 7 13 4 13 13 124 124 124 */
  2464. /*:ref: shiftr_ 14 7 13 4 13 13 124 124 124 */
  2465. /*:ref: setmsg_ 14 2 13 124 */
  2466. /*:ref: errch_ 14 4 13 13 124 124 */
  2467. /*:ref: sigerr_ 14 2 13 124 */
  2468. /*:ref: chkout_ 14 2 13 124 */
  2469.  
  2470. extern int shiftl_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len);
  2471.  
  2472. extern int shiftr_(char *in, integer *nshift, char *fillc, char *out, ftnlen in_len, ftnlen fillc_len, ftnlen out_len);
  2473.  
  2474. extern int sigdgt_(char *in, char *out, ftnlen in_len, ftnlen out_len);
  2475. /*:ref: frstnb_ 4 2 13 124 */
  2476. /*:ref: lastnb_ 4 2 13 124 */
  2477. /*:ref: cpos_ 4 5 13 13 4 124 124 */
  2478.  
  2479. extern int sigerr_(char *msg, ftnlen msg_len);
  2480. /*:ref: getact_ 14 1 4 */
  2481. /*:ref: failed_ 12 0 */
  2482. /*:ref: seterr_ 12 1 12 */
  2483. /*:ref: putsms_ 14 2 13 124 */
  2484. /*:ref: freeze_ 14 0 */
  2485. /*:ref: outmsg_ 14 2 13 124 */
  2486. /*:ref: accept_ 12 1 12 */
  2487. /*:ref: byebye_ 14 2 13 124 */
  2488.  
  2489. extern integer sizec_(char *cell, ftnlen cell_len);
  2490. /*:ref: return_ 12 0 */
  2491. /*:ref: chkin_ 14 2 13 124 */
  2492. /*:ref: dechar_ 14 3 13 4 124 */
  2493. /*:ref: setmsg_ 14 2 13 124 */
  2494. /*:ref: errint_ 14 3 13 4 124 */
  2495. /*:ref: sigerr_ 14 2 13 124 */
  2496. /*:ref: chkout_ 14 2 13 124 */
  2497.  
  2498. extern integer sized_(doublereal *cell);
  2499. /*:ref: return_ 12 0 */
  2500. /*:ref: chkin_ 14 2 13 124 */
  2501. /*:ref: setmsg_ 14 2 13 124 */
  2502. /*:ref: errint_ 14 3 13 4 124 */
  2503. /*:ref: sigerr_ 14 2 13 124 */
  2504. /*:ref: chkout_ 14 2 13 124 */
  2505.  
  2506. extern integer sizei_(integer *cell);
  2507. /*:ref: return_ 12 0 */
  2508. /*:ref: chkin_ 14 2 13 124 */
  2509. /*:ref: setmsg_ 14 2 13 124 */
  2510. /*:ref: errint_ 14 3 13 4 124 */
  2511. /*:ref: sigerr_ 14 2 13 124 */
  2512. /*:ref: chkout_ 14 2 13 124 */
  2513.  
  2514. extern logical smsgnd_(doublereal *x, doublereal *y);
  2515.  
  2516. extern logical smsgni_(integer *x, integer *y);
  2517.  
  2518. extern logical somfls_(logical *logcls, integer *n);
  2519.  
  2520. extern logical somtru_(logical *logcls, integer *n);
  2521.  
  2522. extern int spca2b_(char *text, char *binary, ftnlen text_len, ftnlen binary_len);
  2523. /*:ref: return_ 12 0 */
  2524. /*:ref: chkin_ 14 2 13 124 */
  2525. /*:ref: txtopr_ 14 3 13 4 124 */
  2526. /*:ref: spct2b_ 14 3 4 13 124 */
  2527. /*:ref: chkout_ 14 2 13 124 */
  2528.  
  2529. extern int spcac_(integer *handle, integer *unit, char *bmark, char *emark, ftnlen bmark_len, ftnlen emark_len);
  2530. /*:ref: return_ 12 0 */
  2531. /*:ref: chkin_ 14 2 13 124 */
  2532. /*:ref: dafsih_ 14 3 4 13 124 */
  2533. /*:ref: failed_ 12 0 */
  2534. /*:ref: chkout_ 14 2 13 124 */
  2535. /*:ref: locln_ 14 10 4 13 13 13 4 4 12 124 124 124 */
  2536. /*:ref: countc_ 4 5 4 4 4 13 124 */
  2537. /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
  2538. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2539. /*:ref: setmsg_ 14 2 13 124 */
  2540. /*:ref: errint_ 14 3 13 4 124 */
  2541. /*:ref: errfnm_ 14 3 13 4 124 */
  2542. /*:ref: sigerr_ 14 2 13 124 */
  2543. /*:ref: dafarr_ 14 2 4 4 */
  2544. /*:ref: lastnb_ 4 2 13 124 */
  2545.  
  2546. extern int spcb2a_(char *binary, char *text, ftnlen binary_len, ftnlen text_len);
  2547. /*:ref: return_ 12 0 */
  2548. /*:ref: chkin_ 14 2 13 124 */
  2549. /*:ref: txtopn_ 14 3 13 4 124 */
  2550. /*:ref: spcb2t_ 14 3 13 4 124 */
  2551. /*:ref: chkout_ 14 2 13 124 */
  2552.  
  2553. extern int spcb2t_(char *binary, integer *unit, ftnlen binary_len);
  2554. /*:ref: return_ 12 0 */
  2555. /*:ref: chkin_ 14 2 13 124 */
  2556. /*:ref: dafb2t_ 14 3 13 4 124 */
  2557. /*:ref: setmsg_ 14 2 13 124 */
  2558. /*:ref: errfnm_ 14 3 13 4 124 */
  2559. /*:ref: errint_ 14 3 13 4 124 */
  2560. /*:ref: sigerr_ 14 2 13 124 */
  2561. /*:ref: chkout_ 14 2 13 124 */
  2562. /*:ref: dafopr_ 14 3 13 4 124 */
  2563. /*:ref: spcec_ 14 2 4 4 */
  2564. /*:ref: dafcls_ 14 1 4 */
  2565.  
  2566. extern int spcdc_(integer *handle);
  2567. /*:ref: return_ 12 0 */
  2568. /*:ref: chkin_ 14 2 13 124 */
  2569. /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
  2570. /*:ref: dafrrr_ 14 2 4 4 */
  2571. /*:ref: chkout_ 14 2 13 124 */
  2572.  
  2573. extern int spcec_(integer *handle, integer *unit);
  2574. /*:ref: return_ 12 0 */
  2575. /*:ref: chkin_ 14 2 13 124 */
  2576. /*:ref: dafsih_ 14 3 4 13 124 */
  2577. /*:ref: failed_ 12 0 */
  2578. /*:ref: chkout_ 14 2 13 124 */
  2579. /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
  2580. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2581. /*:ref: setmsg_ 14 2 13 124 */
  2582. /*:ref: errint_ 14 3 13 4 124 */
  2583. /*:ref: errfnm_ 14 3 13 4 124 */
  2584. /*:ref: sigerr_ 14 2 13 124 */
  2585.  
  2586. extern int spcopn_(char *spc, char *ifname, integer *handle, ftnlen spc_len, ftnlen ifname_len);
  2587. /*:ref: return_ 12 0 */
  2588. /*:ref: chkin_ 14 2 13 124 */
  2589. /*:ref: dafopn_ 14 8 13 4 4 13 4 4 124 124 */
  2590. /*:ref: chkout_ 14 2 13 124 */
  2591.  
  2592. extern int spcrfl_(integer *handle, char *line, logical *eoc, ftnlen line_len);
  2593. extern int spcrnl_(char *line, logical *eoc, ftnlen line_len);
  2594. /*:ref: return_ 12 0 */
  2595. /*:ref: chkin_ 14 2 13 124 */
  2596. /*:ref: dafrfr_ 14 8 4 4 4 13 4 4 4 124 */
  2597. /*:ref: chkout_ 14 2 13 124 */
  2598. /*:ref: zzddhhlu_ 14 5 4 13 12 4 124 */
  2599. /*:ref: failed_ 12 0 */
  2600. /*:ref: setmsg_ 14 2 13 124 */
  2601. /*:ref: errint_ 14 3 13 4 124 */
  2602. /*:ref: errfnm_ 14 3 13 4 124 */
  2603. /*:ref: sigerr_ 14 2 13 124 */
  2604. /*:ref: pos_ 4 5 13 13 4 124 124 */
  2605.  
  2606. extern int spct2b_(integer *unit, char *binary, ftnlen binary_len);
  2607. /*:ref: return_ 12 0 */
  2608. /*:ref: chkin_ 14 2 13 124 */
  2609. /*:ref: daft2b_ 14 4 4 13 4 124 */
  2610. /*:ref: setmsg_ 14 2 13 124 */
  2611. /*:ref: errint_ 14 3 13 4 124 */
  2612. /*:ref: errfnm_ 14 3 13 4 124 */
  2613. /*:ref: sigerr_ 14 2 13 124 */
  2614. /*:ref: chkout_ 14 2 13 124 */
  2615. /*:ref: ltrim_ 4 2 13 124 */
  2616. /*:ref: getlun_ 14 1 4 */
  2617. /*:ref: rtrim_ 4 2 13 124 */
  2618. /*:ref: dafopw_ 14 3 13 4 124 */
  2619. /*:ref: spcac_ 14 6 4 4 13 13 124 124 */
  2620. /*:ref: dafcls_ 14 1 4 */
  2621.  
  2622. extern doublereal spd_(void);
  2623.  
  2624. extern int sphcyl_(doublereal *radius, doublereal *colat, doublereal *slong, doublereal *r__, doublereal *long__, doublereal *z__);
  2625.  
  2626. extern int sphlat_(doublereal *r__, doublereal *colat, doublereal *longs, doublereal *radius, doublereal *long__, doublereal *lat);
  2627. /*:ref: halfpi_ 7 0 */
  2628.  
  2629. extern int sphrec_(doublereal *r__, doublereal *colat, doublereal *long__, doublereal *rectan);
  2630.  
  2631. extern doublereal sphsd_(doublereal *radius, doublereal *long1, doublereal *lat1, doublereal *long2, doublereal *lat2);
  2632. /*:ref: return_ 12 0 */
  2633. /*:ref: chkin_ 14 2 13 124 */
  2634. /*:ref: setmsg_ 14 2 13 124 */
  2635. /*:ref: errdp_ 14 3 13 7 124 */
  2636. /*:ref: sigerr_ 14 2 13 124 */
  2637. /*:ref: chkout_ 14 2 13 124 */
  2638. /*:ref: brcktd_ 7 3 7 7 7 */
  2639.  
  2640. extern int spk14a_(integer *handle, integer *ncsets, doublereal *coeffs, doublereal *epochs);
  2641. /*:ref: return_ 12 0 */
  2642. /*:ref: chkin_ 14 2 13 124 */
  2643. /*:ref: setmsg_ 14 2 13 124 */
  2644. /*:ref: errhan_ 14 3 13 4 124 */
  2645. /*:ref: errint_ 14 3 13 4 124 */
  2646. /*:ref: sigerr_ 14 2 13 124 */
  2647. /*:ref: chkout_ 14 2 13 124 */
  2648. /*:ref: sgwfpk_ 14 5 4 4 7 4 7 */
  2649.  
  2650. extern int spk14b_(integer *handle, char *segid, integer *body, integer *center, char *frame, doublereal *first, doublereal *last, integer *chbdeg, ftnlen segid_len, ftnlen frame_len);
  2651. /*:ref: return_ 12 0 */
  2652. /*:ref: chkin_ 14 2 13 124 */
  2653. /*:ref: setmsg_ 14 2 13 124 */
  2654. /*:ref: errint_ 14 3 13 4 124 */
  2655. /*:ref: sigerr_ 14 2 13 124 */
  2656. /*:ref: chkout_ 14 2 13 124 */
  2657. /*:ref: spkpds_ 14 8 4 4 13 4 7 7 7 124 */
  2658. /*:ref: failed_ 12 0 */
  2659. /*:ref: sgbwfs_ 14 8 4 7 13 4 7 4 4 124 */
  2660.  
  2661. extern int spk14e_(integer *handle);
  2662. /*:ref: return_ 12 0 */
  2663. /*:ref: chkin_ 14 2 13 124 */
  2664. /*:ref: sgwes_ 14 1 4 */
  2665. /*:ref: chkout_ 14 2 13 124 */
  2666.  
  2667. extern int spkapo_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2668. /*:ref: return_ 12 0 */
  2669. /*:ref: chkin_ 14 2 13 124 */
  2670. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2671. /*:ref: ucase_ 14 4 13 13 124 124 */
  2672. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2673. /*:ref: setmsg_ 14 2 13 124 */
  2674. /*:ref: errch_ 14 4 13 13 124 124 */
  2675. /*:ref: sigerr_ 14 2 13 124 */
  2676. /*:ref: chkout_ 14 2 13 124 */
  2677. /*:ref: odd_ 12 1 4 */
  2678. /*:ref: irfnum_ 14 3 13 4 124 */
  2679. /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
  2680. /*:ref: vsub_ 14 3 7 7 7 */
  2681. /*:ref: vequ_ 14 2 7 7 */
  2682. /*:ref: vnorm_ 7 1 7 */
  2683. /*:ref: clight_ 7 0 */
  2684. /*:ref: stlabx_ 14 3 7 7 7 */
  2685. /*:ref: stelab_ 14 3 7 7 7 */
  2686.  
  2687. extern int spkapp_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2688. /*:ref: return_ 12 0 */
  2689. /*:ref: chkin_ 14 2 13 124 */
  2690. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2691. /*:ref: ucase_ 14 4 13 13 124 124 */
  2692. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2693. /*:ref: setmsg_ 14 2 13 124 */
  2694. /*:ref: errch_ 14 4 13 13 124 124 */
  2695. /*:ref: sigerr_ 14 2 13 124 */
  2696. /*:ref: chkout_ 14 2 13 124 */
  2697. /*:ref: odd_ 12 1 4 */
  2698. /*:ref: irfnum_ 14 3 13 4 124 */
  2699. /*:ref: spkssb_ 14 5 4 7 13 7 124 */
  2700. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2701. /*:ref: moved_ 14 3 7 4 7 */
  2702. /*:ref: vnorm_ 7 1 7 */
  2703. /*:ref: clight_ 7 0 */
  2704. /*:ref: stlabx_ 14 3 7 7 7 */
  2705. /*:ref: vequ_ 14 2 7 7 */
  2706. /*:ref: stelab_ 14 3 7 7 7 */
  2707.  
  2708. extern int spkbsr_(char *fname, integer *handle, integer *body, doublereal *et, doublereal *descr, char *ident, logical *found, ftnlen fname_len, ftnlen ident_len);
  2709. extern int spklef_(char *fname, integer *handle, ftnlen fname_len);
  2710. extern int spkuef_(integer *handle);
  2711. extern int spksfs_(integer *body, doublereal *et, integer *handle, doublereal *descr, char *ident, logical *found, ftnlen ident_len);
  2712. /*:ref: return_ 12 0 */
  2713. /*:ref: chkin_ 14 2 13 124 */
  2714. /*:ref: sigerr_ 14 2 13 124 */
  2715. /*:ref: chkout_ 14 2 13 124 */
  2716. /*:ref: lnkini_ 14 2 4 4 */
  2717. /*:ref: dafopr_ 14 3 13 4 124 */
  2718. /*:ref: failed_ 12 0 */
  2719. /*:ref: isrchi_ 4 3 4 4 4 */
  2720. /*:ref: dafcls_ 14 1 4 */
  2721. /*:ref: lnknxt_ 4 2 4 4 */
  2722. /*:ref: lnkfsl_ 14 3 4 4 4 */
  2723. /*:ref: setmsg_ 14 2 13 124 */
  2724. /*:ref: errint_ 14 3 13 4 124 */
  2725. /*:ref: intmax_ 4 0 */
  2726. /*:ref: moved_ 14 3 7 4 7 */
  2727. /*:ref: lnkprv_ 4 2 4 4 */
  2728. /*:ref: dpmin_ 7 0 */
  2729. /*:ref: dpmax_ 7 0 */
  2730. /*:ref: cleard_ 14 2 4 7 */
  2731. /*:ref: dafbfs_ 14 1 4 */
  2732. /*:ref: daffna_ 14 1 12 */
  2733. /*:ref: dafgs_ 14 1 7 */
  2734. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  2735. /*:ref: dafbbs_ 14 1 4 */
  2736. /*:ref: daffpa_ 14 1 12 */
  2737. /*:ref: lnknfn_ 4 1 4 */
  2738. /*:ref: lnkan_ 14 2 4 4 */
  2739. /*:ref: dafgn_ 14 2 13 124 */
  2740. /*:ref: lnkilb_ 14 3 4 4 4 */
  2741. /*:ref: lnkila_ 14 3 4 4 4 */
  2742. /*:ref: lnktl_ 4 2 4 4 */
  2743.  
  2744. extern int spkcls_(integer *handle);
  2745. /*:ref: return_ 12 0 */
  2746. /*:ref: chkin_ 14 2 13 124 */
  2747. /*:ref: dafbfs_ 14 1 4 */
  2748. /*:ref: daffna_ 14 1 12 */
  2749. /*:ref: failed_ 12 0 */
  2750. /*:ref: chkout_ 14 2 13 124 */
  2751. /*:ref: setmsg_ 14 2 13 124 */
  2752. /*:ref: errhan_ 14 3 13 4 124 */
  2753. /*:ref: sigerr_ 14 2 13 124 */
  2754. /*:ref: dafcls_ 14 1 4 */
  2755.  
  2756. extern int spkcov_(char *spk, integer *idcode, doublereal *cover, ftnlen spk_len);
  2757. /*:ref: return_ 12 0 */
  2758. /*:ref: chkin_ 14 2 13 124 */
  2759. /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
  2760. /*:ref: setmsg_ 14 2 13 124 */
  2761. /*:ref: errch_ 14 4 13 13 124 124 */
  2762. /*:ref: sigerr_ 14 2 13 124 */
  2763. /*:ref: chkout_ 14 2 13 124 */
  2764. /*:ref: dafopr_ 14 3 13 4 124 */
  2765. /*:ref: failed_ 12 0 */
  2766. /*:ref: dafbfs_ 14 1 4 */
  2767. /*:ref: daffna_ 14 1 12 */
  2768. /*:ref: dafgs_ 14 1 7 */
  2769. /*:ref: dafus_ 14 5 7 4 4 7 4 */
  2770. /*:ref: wninsd_ 14 3 7 7 7 */
  2771. /*:ref: dafcls_ 14 1 4 */
  2772.  
  2773. extern int spke01_(doublereal *et, doublereal *record, doublereal *state);
  2774. /*:ref: return_ 12 0 */
  2775. /*:ref: moved_ 14 3 7 4 7 */
  2776.  
  2777. extern int spke02_(doublereal *et, doublereal *record, doublereal *xyzdot);
  2778. /*:ref: return_ 12 0 */
  2779. /*:ref: chkin_ 14 2 13 124 */
  2780. /*:ref: chbint_ 14 6 7 4 7 7 7 7 */
  2781. /*:ref: chkout_ 14 2 13 124 */
  2782.  
  2783. extern int spke03_(doublereal *et, doublereal *record, doublereal *state);
  2784. /*:ref: return_ 12 0 */
  2785. /*:ref: chkin_ 14 2 13 124 */
  2786. /*:ref: chbval_ 14 5 7 4 7 7 7 */
  2787. /*:ref: chkout_ 14 2 13 124 */
  2788.  
  2789. extern int spke05_(doublereal *et, doublereal *record, doublereal *state);
  2790. /*:ref: return_ 12 0 */
  2791. /*:ref: chkin_ 14 2 13 124 */
  2792. /*:ref: moved_ 14 3 7 4 7 */
  2793. /*:ref: prop2b_ 14 4 7 7 7 7 */
  2794. /*:ref: pi_ 7 0 */
  2795. /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
  2796. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2797. /*:ref: vadd_ 14 3 7 7 7 */
  2798. /*:ref: vequ_ 14 2 7 7 */
  2799. /*:ref: chkout_ 14 2 13 124 */
  2800.  
  2801. extern int spke08_(doublereal *et, doublereal *record, doublereal *state);
  2802. /*:ref: return_ 12 0 */
  2803. /*:ref: xposeg_ 14 4 7 4 4 7 */
  2804. /*:ref: moved_ 14 3 7 4 7 */
  2805. /*:ref: lgresp_ 7 6 4 7 7 7 7 7 */
  2806.  
  2807. extern int spke09_(doublereal *et, doublereal *record, doublereal *state);
  2808. /*:ref: return_ 12 0 */
  2809. /*:ref: xposeg_ 14 4 7 4 4 7 */
  2810. /*:ref: moved_ 14 3 7 4 7 */
  2811. /*:ref: lgrint_ 7 5 4 7 7 7 7 */
  2812.  
  2813. extern int spke10_(doublereal *et, doublereal *record, doublereal *state);
  2814. /*:ref: return_ 12 0 */
  2815. /*:ref: chkin_ 14 2 13 124 */
  2816. /*:ref: pi_ 7 0 */
  2817. /*:ref: twopi_ 7 0 */
  2818. /*:ref: spd_ 7 0 */
  2819. /*:ref: ev2lin_ 14 4 7 7 7 7 */
  2820. /*:ref: dpspce_ 14 4 7 7 7 7 */
  2821. /*:ref: brcktd_ 7 3 7 7 7 */
  2822. /*:ref: zzmobliq_ 14 3 7 7 7 */
  2823. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  2824. /*:ref: mtxv_ 14 3 7 7 7 */
  2825. /*:ref: moved_ 14 3 7 4 7 */
  2826. /*:ref: vlcomg_ 14 6 4 7 7 7 7 7 */
  2827. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2828. /*:ref: vadd_ 14 3 7 7 7 */
  2829. /*:ref: vequ_ 14 2 7 7 */
  2830. /*:ref: zzeprcss_ 14 2 7 7 */
  2831. /*:ref: chkout_ 14 2 13 124 */
  2832.  
  2833. extern int spke12_(doublereal *et, doublereal *record, doublereal *state);
  2834. /*:ref: return_ 12 0 */
  2835. /*:ref: chkin_ 14 2 13 124 */
  2836. /*:ref: hrmesp_ 14 8 4 7 7 7 7 7 7 7 */
  2837. /*:ref: chkout_ 14 2 13 124 */
  2838.  
  2839. extern int spke13_(doublereal *et, doublereal *record, doublereal *state);
  2840. /*:ref: return_ 12 0 */
  2841. /*:ref: chkin_ 14 2 13 124 */
  2842. /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
  2843. /*:ref: chkout_ 14 2 13 124 */
  2844.  
  2845. extern int spke14_(doublereal *et, doublereal *record, doublereal *state);
  2846. /*:ref: return_ 12 0 */
  2847. /*:ref: chkin_ 14 2 13 124 */
  2848. /*:ref: chbval_ 14 5 7 4 7 7 7 */
  2849. /*:ref: chkout_ 14 2 13 124 */
  2850.  
  2851. extern int spke15_(doublereal *et, doublereal *recin, doublereal *state);
  2852. /*:ref: return_ 12 0 */
  2853. /*:ref: chkin_ 14 2 13 124 */
  2854. /*:ref: vequ_ 14 2 7 7 */
  2855. /*:ref: setmsg_ 14 2 13 124 */
  2856. /*:ref: errdp_ 14 3 13 7 124 */
  2857. /*:ref: sigerr_ 14 2 13 124 */
  2858. /*:ref: chkout_ 14 2 13 124 */
  2859. /*:ref: vzero_ 12 1 7 */
  2860. /*:ref: vhatip_ 14 1 7 */
  2861. /*:ref: vdot_ 7 2 7 7 */
  2862. /*:ref: vsep_ 7 2 7 7 */
  2863. /*:ref: dpr_ 7 0 */
  2864. /*:ref: vscl_ 14 3 7 7 7 */
  2865. /*:ref: vcrss_ 14 3 7 7 7 */
  2866. /*:ref: vsclip_ 14 2 7 7 */
  2867. /*:ref: prop2b_ 14 4 7 7 7 7 */
  2868. /*:ref: twopi_ 7 0 */
  2869. /*:ref: pi_ 7 0 */
  2870. /*:ref: vrotv_ 14 4 7 7 7 7 */
  2871. /*:ref: moved_ 14 3 7 4 7 */
  2872.  
  2873. extern int spke17_(doublereal *et, doublereal *recin, doublereal *state);
  2874. /*:ref: return_ 12 0 */
  2875. /*:ref: chkin_ 14 2 13 124 */
  2876. /*:ref: setmsg_ 14 2 13 124 */
  2877. /*:ref: errdp_ 14 3 13 7 124 */
  2878. /*:ref: sigerr_ 14 2 13 124 */
  2879. /*:ref: chkout_ 14 2 13 124 */
  2880. /*:ref: eqncpv_ 14 6 7 7 7 7 7 7 */
  2881.  
  2882. extern int spke18_(doublereal *et, doublereal *record, doublereal *state);
  2883. /*:ref: return_ 12 0 */
  2884. /*:ref: chkin_ 14 2 13 124 */
  2885. /*:ref: setmsg_ 14 2 13 124 */
  2886. /*:ref: errint_ 14 3 13 4 124 */
  2887. /*:ref: sigerr_ 14 2 13 124 */
  2888. /*:ref: chkout_ 14 2 13 124 */
  2889. /*:ref: xpsgip_ 14 3 4 4 7 */
  2890. /*:ref: lgrint_ 7 5 4 7 7 7 7 */
  2891. /*:ref: hrmint_ 14 7 4 7 7 7 7 7 7 */
  2892. /*:ref: vequ_ 14 2 7 7 */
  2893.  
  2894. extern int spkez_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2895. /*:ref: return_ 12 0 */
  2896. /*:ref: chkin_ 14 2 13 124 */
  2897. /*:ref: namfrm_ 14 3 13 4 124 */
  2898. /*:ref: ltrim_ 4 2 13 124 */
  2899. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2900. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2901. /*:ref: spkgeo_ 14 7 4 7 13 4 7 7 124 */
  2902. /*:ref: setmsg_ 14 2 13 124 */
  2903. /*:ref: errch_ 14 4 13 13 124 124 */
  2904. /*:ref: sigerr_ 14 2 13 124 */
  2905. /*:ref: chkout_ 14 2 13 124 */
  2906. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2907. /*:ref: spkssb_ 14 5 4 7 13 7 124 */
  2908. /*:ref: spkapp_ 14 9 4 7 13 7 13 7 7 124 124 */
  2909. /*:ref: failed_ 12 0 */
  2910. /*:ref: frmchg_ 14 4 4 4 7 7 */
  2911. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2912.  
  2913. extern int spkezp_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2914. /*:ref: return_ 12 0 */
  2915. /*:ref: chkin_ 14 2 13 124 */
  2916. /*:ref: namfrm_ 14 3 13 4 124 */
  2917. /*:ref: ltrim_ 4 2 13 124 */
  2918. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2919. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2920. /*:ref: spkgps_ 14 7 4 7 13 4 7 7 124 */
  2921. /*:ref: setmsg_ 14 2 13 124 */