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_uipack.fp DELETED
@@ -1,508 +0,0 @@
1
- /*
2
- * grph2_uipack.fp
3
- *
4
- * $Id: grph2_uipack.fp,v 1.3 2012/03/08 05:16:17 koshiro Exp $
5
- */
6
-
7
- #if DCLVER >= 544
8
-
9
- /*****************************************************
10
- * grph2/uipack/uipdat.f
11
- ****************************************************/
12
- /*
13
- * SUBROUTINE UIPDAT(Z, MX, NX, NY)
14
- * REAL Z(MX,*)
15
- */
16
- SUBROUTINE UIPDAT(
17
- REAL (MX,NY) Z
18
- INTEGER MX
19
- INTEGER NX
20
- INTEGER NY
21
- )
22
-
23
- /*****************************************************
24
- * grph2/uipack/uipda2.f
25
- ****************************************************/
26
- /*
27
- * SUBROUTINE UIPDA2(U, V, MX, NX, NY)
28
- * REAL U(MX, *), V(MX, *)
29
- */
30
- SUBROUTINE UIPDA2(
31
- REAL (MX,NY) U
32
- REAL (MX,NY) V
33
- INTEGER MX
34
- INTEGER NX
35
- INTEGER NY
36
- )
37
-
38
- /*****************************************************
39
- * grph2/uipack/uipda3.f
40
- ****************************************************/
41
- /*
42
- * SUBROUTINE UIPDA3(U, V, W, MX, NX, NY)
43
- * REAL U(MX, *), V(MX, *), W(MX, *)
44
- */
45
- SUBROUTINE UIPDA3(
46
- REAL (MX,NY) U
47
- REAL (MX,NY) V
48
- REAL (MX,NY) W
49
- INTEGER MX
50
- INTEGER NX
51
- INTEGER NY
52
- )
53
-
54
- /*****************************************************
55
- * grph2/uipack/uicrgb.f
56
- ****************************************************/
57
- /*
58
- * ENTRY UISCRG(ZMIN, ZMAX)
59
- */
60
- SUBROUTINE UISCRG(
61
- REAL ZMIN
62
- REAL ZMAX
63
- )
64
-
65
- /*
66
- * ENTRY UISMRG(ZMIN, ZMAX)
67
- */
68
- SUBROUTINE UISMRG(
69
- REAL ZMIN
70
- REAL ZMAX
71
- )
72
-
73
- /*
74
- * ENTRY UISCSQ(CLRLVL, ICOLOR, N)
75
- * DIMENSION ICOLOR(*), CLRLVL(*)
76
- */
77
- SUBROUTINE UISCSQ(
78
- REAL (N) CLRLVL
79
- INTEGER (N) ICOLOR
80
- INTEGER N
81
- )
82
-
83
- /*
84
- * ENTRY UISCFL(CDSN)
85
- * CHARACTER CDSN*(*)
86
- */
87
- SUBROUTINE UISCFL(
88
- CHARACTER*(*) CDSN
89
- )
90
-
91
- /*
92
- * ENTRY UISMSQ(SHDLVL, SHADE, N)
93
- * DIMENSION SHADE(*), SHDLVL(*)
94
- */
95
- SUBROUTINE UISMSQ(
96
- REAL (N) SHDLVL
97
- INTEGER (N) SHADE
98
- INTEGER N
99
- )
100
-
101
- /*
102
- * ENTRY UISMFL(CDSN)
103
- * CHARACTER CDSN*(*)
104
- */
105
- SUBROUTINE UISMFL(
106
- CHARACTER*(*) CDSN
107
- )
108
-
109
- /*****************************************************
110
- * grph2/uipack/uixbar.f
111
- ****************************************************/
112
- /*
113
- * SUBROUTINE UIXBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
114
- * CHARACTER CPOS*(*)
115
- */
116
- SUBROUTINE UIXBAR(
117
- REAL XMIN
118
- REAL XMAX
119
- REAL YMIN
120
- REAL YMAX
121
- REAL ZMIN
122
- REAL ZMAX
123
- CHARACTER*(*) CPOS
124
- )
125
-
126
- /*****************************************************
127
- * grph2/uipack/uiybar.f
128
- ****************************************************/
129
- /*
130
- * SUBROUTINE UIYBAR(XMIN,XMAX,YMIN,YMAX,ZMIN,ZMAX,CPOS)
131
- * CHARACTER CPOS*(*)
132
- */
133
- SUBROUTINE UIYBAR(
134
- REAL XMIN
135
- REAL XMAX
136
- REAL YMIN
137
- REAL YMAX
138
- REAL ZMIN
139
- REAL ZMAX
140
- CHARACTER*(*) CPOS
141
- )
142
-
143
- /*****************************************************
144
- * grph2/uipack/uic2d.f
145
- ****************************************************/
146
- /*
147
- * ENTRY UISCR2(UMIN, UMAX, VMIN, VMAX)
148
- */
149
- SUBROUTINE UISCR2(
150
- REAL UMIN
151
- REAL UMAX
152
- REAL VMIN
153
- REAL VMAX
154
- )
155
-
156
- /*
157
- * ENTRY UIQCR2(UMIN, UMAX, VMIN, VMAX)
158
- */
159
- SUBROUTINE UIQCR2(
160
- REAL o UMIN
161
- REAL o UMAX
162
- REAL o VMIN
163
- REAL o VMAX
164
- )
165
-
166
- /*
167
- * ENTRY UISCMP(IRGB1, IRGB2, IRGB3, IRGB4)
168
- */
169
- SUBROUTINE UISCMP(
170
- INTEGER IRGB1
171
- INTEGER IRGB2
172
- INTEGER IRGB3
173
- INTEGER IRGB4
174
- )
175
-
176
- /*****************************************************
177
- * grph2/uipack/uipcmp.f
178
- ****************************************************/
179
- /*
180
- * SUBROUTINE UIPCMP(XMIN,XMAX,YMIN,YMAX,CPOS)
181
- * CHARACTER*(*) CPOS
182
- */
183
- SUBROUTINE UIPCMP(
184
- REAL XMIN
185
- REAL XMAX
186
- REAL YMIN
187
- REAL YMAX
188
- CHARACTER*(*) CPOS
189
- )
190
-
191
- /*****************************************************
192
- * grph2/uipack/uifpac.f
193
- ****************************************************/
194
- /*
195
- * SUBROUTINE UIFPAC(IR, IG, IB, IRGB)
196
- */
197
- SUBROUTINE UIFPAC(
198
- INTEGER IR
199
- INTEGER IG
200
- INTEGER IB
201
- INTEGER o IRGB
202
- )
203
-
204
- /*
205
- * ENTRY UIIPAC(IRGB, IR, IG, IB)
206
- */
207
- SUBROUTINE UIIPAC(
208
- INTEGER IRGB
209
- INTEGER o IR
210
- INTEGER o IG
211
- INTEGER o IB
212
- )
213
-
214
- /*****************************************************
215
- * grph2/uipack/uiiget.f
216
- ****************************************************/
217
- /*
218
- * SUBROUTINE UIIGET(CP, IPARA)
219
- * CHARACTER CP*(*)
220
- */
221
- SUBROUTINE UIIGET(
222
- CHARACTER*(*) CP
223
- INTEGER o IPARA
224
- )
225
-
226
- /*
227
- * ENTRY UIISET(CP, IPARA)
228
- * CHARACTER CP*(*)
229
- */
230
- SUBROUTINE UIISET(
231
- CHARACTER*(*) CP
232
- INTEGER IPARA
233
- )
234
-
235
- /*
236
- * ENTRY UIISTX(CP, IPARA)
237
- * CHARACTER CP*(*)
238
- */
239
- SUBROUTINE UIISTX(
240
- CHARACTER*(*) CP
241
- INTEGER IPARA
242
- )
243
-
244
- /*****************************************************
245
- * grph2/uipack/uiiqnp.f
246
- ****************************************************/
247
- /*
248
- * SUBROUTINE UIIQNP(NCP)
249
- */
250
- SUBROUTINE UIIQNP(
251
- INTEGER o NCP
252
- )
253
-
254
- /*
255
- * ENTRY UIIQID(CP, IDX)
256
- * CHARACTER CP*(*)
257
- */
258
- SUBROUTINE UIIQID(
259
- CHARACTER*(*) CP
260
- INTEGER o IDX
261
- )
262
-
263
- /*
264
- * ENTRY UIIQCP(IDX, CP)
265
- * CHARACTER CP*(*)
266
- */
267
- SUBROUTINE UIIQCP(
268
- INTEGER IDX
269
- CHARACTER*(*) o CP
270
- )
271
-
272
- /*
273
- * ENTRY UIIQCL(IDX, CP)
274
- * CHARACTER CP*(*)
275
- */
276
- SUBROUTINE UIIQCL(
277
- INTEGER IDX
278
- CHARACTER*(*) o CP
279
- )
280
-
281
- /*
282
- * ENTRY UIIQVL(IDX, IPARA)
283
- */
284
- SUBROUTINE UIIQVL(
285
- INTEGER IDX
286
- INTEGER o IPARA
287
- )
288
-
289
- /*
290
- * ENTRY UIISVL(IDX, IPARA)
291
- */
292
- SUBROUTINE UIISVL(
293
- INTEGER IDX
294
- INTEGER IPARA
295
- )
296
-
297
- /*
298
- * ENTRY UIIQIN(CP, IN)
299
- * CHARACTER CP*(*)
300
- */
301
- SUBROUTINE UIIQIN(
302
- CHARACTER*(*) CP
303
- INTEGER o IN
304
- )
305
-
306
- /*****************************************************
307
- * grph2/uipack/uilget.f
308
- ****************************************************/
309
- /*
310
- * SUBROUTINE UILGET(CP, LPARA)
311
- * CHARACTER CP*(*)
312
- * LOGICAL LPARA
313
- */
314
- SUBROUTINE UILGET(
315
- CHARACTER*(*) CP
316
- LOGICAL o LPARA
317
- )
318
-
319
- /*
320
- * ENTRY UILSET(CP, LPARA)
321
- * CHARACTER CP*(*)
322
- * LOGICAL LPARA
323
- */
324
- SUBROUTINE UILSET(
325
- CHARACTER*(*) CP
326
- LOGICAL LPARA
327
- )
328
-
329
- /*
330
- * ENTRY UILSTX(CP, LPARA)
331
- * CHARACTER CP*(*)
332
- * LOGICAL LPARA
333
- */
334
- SUBROUTINE UILSTX(
335
- CHARACTER*(*) CP
336
- LOGICAL LPARA
337
- )
338
-
339
- /*****************************************************
340
- * grph2/uipack/uilqnp.f
341
- ****************************************************/
342
- /*
343
- * SUBROUTINE UILQNP(NCP)
344
- */
345
- SUBROUTINE UILQNP(
346
- INTEGER o NCP
347
- )
348
-
349
- /*
350
- * ENTRY UILQID(CP, IDX)
351
- * CHARACTER CP*(*)
352
- */
353
- SUBROUTINE UILQID(
354
- CHARACTER*(*) CP
355
- INTEGER o IDX
356
- )
357
-
358
- /*
359
- * ENTRY UILQCP(IDX, CP)
360
- * CHARACTER CP*(*)
361
- */
362
- SUBROUTINE UILQCP(
363
- INTEGER IDX
364
- CHARACTER*(*) o CP
365
- )
366
-
367
- /*
368
- * ENTRY UILQCL(IDX, CP)
369
- * CHARACTER CP*(*)
370
- */
371
- SUBROUTINE UILQCL(
372
- INTEGER IDX
373
- CHARACTER*(*) o CP
374
- )
375
-
376
- /*
377
- * ENTRY UILQVL(IDX, LPARA)
378
- * LOGICAL LPARA
379
- */
380
- SUBROUTINE UILQVL(
381
- INTEGER IDX
382
- LOGICAL o LPARA
383
- )
384
-
385
- /*
386
- * ENTRY UILSVL(IDX, LPARA)
387
- * LOGICAL LPARA
388
- */
389
- SUBROUTINE UILSVL(
390
- INTEGER IDX
391
- LOGICAL LPARA
392
- )
393
-
394
- /*
395
- * ENTRY UILQIN(CP, IN)
396
- * CHARACTER CP*(*)
397
- */
398
- SUBROUTINE UILQIN(
399
- CHARACTER*(*) CP
400
- INTEGER o IN
401
- )
402
-
403
- /*****************************************************
404
- * grph2/uipack/uirget.f
405
- ****************************************************/
406
- /*
407
- * SUBROUTINE UIRGET(CP, RPARA)
408
- * CHARACTER CP*(*)
409
- */
410
- SUBROUTINE UIRGET(
411
- CHARACTER*(*) CP
412
- REAL o RPARA
413
- )
414
-
415
- /*
416
- * ENTRY UIRSET(CP, RPARA)
417
- * CHARACTER CP*(*)
418
- */
419
- SUBROUTINE UIRSET(
420
- CHARACTER*(*) CP
421
- REAL RPARA
422
- )
423
-
424
- /*
425
- * ENTRY UIRSTX(CP, RPARA)
426
- * CHARACTER CP*(*)
427
- */
428
- SUBROUTINE UIRSTX(
429
- CHARACTER*(*) CP
430
- REAL RPARA
431
- )
432
-
433
- /*****************************************************
434
- * grph2/uipack/uirqnp.f
435
- ****************************************************/
436
- /*
437
- * SUBROUTINE UIRQNP(NCP)
438
- */
439
- SUBROUTINE UIRQNP(
440
- INTEGER o NCP
441
- )
442
-
443
- /*
444
- * ENTRY UIRQID(CP, IDX)
445
- * CHARACTER CP*(*)
446
- */
447
- SUBROUTINE UIRQID(
448
- CHARACTER*(*) CP
449
- INTEGER o IDX
450
- )
451
-
452
- /*
453
- * ENTRY UIRQCP(IDX, CP)
454
- * CHARACTER CP*(*)
455
- */
456
- SUBROUTINE UIRQCP(
457
- INTEGER IDX
458
- CHARACTER*(*) o CP
459
- )
460
-
461
- /*
462
- * ENTRY UIRQCL(IDX, CP)
463
- * CHARACTER CP*(*)
464
- */
465
- SUBROUTINE UIRQCL(
466
- INTEGER IDX
467
- CHARACTER*(*) o CP
468
- )
469
-
470
- /*
471
- * ENTRY UIRQVL(IDX, RPARA)
472
- */
473
- SUBROUTINE UIRQVL(
474
- INTEGER IDX
475
- REAL o RPARA
476
- )
477
-
478
- /*
479
- * ENTRY UIRSVL(IDX, RPARA)
480
- */
481
- SUBROUTINE UIRSVL(
482
- INTEGER IDX
483
- REAL RPARA
484
- )
485
-
486
- /*
487
- * ENTRY UIRQIN(CP, IN)
488
- * CHARACTER CP*(*)
489
- */
490
- SUBROUTINE UIRQIN(
491
- CHARACTER*(*) CP
492
- INTEGER o IN
493
- )
494
-
495
- /*****************************************************
496
- * grph2/uipack/uiqfnm.f
497
- ****************************************************/
498
- /*
499
- * SUBROUTINE UIQFNM(CPARA,CFNAME)
500
- * CHARACTER CPARA*(*),CFNAME*(*)
501
- */
502
- SUBROUTINE UIQFNM(CPARA,CFNAME)
503
- CHARACTER*(*) CPARA
504
- CHARACTER*(*) o CFNAME
505
- )
506
-
507
- #endif
508
-