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,436 +0,0 @@
1
- /*
2
- * grph2_ugpack.fp
3
- *
4
- * $Id: grph2_ugpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/ugpack/ugvect.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UGVECT(U,MU,V,MV,NX,NY)
12
- */
13
- SUBROUTINE UGVECT(
14
- REAL (MU,NY) U
15
- INTEGER MU
16
- REAL (MV,NY) V
17
- INTEGER MV
18
- INTEGER NX
19
- INTEGER NY
20
- )
21
-
22
- /*****************************************************
23
- * grph2/ugpack/ugunit.f
24
- ****************************************************/
25
- /*
26
- * SUBROUTINE UGUNIT
27
- */
28
- /*
29
- SUBROUTINE UGUNIT(
30
- )
31
- */
32
-
33
- /*****************************************************
34
- * grph2/ugpack/ugsut.f
35
- ****************************************************/
36
- /*
37
- * SUBROUTINE UGSUT(CSIDE,CTTL)
38
- * CHARACTER CSIDE*(*),CTTL*(*)
39
- */
40
- SUBROUTINE UGSUT(
41
- CHARACTER*(*) CSIDE
42
- CHARACTER*(*) CTTL
43
- )
44
-
45
- /*
46
- * ENTRY UGDUT
47
- */
48
- /*
49
- SUBROUTINE UGDUT(
50
- )
51
- */
52
-
53
- /*****************************************************
54
- * grph2/ugpack/ugpget.f
55
- ****************************************************/
56
- /*
57
- * SUBROUTINE UGPGET(CP, IPARA)
58
- * CHARACTER CP*(*)
59
- */
60
- /* SUBROUTINE UGPGET(
61
- * CHARACTER*(*) CP
62
- * INTEGER o IPARA
63
- * )
64
- */
65
-
66
- /*
67
- * ENTRY UGPSET(CP, IPARA)
68
- * CHARACTER CP*(*)
69
- */
70
- /* SUBROUTINE UGPSET(
71
- * CHARACTER*(*) CP
72
- * INTEGER IPARA
73
- * )
74
- */
75
-
76
- /*
77
- * ENTRY UGPSTX(CP, IPARA)
78
- * CHARACTER CP*(*)
79
- */
80
- /* SUBROUTINE UGPSTX(
81
- * CHARACTER*(*) CP
82
- * INTEGER IPARA
83
- * )
84
- */
85
-
86
- /*****************************************************
87
- * grph2/ugpack/ugpqnp.f
88
- ****************************************************/
89
- /*
90
- * SUBROUTINE UGPQNP(NCP)
91
- */
92
- SUBROUTINE UGPQNP(
93
- INTEGER o NCP
94
- )
95
-
96
- /*
97
- * ENTRY UGPQID(CP, IDX)
98
- * CHARACTER CP*(*)
99
- */
100
- SUBROUTINE UGPQID(
101
- CHARACTER*(*) CP
102
- INTEGER o IDX
103
- )
104
-
105
- /*
106
- * ENTRY UGPQCP(IDX, CP)
107
- * CHARACTER CP*(*)
108
- */
109
- SUBROUTINE UGPQCP(
110
- INTEGER IDX
111
- CHARACTER*(*) o CP
112
- )
113
-
114
- /*
115
- * ENTRY UGPQCL(IDX, CP)
116
- * CHARACTER CP*(*)
117
- */
118
- SUBROUTINE UGPQCL(
119
- INTEGER IDX
120
- CHARACTER*(*) o CP
121
- )
122
-
123
- /*
124
- * ENTRY UGPQIT(IDX, ITP)
125
- */
126
- SUBROUTINE UGPQIT(
127
- INTEGER IDX
128
- INTEGER o ITP
129
- )
130
-
131
- /*
132
- * ENTRY UGPQVL(IDX, IPARA)
133
- */
134
- SUBROUTINE UGPQVL(
135
- INTEGER IDX
136
- INTEGER o IPARA
137
- )
138
-
139
- /*
140
- * ENTRY UGPSVL(IDX, IPARA)
141
- */
142
- SUBROUTINE UGPSVL(
143
- INTEGER IDX
144
- INTEGER IPARA
145
- )
146
-
147
- /*
148
- * ENTRY UGPQIN(CP, IN)
149
- * CHARACTER CP*(*)
150
- */
151
- SUBROUTINE UGPQIN(
152
- CHARACTER*(*) CP
153
- INTEGER o IN
154
- )
155
-
156
- /*****************************************************
157
- * grph2/ugpack/ugiget.f
158
- ****************************************************/
159
- /*
160
- * SUBROUTINE UGIGET(CP, IPARA)
161
- * CHARACTER CP*(*)
162
- */
163
- SUBROUTINE UGIGET(
164
- CHARACTER*(*) CP
165
- INTEGER o IPARA
166
- )
167
-
168
- /*
169
- * ENTRY UGISET(CP, IPARA)
170
- * CHARACTER CP*(*)
171
- */
172
- SUBROUTINE UGISET(
173
- CHARACTER*(*) CP
174
- INTEGER IPARA
175
- )
176
-
177
- /*
178
- * ENTRY UGISTX(CP, IPARA)
179
- * CHARACTER CP*(*)
180
- */
181
- SUBROUTINE UGISTX(
182
- CHARACTER*(*) CP
183
- INTEGER IPARA
184
- )
185
-
186
- /*****************************************************
187
- * grph2/ugpack/ugiqnp.f
188
- ****************************************************/
189
- /*
190
- * SUBROUTINE UGIQNP(NCP)
191
- */
192
- SUBROUTINE UGIQNP(
193
- INTEGER o NCP
194
- )
195
-
196
- /*
197
- * ENTRY UGIQID(CP, IDX)
198
- * CHARACTER CP*(*)
199
- */
200
- SUBROUTINE UGIQID(
201
- CHARACTER*(*) CP
202
- INTEGER o IDX
203
- )
204
-
205
- /*
206
- * ENTRY UGIQCP(IDX, CP)
207
- * CHARACTER CP*(*)
208
- */
209
- SUBROUTINE UGIQCP(
210
- INTEGER IDX
211
- CHARACTER*(*) o CP
212
- )
213
-
214
- /*
215
- * ENTRY UGIQCL(IDX, CP)
216
- * CHARACTER CP*(*)
217
- */
218
- SUBROUTINE UGIQCL(
219
- INTEGER IDX
220
- CHARACTER*(*) o CP
221
- )
222
-
223
- /*
224
- * ENTRY UGIQVL(IDX, IPARA)
225
- */
226
- SUBROUTINE UGIQVL(
227
- INTEGER IDX
228
- INTEGER o IPARA
229
- )
230
-
231
- /*
232
- * ENTRY UGISVL(IDX, IPARA)
233
- */
234
- SUBROUTINE UGISVL(
235
- INTEGER IDX
236
- INTEGER IPARA
237
- )
238
-
239
- /*
240
- * ENTRY UGIQIN(CP, IN)
241
- * CHARACTER CP*(*)
242
- */
243
- SUBROUTINE UGIQIN(
244
- CHARACTER*(*) CP
245
- INTEGER o IN
246
- )
247
-
248
- /*****************************************************
249
- * grph2/ugpack/uglget.f
250
- ****************************************************/
251
- /*
252
- * SUBROUTINE UGLGET(CP, LPARA)
253
- * CHARACTER CP*(*)
254
- * LOGICAL LPARA
255
- */
256
- SUBROUTINE UGLGET(
257
- CHARACTER*(*) CP
258
- LOGICAL o LPARA
259
- )
260
-
261
- /*
262
- * ENTRY UGLSET(CP, LPARA)
263
- * CHARACTER CP*(*)
264
- * LOGICAL LPARA
265
- */
266
- SUBROUTINE UGLSET(
267
- CHARACTER*(*) CP
268
- LOGICAL LPARA
269
- )
270
-
271
- /*
272
- * ENTRY UGLSTX(CP, LPARA)
273
- * CHARACTER CP*(*)
274
- * LOGICAL LPARA
275
- */
276
- SUBROUTINE UGLSTX(
277
- CHARACTER*(*) CP
278
- LOGICAL LPARA
279
- )
280
-
281
- /*****************************************************
282
- * grph2/ugpack/uglqnp.f
283
- ****************************************************/
284
- /*
285
- * SUBROUTINE UGLQNP(NCP)
286
- */
287
- SUBROUTINE UGLQNP(
288
- INTEGER o NCP
289
- )
290
-
291
- /*
292
- * ENTRY UGLQID(CP, IDX)
293
- * CHARACTER CP*(*)
294
- */
295
- SUBROUTINE UGLQID(
296
- CHARACTER*(*) CP
297
- INTEGER o IDX
298
- )
299
-
300
- /*
301
- * ENTRY UGLQCP(IDX, CP)
302
- * CHARACTER CP*(*)
303
- */
304
- SUBROUTINE UGLQCP(
305
- INTEGER IDX
306
- CHARACTER*(*) o CP
307
- )
308
-
309
- /*
310
- * ENTRY UGLQCL(IDX, CP)
311
- * CHARACTER CP*(*)
312
- */
313
- SUBROUTINE UGLQCL(
314
- INTEGER IDX
315
- CHARACTER*(*) o CP
316
- )
317
-
318
- /*
319
- * ENTRY UGLQVL(IDX, LPARA)
320
- * LOGICAL LPARA
321
- */
322
- SUBROUTINE UGLQVL(
323
- INTEGER IDX
324
- LOGICAL o LPARA
325
- )
326
-
327
- /*
328
- * ENTRY UGLSVL(IDX, LPARA)
329
- * LOGICAL LPARA
330
- */
331
- SUBROUTINE UGLSVL(
332
- INTEGER IDX
333
- LOGICAL LPARA
334
- )
335
-
336
- /*
337
- * ENTRY UGLQIN(CP, IN)
338
- * CHARACTER CP*(*)
339
- */
340
- SUBROUTINE UGLQIN(
341
- CHARACTER*(*) CP
342
- INTEGER o IN
343
- )
344
-
345
- /*****************************************************
346
- * grph2/ugpack/ugrget.f
347
- ****************************************************/
348
- /*
349
- * SUBROUTINE UGRGET(CP, RPARA)
350
- * CHARACTER CP*(*)
351
- */
352
- SUBROUTINE UGRGET(
353
- CHARACTER*(*) CP
354
- REAL o RPARA
355
- )
356
-
357
- /*
358
- * ENTRY UGRSET(CP, RPARA)
359
- * CHARACTER CP*(*)
360
- */
361
- SUBROUTINE UGRSET(
362
- CHARACTER*(*) CP
363
- REAL RPARA
364
- )
365
-
366
- /*
367
- * ENTRY UGRSTX(CP, RPARA)
368
- * CHARACTER CP*(*)
369
- */
370
- SUBROUTINE UGRSTX(
371
- CHARACTER*(*) CP
372
- REAL RPARA
373
- )
374
-
375
- /*****************************************************
376
- * grph2/ugpack/ugrqnp.f
377
- ****************************************************/
378
- /*
379
- * SUBROUTINE UGRQNP(NCP)
380
- */
381
- SUBROUTINE UGRQNP(
382
- INTEGER o NCP
383
- )
384
-
385
- /*
386
- * ENTRY UGRQID(CP, IDX)
387
- * CHARACTER CP*(*)
388
- */
389
- SUBROUTINE UGRQID(
390
- CHARACTER*(*) CP
391
- INTEGER o IDX
392
- )
393
-
394
- /*
395
- * ENTRY UGRQCP(IDX, CP)
396
- * CHARACTER CP*(*)
397
- */
398
- SUBROUTINE UGRQCP(
399
- INTEGER IDX
400
- CHARACTER*(*) o CP
401
- )
402
-
403
- /*
404
- * ENTRY UGRQCL(IDX, CP)
405
- * CHARACTER CP*(*)
406
- */
407
- SUBROUTINE UGRQCL(
408
- INTEGER IDX
409
- CHARACTER*(*) o CP
410
- )
411
-
412
- /*
413
- * ENTRY UGRQVL(IDX, RPARA)
414
- */
415
- SUBROUTINE UGRQVL(
416
- INTEGER IDX
417
- REAL o RPARA
418
- )
419
-
420
- /*
421
- * ENTRY UGRSVL(IDX, RPARA)
422
- */
423
- SUBROUTINE UGRSVL(
424
- INTEGER IDX
425
- REAL RPARA
426
- )
427
-
428
- /*
429
- * ENTRY UGRQIN(CP, IN)
430
- * CHARACTER CP*(*)
431
- */
432
- SUBROUTINE UGRQIN(
433
- CHARACTER*(*) CP
434
- INTEGER o IN
435
- )
436
-
@@ -1,246 +0,0 @@
1
- /*
2
- * grph2_uhpack.fp
3
- *
4
- * $Id: grph2_uhpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uhpack/uherb.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UHERB(N,UPX1,UPX2,UPY)
12
- * REAL UPX1(*),UPX2(*),UPY(*)
13
- */
14
- SUBROUTINE UHERB(
15
- INTEGER N
16
- REAL (N) UPX1
17
- REAL (N) UPX2
18
- REAL (N) UPY
19
- )
20
-
21
- /*****************************************************
22
- * grph2/uhpack/uherbz.f
23
- ****************************************************/
24
- /*
25
- * SUBROUTINE UHERBZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
26
- * REAL UPX1(*),UPX2(*),UPY(*)
27
- */
28
- SUBROUTINE UHERBZ(
29
- INTEGER N
30
- REAL (N) UPX1
31
- REAL (N) UPX2
32
- REAL (N) UPY
33
- INTEGER ITYPE
34
- INTEGER INDEX
35
- REAL RSIZE
36
- )
37
-
38
- /*****************************************************
39
- * grph2/uhpack/uhdif.f
40
- ****************************************************/
41
- /*
42
- * SUBROUTINE UHDIF(N,UPX1,UPX2,UPY)
43
- * REAL UPX1(*),UPX2(*),UPY(*)
44
- */
45
- SUBROUTINE UHDIF(
46
- INTEGER N
47
- REAL (N) UPX1
48
- REAL (N) UPX2
49
- REAL (N) UPY
50
- )
51
-
52
- /*****************************************************
53
- * grph2/uhpack/uhdifz.f
54
- ****************************************************/
55
- /*
56
- * SUBROUTINE UHDIFZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
57
- * REAL UPX1(*),UPX2(*),UPY(*)
58
- */
59
- SUBROUTINE UHDIFZ(
60
- INTEGER N
61
- REAL (N) UPX1
62
- REAL (N) UPX2
63
- REAL (N) UPY
64
- INTEGER ITPAT1
65
- INTEGER ITPAT2
66
- )
67
-
68
- /*****************************************************
69
- * grph2/uhpack/uhbrf.f
70
- ****************************************************/
71
- /*
72
- * SUBROUTINE UHBRF(N,UPX1,UPX2,UPY)
73
- * REAL UPX1(*),UPX2(*),UPY(*)
74
- */
75
- SUBROUTINE UHBRF(
76
- INTEGER N
77
- REAL (N) UPX1
78
- REAL (N) UPX2
79
- REAL (N) UPY
80
- )
81
-
82
- /*****************************************************
83
- * grph2/uhpack/uhbrfz.f
84
- ****************************************************/
85
- /*
86
- * SUBROUTINE UHBRFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX,RSIZE)
87
- * REAL UPX1(*),UPX2(*),UPY(*)
88
- */
89
- SUBROUTINE UHBRFZ(
90
- INTEGER N
91
- REAL (N) UPX1
92
- REAL (N) UPX2
93
- REAL (N) UPY
94
- INTEGER ITYPE
95
- INTEGER INDEX
96
- REAL RSIZE
97
- )
98
-
99
- /*****************************************************
100
- * grph2/uhpack/uhbra.f
101
- ****************************************************/
102
- /*
103
- * SUBROUTINE UHBRA(N,UPX1,UPX2,UPY)
104
- * REAL UPX1(*),UPX2(*),UPY(*)
105
- */
106
- SUBROUTINE UHBRA(
107
- INTEGER N
108
- REAL (N) UPX1
109
- REAL (N) UPX2
110
- REAL (N) UPY
111
- )
112
-
113
- /*****************************************************
114
- * grph2/uhpack/uhbraz.f
115
- ****************************************************/
116
- /*
117
- * SUBROUTINE UHBRAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2,RSIZE)
118
- * REAL UPX1(*),UPX2(*),UPY(*)
119
- */
120
- SUBROUTINE UHBRAZ(
121
- INTEGER N
122
- REAL (N) UPX1
123
- REAL (N) UPX2
124
- REAL (N) UPY
125
- INTEGER ITPAT1
126
- INTEGER ITPAT2
127
- REAL RSIZE
128
- )
129
-
130
- /*****************************************************
131
- * grph2/uhpack/uhbrl.f
132
- ****************************************************/
133
- /*
134
- * SUBROUTINE UHBRL(N,UPX,UPY)
135
- * REAL UPX(*),UPY(*)
136
- */
137
- SUBROUTINE UHBRL(
138
- INTEGER N
139
- REAL (N) UPX
140
- REAL (N) UPY
141
- )
142
-
143
- /*****************************************************
144
- * grph2/uhpack/uhbrlz.f
145
- ****************************************************/
146
- /*
147
- * SUBROUTINE UHBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
148
- * REAL UPX(*),UPY(*)
149
- */
150
- SUBROUTINE UHBRLZ(
151
- INTEGER N
152
- REAL (N) UPX
153
- REAL (N) UPY
154
- INTEGER ITYPE
155
- INTEGER INDEX
156
- REAL RSIZE
157
- )
158
-
159
- /*****************************************************
160
- * grph2/uhpack/uhbxf.f
161
- ****************************************************/
162
- /*
163
- * SUBROUTINE UHBXF(N,UPX1,UPX2,UPY)
164
- * REAL UPX1(*),UPX2(*),UPY(*)
165
- */
166
- SUBROUTINE UHBXF(
167
- INTEGER N
168
- REAL (N) UPX1
169
- REAL (N) UPX2
170
- REAL (N+1) UPY
171
- )
172
-
173
- /*****************************************************
174
- * grph2/uhpack/uhbxfz.f
175
- ****************************************************/
176
- /*
177
- * SUBROUTINE UHBXFZ(N,UPX1,UPX2,UPY,ITYPE,INDEX)
178
- * REAL UPX1(*),UPX2(*),UPY(*)
179
- */
180
- SUBROUTINE UHBXFZ(
181
- INTEGER N
182
- REAL (N) UPX1
183
- REAL (N) UPX2
184
- REAL (N+1) UPY
185
- INTEGER ITYPE
186
- INTEGER INDEX
187
- )
188
-
189
- /*****************************************************
190
- * grph2/uhpack/uhbxa.f
191
- ****************************************************/
192
- /*
193
- * SUBROUTINE UHBXA(N,UPX1,UPX2,UPY)
194
- * REAL UPX1(*),UPX2(*),UPY(*)
195
- */
196
- SUBROUTINE UHBXA(
197
- INTEGER N
198
- REAL (N) UPX1
199
- REAL (N) UPX2
200
- REAL (N+1) UPY
201
- )
202
-
203
- /*****************************************************
204
- * grph2/uhpack/uhbxl.f
205
- ****************************************************/
206
- /*
207
- * SUBROUTINE UHBXL(N,UPX,UPY)
208
- * REAL UPX(*),UPY(*)
209
- */
210
- SUBROUTINE UHBXL(
211
- INTEGER N
212
- REAL (N) UPX
213
- REAL (N+1) UPY
214
- )
215
-
216
- /*****************************************************
217
- * grph2/uhpack/uhbxaz.f
218
- ****************************************************/
219
- /*
220
- * SUBROUTINE UHBXAZ(N,UPX1,UPX2,UPY,ITPAT1,ITPAT2)
221
- * REAL UPX1(*),UPX2(*),UPY(*)
222
- */
223
- SUBROUTINE UHBXAZ(
224
- INTEGER N
225
- REAL (N) UPX1
226
- REAL (N) UPX2
227
- REAL (N+1) UPY
228
- INTEGER ITPAT1
229
- INTEGER ITPAT2
230
- )
231
-
232
- /*****************************************************
233
- * grph2/uhpack/uhbxlz.f
234
- ****************************************************/
235
- /*
236
- * SUBROUTINE UHBXLZ(N,UPX,UPY,ITYPE,INDEX)
237
- * REAL UPX(*),UPY(*)
238
- */
239
- SUBROUTINE UHBXLZ(
240
- INTEGER N
241
- REAL (N) UPX
242
- REAL (N+1) UPY
243
- INTEGER ITYPE
244
- INTEGER INDEX
245
- )
246
-