ruby-dcl 1.7.1 → 1.8.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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_uzpack.fp DELETED
@@ -1,574 +0,0 @@
1
- /*
2
- * grph2_uzpack.fp
3
- *
4
- * $Id: grph2_uzpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uzpack/uzpget.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UZPGET(CP,IPARA)
12
- * CHARACTER CP*(*)
13
- */
14
- /* SUBROUTINE UZPGET(
15
- * CHARACTER*(*) CP
16
- * INTEGER o IPARA
17
- * )
18
- */
19
-
20
- /*
21
- * ENTRY UZPSET(CP, IPARA)
22
- * CHARACTER CP*(*)
23
- */
24
- /* SUBROUTINE UZPSET(
25
- * CHARACTER*(*) CP
26
- * INTEGER IPARA
27
- * )
28
- */
29
-
30
- /*
31
- * ENTRY UZPSTX(CP, IPARA)
32
- * CHARACTER CP*(*)
33
- */
34
- /* SUBROUTINE UZPSTX(
35
- * CHARACTER*(*) CP
36
- * INTEGER IPARA
37
- * )
38
- */
39
-
40
- /*****************************************************
41
- * grph2/uzpack/uzpqnp.f
42
- ****************************************************/
43
- /*
44
- * SUBROUTINE UZPQNP(NCP)
45
- */
46
- SUBROUTINE UZPQNP(
47
- INTEGER o NCP
48
- )
49
-
50
- /*
51
- * ENTRY UZPQID(CP, IDX)
52
- * CHARACTER CP*(*)
53
- */
54
- SUBROUTINE UZPQID(
55
- CHARACTER*(*) CP
56
- INTEGER o IDX
57
- )
58
-
59
- /*
60
- * ENTRY UZPQCP(IDX, CP)
61
- * CHARACTER CP*(*)
62
- */
63
- SUBROUTINE UZPQCP(
64
- INTEGER IDX
65
- CHARACTER*(*) o CP
66
- )
67
-
68
- /*
69
- * ENTRY UZPQCL(IDX, CP)
70
- * CHARACTER CP*(*)
71
- */
72
- SUBROUTINE UZPQCL(
73
- INTEGER IDX
74
- CHARACTER*(*) o CP
75
- )
76
-
77
- /*
78
- * ENTRY UZPQIT(IDX, ITP)
79
- */
80
- SUBROUTINE UZPQIT(
81
- INTEGER IDX
82
- INTEGER o ITP
83
- )
84
-
85
- /*
86
- * ENTRY UZPQVL(IDX, IPARA)
87
- */
88
- SUBROUTINE UZPQVL(
89
- INTEGER IDX
90
- INTEGER o IPARA
91
- )
92
-
93
- /*
94
- * ENTRY UZPSVL(IDX, IPARA)
95
- */
96
- SUBROUTINE UZPSVL(
97
- INTEGER IDX
98
- INTEGER IPARA
99
- )
100
-
101
- /*
102
- * ENTRY UZPQIN(CP, IN)
103
- * CHARACTER CP*(*)
104
- */
105
- SUBROUTINE UZPQIN(
106
- CHARACTER*(*) CP
107
- INTEGER o IN
108
- )
109
-
110
- /*****************************************************
111
- * grph2/uzpack/uzinit.f
112
- ****************************************************/
113
- /*
114
- * SUBROUTINE UZINIT
115
- */
116
- SUBROUTINE UZINIT(
117
- )
118
-
119
- /*****************************************************
120
- * grph2/uzpack/uzfact.f
121
- ****************************************************/
122
- /*
123
- * SUBROUTINE UZFACT(RFACT)
124
- */
125
- SUBROUTINE UZFACT(
126
- REAL RFACT
127
- )
128
-
129
- /*****************************************************
130
- * grph2/uzpack/uzcget.f
131
- ****************************************************/
132
- /*
133
- * SUBROUTINE UZCGET(CP,CPARA)
134
- * CHARACTER CP*(*), CPARA*(*)
135
- */
136
- SUBROUTINE UZCGET(
137
- CHARACTER*(*) CP
138
- CHARACTER*(*) o CPARA
139
- )
140
-
141
- /*
142
- * ENTRY UZCSET(CP,CPARA)
143
- * CHARACTER CP*(*), CPARA*(*)
144
- */
145
- SUBROUTINE UZCSET(
146
- CHARACTER*(*) CP
147
- CHARACTER*(*) CPARA
148
- )
149
-
150
- /*
151
- * ENTRY UZCSTX(CP, CPARA)
152
- * CHARACTER CP*(*), CPARA*(*)
153
- */
154
- SUBROUTINE UZCSTX(
155
- CHARACTER*(*) CP
156
- CHARACTER*(*) CPARA
157
- )
158
-
159
- /*****************************************************
160
- * grph2/uzpack/uzcqnp.f
161
- ****************************************************/
162
- /*
163
- * SUBROUTINE UZCQNP(NCP)
164
- */
165
- SUBROUTINE UZCQNP(
166
- INTEGER o NCP
167
- )
168
-
169
- /*
170
- * ENTRY UZCQID(CP, IDX)
171
- * CHARACTER CP*(*), CVAL*(*)
172
- */
173
- SUBROUTINE UZCQID(
174
- CHARACTER*(*) CP
175
- INTEGER o IDX
176
- )
177
-
178
- /*
179
- * ENTRY UZCQCP(IDX,CP)
180
- * CHARACTER CP*(*), CVAL*(*)
181
- */
182
- SUBROUTINE UZCQCP(
183
- INTEGER IDX
184
- CHARACTER*(*) o CP
185
- )
186
-
187
- /*
188
- * ENTRY UZCQCL(IDX,CP)
189
- * CHARACTER CP*(*), CVAL*(*)
190
- */
191
- SUBROUTINE UZCQCL(
192
- INTEGER IDX
193
- CHARACTER*(*) o CP
194
- )
195
-
196
- /*
197
- * ENTRY UZCQVL(IDX,CVAL)
198
- * CHARACTER CP*(*), CVAL*(*)
199
- */
200
- SUBROUTINE UZCQVL(
201
- INTEGER IDX
202
- CHARACTER*(*) o CVAL
203
- )
204
-
205
- /*
206
- * ENTRY UZCSVL(IDX,CVAL)
207
- * CHARACTER CP*(*), CVAL*(*)
208
- */
209
- SUBROUTINE UZCSVL(
210
- INTEGER IDX
211
- CHARACTER*(*) CVAL
212
- )
213
-
214
- /*
215
- * ENTRY UZCQIN(CP, IN)
216
- * CHARACTER CP*(*), CVAL*(*)
217
- */
218
- SUBROUTINE UZCQIN(
219
- CHARACTER*(*) CP
220
- INTEGER o IN
221
- )
222
-
223
- /*
224
- * ENTRY UZCSAV(IU)
225
- */
226
- SUBROUTINE UZCSAV(
227
- INTEGER IU
228
- )
229
-
230
- /*
231
- * ENTRY UZCRST(IU)
232
- */
233
- SUBROUTINE UZCRST(
234
- INTEGER IU
235
- )
236
-
237
- /*****************************************************
238
- * grph2/uzpack/uziget.f
239
- ****************************************************/
240
- /*
241
- * SUBROUTINE UZIGET(CP, IPARA)
242
- * CHARACTER CP*(*)
243
- */
244
- SUBROUTINE UZIGET(
245
- CHARACTER*(*) CP
246
- INTEGER o IPARA
247
- )
248
-
249
- /*
250
- * ENTRY UZISET(CP, IPARA)
251
- * CHARACTER CP*(*)
252
- */
253
- SUBROUTINE UZISET(
254
- CHARACTER*(*) CP
255
- INTEGER IPARA
256
- )
257
-
258
- /*
259
- * ENTRY UZISTX(CP, IPARA)
260
- * CHARACTER CP*(*)
261
- */
262
- SUBROUTINE UZISTX(
263
- CHARACTER*(*) CP
264
- INTEGER IPARA
265
- )
266
-
267
- /*****************************************************
268
- * grph2/uzpack/uziqnp.f
269
- ****************************************************/
270
- /*
271
- * SUBROUTINE UZIQNP(NCP)
272
- */
273
- SUBROUTINE UZIQNP(
274
- INTEGER o NCP
275
- )
276
-
277
- /*
278
- * ENTRY UZIQID(CP, IDX)
279
- * CHARACTER CP*(*)
280
- */
281
- SUBROUTINE UZIQID(
282
- CHARACTER*(*) CP
283
- INTEGER o IDX
284
- )
285
-
286
- /*
287
- * ENTRY UZIQCP(IDX, CP)
288
- * CHARACTER CP*(*)
289
- */
290
- SUBROUTINE UZIQCP(
291
- INTEGER IDX
292
- CHARACTER*(*) o CP
293
- )
294
-
295
- /*
296
- * ENTRY UZIQCL(IDX, CP)
297
- * CHARACTER CP*(*)
298
- */
299
- SUBROUTINE UZIQCL(
300
- INTEGER IDX
301
- CHARACTER*(*) o CP
302
- )
303
-
304
- /*
305
- * ENTRY UZIQVL(IDX, IPARA)
306
- */
307
- SUBROUTINE UZIQVL(
308
- INTEGER IDX
309
- INTEGER o IPARA
310
- )
311
-
312
- /*
313
- * ENTRY UZISVL(IDX, IPARA)
314
- */
315
- SUBROUTINE UZISVL(
316
- INTEGER IDX
317
- INTEGER IPARA
318
- )
319
-
320
- /*
321
- * ENTRY UZIQIN(CP, IN)
322
- * CHARACTER CP*(*)
323
- */
324
- SUBROUTINE UZIQIN(
325
- CHARACTER*(*) CP
326
- INTEGER o IN
327
- )
328
-
329
- /*
330
- * ENTRY UZISAV(IU)
331
- */
332
- SUBROUTINE UZISAV(
333
- INTEGER IU
334
- )
335
-
336
- /*
337
- * ENTRY UZIRST(IU)
338
- */
339
- SUBROUTINE UZIRST(
340
- INTEGER IU
341
- )
342
-
343
- /*****************************************************
344
- * grph2/uzpack/uzlget.f
345
- ****************************************************/
346
- /*
347
- * SUBROUTINE UZLGET(CP, LPARA)
348
- * CHARACTER CP*(*)
349
- * LOGICAL LPARA
350
- */
351
- SUBROUTINE UZLGET(
352
- CHARACTER*(*) CP
353
- LOGICAL o LPARA
354
- )
355
-
356
- /*
357
- * ENTRY UZLSET(CP, LPARA)
358
- * CHARACTER CP*(*)
359
- * LOGICAL LPARA
360
- */
361
- SUBROUTINE UZLSET(
362
- CHARACTER*(*) CP
363
- LOGICAL LPARA
364
- )
365
-
366
- /*
367
- * ENTRY UZLSTX(CP, LPARA)
368
- * CHARACTER CP*(*)
369
- * LOGICAL LPARA
370
- */
371
- SUBROUTINE UZLSTX(
372
- CHARACTER*(*) CP
373
- LOGICAL LPARA
374
- )
375
-
376
- /*****************************************************
377
- * grph2/uzpack/uzlqnp.f
378
- ****************************************************/
379
- /*
380
- * SUBROUTINE UZLQNP(NCP)
381
- */
382
- SUBROUTINE UZLQNP(
383
- INTEGER o NCP
384
- )
385
-
386
- /*
387
- * ENTRY UZLQID(CP, IDX)
388
- * CHARACTER CP*(*)
389
- */
390
- SUBROUTINE UZLQID(
391
- CHARACTER*(*) CP
392
- INTEGER o IDX
393
- )
394
-
395
- /*
396
- * ENTRY UZLQCP(IDX, CP)
397
- * CHARACTER CP*(*)
398
- */
399
- SUBROUTINE UZLQCP(
400
- INTEGER IDX
401
- CHARACTER*(*) o CP
402
- )
403
-
404
- /*
405
- * ENTRY UZLQCL(IDX, CP)
406
- * CHARACTER CP*(*)
407
- */
408
- SUBROUTINE UZLQCL(
409
- INTEGER IDX
410
- CHARACTER*(*) o CP
411
- )
412
-
413
- /*
414
- * ENTRY UZLQVL(IDX, LPARA)
415
- * LOGICAL LPARA
416
- */
417
- SUBROUTINE UZLQVL(
418
- INTEGER IDX
419
- LOGICAL o LPARA
420
- )
421
-
422
- /*
423
- * ENTRY UZLSVL(IDX, LPARA)
424
- * LOGICAL LPARA
425
- */
426
- SUBROUTINE UZLSVL(
427
- INTEGER IDX
428
- LOGICAL LPARA
429
- )
430
-
431
- /*
432
- * ENTRY UZLQIN(CP, IN)
433
- * CHARACTER CP*(*)
434
- */
435
- SUBROUTINE UZLQIN(
436
- CHARACTER*(*) CP
437
- INTEGER o IN
438
- )
439
-
440
- /*
441
- * ENTRY UZLSAV(IU)
442
- */
443
- SUBROUTINE UZLSAV(
444
- INTEGER IU
445
- )
446
-
447
- /*
448
- * ENTRY UZLRST(IU)
449
- */
450
- SUBROUTINE UZLRST(
451
- INTEGER IU
452
- )
453
-
454
- /*****************************************************
455
- * grph2/uzpack/uzrget.f
456
- ****************************************************/
457
- /*
458
- * SUBROUTINE UZRGET(CP, RPARA)
459
- * CHARACTER CP*(*)
460
- */
461
- SUBROUTINE UZRGET(
462
- CHARACTER*(*) CP
463
- REAL o RPARA
464
- )
465
-
466
- /*
467
- * ENTRY UZRSET(CP, RPARA)
468
- * CHARACTER CP*(*)
469
- */
470
- SUBROUTINE UZRSET(
471
- CHARACTER*(*) CP
472
- REAL RPARA
473
- )
474
-
475
- /*
476
- * ENTRY UZRSTX(CP, RPARA)
477
- * CHARACTER CP*(*)
478
- */
479
- SUBROUTINE UZRSTX(
480
- CHARACTER*(*) CP
481
- REAL RPARA
482
- )
483
-
484
- /*****************************************************
485
- * grph2/uzpack/uzrqnp.f
486
- ****************************************************/
487
- /*
488
- * SUBROUTINE UZRQNP(NCP)
489
- */
490
- SUBROUTINE UZRQNP(
491
- INTEGER o NCP
492
- )
493
-
494
- /*
495
- * ENTRY UZRQID(CP, IDX)
496
- * CHARACTER CP*(*)
497
- */
498
- SUBROUTINE UZRQID(
499
- CHARACTER*(*) CP
500
- INTEGER o IDX
501
- )
502
-
503
- /*
504
- * ENTRY UZRQCP(IDX, CP)
505
- * CHARACTER CP*(*)
506
- */
507
- SUBROUTINE UZRQCP(
508
- INTEGER IDX
509
- CHARACTER*(*) o CP
510
- )
511
-
512
- /*
513
- * ENTRY UZRQCL(IDX, CP)
514
- * CHARACTER CP*(*)
515
- */
516
- SUBROUTINE UZRQCL(
517
- INTEGER IDX
518
- CHARACTER*(*) o CP
519
- )
520
-
521
- /*
522
- * ENTRY UZRQVL(IDX, RPARA)
523
- */
524
- SUBROUTINE UZRQVL(
525
- INTEGER IDX
526
- REAL o RPARA
527
- )
528
-
529
- /*
530
- * ENTRY UZRSVL(IDX, RPARA)
531
- */
532
- SUBROUTINE UZRSVL(
533
- INTEGER IDX
534
- REAL RPARA
535
- )
536
-
537
- /*
538
- * ENTRY UZRQIN(CP, IN)
539
- * CHARACTER CP*(*)
540
- */
541
- SUBROUTINE UZRQIN(
542
- CHARACTER*(*) CP
543
- INTEGER o IN
544
- )
545
-
546
- /*
547
- * ENTRY UZRSAV(IU)
548
- */
549
- SUBROUTINE UZRSAV(
550
- INTEGER IU
551
- )
552
-
553
- /*
554
- * ENTRY UZRRST(IU)
555
- */
556
- SUBROUTINE UZRRST(
557
- INTEGER IU
558
- )
559
-
560
- /*****************************************************
561
- * grph2/uzpack/uzpsav.f
562
- ****************************************************/
563
- /*
564
- * SUBROUTINE UZPSAV
565
- */
566
- SUBROUTINE UZPSAV(
567
- )
568
-
569
- /*
570
- * ENTRY UZPRST
571
- */
572
- SUBROUTINE UZPRST(
573
- )
574
-
data/GenWrapper/proto/math1_00 DELETED
@@ -1,12 +0,0 @@
1
- /*
2
- * math1_00
3
- * log to split math1.f77proto into math1_xxxlib.fp
4
- *
5
- * $Id: math1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * math1.f77proto
10
- * #Id: math1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
11
- */
12
-
data/GenWrapper/proto/math1_blklib.fp DELETED
@@ -1,58 +0,0 @@
1
- /*
2
- * math1_blklib.fp
3
- *
4
- * $Id: math1_blklib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/blklib/iblklt.f
9
- ****************************************************/
10
- /*
11
- * INTEGER FUNCTION IBLKLT(RX,N,RR)
12
- * REAL RX(*)
13
- */
14
- INTEGER FUNCTION IBLKLT(
15
- REAL (N) RX
16
- INTEGER N
17
- REAL RR
18
- )
19
-
20
- /*****************************************************
21
- * math1/blklib/iblkle.f
22
- ****************************************************/
23
- /*
24
- * INTEGER FUNCTION IBLKLE(RX,N,RR)
25
- * REAL RX(*)
26
- */
27
- INTEGER FUNCTION IBLKLE(
28
- REAL (N) RX
29
- INTEGER N
30
- REAL RR
31
- )
32
-
33
- /*****************************************************
34
- * math1/blklib/iblkgt.f
35
- ****************************************************/
36
- /*
37
- * INTEGER FUNCTION IBLKGT(RX,N,RR)
38
- * REAL RX(*)
39
- */
40
- INTEGER FUNCTION IBLKGT(
41
- REAL (N) RX
42
- INTEGER N
43
- REAL RR
44
- )
45
-
46
- /*****************************************************
47
- * math1/blklib/iblkge.f
48
- ****************************************************/
49
- /*
50
- * INTEGER FUNCTION IBLKGE(RX,N,RR)
51
- * REAL RX(*)
52
- */
53
- INTEGER FUNCTION IBLKGE(
54
- REAL (N) RX
55
- INTEGER N
56
- REAL RR
57
- )
58
-
data/GenWrapper/proto/math1_chrlib.fp DELETED
@@ -1,83 +0,0 @@
1
- /*
2
- * math1_chrlib.fp
3
- *
4
- * $Id: math1_chrlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/chrlib/cladj.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE CLADJ(CHR)
12
- * CHARACTER CHR*(*)
13
- */
14
- SUBROUTINE CLADJ(
15
- CHARACTER*(*) io CHR
16
- )
17
-
18
- /*****************************************************
19
- * math1/chrlib/lenb.f
20
- ****************************************************/
21
- /*
22
- * INTEGER FUNCTION LENB(C)
23
- * CHARACTER C*(*)
24
- */
25
- INTEGER FUNCTION LENB(
26
- CHARACTER*(*) C
27
- )
28
-
29
- /*****************************************************
30
- * math1/chrlib/lenc.f
31
- ****************************************************/
32
- /*
33
- * INTEGER FUNCTION LENC(C)
34
- * CHARACTER C*(*)
35
- */
36
- INTEGER FUNCTION LENC(
37
- CHARACTER*(*) C
38
- )
39
-
40
- /*****************************************************
41
- * math1/chrlib/leny.f
42
- ****************************************************/
43
- /*
44
- * INTEGER FUNCTION LENY(C)
45
- * CHARACTER C*(*)
46
- */
47
- INTEGER FUNCTION LENY(
48
- CHARACTER*(*) C
49
- )
50
-
51
- /*****************************************************
52
- * math1/chrlib/lenz.f
53
- ****************************************************/
54
- /*
55
- * INTEGER FUNCTION LENZ(C)
56
- * CHARACTER C*(*)
57
- */
58
- INTEGER FUNCTION LENZ(
59
- CHARACTER*(*) C
60
- )
61
-
62
- /*****************************************************
63
- * math1/chrlib/cradj.f
64
- ****************************************************/
65
- /*
66
- * SUBROUTINE CRADJ(CHR)
67
- * CHARACTER CHR*(*)
68
- */
69
- SUBROUTINE CRADJ(
70
- CHARACTER*(*) io CHR
71
- )
72
-
73
- /*****************************************************
74
- * math1/chrlib/crvrs.f
75
- ****************************************************/
76
- /*
77
- * SUBROUTINE CRVRS(CHR)
78
- * CHARACTER CHR*(*)
79
- */
80
- SUBROUTINE CRVRS(
81
- CHARACTER*(*) io CHR
82
- )
83
-