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
@@ -1,692 +0,0 @@
1
- /*
2
- * grph2_udpack.fp
3
- *
4
- * $Id: grph2_udpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/udpack/udcntr.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UDCNTR(Z,MX,NX,NY)
12
- * REAL Z(MX,*)
13
- */
14
- SUBROUTINE UDCNTR(
15
- REAL (MX,NY) Z
16
- INTEGER MX
17
- INTEGER NX
18
- INTEGER NY
19
- )
20
-
21
- /*****************************************************
22
- * grph2/udpack/udcntz.f
23
- ****************************************************/
24
- /*
25
- * SUBROUTINE UDCNTZ(Z,MX,NX,NY,IBR,NBR2)
26
- * REAL Z(MX,*)
27
- * INTEGER IBR(NBR2)
28
- */
29
- SUBROUTINE UDCNTZ(
30
- REAL (MX,NY) Z
31
- INTEGER MX
32
- INTEGER NX
33
- INTEGER NY
34
- INTEGER (NBR2) t IBR
35
- INTEGER NBR2
36
- )
37
-
38
- /*****************************************************
39
- * grph2/udpack/udgcla.f
40
- ****************************************************/
41
- /*
42
- * SUBROUTINE UDGCLA(XMIN,XMAX,DX)
43
- */
44
- SUBROUTINE UDGCLA(
45
- REAL XMIN
46
- REAL XMAX
47
- REAL DX
48
- )
49
-
50
- /*****************************************************
51
- * grph2/udpack/udgclb.f
52
- ****************************************************/
53
- /*
54
- * SUBROUTINE UDGCLB(Z,MX,NX,NY,DX)
55
- * REAL Z(MX,*)
56
- */
57
- SUBROUTINE UDGCLB(
58
- REAL (MX,NY) Z
59
- INTEGER MX
60
- INTEGER NX
61
- INTEGER NY
62
- REAL DX
63
- )
64
-
65
- /*****************************************************
66
- * grph2/udpack/udiclv.f
67
- ****************************************************/
68
- /*
69
- * SUBROUTINE UDICLV
70
- */
71
- SUBROUTINE UDICLV(
72
- )
73
-
74
- /*
75
- * ENTRY UDSCLV(ZLEV,INDX,ITYP,CLV,HL)
76
- * CHARACTER CLV*(*)
77
- */
78
- SUBROUTINE UDSCLV(
79
- REAL ZLEV
80
- INTEGER INDX
81
- INTEGER ITYP
82
- CHARACTER*(*) CLV
83
- REAL HL
84
- )
85
-
86
- /*
87
- * ENTRY UDQCLV(ZLEV,INDX,ITYP,CLV,HL,NLEV)
88
- * CHARACTER CLV*(*)
89
- */
90
- SUBROUTINE UDQCLV(
91
- REAL o ZLEV
92
- INTEGER o INDX
93
- INTEGER o ITYP
94
- CHARACTER*(*) o CLV
95
- REAL o HL
96
- INTEGER NLEV
97
- )
98
-
99
- /*
100
- * ENTRY UDQCLN(NLEV)
101
- */
102
- SUBROUTINE UDQCLN(
103
- INTEGER o NLEV
104
- )
105
-
106
- /*
107
- * ENTRY UDDCLV(ZLEV)
108
- */
109
- SUBROUTINE UDDCLV(
110
- REAL ZLEV
111
- )
112
-
113
- /*
114
- * ENTRY UDSCLZ(LSET)
115
- * LOGICAL LSET
116
- */
117
- /*
118
- SUBROUTINE UDSCLZ(
119
- LOGICAL LSET
120
- )
121
- */
122
-
123
- /*
124
- * ENTRY UDQCLZ(LSET)
125
- * LOGICAL LSET
126
- */
127
- /*
128
- SUBROUTINE UDQCLZ(
129
- LOGICAL o LSET
130
- )
131
- */
132
-
133
- /*****************************************************
134
- * grph2/udpack/rudlev.f
135
- ****************************************************/
136
- /*
137
- * REAL FUNCTION RUDLEV(NLEV)
138
- */
139
- REAL FUNCTION RUDLEV(
140
- INTEGER NLEV
141
- )
142
-
143
- /*****************************************************
144
- * grph2/udpack/udline.f
145
- ****************************************************/
146
- /*
147
- * SUBROUTINE UDLINE(Z,MX,KX,KY,KK,CX,LOPEN,IBR)
148
- * REAL Z(MX,*)
149
- * LOGICAL LOPEN
150
- * INTEGER IBR(*)
151
- */
152
- /*
153
- SUBROUTINE UDLINE(
154
- REAL (MX,*) Z
155
- INTEGER MX
156
- INTEGER KX
157
- INTEGER KY
158
- INTEGER KK
159
- REAL CX
160
- LOGICAL LOPEN
161
- INTEGER (*) io IBR
162
- )
163
- */
164
-
165
- /*****************************************************
166
- * grph2/udpack/uduxuy.f
167
- ****************************************************/
168
- /*
169
- * SUBROUTINE UDUXUY(Z,MX,IX,IY,K,CX,UX,UY)
170
- * REAL Z(MX,*)
171
- */
172
- /*
173
- SUBROUTINE UDUXUY(
174
- REAL (MX,*) Z
175
- INTEGER MX
176
- INTEGER IX
177
- INTEGER IY
178
- INTEGER K
179
- REAL CX
180
- REAL o UX
181
- REAL o UY
182
- )
183
- */
184
-
185
- /*****************************************************
186
- * grph2/udpack/udgrdn.f
187
- ****************************************************/
188
- /*
189
- * SUBROUTINE UDGRDN(MODE,IX,IY,K,JX,JY,JK)
190
- * INTEGER JX(0:3),JY(0:3),JK(0:3)
191
- */
192
- /*
193
- SUBROUTINE UDGRDN(
194
- INTEGER MODE
195
- INTEGER IX
196
- INTEGER IY
197
- INTEGER K
198
- INTEGER (0:3) o JX
199
- INTEGER (0:3) o JY
200
- INTEGER (0:3) o JK
201
- )
202
- */
203
-
204
- /*****************************************************
205
- * grph2/udpack/rudval.f
206
- ****************************************************/
207
- /*
208
- * REAL FUNCTION RUDVAL(ZZ,CZ)
209
- */
210
- /*
211
- REAL FUNCTION RUDVAL(
212
- REAL ZZ
213
- REAL CZ
214
- )
215
- */
216
-
217
- /*****************************************************
218
- * grph2/udpack/udbset.f
219
- ****************************************************/
220
- /*
221
- * SUBROUTINE UDBSET(I,J,K,L,IBR)
222
- * INTEGER IBR(NBR,0:*)
223
- */
224
- /*
225
- SUBROUTINE UDBSET(
226
- INTEGER I
227
- INTEGER J
228
- INTEGER K
229
- INTEGER L
230
- INTEGER (NBR,0:*) io IBR
231
- )
232
- */
233
-
234
- /*****************************************************
235
- * grph2/udpack/udbclr.f
236
- ****************************************************/
237
- /*
238
- * SUBROUTINE UDBCLR(I,J,K,L,IBR)
239
- * INTEGER IBR(NBR,0:*)
240
- */
241
- /*
242
- SUBROUTINE UDBCLR(
243
- INTEGER I
244
- INTEGER J
245
- INTEGER K
246
- INTEGER L
247
- INTEGER (NBR,0:*) io IBR
248
- )
249
- */
250
-
251
- /*****************************************************
252
- * grph2/udpack/ludchk.f
253
- ****************************************************/
254
- /*
255
- * LOGICAL FUNCTION LUDCHK(I,J,K,L,IBR)
256
- * INTEGER IBR(NBR,0:*)
257
- */
258
- /*
259
- LOGICAL FUNCTION LUDCHK(
260
- INTEGER I
261
- INTEGER J
262
- INTEGER K
263
- INTEGER L
264
- INTEGER (NBR,0:*) IBR
265
- )
266
- */
267
-
268
- /*****************************************************
269
- * grph2/udpack/udiclr.f
270
- ****************************************************/
271
- /*
272
- * SUBROUTINE UDICLR(IX,N)
273
- * INTEGER IX(*)
274
- */
275
- SUBROUTINE UDICLR(
276
- INTEGER (N) o IX
277
- INTEGER N
278
- )
279
-
280
- /*****************************************************
281
- * grph2/udpack/udlabl.f
282
- ****************************************************/
283
- /*
284
- * SUBROUTINE UDLABL(VAL,CVAL)
285
- * CHARACTER CVAL*(*),CFMT*(*)
286
- */
287
- SUBROUTINE UDLABL(
288
- REAL VAL
289
- CHARACTER*(*) o CVAL
290
- )
291
-
292
- /*
293
- * ENTRY UDSFMT(CFMT)
294
- * CHARACTER CVAL*(*),CFMT*(*)
295
- */
296
- SUBROUTINE UDSFMT(
297
- CHARACTER*(*) CFMT
298
- )
299
-
300
- /*
301
- * ENTRY UDQFMT(CFMT)
302
- * CHARACTER CVAL*(*),CFMT*(*)
303
- */
304
- SUBROUTINE UDQFMT(
305
- CHARACTER*(*) o CFMT
306
- )
307
-
308
- /*****************************************************
309
- * grph2/udpack/udpget.f
310
- ****************************************************/
311
- /*
312
- * SUBROUTINE UDPGET(CP, IPARA)
313
- * CHARACTER CP*(*)
314
- */
315
- /* SUBROUTINE UDPGET(
316
- * CHARACTER*(*) CP
317
- * INTEGER o IPARA
318
- * )
319
- */
320
-
321
- /*
322
- * ENTRY UDPSET(CP, IPARA)
323
- * CHARACTER CP*(*)
324
- */
325
- /* SUBROUTINE UDPSET(
326
- * CHARACTER*(*) CP
327
- * INTEGER IPARA
328
- * )
329
- */
330
-
331
- /*
332
- * ENTRY UDPSTX(CP,IPARA)
333
- * CHARACTER CP*(*)
334
- */
335
- /* SUBROUTINE UDPSTX(
336
- * CHARACTER*(*) CP
337
- * INTEGER IPARA
338
- * )
339
- */
340
-
341
- /*****************************************************
342
- * grph2/udpack/udpqnp.f
343
- ****************************************************/
344
- /*
345
- * SUBROUTINE UDPQNP(NCP)
346
- */
347
- SUBROUTINE UDPQNP(
348
- INTEGER o NCP
349
- )
350
-
351
- /*
352
- * ENTRY UDPQID(CP, IDX)
353
- * CHARACTER CP*(*)
354
- */
355
- SUBROUTINE UDPQID(
356
- CHARACTER*(*) CP
357
- INTEGER o IDX
358
- )
359
-
360
- /*
361
- * ENTRY UDPQCP(IDX, CP)
362
- * CHARACTER CP*(*)
363
- */
364
- SUBROUTINE UDPQCP(
365
- INTEGER IDX
366
- CHARACTER*(*) o CP
367
- )
368
-
369
- /*
370
- * ENTRY UDPQCL(IDX, CP)
371
- * CHARACTER CP*(*)
372
- */
373
- SUBROUTINE UDPQCL(
374
- INTEGER IDX
375
- CHARACTER*(*) o CP
376
- )
377
-
378
- /*
379
- * ENTRY UDPQIT(IDX, ITP)
380
- */
381
- SUBROUTINE UDPQIT(
382
- INTEGER IDX
383
- INTEGER o ITP
384
- )
385
-
386
- /*
387
- * ENTRY UDPQVL(IDX, IPARA)
388
- */
389
- SUBROUTINE UDPQVL(
390
- INTEGER IDX
391
- INTEGER o IPARA
392
- )
393
-
394
- /*
395
- * ENTRY UDPSVL(IDX, IPARA)
396
- */
397
- SUBROUTINE UDPSVL(
398
- INTEGER IDX
399
- INTEGER IPARA
400
- )
401
-
402
- /*
403
- * ENTRY UDPQIN(CP, IN)
404
- * CHARACTER CP*(*)
405
- */
406
- SUBROUTINE UDPQIN(
407
- CHARACTER*(*) CP
408
- INTEGER o IN
409
- )
410
-
411
- /*****************************************************
412
- * grph2/udpack/udiget.f
413
- ****************************************************/
414
- /*
415
- * SUBROUTINE UDIGET(CP, IPARA)
416
- * CHARACTER CP*(*)
417
- */
418
- SUBROUTINE UDIGET(
419
- CHARACTER*(*) CP
420
- INTEGER o IPARA
421
- )
422
-
423
- /*
424
- * ENTRY UDISET(CP, IPARA)
425
- * CHARACTER CP*(*)
426
- */
427
- SUBROUTINE UDISET(
428
- CHARACTER*(*) CP
429
- INTEGER IPARA
430
- )
431
-
432
- /*
433
- * ENTRY UDISTX(CP, IPARA)
434
- * CHARACTER CP*(*)
435
- */
436
- SUBROUTINE UDISTX(
437
- CHARACTER*(*) CP
438
- INTEGER IPARA
439
- )
440
-
441
- /*****************************************************
442
- * grph2/udpack/udiqnp.f
443
- ****************************************************/
444
- /*
445
- * SUBROUTINE UDIQNP(NCP)
446
- */
447
- SUBROUTINE UDIQNP(
448
- INTEGER o NCP
449
- )
450
-
451
- /*
452
- * ENTRY UDIQID(CP, IDX)
453
- * CHARACTER CP*(*)
454
- */
455
- SUBROUTINE UDIQID(
456
- CHARACTER*(*) CP
457
- INTEGER o IDX
458
- )
459
-
460
- /*
461
- * ENTRY UDIQCP(IDX, CP)
462
- * CHARACTER CP*(*)
463
- */
464
- SUBROUTINE UDIQCP(
465
- INTEGER IDX
466
- CHARACTER*(*) o CP
467
- )
468
-
469
- /*
470
- * ENTRY UDIQCL(IDX, CP)
471
- * CHARACTER CP*(*)
472
- */
473
- SUBROUTINE UDIQCL(
474
- INTEGER IDX
475
- CHARACTER*(*) o CP
476
- )
477
-
478
- /*
479
- * ENTRY UDIQVL(IDX, IPARA)
480
- */
481
- SUBROUTINE UDIQVL(
482
- INTEGER IDX
483
- INTEGER o IPARA
484
- )
485
-
486
- /*
487
- * ENTRY UDISVL(IDX, IPARA)
488
- */
489
- SUBROUTINE UDISVL(
490
- INTEGER IDX
491
- INTEGER IPARA
492
- )
493
-
494
- /*
495
- * ENTRY UDIQIN(CP, IN)
496
- * CHARACTER CP*(*)
497
- */
498
- SUBROUTINE UDIQIN(
499
- CHARACTER*(*) CP
500
- INTEGER o IN
501
- )
502
-
503
- /*****************************************************
504
- * grph2/udpack/udlget.f
505
- ****************************************************/
506
- /*
507
- * SUBROUTINE UDLGET(CP, LPARA)
508
- * CHARACTER CP*(*)
509
- * LOGICAL LPARA, LP
510
- */
511
- SUBROUTINE UDLGET(
512
- CHARACTER*(*) CP
513
- LOGICAL o LPARA
514
- )
515
-
516
- /*
517
- * ENTRY UDLSET(CP, LPARA)
518
- * CHARACTER CP*(*)
519
- * LOGICAL LPARA, LP
520
- */
521
- SUBROUTINE UDLSET(
522
- CHARACTER*(*) CP
523
- LOGICAL LPARA
524
- )
525
-
526
- /*
527
- * ENTRY UDLSTX(CP, LPARA)
528
- * CHARACTER CP*(*)
529
- * LOGICAL LPARA, LP
530
- */
531
- SUBROUTINE UDLSTX(
532
- CHARACTER*(*) CP
533
- LOGICAL LPARA
534
- )
535
-
536
- /*****************************************************
537
- * grph2/udpack/udlqnp.f
538
- ****************************************************/
539
- /*
540
- * SUBROUTINE UDLQNP(NCP)
541
- * INTEGER NCP
542
- */
543
- SUBROUTINE UDLQNP(
544
- INTEGER o NCP
545
- )
546
-
547
- /*
548
- * ENTRY UDLQID(CP, IDX)
549
- * CHARACTER CP*(*)
550
- */
551
- SUBROUTINE UDLQID(
552
- CHARACTER*(*) CP
553
- INTEGER o IDX
554
- )
555
-
556
- /*
557
- * ENTRY UDLQCP(IDX, CP)
558
- * CHARACTER CP*(*)
559
- */
560
- SUBROUTINE UDLQCP(
561
- INTEGER IDX
562
- CHARACTER*(*) o CP
563
- )
564
-
565
- /*
566
- * ENTRY UDLQCL(IDX, CP)
567
- * CHARACTER CP*(*)
568
- */
569
- SUBROUTINE UDLQCL(
570
- INTEGER IDX
571
- CHARACTER*(*) o CP
572
- )
573
-
574
- /*
575
- * ENTRY UDLQVL(IDX, LPARA)
576
- * LOGICAL LPARA
577
- */
578
- SUBROUTINE UDLQVL(
579
- INTEGER IDX
580
- LOGICAL o LPARA
581
- )
582
-
583
- /*
584
- * ENTRY UDLSVL(IDX, LPARA)
585
- * LOGICAL LPARA
586
- */
587
- SUBROUTINE UDLSVL(
588
- INTEGER IDX
589
- LOGICAL LPARA
590
- )
591
-
592
- /*
593
- * ENTRY UDLQIN(CP, IN)
594
- * CHARACTER CP*(*)
595
- */
596
- SUBROUTINE UDLQIN(
597
- CHARACTER*(*) CP
598
- INTEGER o IN
599
- )
600
-
601
- /*****************************************************
602
- * grph2/udpack/udrget.f
603
- ****************************************************/
604
- /*
605
- * SUBROUTINE UDRGET(CP, RPARA)
606
- * CHARACTER CP*(*)
607
- */
608
- SUBROUTINE UDRGET(
609
- CHARACTER*(*) CP
610
- REAL o RPARA
611
- )
612
-
613
- /*
614
- * ENTRY UDRSET(CP, RPARA)
615
- * CHARACTER CP*(*)
616
- */
617
- SUBROUTINE UDRSET(
618
- CHARACTER*(*) CP
619
- REAL RPARA
620
- )
621
-
622
- /*
623
- * ENTRY UDRSTX(CP, RPARA)
624
- * CHARACTER CP*(*)
625
- */
626
- SUBROUTINE UDRSTX(
627
- CHARACTER*(*) CP
628
- REAL RPARA
629
- )
630
-
631
- /*****************************************************
632
- * grph2/udpack/udrqnp.f
633
- ****************************************************/
634
- /*
635
- * SUBROUTINE UDRQNP(NCP)
636
- */
637
- SUBROUTINE UDRQNP(
638
- INTEGER o NCP
639
- )
640
-
641
- /*
642
- * ENTRY UDRQID(CP, IDX)
643
- * CHARACTER CP*(*)
644
- */
645
- SUBROUTINE UDRQID(
646
- CHARACTER*(*) CP
647
- INTEGER o IDX
648
- )
649
-
650
- /*
651
- * ENTRY UDRQCP(IDX, CP)
652
- * CHARACTER CP*(*)
653
- */
654
- SUBROUTINE UDRQCP(
655
- INTEGER IDX
656
- CHARACTER*(*) o CP
657
- )
658
-
659
- /*
660
- * ENTRY UDRQCL(IDX, CP)
661
- * CHARACTER CP*(*)
662
- */
663
- SUBROUTINE UDRQCL(
664
- INTEGER IDX
665
- CHARACTER*(*) o CP
666
- )
667
-
668
- /*
669
- * ENTRY UDRQVL(IDX, RPARA)
670
- */
671
- SUBROUTINE UDRQVL(
672
- INTEGER IDX
673
- REAL o RPARA
674
- )
675
-
676
- /*
677
- * ENTRY UDRSVL(IDX, RPARA)
678
- */
679
- SUBROUTINE UDRSVL(
680
- INTEGER IDX
681
- REAL RPARA
682
- )
683
-
684
- /*
685
- * ENTRY UDRQIN(CP, IN)
686
- * CHARACTER CP*(*)
687
- */
688
- SUBROUTINE UDRQIN(
689
- CHARACTER*(*) CP
690
- INTEGER o IN
691
- )
692
-