ruby-dcl 1.7.1 → 1.8.2

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