ruby-dcl 1.7.1 → 1.8.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (327) hide show
  1. checksums.yaml +5 -5
  2. data/ChangeLog +1149 -365
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -2
  6. data/demo/gokuraku/jump/jump1.rb +1 -2
  7. data/demo/gokuraku/jump/jump2.rb +2 -3
  8. data/demo/gokuraku/layout/lay1.rb +1 -2
  9. data/demo/gokuraku/layout/lay2.rb +1 -2
  10. data/demo/gokuraku/step/step0.rb +1 -2
  11. data/demo/gokuraku/step/step1.rb +1 -2
  12. data/demo/gokuraku/step/step2.rb +1 -2
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -2
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -2
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -2
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -2
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -2
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -2
  19. data/demo/grph1/scpack/scpkt2.rb +1 -2
  20. data/demo/grph1/scpack/scpkt3.rb +1 -2
  21. data/demo/grph1/scpack/scpkt6.rb +1 -2
  22. data/demo/grph1/scpack/scpkt7.rb +1 -2
  23. data/demo/grph1/scpack/scpkt8.rb +1 -2
  24. data/demo/grph1/sgpack/sgfont.rb +2 -3
  25. data/demo/grph1/sgpack/sgfonz.rb +2 -3
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -2
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -2
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -2
  29. data/demo/grph1/sgpack/sglidx.rb +1 -2
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -2
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -2
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -2
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -2
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -2
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -2
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -2
  37. data/demo/grph1/sgpack/sgpk07.rb +9 -8
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -2
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -2
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -2
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -2
  42. data/demo/grph1/sgpack/sgtone.rb +1 -2
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -2
  44. data/demo/grph1/slpack/slpk01.rb +1 -2
  45. data/demo/grph1/slpack/slpk02.rb +1 -2
  46. data/demo/grph1/slpack/slpk03.rb +1 -2
  47. data/demo/grph1/slpack/slpk04.rb +2 -3
  48. data/demo/grph2/grpack/grpk01.rb +1 -2
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -2
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -2
  51. data/demo/grph2/udegpk/u2df01.rb +1 -2
  52. data/demo/grph2/udegpk/u2df02.rb +1 -2
  53. data/demo/grph2/udegpk/u2df03.rb +3 -4
  54. data/demo/grph2/udegpk/u2df04.rb +1 -2
  55. data/demo/grph2/udegpk/u2df05.rb +1 -2
  56. data/demo/grph2/udegpk/u2df06.rb +1 -2
  57. data/demo/grph2/udegpk/u2df07.rb +1 -2
  58. data/demo/grph2/udegpk/u2df08.rb +1 -2
  59. data/demo/grph2/udegpk/u2df09b.rb +0 -1
  60. data/demo/grph2/udegpk/u2df09c.rb +0 -1
  61. data/demo/grph2/udegpk/u2df09e.rb +0 -1
  62. data/demo/grph2/udegpk/u2df09f.rb +0 -1
  63. data/demo/grph2/uipack/uipk01.rb +1 -2
  64. data/demo/grph2/uipack/uipk02.rb +26 -18
  65. data/demo/grph2/uipack/uipk03.rb +50 -0
  66. data/demo/grph2/ulpack/ulpk01.rb +1 -2
  67. data/demo/grph2/ulpack/ulpk01n.rb +1 -2
  68. data/demo/grph2/ulpack/ulpk02.rb +1 -2
  69. data/demo/grph2/ulpack/ulpk02n.rb +1 -2
  70. data/demo/grph2/umpack/test01.rb +1 -2
  71. data/demo/grph2/umpack/test02.rb +1 -2
  72. data/demo/grph2/umpack/test03.rb +1 -2
  73. data/demo/grph2/umpack/test04.rb +2 -3
  74. data/demo/grph2/umpack/test05.rb +1 -2
  75. data/demo/grph2/umpack/test05r.rb +86 -0
  76. data/demo/grph2/umpack/test06.rb +1 -2
  77. data/demo/grph2/umpack/test07.rb +1 -2
  78. data/demo/grph2/umpack/test08.rb +1 -2
  79. data/demo/grph2/umpack/test10.rb +0 -1
  80. data/demo/grph2/umpack/umpk01.rb +1 -2
  81. data/demo/grph2/umpack/umpk02.rb +1 -2
  82. data/demo/grph2/umpack/umpk03.rb +1 -2
  83. data/demo/grph2/umpack/umpk04.rb +1 -2
  84. data/demo/grph2/umpack/umpk05.rb +1 -2
  85. data/demo/grph2/uspack/uspk01.rb +1 -2
  86. data/demo/grph2/uspack/uspk02.rb +1 -2
  87. data/demo/grph2/uspack/uspk03.rb +1 -2
  88. data/demo/grph2/uspack/uspk04.rb +1 -2
  89. data/demo/grph2/uspack/uspk05.rb +1 -2
  90. data/demo/grph2/uspack/uspk06.rb +2 -3
  91. data/demo/grph2/uspack/uspk07.rb +1 -2
  92. data/demo/grph2/uspack/uspk08.rb +2 -3
  93. data/demo/grph2/uspack/uspk09.rb +1 -2
  94. data/demo/grph2/uspack/uspk10.rb +1 -2
  95. data/demo/grph2/uspack/uspk11.rb +1 -2
  96. data/demo/grph2/uspack/uspk12.rb +1 -2
  97. data/demo/grph2/uupack/uupk01.rb +1 -2
  98. data/demo/grph2/uupack/uupk02.rb +1 -2
  99. data/demo/grph2/uupack/uupk03.rb +1 -2
  100. data/demo/grph2/uupack/uupk04.rb +1 -2
  101. data/demo/grph2/uupack/uupk05.rb +1 -2
  102. data/demo/grph2/uupack/uupk06.rb +1 -2
  103. data/demo/grph2/uupack/uupk07.rb +1 -2
  104. data/demo/grph2/uxyzpk/uxyz01.rb +1 -2
  105. data/demo/grph2/uxyzpk/uxyz02.rb +1 -2
  106. data/demo/grph2/uxyzpk/uxyz03.rb +1 -2
  107. data/demo/grph2/uxyzpk/uxyz04.rb +1 -2
  108. data/demo/grph2/uxyzpk/uxyz05.rb +1 -2
  109. data/demo/grph2/uxyzpk/uxyz06.rb +1 -2
  110. data/demo/grph2/uxyzpk/uxyz07.rb +1 -2
  111. data/demo/grph2/uxyzpk/uxyz08.rb +1 -2
  112. data/demo/grph2/uxyzpk/uxyz09.rb +1 -2
  113. data/demo/grph2/uxyzpk/uxyz10.rb +1 -2
  114. data/demo/grph2/ximage/ximg01.rb +2 -3
  115. data/demo/math1/clsplib/cslb01.rb +1 -2
  116. data/demo/math2/fftlib/fftl01.rb +1 -2
  117. data/demo/math2/fftlib/fftl02.rb +1 -2
  118. data/demo/math2/intrlib/intr01.rb +1 -2
  119. data/demo/math2/rnmlib/rnml01.rb +1 -2
  120. data/demo/math2/vstlib/vstl01.rb +1 -2
  121. data/demo/math2/vstlib/vstl02.rb +1 -2
  122. data/demo/misc2/tmpack/tmpk01.rb +46 -0
  123. data/demo/misc2/tmpack/tmpk02.rb +58 -0
  124. data/demo/misc2/tmpack/tmpk03.rb +56 -0
  125. data/demo/rakuraku/color/color1.rb +1 -2
  126. data/demo/rakuraku/color/color2.rb +5 -5
  127. data/demo/rakuraku/color/color3.rb +1 -2
  128. data/demo/rakuraku/kihon/kihon1.rb +1 -2
  129. data/demo/rakuraku/kihon/kihon2.rb +1 -2
  130. data/demo/rakuraku/kihon/kihon3.rb +1 -2
  131. data/demo/rakuraku/kihon/kihon4.rb +1 -2
  132. data/demo/rakuraku/kihon/kihon5.rb +1 -2
  133. data/demo/rakuraku/kihon/kihon6.rb +1 -2
  134. data/demo/rakuraku/kihon/kihon7.rb +10 -5
  135. data/demo/rakuraku/kihon/kihon8.rb +1 -2
  136. data/demo/rakuraku/kihon/kihon9.rb +1 -2
  137. data/demo/rakuraku/kihon/kihona.rb +1 -2
  138. data/demo/rakuraku/kihon/kihonb.rb +12 -11
  139. data/demo/rakuraku/kihon/kihonc.rb +1 -2
  140. data/demo/rakuraku/layout/lay1.rb +1 -2
  141. data/demo/rakuraku/layout/lay2.rb +1 -2
  142. data/demo/rakuraku/layout/lay3.rb +1 -2
  143. data/demo/rakuraku/map3d/map3d1.rb +1 -2
  144. data/demo/rakuraku/map3d/map3d2.rb +1 -2
  145. data/demo/rakuraku/map3d/map3d3.rb +1 -2
  146. data/demo/rakuraku/map3d/map3d4.rb +1 -2
  147. data/demo/rakuraku/map3d/map3d5.rb +1 -2
  148. data/demo/rakuraku/map3d/map3d6.rb +0 -1
  149. data/demo/rakuraku/map3d/map3d7.rb +0 -1
  150. data/demo/rakuraku/miss/miss1.rb +1 -2
  151. data/demo/rakuraku/miss/miss2.rb +1 -2
  152. data/demo/rakuraku/quick/quick1.rb +1 -2
  153. data/demo/rakuraku/quick/quick2.rb +1 -2
  154. data/demo/rakuraku/quick/quick3.rb +1 -2
  155. data/demo/rakuraku/quick/quick4.rb +1 -2
  156. data/demo/rakuraku/quick/quick5.rb +1 -2
  157. data/demo/rakuraku/u2d/u2d1.rb +1 -2
  158. data/demo/rakuraku/u2d/u2d2.rb +1 -2
  159. data/demo/rakuraku/u2d/u2d3.rb +1 -2
  160. data/demo/rakuraku/u2d/u2d4.rb +1 -2
  161. data/demo/rakuraku/u2d/u2d5.rb +1 -2
  162. data/demo/rakuraku/u2d/u2d6.rb +1 -2
  163. data/demo/rakuraku/u2d/u2d7.rb +1 -2
  164. data/demo/rakuraku/uspack/uspac1.rb +2 -3
  165. data/demo/rakuraku/uspack/uspac2.rb +1 -2
  166. data/demo/rakuraku/uspack/uspac3.rb +2 -3
  167. data/demo/rakuraku/uspack/uspac4.rb +1 -2
  168. data/demo/rakuraku/uxyz/uxyz1.rb +1 -2
  169. data/demo/rakuraku/uxyz/uxyz2.rb +1 -2
  170. data/demo/rakuraku/uxyz/uxyz3.rb +1 -2
  171. data/demo/rakuraku/uxyz/uxyz4.rb +1 -2
  172. data/demo/rakuraku/uxyz/uxyz5.rb +1 -2
  173. data/demo/rakuraku/uxyz/uxyz6.rb +1 -2
  174. data/demo/rakuraku/uxyz/uxyz7.rb +1 -2
  175. data/demo/rakuraku/uxyz/uxyz8.rb +1 -2
  176. data/demo/rubydcloriginal/uemrkz1.rb +0 -1
  177. data/ext/numru/dcl_cary2obj.c +29 -24
  178. data/ext/numru/dcl_narrayed_funcs.c +21 -21
  179. data/ext/numru/dcl_obj2cary.c +9 -5
  180. data/ext/numru/dcl_rubydcloriginal.c +14 -5
  181. data/ext/numru/extconf.rb +73 -61
  182. data/ext/numru/grph1_csgi.c +38 -8
  183. data/ext/numru/grph1_scpack.c +49 -46
  184. data/ext/numru/grph1_sgpack.c +167 -164
  185. data/ext/numru/grph1_slpack.c +23 -20
  186. data/ext/numru/grph1_stpack.c +44 -41
  187. data/ext/numru/grph1_swpack.c +155 -92
  188. data/ext/numru/grph2_grpack.c +22 -19
  189. data/ext/numru/grph2_ucpack.c +55 -52
  190. data/ext/numru/grph2_udpack.c +61 -58
  191. data/ext/numru/grph2_uepack.c +60 -57
  192. data/ext/numru/grph2_ugpack.c +49 -46
  193. data/ext/numru/grph2_uhpack.c +25 -22
  194. data/ext/numru/grph2_uipack.c +57 -54
  195. data/ext/numru/grph2_ulpack.c +59 -56
  196. data/ext/numru/grph2_umpack.c +75 -72
  197. data/ext/numru/grph2_uspack.c +97 -94
  198. data/ext/numru/grph2_uupack.c +78 -75
  199. data/ext/numru/grph2_uvpack.c +25 -22
  200. data/ext/numru/grph2_uwpack.c +30 -27
  201. data/ext/numru/grph2_uxpack.c +23 -20
  202. data/ext/numru/grph2_uypack.c +23 -20
  203. data/ext/numru/grph2_uzpack.c +69 -66
  204. data/ext/numru/init.c.default +6 -2
  205. data/ext/numru/math1_blklib.c +13 -10
  206. data/ext/numru/math1_chrlib.c +16 -13
  207. data/ext/numru/math1_clsplib.c +13 -10
  208. data/ext/numru/math1_fnclib.c +16 -13
  209. data/ext/numru/math1_gnmlib.c +21 -18
  210. data/ext/numru/math1_gt2dlib.c +18 -15
  211. data/ext/numru/math1_ifalib.c +18 -15
  212. data/ext/numru/math1_indxlib.c +24 -21
  213. data/ext/numru/math1_intlib.c +13 -10
  214. data/ext/numru/math1_lrllib.c +33 -30
  215. data/ext/numru/math1_maplib.c +14 -11
  216. data/ext/numru/math1_oslib.c +11 -8
  217. data/ext/numru/math1_rfalib.c +39 -36
  218. data/ext/numru/math1_rfblib.c +12 -9
  219. data/ext/numru/math1_sublib.c +13 -10
  220. data/ext/numru/math1_syslib.c +82 -79
  221. data/ext/numru/math1_vialib.c +31 -28
  222. data/ext/numru/math1_viblib.c +24 -21
  223. data/ext/numru/math1_vralib.c +31 -28
  224. data/ext/numru/math1_vrblib.c +24 -21
  225. data/ext/numru/math1_xfclib.c +12 -9
  226. data/ext/numru/math2_fftlib.c +28 -25
  227. data/ext/numru/math2_intrlib.c +11 -8
  228. data/ext/numru/math2_rnmlib.c +12 -9
  229. data/ext/numru/math2_shtlib.c +34 -31
  230. data/ext/numru/math2_vstlib.c +15 -12
  231. data/ext/numru/misc1_chnlib.c +12 -9
  232. data/ext/numru/misc1_datelib.c +36 -33
  233. data/ext/numru/misc1_fmtlib.c +10 -7
  234. data/ext/numru/misc1_misclib.c +11 -8
  235. data/ext/numru/misc1_randlib.c +13 -10
  236. data/ext/numru/misc1_timelib.c +20 -17
  237. data/ext/numru/misc2_tmpack.c +1200 -0
  238. data/lib/numru/dcl/dcl.rb +5676 -0
  239. data/lib/numru/dcl/version.rb +5 -0
  240. data/lib/numru/dcl.rb +6 -5580
  241. data/ruby-dcl.gemspec +13 -9
  242. metadata +25 -99
  243. data/.gitignore +0 -13
  244. data/.rspec +0 -2
  245. data/.travis.yml +0 -3
  246. data/GenWrapper/Makefile +0 -15
  247. data/GenWrapper/cproto2init.rb +0 -41
  248. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  249. data/GenWrapper/dcl_rb_footing +0 -29
  250. data/GenWrapper/dcl_rb_heading +0 -123
  251. data/GenWrapper/def.rb +0 -20
  252. data/GenWrapper/elim_ary_size.rb +0 -398
  253. data/GenWrapper/etc/p_header +0 -64
  254. data/GenWrapper/pparse.rb +0 -137
  255. data/GenWrapper/proto/Makefile +0 -36
  256. data/GenWrapper/proto/grph1_00 +0 -17
  257. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  258. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  259. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  260. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  261. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  262. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  263. data/GenWrapper/proto/grph2_00 +0 -16
  264. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  265. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  266. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  267. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  268. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  269. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  270. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  271. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  272. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  273. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  274. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  275. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  276. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  277. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  278. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  279. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  280. data/GenWrapper/proto/math1_00 +0 -12
  281. data/GenWrapper/proto/math1_blklib.fp +0 -58
  282. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  283. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  284. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  285. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  286. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  287. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  288. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  289. data/GenWrapper/proto/math1_intlib.fp +0 -46
  290. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  291. data/GenWrapper/proto/math1_maplib.fp +0 -24
  292. data/GenWrapper/proto/math1_oslib.fp +0 -28
  293. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  294. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  295. data/GenWrapper/proto/math1_sublib.fp +0 -60
  296. data/GenWrapper/proto/math1_syslib.fp +0 -767
  297. data/GenWrapper/proto/math1_vialib.fp +0 -339
  298. data/GenWrapper/proto/math1_viblib.fp +0 -264
  299. data/GenWrapper/proto/math1_vralib.fp +0 -339
  300. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  301. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  302. data/GenWrapper/proto/math2_00 +0 -12
  303. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  304. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  305. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  306. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  307. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  308. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  309. data/GenWrapper/proto/misc1_00 +0 -17
  310. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  311. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  312. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  313. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  314. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  315. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  316. data/GenWrapper/proto2c.rb +0 -13
  317. data/GenWrapper/prototype.rb +0 -209
  318. data/GenWrapper/util.rb +0 -9
  319. data/GenWrapper/variable.rb +0 -671
  320. data/README +0 -29
  321. data/ToDo +0 -2
  322. data/bin/console +0 -14
  323. data/bin/setup +0 -7
  324. data/demo/grph2/ximage/MEMO +0 -23
  325. data/obsolete/README +0 -2
  326. data/obsolete/dcl_ext.html +0 -112
  327. data/obsolete/dcl_ext.rb +0 -313
