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_uepack.fp DELETED
@@ -1,601 +0,0 @@
1
- /*
2
- * grph2_uepack.fp
3
- *
4
- * $Id: grph2_uepack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uepack/uetone.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UETONE(Z,MX,NX,NY)
12
- * REAL Z(MX,*)
13
- */
14
- SUBROUTINE UETONE(
15
- REAL (MX,NY) Z
16
- INTEGER MX
17
- INTEGER NX
18
- INTEGER NY
19
- )
20
-
21
- /*****************************************************
22
- * grph2/uepack/uetonf.f
23
- ****************************************************/
24
- /*
25
- * SUBROUTINE UETONF (Z,MX,NX,NY)
26
- * REAL Z(MX,*)
27
- */
28
- SUBROUTINE UETONF(
29
- REAL (MX,NY) Z
30
- INTEGER MX
31
- INTEGER NX
32
- INTEGER NY
33
- )
34
-
35
- /*****************************************************
36
- * grph2/uepack/uetonb.f
37
- ****************************************************/
38
- /*
39
- * SUBROUTINE UETONB(Z,MX,NX,NY)
40
- * REAL Z(MX,*)
41
- */
42
- #if DCLVER >= 534
43
- SUBROUTINE UETONB(
44
- REAL (MX,NY) Z
45
- INTEGER MX
46
- INTEGER NX
47
- INTEGER NY
48
- )
49
- #endif
50
-
51
- /*****************************************************
52
- * grph2/uepack/uetonc.f
53
- ****************************************************/
54
- /*
55
- * SUBROUTINE UETONC (Z,MX,NX,NY)
56
- * REAL Z(MX,*)
57
- */
58
- SUBROUTINE UETONC(
59
- REAL (MX,NY) Z
60
- INTEGER MX
61
- INTEGER NX
62
- INTEGER NY
63
- )
64
-
65
- /*****************************************************
66
- * grph2/uepack/uezchk.f
67
- ****************************************************/
68
- /*
69
- * SUBROUTINE UEZCHK(Z,MX,NX,NY,CNAME,ISTAT)
70
- * REAL Z(MX,*)
71
- * CHARACTER CNAME*(*)
72
- */
73
- SUBROUTINE UEZCHK(
74
- REAL (MX,NY) Z
75
- INTEGER MX
76
- INTEGER NX
77
- INTEGER NY
78
- CHARACTER*(*) CNAME
79
- INTEGER o ISTAT
80
- )
81
-
82
- /*****************************************************
83
- * grph2/uepack/uegtla.f
84
- ****************************************************/
85
- /*
86
- * SUBROUTINE UEGTLA(XMIN,XMAX,DX)
87
- */
88
- SUBROUTINE UEGTLA(
89
- REAL XMIN
90
- REAL XMAX
91
- REAL DX
92
- )
93
-
94
- /*****************************************************
95
- * grph2/uepack/uegtlb.f
96
- ****************************************************/
97
- /*
98
- * SUBROUTINE UEGTLB(Z,MX,NX,NY,DX)
99
- * REAL Z(MX,*)
100
- */
101
- SUBROUTINE UEGTLB(
102
- REAL (MX,NY) Z
103
- INTEGER MX
104
- INTEGER NX
105
- INTEGER NY
106
- REAL DX
107
- )
108
-
109
- /*****************************************************
110
- * grph2/uepack/ueitlv.f
111
- ****************************************************/
112
- /*
113
- * SUBROUTINE UEITLV
114
- */
115
- SUBROUTINE UEITLV(
116
- )
117
-
118
- /*
119
- * ENTRY UESTLV(TLEV1,TLEV2,IPAT)
120
- */
121
- SUBROUTINE UESTLV(
122
- REAL TLEV1
123
- REAL TLEV2
124
- INTEGER IPAT
125
- )
126
-
127
- /*
128
- * ENTRY UEQTLV(TLEV1,TLEV2,IPAT,ITON)
129
- */
130
- SUBROUTINE UEQTLV(
131
- REAL o TLEV1
132
- REAL o TLEV2
133
- INTEGER o IPAT
134
- INTEGER ITON
135
- )
136
-
137
- /*
138
- * ENTRY UEQNTL(NTON)
139
- */
140
- SUBROUTINE UEQNTL(
141
- INTEGER o NTON
142
- )
143
-
144
- /*
145
- * ENTRY UESTLZ(LSET)
146
- * LOGICAL LSET
147
- */
148
- /*
149
- SUBROUTINE UESTLZ(
150
- LOGICAL LSET
151
- )
152
- */
153
-
154
- /*
155
- * ENTRY UEQTLZ(LSET)
156
- * LOGICAL LSET
157
- */
158
- /*
159
- SUBROUTINE UEQTLZ(
160
- LOGICAL o LSET
161
- )
162
- */
163
-
164
- /*****************************************************
165
- * grph2/uepack/uestln.f
166
- ****************************************************/
167
- /*
168
- * SUBROUTINE UESTLN(TLEVN,IPATN,NTON)
169
- * REAL TLEVN(*)
170
- * INTEGER IPATN(*)
171
- */
172
- SUBROUTINE UESTLN(
173
- REAL (NTON+1) TLEVN
174
- INTEGER (NTON) IPATN
175
- INTEGER NTON
176
- )
177
-
178
- /*****************************************************
179
- * grph2/uepack/iueton.f
180
- ****************************************************/
181
- /*
182
- * INTEGER FUNCTION IUETON(ZLEV)
183
- */
184
- INTEGER FUNCTION IUETON(
185
- REAL ZLEV
186
- )
187
-
188
- /*****************************************************
189
- * grph2/uepack/uearea.f
190
- ****************************************************/
191
- /*
192
- * SUBROUTINE UEAREA(XP,YP,ZP,VLVM,AX,AY,NP,NI,NG)
193
- * REAL XP(4),YP(4),ZP(4),VLVM(2),AX(*),AY(*)
194
- * INTEGER NP(2),NI(2)
195
- */
196
- /*
197
- SUBROUTINE UEAREA(
198
- REAL (4) XP
199
- REAL (4) YP
200
- REAL (4) ZP
201
- REAL (2) VLVM
202
- REAL (*) o AX
203
- REAL (*) o AY
204
- INTEGER (2) o NP
205
- INTEGER (2) o NI
206
- INTEGER o NG
207
- )
208
- */
209
-
210
- /*
211
- * ENTRY UEAINT
212
- */
213
- /*
214
- SUBROUTINE UEAINT(
215
- )
216
- */
217
-
218
- /*****************************************************
219
- * grph2/uepack/uepget.f
220
- ****************************************************/
221
- /*
222
- * SUBROUTINE UEPGET(CP, IPARA)
223
- * CHARACTER CP*(*)
224
- */
225
- /* SUBROUTINE UEPGET(
226
- * CHARACTER*(*) CP
227
- * INTEGER o IPARA
228
- * )
229
- */
230
-
231
- /*
232
- * ENTRY UEPSET(CP, IPARA)
233
- * CHARACTER CP*(*)
234
- */
235
- /* SUBROUTINE UEPSET(
236
- * CHARACTER*(*) CP
237
- * INTEGER IPARA
238
- * )
239
- */
240
-
241
- /*
242
- * ENTRY UEPSTX(CP, IPARA)
243
- * CHARACTER CP*(*)
244
- */
245
- /* SUBROUTINE UEPSTX(
246
- * CHARACTER*(*) CP
247
- * INTEGER IPARA
248
- * )
249
- */
250
-
251
- /*****************************************************
252
- * grph2/uepack/uepqnp.f
253
- ****************************************************/
254
- /*
255
- * SUBROUTINE UEPQNP(NCP)
256
- */
257
- SUBROUTINE UEPQNP(
258
- INTEGER o NCP
259
- )
260
-
261
- /*
262
- * ENTRY UEPQID(CP, IDX)
263
- * CHARACTER CP*(*)
264
- */
265
- SUBROUTINE UEPQID(
266
- CHARACTER*(*) CP
267
- INTEGER o IDX
268
- )
269
-
270
- /*
271
- * ENTRY UEPQCP(IDX, CP)
272
- * CHARACTER CP*(*)
273
- */
274
- SUBROUTINE UEPQCP(
275
- INTEGER IDX
276
- CHARACTER*(*) o CP
277
- )
278
-
279
- /*
280
- * ENTRY UEPQCL(IDX, CP)
281
- * CHARACTER CP*(*)
282
- */
283
- SUBROUTINE UEPQCL(
284
- INTEGER IDX
285
- CHARACTER*(*) o CP
286
- )
287
-
288
- /*
289
- * ENTRY UEPQIT(IDX, ITP)
290
- */
291
- SUBROUTINE UEPQIT(
292
- INTEGER IDX
293
- INTEGER o ITP
294
- )
295
-
296
- /*
297
- * ENTRY UEPQVL(IDX, IPARA)
298
- */
299
- SUBROUTINE UEPQVL(
300
- INTEGER IDX
301
- INTEGER o IPARA
302
- )
303
-
304
- /*
305
- * ENTRY UEPSVL(IDX, IPARA)
306
- */
307
- SUBROUTINE UEPSVL(
308
- INTEGER IDX
309
- INTEGER IPARA
310
- )
311
-
312
- /*
313
- * ENTRY UEPQIN(CP, IN)
314
- * CHARACTER CP*(*)
315
- */
316
- SUBROUTINE UEPQIN(
317
- CHARACTER*(*) CP
318
- INTEGER o IN
319
- )
320
-
321
- /*****************************************************
322
- * grph2/uepack/ueiget.f
323
- ****************************************************/
324
- /*
325
- * SUBROUTINE UEIGET(CP, IPARA)
326
- * CHARACTER CP*(*)
327
- */
328
- SUBROUTINE UEIGET(
329
- CHARACTER*(*) CP
330
- INTEGER o IPARA
331
- )
332
-
333
- /*
334
- * ENTRY UEISET(CP, IPARA)
335
- * CHARACTER CP*(*)
336
- */
337
- SUBROUTINE UEISET(
338
- CHARACTER*(*) CP
339
- INTEGER IPARA
340
- )
341
-
342
- /*
343
- * ENTRY UEISTX(CP, IPARA)
344
- * CHARACTER CP*(*)
345
- */
346
- SUBROUTINE UEISTX(
347
- CHARACTER*(*) CP
348
- INTEGER IPARA
349
- )
350
-
351
- /*****************************************************
352
- * grph2/uepack/ueiqnp.f
353
- ****************************************************/
354
- /*
355
- * SUBROUTINE UEIQNP(NCP)
356
- */
357
- SUBROUTINE UEIQNP(
358
- INTEGER o NCP
359
- )
360
-
361
- /*
362
- * ENTRY UEIQID(CP, IDX)
363
- * CHARACTER CP*(*)
364
- */
365
- SUBROUTINE UEIQID(
366
- CHARACTER*(*) CP
367
- INTEGER o IDX
368
- )
369
-
370
- /*
371
- * ENTRY UEIQCP(IDX, CP)
372
- * CHARACTER CP*(*)
373
- */
374
- SUBROUTINE UEIQCP(
375
- INTEGER IDX
376
- CHARACTER*(*) o CP
377
- )
378
-
379
- /*
380
- * ENTRY UEIQCL(IDX, CP)
381
- * CHARACTER CP*(*)
382
- */
383
- SUBROUTINE UEIQCL(
384
- INTEGER IDX
385
- CHARACTER*(*) o CP
386
- )
387
-
388
- /*
389
- * ENTRY UEIQVL(IDX, IPARA)
390
- */
391
- SUBROUTINE UEIQVL(
392
- INTEGER IDX
393
- INTEGER o IPARA
394
- )
395
-
396
- /*
397
- * ENTRY UEISVL(IDX, IPARA)
398
- */
399
- SUBROUTINE UEISVL(
400
- INTEGER IDX
401
- INTEGER IPARA
402
- )
403
-
404
- /*
405
- * ENTRY UEIQIN(CP, IN)
406
- * CHARACTER CP*(*)
407
- */
408
- SUBROUTINE UEIQIN(
409
- CHARACTER*(*) CP
410
- INTEGER o IN
411
- )
412
-
413
- /*****************************************************
414
- * grph2/uepack/uelget.f
415
- ****************************************************/
416
- /*
417
- * SUBROUTINE UELGET(CP, LPARA)
418
- * CHARACTER CP*(*)
419
- * LOGICAL LPARA
420
- */
421
- SUBROUTINE UELGET(
422
- CHARACTER*(*) CP
423
- LOGICAL o LPARA
424
- )
425
-
426
- /*
427
- * ENTRY UELSET(CP, LPARA)
428
- * CHARACTER CP*(*)
429
- * LOGICAL LPARA
430
- */
431
- SUBROUTINE UELSET(
432
- CHARACTER*(*) CP
433
- LOGICAL LPARA
434
- )
435
-
436
- /*
437
- * ENTRY UELSTX(CP, LPARA)
438
- * CHARACTER CP*(*)
439
- * LOGICAL LPARA
440
- */
441
- SUBROUTINE UELSTX(
442
- CHARACTER*(*) CP
443
- LOGICAL LPARA
444
- )
445
-
446
- /*****************************************************
447
- * grph2/uepack/uelqnp.f
448
- ****************************************************/
449
- /*
450
- * SUBROUTINE UELQNP(NCP)
451
- */
452
- SUBROUTINE UELQNP(
453
- INTEGER o NCP
454
- )
455
-
456
- /*
457
- * ENTRY UELQID(CP, IDX)
458
- * CHARACTER CP*(*)
459
- */
460
- SUBROUTINE UELQID(
461
- CHARACTER*(*) CP
462
- INTEGER o IDX
463
- )
464
-
465
- /*
466
- * ENTRY UELQCP(IDX, CP)
467
- * CHARACTER CP*(*)
468
- */
469
- SUBROUTINE UELQCP(
470
- INTEGER IDX
471
- CHARACTER*(*) o CP
472
- )
473
-
474
- /*
475
- * ENTRY UELQCL(IDX, CP)
476
- * CHARACTER CP*(*)
477
- */
478
- SUBROUTINE UELQCL(
479
- INTEGER IDX
480
- CHARACTER*(*) o CP
481
- )
482
-
483
- /*
484
- * ENTRY UELQVL(IDX, LPARA)
485
- * LOGICAL LPARA
486
- */
487
- SUBROUTINE UELQVL(
488
- INTEGER IDX
489
- LOGICAL o LPARA
490
- )
491
-
492
- /*
493
- * ENTRY UELSVL(IDX, LPARA)
494
- * LOGICAL LPARA
495
- */
496
- SUBROUTINE UELSVL(
497
- INTEGER IDX
498
- LOGICAL LPARA
499
- )
500
-
501
- /*
502
- * ENTRY UELQIN(CP, IN)
503
- * CHARACTER CP*(*)
504
- */
505
- SUBROUTINE UELQIN(
506
- CHARACTER*(*) CP
507
- INTEGER o IN
508
- )
509
-
510
- /*****************************************************
511
- * grph2/uepack/uerget.f
512
- ****************************************************/
513
- /*
514
- * SUBROUTINE UERGET(CP, RPARA)
515
- * CHARACTER CP*(*)
516
- */
517
- SUBROUTINE UERGET(
518
- CHARACTER*(*) CP
519
- REAL o RPARA
520
- )
521
-
522
- /*
523
- * ENTRY UERSET(CP, RPARA)
524
- * CHARACTER CP*(*)
525
- */
526
- SUBROUTINE UERSET(
527
- CHARACTER*(*) CP
528
- REAL RPARA
529
- )
530
-
531
- /*
532
- * ENTRY UERSTX(CP, RPARA)
533
- * CHARACTER CP*(*)
534
- */
535
- SUBROUTINE UERSTX(
536
- CHARACTER*(*) CP
537
- REAL RPARA
538
- )
539
-
540
- /*****************************************************
541
- * grph2/uepack/uerqnp.f
542
- ****************************************************/
543
- /*
544
- * SUBROUTINE UERQNP(NCP)
545
- */
546
- SUBROUTINE UERQNP(
547
- INTEGER o NCP
548
- )
549
-
550
- /*
551
- * ENTRY UERQID(CP, IDX)
552
- * CHARACTER CP*(*)
553
- */
554
- SUBROUTINE UERQID(
555
- CHARACTER*(*) CP
556
- INTEGER o IDX
557
- )
558
-
559
- /*
560
- * ENTRY UERQCP(IDX, CP)
561
- * CHARACTER CP*(*)
562
- */
563
- SUBROUTINE UERQCP(
564
- INTEGER IDX
565
- CHARACTER*(*) o CP
566
- )
567
-
568
- /*
569
- * ENTRY UERQCL(IDX, CP)
570
- * CHARACTER CP*(*)
571
- */
572
- SUBROUTINE UERQCL(
573
- INTEGER IDX
574
- CHARACTER*(*) o CP
575
- )
576
-
577
- /*
578
- * ENTRY UERQVL(IDX, RPARA)
579
- */
580
- SUBROUTINE UERQVL(
581
- INTEGER IDX
582
- REAL o RPARA
583
- )
584
-
585
- /*
586
- * ENTRY UERSVL(IDX, RPARA)
587
- */
588
- SUBROUTINE UERSVL(
589
- INTEGER IDX
590
- REAL RPARA
591
- )
592
-
593
- /*
594
- * ENTRY UERQIN(CP, IN)
595
- * CHARACTER CP*(*)
596
- */
597
- SUBROUTINE UERQIN(
598
- CHARACTER*(*) CP
599
- INTEGER o IN
600
- )
601
-