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
data/GenWrapper/proto/grph2_uupack.fp DELETED
@@ -1,663 +0,0 @@
1
- /*
2
- * grph2_uupack.fp
3
- *
4
- * $Id: grph2_uupack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uupack/uulin.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UULIN(N,UPX,UPY)
12
- * REAL UPX(*),UPY(*)
13
- */
14
- SUBROUTINE UULIN(
15
- INTEGER N
16
- REAL (N) UPX
17
- REAL (N) UPY
18
- )
19
-
20
- /*****************************************************
21
- * grph2/uupack/uulinz.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE UULINZ(N,UPX,UPY,ITYPE,INDEX)
25
- * REAL UPX(*),UPY(*)
26
- */
27
- SUBROUTINE UULINZ(
28
- INTEGER N
29
- REAL (N) UPX
30
- REAL (N) UPY
31
- INTEGER ITYPE
32
- INTEGER INDEX
33
- )
34
-
35
- /*****************************************************
36
- * grph2/uupack/uumrk.f
37
- ****************************************************/
38
- /*
39
- * SUBROUTINE UUMRK(N,UPX,UPY)
40
- * REAL UPX(*),UPY(*)
41
- */
42
- SUBROUTINE UUMRK(
43
- INTEGER N
44
- REAL (N) UPX
45
- REAL (N) UPY
46
- )
47
-
48
- /*****************************************************
49
- * grph2/uupack/uumrkz.f
50
- ****************************************************/
51
- /*
52
- * SUBROUTINE UUMRKZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
53
- * REAL UPX(*),UPY(*)
54
- */
55
- SUBROUTINE UUMRKZ(
56
- INTEGER N
57
- REAL (N) UPX
58
- REAL (N) UPY
59
- INTEGER ITYPE
60
- INTEGER INDEX
61
- REAL RSIZE
62
- )
63
-
64
- /*****************************************************
65
- * grph2/uupack/uupget.f
66
- ****************************************************/
67
- /*
68
- * SUBROUTINE UUPGET(CP,IPARA)
69
- * CHARACTER CP*(*)
70
- */
71
- /* SUBROUTINE UUPGET(
72
- * CHARACTER*(*) CP
73
- * INTEGER o IPARA
74
- * )
75
- */
76
-
77
- /*
78
- * ENTRY UUPSET(CP, IPARA)
79
- * CHARACTER CP*(*)
80
- */
81
- /* SUBROUTINE UUPSET(
82
- * CHARACTER*(*) CP
83
- * INTEGER IPARA
84
- * )
85
- */
86
-
87
- /*
88
- * ENTRY UUPSTX(CP, IPARA)
89
- * CHARACTER CP*(*)
90
- */
91
- /* SUBROUTINE UUPSTX(
92
- * CHARACTER*(*) CP
93
- * INTEGER IPARA
94
- * )
95
- */
96
-
97
- /*****************************************************
98
- * grph2/uupack/uupqnp.f
99
- ****************************************************/
100
- /*
101
- * SUBROUTINE UUPQNP(NCP)
102
- */
103
- SUBROUTINE UUPQNP(
104
- INTEGER o NCP
105
- )
106
-
107
- /*
108
- * ENTRY UUPQID(CP, IDX)
109
- * CHARACTER CP*(*)
110
- */
111
- SUBROUTINE UUPQID(
112
- CHARACTER*(*) CP
113
- INTEGER o IDX
114
- )
115
-
116
- /*
117
- * ENTRY UUPQCP(IDX, CP)
118
- * CHARACTER CP*(*)
119
- */
120
- SUBROUTINE UUPQCP(
121
- INTEGER IDX
122
- CHARACTER*(*) o CP
123
- )
124
-
125
- /*
126
- * ENTRY UUPQCL(IDX, CP)
127
- * CHARACTER CP*(*)
128
- */
129
- SUBROUTINE UUPQCL(
130
- INTEGER IDX
131
- CHARACTER*(*) o CP
132
- )
133
-
134
- /*
135
- * ENTRY UUPQIT(IDX, ITP)
136
- */
137
- SUBROUTINE UUPQIT(
138
- INTEGER IDX
139
- INTEGER o ITP
140
- )
141
-
142
- /*
143
- * ENTRY UUPQVL(IDX, IPARA)
144
- */
145
- SUBROUTINE UUPQVL(
146
- INTEGER IDX
147
- INTEGER o IPARA
148
- )
149
-
150
- /*
151
- * ENTRY UUPSVL(IDX, IPARA)
152
- */
153
- SUBROUTINE UUPSVL(
154
- INTEGER IDX
155
- INTEGER IPARA
156
- )
157
-
158
- /*
159
- * ENTRY UUPQIN(CP, IN)
160
- * CHARACTER CP*(*)
161
- */
162
- SUBROUTINE UUPQIN(
163
- CHARACTER*(*) CP
164
- INTEGER o IN
165
- )
166
-
167
- /*****************************************************
168
- * grph2/uupack/uuinit.f
169
- ****************************************************/
170
- /*
171
- * SUBROUTINE UUINIT
172
- */
173
- SUBROUTINE UUINIT(
174
- )
175
-
176
- /*****************************************************
177
- * grph2/uupack/uuslnt.f
178
- ****************************************************/
179
- /*
180
- * SUBROUTINE UUSLNT(ITYPE)
181
- */
182
- SUBROUTINE UUSLNT(
183
- INTEGER ITYPE
184
- )
185
-
186
- /*
187
- * ENTRY UUQLNT(ITYPE)
188
- */
189
- SUBROUTINE UUQLNT(
190
- INTEGER o ITYPE
191
- )
192
-
193
- /*
194
- * ENTRY UUSLNI(INDEX)
195
- */
196
- SUBROUTINE UUSLNI(
197
- INTEGER INDEX
198
- )
199
-
200
- /*
201
- * ENTRY UUQLNI(INDEX)
202
- */
203
- SUBROUTINE UUQLNI(
204
- INTEGER o INDEX
205
- )
206
-
207
- /*****************************************************
208
- * grph2/uupack/uusmkt.f
209
- ****************************************************/
210
- /*
211
- * SUBROUTINE UUSMKT(ITYPE)
212
- */
213
- SUBROUTINE UUSMKT(
214
- INTEGER ITYPE
215
- )
216
-
217
- /*
218
- * ENTRY UUQMKT(ITYPE)
219
- */
220
- SUBROUTINE UUQMKT(
221
- INTEGER o ITYPE
222
- )
223
-
224
- /*
225
- * ENTRY UUSMKI(INDEX)
226
- */
227
- SUBROUTINE UUSMKI(
228
- INTEGER INDEX
229
- )
230
-
231
- /*
232
- * ENTRY UUQMKI(INDEX)
233
- */
234
- SUBROUTINE UUQMKI(
235
- INTEGER o INDEX
236
- )
237
-
238
- /*
239
- * ENTRY UUSMKS(RSIZE)
240
- */
241
- SUBROUTINE UUSMKS(
242
- REAL RSIZE
243
- )
244
-
245
- /*
246
- * ENTRY UUQMKS(RSIZE)
247
- */
248
- SUBROUTINE UUQMKS(
249
- REAL o RSIZE
250
- )
251
-
252
- /*****************************************************
253
- * grph2/uupack/uusebt.f
254
- ****************************************************/
255
- /*
256
- * SUBROUTINE UUSEBT(ITYPE)
257
- */
258
- SUBROUTINE UUSEBT(
259
- INTEGER ITYPE
260
- )
261
-
262
- /*
263
- * ENTRY UUQEBT(ITYPE)
264
- */
265
- SUBROUTINE UUQEBT(
266
- INTEGER o ITYPE
267
- )
268
-
269
- /*
270
- * ENTRY UUSEBI(INDEX)
271
- */
272
- SUBROUTINE UUSEBI(
273
- INTEGER INDEX
274
- )
275
-
276
- /*
277
- * ENTRY UUQEBI(INDEX)
278
- */
279
- SUBROUTINE UUQEBI(
280
- INTEGER o INDEX
281
- )
282
-
283
- /*
284
- * ENTRY UUSEBS(RSIZE)
285
- */
286
- SUBROUTINE UUSEBS(
287
- REAL RSIZE
288
- )
289
-
290
- /*
291
- * ENTRY UUQEBS(RSIZE)
292
- */
293
- SUBROUTINE UUQEBS(
294
- REAL o RSIZE
295
- )
296
-
297
- /*****************************************************
298
- * grph2/uupack/uusbrs.f
299
- ****************************************************/
300
- /*
301
- * SUBROUTINE UUSBRS(RSIZE)
302
- */
303
- SUBROUTINE UUSBRS(
304
- REAL RSIZE
305
- )
306
-
307
- /*
308
- * ENTRY UUQBRS(RSIZE)
309
- */
310
- SUBROUTINE UUQBRS(
311
- REAL o RSIZE
312
- )
313
-
314
- /*****************************************************
315
- * grph2/uupack/uusfrt.f
316
- ****************************************************/
317
- /*
318
- * SUBROUTINE UUSFRT(ITYPE)
319
- */
320
- SUBROUTINE UUSFRT(
321
- INTEGER ITYPE
322
- )
323
-
324
- /*
325
- * ENTRY UUQFRT(ITYPE)
326
- */
327
- SUBROUTINE UUQFRT(
328
- INTEGER o ITYPE
329
- )
330
-
331
- /*
332
- * ENTRY UUSFRI(INDEX)
333
- */
334
- SUBROUTINE UUSFRI(
335
- INTEGER INDEX
336
- )
337
-
338
- /*
339
- * ENTRY UUQFRI(INDEX)
340
- */
341
- SUBROUTINE UUQFRI(
342
- INTEGER o INDEX
343
- )
344
-
345
- /*****************************************************
346
- * grph2/uupack/uusarp.f
347
- ****************************************************/
348
- /*
349
- * SUBROUTINE UUSARP(ITPT1,ITPT2)
350
- */
351
- SUBROUTINE UUSARP(
352
- INTEGER ITPT1
353
- INTEGER ITPT2
354
- )
355
-
356
- /*
357
- * ENTRY UUQARP(ITPT1,ITPT2)
358
- */
359
- SUBROUTINE UUQARP(
360
- INTEGER o ITPT1
361
- INTEGER o ITPT2
362
- )
363
-
364
- /*****************************************************
365
- * grph2/uupack/uusidv.f
366
- ****************************************************/
367
- /*
368
- * SUBROUTINE UUSIDV(UMIN, UMAX)
369
- */
370
- SUBROUTINE UUSIDV(
371
- REAL UMIN
372
- REAL UMAX
373
- )
374
-
375
- /*
376
- * ENTRY UUQIDV(UMIN, UMAX)
377
- */
378
- SUBROUTINE UUQIDV(
379
- REAL o UMIN
380
- REAL o UMAX
381
- )
382
-
383
- /*****************************************************
384
- * grph2/uupack/uuiget.f
385
- ****************************************************/
386
- /*
387
- * SUBROUTINE UUIGET(CP, IPARA)
388
- * CHARACTER CP*(*)
389
- */
390
- SUBROUTINE UUIGET(
391
- CHARACTER*(*) CP
392
- INTEGER o IPARA
393
- )
394
-
395
- /*
396
- * ENTRY UUISET(CP, IPARA)
397
- * CHARACTER CP*(*)
398
- */
399
- SUBROUTINE UUISET(
400
- CHARACTER*(*) CP
401
- INTEGER IPARA
402
- )
403
-
404
- /*
405
- * ENTRY UUISTX(CP, IPARA)
406
- * CHARACTER CP*(*)
407
- */
408
- SUBROUTINE UUISTX(
409
- CHARACTER*(*) CP
410
- INTEGER IPARA
411
- )
412
-
413
- /*****************************************************
414
- * grph2/uupack/uuiqnp.f
415
- ****************************************************/
416
- /*
417
- * SUBROUTINE UUIQNP(NCP)
418
- */
419
- SUBROUTINE UUIQNP(
420
- INTEGER o NCP
421
- )
422
-
423
- /*
424
- * ENTRY UUIQID(CP, IDX)
425
- * CHARACTER CP*(*)
426
- */
427
- SUBROUTINE UUIQID(
428
- CHARACTER*(*) CP
429
- INTEGER o IDX
430
- )
431
-
432
- /*
433
- * ENTRY UUIQCP(IDX, CP)
434
- * CHARACTER CP*(*)
435
- */
436
- SUBROUTINE UUIQCP(
437
- INTEGER IDX
438
- CHARACTER*(*) o CP
439
- )
440
-
441
- /*
442
- * ENTRY UUIQCL(IDX, CP)
443
- * CHARACTER CP*(*)
444
- */
445
- SUBROUTINE UUIQCL(
446
- INTEGER IDX
447
- CHARACTER*(*) o CP
448
- )
449
-
450
- /*
451
- * ENTRY UUIQVL(IDX, IPARA)
452
- */
453
- SUBROUTINE UUIQVL(
454
- INTEGER IDX
455
- INTEGER o IPARA
456
- )
457
-
458
- /*
459
- * ENTRY UUISVL(IDX, IPARA)
460
- */
461
- SUBROUTINE UUISVL(
462
- INTEGER IDX
463
- INTEGER IPARA
464
- )
465
-
466
- /*
467
- * ENTRY UUIQIN(CP, IN)
468
- * CHARACTER CP*(*)
469
- */
470
- SUBROUTINE UUIQIN(
471
- CHARACTER*(*) CP
472
- INTEGER o IN
473
- )
474
-
475
- /*****************************************************
476
- * grph2/uupack/uulget.f
477
- ****************************************************/
478
- /*
479
- * SUBROUTINE UULGET(CP, LPARA)
480
- * CHARACTER CP*(*)
481
- * LOGICAL LPARA
482
- */
483
- SUBROUTINE UULGET(
484
- CHARACTER*(*) CP
485
- LOGICAL o LPARA
486
- )
487
-
488
- /*
489
- * ENTRY UULSET(CP, LPARA)
490
- * CHARACTER CP*(*)
491
- * LOGICAL LPARA
492
- */
493
- SUBROUTINE UULSET(
494
- CHARACTER*(*) CP
495
- LOGICAL LPARA
496
- )
497
-
498
- /*
499
- * ENTRY UULSTX(CP, LPARA)
500
- * CHARACTER CP*(*)
501
- * LOGICAL LPARA
502
- */
503
- SUBROUTINE UULSTX(
504
- CHARACTER*(*) CP
505
- LOGICAL LPARA
506
- )
507
-
508
- /*****************************************************
509
- * grph2/uupack/uulqnp.f
510
- ****************************************************/
511
- /*
512
- * SUBROUTINE UULQNP(NCP)
513
- */
514
- SUBROUTINE UULQNP(
515
- INTEGER o NCP
516
- )
517
-
518
- /*
519
- * ENTRY UULQID(CP, IDX)
520
- * CHARACTER CP*(*)
521
- */
522
- SUBROUTINE UULQID(
523
- CHARACTER*(*) CP
524
- INTEGER o IDX
525
- )
526
-
527
- /*
528
- * ENTRY UULQCP(IDX, CP)
529
- * CHARACTER CP*(*)
530
- */
531
- SUBROUTINE UULQCP(
532
- INTEGER IDX
533
- CHARACTER*(*) o CP
534
- )
535
-
536
- /*
537
- * ENTRY UULQCL(IDX, CP)
538
- * CHARACTER CP*(*)
539
- */
540
- SUBROUTINE UULQCL(
541
- INTEGER IDX
542
- CHARACTER*(*) o CP
543
- )
544
-
545
- /*
546
- * ENTRY UULQVL(IDX, LPARA)
547
- * LOGICAL LPARA
548
- */
549
- SUBROUTINE UULQVL(
550
- INTEGER IDX
551
- LOGICAL o LPARA
552
- )
553
-
554
- /*
555
- * ENTRY UULSVL(IDX, LPARA)
556
- * LOGICAL LPARA
557
- */
558
- SUBROUTINE UULSVL(
559
- INTEGER IDX
560
- LOGICAL LPARA
561
- )
562
-
563
- /*
564
- * ENTRY UULQIN(CP, IN)
565
- * CHARACTER CP*(*)
566
- */
567
- SUBROUTINE UULQIN(
568
- CHARACTER*(*) CP
569
- INTEGER o IN
570
- )
571
-
572
- /*****************************************************
573
- * grph2/uupack/uurget.f
574
- ****************************************************/
575
- /*
576
- * SUBROUTINE UURGET(CP, RPARA)
577
- * CHARACTER CP*(*)
578
- */
579
- SUBROUTINE UURGET(
580
- CHARACTER*(*) CP
581
- REAL o RPARA
582
- )
583
-
584
- /*
585
- * ENTRY UURSET(CP, RPARA)
586
- * CHARACTER CP*(*)
587
- */
588
- SUBROUTINE UURSET(
589
- CHARACTER*(*) CP
590
- REAL RPARA
591
- )
592
-
593
- /*
594
- * ENTRY UURSTX(CP, RPARA)
595
- * CHARACTER CP*(*)
596
- */
597
- SUBROUTINE UURSTX(
598
- CHARACTER*(*) CP
599
- REAL RPARA
600
- )
601
-
602
- /*****************************************************
603
- * grph2/uupack/uurqnp.f
604
- ****************************************************/
605
- /*
606
- * SUBROUTINE UURQNP(NCP)
607
- */
608
- SUBROUTINE UURQNP(
609
- INTEGER o NCP
610
- )
611
-
612
- /*
613
- * ENTRY UURQID(CP, IDX)
614
- * CHARACTER CP*(*)
615
- */
616
- SUBROUTINE UURQID(
617
- CHARACTER*(*) CP
618
- INTEGER o IDX
619
- )
620
-
621
- /*
622
- * ENTRY UURQCP(IDX, CP)
623
- * CHARACTER CP*(*)
624
- */
625
- SUBROUTINE UURQCP(
626
- INTEGER IDX
627
- CHARACTER*(*) o CP
628
- )
629
-
630
- /*
631
- * ENTRY UURQCL(IDX, CP)
632
- * CHARACTER CP*(*)
633
- */
634
- SUBROUTINE UURQCL(
635
- INTEGER IDX
636
- CHARACTER*(*) o CP
637
- )
638
-
639
- /*
640
- * ENTRY UURQVL(IDX, RPARA)
641
- */
642
- SUBROUTINE UURQVL(
643
- INTEGER IDX
644
- REAL o RPARA
645
- )
646
-
647
- /*
648
- * ENTRY UURSVL(IDX, RPARA)
649
- */
650
- SUBROUTINE UURSVL(
651
- INTEGER IDX
652
- REAL RPARA
653
- )
654
-
655
- /*
656
- * ENTRY UURQIN(CP, IN)
657
- * CHARACTER CP*(*)
658
- */
659
- SUBROUTINE UURQIN(
660
- CHARACTER*(*) CP
661
- INTEGER o IN
662
- )
663
-