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_umpack.fp DELETED
@@ -1,676 +0,0 @@
1
- /*
2
- * grph2_umpack.fp
3
- *
4
- * $Id: grph2_umpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/umpack/umpmap.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UMPMAP(CDSN)
12
- * CHARACTER CDSN*(*)
13
- */
14
- SUBROUTINE UMPMAP(
15
- CHARACTER*(*) CDSN
16
- )
17
-
18
- /*****************************************************
19
- * grph2/umpack/umqfnm.f
20
- ****************************************************/
21
- /*
22
- * SUBROUTINE UMQFNM(CPARA,CFNAME)
23
- * CHARACTER CPARA*(*),CFNAME*(*)
24
- */
25
- SUBROUTINE UMQFNM(
26
- CHARACTER*(*) CPARA
27
- CHARACTER*(*) o CFNAME
28
- )
29
-
30
- /*****************************************************
31
- * grph2/umpack/umpglb.f
32
- ****************************************************/
33
- /*
34
- * SUBROUTINE UMPGLB
35
- */
36
- SUBROUTINE UMPGLB(
37
- )
38
-
39
- /*****************************************************
40
- * grph2/umpack/umpgrd.f
41
- ****************************************************/
42
- /*
43
- * SUBROUTINE UMPGRD
44
- */
45
- SUBROUTINE UMPGRD(
46
- )
47
-
48
- /*****************************************************
49
- * grph2/umpack/umplim.f
50
- ****************************************************/
51
- /*
52
- * SUBROUTINE UMPLIM
53
- */
54
- SUBROUTINE UMPLIM(
55
- )
56
-
57
- /*****************************************************
58
- * grph2/umpack/uminit.f
59
- ****************************************************/
60
- /*
61
- * SUBROUTINE UMINIT
62
- */
63
- SUBROUTINE UMINIT(
64
- )
65
-
66
- /*****************************************************
67
- * grph2/umpack/umscnt.f
68
- ****************************************************/
69
- /*
70
- * SUBROUTINE UMSCNT(XCNT, YCNT, ROT)
71
- */
72
- SUBROUTINE UMSCNT(
73
- REAL XCNT
74
- REAL YCNT
75
- REAL ROT
76
- )
77
-
78
- /*
79
- * ENTRY UMQCNT(XCNT, YCNT, ROT)
80
- */
81
- SUBROUTINE UMQCNT(
82
- REAL o XCNT
83
- REAL o YCNT
84
- REAL o ROT
85
- )
86
-
87
- /*****************************************************
88
- * grph2/umpack/umscwd.f
89
- ****************************************************/
90
- /*
91
- * SUBROUTINE UMSCWD(XCNTR, YCNTR, R)
92
- */
93
- SUBROUTINE UMSCWD(
94
- REAL XCNTR
95
- REAL YCNTR
96
- REAL R
97
- )
98
-
99
- /*
100
- * ENTRY UMQCWD(XCNTR, YCNTR, R)
101
- */
102
- SUBROUTINE UMQCWD(
103
- REAL o XCNTR
104
- REAL o YCNTR
105
- REAL o R
106
- )
107
-
108
- /*****************************************************
109
- * grph2/umpack/umspnt.f
110
- ****************************************************/
111
- /*
112
- * SUBROUTINE UMSPNT(N, UX, UY)
113
- * REAL UX(*), UY(*)
114
- */
115
- SUBROUTINE UMSPNT(
116
- INTEGER N
117
- REAL (N) UX
118
- REAL (N) UY
119
- )
120
-
121
- /*
122
- * ENTRY UMQPNT(N, UXA, UYA)
123
- */
124
- SUBROUTINE UMQPNT(
125
- INTEGER N
126
- REAL o UXA
127
- REAL o UYA
128
- )
129
-
130
- /*
131
- * ENTRY UMQPTN(N)
132
- */
133
- SUBROUTINE UMQPTN(
134
- INTEGER o N
135
- )
136
-
137
- /*
138
- * ENTRY UMRPNT
139
- */
140
- SUBROUTINE UMRPNT(
141
- )
142
-
143
- /*****************************************************
144
- * grph2/umpack/umpfit.f
145
- ****************************************************/
146
- /*
147
- * SUBROUTINE UMPFIT
148
- */
149
- SUBROUTINE UMPFIT(
150
- )
151
-
152
- /*****************************************************
153
- * grph2/umpack/umpget.f
154
- ****************************************************/
155
- /*
156
- * SUBROUTINE UMPGET(CP,IPARA)
157
- * CHARACTER CP*(*)
158
- */
159
- /* SUBROUTINE UMPGET(
160
- * CHARACTER*(*) CP
161
- * INTEGER o IPARA
162
- * )
163
- */
164
-
165
- /*
166
- * ENTRY UMPSET(CP, IPARA)
167
- * CHARACTER CP*(*)
168
- */
169
- /* SUBROUTINE UMPSET(
170
- * CHARACTER*(*) CP
171
- * INTEGER IPARA
172
- * )
173
- */
174
-
175
- /*
176
- * ENTRY UMPSTX(CP, IPARA)
177
- * CHARACTER CP*(*)
178
- */
179
- /* SUBROUTINE UMPSTX(
180
- * CHARACTER*(*) CP
181
- * INTEGER IPARA
182
- * )
183
- */
184
-
185
- /*****************************************************
186
- * grph2/umpack/umpqnp.f
187
- ****************************************************/
188
- /*
189
- * SUBROUTINE UMPQNP(NCP)
190
- */
191
- SUBROUTINE UMPQNP(
192
- INTEGER o NCP
193
- )
194
-
195
- /*
196
- * ENTRY UMPQID(CP, IDX)
197
- * CHARACTER CP*(*)
198
- */
199
- SUBROUTINE UMPQID(
200
- CHARACTER*(*) CP
201
- INTEGER o IDX
202
- )
203
-
204
- /*
205
- * ENTRY UMPQCP(IDX, CP)
206
- * CHARACTER CP*(*)
207
- */
208
- SUBROUTINE UMPQCP(
209
- INTEGER IDX
210
- CHARACTER*(*) o CP
211
- )
212
-
213
- /*
214
- * ENTRY UMPQCL(IDX, CP)
215
- * CHARACTER CP*(*)
216
- */
217
- SUBROUTINE UMPQCL(
218
- INTEGER IDX
219
- CHARACTER*(*) o CP
220
- )
221
-
222
- /*
223
- * ENTRY UMPQIT(IDX, ITP)
224
- */
225
- SUBROUTINE UMPQIT(
226
- INTEGER IDX
227
- INTEGER o ITP
228
- )
229
-
230
- /*
231
- * ENTRY UMPQVL(IDX, IPARA)
232
- */
233
- SUBROUTINE UMPQVL(
234
- INTEGER IDX
235
- INTEGER o IPARA
236
- )
237
-
238
- /*
239
- * ENTRY UMPSVL(IDX, IPARA)
240
- */
241
- SUBROUTINE UMPSVL(
242
- INTEGER IDX
243
- INTEGER IPARA
244
- )
245
-
246
- /*
247
- * ENTRY UMPQIN(CP, IN)
248
- * CHARACTER CP*(*)
249
- */
250
- SUBROUTINE UMPQIN(
251
- CHARACTER*(*) CP
252
- INTEGER o IN
253
- )
254
-
255
- /*****************************************************
256
- * grph2/umpack/umspct.f
257
- ****************************************************/
258
- /*
259
- * SUBROUTINE UMSPCT
260
- */
261
- SUBROUTINE UMSPCT(
262
- )
263
-
264
- /*****************************************************
265
- * grph2/umpack/umspcw.f
266
- ****************************************************/
267
- /*
268
- * SUBROUTINE UMSPCW
269
- */
270
- SUBROUTINE UMSPCW(
271
- )
272
-
273
- /*****************************************************
274
- * grph2/umpack/umspwd.f
275
- ****************************************************/
276
- /*
277
- * SUBROUTINE UMSPWD
278
- */
279
- SUBROUTINE UMSPWD(
280
- )
281
-
282
- /*****************************************************
283
- * grph2/umpack/umsppt.f
284
- ****************************************************/
285
- /*
286
- * SUBROUTINE UMSPPT
287
- */
288
- SUBROUTINE UMSPPT(
289
- )
290
-
291
- /*****************************************************
292
- * grph2/umpack/umspdf.f
293
- ****************************************************/
294
- /*
295
- * SUBROUTINE UMSPDF
296
- */
297
- SUBROUTINE UMSPDF(
298
- )
299
-
300
- /*****************************************************
301
- * grph2/umpack/umbndc.f
302
- ****************************************************/
303
- /*
304
- * SUBROUTINE UMBNDC(XMIN, XMAX, YMIN, YMAX)
305
- */
306
- SUBROUTINE UMBNDC(
307
- REAL io XMIN
308
- REAL o XMAX
309
- REAL o YMIN
310
- REAL o YMAX
311
- )
312
-
313
- /*****************************************************
314
- * grph2/umpack/umbndp.f
315
- ****************************************************/
316
- /*
317
- * SUBROUTINE UMBNDP(VXMIN, VXMAX, VYMIN, VYMAX)
318
- */
319
- SUBROUTINE UMBNDP(
320
- REAL io VXMIN
321
- REAL o VXMAX
322
- REAL o VYMIN
323
- REAL o VYMAX
324
- )
325
-
326
- /*****************************************************
327
- * grph2/umpack/umbndr.f
328
- ****************************************************/
329
- /*
330
- * SUBROUTINE UMBNDR(FUNC, FTR,
331
- * + XMIN, XMAX, YMIN, YMAX )
332
- */
333
- SUBROUTINE UMBNDR(
334
- REAL FUNC
335
- REAL FTR
336
- REAL o XMIN
337
- REAL o XMAX
338
- REAL o YMIN
339
- REAL o YMAX
340
- )
341
-
342
- /*****************************************************
343
- * grph2/umpack/umqtxy.f
344
- ****************************************************/
345
- /*
346
- * SUBROUTINE UMQTXY(TXMINZ, TXMAXZ, TYMINZ, TYMAXZ)
347
- */
348
- SUBROUTINE UMQTXY(
349
- REAL o TXMINZ
350
- REAL o TXMAXZ
351
- REAL o TYMINZ
352
- REAL o TYMAXZ
353
- )
354
-
355
- /*****************************************************
356
- * grph2/umpack/umstvz.f
357
- ****************************************************/
358
- /*
359
- * SUBROUTINE UMSTVZ
360
- */
361
- SUBROUTINE UMSTVZ(
362
- )
363
-
364
- /*****************************************************
365
- * grph2/umpack/umsgrd.f
366
- ****************************************************/
367
- /*
368
- * SUBROUTINE UMSGRD
369
- */
370
- SUBROUTINE UMSGRD(
371
- )
372
-
373
- /*****************************************************
374
- * grph2/umpack/umscom.f
375
- ****************************************************/
376
- /*
377
- * SUBROUTINE UMSCOM
378
- */
379
- SUBROUTINE UMSCOM(
380
- )
381
-
382
- /*****************************************************
383
- * grph2/umpack/umiget.f
384
- ****************************************************/
385
- /*
386
- * SUBROUTINE UMIGET(CP, IPARA)
387
- * CHARACTER CP*(*)
388
- */
389
- SUBROUTINE UMIGET(
390
- CHARACTER*(*) CP
391
- INTEGER o IPARA
392
- )
393
-
394
- /*
395
- * ENTRY UMISET(CP, IPARA)
396
- * CHARACTER CP*(*)
397
- */
398
- SUBROUTINE UMISET(
399
- CHARACTER*(*) CP
400
- INTEGER IPARA
401
- )
402
-
403
- /*
404
- * ENTRY UMISTX(CP, IPARA)
405
- * CHARACTER CP*(*)
406
- */
407
- SUBROUTINE UMISTX(
408
- CHARACTER*(*) CP
409
- INTEGER IPARA
410
- )
411
-
412
- /*****************************************************
413
- * grph2/umpack/umiqnp.f
414
- ****************************************************/
415
- /*
416
- * SUBROUTINE UMIQNP(NCP)
417
- */
418
- SUBROUTINE UMIQNP(
419
- INTEGER o NCP
420
- )
421
-
422
- /*
423
- * ENTRY UMIQID(CP, IDX)
424
- * CHARACTER CP*(*)
425
- */
426
- SUBROUTINE UMIQID(
427
- CHARACTER*(*) CP
428
- INTEGER o IDX
429
- )
430
-
431
- /*
432
- * ENTRY UMIQCP(IDX, CP)
433
- * CHARACTER CP*(*)
434
- */
435
- SUBROUTINE UMIQCP(
436
- INTEGER IDX
437
- CHARACTER*(*) o CP
438
- )
439
-
440
- /*
441
- * ENTRY UMIQCL(IDX, CP)
442
- * CHARACTER CP*(*)
443
- */
444
- SUBROUTINE UMIQCL(
445
- INTEGER IDX
446
- CHARACTER*(*) o CP
447
- )
448
-
449
- /*
450
- * ENTRY UMIQVL(IDX, IPARA)
451
- */
452
- SUBROUTINE UMIQVL(
453
- INTEGER IDX
454
- INTEGER o IPARA
455
- )
456
-
457
- /*
458
- * ENTRY UMISVL(IDX, IPARA)
459
- */
460
- SUBROUTINE UMISVL(
461
- INTEGER IDX
462
- INTEGER IPARA
463
- )
464
-
465
- /*
466
- * ENTRY UMIQIN(CP, IN)
467
- * CHARACTER CP*(*)
468
- */
469
- SUBROUTINE UMIQIN(
470
- CHARACTER*(*) CP
471
- INTEGER o IN
472
- )
473
-
474
- /*****************************************************
475
- * grph2/umpack/umlget.f
476
- ****************************************************/
477
- /*
478
- * SUBROUTINE UMLGET(CP, LPARA)
479
- * CHARACTER CP*(*)
480
- * LOGICAL LPARA
481
- */
482
- SUBROUTINE UMLGET(
483
- CHARACTER*(*) CP
484
- LOGICAL o LPARA
485
- )
486
-
487
- /*
488
- * ENTRY UMLSET(CP, LPARA)
489
- * CHARACTER CP*(*)
490
- * LOGICAL LPARA
491
- */
492
- SUBROUTINE UMLSET(
493
- CHARACTER*(*) CP
494
- LOGICAL LPARA
495
- )
496
-
497
- /*
498
- * ENTRY UMLSTX(CP, LPARA)
499
- * CHARACTER CP*(*)
500
- * LOGICAL LPARA
501
- */
502
- SUBROUTINE UMLSTX(
503
- CHARACTER*(*) CP
504
- LOGICAL LPARA
505
- )
506
-
507
- /*****************************************************
508
- * grph2/umpack/umlqnp.f
509
- ****************************************************/
510
- /*
511
- * SUBROUTINE UMLQNP(NCP)
512
- */
513
- SUBROUTINE UMLQNP(
514
- INTEGER o NCP
515
- )
516
-
517
- /*
518
- * ENTRY UMLQID(CP, IDX)
519
- * CHARACTER CP*(*)
520
- */
521
- SUBROUTINE UMLQID(
522
- CHARACTER*(*) CP
523
- INTEGER o IDX
524
- )
525
-
526
- /*
527
- * ENTRY UMLQCP(IDX, CP)
528
- * CHARACTER CP*(*)
529
- */
530
- SUBROUTINE UMLQCP(
531
- INTEGER IDX
532
- CHARACTER*(*) o CP
533
- )
534
-
535
- /*
536
- * ENTRY UMLQCL(IDX, CP)
537
- * CHARACTER CP*(*)
538
- */
539
- SUBROUTINE UMLQCL(
540
- INTEGER IDX
541
- CHARACTER*(*) o CP
542
- )
543
-
544
- /*
545
- * ENTRY UMLQVL(IDX, LPARA)
546
- * LOGICAL LPARA
547
- */
548
- SUBROUTINE UMLQVL(
549
- INTEGER IDX
550
- LOGICAL o LPARA
551
- )
552
-
553
- /*
554
- * ENTRY UMLSVL(IDX, LPARA)
555
- * LOGICAL LPARA
556
- */
557
- SUBROUTINE UMLSVL(
558
- INTEGER IDX
559
- LOGICAL LPARA
560
- )
561
-
562
- /*
563
- * ENTRY UMLQIN(CP, IN)
564
- * CHARACTER CP*(*)
565
- */
566
- SUBROUTINE UMLQIN(
567
- CHARACTER*(*) CP
568
- INTEGER o IN
569
- )
570
-
571
- /*****************************************************
572
- * grph2/umpack/umrget.f
573
- ****************************************************/
574
- /*
575
- * SUBROUTINE UMRGET(CP, RPARA)
576
- * CHARACTER CP*(*)
577
- */
578
- SUBROUTINE UMRGET(
579
- CHARACTER*(*) CP
580
- REAL o RPARA
581
- )
582
-
583
- /*
584
- * ENTRY UMRSET(CP, RPARA)
585
- * CHARACTER CP*(*)
586
- */
587
- SUBROUTINE UMRSET(
588
- CHARACTER*(*) CP
589
- REAL RPARA
590
- )
591
-
592
- /*
593
- * ENTRY UMRSTX(CP, RPARA)
594
- * CHARACTER CP*(*)
595
- */
596
- SUBROUTINE UMRSTX(
597
- CHARACTER*(*) CP
598
- REAL RPARA
599
- )
600
-
601
- /*****************************************************
602
- * grph2/umpack/umrqnp.f
603
- ****************************************************/
604
- /*
605
- * SUBROUTINE UMRQNP(NCP)
606
- */
607
- SUBROUTINE UMRQNP(
608
- INTEGER o NCP
609
- )
610
-
611
- /*
612
- * ENTRY UMRQID(CP, IDX)
613
- * CHARACTER CP*(*)
614
- */
615
- SUBROUTINE UMRQID(
616
- CHARACTER*(*) CP
617
- INTEGER o IDX
618
- )
619
-
620
- /*
621
- * ENTRY UMRQCP(IDX, CP)
622
- * CHARACTER CP*(*)
623
- */
624
- SUBROUTINE UMRQCP(
625
- INTEGER IDX
626
- CHARACTER*(*) o CP
627
- )
628
-
629
- /*
630
- * ENTRY UMRQCL(IDX, CP)
631
- * CHARACTER CP*(*)
632
- */
633
- SUBROUTINE UMRQCL(
634
- INTEGER IDX
635
- CHARACTER*(*) o CP
636
- )
637
-
638
- /*
639
- * ENTRY UMRQVL(IDX, RPARA)
640
- */
641
- SUBROUTINE UMRQVL(
642
- INTEGER IDX
643
- REAL o RPARA
644
- )
645
-
646
- /*
647
- * ENTRY UMRSVL(IDX, RPARA)
648
- */
649
- SUBROUTINE UMRSVL(
650
- INTEGER IDX
651
- REAL RPARA
652
- )
653
-
654
- /*
655
- * ENTRY UMRQIN(CP, IN)
656
- * CHARACTER CP*(*)
657
- */
658
- SUBROUTINE UMRQIN(
659
- CHARACTER*(*) CP
660
- INTEGER o IN
661
- )
662
-
663
-
664
- /*****************************************************
665
- * grph2/umpack/umfmap.f
666
- ****************************************************/
667
- /*
668
- * SUBROUTINE UMFMAP(CDSN)
669
- * CHARACTER CDSN*(*)
670
- */
671
- #if DCLVER >= 530
672
- SUBROUTINE UMFMAP(
673
- CHARACTER*(*) CDSN
674
- )
675
- #endif
676
-