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

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

OpenGL

开发平台：

Visual C++

SpiceZfc.h：源码内容
  1. /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
  2. /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
  3. /*:ref: failed_ 12 0 */
  4. /*:ref: chkout_ 14 2 13 124 */
  5. /*:ref: eqstr_ 12 4 13 13 124 124 */
  6. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  7. /*:ref: ucase_ 14 4 13 13 124 124 */
  8. /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
  9. /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
  10. /*:ref: setmsg_ 14 2 13 124 */
  11. /*:ref: errch_ 14 4 13 13 124 124 */
  12. /*:ref: sigerr_ 14 2 13 124 */
  13. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  14. /*:ref: intstr_ 14 3 4 13 124 */
  15. /*:ref: zzeprc76_ 14 2 7 7 */
  16. /*:ref: moved_ 14 3 7 4 7 */
  17. /*:ref: xpose_ 14 2 7 7 */
  18. /*:ref: zzenut80_ 14 2 7 7 */
  19. /*:ref: mxm_ 14 3 7 7 7 */
  20. /*:ref: zzmobliq_ 14 3 7 7 7 */
  21. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  22. /*:ref: zzrefch0_ 14 4 4 4 7 7 */
  23. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  24. /*:ref: errint_ 14 3 13 4 124 */
  25. /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
  26. /*:ref: zzspkzp0_ 14 9 4 7 13 13 4 7 7 124 124 */
  27. /*:ref: zzspkez0_ 14 9 4 7 13 13 4 7 7 124 124 */
  28. /*:ref: vhat_ 14 2 7 7 */
  29. /*:ref: zzprscor_ 14 3 13 12 124 */
  30. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  31. /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
  32. /*:ref: mxv_ 14 3 7 7 7 */
  33. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  34. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  35. /*:ref: vminus_ 14 2 7 7 */
  36. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  37. /*:ref: vsub_ 14 3 7 7 7 */
  38. /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
  39. /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
  40. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  41. /*:ref: latrec_ 14 4 7 7 7 7 */
  42. /*:ref: vequ_ 14 2 7 7 */
  43. /*:ref: stlabx_ 14 3 7 7 7 */
  44. /*:ref: stelab_ 14 3 7 7 7 */
  45. /*:ref: vsep_ 7 2 7 7 */
  46. /*:ref: etcal_ 14 3 7 13 124 */
  47. /*:ref: errdp_ 14 3 13 7 124 */
  48. /*:ref: twovec_ 14 5 7 4 7 4 7 */
  49. /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
  50. /*:ref: polyds_ 14 5 7 4 4 7 7 */
  51.  
  52. extern int zzdynrt0_(integer *infram, integer *center, doublereal *et, doublereal *rotate, integer *basfrm);
  53. /*:ref: return_ 12 0 */
  54. /*:ref: chkin_ 14 2 13 124 */
  55. /*:ref: irfnum_ 14 3 13 4 124 */
  56. /*:ref: bodn2c_ 14 4 13 4 12 124 */
  57. /*:ref: cleard_ 14 2 4 7 */
  58. /*:ref: frmnam_ 14 3 4 13 124 */
  59. /*:ref: zzdynfid_ 14 6 13 4 13 4 124 124 */
  60. /*:ref: zzdynvac_ 14 9 13 4 13 4 4 13 124 124 124 */
  61. /*:ref: failed_ 12 0 */
  62. /*:ref: chkout_ 14 2 13 124 */
  63. /*:ref: eqstr_ 12 4 13 13 124 124 */
  64. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  65. /*:ref: ucase_ 14 4 13 13 124 124 */
  66. /*:ref: zzdynoad_ 14 9 13 4 13 4 4 7 12 124 124 */
  67. /*:ref: zzdynoac_ 14 10 13 4 13 4 4 13 12 124 124 124 */
  68. /*:ref: setmsg_ 14 2 13 124 */
  69. /*:ref: errch_ 14 4 13 13 124 124 */
  70. /*:ref: sigerr_ 14 2 13 124 */
  71. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  72. /*:ref: intstr_ 14 3 4 13 124 */
  73. /*:ref: zzeprc76_ 14 2 7 7 */
  74. /*:ref: moved_ 14 3 7 4 7 */
  75. /*:ref: xpose_ 14 2 7 7 */
  76. /*:ref: zzenut80_ 14 2 7 7 */
  77. /*:ref: mxm_ 14 3 7 7 7 */
  78. /*:ref: zzmobliq_ 14 3 7 7 7 */
  79. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  80. /*:ref: zzrefch1_ 14 4 4 4 7 7 */
  81. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  82. /*:ref: errint_ 14 3 13 4 124 */
  83. /*:ref: zzdynbid_ 14 6 13 4 13 4 124 124 */
  84. /*:ref: zzspkzp1_ 14 9 4 7 13 13 4 7 7 124 124 */
  85. /*:ref: zzspkez1_ 14 9 4 7 13 13 4 7 7 124 124 */
  86. /*:ref: vhat_ 14 2 7 7 */
  87. /*:ref: zzprscor_ 14 3 13 12 124 */
  88. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  89. /*:ref: zzcorepc_ 14 5 13 7 7 7 124 */
  90. /*:ref: mxv_ 14 3 7 7 7 */
  91. /*:ref: cidfrm_ 14 5 4 4 13 12 124 */
  92. /*:ref: bodvcd_ 14 6 4 13 4 4 7 124 */
  93. /*:ref: vminus_ 14 2 7 7 */
  94. /*:ref: nearpt_ 14 6 7 7 7 7 7 7 */
  95. /*:ref: vsub_ 14 3 7 7 7 */
  96. /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
  97. /*:ref: zzdynvad_ 14 8 13 4 13 4 4 7 124 124 */
  98. /*:ref: convrt_ 14 6 7 13 13 7 124 124 */
  99. /*:ref: latrec_ 14 4 7 7 7 7 */
  100. /*:ref: stlabx_ 14 3 7 7 7 */
  101. /*:ref: stelab_ 14 3 7 7 7 */
  102. /*:ref: vequ_ 14 2 7 7 */
  103. /*:ref: vsep_ 7 2 7 7 */
  104. /*:ref: etcal_ 14 3 7 13 124 */
  105. /*:ref: errdp_ 14 3 13 7 124 */
  106. /*:ref: twovec_ 14 5 7 4 7 4 7 */
  107. /*:ref: zzdynvai_ 14 8 13 4 13 4 4 4 124 124 */
  108. /*:ref: polyds_ 14 5 7 4 4 7 7 */
  109.  
  110. extern int zzdynvac_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, char *values, ftnlen frname_len, ftnlen item_len, ftnlen values_len);
  111. /*:ref: return_ 12 0 */
  112. /*:ref: chkin_ 14 2 13 124 */
  113. /*:ref: intstr_ 14 3 4 13 124 */
  114. /*:ref: failed_ 12 0 */
  115. /*:ref: chkout_ 14 2 13 124 */
  116. /*:ref: rtrim_ 4 2 13 124 */
  117. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  118. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  119. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  120. /*:ref: setmsg_ 14 2 13 124 */
  121. /*:ref: errint_ 14 3 13 4 124 */
  122. /*:ref: errch_ 14 4 13 13 124 124 */
  123. /*:ref: sigerr_ 14 2 13 124 */
  124. /*:ref: gcpool_ 14 8 13 4 4 4 13 12 124 124 */
  125.  
  126. extern int zzdynvad_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, doublereal *values, ftnlen frname_len, ftnlen item_len);
  127. /*:ref: return_ 12 0 */
  128. /*:ref: chkin_ 14 2 13 124 */
  129. /*:ref: intstr_ 14 3 4 13 124 */
  130. /*:ref: failed_ 12 0 */
  131. /*:ref: chkout_ 14 2 13 124 */
  132. /*:ref: rtrim_ 4 2 13 124 */
  133. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  134. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  135. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  136. /*:ref: setmsg_ 14 2 13 124 */
  137. /*:ref: errint_ 14 3 13 4 124 */
  138. /*:ref: errch_ 14 4 13 13 124 124 */
  139. /*:ref: sigerr_ 14 2 13 124 */
  140. /*:ref: gdpool_ 14 7 13 4 4 4 7 12 124 */
  141.  
  142. extern int zzdynvai_(char *frname, integer *frcode, char *item, integer *maxn, integer *n, integer *values, ftnlen frname_len, ftnlen item_len);
  143. /*:ref: return_ 12 0 */
  144. /*:ref: chkin_ 14 2 13 124 */
  145. /*:ref: intstr_ 14 3 4 13 124 */
  146. /*:ref: failed_ 12 0 */
  147. /*:ref: chkout_ 14 2 13 124 */
  148. /*:ref: rtrim_ 4 2 13 124 */
  149. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  150. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  151. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  152. /*:ref: setmsg_ 14 2 13 124 */
  153. /*:ref: errint_ 14 3 13 4 124 */
  154. /*:ref: errch_ 14 4 13 13 124 124 */
  155. /*:ref: sigerr_ 14 2 13 124 */
  156. /*:ref: gipool_ 14 7 13 4 4 4 4 12 124 */
  157.  
  158. extern int zzekac01_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *rcptrs, integer *wkindx);
  159. /*:ref: return_ 12 0 */
  160. /*:ref: chkin_ 14 2 13 124 */
  161. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  162. /*:ref: setmsg_ 14 2 13 124 */
  163. /*:ref: errint_ 14 3 13 4 124 */
  164. /*:ref: errch_ 14 4 13 13 124 124 */
  165. /*:ref: sigerr_ 14 2 13 124 */
  166. /*:ref: chkout_ 14 2 13 124 */
  167. /*:ref: zzekspsh_ 14 2 4 4 */
  168. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  169. /*:ref: cleari_ 14 2 4 4 */
  170. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  171. /*:ref: zzekordi_ 14 5 4 12 12 4 4 */
  172. /*:ref: zzektrit_ 14 2 4 4 */
  173. /*:ref: zzektr1s_ 14 4 4 4 4 4 */
  174. /*:ref: dasudi_ 14 4 4 4 4 4 */
  175.  
  176. extern int zzekac02_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *rcptrs, integer *wkindx);
  177. /*:ref: return_ 12 0 */
  178. /*:ref: chkin_ 14 2 13 124 */
  179. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  180. /*:ref: setmsg_ 14 2 13 124 */
  181. /*:ref: errint_ 14 3 13 4 124 */
  182. /*:ref: errch_ 14 4 13 13 124 124 */
  183. /*:ref: sigerr_ 14 2 13 124 */
  184. /*:ref: chkout_ 14 2 13 124 */
  185. /*:ref: zzekspsh_ 14 2 4 4 */
  186. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  187. /*:ref: cleard_ 14 2 4 7 */
  188. /*:ref: zzekpgwd_ 14 3 4 4 7 */
  189. /*:ref: zzekordd_ 14 5 7 12 12 4 4 */
  190. /*:ref: zzektrit_ 14 2 4 4 */
  191. /*:ref: zzektr1s_ 14 4 4 4 4 4 */
  192. /*:ref: dasudi_ 14 4 4 4 4 4 */
  193.  
  194. extern int zzekac03_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *rcptrs, integer *wkindx, ftnlen cvals_len);
  195. /*:ref: return_ 12 0 */
  196. /*:ref: chkin_ 14 2 13 124 */
  197. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  198. /*:ref: setmsg_ 14 2 13 124 */
  199. /*:ref: errint_ 14 3 13 4 124 */
  200. /*:ref: errch_ 14 4 13 13 124 124 */
  201. /*:ref: sigerr_ 14 2 13 124 */
  202. /*:ref: chkout_ 14 2 13 124 */
  203. /*:ref: zzekspsh_ 14 2 4 4 */
  204. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  205. /*:ref: prtenc_ 14 3 4 13 124 */
  206. /*:ref: rtrim_ 4 2 13 124 */
  207. /*:ref: prtdec_ 14 3 13 4 124 */
  208. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  209. /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */
  210. /*:ref: zzektrit_ 14 2 4 4 */
  211. /*:ref: zzektr1s_ 14 4 4 4 4 4 */
  212. /*:ref: dasudi_ 14 4 4 4 4 4 */
  213.  
  214. extern int zzekac04_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, integer *entszs, logical *nlflgs);
  215. /*:ref: return_ 12 0 */
  216. /*:ref: chkin_ 14 2 13 124 */
  217. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  218. /*:ref: setmsg_ 14 2 13 124 */
  219. /*:ref: errint_ 14 3 13 4 124 */
  220. /*:ref: errch_ 14 4 13 13 124 124 */
  221. /*:ref: sigerr_ 14 2 13 124 */
  222. /*:ref: chkout_ 14 2 13 124 */
  223. /*:ref: zzekspsh_ 14 2 4 4 */
  224. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  225. /*:ref: cleari_ 14 2 4 4 */
  226. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  227. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  228.  
  229. extern int zzekac05_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, integer *entszs, logical *nlflgs);
  230. /*:ref: return_ 12 0 */
  231. /*:ref: chkin_ 14 2 13 124 */
  232. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  233. /*:ref: setmsg_ 14 2 13 124 */
  234. /*:ref: errint_ 14 3 13 4 124 */
  235. /*:ref: errch_ 14 4 13 13 124 124 */
  236. /*:ref: sigerr_ 14 2 13 124 */
  237. /*:ref: chkout_ 14 2 13 124 */
  238. /*:ref: zzekspsh_ 14 2 4 4 */
  239. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  240. /*:ref: cleard_ 14 2 4 7 */
  241. /*:ref: zzekpgwd_ 14 3 4 4 7 */
  242. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  243.  
  244. extern int zzekac06_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, integer *entszs, logical *nlflgs, ftnlen cvals_len);
  245. /*:ref: return_ 12 0 */
  246. /*:ref: chkin_ 14 2 13 124 */
  247. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  248. /*:ref: setmsg_ 14 2 13 124 */
  249. /*:ref: errint_ 14 3 13 4 124 */
  250. /*:ref: errch_ 14 4 13 13 124 124 */
  251. /*:ref: sigerr_ 14 2 13 124 */
  252. /*:ref: chkout_ 14 2 13 124 */
  253. /*:ref: zzekspsh_ 14 2 4 4 */
  254. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  255. /*:ref: prtenc_ 14 3 4 13 124 */
  256. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  257. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  258.  
  259. extern int zzekac07_(integer *handle, integer *segdsc, integer *coldsc, integer *ivals, logical *nlflgs, integer *wkindx);
  260. /*:ref: return_ 12 0 */
  261. /*:ref: chkin_ 14 2 13 124 */
  262. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  263. /*:ref: setmsg_ 14 2 13 124 */
  264. /*:ref: errint_ 14 3 13 4 124 */
  265. /*:ref: errch_ 14 4 13 13 124 124 */
  266. /*:ref: sigerr_ 14 2 13 124 */
  267. /*:ref: chkout_ 14 2 13 124 */
  268. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  269. /*:ref: cleari_ 14 2 4 4 */
  270. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  271. /*:ref: dasudi_ 14 4 4 4 4 4 */
  272. /*:ref: zzekordi_ 14 5 4 12 12 4 4 */
  273. /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
  274. /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
  275.  
  276. extern int zzekac08_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dvals, logical *nlflgs, integer *wkindx);
  277. /*:ref: return_ 12 0 */
  278. /*:ref: chkin_ 14 2 13 124 */
  279. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  280. /*:ref: setmsg_ 14 2 13 124 */
  281. /*:ref: errint_ 14 3 13 4 124 */
  282. /*:ref: errch_ 14 4 13 13 124 124 */
  283. /*:ref: sigerr_ 14 2 13 124 */
  284. /*:ref: chkout_ 14 2 13 124 */
  285. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  286. /*:ref: cleard_ 14 2 4 7 */
  287. /*:ref: zzekpgwd_ 14 3 4 4 7 */
  288. /*:ref: dasudi_ 14 4 4 4 4 4 */
  289. /*:ref: zzekordd_ 14 5 7 12 12 4 4 */
  290. /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
  291. /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
  292.  
  293. extern int zzekac09_(integer *handle, integer *segdsc, integer *coldsc, char *cvals, logical *nlflgs, integer *wkindx, ftnlen cvals_len);
  294. /*:ref: return_ 12 0 */
  295. /*:ref: chkin_ 14 2 13 124 */
  296. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  297. /*:ref: setmsg_ 14 2 13 124 */
  298. /*:ref: errint_ 14 3 13 4 124 */
  299. /*:ref: errch_ 14 4 13 13 124 124 */
  300. /*:ref: sigerr_ 14 2 13 124 */
  301. /*:ref: chkout_ 14 2 13 124 */
  302. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  303. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  304. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  305. /*:ref: dasudi_ 14 4 4 4 4 4 */
  306. /*:ref: zzekordc_ 14 6 13 12 12 4 4 124 */
  307. /*:ref: zzekwpai_ 14 6 4 4 4 4 4 4 */
  308. /*:ref: zzekwpal_ 14 6 4 4 4 12 4 4 */
  309.  
  310. extern int zzekacps_(integer *handle, integer *segdsc, integer *type__, integer *n, integer *p, integer *base);
  311. /*:ref: zzekpgan_ 14 4 4 4 4 4 */
  312. /*:ref: failed_ 12 0 */
  313. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  314. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  315. /*:ref: zzektrap_ 14 4 4 4 4 4 */
  316.  
  317. extern int zzekad01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
  318. /*:ref: chkin_ 14 2 13 124 */
  319. /*:ref: setmsg_ 14 2 13 124 */
  320. /*:ref: errint_ 14 3 13 4 124 */
  321. /*:ref: sigerr_ 14 2 13 124 */
  322. /*:ref: chkout_ 14 2 13 124 */
  323. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  324. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  325. /*:ref: dasudi_ 14 4 4 4 4 4 */
  326. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  327. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  328. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  329. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  330. /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */
  331.  
  332. extern int zzekad02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
  333. /*:ref: chkin_ 14 2 13 124 */
  334. /*:ref: setmsg_ 14 2 13 124 */
  335. /*:ref: errint_ 14 3 13 4 124 */
  336. /*:ref: sigerr_ 14 2 13 124 */
  337. /*:ref: chkout_ 14 2 13 124 */
  338. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  339. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  340. /*:ref: dasudi_ 14 4 4 4 4 4 */
  341. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  342. /*:ref: dasudd_ 14 4 4 4 4 7 */
  343. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  344. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  345. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  346. /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */
  347.  
  348. extern int zzekad03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len);
  349. /*:ref: chkin_ 14 2 13 124 */
  350. /*:ref: setmsg_ 14 2 13 124 */
  351. /*:ref: errint_ 14 3 13 4 124 */
  352. /*:ref: sigerr_ 14 2 13 124 */
  353. /*:ref: chkout_ 14 2 13 124 */
  354. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  355. /*:ref: rtrim_ 4 2 13 124 */
  356. /*:ref: dasudi_ 14 4 4 4 4 4 */
  357. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  358. /*:ref: zzeksei_ 14 3 4 4 4 */
  359. /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
  360. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  361. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  362. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  363. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  364. /*:ref: zzekiic1_ 14 7 4 4 4 13 4 12 124 */
  365.  
  366. extern int zzekad04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull);
  367. /*:ref: chkin_ 14 2 13 124 */
  368. /*:ref: setmsg_ 14 2 13 124 */
  369. /*:ref: errint_ 14 3 13 4 124 */
  370. /*:ref: sigerr_ 14 2 13 124 */
  371. /*:ref: chkout_ 14 2 13 124 */
  372. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  373. /*:ref: dasudi_ 14 4 4 4 4 4 */
  374. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  375. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  376. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  377. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  378. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  379.  
  380. extern int zzekad05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull);
  381. /*:ref: chkin_ 14 2 13 124 */
  382. /*:ref: setmsg_ 14 2 13 124 */
  383. /*:ref: errint_ 14 3 13 4 124 */
  384. /*:ref: sigerr_ 14 2 13 124 */
  385. /*:ref: chkout_ 14 2 13 124 */
  386. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  387. /*:ref: dasudi_ 14 4 4 4 4 4 */
  388. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  389. /*:ref: dasudd_ 14 4 4 4 4 7 */
  390. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  391. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  392. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  393. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  394.  
  395. extern int zzekad06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len);
  396. /*:ref: chkin_ 14 2 13 124 */
  397. /*:ref: setmsg_ 14 2 13 124 */
  398. /*:ref: errint_ 14 3 13 4 124 */
  399. /*:ref: sigerr_ 14 2 13 124 */
  400. /*:ref: chkout_ 14 2 13 124 */
  401. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  402. /*:ref: dasudi_ 14 4 4 4 4 4 */
  403. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  404. /*:ref: failed_ 12 0 */
  405. /*:ref: zzeksei_ 14 3 4 4 4 */
  406. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  407. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  408. /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
  409. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  410. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  411.  
  412. extern int zzekaps_(integer *handle, integer *segdsc, integer *type__, logical *new__, integer *p, integer *base);
  413. /*:ref: zzekpgan_ 14 4 4 4 4 4 */
  414. /*:ref: zzekpgal_ 14 4 4 4 4 4 */
  415. /*:ref: failed_ 12 0 */
  416. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  417. /*:ref: zzeksfwd_ 14 4 4 4 4 4 */
  418. /*:ref: zzektrap_ 14 4 4 4 4 4 */
  419.  
  420. extern int zzekbs01_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len);
  421. /*:ref: return_ 12 0 */
  422. /*:ref: chkin_ 14 2 13 124 */
  423. /*:ref: zzekpgch_ 14 3 4 13 124 */
  424. /*:ref: failed_ 12 0 */
  425. /*:ref: chkout_ 14 2 13 124 */
  426. /*:ref: zzekpgan_ 14 4 4 4 4 4 */
  427. /*:ref: zzektrit_ 14 2 4 4 */
  428. /*:ref: cleari_ 14 2 4 4 */
  429. /*:ref: eknseg_ 4 1 4 */
  430. /*:ref: ljust_ 14 4 13 13 124 124 */
  431. /*:ref: ucase_ 14 4 13 13 124 124 */
  432. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  433. /*:ref: zzekcix1_ 14 2 4 4 */
  434. /*:ref: movei_ 14 3 4 4 4 */
  435. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  436. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  437. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  438. /*:ref: zzektrap_ 14 4 4 4 4 4 */
  439.  
  440. extern int zzekbs02_(integer *handle, char *tabnam, integer *ncols, char *cnames, integer *cdscrs, integer *segno, ftnlen tabnam_len, ftnlen cnames_len);
  441. /*:ref: return_ 12 0 */
  442. /*:ref: chkin_ 14 2 13 124 */
  443. /*:ref: zzekpgch_ 14 3 4 13 124 */
  444. /*:ref: failed_ 12 0 */
  445. /*:ref: chkout_ 14 2 13 124 */
  446. /*:ref: zzekpgan_ 14 4 4 4 4 4 */
  447. /*:ref: zzektrit_ 14 2 4 4 */
  448. /*:ref: cleari_ 14 2 4 4 */
  449. /*:ref: eknseg_ 4 1 4 */
  450. /*:ref: ljust_ 14 4 13 13 124 124 */
  451. /*:ref: ucase_ 14 4 13 13 124 124 */
  452. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  453. /*:ref: movei_ 14 3 4 4 4 */
  454. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  455. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  456. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  457. /*:ref: zzektrap_ 14 4 4 4 4 4 */
  458.  
  459. extern int zzekcchk_(char *query, integer *eqryi, char *eqryc, integer *ntab, char *tablst, char *alslst, integer *base, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen tablst_len, ftnlen alslst_len, ftnlen errmsg_len);
  460. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  461. /*:ref: failed_ 12 0 */
  462. /*:ref: chkin_ 14 2 13 124 */
  463. /*:ref: setmsg_ 14 2 13 124 */
  464. /*:ref: sigerr_ 14 2 13 124 */
  465. /*:ref: chkout_ 14 2 13 124 */
  466. /*:ref: errint_ 14 3 13 4 124 */
  467. /*:ref: ekccnt_ 14 3 13 4 124 */
  468. /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
  469. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  470. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  471.  
  472. extern int zzekcdsc_(integer *handle, integer *segdsc, char *column, integer *coldsc, ftnlen column_len);
  473. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  474. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  475. /*:ref: eqstr_ 12 4 13 13 124 124 */
  476. /*:ref: dashlu_ 14 2 4 4 */
  477. /*:ref: chkin_ 14 2 13 124 */
  478. /*:ref: setmsg_ 14 2 13 124 */
  479. /*:ref: errch_ 14 4 13 13 124 124 */
  480. /*:ref: errint_ 14 3 13 4 124 */
  481. /*:ref: errfnm_ 14 3 13 4 124 */
  482. /*:ref: sigerr_ 14 2 13 124 */
  483. /*:ref: chkout_ 14 2 13 124 */
  484.  
  485. extern int zzekcix1_(integer *handle, integer *coldsc);
  486. /*:ref: return_ 12 0 */
  487. /*:ref: chkin_ 14 2 13 124 */
  488. /*:ref: zzekpgch_ 14 3 4 13 124 */
  489. /*:ref: failed_ 12 0 */
  490. /*:ref: chkout_ 14 2 13 124 */
  491. /*:ref: zzektrit_ 14 2 4 4 */
  492.  
  493. extern int zzekcnam_(integer *handle, integer *coldsc, char *column, ftnlen column_len);
  494. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  495.  
  496. extern int zzekde01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  497. /*:ref: return_ 12 0 */
  498. /*:ref: chkin_ 14 2 13 124 */
  499. /*:ref: zzekpgch_ 14 3 4 13 124 */
  500. /*:ref: failed_ 12 0 */
  501. /*:ref: chkout_ 14 2 13 124 */
  502. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  503. /*:ref: zzekixdl_ 14 4 4 4 4 4 */
  504. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  505. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  506. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  507. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  508. /*:ref: dasudi_ 14 4 4 4 4 4 */
  509. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  510. /*:ref: dashlu_ 14 2 4 4 */
  511. /*:ref: setmsg_ 14 2 13 124 */
  512. /*:ref: errint_ 14 3 13 4 124 */
  513. /*:ref: errfnm_ 14 3 13 4 124 */
  514. /*:ref: sigerr_ 14 2 13 124 */
  515.  
  516. extern int zzekde02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  517. /*:ref: return_ 12 0 */
  518. /*:ref: chkin_ 14 2 13 124 */
  519. /*:ref: zzekpgch_ 14 3 4 13 124 */
  520. /*:ref: failed_ 12 0 */
  521. /*:ref: chkout_ 14 2 13 124 */
  522. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  523. /*:ref: zzekixdl_ 14 4 4 4 4 4 */
  524. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  525. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  526. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  527. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  528. /*:ref: dasudi_ 14 4 4 4 4 4 */
  529. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  530. /*:ref: dashlu_ 14 2 4 4 */
  531. /*:ref: setmsg_ 14 2 13 124 */
  532. /*:ref: errint_ 14 3 13 4 124 */
  533. /*:ref: errfnm_ 14 3 13 4 124 */
  534. /*:ref: sigerr_ 14 2 13 124 */
  535.  
  536. extern int zzekde03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  537. /*:ref: return_ 12 0 */
  538. /*:ref: chkin_ 14 2 13 124 */
  539. /*:ref: zzekpgch_ 14 3 4 13 124 */
  540. /*:ref: failed_ 12 0 */
  541. /*:ref: chkout_ 14 2 13 124 */
  542. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  543. /*:ref: zzekixdl_ 14 4 4 4 4 4 */
  544. /*:ref: zzekgei_ 14 3 4 4 4 */
  545. /*:ref: dasudi_ 14 4 4 4 4 4 */
  546. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  547. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  548. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  549. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  550. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  551. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  552. /*:ref: dashlu_ 14 2 4 4 */
  553. /*:ref: setmsg_ 14 2 13 124 */
  554. /*:ref: errint_ 14 3 13 4 124 */
  555. /*:ref: errfnm_ 14 3 13 4 124 */
  556. /*:ref: sigerr_ 14 2 13 124 */
  557.  
  558. extern int zzekde04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  559. /*:ref: return_ 12 0 */
  560. /*:ref: chkin_ 14 2 13 124 */
  561. /*:ref: zzekpgch_ 14 3 4 13 124 */
  562. /*:ref: failed_ 12 0 */
  563. /*:ref: chkout_ 14 2 13 124 */
  564. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  565. /*:ref: dasudi_ 14 4 4 4 4 4 */
  566. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  567. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  568. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  569. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  570. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  571. /*:ref: dashlu_ 14 2 4 4 */
  572. /*:ref: setmsg_ 14 2 13 124 */
  573. /*:ref: errint_ 14 3 13 4 124 */
  574. /*:ref: errfnm_ 14 3 13 4 124 */
  575. /*:ref: sigerr_ 14 2 13 124 */
  576.  
  577. extern int zzekde05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  578. /*:ref: return_ 12 0 */
  579. /*:ref: chkin_ 14 2 13 124 */
  580. /*:ref: zzekpgch_ 14 3 4 13 124 */
  581. /*:ref: failed_ 12 0 */
  582. /*:ref: chkout_ 14 2 13 124 */
  583. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  584. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  585. /*:ref: dasudi_ 14 4 4 4 4 4 */
  586. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  587. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  588. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  589. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  590. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  591. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  592. /*:ref: dashlu_ 14 2 4 4 */
  593. /*:ref: setmsg_ 14 2 13 124 */
  594. /*:ref: errint_ 14 3 13 4 124 */
  595. /*:ref: errfnm_ 14 3 13 4 124 */
  596. /*:ref: sigerr_ 14 2 13 124 */
  597.  
  598. extern int zzekde06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  599. /*:ref: return_ 12 0 */
  600. /*:ref: chkin_ 14 2 13 124 */
  601. /*:ref: zzekpgch_ 14 3 4 13 124 */
  602. /*:ref: failed_ 12 0 */
  603. /*:ref: chkout_ 14 2 13 124 */
  604. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  605. /*:ref: zzekgei_ 14 3 4 4 4 */
  606. /*:ref: dasudi_ 14 4 4 4 4 4 */
  607. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  608. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  609. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  610. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  611. /*:ref: zzekdps_ 14 4 4 4 4 4 */
  612. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  613. /*:ref: dashlu_ 14 2 4 4 */
  614. /*:ref: setmsg_ 14 2 13 124 */
  615. /*:ref: errint_ 14 3 13 4 124 */
  616. /*:ref: errfnm_ 14 3 13 4 124 */
  617. /*:ref: sigerr_ 14 2 13 124 */
  618.  
  619. extern int zzekdps_(integer *handle, integer *segdsc, integer *type__, integer *p);
  620. /*:ref: zzekpgfr_ 14 3 4 4 4 */
  621. /*:ref: failed_ 12 0 */
  622. /*:ref: dasudi_ 14 4 4 4 4 4 */
  623. /*:ref: zzektrls_ 4 3 4 4 4 */
  624. /*:ref: zzektrdl_ 14 3 4 4 4 */
  625.  
  626. extern integer zzekecmp_(integer *hans, integer *sgdscs, integer *cldscs, integer *rows, integer *elts);
  627. /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
  628. /*:ref: dashlu_ 14 2 4 4 */
  629. /*:ref: chkin_ 14 2 13 124 */
  630. /*:ref: setmsg_ 14 2 13 124 */
  631. /*:ref: errfnm_ 14 3 13 4 124 */
  632. /*:ref: errint_ 14 3 13 4 124 */
  633. /*:ref: sigerr_ 14 2 13 124 */
  634. /*:ref: chkout_ 14 2 13 124 */
  635. /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
  636. /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  637.  
  638. extern int zzekencd_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
  639. /*:ref: return_ 12 0 */
  640. /*:ref: chkin_ 14 2 13 124 */
  641. /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
  642. /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */
  643. /*:ref: chkout_ 14 2 13 124 */
  644. /*:ref: zzekpars_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */
  645. /*:ref: zzeknres_ 14 9 13 4 13 12 13 4 124 124 124 */
  646. /*:ref: zzektres_ 14 10 13 4 13 7 12 13 4 124 124 124 */
  647. /*:ref: zzeksemc_ 14 9 13 4 13 12 13 4 124 124 124 */
  648.  
  649. extern int zzekerc1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len);
  650. /*:ref: failed_ 12 0 */
  651. /*:ref: zzektrsz_ 4 2 4 4 */
  652. /*:ref: chkin_ 14 2 13 124 */
  653. /*:ref: setmsg_ 14 2 13 124 */
  654. /*:ref: errint_ 14 3 13 4 124 */
  655. /*:ref: sigerr_ 14 2 13 124 */
  656. /*:ref: chkout_ 14 2 13 124 */
  657. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  658. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  659.  
  660. extern int zzekerd1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
  661. /*:ref: failed_ 12 0 */
  662. /*:ref: zzektrsz_ 4 2 4 4 */
  663. /*:ref: chkin_ 14 2 13 124 */
  664. /*:ref: setmsg_ 14 2 13 124 */
  665. /*:ref: errint_ 14 3 13 4 124 */
  666. /*:ref: sigerr_ 14 2 13 124 */
  667. /*:ref: chkout_ 14 2 13 124 */
  668. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  669. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  670.  
  671. extern int zzekeri1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
  672. /*:ref: failed_ 12 0 */
  673. /*:ref: zzektrsz_ 4 2 4 4 */
  674. /*:ref: chkin_ 14 2 13 124 */
  675. /*:ref: setmsg_ 14 2 13 124 */
  676. /*:ref: errint_ 14 3 13 4 124 */
  677. /*:ref: sigerr_ 14 2 13 124 */
  678. /*:ref: chkout_ 14 2 13 124 */
  679. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  680. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  681.  
  682. extern integer zzekesiz_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  683. /*:ref: zzeksz04_ 4 4 4 4 4 4 */
  684. /*:ref: zzeksz05_ 4 4 4 4 4 4 */
  685. /*:ref: zzeksz06_ 4 4 4 4 4 4 */
  686. /*:ref: dashlu_ 14 2 4 4 */
  687. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  688. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  689. /*:ref: chkin_ 14 2 13 124 */
  690. /*:ref: setmsg_ 14 2 13 124 */
  691. /*:ref: errint_ 14 3 13 4 124 */
  692. /*:ref: errch_ 14 4 13 13 124 124 */
  693. /*:ref: errfnm_ 14 3 13 4 124 */
  694. /*:ref: sigerr_ 14 2 13 124 */
  695. /*:ref: chkout_ 14 2 13 124 */
  696.  
  697. extern int zzekff01_(integer *handle, integer *segno, integer *rcptrs);
  698. /*:ref: return_ 12 0 */
  699. /*:ref: chkin_ 14 2 13 124 */
  700. /*:ref: zzeksrd_ 14 3 4 4 4 */
  701. /*:ref: setmsg_ 14 2 13 124 */
  702. /*:ref: errint_ 14 3 13 4 124 */
  703. /*:ref: sigerr_ 14 2 13 124 */
  704. /*:ref: chkout_ 14 2 13 124 */
  705. /*:ref: zzekmloc_ 14 4 4 4 4 4 */
  706. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  707. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  708. /*:ref: cleari_ 14 2 4 4 */
  709. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  710. /*:ref: zzektrit_ 14 2 4 4 */
  711. /*:ref: zzektr1s_ 14 4 4 4 4 4 */
  712. /*:ref: dasudi_ 14 4 4 4 4 4 */
  713.  
  714. extern int zzekfrx_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *pos);
  715. /*:ref: return_ 12 0 */
  716. /*:ref: chkin_ 14 2 13 124 */
  717. /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  718. /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
  719. /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
  720. /*:ref: dashlu_ 14 2 4 4 */
  721. /*:ref: setmsg_ 14 2 13 124 */
  722. /*:ref: errfnm_ 14 3 13 4 124 */
  723. /*:ref: errint_ 14 3 13 4 124 */
  724. /*:ref: sigerr_ 14 2 13 124 */
  725. /*:ref: chkout_ 14 2 13 124 */
  726. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  727. /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */
  728. /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */
  729. /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */
  730.  
  731. extern int zzekgcdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr);
  732. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  733. /*:ref: dashlu_ 14 2 4 4 */
  734. /*:ref: chkin_ 14 2 13 124 */
  735. /*:ref: setmsg_ 14 2 13 124 */
  736. /*:ref: errint_ 14 3 13 4 124 */
  737. /*:ref: errfnm_ 14 3 13 4 124 */
  738. /*:ref: sigerr_ 14 2 13 124 */
  739. /*:ref: chkout_ 14 2 13 124 */
  740. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  741.  
  742. extern int zzekgei_(integer *handle, integer *addrss, integer *ival);
  743. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  744. /*:ref: prtdec_ 14 3 13 4 124 */
  745.  
  746. extern int zzekgfwd_(integer *handle, integer *type__, integer *p, integer *fward);
  747. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  748. /*:ref: failed_ 12 0 */
  749. /*:ref: zzekgei_ 14 3 4 4 4 */
  750. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  751. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  752.  
  753. extern int zzekglnk_(integer *handle, integer *type__, integer *p, integer *nlinks);
  754. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  755. /*:ref: failed_ 12 0 */
  756. /*:ref: zzekgei_ 14 3 4 4 4 */
  757. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  758. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  759.  
  760. extern int zzekgrcp_(integer *handle, integer *recptr, integer *ptr);
  761. /*:ref: zzekpgch_ 14 3 4 13 124 */
  762. /*:ref: failed_ 12 0 */
  763. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  764.  
  765. extern int zzekgrs_(integer *handle, integer *recptr, integer *status);
  766. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  767.  
  768. extern int zzekif01_(integer *handle, integer *segno, integer *rcptrs);
  769. /*:ref: return_ 12 0 */
  770. /*:ref: chkin_ 14 2 13 124 */
  771. /*:ref: zzeksdsc_ 14 3 4 4 4 */
  772. /*:ref: zzekstop_ 14 1 4 */
  773. /*:ref: zzeksdec_ 14 1 4 */
  774. /*:ref: zzekspsh_ 14 2 4 4 */
  775. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  776. /*:ref: chkout_ 14 2 13 124 */
  777.  
  778. extern int zzekif02_(integer *handle, integer *segno);
  779. /*:ref: return_ 12 0 */
  780. /*:ref: chkin_ 14 2 13 124 */
  781. /*:ref: zzekmloc_ 14 4 4 4 4 4 */
  782. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  783. /*:ref: zzekaps_ 14 6 4 4 4 12 4 4 */
  784. /*:ref: dasudi_ 14 4 4 4 4 4 */
  785. /*:ref: setmsg_ 14 2 13 124 */
  786. /*:ref: errint_ 14 3 13 4 124 */
  787. /*:ref: sigerr_ 14 2 13 124 */
  788. /*:ref: chkout_ 14 2 13 124 */
  789.  
  790. extern int zzekiic1_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, ftnlen ckey_len);
  791. /*:ref: failed_ 12 0 */
  792. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  793. /*:ref: chkin_ 14 2 13 124 */
  794. /*:ref: setmsg_ 14 2 13 124 */
  795. /*:ref: errch_ 14 4 13 13 124 124 */
  796. /*:ref: sigerr_ 14 2 13 124 */
  797. /*:ref: chkout_ 14 2 13 124 */
  798. /*:ref: errint_ 14 3 13 4 124 */
  799. /*:ref: zzeklerc_ 14 9 4 4 4 13 4 12 4 4 124 */
  800. /*:ref: zzektrin_ 14 4 4 4 4 4 */
  801.  
  802. extern int zzekiid1_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null);
  803. /*:ref: failed_ 12 0 */
  804. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  805. /*:ref: chkin_ 14 2 13 124 */
  806. /*:ref: setmsg_ 14 2 13 124 */
  807. /*:ref: errch_ 14 4 13 13 124 124 */
  808. /*:ref: sigerr_ 14 2 13 124 */
  809. /*:ref: chkout_ 14 2 13 124 */
  810. /*:ref: errint_ 14 3 13 4 124 */
  811. /*:ref: zzeklerd_ 14 8 4 4 4 7 4 12 4 4 */
  812. /*:ref: zzektrin_ 14 4 4 4 4 4 */
  813.  
  814. extern int zzekiii1_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null);
  815. /*:ref: failed_ 12 0 */
  816. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  817. /*:ref: chkin_ 14 2 13 124 */
  818. /*:ref: setmsg_ 14 2 13 124 */
  819. /*:ref: errch_ 14 4 13 13 124 124 */
  820. /*:ref: sigerr_ 14 2 13 124 */
  821. /*:ref: chkout_ 14 2 13 124 */
  822. /*:ref: errint_ 14 3 13 4 124 */
  823. /*:ref: zzekleri_ 14 8 4 4 4 4 4 12 4 4 */
  824. /*:ref: zzektrin_ 14 4 4 4 4 4 */
  825.  
  826. extern integer zzekille_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len);
  827. /*:ref: return_ 12 0 */
  828. /*:ref: chkin_ 14 2 13 124 */
  829. /*:ref: setmsg_ 14 2 13 124 */
  830. /*:ref: errint_ 14 3 13 4 124 */
  831. /*:ref: sigerr_ 14 2 13 124 */
  832. /*:ref: chkout_ 14 2 13 124 */
  833. /*:ref: zzekllec_ 14 7 4 4 4 13 4 4 124 */
  834. /*:ref: zzeklled_ 14 6 4 4 4 7 4 4 */
  835. /*:ref: zzekllei_ 14 6 4 4 4 4 4 4 */
  836.  
  837. extern integer zzekillt_(integer *handle, integer *segdsc, integer *coldsc, integer *nrows, integer *dtype, char *cval, doublereal *dval, integer *ival, ftnlen cval_len);
  838. /*:ref: return_ 12 0 */
  839. /*:ref: chkin_ 14 2 13 124 */
  840. /*:ref: setmsg_ 14 2 13 124 */
  841. /*:ref: errint_ 14 3 13 4 124 */
  842. /*:ref: sigerr_ 14 2 13 124 */
  843. /*:ref: chkout_ 14 2 13 124 */
  844. /*:ref: zzeklltc_ 14 7 4 4 4 13 4 4 124 */
  845. /*:ref: zzeklltd_ 14 6 4 4 4 7 4 4 */
  846. /*:ref: zzekllti_ 14 6 4 4 4 4 4 4 */
  847.  
  848. extern int zzekinqc_(char *value, integer *length, integer *lexbeg, integer *lexend, integer *eqryi, char *eqryc, integer *descr, ftnlen value_len, ftnlen eqryc_len);
  849. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  850. /*:ref: chkin_ 14 2 13 124 */
  851. /*:ref: setmsg_ 14 2 13 124 */
  852. /*:ref: sigerr_ 14 2 13 124 */
  853. /*:ref: chkout_ 14 2 13 124 */
  854. /*:ref: errint_ 14 3 13 4 124 */
  855. /*:ref: cleari_ 14 2 4 4 */
  856. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  857.  
  858. extern int zzekinqn_(doublereal *value, integer *type__, integer *lexbeg, integer *lexend, integer *eqryi, doublereal *eqryd, integer *descr);
  859. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  860. /*:ref: chkin_ 14 2 13 124 */
  861. /*:ref: setmsg_ 14 2 13 124 */
  862. /*:ref: sigerr_ 14 2 13 124 */
  863. /*:ref: chkout_ 14 2 13 124 */
  864. /*:ref: errint_ 14 3 13 4 124 */
  865. /*:ref: cleari_ 14 2 4 4 */
  866. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  867.  
  868. extern int zzekixdl_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  869. /*:ref: return_ 12 0 */
  870. /*:ref: chkin_ 14 2 13 124 */
  871. /*:ref: zzekfrx_ 14 5 4 4 4 4 4 */
  872. /*:ref: zzektrdl_ 14 3 4 4 4 */
  873. /*:ref: setmsg_ 14 2 13 124 */
  874. /*:ref: errint_ 14 3 13 4 124 */
  875. /*:ref: sigerr_ 14 2 13 124 */
  876. /*:ref: chkout_ 14 2 13 124 */
  877. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  878. /*:ref: dashlu_ 14 2 4 4 */
  879. /*:ref: errfnm_ 14 3 13 4 124 */
  880.  
  881. extern int zzekixlk_(integer *handle, integer *coldsc, integer *key, integer *recptr);
  882. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  883. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  884. /*:ref: chkin_ 14 2 13 124 */
  885. /*:ref: setmsg_ 14 2 13 124 */
  886. /*:ref: errint_ 14 3 13 4 124 */
  887. /*:ref: sigerr_ 14 2 13 124 */
  888. /*:ref: chkout_ 14 2 13 124 */
  889.  
  890. extern int zzekjoin_(integer *jbase1, integer *jbase2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *jbase3, integer *nrows);
  891. /*:ref: chkin_ 14 2 13 124 */
  892. /*:ref: setmsg_ 14 2 13 124 */
  893. /*:ref: errint_ 14 3 13 4 124 */
  894. /*:ref: sigerr_ 14 2 13 124 */
  895. /*:ref: chkout_ 14 2 13 124 */
  896. /*:ref: zzeksrd_ 14 3 4 4 4 */
  897. /*:ref: zzekstop_ 14 1 4 */
  898. /*:ref: zzekspsh_ 14 2 4 4 */
  899. /*:ref: zzeksupd_ 14 3 4 4 4 */
  900. /*:ref: zzekjprp_ 14 23 4 4 4 4 4 4 4 4 4 4 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  901. /*:ref: zzekjnxt_ 14 2 12 4 */
  902.  
  903. extern int zzekjsqz_(integer *jrsbas);
  904. /*:ref: zzeksrd_ 14 3 4 4 4 */
  905. /*:ref: failed_ 12 0 */
  906. /*:ref: zzeksupd_ 14 3 4 4 4 */
  907.  
  908. extern int zzekjsrt_(integer *njrs, integer *ubases, integer *norder, integer *otabs, integer *ocols, integer *oelts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *ordbas);
  909. /*:ref: return_ 12 0 */
  910. /*:ref: chkin_ 14 2 13 124 */
  911. /*:ref: setmsg_ 14 2 13 124 */
  912. /*:ref: errint_ 14 3 13 4 124 */
  913. /*:ref: sigerr_ 14 2 13 124 */
  914. /*:ref: chkout_ 14 2 13 124 */
  915. /*:ref: zzeksrd_ 14 3 4 4 4 */
  916. /*:ref: zzekvset_ 14 2 4 4 */
  917. /*:ref: zzekvcal_ 14 3 4 4 4 */
  918. /*:ref: lnknxt_ 4 2 4 4 */
  919. /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  920. /*:ref: dashlu_ 14 2 4 4 */
  921. /*:ref: errfnm_ 14 3 13 4 124 */
  922. /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
  923. /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
  924. /*:ref: zzekvcmp_ 12 15 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 */
  925. /*:ref: swapi_ 14 2 4 4 */
  926. /*:ref: zzekstop_ 14 1 4 */
  927. /*:ref: zzekspsh_ 14 2 4 4 */
  928. /*:ref: zzeksupd_ 14 3 4 4 4 */
  929.  
  930. extern int zzekjtst_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, logical *found, integer *rowvec);
  931. extern int zzekjprp_(integer *segvec, integer *jbase1, integer *nt1, integer *rb1, integer *nr1, integer *jbase2, integer *nt2, integer *rb2, integer *nr2, integer *njcnst, logical *active, integer *cpidx1, integer *clidx1, integer *elts1, integer *ops, integer *cpidx2, integer *clidx2, integer *elts2, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs);
  932. extern int zzekjnxt_(logical *found, integer *rowvec);
  933. /*:ref: chkin_ 14 2 13 124 */
  934. /*:ref: sigerr_ 14 2 13 124 */
  935. /*:ref: chkout_ 14 2 13 124 */
  936. /*:ref: return_ 12 0 */
  937. /*:ref: movei_ 14 3 4 4 4 */
  938. /*:ref: lnknxt_ 4 2 4 4 */
  939. /*:ref: zzekstop_ 14 1 4 */
  940. /*:ref: zzekspsh_ 14 2 4 4 */
  941. /*:ref: zzeksrd_ 14 3 4 4 4 */
  942. /*:ref: zzeksupd_ 14 3 4 4 4 */
  943. /*:ref: zzekjsrt_ 14 13 4 4 4 4 4 4 4 4 4 4 4 4 4 */
  944. /*:ref: zzekrcmp_ 12 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  945. /*:ref: zzekvmch_ 12 13 4 12 4 4 4 4 4 4 4 4 4 4 4 */
  946.  
  947. extern int zzekkey_(integer *handle, integer *segdsc, integer *nrows, integer *ncnstr, integer *clidxs, integer *dsclst, integer *ops, integer *dtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, logical *active, integer *key, integer *keydsc, integer *begidx, integer *endidx, logical *found, ftnlen chrbuf_len);
  948. /*:ref: return_ 12 0 */
  949. /*:ref: chkin_ 14 2 13 124 */
  950. /*:ref: setmsg_ 14 2 13 124 */
  951. /*:ref: errint_ 14 3 13 4 124 */
  952. /*:ref: sigerr_ 14 2 13 124 */
  953. /*:ref: chkout_ 14 2 13 124 */
  954. /*:ref: ssizei_ 14 2 4 4 */
  955. /*:ref: insrti_ 14 2 4 4 */
  956. /*:ref: cardi_ 4 1 4 */
  957. /*:ref: zzekillt_ 4 9 4 4 4 4 4 13 7 4 124 */
  958. /*:ref: zzekille_ 4 9 4 4 4 4 4 13 7 4 124 */
  959. /*:ref: failed_ 12 0 */
  960. /*:ref: ordi_ 4 2 4 4 */
  961. /*:ref: movei_ 14 3 4 4 4 */
  962.  
  963. extern int zzeklerc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *recptr, logical *null, integer *prvidx, integer *prvptr, ftnlen ckey_len);
  964. /*:ref: failed_ 12 0 */
  965. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  966. /*:ref: chkin_ 14 2 13 124 */
  967. /*:ref: setmsg_ 14 2 13 124 */
  968. /*:ref: errch_ 14 4 13 13 124 124 */
  969. /*:ref: sigerr_ 14 2 13 124 */
  970. /*:ref: chkout_ 14 2 13 124 */
  971. /*:ref: errint_ 14 3 13 4 124 */
  972. /*:ref: zzekerc1_ 14 9 4 4 4 13 4 12 4 4 124 */
  973.  
  974. extern int zzeklerd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
  975. /*:ref: failed_ 12 0 */
  976. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  977. /*:ref: chkin_ 14 2 13 124 */
  978. /*:ref: setmsg_ 14 2 13 124 */
  979. /*:ref: errch_ 14 4 13 13 124 124 */
  980. /*:ref: sigerr_ 14 2 13 124 */
  981. /*:ref: chkout_ 14 2 13 124 */
  982. /*:ref: errint_ 14 3 13 4 124 */
  983. /*:ref: zzekerd1_ 14 8 4 4 4 7 4 12 4 4 */
  984.  
  985. extern int zzekleri_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *recptr, logical *null, integer *prvidx, integer *prvptr);
  986. /*:ref: failed_ 12 0 */
  987. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  988. /*:ref: chkin_ 14 2 13 124 */
  989. /*:ref: setmsg_ 14 2 13 124 */
  990. /*:ref: errch_ 14 4 13 13 124 124 */
  991. /*:ref: sigerr_ 14 2 13 124 */
  992. /*:ref: chkout_ 14 2 13 124 */
  993. /*:ref: errint_ 14 3 13 4 124 */
  994. /*:ref: zzekeri1_ 14 8 4 4 4 4 4 12 4 4 */
  995.  
  996. extern int zzekllec_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len);
  997. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  998. /*:ref: chkin_ 14 2 13 124 */
  999. /*:ref: setmsg_ 14 2 13 124 */
  1000. /*:ref: errch_ 14 4 13 13 124 124 */
  1001. /*:ref: sigerr_ 14 2 13 124 */
  1002. /*:ref: chkout_ 14 2 13 124 */
  1003. /*:ref: errint_ 14 3 13 4 124 */
  1004. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1005. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1006.  
  1007. extern int zzeklled_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr);
  1008. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1009. /*:ref: chkin_ 14 2 13 124 */
  1010. /*:ref: setmsg_ 14 2 13 124 */
  1011. /*:ref: errch_ 14 4 13 13 124 124 */
  1012. /*:ref: sigerr_ 14 2 13 124 */
  1013. /*:ref: chkout_ 14 2 13 124 */
  1014. /*:ref: errint_ 14 3 13 4 124 */
  1015. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1016. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1017.  
  1018. extern int zzekllei_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr);
  1019. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1020. /*:ref: chkin_ 14 2 13 124 */
  1021. /*:ref: setmsg_ 14 2 13 124 */
  1022. /*:ref: errch_ 14 4 13 13 124 124 */
  1023. /*:ref: sigerr_ 14 2 13 124 */
  1024. /*:ref: chkout_ 14 2 13 124 */
  1025. /*:ref: errint_ 14 3 13 4 124 */
  1026. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1027. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1028.  
  1029. extern int zzeklltc_(integer *handle, integer *segdsc, integer *coldsc, char *ckey, integer *prvloc, integer *prvptr, ftnlen ckey_len);
  1030. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1031. /*:ref: chkin_ 14 2 13 124 */
  1032. /*:ref: setmsg_ 14 2 13 124 */
  1033. /*:ref: errch_ 14 4 13 13 124 124 */
  1034. /*:ref: sigerr_ 14 2 13 124 */
  1035. /*:ref: chkout_ 14 2 13 124 */
  1036. /*:ref: errint_ 14 3 13 4 124 */
  1037. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1038. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1039.  
  1040. extern int zzeklltd_(integer *handle, integer *segdsc, integer *coldsc, doublereal *dkey, integer *prvloc, integer *prvptr);
  1041. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1042. /*:ref: chkin_ 14 2 13 124 */
  1043. /*:ref: setmsg_ 14 2 13 124 */
  1044. /*:ref: errch_ 14 4 13 13 124 124 */
  1045. /*:ref: sigerr_ 14 2 13 124 */
  1046. /*:ref: chkout_ 14 2 13 124 */
  1047. /*:ref: errint_ 14 3 13 4 124 */
  1048. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1049. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1050.  
  1051. extern int zzekllti_(integer *handle, integer *segdsc, integer *coldsc, integer *ikey, integer *prvloc, integer *prvptr);
  1052. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1053. /*:ref: chkin_ 14 2 13 124 */
  1054. /*:ref: setmsg_ 14 2 13 124 */
  1055. /*:ref: errch_ 14 4 13 13 124 124 */
  1056. /*:ref: sigerr_ 14 2 13 124 */
  1057. /*:ref: chkout_ 14 2 13 124 */
  1058. /*:ref: errint_ 14 3 13 4 124 */
  1059. /*:ref: zzekixlk_ 14 4 4 4 4 4 */
  1060. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1061.  
  1062. extern int zzekmloc_(integer *handle, integer *segno, integer *page, integer *base);
  1063. /*:ref: eknseg_ 4 1 4 */
  1064. /*:ref: chkin_ 14 2 13 124 */
  1065. /*:ref: setmsg_ 14 2 13 124 */
  1066. /*:ref: errint_ 14 3 13 4 124 */
  1067. /*:ref: sigerr_ 14 2 13 124 */
  1068. /*:ref: chkout_ 14 2 13 124 */
  1069. /*:ref: zzektrbs_ 4 1 4 */
  1070. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1071. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  1072.  
  1073. extern int zzeknres_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
  1074. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1075. /*:ref: failed_ 12 0 */
  1076. /*:ref: chkin_ 14 2 13 124 */
  1077. /*:ref: setmsg_ 14 2 13 124 */
  1078. /*:ref: sigerr_ 14 2 13 124 */
  1079. /*:ref: chkout_ 14 2 13 124 */
  1080. /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
  1081. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1082. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1083. /*:ref: ekntab_ 14 1 4 */
  1084. /*:ref: ektnam_ 14 3 4 13 124 */
  1085. /*:ref: ekccnt_ 14 3 13 4 124 */
  1086. /*:ref: zzekcchk_ 14 15 13 4 13 4 13 13 4 12 13 4 124 124 124 124 124 */
  1087. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  1088.  
  1089. extern int zzeknrml_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len);
  1090. /*:ref: return_ 12 0 */
  1091. /*:ref: chkin_ 14 2 13 124 */
  1092. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1093. /*:ref: chkout_ 14 2 13 124 */
  1094. /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */
  1095. /*:ref: lnkini_ 14 2 4 4 */
  1096. /*:ref: lnkan_ 14 2 4 4 */
  1097. /*:ref: lnkila_ 14 3 4 4 4 */
  1098. /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */
  1099. /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */
  1100. /*:ref: isrchi_ 4 3 4 4 4 */
  1101. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1102. /*:ref: lnkhl_ 4 2 4 4 */
  1103. /*:ref: lnkprv_ 4 2 4 4 */
  1104. /*:ref: lnknxt_ 4 2 4 4 */
  1105. /*:ref: lnkfsl_ 14 3 4 4 4 */
  1106. /*:ref: cleari_ 14 2 4 4 */
  1107. /*:ref: lnkilb_ 14 3 4 4 4 */
  1108. /*:ref: lnknfn_ 4 1 4 */
  1109. /*:ref: lnktl_ 4 2 4 4 */
  1110. /*:ref: ssizei_ 14 2 4 4 */
  1111. /*:ref: insrti_ 14 2 4 4 */
  1112. /*:ref: cardi_ 4 1 4 */
  1113. /*:ref: appndi_ 14 2 4 4 */
  1114. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  1115.  
  1116. extern int zzekordc_(char *cvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder, ftnlen cvals_len);
  1117. /*:ref: swapi_ 14 2 4 4 */
  1118.  
  1119. extern int zzekordd_(doublereal *dvals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder);
  1120. /*:ref: swapi_ 14 2 4 4 */
  1121.  
  1122. extern int zzekordi_(integer *ivals, logical *nullok, logical *nlflgs, integer *nvals, integer *iorder);
  1123. /*:ref: swapi_ 14 2 4 4 */
  1124.  
  1125. extern int zzekpage_(integer *handle, integer *type__, integer *addrss, char *stat, integer *p, char *pagec, doublereal *paged, integer *pagei, integer *base, integer *value, ftnlen stat_len, ftnlen pagec_len);
  1126. extern int zzekpgin_(integer *handle);
  1127. extern int zzekpgan_(integer *handle, integer *type__, integer *p, integer *base);
  1128. extern int zzekpgal_(integer *handle, integer *type__, integer *p, integer *base);
  1129. extern int zzekpgfr_(integer *handle, integer *type__, integer *p);
  1130. extern int zzekpgrc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len);
  1131. extern int zzekpgrd_(integer *handle, integer *p, doublereal *paged);
  1132. extern int zzekpgri_(integer *handle, integer *p, integer *pagei);
  1133. extern int zzekpgwc_(integer *handle, integer *p, char *pagec, ftnlen pagec_len);
  1134. extern int zzekpgwd_(integer *handle, integer *p, doublereal *paged);
  1135. extern int zzekpgwi_(integer *handle, integer *p, integer *pagei);
  1136. extern int zzekpgbs_(integer *type__, integer *p, integer *base);
  1137. extern int zzekpgpg_(integer *type__, integer *addrss, integer *p, integer *base);
  1138. extern int zzekpgst_(integer *handle, char *stat, integer *value, ftnlen stat_len);
  1139. /*:ref: sigerr_ 14 2 13 124 */
  1140. /*:ref: chkin_ 14 2 13 124 */
  1141. /*:ref: dassih_ 14 3 4 13 124 */
  1142. /*:ref: failed_ 12 0 */
  1143. /*:ref: chkout_ 14 2 13 124 */
  1144. /*:ref: daslla_ 14 4 4 4 4 4 */
  1145. /*:ref: dashlu_ 14 2 4 4 */
  1146. /*:ref: setmsg_ 14 2 13 124 */
  1147. /*:ref: errfnm_ 14 3 13 4 124 */
  1148. /*:ref: errint_ 14 3 13 4 124 */
  1149. /*:ref: fillc_ 14 5 13 4 13 124 124 */
  1150. /*:ref: filld_ 14 3 7 4 7 */
  1151. /*:ref: filli_ 14 3 4 4 4 */
  1152. /*:ref: dasadi_ 14 3 4 4 4 */
  1153. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1154. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1155. /*:ref: dasadc_ 14 6 4 4 4 4 13 124 */
  1156. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1157. /*:ref: dasadd_ 14 3 4 4 7 */
  1158. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1159. /*:ref: prtdec_ 14 3 13 4 124 */
  1160. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  1161. /*:ref: prtenc_ 14 3 4 13 124 */
  1162. /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
  1163. /*:ref: dasudd_ 14 4 4 4 4 7 */
  1164. /*:ref: eqstr_ 12 4 13 13 124 124 */
  1165. /*:ref: errch_ 14 4 13 13 124 124 */
  1166.  
  1167. extern int zzekpars_(char *query, integer *ntoken, integer *lxbegs, integer *lxends, integer *tokens, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *prserr, ftnlen query_len, ftnlen chrbuf_len, ftnlen eqryc_len, ftnlen prserr_len);
  1168. /*:ref: return_ 12 0 */
  1169. /*:ref: chkin_ 14 2 13 124 */
  1170. /*:ref: zzekqini_ 14 6 4 4 4 13 7 124 */
  1171. /*:ref: failed_ 12 0 */
  1172. /*:ref: chkout_ 14 2 13 124 */
  1173. /*:ref: zzektloc_ 14 7 4 4 4 4 4 4 12 */
  1174. /*:ref: zzekinqc_ 14 9 13 4 4 4 4 13 4 124 124 */
  1175. /*:ref: appndi_ 14 2 4 4 */
  1176. /*:ref: cleari_ 14 2 4 4 */
  1177. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  1178. /*:ref: movei_ 14 3 4 4 4 */
  1179. /*:ref: cardi_ 4 1 4 */
  1180. /*:ref: zzeknrml_ 14 19 13 4 4 4 4 4 7 13 4 4 4 13 7 12 13 124 124 124 124 */
  1181. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1182. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1183.  
  1184. extern int zzekpcol_(char *qcol, integer *eqryi, char *eqryc, char *table, char *alias, integer *tabidx, char *column, integer *colidx, logical *error, char *errmsg, ftnlen qcol_len, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len, ftnlen column_len, ftnlen errmsg_len);
  1185. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1186. /*:ref: failed_ 12 0 */
  1187. /*:ref: chkin_ 14 2 13 124 */
  1188. /*:ref: setmsg_ 14 2 13 124 */
  1189. /*:ref: sigerr_ 14 2 13 124 */
  1190. /*:ref: chkout_ 14 2 13 124 */
  1191. /*:ref: zzekscan_ 14 17 13 4 4 4 4 4 4 4 7 13 4 4 12 13 124 124 124 */
  1192. /*:ref: ucase_ 14 4 13 13 124 124 */
  1193. /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
  1194. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1195. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1196. /*:ref: ekccnt_ 14 3 13 4 124 */
  1197. /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
  1198.  
  1199. extern int zzekpdec_(char *decl, integer *pardsc, ftnlen decl_len);
  1200. /*:ref: return_ 12 0 */
  1201. /*:ref: chkin_ 14 2 13 124 */
  1202. /*:ref: cleari_ 14 2 4 4 */
  1203. /*:ref: lparsm_ 14 8 13 13 4 4 13 124 124 124 */
  1204. /*:ref: ucase_ 14 4 13 13 124 124 */
  1205. /*:ref: setmsg_ 14 2 13 124 */
  1206. /*:ref: errch_ 14 4 13 13 124 124 */
  1207. /*:ref: sigerr_ 14 2 13 124 */
  1208. /*:ref: chkout_ 14 2 13 124 */
  1209. /*:ref: eqstr_ 12 4 13 13 124 124 */
  1210. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  1211. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  1212.  
  1213. extern int zzekpgch_(integer *handle, char *access, ftnlen access_len);
  1214. /*:ref: chkin_ 14 2 13 124 */
  1215. /*:ref: dassih_ 14 3 4 13 124 */
  1216. /*:ref: failed_ 12 0 */
  1217. /*:ref: chkout_ 14 2 13 124 */
  1218. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1219. /*:ref: dashlu_ 14 2 4 4 */
  1220. /*:ref: setmsg_ 14 2 13 124 */
  1221. /*:ref: errfnm_ 14 3 13 4 124 */
  1222. /*:ref: errint_ 14 3 13 4 124 */
  1223. /*:ref: sigerr_ 14 2 13 124 */
  1224. /*:ref: daslla_ 14 4 4 4 4 4 */
  1225.  
  1226. extern int zzekqcnj_(integer *eqryi, integer *n, integer *size);
  1227. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1228. /*:ref: failed_ 12 0 */
  1229. /*:ref: chkin_ 14 2 13 124 */
  1230. /*:ref: setmsg_ 14 2 13 124 */
  1231. /*:ref: sigerr_ 14 2 13 124 */
  1232. /*:ref: chkout_ 14 2 13 124 */
  1233. /*:ref: errint_ 14 3 13 4 124 */
  1234.  
  1235. extern int zzekqcon_(integer *eqryi, char *eqryc, doublereal *eqryd, integer *n, integer *cnstyp, char *ltname, integer *ltidx, char *lcname, integer *lcidx, integer *opcode, char *rtname, integer *rtidx, char *rcname, integer *rcidx, integer *dtype, integer *cbeg, integer *cend, doublereal *dval, integer *ival, ftnlen eqryc_len, ftnlen ltname_len, ftnlen lcname_len, ftnlen rtname_len, ftnlen rcname_len);
  1236. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1237. /*:ref: failed_ 12 0 */
  1238. /*:ref: chkin_ 14 2 13 124 */
  1239. /*:ref: setmsg_ 14 2 13 124 */
  1240. /*:ref: sigerr_ 14 2 13 124 */
  1241. /*:ref: chkout_ 14 2 13 124 */
  1242. /*:ref: errint_ 14 3 13 4 124 */
  1243.  
  1244. extern int zzekqini_(integer *isize, integer *dsize, integer *eqryi, char *eqryc, doublereal *eqryd, ftnlen eqryc_len);
  1245. /*:ref: return_ 12 0 */
  1246. /*:ref: chkin_ 14 2 13 124 */
  1247. /*:ref: setmsg_ 14 2 13 124 */
  1248. /*:ref: errint_ 14 3 13 4 124 */
  1249. /*:ref: sigerr_ 14 2 13 124 */
  1250. /*:ref: chkout_ 14 2 13 124 */
  1251. /*:ref: ssizei_ 14 2 4 4 */
  1252. /*:ref: cleard_ 14 2 4 7 */
  1253. /*:ref: appndi_ 14 2 4 4 */
  1254. /*:ref: cleari_ 14 2 4 4 */
  1255.  
  1256. extern int zzekqord_(integer *eqryi, char *eqryc, integer *n, char *table, integer *tabidx, char *column, integer *colidx, integer *sense, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len);
  1257. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1258. /*:ref: failed_ 12 0 */
  1259. /*:ref: chkin_ 14 2 13 124 */
  1260. /*:ref: setmsg_ 14 2 13 124 */
  1261. /*:ref: sigerr_ 14 2 13 124 */
  1262. /*:ref: chkout_ 14 2 13 124 */
  1263. /*:ref: errint_ 14 3 13 4 124 */
  1264.  
  1265. extern int zzekqsel_(integer *eqryi, char *eqryc, integer *n, integer *lxbeg, integer *lxend, char *table, integer *tabidx, char *column, integer *colidx, ftnlen eqryc_len, ftnlen table_len, ftnlen column_len);
  1266. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1267. /*:ref: failed_ 12 0 */
  1268. /*:ref: chkin_ 14 2 13 124 */
  1269. /*:ref: setmsg_ 14 2 13 124 */
  1270. /*:ref: sigerr_ 14 2 13 124 */
  1271. /*:ref: chkout_ 14 2 13 124 */
  1272. /*:ref: errint_ 14 3 13 4 124 */
  1273.  
  1274. extern int zzekqtab_(integer *eqryi, char *eqryc, integer *n, char *table, char *alias, ftnlen eqryc_len, ftnlen table_len, ftnlen alias_len);
  1275. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1276. /*:ref: failed_ 12 0 */
  1277. /*:ref: chkin_ 14 2 13 124 */
  1278. /*:ref: setmsg_ 14 2 13 124 */
  1279. /*:ref: sigerr_ 14 2 13 124 */
  1280. /*:ref: chkout_ 14 2 13 124 */
  1281. /*:ref: errint_ 14 3 13 4 124 */
  1282.  
  1283. extern int zzekrbck_(char *action, integer *handle, integer *segdsc, integer *coldsc, integer *recno, ftnlen action_len);
  1284.  
  1285. extern logical zzekrcmp_(integer *op, integer *ncols, integer *han1, integer *sgdsc1, integer *cdlst1, integer *row1, integer *elts1, integer *han2, integer *sgdsc2, integer *cdlst2, integer *row2, integer *elts2);
  1286. /*:ref: movei_ 14 3 4 4 4 */
  1287. /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
  1288. /*:ref: chkin_ 14 2 13 124 */
  1289. /*:ref: setmsg_ 14 2 13 124 */
  1290. /*:ref: errint_ 14 3 13 4 124 */
  1291. /*:ref: sigerr_ 14 2 13 124 */
  1292. /*:ref: chkout_ 14 2 13 124 */
  1293.  
  1294. extern int zzekrd01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
  1295. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1296. /*:ref: dashlu_ 14 2 4 4 */
  1297. /*:ref: chkin_ 14 2 13 124 */
  1298. /*:ref: setmsg_ 14 2 13 124 */
  1299. /*:ref: errint_ 14 3 13 4 124 */
  1300. /*:ref: errfnm_ 14 3 13 4 124 */
  1301. /*:ref: sigerr_ 14 2 13 124 */
  1302. /*:ref: chkout_ 14 2 13 124 */
  1303. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1304.  
  1305. extern int zzekrd02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
  1306. /*:ref: dashlu_ 14 2 4 4 */
  1307. /*:ref: chkin_ 14 2 13 124 */
  1308. /*:ref: setmsg_ 14 2 13 124 */
  1309. /*:ref: errint_ 14 3 13 4 124 */
  1310. /*:ref: sigerr_ 14 2 13 124 */
  1311. /*:ref: chkout_ 14 2 13 124 */
  1312. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1313. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  1314. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1315. /*:ref: errfnm_ 14 3 13 4 124 */
  1316.  
  1317. extern int zzekrd03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len);
  1318. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1319. /*:ref: dashlu_ 14 2 4 4 */
  1320. /*:ref: chkin_ 14 2 13 124 */
  1321. /*:ref: setmsg_ 14 2 13 124 */
  1322. /*:ref: errint_ 14 3 13 4 124 */
  1323. /*:ref: errfnm_ 14 3 13 4 124 */
  1324. /*:ref: sigerr_ 14 2 13 124 */
  1325. /*:ref: chkout_ 14 2 13 124 */
  1326. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1327. /*:ref: zzekgei_ 14 3 4 4 4 */
  1328. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1329. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1330. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1331. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1332. /*:ref: errch_ 14 4 13 13 124 124 */
  1333.  
  1334. extern int zzekrd04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, integer *ivals, logical *isnull, logical *found);
  1335. /*:ref: chkin_ 14 2 13 124 */
  1336. /*:ref: setmsg_ 14 2 13 124 */
  1337. /*:ref: errint_ 14 3 13 4 124 */
  1338. /*:ref: sigerr_ 14 2 13 124 */
  1339. /*:ref: chkout_ 14 2 13 124 */
  1340. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1341. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1342. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1343. /*:ref: failed_ 12 0 */
  1344. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  1345. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1346. /*:ref: dashlu_ 14 2 4 4 */
  1347. /*:ref: errfnm_ 14 3 13 4 124 */
  1348.  
  1349. extern int zzekrd05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, doublereal *dvals, logical *isnull, logical *found);
  1350. /*:ref: chkin_ 14 2 13 124 */
  1351. /*:ref: setmsg_ 14 2 13 124 */
  1352. /*:ref: errint_ 14 3 13 4 124 */
  1353. /*:ref: sigerr_ 14 2 13 124 */
  1354. /*:ref: chkout_ 14 2 13 124 */
  1355. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1356. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  1357. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1358. /*:ref: zzekgfwd_ 14 4 4 4 4 4 */
  1359. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1360. /*:ref: failed_ 12 0 */
  1361. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1362. /*:ref: dashlu_ 14 2 4 4 */
  1363. /*:ref: errfnm_ 14 3 13 4 124 */
  1364.  
  1365. extern int zzekrd06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *beg, integer *end, char *cvals, logical *isnull, logical *found, ftnlen cvals_len);
  1366. /*:ref: chkin_ 14 2 13 124 */
  1367. /*:ref: setmsg_ 14 2 13 124 */
  1368. /*:ref: errint_ 14 3 13 4 124 */
  1369. /*:ref: sigerr_ 14 2 13 124 */
  1370. /*:ref: chkout_ 14 2 13 124 */
  1371. /*:ref: dashlu_ 14 2 4 4 */
  1372. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1373. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1374. /*:ref: errch_ 14 4 13 13 124 124 */
  1375. /*:ref: errfnm_ 14 3 13 4 124 */
  1376. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1377. /*:ref: zzekgei_ 14 3 4 4 4 */
  1378. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1379. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1380. /*:ref: failed_ 12 0 */
  1381. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1382.  
  1383. extern int zzekrd07_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
  1384. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1385. /*:ref: dashlu_ 14 2 4 4 */
  1386. /*:ref: chkin_ 14 2 13 124 */
  1387. /*:ref: setmsg_ 14 2 13 124 */
  1388. /*:ref: errint_ 14 3 13 4 124 */
  1389. /*:ref: errfnm_ 14 3 13 4 124 */
  1390. /*:ref: sigerr_ 14 2 13 124 */
  1391. /*:ref: chkout_ 14 2 13 124 */
  1392. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1393. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1394.  
  1395. extern int zzekrd08_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
  1396. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1397. /*:ref: dashlu_ 14 2 4 4 */
  1398. /*:ref: chkin_ 14 2 13 124 */
  1399. /*:ref: setmsg_ 14 2 13 124 */
  1400. /*:ref: errint_ 14 3 13 4 124 */
  1401. /*:ref: sigerr_ 14 2 13 124 */
  1402. /*:ref: chkout_ 14 2 13 124 */
  1403. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1404. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1405. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  1406.  
  1407. extern int zzekrd09_(integer *handle, integer *segdsc, integer *coldsc, integer *recno, integer *cvlen, char *cval, logical *isnull, ftnlen cval_len);
  1408. /*:ref: dashlu_ 14 2 4 4 */
  1409. /*:ref: chkin_ 14 2 13 124 */
  1410. /*:ref: setmsg_ 14 2 13 124 */
  1411. /*:ref: errint_ 14 3 13 4 124 */
  1412. /*:ref: errfnm_ 14 3 13 4 124 */
  1413. /*:ref: sigerr_ 14 2 13 124 */
  1414. /*:ref: chkout_ 14 2 13 124 */
  1415. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1416. /*:ref: errch_ 14 4 13 13 124 124 */
  1417. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1418. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1419.  
  1420. extern int zzekreqi_(integer *eqryi, char *name__, integer *value, ftnlen name_len);
  1421. /*:ref: ljust_ 14 4 13 13 124 124 */
  1422. /*:ref: ucase_ 14 4 13 13 124 124 */
  1423. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1424. /*:ref: chkin_ 14 2 13 124 */
  1425. /*:ref: setmsg_ 14 2 13 124 */
  1426. /*:ref: errch_ 14 4 13 13 124 124 */
  1427. /*:ref: sigerr_ 14 2 13 124 */
  1428. /*:ref: chkout_ 14 2 13 124 */
  1429.  
  1430. extern logical zzekrmch_(integer *ncnstr, logical *active, integer *handle, integer *segdsc, integer *cdscrs, integer *row, integer *elts, integer *ops, integer *vtypes, char *chrbuf, integer *cbegs, integer *cends, doublereal *dvals, integer *ivals, ftnlen chrbuf_len);
  1431. /*:ref: zzekscmp_ 12 12 4 4 4 4 4 4 4 13 7 4 12 124 */
  1432.  
  1433. extern integer zzekrp2n_(integer *handle, integer *segno, integer *recptr);
  1434. /*:ref: zzeksdsc_ 14 3 4 4 4 */
  1435. /*:ref: failed_ 12 0 */
  1436. /*:ref: zzektrls_ 4 3 4 4 4 */
  1437. /*:ref: dashlu_ 14 2 4 4 */
  1438. /*:ref: chkin_ 14 2 13 124 */
  1439. /*:ref: setmsg_ 14 2 13 124 */
  1440. /*:ref: errint_ 14 3 13 4 124 */
  1441. /*:ref: errfnm_ 14 3 13 4 124 */
  1442. /*:ref: sigerr_ 14 2 13 124 */
  1443. /*:ref: chkout_ 14 2 13 124 */
  1444.  
  1445. extern int zzekrplk_(integer *handle, integer *segdsc, integer *n, integer *recptr);
  1446. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  1447. /*:ref: chkin_ 14 2 13 124 */
  1448. /*:ref: setmsg_ 14 2 13 124 */
  1449. /*:ref: errint_ 14 3 13 4 124 */
  1450. /*:ref: sigerr_ 14 2 13 124 */
  1451. /*:ref: chkout_ 14 2 13 124 */
  1452.  
  1453. extern int zzekrsc_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *cvlen, char *cval, logical *isnull, logical *found, ftnlen cval_len);
  1454. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1455. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1456. /*:ref: chkin_ 14 2 13 124 */
  1457. /*:ref: dashlu_ 14 2 4 4 */
  1458. /*:ref: setmsg_ 14 2 13 124 */
  1459. /*:ref: errch_ 14 4 13 13 124 124 */
  1460. /*:ref: errint_ 14 3 13 4 124 */
  1461. /*:ref: errfnm_ 14 3 13 4 124 */
  1462. /*:ref: sigerr_ 14 2 13 124 */
  1463. /*:ref: chkout_ 14 2 13 124 */
  1464. /*:ref: zzekrd03_ 14 8 4 4 4 4 4 13 12 124 */
  1465. /*:ref: zzekrd06_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  1466. /*:ref: zzekrd09_ 14 8 4 4 4 4 4 13 12 124 */
  1467.  
  1468. extern int zzekrsd_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, doublereal *dval, logical *isnull, logical *found);
  1469. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1470. /*:ref: dashlu_ 14 2 4 4 */
  1471. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1472. /*:ref: chkin_ 14 2 13 124 */
  1473. /*:ref: setmsg_ 14 2 13 124 */
  1474. /*:ref: errch_ 14 4 13 13 124 124 */
  1475. /*:ref: errint_ 14 3 13 4 124 */
  1476. /*:ref: errfnm_ 14 3 13 4 124 */
  1477. /*:ref: sigerr_ 14 2 13 124 */
  1478. /*:ref: chkout_ 14 2 13 124 */
  1479. /*:ref: zzekrd02_ 14 6 4 4 4 4 7 12 */
  1480. /*:ref: zzekrd05_ 14 9 4 4 4 4 4 4 7 12 12 */
  1481. /*:ref: zzekrd08_ 14 6 4 4 4 4 7 12 */
  1482.  
  1483. extern int zzekrsi_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *eltidx, integer *ival, logical *isnull, logical *found);
  1484. /*:ref: zzekcnam_ 14 4 4 4 13 124 */
  1485. /*:ref: dashlu_ 14 2 4 4 */
  1486. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1487. /*:ref: chkin_ 14 2 13 124 */
  1488. /*:ref: setmsg_ 14 2 13 124 */
  1489. /*:ref: errch_ 14 4 13 13 124 124 */
  1490. /*:ref: errint_ 14 3 13 4 124 */
  1491. /*:ref: errfnm_ 14 3 13 4 124 */
  1492. /*:ref: sigerr_ 14 2 13 124 */
  1493. /*:ref: chkout_ 14 2 13 124 */
  1494. /*:ref: zzekrd01_ 14 6 4 4 4 4 4 12 */
  1495. /*:ref: zzekrd04_ 14 9 4 4 4 4 4 4 4 12 12 */
  1496. /*:ref: zzekrd07_ 14 6 4 4 4 4 4 12 */
  1497.  
  1498. extern int zzeksca_(integer *n, integer *beg, integer *end, integer *idata, integer *top);
  1499. extern int zzekstop_(integer *top);
  1500. extern int zzekspsh_(integer *n, integer *idata);
  1501. extern int zzekspop_(integer *n, integer *idata);
  1502. extern int zzeksdec_(integer *n);
  1503. extern int zzeksupd_(integer *beg, integer *end, integer *idata);
  1504. extern int zzeksrd_(integer *beg, integer *end, integer *idata);
  1505. extern int zzekscln_(void);
  1506. /*:ref: return_ 12 0 */
  1507. /*:ref: chkin_ 14 2 13 124 */
  1508. /*:ref: sigerr_ 14 2 13 124 */
  1509. /*:ref: chkout_ 14 2 13 124 */
  1510. /*:ref: dasops_ 14 1 4 */
  1511. /*:ref: failed_ 12 0 */
  1512. /*:ref: daslla_ 14 4 4 4 4 4 */
  1513. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1514. /*:ref: dasadi_ 14 3 4 4 4 */
  1515. /*:ref: setmsg_ 14 2 13 124 */
  1516. /*:ref: errint_ 14 3 13 4 124 */
  1517. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1518. /*:ref: cleari_ 14 2 4 4 */
  1519. /*:ref: daswbr_ 14 1 4 */
  1520. /*:ref: dasllc_ 14 1 4 */
  1521.  
  1522. extern int zzekscan_(char *query, integer *maxntk, integer *maxnum, integer *ntoken, integer *tokens, integer *lxbegs, integer *lxends, integer *values, doublereal *numvls, char *chrbuf, integer *chbegs, integer *chends, logical *scnerr, char *errmsg, ftnlen query_len, ftnlen chrbuf_len, ftnlen errmsg_len);
  1523. /*:ref: return_ 12 0 */
  1524. /*:ref: chkin_ 14 2 13 124 */
  1525. /*:ref: ssizei_ 14 2 4 4 */
  1526. /*:ref: lxcsid_ 14 5 13 13 4 124 124 */
  1527. /*:ref: rtrim_ 4 2 13 124 */
  1528. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1529. /*:ref: chkout_ 14 2 13 124 */
  1530. /*:ref: lxqstr_ 14 7 13 13 4 4 4 124 124 */
  1531. /*:ref: parsqs_ 14 11 13 13 13 4 12 13 4 124 124 124 124 */
  1532. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  1533. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1534. /*:ref: lx4num_ 14 5 13 4 4 4 124 */
  1535. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  1536. /*:ref: beint_ 12 2 13 124 */
  1537. /*:ref: lxidnt_ 14 6 4 13 4 4 4 124 */
  1538. /*:ref: ucase_ 14 4 13 13 124 124 */
  1539. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  1540. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  1541. /*:ref: frstpc_ 4 2 13 124 */
  1542. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1543.  
  1544. extern int zzekscdp_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *datptr);
  1545. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1546. /*:ref: failed_ 12 0 */
  1547. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1548. /*:ref: dashlu_ 14 2 4 4 */
  1549. /*:ref: chkin_ 14 2 13 124 */
  1550. /*:ref: setmsg_ 14 2 13 124 */
  1551. /*:ref: errint_ 14 3 13 4 124 */
  1552. /*:ref: errfnm_ 14 3 13 4 124 */
  1553. /*:ref: sigerr_ 14 2 13 124 */
  1554. /*:ref: chkout_ 14 2 13 124 */
  1555. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1556.  
  1557. extern logical zzekscmp_(integer *op, integer *handle, integer *segdsc, integer *coldsc, integer *row, integer *eltidx, integer *dtype, char *cval, doublereal *dval, integer *ival, logical *null, ftnlen cval_len);
  1558. /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  1559. /*:ref: zzekrsd_ 14 8 4 4 4 4 4 7 12 12 */
  1560. /*:ref: zzekrsi_ 14 8 4 4 4 4 4 4 12 12 */
  1561. /*:ref: chkin_ 14 2 13 124 */
  1562. /*:ref: setmsg_ 14 2 13 124 */
  1563. /*:ref: errint_ 14 3 13 4 124 */
  1564. /*:ref: sigerr_ 14 2 13 124 */
  1565. /*:ref: chkout_ 14 2 13 124 */
  1566. /*:ref: dashlu_ 14 2 4 4 */
  1567. /*:ref: errfnm_ 14 3 13 4 124 */
  1568. /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
  1569.  
  1570. extern int zzeksdsc_(integer *handle, integer *segno, integer *segdsc);
  1571. /*:ref: zzekmloc_ 14 4 4 4 4 4 */
  1572. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1573.  
  1574. extern int zzeksei_(integer *handle, integer *addrss, integer *ival);
  1575. /*:ref: prtenc_ 14 3 4 13 124 */
  1576. /*:ref: dasudc_ 14 7 4 4 4 4 4 13 124 */
  1577.  
  1578. extern int zzeksemc_(char *query, integer *eqryi, char *eqryc, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
  1579. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1580. /*:ref: failed_ 12 0 */
  1581. /*:ref: chkin_ 14 2 13 124 */
  1582. /*:ref: setmsg_ 14 2 13 124 */
  1583. /*:ref: sigerr_ 14 2 13 124 */
  1584. /*:ref: chkout_ 14 2 13 124 */
  1585. /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
  1586. /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
  1587. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1588. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  1589. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  1590.  
  1591. extern int zzeksfwd_(integer *handle, integer *type__, integer *p, integer *fward);
  1592. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1593. /*:ref: failed_ 12 0 */
  1594. /*:ref: zzeksei_ 14 3 4 4 4 */
  1595. /*:ref: dasudd_ 14 4 4 4 4 7 */
  1596. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1597.  
  1598. extern int zzeksinf_(integer *handle, integer *segno, char *tabnam, integer *segdsc, char *cnames, integer *cdscrs, ftnlen tabnam_len, ftnlen cnames_len);
  1599. /*:ref: return_ 12 0 */
  1600. /*:ref: chkin_ 14 2 13 124 */
  1601. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1602. /*:ref: failed_ 12 0 */
  1603. /*:ref: chkout_ 14 2 13 124 */
  1604. /*:ref: eknseg_ 4 1 4 */
  1605. /*:ref: setmsg_ 14 2 13 124 */
  1606. /*:ref: errint_ 14 3 13 4 124 */
  1607. /*:ref: sigerr_ 14 2 13 124 */
  1608. /*:ref: zzekmloc_ 14 4 4 4 4 4 */
  1609. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1610. /*:ref: dasrdc_ 14 7 4 4 4 4 4 13 124 */
  1611.  
  1612. extern int zzekslnk_(integer *handle, integer *type__, integer *p, integer *nlinks);
  1613. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1614. /*:ref: failed_ 12 0 */
  1615. /*:ref: zzeksei_ 14 3 4 4 4 */
  1616. /*:ref: dasudd_ 14 4 4 4 4 7 */
  1617. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1618.  
  1619. extern int zzeksrcp_(integer *handle, integer *recptr, integer *recno);
  1620. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1621. /*:ref: failed_ 12 0 */
  1622. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1623.  
  1624. extern int zzeksrs_(integer *handle, integer *recptr, integer *status);
  1625. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1626. /*:ref: failed_ 12 0 */
  1627. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1628.  
  1629. extern integer zzekstyp_(integer *ncols, integer *cdscrs);
  1630. /*:ref: return_ 12 0 */
  1631. /*:ref: chkin_ 14 2 13 124 */
  1632. /*:ref: setmsg_ 14 2 13 124 */
  1633. /*:ref: sigerr_ 14 2 13 124 */
  1634. /*:ref: chkout_ 14 2 13 124 */
  1635.  
  1636. extern integer zzeksz04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  1637. /*:ref: chkin_ 14 2 13 124 */
  1638. /*:ref: setmsg_ 14 2 13 124 */
  1639. /*:ref: errint_ 14 3 13 4 124 */
  1640. /*:ref: sigerr_ 14 2 13 124 */
  1641. /*:ref: chkout_ 14 2 13 124 */
  1642. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1643.  
  1644. extern integer zzeksz05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  1645. /*:ref: chkin_ 14 2 13 124 */
  1646. /*:ref: setmsg_ 14 2 13 124 */
  1647. /*:ref: errint_ 14 3 13 4 124 */
  1648. /*:ref: sigerr_ 14 2 13 124 */
  1649. /*:ref: chkout_ 14 2 13 124 */
  1650. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1651. /*:ref: dasrdd_ 14 4 4 4 4 7 */
  1652.  
  1653. extern integer zzeksz06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr);
  1654. /*:ref: chkin_ 14 2 13 124 */
  1655. /*:ref: setmsg_ 14 2 13 124 */
  1656. /*:ref: errint_ 14 3 13 4 124 */
  1657. /*:ref: sigerr_ 14 2 13 124 */
  1658. /*:ref: chkout_ 14 2 13 124 */
  1659. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1660. /*:ref: zzekgei_ 14 3 4 4 4 */
  1661.  
  1662. extern int zzektcnv_(char *timstr, doublereal *et, logical *error, char *errmsg, ftnlen timstr_len, ftnlen errmsg_len);
  1663. /*:ref: return_ 12 0 */
  1664. /*:ref: chkin_ 14 2 13 124 */
  1665. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  1666. /*:ref: ljust_ 14 4 13 13 124 124 */
  1667. /*:ref: ucase_ 14 4 13 13 124 124 */
  1668. /*:ref: posr_ 4 5 13 13 4 124 124 */
  1669. /*:ref: rtrim_ 4 2 13 124 */
  1670. /*:ref: scn2id_ 14 4 13 4 12 124 */
  1671. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  1672. /*:ref: chkout_ 14 2 13 124 */
  1673. /*:ref: scpars_ 14 7 4 13 12 13 7 124 124 */
  1674. /*:ref: failed_ 12 0 */
  1675. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  1676. /*:ref: sct2e_ 14 3 4 7 7 */
  1677. /*:ref: tpartv_ 14 15 13 7 4 13 13 12 12 12 13 13 124 124 124 124 124 */
  1678. /*:ref: str2et_ 14 3 13 7 124 */
  1679.  
  1680. extern int zzektloc_(integer *tokid, integer *kwcode, integer *ntoken, integer *tokens, integer *values, integer *loc, logical *found);
  1681.  
  1682. extern int zzektr13_(integer *handle, integer *tree);
  1683. /*:ref: zzekpgri_ 14 3 4 4 4 */
  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: zzekpgal_ 14 4 4 4 4 4 */
  1690. /*:ref: cleari_ 14 2 4 4 */
  1691. /*:ref: movei_ 14 3 4 4 4 */
  1692. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1693.  
  1694. extern int zzektr1s_(integer *handle, integer *tree, integer *size, integer *values);
  1695. /*:ref: return_ 12 0 */
  1696. /*:ref: chkin_ 14 2 13 124 */
  1697. /*:ref: zzektrsz_ 4 2 4 4 */
  1698. /*:ref: dashlu_ 14 2 4 4 */
  1699. /*:ref: setmsg_ 14 2 13 124 */
  1700. /*:ref: errint_ 14 3 13 4 124 */
  1701. /*:ref: errfnm_ 14 3 13 4 124 */
  1702. /*:ref: sigerr_ 14 2 13 124 */
  1703. /*:ref: chkout_ 14 2 13 124 */
  1704. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1705. /*:ref: zzekpgal_ 14 4 4 4 4 4 */
  1706. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1707. /*:ref: cleari_ 14 2 4 4 */
  1708. /*:ref: zzektrbs_ 4 1 4 */
  1709. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1710.  
  1711. extern int zzektr23_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, logical *overfl);
  1712. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1713. /*:ref: chkin_ 14 2 13 124 */
  1714. /*:ref: setmsg_ 14 2 13 124 */
  1715. /*:ref: errint_ 14 3 13 4 124 */
  1716. /*:ref: sigerr_ 14 2 13 124 */
  1717. /*:ref: chkout_ 14 2 13 124 */
  1718. /*:ref: zzekpgal_ 14 4 4 4 4 4 */
  1719. /*:ref: cleari_ 14 2 4 4 */
  1720. /*:ref: movei_ 14 3 4 4 4 */
  1721. /*:ref: zzektrbs_ 4 1 4 */
  1722. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1723. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1724. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1725.  
  1726. extern int zzektr31_(integer *handle, integer *tree);
  1727. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1728. /*:ref: chkin_ 14 2 13 124 */
  1729. /*:ref: setmsg_ 14 2 13 124 */
  1730. /*:ref: errint_ 14 3 13 4 124 */
  1731. /*:ref: sigerr_ 14 2 13 124 */
  1732. /*:ref: chkout_ 14 2 13 124 */
  1733. /*:ref: movei_ 14 3 4 4 4 */
  1734. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1735. /*:ref: zzekpgfr_ 14 3 4 4 4 */
  1736.  
  1737. extern int zzektr32_(integer *handle, integer *tree, integer *left, integer *middle, integer *right, integer *parent, integer *lpkidx, logical *undrfl);
  1738. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1739. /*:ref: chkin_ 14 2 13 124 */
  1740. /*:ref: setmsg_ 14 2 13 124 */
  1741. /*:ref: errint_ 14 3 13 4 124 */
  1742. /*:ref: sigerr_ 14 2 13 124 */
  1743. /*:ref: chkout_ 14 2 13 124 */
  1744. /*:ref: movei_ 14 3 4 4 4 */
  1745. /*:ref: zzektrbs_ 4 1 4 */
  1746. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1747. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1748. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1749. /*:ref: zzekpgfr_ 14 3 4 4 4 */
  1750.  
  1751. extern int zzektrap_(integer *handle, integer *tree, integer *value, integer *key);
  1752. /*:ref: zzektrsz_ 4 2 4 4 */
  1753. /*:ref: zzektrin_ 14 4 4 4 4 4 */
  1754.  
  1755. extern int zzektrbn_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx);
  1756. /*:ref: chkin_ 14 2 13 124 */
  1757. /*:ref: setmsg_ 14 2 13 124 */
  1758. /*:ref: sigerr_ 14 2 13 124 */
  1759. /*:ref: chkout_ 14 2 13 124 */
  1760. /*:ref: zzektrnk_ 4 3 4 4 4 */
  1761. /*:ref: errint_ 14 3 13 4 124 */
  1762. /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */
  1763.  
  1764. extern integer zzektrbs_(integer *node);
  1765. /*:ref: zzekpgbs_ 14 3 4 4 4 */
  1766.  
  1767. extern int zzektrdl_(integer *handle, integer *tree, integer *key);
  1768. /*:ref: zzektrud_ 14 5 4 4 4 4 12 */
  1769. /*:ref: failed_ 12 0 */
  1770. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1771. /*:ref: zzektrsb_ 14 7 4 4 4 4 4 4 4 */
  1772. /*:ref: zzektrnk_ 4 3 4 4 4 */
  1773. /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  1774. /*:ref: zzektrrk_ 14 7 4 4 4 4 4 4 4 */
  1775. /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */
  1776. /*:ref: zzektrki_ 14 5 4 4 4 4 4 */
  1777. /*:ref: zzektr32_ 14 8 4 4 4 4 4 4 4 12 */
  1778. /*:ref: zzektr31_ 14 2 4 4 */
  1779.  
  1780. extern int zzektrdp_(integer *handle, integer *tree, integer *key, integer *ptr);
  1781. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1782.  
  1783. extern int zzektres_(char *query, integer *eqryi, char *eqryc, doublereal *eqryd, logical *error, char *errmsg, integer *errptr, ftnlen query_len, ftnlen eqryc_len, ftnlen errmsg_len);
  1784. /*:ref: zzekreqi_ 14 4 4 13 4 124 */
  1785. /*:ref: failed_ 12 0 */
  1786. /*:ref: chkin_ 14 2 13 124 */
  1787. /*:ref: setmsg_ 14 2 13 124 */
  1788. /*:ref: sigerr_ 14 2 13 124 */
  1789. /*:ref: chkout_ 14 2 13 124 */
  1790. /*:ref: zzekqtab_ 14 8 4 13 4 13 13 124 124 124 */
  1791. /*:ref: ekcii_ 14 6 13 4 13 4 124 124 */
  1792. /*:ref: zzektcnv_ 14 6 13 7 12 13 124 124 */
  1793. /*:ref: zzekinqn_ 14 7 7 4 4 4 4 7 4 */
  1794. /*:ref: movei_ 14 3 4 4 4 */
  1795. /*:ref: zzekweqi_ 14 4 13 4 4 124 */
  1796.  
  1797. extern int zzektrfr_(integer *handle, integer *tree);
  1798. /*:ref: return_ 12 0 */
  1799. /*:ref: chkin_ 14 2 13 124 */
  1800. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1801. /*:ref: dashlu_ 14 2 4 4 */
  1802. /*:ref: setmsg_ 14 2 13 124 */
  1803. /*:ref: errint_ 14 3 13 4 124 */
  1804. /*:ref: errfnm_ 14 3 13 4 124 */
  1805. /*:ref: sigerr_ 14 2 13 124 */
  1806. /*:ref: chkout_ 14 2 13 124 */
  1807. /*:ref: zzekpgfr_ 14 3 4 4 4 */
  1808.  
  1809. extern int zzektrin_(integer *handle, integer *tree, integer *key, integer *value);
  1810. /*:ref: zzektrui_ 14 5 4 4 4 4 12 */
  1811. /*:ref: failed_ 12 0 */
  1812. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1813. /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  1814. /*:ref: zzektrnk_ 4 3 4 4 4 */
  1815. /*:ref: zzektrbn_ 14 6 4 4 4 4 4 4 */
  1816. /*:ref: zzektrki_ 14 5 4 4 4 4 4 */
  1817. /*:ref: zzektr23_ 14 7 4 4 4 4 4 4 12 */
  1818. /*:ref: zzektr13_ 14 2 4 4 */
  1819.  
  1820. extern int zzektrit_(integer *handle, integer *tree);
  1821. /*:ref: return_ 12 0 */
  1822. /*:ref: chkin_ 14 2 13 124 */
  1823. /*:ref: zzekpgal_ 14 4 4 4 4 4 */
  1824. /*:ref: cleari_ 14 2 4 4 */
  1825. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1826. /*:ref: chkout_ 14 2 13 124 */
  1827.  
  1828. extern int zzektrki_(integer *handle, integer *tree, integer *nodkey, integer *n, integer *key);
  1829. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1830. /*:ref: zzektrnk_ 4 3 4 4 4 */
  1831. /*:ref: chkin_ 14 2 13 124 */
  1832. /*:ref: setmsg_ 14 2 13 124 */
  1833. /*:ref: errint_ 14 3 13 4 124 */
  1834. /*:ref: sigerr_ 14 2 13 124 */
  1835. /*:ref: chkout_ 14 2 13 124 */
  1836. /*:ref: zzektrbs_ 4 1 4 */
  1837. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1838.  
  1839. extern int zzektrlk_(integer *handle, integer *tree, integer *key, integer *idx, integer *node, integer *noffst, integer *level, integer *value);
  1840. /*:ref: dasham_ 14 3 4 13 124 */
  1841. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1842. /*:ref: chkin_ 14 2 13 124 */
  1843. /*:ref: dashlu_ 14 2 4 4 */
  1844. /*:ref: setmsg_ 14 2 13 124 */
  1845. /*:ref: errint_ 14 3 13 4 124 */
  1846. /*:ref: errfnm_ 14 3 13 4 124 */
  1847. /*:ref: sigerr_ 14 2 13 124 */
  1848. /*:ref: chkout_ 14 2 13 124 */
  1849. /*:ref: lstlei_ 4 3 4 4 4 */
  1850.  
  1851. extern integer zzektrls_(integer *handle, integer *tree, integer *ival);
  1852. /*:ref: zzektrsz_ 4 2 4 4 */
  1853. /*:ref: zzektrdp_ 14 4 4 4 4 4 */
  1854.  
  1855. extern integer zzektrnk_(integer *handle, integer *tree, integer *node);
  1856. /*:ref: zzektrbs_ 4 1 4 */
  1857. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1858.  
  1859. extern int zzektrpi_(integer *handle, integer *tree, integer *key, integer *parent, integer *pkey, integer *poffst, integer *lpidx, integer *lpkey, integer *lsib, integer *rpidx, integer *rpkey, integer *rsib);
  1860. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1861. /*:ref: chkin_ 14 2 13 124 */
  1862. /*:ref: dashlu_ 14 2 4 4 */
  1863. /*:ref: setmsg_ 14 2 13 124 */
  1864. /*:ref: errint_ 14 3 13 4 124 */
  1865. /*:ref: errfnm_ 14 3 13 4 124 */
  1866. /*:ref: sigerr_ 14 2 13 124 */
  1867. /*:ref: chkout_ 14 2 13 124 */
  1868. /*:ref: lstlei_ 4 3 4 4 4 */
  1869.  
  1870. extern int zzektrrk_(integer *handle, integer *tree, integer *left, integer *right, integer *parent, integer *pkidx, integer *nrot);
  1871. /*:ref: chkin_ 14 2 13 124 */
  1872. /*:ref: setmsg_ 14 2 13 124 */
  1873. /*:ref: sigerr_ 14 2 13 124 */
  1874. /*:ref: chkout_ 14 2 13 124 */
  1875. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1876. /*:ref: failed_ 12 0 */
  1877. /*:ref: errint_ 14 3 13 4 124 */
  1878. /*:ref: movei_ 14 3 4 4 4 */
  1879. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1880.  
  1881. extern int zzektrsb_(integer *handle, integer *tree, integer *key, integer *lsib, integer *lkey, integer *rsib, integer *rkey);
  1882. /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  1883. /*:ref: failed_ 12 0 */
  1884. /*:ref: zzektrbs_ 4 1 4 */
  1885. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1886.  
  1887. extern integer zzektrsz_(integer *handle, integer *tree);
  1888. /*:ref: zzektrbs_ 4 1 4 */
  1889. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1890.  
  1891. extern int zzektrud_(integer *handle, integer *tree, integer *key, integer *trgkey, logical *undrfl);
  1892. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1893. /*:ref: chkin_ 14 2 13 124 */
  1894. /*:ref: dashlu_ 14 2 4 4 */
  1895. /*:ref: setmsg_ 14 2 13 124 */
  1896. /*:ref: errint_ 14 3 13 4 124 */
  1897. /*:ref: errfnm_ 14 3 13 4 124 */
  1898. /*:ref: chkout_ 14 2 13 124 */
  1899. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1900. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1901. /*:ref: failed_ 12 0 */
  1902. /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  1903. /*:ref: sigerr_ 14 2 13 124 */
  1904.  
  1905. extern int zzektrui_(integer *handle, integer *tree, integer *key, integer *value, logical *overfl);
  1906. /*:ref: zzekpgri_ 14 3 4 4 4 */
  1907. /*:ref: chkin_ 14 2 13 124 */
  1908. /*:ref: dashlu_ 14 2 4 4 */
  1909. /*:ref: setmsg_ 14 2 13 124 */
  1910. /*:ref: errint_ 14 3 13 4 124 */
  1911. /*:ref: errfnm_ 14 3 13 4 124 */
  1912. /*:ref: sigerr_ 14 2 13 124 */
  1913. /*:ref: chkout_ 14 2 13 124 */
  1914. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  1915. /*:ref: zzektrlk_ 14 8 4 4 4 4 4 4 4 4 */
  1916. /*:ref: failed_ 12 0 */
  1917. /*:ref: zzektrpi_ 14 12 4 4 4 4 4 4 4 4 4 4 4 4 */
  1918.  
  1919. extern int zzekue01_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *ival, logical *isnull);
  1920. /*:ref: return_ 12 0 */
  1921. /*:ref: chkin_ 14 2 13 124 */
  1922. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1923. /*:ref: failed_ 12 0 */
  1924. /*:ref: chkout_ 14 2 13 124 */
  1925. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1926. /*:ref: zzekixdl_ 14 4 4 4 4 4 */
  1927. /*:ref: zzekiii1_ 14 6 4 4 4 4 4 12 */
  1928. /*:ref: setmsg_ 14 2 13 124 */
  1929. /*:ref: errint_ 14 3 13 4 124 */
  1930. /*:ref: sigerr_ 14 2 13 124 */
  1931. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1932. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  1933. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  1934. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1935. /*:ref: zzekad01_ 14 6 4 4 4 4 4 12 */
  1936. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1937. /*:ref: dashlu_ 14 2 4 4 */
  1938. /*:ref: errfnm_ 14 3 13 4 124 */
  1939.  
  1940. extern int zzekue02_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, doublereal *dval, logical *isnull);
  1941. /*:ref: return_ 12 0 */
  1942. /*:ref: chkin_ 14 2 13 124 */
  1943. /*:ref: zzekpgch_ 14 3 4 13 124 */
  1944. /*:ref: failed_ 12 0 */
  1945. /*:ref: chkout_ 14 2 13 124 */
  1946. /*:ref: dasrdi_ 14 4 4 4 4 4 */
  1947. /*:ref: zzekixdl_ 14 4 4 4 4 4 */
  1948. /*:ref: zzekiid1_ 14 6 4 4 4 7 4 12 */
  1949. /*:ref: setmsg_ 14 2 13 124 */
  1950. /*:ref: errint_ 14 3 13 4 124 */
  1951. /*:ref: sigerr_ 14 2 13 124 */
  1952. /*:ref: zzekpgpg_ 14 4 4 4 4 4 */
  1953. /*:ref: zzekglnk_ 14 4 4 4 4 4 */
  1954. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  1955. /*:ref: dasudi_ 14 4 4 4 4 4 */
  1956. /*:ref: dasudd_ 14 4 4 4 4 7 */
  1957. /*:ref: zzekad02_ 14 6 4 4 4 4 7 12 */
  1958. /*:ref: zzekrp2n_ 4 3 4 4 4 */
  1959. /*:ref: dashlu_ 14 2 4 4 */
  1960. /*:ref: errfnm_ 14 3 13 4 124 */
  1961.  
  1962. extern int zzekue03_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, char *cval, logical *isnull, ftnlen cval_len);
  1963. /*:ref: return_ 12 0 */
  1964. /*:ref: chkin_ 14 2 13 124 */
  1965. /*:ref: zzekde03_ 14 4 4 4 4 4 */
  1966. /*:ref: failed_ 12 0 */
  1967. /*:ref: chkout_ 14 2 13 124 */
  1968. /*:ref: zzekad03_ 14 7 4 4 4 4 13 12 124 */
  1969.  
  1970. extern int zzekue04_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, integer *ivals, logical *isnull);
  1971. /*:ref: return_ 12 0 */
  1972. /*:ref: chkin_ 14 2 13 124 */
  1973. /*:ref: zzekde04_ 14 4 4 4 4 4 */
  1974. /*:ref: failed_ 12 0 */
  1975. /*:ref: chkout_ 14 2 13 124 */
  1976. /*:ref: zzekad04_ 14 7 4 4 4 4 4 4 12 */
  1977.  
  1978. extern int zzekue05_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, doublereal *dvals, logical *isnull);
  1979. /*:ref: return_ 12 0 */
  1980. /*:ref: chkin_ 14 2 13 124 */
  1981. /*:ref: zzekde05_ 14 4 4 4 4 4 */
  1982. /*:ref: failed_ 12 0 */
  1983. /*:ref: chkout_ 14 2 13 124 */
  1984. /*:ref: zzekad05_ 14 7 4 4 4 4 4 7 12 */
  1985.  
  1986. extern int zzekue06_(integer *handle, integer *segdsc, integer *coldsc, integer *recptr, integer *nvals, char *cvals, logical *isnull, ftnlen cvals_len);
  1987. /*:ref: return_ 12 0 */
  1988. /*:ref: chkin_ 14 2 13 124 */
  1989. /*:ref: zzekde06_ 14 4 4 4 4 4 */
  1990. /*:ref: failed_ 12 0 */
  1991. /*:ref: chkout_ 14 2 13 124 */
  1992. /*:ref: zzekad06_ 14 8 4 4 4 4 4 13 12 124 */
  1993.  
  1994. extern int zzekvadr_(integer *njrs, integer *bases, integer *rwvidx, integer *rwvbas, integer *sgvbas);
  1995. extern int zzekvset_(integer *njrs, integer *bases);
  1996. extern int zzekvcal_(integer *rwvidx, integer *rwvbas, integer *sgvbas);
  1997. /*:ref: return_ 12 0 */
  1998. /*:ref: chkin_ 14 2 13 124 */
  1999. /*:ref: sigerr_ 14 2 13 124 */
  2000. /*:ref: chkout_ 14 2 13 124 */
  2001. /*:ref: setmsg_ 14 2 13 124 */
  2002. /*:ref: errint_ 14 3 13 4 124 */
  2003. /*:ref: zzekstop_ 14 1 4 */
  2004. /*:ref: zzeksrd_ 14 3 4 4 4 */
  2005. /*:ref: cleari_ 14 2 4 4 */
  2006. /*:ref: lstlei_ 4 3 4 4 4 */
  2007.  
  2008. extern logical zzekvcmp_(integer *op, integer *ncols, integer *tabs, integer *cols, integer *elts, integer *senses, integer *sthan, integer *stsdsc, integer *stdtpt, integer *dtpool, integer *dtdscs, integer *sgvec1, integer *rwvec1, integer *sgvec2, integer *rwvec2);
  2009. /*:ref: lnknxt_ 4 2 4 4 */
  2010. /*:ref: movei_ 14 3 4 4 4 */
  2011. /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
  2012. /*:ref: chkin_ 14 2 13 124 */
  2013. /*:ref: setmsg_ 14 2 13 124 */
  2014. /*:ref: errint_ 14 3 13 4 124 */
  2015. /*:ref: sigerr_ 14 2 13 124 */
  2016. /*:ref: chkout_ 14 2 13 124 */
  2017.  
  2018. extern logical zzekvmch_(integer *ncnstr, logical *active, integer *lhans, integer *lsdscs, integer *lcdscs, integer *lrows, integer *lelts, integer *ops, integer *rhans, integer *rsdscs, integer *rcdscs, integer *rrows, integer *relts);
  2019. /*:ref: movei_ 14 3 4 4 4 */
  2020. /*:ref: zzekecmp_ 4 5 4 4 4 4 4 */
  2021. /*:ref: zzekrsc_ 14 10 4 4 4 4 4 4 13 12 12 124 */
  2022. /*:ref: dashlu_ 14 2 4 4 */
  2023. /*:ref: chkin_ 14 2 13 124 */
  2024. /*:ref: setmsg_ 14 2 13 124 */
  2025. /*:ref: errfnm_ 14 3 13 4 124 */
  2026. /*:ref: errint_ 14 3 13 4 124 */
  2027. /*:ref: sigerr_ 14 2 13 124 */
  2028. /*:ref: chkout_ 14 2 13 124 */
  2029. /*:ref: matchi_ 12 8 13 13 13 13 124 124 124 124 */
  2030.  
  2031. extern int zzekweed_(integer *njrs, integer *bases, integer *nrows);
  2032. /*:ref: chkin_ 14 2 13 124 */
  2033. /*:ref: setmsg_ 14 2 13 124 */
  2034. /*:ref: errint_ 14 3 13 4 124 */
  2035. /*:ref: sigerr_ 14 2 13 124 */
  2036. /*:ref: chkout_ 14 2 13 124 */
  2037. /*:ref: zzekvset_ 14 2 4 4 */
  2038. /*:ref: zzeksrd_ 14 3 4 4 4 */
  2039. /*:ref: sameai_ 12 3 4 4 4 */
  2040. /*:ref: zzeksupd_ 14 3 4 4 4 */
  2041. /*:ref: zzekjsqz_ 14 1 4 */
  2042.  
  2043. extern int zzekweqi_(char *name__, integer *value, integer *eqryi, ftnlen name_len);
  2044. /*:ref: ljust_ 14 4 13 13 124 124 */
  2045. /*:ref: ucase_ 14 4 13 13 124 124 */
  2046. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2047. /*:ref: chkin_ 14 2 13 124 */
  2048. /*:ref: setmsg_ 14 2 13 124 */
  2049. /*:ref: errch_ 14 4 13 13 124 124 */
  2050. /*:ref: sigerr_ 14 2 13 124 */
  2051. /*:ref: chkout_ 14 2 13 124 */
  2052.  
  2053. extern int zzekwpac_(integer *handle, integer *segdsc, integer *nvals, integer *l, char *cvals, integer *p, integer *base, ftnlen cvals_len);
  2054. /*:ref: return_ 12 0 */
  2055. /*:ref: chkin_ 14 2 13 124 */
  2056. /*:ref: setmsg_ 14 2 13 124 */
  2057. /*:ref: errint_ 14 3 13 4 124 */
  2058. /*:ref: sigerr_ 14 2 13 124 */
  2059. /*:ref: chkout_ 14 2 13 124 */
  2060. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  2061. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  2062. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  2063.  
  2064. extern int zzekwpai_(integer *handle, integer *segdsc, integer *nvals, integer *ivals, integer *p, integer *base);
  2065. /*:ref: return_ 12 0 */
  2066. /*:ref: chkin_ 14 2 13 124 */
  2067. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  2068. /*:ref: cleari_ 14 2 4 4 */
  2069. /*:ref: zzekpgwi_ 14 3 4 4 4 */
  2070. /*:ref: chkout_ 14 2 13 124 */
  2071.  
  2072. extern int zzekwpal_(integer *handle, integer *segdsc, integer *nvals, logical *lvals, integer *p, integer *base);
  2073. /*:ref: return_ 12 0 */
  2074. /*:ref: chkin_ 14 2 13 124 */
  2075. /*:ref: zzekacps_ 14 6 4 4 4 4 4 4 */
  2076. /*:ref: zzekpgwc_ 14 4 4 4 13 124 */
  2077. /*:ref: zzekslnk_ 14 4 4 4 4 4 */
  2078. /*:ref: chkout_ 14 2 13 124 */
  2079.  
  2080. extern int zzelvupy_(doublereal *ellips, doublereal *vertex, doublereal *axis, integer *n, doublereal *bounds, logical *found);
  2081. /*:ref: return_ 12 0 */
  2082. /*:ref: chkin_ 14 2 13 124 */
  2083. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  2084. /*:ref: saelgv_ 14 4 7 7 7 7 */
  2085. /*:ref: vzero_ 12 1 7 */
  2086. /*:ref: setmsg_ 14 2 13 124 */
  2087. /*:ref: errdp_ 14 3 13 7 124 */
  2088. /*:ref: vnorm_ 7 1 7 */
  2089. /*:ref: sigerr_ 14 2 13 124 */
  2090. /*:ref: chkout_ 14 2 13 124 */
  2091. /*:ref: cgv2el_ 14 4 7 7 7 7 */
  2092. /*:ref: errint_ 14 3 13 4 124 */
  2093. /*:ref: vsub_ 14 3 7 7 7 */
  2094. /*:ref: vsep_ 7 2 7 7 */
  2095. /*:ref: pi_ 7 0 */
  2096. /*:ref: ucrss_ 14 3 7 7 7 */
  2097. /*:ref: repmot_ 14 9 13 13 4 13 13 124 124 124 124 */
  2098. /*:ref: vdist_ 7 2 7 7 */
  2099. /*:ref: vdot_ 7 2 7 7 */
  2100. /*:ref: nvp2pl_ 14 3 7 7 7 */
  2101. /*:ref: inrypl_ 14 5 7 7 7 4 7 */
  2102. /*:ref: zzwind_ 4 4 7 4 7 7 */
  2103. /*:ref: psv2pl_ 14 4 7 7 7 7 */
  2104. /*:ref: inelpl_ 14 5 7 7 4 7 7 */
  2105. /*:ref: vhat_ 14 2 7 7 */
  2106. /*:ref: vlcom_ 14 5 7 7 7 7 7 */
  2107.  
  2108. extern int zzenut80_(doublereal *et, doublereal *nutxf);
  2109. /*:ref: return_ 12 0 */
  2110. /*:ref: chkin_ 14 2 13 124 */
  2111. /*:ref: zzwahr_ 14 2 7 7 */
  2112. /*:ref: zzmobliq_ 14 3 7 7 7 */
  2113. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  2114. /*:ref: chkout_ 14 2 13 124 */
  2115.  
  2116. extern int zzeprc76_(doublereal *et, doublereal *precxf);
  2117. /*:ref: jyear_ 7 0 */
  2118. /*:ref: rpd_ 7 0 */
  2119. /*:ref: eul2xf_ 14 5 7 4 4 4 7 */
  2120.  
  2121. extern int zzeprcss_(doublereal *et, doublereal *precm);
  2122. /*:ref: jyear_ 7 0 */
  2123. /*:ref: rpd_ 7 0 */
  2124. /*:ref: eul2m_ 14 7 7 7 7 4 4 4 7 */
  2125.  
  2126. extern int zzfdat_(integer *ncount, char *name__, integer *idcode, integer *center, integer *type__, integer *typid, integer *norder, integer *corder, integer *centrd, ftnlen name_len);
  2127. /*:ref: chkin_ 14 2 13 124 */
  2128. /*:ref: setmsg_ 14 2 13 124 */
  2129. /*:ref: sigerr_ 14 2 13 124 */
  2130. /*:ref: chkout_ 14 2 13 124 */
  2131. /*:ref: irfnam_ 14 3 4 13 124 */
  2132. /*:ref: orderc_ 14 4 13 4 4 124 */
  2133. /*:ref: orderi_ 14 3 4 4 4 */
  2134.  
  2135. extern int zzfrmch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
  2136. /*:ref: return_ 12 0 */
  2137. /*:ref: chkin_ 14 2 13 124 */
  2138. /*:ref: chkout_ 14 2 13 124 */
  2139. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2140. /*:ref: setmsg_ 14 2 13 124 */
  2141. /*:ref: errint_ 14 3 13 4 124 */
  2142. /*:ref: sigerr_ 14 2 13 124 */
  2143. /*:ref: zzfrmgt0_ 14 5 4 7 7 4 12 */
  2144. /*:ref: zzmsxf_ 14 3 7 4 7 */
  2145. /*:ref: isrchi_ 4 3 4 4 4 */
  2146. /*:ref: frmnam_ 14 3 4 13 124 */
  2147. /*:ref: rtrim_ 4 2 13 124 */
  2148. /*:ref: errch_ 14 4 13 13 124 124 */
  2149. /*:ref: invstm_ 14 2 7 7 */
  2150.  
  2151. extern int zzfrmch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *xform);
  2152. /*:ref: return_ 12 0 */
  2153. /*:ref: chkin_ 14 2 13 124 */
  2154. /*:ref: chkout_ 14 2 13 124 */
  2155. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2156. /*:ref: setmsg_ 14 2 13 124 */
  2157. /*:ref: errint_ 14 3 13 4 124 */
  2158. /*:ref: sigerr_ 14 2 13 124 */
  2159. /*:ref: zzfrmgt1_ 14 5 4 7 7 4 12 */
  2160. /*:ref: zzmsxf_ 14 3 7 4 7 */
  2161. /*:ref: isrchi_ 4 3 4 4 4 */
  2162. /*:ref: frmnam_ 14 3 4 13 124 */
  2163. /*:ref: rtrim_ 4 2 13 124 */
  2164. /*:ref: errch_ 14 4 13 13 124 124 */
  2165. /*:ref: invstm_ 14 2 7 7 */
  2166.  
  2167. extern int zzfrmgt0_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
  2168. /*:ref: return_ 12 0 */
  2169. /*:ref: chkin_ 14 2 13 124 */
  2170. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2171. /*:ref: chkout_ 14 2 13 124 */
  2172. /*:ref: tisbod_ 14 5 13 4 7 7 124 */
  2173. /*:ref: invstm_ 14 2 7 7 */
  2174. /*:ref: namfrm_ 14 3 13 4 124 */
  2175. /*:ref: irfrot_ 14 3 4 4 7 */
  2176. /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
  2177. /*:ref: tkfram_ 14 4 4 7 4 12 */
  2178. /*:ref: zzdynfr0_ 14 5 4 4 7 7 4 */
  2179. /*:ref: setmsg_ 14 2 13 124 */
  2180. /*:ref: errint_ 14 3 13 4 124 */
  2181. /*:ref: errch_ 14 4 13 13 124 124 */
  2182. /*:ref: sigerr_ 14 2 13 124 */
  2183. /*:ref: failed_ 12 0 */
  2184.  
  2185. extern int zzfrmgt1_(integer *infrm, doublereal *et, doublereal *xform, integer *outfrm, logical *found);
  2186. /*:ref: return_ 12 0 */
  2187. /*:ref: chkin_ 14 2 13 124 */
  2188. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2189. /*:ref: chkout_ 14 2 13 124 */
  2190. /*:ref: tisbod_ 14 5 13 4 7 7 124 */
  2191. /*:ref: invstm_ 14 2 7 7 */
  2192. /*:ref: namfrm_ 14 3 13 4 124 */
  2193. /*:ref: irfrot_ 14 3 4 4 7 */
  2194. /*:ref: ckfxfm_ 14 5 4 7 7 4 12 */
  2195. /*:ref: tkfram_ 14 4 4 7 4 12 */
  2196. /*:ref: setmsg_ 14 2 13 124 */
  2197. /*:ref: errint_ 14 3 13 4 124 */
  2198. /*:ref: sigerr_ 14 2 13 124 */
  2199. /*:ref: errch_ 14 4 13 13 124 124 */
  2200. /*:ref: failed_ 12 0 */
  2201.  
  2202. extern int zzftpchk_(char *string, logical *ftperr, ftnlen string_len);
  2203. /*:ref: zzftpstr_ 14 8 13 13 13 13 124 124 124 124 */
  2204. /*:ref: zzrbrkst_ 14 10 13 13 13 13 4 12 124 124 124 124 */
  2205. /*:ref: rtrim_ 4 2 13 124 */
  2206. /*:ref: pos_ 4 5 13 13 4 124 124 */
  2207.  
  2208. extern int zzftpstr_(char *tstcom, char *lend, char *rend, char *delim, ftnlen tstcom_len, ftnlen lend_len, ftnlen rend_len, ftnlen delim_len);
  2209. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2210.  
  2211. extern int zzgetbff_(integer *bffid);
  2212.  
  2213. extern int zzgetelm_(integer *frstyr, char *lines, doublereal *epoch, doublereal *elems, logical *ok, char *error, ftnlen lines_len, ftnlen error_len);
  2214. /*:ref: return_ 12 0 */
  2215. /*:ref: chkin_ 14 2 13 124 */
  2216. /*:ref: rpd_ 7 0 */
  2217. /*:ref: twopi_ 7 0 */
  2218. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2219. /*:ref: chkout_ 14 2 13 124 */
  2220. /*:ref: lastnb_ 4 2 13 124 */
  2221. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2222. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  2223. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2224. /*:ref: repmd_ 14 8 13 13 7 4 13 124 124 124 */
  2225. /*:ref: ttrans_ 14 5 13 13 7 124 124 */
  2226.  
  2227. extern int zzgpnm_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *found, integer *lookat, integer *nameat, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
  2228. /*:ref: return_ 12 0 */
  2229. /*:ref: chkin_ 14 2 13 124 */
  2230. /*:ref: zzhash_ 4 2 13 124 */
  2231. /*:ref: lnknfn_ 4 1 4 */
  2232. /*:ref: lnkan_ 14 2 4 4 */
  2233. /*:ref: lnkila_ 14 3 4 4 4 */
  2234. /*:ref: setmsg_ 14 2 13 124 */
  2235. /*:ref: sigerr_ 14 2 13 124 */
  2236. /*:ref: chkout_ 14 2 13 124 */
  2237.  
  2238. extern int zzidmap_(integer *bltcod, char *bltnam, ftnlen bltnam_len);
  2239.  
  2240. extern int zzinssub_(char *in, char *sub, integer *loc, char *out, ftnlen in_len, ftnlen sub_len, ftnlen out_len);
  2241.  
  2242. extern int zzldker_(char *file, char *nofile, char *filtyp, integer *handle, ftnlen file_len, ftnlen nofile_len, ftnlen filtyp_len);
  2243. /*:ref: return_ 12 0 */
  2244. /*:ref: chkin_ 14 2 13 124 */
  2245. /*:ref: exists_ 12 2 13 124 */
  2246. /*:ref: setmsg_ 14 2 13 124 */
  2247. /*:ref: errch_ 14 4 13 13 124 124 */
  2248. /*:ref: sigerr_ 14 2 13 124 */
  2249. /*:ref: chkout_ 14 2 13 124 */
  2250. /*:ref: getfat_ 14 6 13 13 13 124 124 124 */
  2251. /*:ref: spklef_ 14 3 13 4 124 */
  2252. /*:ref: cklpf_ 14 3 13 4 124 */
  2253. /*:ref: pcklof_ 14 3 13 4 124 */
  2254. /*:ref: tkvrsn_ 14 4 13 13 124 124 */
  2255. /*:ref: eklef_ 14 3 13 4 124 */
  2256. /*:ref: ldpool_ 14 2 13 124 */
  2257. /*:ref: failed_ 12 0 */
  2258. /*:ref: zzbodkik_ 14 0 */
  2259.  
  2260. extern int zzmkpc_(char *pictur, integer *b, integer *e, char *mark, char *pattrn, ftnlen pictur_len, ftnlen mark_len, ftnlen pattrn_len);
  2261. /*:ref: lastnb_ 4 2 13 124 */
  2262. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  2263.  
  2264. extern int zzmobliq_(doublereal *et, doublereal *mob, doublereal *dmob);
  2265. /*:ref: jyear_ 7 0 */
  2266. /*:ref: rpd_ 7 0 */
  2267.  
  2268. extern int zzmsxf_(doublereal *matrix, integer *n, doublereal *output);
  2269.  
  2270. extern int zznrddp_(doublereal *ao, doublereal *elems, doublereal *em, doublereal *omgasm, doublereal *omgdot, doublereal *t, doublereal *xinc, doublereal *xll, doublereal *xlldot, doublereal *xn, doublereal *xnodes, doublereal *xnodot, doublereal *xnodp);
  2271. extern int zzdpinit_(doublereal *ao, doublereal *xlldot, doublereal *omgdot, doublereal *xnodot, doublereal *xnodp, doublereal *elems);
  2272. extern int zzdpsec_(doublereal *xll, doublereal *omgasm, doublereal *xnodes, doublereal *em, doublereal *xinc, doublereal *xn, doublereal *t, doublereal *elems, doublereal *omgdot);
  2273. extern int zzdpper_(doublereal *t, doublereal *em, doublereal *xinc, doublereal *omgasm, doublereal *xnodes, doublereal *xll);
  2274. /*:ref: return_ 12 0 */
  2275. /*:ref: chkin_ 14 2 13 124 */
  2276. /*:ref: setmsg_ 14 2 13 124 */
  2277. /*:ref: sigerr_ 14 2 13 124 */
  2278. /*:ref: chkout_ 14 2 13 124 */
  2279. /*:ref: pi_ 7 0 */
  2280. /*:ref: twopi_ 7 0 */
  2281. /*:ref: j2000_ 7 0 */
  2282. /*:ref: spd_ 7 0 */
  2283. /*:ref: j1950_ 7 0 */
  2284. /*:ref: zzsecprt_ 14 12 4 7 7 7 7 7 7 7 7 7 7 7 */
  2285.  
  2286. extern integer zzocced_(doublereal *viewpt, doublereal *centr1, doublereal *semax1, doublereal *centr2, doublereal *semax2);
  2287. /*:ref: return_ 12 0 */
  2288. /*:ref: chkin_ 14 2 13 124 */
  2289. /*:ref: unorm_ 14 3 7 7 7 */
  2290. /*:ref: setmsg_ 14 2 13 124 */
  2291. /*:ref: errdp_ 14 3 13 7 124 */
  2292. /*:ref: sigerr_ 14 2 13 124 */
  2293. /*:ref: chkout_ 14 2 13 124 */
  2294. /*:ref: vequ_ 14 2 7 7 */
  2295. /*:ref: vsub_ 14 3 7 7 7 */
  2296. /*:ref: vnorm_ 7 1 7 */
  2297. /*:ref: errint_ 14 3 13 4 124 */
  2298. /*:ref: isrot_ 12 3 7 7 7 */
  2299. /*:ref: det_ 7 1 7 */
  2300. /*:ref: vsep_ 7 2 7 7 */
  2301. /*:ref: vminus_ 14 2 7 7 */
  2302. /*:ref: halfpi_ 7 0 */
  2303. /*:ref: xpose_ 14 2 7 7 */
  2304. /*:ref: mxv_ 14 3 7 7 7 */
  2305. /*:ref: edlimb_ 14 5 7 7 7 7 7 */
  2306. /*:ref: el2cgv_ 14 4 7 7 7 7 */
  2307. /*:ref: mtxv_ 14 3 7 7 7 */
  2308. /*:ref: vadd_ 14 3 7 7 7 */
  2309. /*:ref: cleard_ 14 2 4 7 */
  2310. /*:ref: mxm_ 14 3 7 7 7 */
  2311. /*:ref: saelgv_ 14 4 7 7 7 7 */
  2312. /*:ref: cgv2el_ 14 4 7 7 7 7 */
  2313. /*:ref: zzasryel_ 14 7 13 7 7 7 7 7 124 */
  2314. /*:ref: failed_ 12 0 */
  2315. /*:ref: vdist_ 7 2 7 7 */
  2316.  
  2317. extern integer zzphsh_(char *word, integer *m, integer *m2, ftnlen word_len);
  2318. extern integer zzshsh_(integer *m);
  2319. extern integer zzhash_(char *word, ftnlen word_len);
  2320. extern integer zzhash2_(char *word, integer *m2, ftnlen word_len);
  2321. /*:ref: setmsg_ 14 2 13 124 */
  2322. /*:ref: errch_ 14 4 13 13 124 124 */
  2323. /*:ref: sigerr_ 14 2 13 124 */
  2324.  
  2325. extern int zzpini_(logical *first, integer *maxvar, integer *maxval, integer *maxlin, char *begdat, char *begtxt, integer *nmpool, integer *dppool, integer *chpool, integer *namlst, integer *datlst, integer *maxagt, integer *mxnote, char *watsym, integer *watptr, char *watval, char *agents, char *active, char *notify, ftnlen begdat_len, ftnlen begtxt_len, ftnlen watsym_len, ftnlen watval_len, ftnlen agents_len, ftnlen active_len, ftnlen notify_len);
  2326. /*:ref: chkin_ 14 2 13 124 */
  2327. /*:ref: zzshsh_ 4 1 4 */
  2328. /*:ref: lnkini_ 14 2 4 4 */
  2329. /*:ref: ssizec_ 14 3 4 13 124 */
  2330. /*:ref: ssizei_ 14 2 4 4 */
  2331. /*:ref: failed_ 12 0 */
  2332. /*:ref: chkout_ 14 2 13 124 */
  2333.  
  2334. extern int zzplatfm_(char *key, char *value, ftnlen key_len, ftnlen value_len);
  2335. /*:ref: ucase_ 14 4 13 13 124 124 */
  2336. /*:ref: ljust_ 14 4 13 13 124 124 */
  2337. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2338.  
  2339. extern int zzpltchk_(logical *ok);
  2340. /*:ref: return_ 12 0 */
  2341. /*:ref: chkin_ 14 2 13 124 */
  2342. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2343. /*:ref: zzgetbff_ 14 1 4 */
  2344. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2345. /*:ref: setmsg_ 14 2 13 124 */
  2346. /*:ref: errch_ 14 4 13 13 124 124 */
  2347. /*:ref: sigerr_ 14 2 13 124 */
  2348. /*:ref: chkout_ 14 2 13 124 */
  2349.  
  2350. extern int zzprscor_(char *abcorr, logical *attblk, ftnlen abcorr_len);
  2351. /*:ref: return_ 12 0 */
  2352. /*:ref: chkin_ 14 2 13 124 */
  2353. /*:ref: orderc_ 14 4 13 4 4 124 */
  2354. /*:ref: reordc_ 14 4 4 4 13 124 */
  2355. /*:ref: reordl_ 14 3 4 4 12 */
  2356. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2357. /*:ref: ucase_ 14 4 13 13 124 124 */
  2358. /*:ref: bsrchc_ 4 5 13 4 13 124 124 */
  2359. /*:ref: setmsg_ 14 2 13 124 */
  2360. /*:ref: errch_ 14 4 13 13 124 124 */
  2361. /*:ref: sigerr_ 14 2 13 124 */
  2362. /*:ref: chkout_ 14 2 13 124 */
  2363.  
  2364. extern int zzrbrkst_(char *string, char *lftend, char *rgtend, char *substr, integer *length, logical *bkpres, ftnlen string_len, ftnlen lftend_len, ftnlen rgtend_len, ftnlen substr_len);
  2365. /*:ref: posr_ 4 5 13 13 4 124 124 */
  2366.  
  2367. extern int zzrefch0_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
  2368. /*:ref: return_ 12 0 */
  2369. /*:ref: chkin_ 14 2 13 124 */
  2370. /*:ref: ident_ 14 1 7 */
  2371. /*:ref: chkout_ 14 2 13 124 */
  2372. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2373. /*:ref: setmsg_ 14 2 13 124 */
  2374. /*:ref: errint_ 14 3 13 4 124 */
  2375. /*:ref: sigerr_ 14 2 13 124 */
  2376. /*:ref: zzrotgt0_ 14 5 4 7 7 4 12 */
  2377. /*:ref: zzrxr_ 14 3 7 4 7 */
  2378. /*:ref: isrchi_ 4 3 4 4 4 */
  2379. /*:ref: frmnam_ 14 3 4 13 124 */
  2380. /*:ref: rtrim_ 4 2 13 124 */
  2381. /*:ref: errch_ 14 4 13 13 124 124 */
  2382. /*:ref: xpose_ 14 2 7 7 */
  2383.  
  2384. extern int zzrefch1_(integer *frame1, integer *frame2, doublereal *et, doublereal *rotate);
  2385. /*:ref: return_ 12 0 */
  2386. /*:ref: chkin_ 14 2 13 124 */
  2387. /*:ref: ident_ 14 1 7 */
  2388. /*:ref: chkout_ 14 2 13 124 */
  2389. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2390. /*:ref: setmsg_ 14 2 13 124 */
  2391. /*:ref: errint_ 14 3 13 4 124 */
  2392. /*:ref: sigerr_ 14 2 13 124 */
  2393. /*:ref: zzrotgt1_ 14 5 4 7 7 4 12 */
  2394. /*:ref: zzrxr_ 14 3 7 4 7 */
  2395. /*:ref: isrchi_ 4 3 4 4 4 */
  2396. /*:ref: frmnam_ 14 3 4 13 124 */
  2397. /*:ref: rtrim_ 4 2 13 124 */
  2398. /*:ref: errch_ 14 4 13 13 124 124 */
  2399. /*:ref: xpose_ 14 2 7 7 */
  2400.  
  2401. extern int zzrepsub_(char *in, integer *left, integer *right, char *string, char *out, ftnlen in_len, ftnlen string_len, ftnlen out_len);
  2402. /*:ref: sumai_ 4 2 4 4 */
  2403.  
  2404. extern logical zzrept_(char *sub, char *replac, logical *l2r, ftnlen sub_len, ftnlen replac_len);
  2405. /*:ref: zzsubt_ 12 5 13 13 12 124 124 */
  2406. /*:ref: zzremt_ 12 2 13 124 */
  2407.  
  2408. extern int zzrotgt0_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
  2409. /*:ref: return_ 12 0 */
  2410. /*:ref: chkin_ 14 2 13 124 */
  2411. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2412. /*:ref: chkout_ 14 2 13 124 */
  2413. /*:ref: irfrot_ 14 3 4 4 7 */
  2414. /*:ref: tipbod_ 14 5 13 4 7 7 124 */
  2415. /*:ref: xpose_ 14 2 7 7 */
  2416. /*:ref: namfrm_ 14 3 13 4 124 */
  2417. /*:ref: failed_ 12 0 */
  2418. /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
  2419. /*:ref: tkfram_ 14 4 4 7 4 12 */
  2420. /*:ref: zzdynrt0_ 14 5 4 4 7 7 4 */
  2421. /*:ref: setmsg_ 14 2 13 124 */
  2422. /*:ref: errint_ 14 3 13 4 124 */
  2423. /*:ref: errch_ 14 4 13 13 124 124 */
  2424. /*:ref: sigerr_ 14 2 13 124 */
  2425.  
  2426. extern int zzrotgt1_(integer *infrm, doublereal *et, doublereal *rotate, integer *outfrm, logical *found);
  2427. /*:ref: return_ 12 0 */
  2428. /*:ref: chkin_ 14 2 13 124 */
  2429. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2430. /*:ref: chkout_ 14 2 13 124 */
  2431. /*:ref: irfrot_ 14 3 4 4 7 */
  2432. /*:ref: tipbod_ 14 5 13 4 7 7 124 */
  2433. /*:ref: xpose_ 14 2 7 7 */
  2434. /*:ref: namfrm_ 14 3 13 4 124 */
  2435. /*:ref: failed_ 12 0 */
  2436. /*:ref: ckfrot_ 14 5 4 7 7 4 12 */
  2437. /*:ref: tkfram_ 14 4 4 7 4 12 */
  2438. /*:ref: setmsg_ 14 2 13 124 */
  2439. /*:ref: errint_ 14 3 13 4 124 */
  2440. /*:ref: sigerr_ 14 2 13 124 */
  2441. /*:ref: errch_ 14 4 13 13 124 124 */
  2442.  
  2443. extern int zzrvar_(integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
  2444. /*:ref: return_ 12 0 */
  2445. /*:ref: chkin_ 14 2 13 124 */
  2446. /*:ref: failed_ 12 0 */
  2447. /*:ref: rdkdat_ 14 3 13 12 124 */
  2448. /*:ref: chkout_ 14 2 13 124 */
  2449. /*:ref: rdklin_ 14 3 13 4 124 */
  2450. /*:ref: setmsg_ 14 2 13 124 */
  2451. /*:ref: rtrim_ 4 2 13 124 */
  2452. /*:ref: errint_ 14 3 13 4 124 */
  2453. /*:ref: errch_ 14 4 13 13 124 124 */
  2454. /*:ref: sigerr_ 14 2 13 124 */
  2455. /*:ref: lastpc_ 4 2 13 124 */
  2456. /*:ref: zzhash_ 4 2 13 124 */
  2457. /*:ref: lnknfn_ 4 1 4 */
  2458. /*:ref: lnkan_ 14 2 4 4 */
  2459. /*:ref: lnkila_ 14 3 4 4 4 */
  2460. /*:ref: lnkfsl_ 14 3 4 4 4 */
  2461. /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
  2462. /*:ref: tparse_ 14 5 13 7 13 124 124 */
  2463. /*:ref: lastnb_ 4 2 13 124 */
  2464. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2465.  
  2466. extern int zzrvbf_(char *buffer, integer *bsize, integer *linnum, integer *namlst, integer *nmpool, char *names, integer *datlst, integer *dppool, doublereal *dpvals, integer *chpool, char *chvals, char *varnam, logical *eof, ftnlen buffer_len, ftnlen names_len, ftnlen chvals_len, ftnlen varnam_len);
  2467. /*:ref: return_ 12 0 */
  2468. /*:ref: chkin_ 14 2 13 124 */
  2469. /*:ref: failed_ 12 0 */
  2470. /*:ref: chkout_ 14 2 13 124 */
  2471. /*:ref: setmsg_ 14 2 13 124 */
  2472. /*:ref: rtrim_ 4 2 13 124 */
  2473. /*:ref: errint_ 14 3 13 4 124 */
  2474. /*:ref: errch_ 14 4 13 13 124 124 */
  2475. /*:ref: sigerr_ 14 2 13 124 */
  2476. /*:ref: lastpc_ 4 2 13 124 */
  2477. /*:ref: zzhash_ 4 2 13 124 */
  2478. /*:ref: lnknfn_ 4 1 4 */
  2479. /*:ref: lnkan_ 14 2 4 4 */
  2480. /*:ref: lnkila_ 14 3 4 4 4 */
  2481. /*:ref: lnkfsl_ 14 3 4 4 4 */
  2482. /*:ref: zzcln_ 14 7 4 4 4 4 4 4 4 */
  2483. /*:ref: tparse_ 14 5 13 7 13 124 124 */
  2484. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2485.  
  2486. extern int zzrxr_(doublereal *matrix, integer *n, doublereal *output);
  2487. /*:ref: ident_ 14 1 7 */
  2488.  
  2489. extern logical zzsclk_(integer *ckid, integer *sclkid);
  2490. /*:ref: return_ 12 0 */
  2491. /*:ref: chkin_ 14 2 13 124 */
  2492. /*:ref: ssizei_ 14 2 4 4 */
  2493. /*:ref: intstr_ 14 3 4 13 124 */
  2494. /*:ref: elemi_ 12 2 4 4 */
  2495. /*:ref: cvpool_ 14 3 13 12 124 */
  2496. /*:ref: cardi_ 4 1 4 */
  2497. /*:ref: sizei_ 4 1 4 */
  2498. /*:ref: insrti_ 14 2 4 4 */
  2499. /*:ref: chkout_ 14 2 13 124 */
  2500. /*:ref: swpool_ 14 5 13 4 13 124 124 */
  2501. /*:ref: dtpool_ 14 6 13 12 4 13 124 124 */
  2502. /*:ref: removi_ 14 2 4 4 */
  2503.  
  2504. extern int zzsecprt_(integer *isynfl, doublereal *dg, doublereal *del, doublereal *xni, doublereal *omegao, doublereal *atime, doublereal *omgdot, doublereal *xli, doublereal *xfact, doublereal *xldot, doublereal *xndot, doublereal *xnddt);
  2505.  
  2506. extern int zzsizeok_(integer *size, integer *psize, integer *dsize, integer *offset, logical *ok, integer *n);
  2507. /*:ref: rmaini_ 14 4 4 4 4 4 */
  2508.  
  2509. extern int zzspkap0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2510. /*:ref: return_ 12 0 */
  2511. /*:ref: chkin_ 14 2 13 124 */
  2512. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2513. /*:ref: ucase_ 14 4 13 13 124 124 */
  2514. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2515. /*:ref: setmsg_ 14 2 13 124 */
  2516. /*:ref: errch_ 14 4 13 13 124 124 */
  2517. /*:ref: sigerr_ 14 2 13 124 */
  2518. /*:ref: chkout_ 14 2 13 124 */
  2519. /*:ref: odd_ 12 1 4 */
  2520. /*:ref: irfnum_ 14 3 13 4 124 */
  2521. /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
  2522. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2523. /*:ref: moved_ 14 3 7 4 7 */
  2524. /*:ref: vnorm_ 7 1 7 */
  2525. /*:ref: clight_ 7 0 */
  2526. /*:ref: stlabx_ 14 3 7 7 7 */
  2527. /*:ref: vequ_ 14 2 7 7 */
  2528. /*:ref: stelab_ 14 3 7 7 7 */
  2529.  
  2530. extern int zzspkap1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2531. /*:ref: return_ 12 0 */
  2532. /*:ref: chkin_ 14 2 13 124 */
  2533. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2534. /*:ref: ucase_ 14 4 13 13 124 124 */
  2535. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2536. /*:ref: setmsg_ 14 2 13 124 */
  2537. /*:ref: errch_ 14 4 13 13 124 124 */
  2538. /*:ref: sigerr_ 14 2 13 124 */
  2539. /*:ref: chkout_ 14 2 13 124 */
  2540. /*:ref: odd_ 12 1 4 */
  2541. /*:ref: irfnum_ 14 3 13 4 124 */
  2542. /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
  2543. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2544. /*:ref: moved_ 14 3 7 4 7 */
  2545. /*:ref: vnorm_ 7 1 7 */
  2546. /*:ref: clight_ 7 0 */
  2547. /*:ref: stlabx_ 14 3 7 7 7 */
  2548. /*:ref: vequ_ 14 2 7 7 */
  2549. /*:ref: stelab_ 14 3 7 7 7 */
  2550.  
  2551. extern int zzspkez0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2552. /*:ref: return_ 12 0 */
  2553. /*:ref: chkin_ 14 2 13 124 */
  2554. /*:ref: namfrm_ 14 3 13 4 124 */
  2555. /*:ref: ltrim_ 4 2 13 124 */
  2556. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2557. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2558. /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
  2559. /*:ref: setmsg_ 14 2 13 124 */
  2560. /*:ref: errch_ 14 4 13 13 124 124 */
  2561. /*:ref: sigerr_ 14 2 13 124 */
  2562. /*:ref: chkout_ 14 2 13 124 */
  2563. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2564. /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
  2565. /*:ref: zzspkap0_ 14 9 4 7 13 7 13 7 7 124 124 */
  2566. /*:ref: failed_ 12 0 */
  2567. /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
  2568. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2569.  
  2570. extern int zzspkez1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *starg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2571. /*:ref: return_ 12 0 */
  2572. /*:ref: chkin_ 14 2 13 124 */
  2573. /*:ref: namfrm_ 14 3 13 4 124 */
  2574. /*:ref: setmsg_ 14 2 13 124 */
  2575. /*:ref: errch_ 14 4 13 13 124 124 */
  2576. /*:ref: sigerr_ 14 2 13 124 */
  2577. /*:ref: chkout_ 14 2 13 124 */
  2578. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2579. /*:ref: ltrim_ 4 2 13 124 */
  2580. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2581. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2582. /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
  2583. /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
  2584. /*:ref: zzspkap1_ 14 9 4 7 13 7 13 7 7 124 124 */
  2585. /*:ref: failed_ 12 0 */
  2586. /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
  2587. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2588.  
  2589. extern int zzspkgo0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
  2590. /*:ref: return_ 12 0 */
  2591. /*:ref: chkin_ 14 2 13 124 */
  2592. /*:ref: cleard_ 14 2 4 7 */
  2593. /*:ref: chkout_ 14 2 13 124 */
  2594. /*:ref: irfnum_ 14 3 13 4 124 */
  2595. /*:ref: namfrm_ 14 3 13 4 124 */
  2596. /*:ref: frstnp_ 4 2 13 124 */
  2597. /*:ref: setmsg_ 14 2 13 124 */
  2598. /*:ref: errch_ 14 4 13 13 124 124 */
  2599. /*:ref: sigerr_ 14 2 13 124 */
  2600. /*:ref: failed_ 12 0 */
  2601. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  2602. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  2603. /*:ref: moved_ 14 3 7 4 7 */
  2604. /*:ref: irfrot_ 14 3 4 4 7 */
  2605. /*:ref: mxv_ 14 3 7 7 7 */
  2606. /*:ref: zzfrmch0_ 14 4 4 4 7 7 */
  2607. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2608. /*:ref: vaddg_ 14 4 7 7 4 7 */
  2609. /*:ref: isrchi_ 4 3 4 4 4 */
  2610. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2611. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2612. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2613. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2614. /*:ref: intstr_ 14 3 4 13 124 */
  2615. /*:ref: etcal_ 14 3 7 13 124 */
  2616. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2617. /*:ref: vnorm_ 7 1 7 */
  2618. /*:ref: clight_ 7 0 */
  2619.  
  2620. extern int zzspkgo1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *state, doublereal *lt, ftnlen ref_len);
  2621. /*:ref: return_ 12 0 */
  2622. /*:ref: chkin_ 14 2 13 124 */
  2623. /*:ref: cleard_ 14 2 4 7 */
  2624. /*:ref: chkout_ 14 2 13 124 */
  2625. /*:ref: irfnum_ 14 3 13 4 124 */
  2626. /*:ref: namfrm_ 14 3 13 4 124 */
  2627. /*:ref: frstnp_ 4 2 13 124 */
  2628. /*:ref: setmsg_ 14 2 13 124 */
  2629. /*:ref: errch_ 14 4 13 13 124 124 */
  2630. /*:ref: sigerr_ 14 2 13 124 */
  2631. /*:ref: failed_ 12 0 */
  2632. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  2633. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  2634. /*:ref: moved_ 14 3 7 4 7 */
  2635. /*:ref: irfrot_ 14 3 4 4 7 */
  2636. /*:ref: mxv_ 14 3 7 7 7 */
  2637. /*:ref: zzfrmch1_ 14 4 4 4 7 7 */
  2638. /*:ref: mxvg_ 14 5 7 7 4 4 7 */
  2639. /*:ref: vaddg_ 14 4 7 7 4 7 */
  2640. /*:ref: isrchi_ 4 3 4 4 4 */
  2641. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2642. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2643. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2644. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2645. /*:ref: intstr_ 14 3 4 13 124 */
  2646. /*:ref: etcal_ 14 3 7 13 124 */
  2647. /*:ref: vsubg_ 14 4 7 7 4 7 */
  2648. /*:ref: vnorm_ 7 1 7 */
  2649. /*:ref: clight_ 7 0 */
  2650.  
  2651. extern int zzspkgp0_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
  2652. /*:ref: return_ 12 0 */
  2653. /*:ref: chkin_ 14 2 13 124 */
  2654. /*:ref: cleard_ 14 2 4 7 */
  2655. /*:ref: chkout_ 14 2 13 124 */
  2656. /*:ref: irfnum_ 14 3 13 4 124 */
  2657. /*:ref: namfrm_ 14 3 13 4 124 */
  2658. /*:ref: frstnp_ 4 2 13 124 */
  2659. /*:ref: setmsg_ 14 2 13 124 */
  2660. /*:ref: errch_ 14 4 13 13 124 124 */
  2661. /*:ref: sigerr_ 14 2 13 124 */
  2662. /*:ref: failed_ 12 0 */
  2663. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  2664. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  2665. /*:ref: moved_ 14 3 7 4 7 */
  2666. /*:ref: irfrot_ 14 3 4 4 7 */
  2667. /*:ref: mxv_ 14 3 7 7 7 */
  2668. /*:ref: zzrefch0_ 14 4 4 4 7 7 */
  2669. /*:ref: vadd_ 14 3 7 7 7 */
  2670. /*:ref: vequ_ 14 2 7 7 */
  2671. /*:ref: isrchi_ 4 3 4 4 4 */
  2672. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2673. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2674. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2675. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2676. /*:ref: intstr_ 14 3 4 13 124 */
  2677. /*:ref: etcal_ 14 3 7 13 124 */
  2678. /*:ref: vsub_ 14 3 7 7 7 */
  2679. /*:ref: vnorm_ 7 1 7 */
  2680. /*:ref: clight_ 7 0 */
  2681.  
  2682. extern int zzspkgp1_(integer *targ, doublereal *et, char *ref, integer *obs, doublereal *pos, doublereal *lt, ftnlen ref_len);
  2683. /*:ref: return_ 12 0 */
  2684. /*:ref: chkin_ 14 2 13 124 */
  2685. /*:ref: cleard_ 14 2 4 7 */
  2686. /*:ref: chkout_ 14 2 13 124 */
  2687. /*:ref: irfnum_ 14 3 13 4 124 */
  2688. /*:ref: namfrm_ 14 3 13 4 124 */
  2689. /*:ref: frstnp_ 4 2 13 124 */
  2690. /*:ref: setmsg_ 14 2 13 124 */
  2691. /*:ref: errch_ 14 4 13 13 124 124 */
  2692. /*:ref: sigerr_ 14 2 13 124 */
  2693. /*:ref: failed_ 12 0 */
  2694. /*:ref: spksfs_ 14 7 4 7 4 7 13 12 124 */
  2695. /*:ref: spkpvn_ 14 6 4 7 7 4 7 4 */
  2696. /*:ref: moved_ 14 3 7 4 7 */
  2697. /*:ref: irfrot_ 14 3 4 4 7 */
  2698. /*:ref: mxv_ 14 3 7 7 7 */
  2699. /*:ref: zzrefch1_ 14 4 4 4 7 7 */
  2700. /*:ref: vadd_ 14 3 7 7 7 */
  2701. /*:ref: vequ_ 14 2 7 7 */
  2702. /*:ref: isrchi_ 4 3 4 4 4 */
  2703. /*:ref: bodc2n_ 14 4 4 13 12 124 */
  2704. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2705. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2706. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2707. /*:ref: intstr_ 14 3 4 13 124 */
  2708. /*:ref: etcal_ 14 3 7 13 124 */
  2709. /*:ref: vsub_ 14 3 7 7 7 */
  2710. /*:ref: vnorm_ 7 1 7 */
  2711. /*:ref: clight_ 7 0 */
  2712.  
  2713. extern int zzspkpa0_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2714. /*:ref: return_ 12 0 */
  2715. /*:ref: chkin_ 14 2 13 124 */
  2716. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2717. /*:ref: ucase_ 14 4 13 13 124 124 */
  2718. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2719. /*:ref: setmsg_ 14 2 13 124 */
  2720. /*:ref: errch_ 14 4 13 13 124 124 */
  2721. /*:ref: sigerr_ 14 2 13 124 */
  2722. /*:ref: chkout_ 14 2 13 124 */
  2723. /*:ref: odd_ 12 1 4 */
  2724. /*:ref: irfnum_ 14 3 13 4 124 */
  2725. /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */
  2726. /*:ref: vsub_ 14 3 7 7 7 */
  2727. /*:ref: vequ_ 14 2 7 7 */
  2728. /*:ref: vnorm_ 7 1 7 */
  2729. /*:ref: clight_ 7 0 */
  2730. /*:ref: stlabx_ 14 3 7 7 7 */
  2731. /*:ref: stelab_ 14 3 7 7 7 */
  2732.  
  2733. extern int zzspkpa1_(integer *targ, doublereal *et, char *ref, doublereal *sobs, char *abcorr, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2734. /*:ref: return_ 12 0 */
  2735. /*:ref: chkin_ 14 2 13 124 */
  2736. /*:ref: cmprss_ 14 7 13 4 13 13 124 124 124 */
  2737. /*:ref: ucase_ 14 4 13 13 124 124 */
  2738. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2739. /*:ref: setmsg_ 14 2 13 124 */
  2740. /*:ref: errch_ 14 4 13 13 124 124 */
  2741. /*:ref: sigerr_ 14 2 13 124 */
  2742. /*:ref: chkout_ 14 2 13 124 */
  2743. /*:ref: odd_ 12 1 4 */
  2744. /*:ref: irfnum_ 14 3 13 4 124 */
  2745. /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */
  2746. /*:ref: vsub_ 14 3 7 7 7 */
  2747. /*:ref: vequ_ 14 2 7 7 */
  2748. /*:ref: vnorm_ 7 1 7 */
  2749. /*:ref: clight_ 7 0 */
  2750. /*:ref: stlabx_ 14 3 7 7 7 */
  2751. /*:ref: stelab_ 14 3 7 7 7 */
  2752.  
  2753. extern int zzspksb0_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
  2754. /*:ref: return_ 12 0 */
  2755. /*:ref: chkin_ 14 2 13 124 */
  2756. /*:ref: zzspkgo0_ 14 7 4 7 13 4 7 7 124 */
  2757. /*:ref: chkout_ 14 2 13 124 */
  2758.  
  2759. extern int zzspksb1_(integer *targ, doublereal *et, char *ref, doublereal *starg, ftnlen ref_len);
  2760. /*:ref: return_ 12 0 */
  2761. /*:ref: chkin_ 14 2 13 124 */
  2762. /*:ref: zzspkgo1_ 14 7 4 7 13 4 7 7 124 */
  2763. /*:ref: chkout_ 14 2 13 124 */
  2764.  
  2765. extern int zzspkzp0_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2766. /*:ref: return_ 12 0 */
  2767. /*:ref: chkin_ 14 2 13 124 */
  2768. /*:ref: namfrm_ 14 3 13 4 124 */
  2769. /*:ref: ltrim_ 4 2 13 124 */
  2770. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2771. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2772. /*:ref: zzspkgp0_ 14 7 4 7 13 4 7 7 124 */
  2773. /*:ref: setmsg_ 14 2 13 124 */
  2774. /*:ref: errch_ 14 4 13 13 124 124 */
  2775. /*:ref: sigerr_ 14 2 13 124 */
  2776. /*:ref: chkout_ 14 2 13 124 */
  2777. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2778. /*:ref: zzspksb0_ 14 5 4 7 13 7 124 */
  2779. /*:ref: zzspkpa0_ 14 9 4 7 13 7 13 7 7 124 124 */
  2780. /*:ref: failed_ 12 0 */
  2781. /*:ref: zzrefch0_ 14 4 4 4 7 7 */
  2782. /*:ref: mxv_ 14 3 7 7 7 */
  2783.  
  2784. extern int zzspkzp1_(integer *targ, doublereal *et, char *ref, char *abcorr, integer *obs, doublereal *ptarg, doublereal *lt, ftnlen ref_len, ftnlen abcorr_len);
  2785. /*:ref: return_ 12 0 */
  2786. /*:ref: chkin_ 14 2 13 124 */
  2787. /*:ref: namfrm_ 14 3 13 4 124 */
  2788. /*:ref: setmsg_ 14 2 13 124 */
  2789. /*:ref: errch_ 14 4 13 13 124 124 */
  2790. /*:ref: sigerr_ 14 2 13 124 */
  2791. /*:ref: chkout_ 14 2 13 124 */
  2792. /*:ref: frinfo_ 14 5 4 4 4 4 12 */
  2793. /*:ref: ltrim_ 4 2 13 124 */
  2794. /*:ref: eqchr_ 12 4 13 13 124 124 */
  2795. /*:ref: eqstr_ 12 4 13 13 124 124 */
  2796. /*:ref: zzspkgp1_ 14 7 4 7 13 4 7 7 124 */
  2797. /*:ref: zzspksb1_ 14 5 4 7 13 7 124 */
  2798. /*:ref: zzspkpa1_ 14 9 4 7 13 7 13 7 7 124 124 */
  2799. /*:ref: failed_ 12 0 */
  2800. /*:ref: zzrefch1_ 14 4 4 4 7 7 */
  2801. /*:ref: mxv_ 14 3 7 7 7 */
  2802.  
  2803. extern logical zztime_(char *string, char *transl, char *letter, char *error, char *pic, doublereal *tvec, integer *b, integer *e, logical *l2r, logical *yabbrv, ftnlen string_len, ftnlen transl_len, ftnlen letter_len, ftnlen error_len, ftnlen pic_len);
  2804. extern logical zzcmbt_(char *string, char *letter, logical *l2r, ftnlen string_len, ftnlen letter_len);
  2805. extern logical zzgrep_(char *string, ftnlen string_len);
  2806. extern logical zzispt_(char *string, integer *b, integer *e, ftnlen string_len);
  2807. extern logical zzist_(char *letter, ftnlen letter_len);
  2808. extern logical zznote_(char *letter, integer *b, integer *e, ftnlen letter_len);
  2809. extern logical zzremt_(char *letter, ftnlen letter_len);
  2810. extern logical zzsubt_(char *string, char *transl, logical *l2r, ftnlen string_len, ftnlen transl_len);
  2811. extern logical zztokns_(char *string, char *error, ftnlen string_len, ftnlen error_len);
  2812. extern logical zzunpck_(char *string, logical *yabbrv, doublereal *tvec, integer *e, char *transl, char *pic, char *error, ftnlen string_len, ftnlen transl_len, ftnlen pic_len, ftnlen error_len);
  2813. extern logical zzvalt_(char *string, integer *b, integer *e, char *letter, ftnlen string_len, ftnlen letter_len);
  2814. /*:ref: pos_ 4 5 13 13 4 124 124 */
  2815. /*:ref: posr_ 4 5 13 13 4 124 124 */
  2816. /*:ref: zzrepsub_ 14 8 13 4 4 13 13 124 124 124 */
  2817. /*:ref: cpos_ 4 5 13 13 4 124 124 */
  2818. /*:ref: rtrim_ 4 2 13 124 */
  2819. /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
  2820. /*:ref: zzinssub_ 14 7 13 13 4 13 124 124 124 */
  2821. /*:ref: prefix_ 14 5 13 4 13 124 124 */
  2822. /*:ref: repmi_ 14 7 13 13 4 13 124 124 124 */
  2823. /*:ref: ucase_ 14 4 13 13 124 124 */
  2824. /*:ref: samsbi_ 12 8 13 4 4 13 4 4 124 124 */
  2825. /*:ref: samchi_ 12 6 13 4 13 4 124 124 */
  2826. /*:ref: suffix_ 14 5 13 4 13 124 124 */
  2827. /*:ref: repmc_ 14 8 13 13 13 13 124 124 124 124 */
  2828. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2829. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2830. /*:ref: zzmkpc_ 14 8 13 4 4 13 13 124 124 124 */
  2831. /*:ref: nparsi_ 14 6 13 4 13 4 124 124 */
  2832.  
  2833. extern logical zztpats_(integer *room, integer *nknown, char *known, char *meanng, ftnlen known_len, ftnlen meanng_len);
  2834. /*:ref: orderc_ 14 4 13 4 4 124 */
  2835. /*:ref: reordc_ 14 4 4 4 13 124 */
  2836.  
  2837. extern int zztwovxf_(doublereal *axdef, integer *indexa, doublereal *plndef, integer *indexp, doublereal *xform);
  2838. /*:ref: return_ 12 0 */
  2839. /*:ref: chkin_ 14 2 13 124 */
  2840. /*:ref: setmsg_ 14 2 13 124 */
  2841. /*:ref: errint_ 14 3 13 4 124 */
  2842. /*:ref: sigerr_ 14 2 13 124 */
  2843. /*:ref: chkout_ 14 2 13 124 */
  2844. /*:ref: dvhat_ 14 2 7 7 */
  2845. /*:ref: ducrss_ 14 3 7 7 7 */
  2846. /*:ref: moved_ 14 3 7 4 7 */
  2847. /*:ref: cleard_ 14 2 4 7 */
  2848. /*:ref: vzero_ 12 1 7 */
  2849.  
  2850. extern int zzutcpm_(char *string, integer *start, doublereal *hoff, doublereal *moff, integer *last, logical *succes, ftnlen string_len);
  2851. /*:ref: lx4uns_ 14 5 13 4 4 4 124 */
  2852. /*:ref: nparsd_ 14 6 13 7 13 4 124 124 */
  2853. /*:ref: samch_ 12 6 13 4 13 4 124 124 */
  2854.  
  2855. extern int zzvstrng_(doublereal *x, char *fill, integer *from, integer *to, logical *rnd, integer *expont, char *substr, logical *did, ftnlen fill_len, ftnlen substr_len);
  2856. extern int zzvststr_(doublereal *x, char *fill, integer *expont, ftnlen fill_len);
  2857. extern int zzvsbstr_(integer *from, integer *to, logical *rnd, char *substr, logical *did, ftnlen substr_len);
  2858. /*:ref: dpstr_ 14 4 7 4 13 124 */
  2859.  
  2860. extern int zzwahr_(doublereal *et, doublereal *dvnut);
  2861. /*:ref: pi_ 7 0 */
  2862. /*:ref: twopi_ 7 0 */
  2863. /*:ref: spd_ 7 0 */
  2864.  
  2865. extern integer zzwind_(doublereal *plane, integer *n, doublereal *vertcs, doublereal *point);
  2866. /*:ref: return_ 12 0 */
  2867. /*:ref: chkin_ 14 2 13 124 */
  2868. /*:ref: setmsg_ 14 2 13 124 */
  2869. /*:ref: errint_ 14 3 13 4 124 */
  2870. /*:ref: sigerr_ 14 2 13 124 */
  2871. /*:ref: chkout_ 14 2 13 124 */
  2872. /*:ref: pl2nvc_ 14 3 7 7 7 */
  2873. /*:ref: vzero_ 12 1 7 */
  2874. /*:ref: vdot_ 7 2 7 7 */
  2875. /*:ref: vminus_ 14 2 7 7 */
  2876. /*:ref: vequ_ 14 2 7 7 */
  2877. /*:ref: vsub_ 14 3 7 7 7 */
  2878. /*:ref: vperp_ 14 3 7 7 7 */
  2879. /*:ref: vsep_ 7 2 7 7 */
  2880. /*:ref: ucrss_ 14 3 7 7 7 */
  2881. /*:ref: twopi_ 7 0 */
  2882.  
  2883. extern int zzxlated_(integer *inbff, char *input, integer *space, doublereal *output, ftnlen input_len);
  2884. /*:ref: return_ 12 0 */
  2885. /*:ref: chkin_ 14 2 13 124 */
  2886. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2887. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2888. /*:ref: ucase_ 14 4 13 13 124 124 */
  2889. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2890. /*:ref: setmsg_ 14 2 13 124 */
  2891. /*:ref: errch_ 14 4 13 13 124 124 */
  2892. /*:ref: sigerr_ 14 2 13 124 */
  2893. /*:ref: chkout_ 14 2 13 124 */
  2894. /*:ref: intmin_ 4 0 */
  2895. /*:ref: errint_ 14 3 13 4 124 */
  2896. /*:ref: moved_ 14 3 7 4 7 */
  2897.  
  2898. extern int zzxlatei_(integer *inbff, char *input, integer *space, integer *output, ftnlen input_len);
  2899. /*:ref: return_ 12 0 */
  2900. /*:ref: chkin_ 14 2 13 124 */
  2901. /*:ref: zzddhgsd_ 14 5 13 4 13 124 124 */
  2902. /*:ref: zzplatfm_ 14 4 13 13 124 124 */
  2903. /*:ref: ucase_ 14 4 13 13 124 124 */
  2904. /*:ref: isrchc_ 4 5 13 4 13 124 124 */
  2905. /*:ref: setmsg_ 14 2 13 124 */
  2906. /*:ref: errch_ 14 4 13 13 124 124 */
  2907. /*:ref: sigerr_ 14 2 13 124 */
  2908. /*:ref: chkout_ 14 2 13 124 */
  2909. /*:ref: intmin_ 4 0 */
  2910. /*:ref: errint_ 14 3 13 4 124 */
  2911.  
  2912.  
  2913. #ifdef __cplusplus
  2914.    }
  2915. #endif
  2916.  
  2917. #endif
  2918.