ruby-dcl 1.7.1 → 1.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (307) hide show
  1. checksums.yaml +4 -4
  2. data/{ChangeLog → .ChangeLog.until20150318} +0 -0
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -1
  6. data/demo/gokuraku/jump/jump1.rb +1 -1
  7. data/demo/gokuraku/jump/jump2.rb +1 -1
  8. data/demo/gokuraku/layout/lay1.rb +1 -1
  9. data/demo/gokuraku/layout/lay2.rb +1 -1
  10. data/demo/gokuraku/step/step0.rb +1 -1
  11. data/demo/gokuraku/step/step1.rb +1 -1
  12. data/demo/gokuraku/step/step2.rb +1 -1
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -1
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -1
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -1
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -1
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -1
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -1
  19. data/demo/grph1/scpack/scpkt2.rb +1 -1
  20. data/demo/grph1/scpack/scpkt3.rb +1 -1
  21. data/demo/grph1/scpack/scpkt6.rb +1 -1
  22. data/demo/grph1/scpack/scpkt7.rb +1 -1
  23. data/demo/grph1/scpack/scpkt8.rb +1 -1
  24. data/demo/grph1/sgpack/sgfont.rb +1 -1
  25. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -1
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -1
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -1
  29. data/demo/grph1/sgpack/sglidx.rb +1 -1
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -1
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -1
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -1
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -1
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -1
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -1
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -1
  37. data/demo/grph1/sgpack/sgpk07.rb +1 -1
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -1
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -1
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -1
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -1
  42. data/demo/grph1/sgpack/sgtone.rb +1 -1
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -1
  44. data/demo/grph1/slpack/slpk01.rb +1 -1
  45. data/demo/grph1/slpack/slpk02.rb +1 -1
  46. data/demo/grph1/slpack/slpk03.rb +1 -1
  47. data/demo/grph1/slpack/slpk04.rb +1 -1
  48. data/demo/grph2/grpack/grpk01.rb +1 -1
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -1
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -1
  51. data/demo/grph2/udegpk/u2df01.rb +1 -1
  52. data/demo/grph2/udegpk/u2df02.rb +1 -1
  53. data/demo/grph2/udegpk/u2df03.rb +1 -1
  54. data/demo/grph2/udegpk/u2df04.rb +1 -1
  55. data/demo/grph2/udegpk/u2df05.rb +1 -1
  56. data/demo/grph2/udegpk/u2df06.rb +1 -1
  57. data/demo/grph2/udegpk/u2df07.rb +1 -1
  58. data/demo/grph2/udegpk/u2df08.rb +1 -1
  59. data/demo/grph2/uipack/uipk01.rb +1 -1
  60. data/demo/grph2/uipack/uipk02.rb +1 -1
  61. data/demo/grph2/ulpack/ulpk01.rb +1 -1
  62. data/demo/grph2/ulpack/ulpk01n.rb +1 -1
  63. data/demo/grph2/ulpack/ulpk02.rb +1 -1
  64. data/demo/grph2/ulpack/ulpk02n.rb +1 -1
  65. data/demo/grph2/umpack/test01.rb +1 -1
  66. data/demo/grph2/umpack/test02.rb +1 -1
  67. data/demo/grph2/umpack/test03.rb +1 -1
  68. data/demo/grph2/umpack/test04.rb +1 -1
  69. data/demo/grph2/umpack/test05.rb +1 -1
  70. data/demo/grph2/umpack/test06.rb +1 -1
  71. data/demo/grph2/umpack/test07.rb +1 -1
  72. data/demo/grph2/umpack/test08.rb +1 -1
  73. data/demo/grph2/umpack/umpk01.rb +1 -1
  74. data/demo/grph2/umpack/umpk02.rb +1 -1
  75. data/demo/grph2/umpack/umpk03.rb +1 -1
  76. data/demo/grph2/umpack/umpk04.rb +1 -1
  77. data/demo/grph2/umpack/umpk05.rb +1 -1
  78. data/demo/grph2/uspack/uspk01.rb +1 -1
  79. data/demo/grph2/uspack/uspk02.rb +1 -1
  80. data/demo/grph2/uspack/uspk03.rb +1 -1
  81. data/demo/grph2/uspack/uspk04.rb +1 -1
  82. data/demo/grph2/uspack/uspk05.rb +1 -1
  83. data/demo/grph2/uspack/uspk06.rb +1 -1
  84. data/demo/grph2/uspack/uspk07.rb +1 -1
  85. data/demo/grph2/uspack/uspk08.rb +1 -1
  86. data/demo/grph2/uspack/uspk09.rb +1 -1
  87. data/demo/grph2/uspack/uspk10.rb +1 -1
  88. data/demo/grph2/uspack/uspk11.rb +1 -1
  89. data/demo/grph2/uspack/uspk12.rb +1 -1
  90. data/demo/grph2/uupack/uupk01.rb +1 -1
  91. data/demo/grph2/uupack/uupk02.rb +1 -1
  92. data/demo/grph2/uupack/uupk03.rb +1 -1
  93. data/demo/grph2/uupack/uupk04.rb +1 -1
  94. data/demo/grph2/uupack/uupk05.rb +1 -1
  95. data/demo/grph2/uupack/uupk06.rb +1 -1
  96. data/demo/grph2/uupack/uupk07.rb +1 -1
  97. data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
  98. data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
  99. data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
  100. data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
  101. data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
  102. data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
  103. data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
  104. data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
  105. data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
  106. data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
  107. data/demo/grph2/ximage/ximg01.rb +1 -1
  108. data/demo/math1/clsplib/cslb01.rb +1 -1
  109. data/demo/math2/fftlib/fftl01.rb +1 -1
  110. data/demo/math2/fftlib/fftl02.rb +1 -1
  111. data/demo/math2/intrlib/intr01.rb +1 -1
  112. data/demo/math2/rnmlib/rnml01.rb +1 -1
  113. data/demo/math2/vstlib/vstl01.rb +1 -1
  114. data/demo/math2/vstlib/vstl02.rb +1 -1
  115. data/demo/rakuraku/color/color1.rb +1 -1
  116. data/demo/rakuraku/color/color2.rb +1 -1
  117. data/demo/rakuraku/color/color3.rb +1 -1
  118. data/demo/rakuraku/kihon/kihon1.rb +1 -1
  119. data/demo/rakuraku/kihon/kihon2.rb +1 -1
  120. data/demo/rakuraku/kihon/kihon3.rb +1 -1
  121. data/demo/rakuraku/kihon/kihon4.rb +1 -1
  122. data/demo/rakuraku/kihon/kihon5.rb +1 -1
  123. data/demo/rakuraku/kihon/kihon6.rb +1 -1
  124. data/demo/rakuraku/kihon/kihon7.rb +1 -1
  125. data/demo/rakuraku/kihon/kihon8.rb +1 -1
  126. data/demo/rakuraku/kihon/kihon9.rb +1 -1
  127. data/demo/rakuraku/kihon/kihona.rb +1 -1
  128. data/demo/rakuraku/kihon/kihonb.rb +1 -1
  129. data/demo/rakuraku/kihon/kihonc.rb +1 -1
  130. data/demo/rakuraku/layout/lay1.rb +1 -1
  131. data/demo/rakuraku/layout/lay2.rb +1 -1
  132. data/demo/rakuraku/layout/lay3.rb +1 -1
  133. data/demo/rakuraku/map3d/map3d1.rb +1 -1
  134. data/demo/rakuraku/map3d/map3d2.rb +1 -1
  135. data/demo/rakuraku/map3d/map3d3.rb +1 -1
  136. data/demo/rakuraku/map3d/map3d4.rb +1 -1
  137. data/demo/rakuraku/map3d/map3d5.rb +1 -1
  138. data/demo/rakuraku/miss/miss1.rb +1 -1
  139. data/demo/rakuraku/miss/miss2.rb +1 -1
  140. data/demo/rakuraku/quick/quick1.rb +1 -1
  141. data/demo/rakuraku/quick/quick2.rb +1 -1
  142. data/demo/rakuraku/quick/quick3.rb +1 -1
  143. data/demo/rakuraku/quick/quick4.rb +1 -1
  144. data/demo/rakuraku/quick/quick5.rb +1 -1
  145. data/demo/rakuraku/u2d/u2d1.rb +1 -1
  146. data/demo/rakuraku/u2d/u2d2.rb +1 -1
  147. data/demo/rakuraku/u2d/u2d3.rb +1 -1
  148. data/demo/rakuraku/u2d/u2d4.rb +1 -1
  149. data/demo/rakuraku/u2d/u2d5.rb +1 -1
  150. data/demo/rakuraku/u2d/u2d6.rb +1 -1
  151. data/demo/rakuraku/u2d/u2d7.rb +1 -1
  152. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  153. data/demo/rakuraku/uspack/uspac2.rb +1 -1
  154. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  155. data/demo/rakuraku/uspack/uspac4.rb +1 -1
  156. data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
  157. data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
  158. data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
  159. data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
  160. data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
  161. data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
  162. data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
  163. data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
  164. data/ext/numru/dcl_cary2obj.c +28 -23
  165. data/ext/numru/dcl_obj2cary.c +8 -4
  166. data/ext/numru/dcl_rubydcloriginal.c +14 -4
  167. data/ext/numru/extconf.rb +9 -51
  168. data/ext/numru/grph1_csgi.c +9 -5
  169. data/ext/numru/grph1_scpack.c +9 -5
  170. data/ext/numru/grph1_sgpack.c +9 -5
  171. data/ext/numru/grph1_slpack.c +9 -5
  172. data/ext/numru/grph1_stpack.c +9 -5
  173. data/ext/numru/grph1_swpack.c +69 -5
  174. data/ext/numru/grph2_grpack.c +9 -5
  175. data/ext/numru/grph2_ucpack.c +9 -5
  176. data/ext/numru/grph2_udpack.c +9 -5
  177. data/ext/numru/grph2_uepack.c +9 -5
  178. data/ext/numru/grph2_ugpack.c +9 -5
  179. data/ext/numru/grph2_uhpack.c +9 -5
  180. data/ext/numru/grph2_uipack.c +9 -5
  181. data/ext/numru/grph2_ulpack.c +9 -5
  182. data/ext/numru/grph2_umpack.c +9 -5
  183. data/ext/numru/grph2_uspack.c +9 -5
  184. data/ext/numru/grph2_uupack.c +9 -5
  185. data/ext/numru/grph2_uvpack.c +9 -5
  186. data/ext/numru/grph2_uwpack.c +9 -5
  187. data/ext/numru/grph2_uxpack.c +9 -5
  188. data/ext/numru/grph2_uypack.c +9 -5
  189. data/ext/numru/grph2_uzpack.c +9 -5
  190. data/ext/numru/init.c +202 -0
  191. data/ext/numru/init.c.default +7 -0
  192. data/ext/numru/math1_blklib.c +9 -5
  193. data/ext/numru/math1_chrlib.c +9 -5
  194. data/ext/numru/math1_clsplib.c +9 -5
  195. data/ext/numru/math1_fnclib.c +9 -5
  196. data/ext/numru/math1_gnmlib.c +9 -5
  197. data/ext/numru/math1_gt2dlib.c +9 -5
  198. data/ext/numru/math1_ifalib.c +9 -5
  199. data/ext/numru/math1_indxlib.c +9 -5
  200. data/ext/numru/math1_intlib.c +9 -5
  201. data/ext/numru/math1_lrllib.c +9 -5
  202. data/ext/numru/math1_maplib.c +9 -5
  203. data/ext/numru/math1_oslib.c +9 -5
  204. data/ext/numru/math1_rfalib.c +9 -5
  205. data/ext/numru/math1_rfblib.c +9 -5
  206. data/ext/numru/math1_sublib.c +9 -5
  207. data/ext/numru/math1_syslib.c +9 -5
  208. data/ext/numru/math1_vialib.c +9 -5
  209. data/ext/numru/math1_viblib.c +9 -5
  210. data/ext/numru/math1_vralib.c +9 -5
  211. data/ext/numru/math1_vrblib.c +9 -5
  212. data/ext/numru/math1_xfclib.c +9 -5
  213. data/ext/numru/math2_fftlib.c +9 -5
  214. data/ext/numru/math2_intrlib.c +9 -5
  215. data/ext/numru/math2_rnmlib.c +9 -5
  216. data/ext/numru/math2_shtlib.c +9 -5
  217. data/ext/numru/math2_vstlib.c +9 -5
  218. data/ext/numru/misc1_chnlib.c +9 -5
  219. data/ext/numru/misc1_datelib.c +9 -5
  220. data/ext/numru/misc1_fmtlib.c +9 -5
  221. data/ext/numru/misc1_misclib.c +9 -5
  222. data/ext/numru/misc1_randlib.c +9 -5
  223. data/ext/numru/misc1_timelib.c +9 -5
  224. data/lib/numru/dcl.rb +6 -5580
  225. data/lib/numru/dcl/dcl.rb +5591 -0
  226. data/lib/numru/dcl/version.rb +5 -0
  227. data/ruby-dcl-bigmem.gemspec +36 -0
  228. data/ruby-dcl.gemspec +10 -9
  229. metadata +17 -93
  230. data/.gitignore +0 -13
  231. data/.rspec +0 -2
  232. data/.travis.yml +0 -3
  233. data/GenWrapper/cproto2init.rb +0 -41
  234. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  235. data/GenWrapper/dcl_rb_footing +0 -29
  236. data/GenWrapper/dcl_rb_heading +0 -123
  237. data/GenWrapper/def.rb +0 -20
  238. data/GenWrapper/elim_ary_size.rb +0 -398
  239. data/GenWrapper/etc/p_header +0 -64
  240. data/GenWrapper/pparse.rb +0 -137
  241. data/GenWrapper/proto/grph1_00 +0 -17
  242. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  243. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  244. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  245. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  246. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  247. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  248. data/GenWrapper/proto/grph2_00 +0 -16
  249. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  250. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  251. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  252. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  253. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  254. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  255. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  256. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  257. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  258. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  259. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  260. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  261. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  262. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  263. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  264. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  265. data/GenWrapper/proto/math1_00 +0 -12
  266. data/GenWrapper/proto/math1_blklib.fp +0 -58
  267. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  268. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  269. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  270. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  271. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  272. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  273. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  274. data/GenWrapper/proto/math1_intlib.fp +0 -46
  275. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  276. data/GenWrapper/proto/math1_maplib.fp +0 -24
  277. data/GenWrapper/proto/math1_oslib.fp +0 -28
  278. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  279. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  280. data/GenWrapper/proto/math1_sublib.fp +0 -60
  281. data/GenWrapper/proto/math1_syslib.fp +0 -767
  282. data/GenWrapper/proto/math1_vialib.fp +0 -339
  283. data/GenWrapper/proto/math1_viblib.fp +0 -264
  284. data/GenWrapper/proto/math1_vralib.fp +0 -339
  285. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  286. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  287. data/GenWrapper/proto/math2_00 +0 -12
  288. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  289. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  290. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  291. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  292. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  293. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  294. data/GenWrapper/proto/misc1_00 +0 -17
  295. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  296. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  297. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  298. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  299. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  300. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  301. data/GenWrapper/proto2c.rb +0 -13
  302. data/GenWrapper/prototype.rb +0 -209
  303. data/GenWrapper/util.rb +0 -9
  304. data/GenWrapper/variable.rb +0 -671
  305. data/ToDo +0 -2
  306. data/bin/console +0 -14
  307. data/bin/setup +0 -7
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
-