@@ -1,767 +0,0 @@
1
- /*
2
- * math1_syslib.fp
3
- *
4
- * $Id: math1_syslib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/syslib/glpget.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE GLPGET(CP, IPARA)
12
- * CHARACTER CP*(*)
13
- */
14
- /* SUBROUTINE GLPGET(
15
- * CHARACTER*(*) CP
16
- * INTEGER o IPARA
17
- * )
18
- */
19
-
20
- /*
21
- * ENTRY GLPSET(CP, IPARA)
22
- * CHARACTER CP*(*)
23
- */
24
- /* SUBROUTINE GLPSET(
25
- * CHARACTER*(*) CP
26
- * INTEGER IPARA
27
- * )
28
- */
29
-
30
- /*
31
- * ENTRY GLPSTX(CP, IPARA)
32
- * CHARACTER CP*(*)
33
- */
34
- /* SUBROUTINE GLPSTX(
35
- * CHARACTER*(*) CP
36
- * INTEGER IPARA
37
- * )
38
- */
39
-
40
- /*****************************************************
41
- * math1/syslib/lchreq.f
42
- ****************************************************/
43
- /*
44
- * LOGICAL FUNCTION LCHREQ(CH1,CH2)
45
- * CHARACTER CH1*(*),CH2*(*)
46
- */
47
- LOGICAL FUNCTION LCHREQ(
48
- CHARACTER*(*) CH1
49
- CHARACTER*(*) CH2
50
- )
51
-
52
- /*****************************************************
53
- * math1/syslib/msgdmp.f
54
- ****************************************************/
55
- /*
56
- * SUBROUTINE MSGDMP(CLEV,CSUB,CMSG)
57
- * CHARACTER CLEV*(*),CSUB*(*),CMSG*(*)
58
- */
59
- SUBROUTINE MSGDMP(
60
- CHARACTER*(*) CLEV
61
- CHARACTER*(*) CSUB
62
- CHARACTER*(*) CMSG
63
- )
64
-
65
- /*****************************************************
66
- * math1/syslib/mszdmp.f
67
- ****************************************************/
68
- /*
69
- * SUBROUTINE MSZDMP(CMSG,IUNIT,LNSIZE)
70
- * CHARACTER CMSG*(*)
71
- */
72
- SUBROUTINE MSZDMP(
73
- CHARACTER*(*) CMSG
74
- INTEGER IUNIT
75
- INTEGER LNSIZE
76
- )
77
-
78
- /*****************************************************
79
- * math1/syslib/glcget.f
80
- ****************************************************/
81
- /*
82
- * SUBROUTINE GLCGET(CP,CPARA)
83
- * CHARACTER CP*(*),CPARA*(*)
84
- */
85
- SUBROUTINE GLCGET(
86
- CHARACTER*(*) CP
87
- CHARACTER*(*) o CPARA
88
- )
89
-
90
- /*
91
- * ENTRY GLCSET(CP,CPARA)
92
- * CHARACTER CP*(*),CPARA*(*)
93
- */
94
- SUBROUTINE GLCSET(
95
- CHARACTER*(*) CP
96
- CHARACTER*(*) CPARA
97
- )
98
-
99
- /*
100
- * ENTRY GLCSTX(CP,CPARA)
101
- * CHARACTER CP*(*),CPARA*(*)
102
- */
103
- SUBROUTINE GLCSTX(
104
- CHARACTER*(*) CP
105
- CHARACTER*(*) CPARA
106
- )
107
-
108
- /*****************************************************
109
- * math1/syslib/glqfnm.f
110
- ****************************************************/
111
- /*
112
- * SUBROUTINE GLQFNM(CPARA,CFNAME)
113
- * CHARACTER CPARA*(*),CFNAME*(*)
114
- */
115
- SUBROUTINE GLQFNM(
116
- CHARACTER*(*) CPARA
117
- CHARACTER*(*) o CFNAME
118
- )
119
-
120
- /*****************************************************
121
- * math1/syslib/iufopn.f
122
- ****************************************************/
123
- /*
124
- * INTEGER FUNCTION IUFOPN()
125
- */
126
- INTEGER FUNCTION IUFOPN(
127
- )
128
-
129
- /*****************************************************
130
- * math1/syslib/cfsrch.f
131
- ****************************************************/
132
- /*
133
- * SUBROUTINE CFSRCH(CPLIST,NP,CFLIST,NF,CFNAME)
134
- * CHARACTER CPLIST(*)*80,CFLIST(*)*80,CFNAME*(*)
135
- */
136
- SUBROUTINE CFSRCH(
137
- CHARACTER*80 (NP) CPLIST
138
- INTEGER NP
139
- CHARACTER*80 (NP) CFLIST
140
- INTEGER NF
141
- CHARACTER*(*) o CFNAME
142
- )
143
-
144
- /*****************************************************
145
- * math1/syslib/glpqnp.f
146
- ****************************************************/
147
- /*
148
- * SUBROUTINE GLPQNP(NCP)
149
- */
150
- SUBROUTINE GLPQNP(
151
- INTEGER o NCP
152
- )
153
-
154
- /*
155
- * ENTRY GLPQID(CP, IDX)
156
- * CHARACTER CP*(*)
157
- */
158
- SUBROUTINE GLPQID(
159
- CHARACTER*(*) CP
160
- INTEGER o IDX
161
- )
162
-
163
- /*
164
- * ENTRY GLPQCP(IDX, CP)
165
- * CHARACTER CP*(*)
166
- */
167
- SUBROUTINE GLPQCP(
168
- INTEGER IDX
169
- CHARACTER*(*) o CP
170
- )
171
-
172
- /*
173
- * ENTRY GLPQCL(IDX, CP)
174
- * CHARACTER CP*(*)
175
- */
176
- SUBROUTINE GLPQCL(
177
- INTEGER IDX
178
- CHARACTER*(*) o CP
179
- )
180
-
181
- /*
182
- * ENTRY GLPQIT(IDX, ITP)
183
- */
184
- SUBROUTINE GLPQIT(
185
- INTEGER IDX
186
- INTEGER o ITP
187
- )
188
-
189
- /*
190
- * ENTRY GLPQVL(IDX, IPARA)
191
- */
192
- SUBROUTINE GLPQVL(
193
- INTEGER IDX
194
- INTEGER o IPARA
195
- )
196
-
197
- /*
198
- * ENTRY GLPSVL(IDX, IPARA)
199
- */
200
- SUBROUTINE GLPSVL(
201
- INTEGER IDX
202
- INTEGER IPARA
203
- )
204
-
205
- /*
206
- * ENTRY GLPQIN(CP, IN)
207
- * CHARACTER CP*(*)
208
- */
209
- SUBROUTINE GLPQIN(
210
- CHARACTER*(*) CP
211
- INTEGER o IN
212
- )
213
-
214
- /*****************************************************
215
- * math1/syslib/gliget.f
216
- ****************************************************/
217
- /*
218
- * SUBROUTINE GLIGET(CP, IPARA)
219
- * CHARACTER CP*(*)
220
- */
221
- SUBROUTINE GLIGET(
222
- CHARACTER*(*) CP
223
- INTEGER o IPARA
224
- )
225
-
226
- /*
227
- * ENTRY GLISET(CP, IPARA)
228
- * CHARACTER CP*(*)
229
- */
230
- SUBROUTINE GLISET(
231
- CHARACTER*(*) CP
232
- INTEGER IPARA
233
- )
234
-
235
- /*
236
- * ENTRY GLISTX(CP, IPARA)
237
- * CHARACTER CP*(*)
238
- */
239
- SUBROUTINE GLISTX(
240
- CHARACTER*(*) CP
241
- INTEGER IPARA
242
- )
243
-
244
- /*****************************************************
245
- * math1/syslib/gllget.f
246
- ****************************************************/
247
- /*
248
- * SUBROUTINE GLLGET(CP, LPARA)
249
- * CHARACTER CP*(*)
250
- * LOGICAL LPARA
251
- */
252
- SUBROUTINE GLLGET(
253
- CHARACTER*(*) CP
254
- LOGICAL o LPARA
255
- )
256
-
257
- /*
258
- * ENTRY GLLSET(CP, LPARA)
259
- * CHARACTER CP*(*)
260
- * LOGICAL LPARA
261
- */
262
- SUBROUTINE GLLSET(
263
- CHARACTER*(*) CP
264
- LOGICAL LPARA
265
- )
266
-
267
- /*
268
- * ENTRY GLLSTX(CP, LPARA)
269
- * CHARACTER CP*(*)
270
- * LOGICAL LPARA
271
- */
272
- SUBROUTINE GLLSTX(
273
- CHARACTER*(*) CP
274
- LOGICAL LPARA
275
- )
276
-
277
- /*****************************************************
278
- * math1/syslib/rpnenv.f
279
- ****************************************************/
280
- /*
281
- * SUBROUTINE RPNENV
282
- */
283
- SUBROUTINE RPNENV(
284
- )
285
-
286
- /*
287
- * ENTRY RTIENV(CPFIX, CP, IPARA)
288
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
289
- */
290
- SUBROUTINE RTIENV(
291
- CHARACTER*(*) CPFIX
292
- CHARACTER*(*) CP
293
- INTEGER o IPARA
294
- )
295
-
296
- /*
297
- * ENTRY RTLENV(CPFIX, CP, LPARA)
298
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
299
- * LOGICAL LPARA
300
- */
301
- SUBROUTINE RTLENV(
302
- CHARACTER*(*) CPFIX
303
- CHARACTER*(*) CP
304
- LOGICAL o LPARA
305
- )
306
-
307
- /*
308
- * ENTRY RTRENV(CPFIX, CP, RPARA)
309
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
310
- */
311
- SUBROUTINE RTRENV(
312
- CHARACTER*(*) CPFIX
313
- CHARACTER*(*) CP
314
- REAL o RPARA
315
- )
316
-
317
- /*
318
- * ENTRY RTCENV(CPFIX, CP, CPARA)
319
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
320
- */
321
- SUBROUTINE RTCENV(
322
- CHARACTER*(*) CPFIX
323
- CHARACTER*(*) CP
324
- CHARACTER*(*) o CPARA
325
- )
326
-
327
- /*
328
- * ENTRY RLIENV(CP, IPARA)
329
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
330
- */
331
- SUBROUTINE RLIENV(
332
- CHARACTER*(*) CP
333
- INTEGER o IPARA
334
- )
335
-
336
- /*
337
- * ENTRY RLLENV(CP, LPARA)
338
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
339
- * LOGICAL LPARA
340
- */
341
- SUBROUTINE RLLENV(
342
- CHARACTER*(*) CP
343
- LOGICAL o LPARA
344
- )
345
-
346
- /*
347
- * ENTRY RLRENV(CP, RPARA)
348
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
349
- */
350
- SUBROUTINE RLRENV(
351
- CHARACTER*(*) CP
352
- REAL o RPARA
353
- )
354
-
355
- /*
356
- * ENTRY RLCENV(CP, CPARA)
357
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
358
- */
359
- SUBROUTINE RLCENV(
360
- CHARACTER*(*) CP
361
- CHARACTER*(*) o CPARA
362
- )
363
-
364
- /*****************************************************
365
- * math1/syslib/glrget.f
366
- ****************************************************/
367
- /*
368
- * SUBROUTINE GLRGET(CP, RPARA)
369
- * CHARACTER CP*(*)
370
- */
371
- SUBROUTINE GLRGET(
372
- CHARACTER*(*) CP
373
- REAL o RPARA
374
- )
375
-
376
- /*
377
- * ENTRY GLRSET(CP, RPARA)
378
- * CHARACTER CP*(*)
379
- */
380
- SUBROUTINE GLRSET(
381
- CHARACTER*(*) CP
382
- REAL RPARA
383
- )
384
-
385
- /*
386
- * ENTRY GLRSTX(CP, RPARA)
387
- * CHARACTER CP*(*)
388
- */
389
- SUBROUTINE GLRSTX(
390
- CHARACTER*(*) CP
391
- REAL RPARA
392
- )
393
-
394
- /*****************************************************
395
- * math1/syslib/gllqnp.f
396
- ****************************************************/
397
- /*
398
- * SUBROUTINE GLLQNP(NCP)
399
- */
400
- SUBROUTINE GLLQNP(
401
- INTEGER o NCP
402
- )
403
-
404
- /*
405
- * ENTRY GLLQID(CP, IDX)
406
- * CHARACTER CP*(*)
407
- */
408
- SUBROUTINE GLLQID(
409
- CHARACTER*(*) CP
410
- INTEGER o IDX
411
- )
412
-
413
- /*
414
- * ENTRY GLLQCP(IDX, CP)
415
- * CHARACTER CP*(*)
416
- */
417
- SUBROUTINE GLLQCP(
418
- INTEGER IDX
419
- CHARACTER*(*) o CP
420
- )
421
-
422
- /*
423
- * ENTRY GLLQCL(IDX, CP)
424
- * CHARACTER CP*(*)
425
- */
426
- SUBROUTINE GLLQCL(
427
- INTEGER IDX
428
- CHARACTER*(*) o CP
429
- )
430
-
431
- /*
432
- * ENTRY GLLQVL(IDX, LPARA)
433
- * LOGICAL LPARA
434
- */
435
- SUBROUTINE GLLQVL(
436
- INTEGER IDX
437
- LOGICAL o LPARA
438
- )
439
-
440
- /*
441
- * ENTRY GLLSVL(IDX, LPARA)
442
- * LOGICAL LPARA
443
- */
444
- SUBROUTINE GLLSVL(
445
- INTEGER IDX
446
- LOGICAL LPARA
447
- )
448
-
449
- /*
450
- * ENTRY GLLQIN(CP, IN)
451
- * CHARACTER CP*(*)
452
- */
453
- SUBROUTINE GLLQIN(
454
- CHARACTER*(*) CP
455
- INTEGER o IN
456
- )
457
-
458
- /*****************************************************
459
- * math1/syslib/rpnget.f
460
- ****************************************************/
461
- /*
462
- * SUBROUTINE RPNGET
463
- */
464
- SUBROUTINE RPNGET(
465
- )
466
-
467
- /*
468
- * ENTRY RTIGET(CPFIX, CPS, IPARA, MAX)
469
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
470
- * INTEGER IPARA(*)
471
- */
472
- SUBROUTINE RTIGET(
473
- CHARACTER*(*) CPFIX
474
- CHARACTER*8 (MAX) CPS
475
- INTEGER (MAX) o IPARA
476
- INTEGER MAX
477
- )
478
-
479
- /*
480
- * ENTRY RTLGET(CPFIX, CPS, LPARA, MAX)
481
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
482
- * LOGICAL LPARA(*)
483
- */
484
- SUBROUTINE RTLGET(
485
- CHARACTER*(*) CPFIX
486
- CHARACTER*8 (MAX) CPS
487
- LOGICAL (MAX) o LPARA
488
- INTEGER MAX
489
- )
490
-
491
- /*
492
- * ENTRY RTRGET(CPFIX, CPS, RPARA, MAX)
493
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
494
- * REAL RPARA(*)
495
- */
496
- SUBROUTINE RTRGET(
497
- CHARACTER*(*) CPFIX
498
- CHARACTER*8 (MAX) CPS
499
- REAL (MAX) o RPARA
500
- INTEGER MAX
501
- )
502
-
503
- /*
504
- * ENTRY RTCGET(CPFIX, CPS, CPARA, MAX)
505
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
506
- * CHARACTER CPARA(*)*80
507
- */
508
- SUBROUTINE RTCGET(
509
- CHARACTER*(*) CPFIX
510
- CHARACTER*8 (MAX) CPS
511
- CHARACTER*80 (MAX) o CPARA
512
- INTEGER MAX
513
- )
514
-
515
- /*
516
- * ENTRY RLIGET(CPL, IPARA, MAX)
517
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
518
- * INTEGER IPARA(*)
519
- */
520
- SUBROUTINE RLIGET(
521
- CHARACTER*40 (MAX) CPL
522
- INTEGER (MAX) o IPARA
523
- INTEGER MAX
524
- )
525
-
526
- /*
527
- * ENTRY RLLGET(CPL, LPARA, MAX)
528
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
529
- * LOGICAL LPARA(*)
530
- */
531
- SUBROUTINE RLLGET(
532
- CHARACTER*40 (MAX) CPL
533
- LOGICAL (MAX) o LPARA
534
- INTEGER MAX
535
- )
536
-
537
- /*
538
- * ENTRY RLRGET(CPL, RPARA, MAX)
539
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
540
- * REAL RPARA(*)
541
- */
542
- SUBROUTINE RLRGET(
543
- CHARACTER*40 (MAX) CPL
544
- REAL (MAX) o RPARA
545
- INTEGER MAX
546
- )
547
-
548
- /*
549
- * ENTRY RLCGET(CPL, CPARA, MAX)
550
- * CHARACTER CPFIX*(*), CPS(*)*8, CPL(*)*40
551
- * CHARACTER CPARA(*)*80
552
- */
553
- SUBROUTINE RLCGET(
554
- CHARACTER*40 (MAX) CPL
555
- CHARACTER*80 (MAX) o CPARA
556
- INTEGER MAX
557
- )
558
-
559
- /*****************************************************
560
- * math1/syslib/rpnopt.f
561
- ****************************************************/
562
- /*
563
- * SUBROUTINE RPNOPT
564
- */
565
- SUBROUTINE RPNOPT(
566
- )
567
-
568
- /*
569
- * ENTRY RTIOPT(CPFIX, CP, IPARA)
570
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
571
- */
572
- SUBROUTINE RTIOPT(
573
- CHARACTER*(*) CPFIX
574
- CHARACTER*(*) CP
575
- INTEGER o IPARA
576
- )
577
-
578
- /*
579
- * ENTRY RTLOPT(CPFIX, CP, LPARA)
580
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
581
- * LOGICAL LPARA
582
- */
583
- SUBROUTINE RTLOPT(
584
- CHARACTER*(*) CPFIX
585
- CHARACTER*(*) CP
586
- LOGICAL o LPARA
587
- )
588
-
589
- /*
590
- * ENTRY RTROPT(CPFIX, CP, RPARA)
591
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
592
- */
593
- SUBROUTINE RTROPT(
594
- CHARACTER*(*) CPFIX
595
- CHARACTER*(*) CP
596
- REAL o RPARA
597
- )
598
-
599
- /*
600
- * ENTRY RTCOPT(CPFIX, CP, CPARA)
601
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
602
- */
603
- SUBROUTINE RTCOPT(
604
- CHARACTER*(*) CPFIX
605
- CHARACTER*(*) CP
606
- CHARACTER*(*) o CPARA
607
- )
608
-
609
- /*
610
- * ENTRY RLIOPT(CP, IPARA)
611
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
612
- */
613
- SUBROUTINE RLIOPT(
614
- CHARACTER*(*) CP
615
- INTEGER o IPARA
616
- )
617
-
618
- /*
619
- * ENTRY RLLOPT(CP, LPARA)
620
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
621
- * LOGICAL LPARA
622
- */
623
- SUBROUTINE RLLOPT(
624
- CHARACTER*(*) CP
625
- LOGICAL o LPARA
626
- )
627
-
628
- /*
629
- * ENTRY RLROPT(CP, RPARA)
630
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
631
- */
632
- SUBROUTINE RLROPT(
633
- CHARACTER*(*) CP
634
- REAL o RPARA
635
- )
636
-
637
- /*
638
- * ENTRY RLCOPT(CP, CPARA)
639
- * CHARACTER CPFIX*(*), CP*(*), CPARA*(*)
640
- */
641
- SUBROUTINE RLCOPT(
642
- CHARACTER*(*) CP
643
- CHARACTER*(*) o CPARA
644
- )
645
-
646
- /*****************************************************
647
- * math1/syslib/rpnxfl.f
648
- ****************************************************/
649
- /*
650
- * SUBROUTINE RPNXFL
651
- */
652
- SUBROUTINE RPNXFL(
653
- )
654
-
655
- /*
656
- * ENTRY RTIXFL(CPFIX, CP, IPARA)
657
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
658
- */
659
- SUBROUTINE RTIXFL(
660
- CHARACTER*(*) CPFIX
661
- CHARACTER*(*) CP
662
- INTEGER o IPARA
663
- )
664
-
665
- /*
666
- * ENTRY RTLXFL(CPFIX, CP, LPARA)
667
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
668
- * LOGICAL LPARA
669
- */
670
- SUBROUTINE RTLXFL(
671
- CHARACTER*(*) CPFIX
672
- CHARACTER*(*) CP
673
- LOGICAL o LPARA
674
- )
675
-
676
- /*
677
- * ENTRY RTRXFL(CPFIX, CP, RPARA)
678
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
679
- */
680
- SUBROUTINE RTRXFL(
681
- CHARACTER*(*) CPFIX
682
- CHARACTER*(*) CP
683
- REAL o RPARA
684
- )
685
-
686
- /*
687
- * ENTRY RTCXFL(CPFIX, CP, CVAL)
688
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
689
- */
690
- SUBROUTINE RTCXFL(
691
- CHARACTER*(*) CPFIX
692
- CHARACTER*(*) CP
693
- CHARACTER*(*) o CVAL
694
- )
695
-
696
- /*
697
- * ENTRY RLIXFL(CP, IPARA)
698
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
699
- */
700
- SUBROUTINE RLIXFL(
701
- CHARACTER*(*) CP
702
- INTEGER o IPARA
703
- )
704
-
705
- /*
706
- * ENTRY RLLXFL(CP, LPARA)
707
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
708
- * LOGICAL LPARA
709
- */
710
- SUBROUTINE RLLXFL(
711
- CHARACTER*(*) CP
712
- LOGICAL o LPARA
713
- )
714
-
715
- /*
716
- * ENTRY RLRXFL(CP, RPARA)
717
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
718
- */
719
- SUBROUTINE RLRXFL(
720
- CHARACTER*(*) CP
721
- REAL o RPARA
722
- )
723
-
724
- /*
725
- * ENTRY RLCXFL(CP, CVAL)
726
- * CHARACTER CPFIX*(*), CP*(*), CVAL*(*)
727
- */
728
- SUBROUTINE RLCXFL(
729
- CHARACTER*(*) CP
730
- CHARACTER*(*) o CVAL
731
- )
732
-
733
- /*****************************************************
734
- * math1/syslib/prcopn.f
735
- ****************************************************/
736
- /*
737
- * SUBROUTINE PRCOPN(CPROC)
738
- * CHARACTER CPROC*(*)
739
- */
740
- SUBROUTINE PRCOPN(
741
- CHARACTER*(*) CPROC
742
- )
743
-
744
- /*
745
- * ENTRY PRCCLS(CPROC)
746
- * CHARACTER CPROC*(*)
747
- */
748
- SUBROUTINE PRCCLS(
749
- CHARACTER*(*) CPROC
750
- )
751
-
752
- /*
753
- * ENTRY PRCLVL(NLEV)
754
- */
755
- SUBROUTINE PRCLVL(
756
- INTEGER o NLEV
757
- )
758
-
759
- /*
760
- * ENTRY PRCNAM(NLEV, CPROC)
761
- * CHARACTER CPROC*(*)
762
- */
763
- SUBROUTINE PRCNAM(
764
- INTEGER NLEV
765
- CHARACTER*(*) o CPROC
766
- )
767
-