ruby-dcl 1.7.1 → 1.8.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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
-