ruby-dcl 1.7.1 → 1.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (307) hide show
  1. checksums.yaml +4 -4
  2. data/{ChangeLog → .ChangeLog.until20150318} +0 -0
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -1
  6. data/demo/gokuraku/jump/jump1.rb +1 -1
  7. data/demo/gokuraku/jump/jump2.rb +1 -1
  8. data/demo/gokuraku/layout/lay1.rb +1 -1
  9. data/demo/gokuraku/layout/lay2.rb +1 -1
  10. data/demo/gokuraku/step/step0.rb +1 -1
  11. data/demo/gokuraku/step/step1.rb +1 -1
  12. data/demo/gokuraku/step/step2.rb +1 -1
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -1
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -1
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -1
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -1
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -1
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -1
  19. data/demo/grph1/scpack/scpkt2.rb +1 -1
  20. data/demo/grph1/scpack/scpkt3.rb +1 -1
  21. data/demo/grph1/scpack/scpkt6.rb +1 -1
  22. data/demo/grph1/scpack/scpkt7.rb +1 -1
  23. data/demo/grph1/scpack/scpkt8.rb +1 -1
  24. data/demo/grph1/sgpack/sgfont.rb +1 -1
  25. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -1
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -1
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -1
  29. data/demo/grph1/sgpack/sglidx.rb +1 -1
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -1
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -1
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -1
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -1
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -1
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -1
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -1
  37. data/demo/grph1/sgpack/sgpk07.rb +1 -1
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -1
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -1
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -1
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -1
  42. data/demo/grph1/sgpack/sgtone.rb +1 -1
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -1
  44. data/demo/grph1/slpack/slpk01.rb +1 -1
  45. data/demo/grph1/slpack/slpk02.rb +1 -1
  46. data/demo/grph1/slpack/slpk03.rb +1 -1
  47. data/demo/grph1/slpack/slpk04.rb +1 -1
  48. data/demo/grph2/grpack/grpk01.rb +1 -1
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -1
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -1
  51. data/demo/grph2/udegpk/u2df01.rb +1 -1
  52. data/demo/grph2/udegpk/u2df02.rb +1 -1
  53. data/demo/grph2/udegpk/u2df03.rb +1 -1
  54. data/demo/grph2/udegpk/u2df04.rb +1 -1
  55. data/demo/grph2/udegpk/u2df05.rb +1 -1
  56. data/demo/grph2/udegpk/u2df06.rb +1 -1
  57. data/demo/grph2/udegpk/u2df07.rb +1 -1
  58. data/demo/grph2/udegpk/u2df08.rb +1 -1
  59. data/demo/grph2/uipack/uipk01.rb +1 -1
  60. data/demo/grph2/uipack/uipk02.rb +1 -1
  61. data/demo/grph2/ulpack/ulpk01.rb +1 -1
  62. data/demo/grph2/ulpack/ulpk01n.rb +1 -1
  63. data/demo/grph2/ulpack/ulpk02.rb +1 -1
  64. data/demo/grph2/ulpack/ulpk02n.rb +1 -1
  65. data/demo/grph2/umpack/test01.rb +1 -1
  66. data/demo/grph2/umpack/test02.rb +1 -1
  67. data/demo/grph2/umpack/test03.rb +1 -1
  68. data/demo/grph2/umpack/test04.rb +1 -1
  69. data/demo/grph2/umpack/test05.rb +1 -1
  70. data/demo/grph2/umpack/test06.rb +1 -1
  71. data/demo/grph2/umpack/test07.rb +1 -1
  72. data/demo/grph2/umpack/test08.rb +1 -1
  73. data/demo/grph2/umpack/umpk01.rb +1 -1
  74. data/demo/grph2/umpack/umpk02.rb +1 -1
  75. data/demo/grph2/umpack/umpk03.rb +1 -1
  76. data/demo/grph2/umpack/umpk04.rb +1 -1
  77. data/demo/grph2/umpack/umpk05.rb +1 -1
  78. data/demo/grph2/uspack/uspk01.rb +1 -1
  79. data/demo/grph2/uspack/uspk02.rb +1 -1
  80. data/demo/grph2/uspack/uspk03.rb +1 -1
  81. data/demo/grph2/uspack/uspk04.rb +1 -1
  82. data/demo/grph2/uspack/uspk05.rb +1 -1
  83. data/demo/grph2/uspack/uspk06.rb +1 -1
  84. data/demo/grph2/uspack/uspk07.rb +1 -1
  85. data/demo/grph2/uspack/uspk08.rb +1 -1
  86. data/demo/grph2/uspack/uspk09.rb +1 -1
  87. data/demo/grph2/uspack/uspk10.rb +1 -1
  88. data/demo/grph2/uspack/uspk11.rb +1 -1
  89. data/demo/grph2/uspack/uspk12.rb +1 -1
  90. data/demo/grph2/uupack/uupk01.rb +1 -1
  91. data/demo/grph2/uupack/uupk02.rb +1 -1
  92. data/demo/grph2/uupack/uupk03.rb +1 -1
  93. data/demo/grph2/uupack/uupk04.rb +1 -1
  94. data/demo/grph2/uupack/uupk05.rb +1 -1
  95. data/demo/grph2/uupack/uupk06.rb +1 -1
  96. data/demo/grph2/uupack/uupk07.rb +1 -1
  97. data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
  98. data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
  99. data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
  100. data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
  101. data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
  102. data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
  103. data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
  104. data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
  105. data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
  106. data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
  107. data/demo/grph2/ximage/ximg01.rb +1 -1
  108. data/demo/math1/clsplib/cslb01.rb +1 -1
  109. data/demo/math2/fftlib/fftl01.rb +1 -1
  110. data/demo/math2/fftlib/fftl02.rb +1 -1
  111. data/demo/math2/intrlib/intr01.rb +1 -1
  112. data/demo/math2/rnmlib/rnml01.rb +1 -1
  113. data/demo/math2/vstlib/vstl01.rb +1 -1
  114. data/demo/math2/vstlib/vstl02.rb +1 -1
  115. data/demo/rakuraku/color/color1.rb +1 -1
  116. data/demo/rakuraku/color/color2.rb +1 -1
  117. data/demo/rakuraku/color/color3.rb +1 -1
  118. data/demo/rakuraku/kihon/kihon1.rb +1 -1
  119. data/demo/rakuraku/kihon/kihon2.rb +1 -1
  120. data/demo/rakuraku/kihon/kihon3.rb +1 -1
  121. data/demo/rakuraku/kihon/kihon4.rb +1 -1
  122. data/demo/rakuraku/kihon/kihon5.rb +1 -1
  123. data/demo/rakuraku/kihon/kihon6.rb +1 -1
  124. data/demo/rakuraku/kihon/kihon7.rb +1 -1
  125. data/demo/rakuraku/kihon/kihon8.rb +1 -1
  126. data/demo/rakuraku/kihon/kihon9.rb +1 -1
  127. data/demo/rakuraku/kihon/kihona.rb +1 -1
  128. data/demo/rakuraku/kihon/kihonb.rb +1 -1
  129. data/demo/rakuraku/kihon/kihonc.rb +1 -1
  130. data/demo/rakuraku/layout/lay1.rb +1 -1
  131. data/demo/rakuraku/layout/lay2.rb +1 -1
  132. data/demo/rakuraku/layout/lay3.rb +1 -1
  133. data/demo/rakuraku/map3d/map3d1.rb +1 -1
  134. data/demo/rakuraku/map3d/map3d2.rb +1 -1
  135. data/demo/rakuraku/map3d/map3d3.rb +1 -1
  136. data/demo/rakuraku/map3d/map3d4.rb +1 -1
  137. data/demo/rakuraku/map3d/map3d5.rb +1 -1
  138. data/demo/rakuraku/miss/miss1.rb +1 -1
  139. data/demo/rakuraku/miss/miss2.rb +1 -1
  140. data/demo/rakuraku/quick/quick1.rb +1 -1
  141. data/demo/rakuraku/quick/quick2.rb +1 -1
  142. data/demo/rakuraku/quick/quick3.rb +1 -1
  143. data/demo/rakuraku/quick/quick4.rb +1 -1
  144. data/demo/rakuraku/quick/quick5.rb +1 -1
  145. data/demo/rakuraku/u2d/u2d1.rb +1 -1
  146. data/demo/rakuraku/u2d/u2d2.rb +1 -1
  147. data/demo/rakuraku/u2d/u2d3.rb +1 -1
  148. data/demo/rakuraku/u2d/u2d4.rb +1 -1
  149. data/demo/rakuraku/u2d/u2d5.rb +1 -1
  150. data/demo/rakuraku/u2d/u2d6.rb +1 -1
  151. data/demo/rakuraku/u2d/u2d7.rb +1 -1
  152. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  153. data/demo/rakuraku/uspack/uspac2.rb +1 -1
  154. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  155. data/demo/rakuraku/uspack/uspac4.rb +1 -1
  156. data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
  157. data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
  158. data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
  159. data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
  160. data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
  161. data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
  162. data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
  163. data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
  164. data/ext/numru/dcl_cary2obj.c +28 -23
  165. data/ext/numru/dcl_obj2cary.c +8 -4
  166. data/ext/numru/dcl_rubydcloriginal.c +14 -4
  167. data/ext/numru/extconf.rb +9 -51
  168. data/ext/numru/grph1_csgi.c +9 -5
  169. data/ext/numru/grph1_scpack.c +9 -5
  170. data/ext/numru/grph1_sgpack.c +9 -5
  171. data/ext/numru/grph1_slpack.c +9 -5
  172. data/ext/numru/grph1_stpack.c +9 -5
  173. data/ext/numru/grph1_swpack.c +69 -5
  174. data/ext/numru/grph2_grpack.c +9 -5
  175. data/ext/numru/grph2_ucpack.c +9 -5
  176. data/ext/numru/grph2_udpack.c +9 -5
  177. data/ext/numru/grph2_uepack.c +9 -5
  178. data/ext/numru/grph2_ugpack.c +9 -5
  179. data/ext/numru/grph2_uhpack.c +9 -5
  180. data/ext/numru/grph2_uipack.c +9 -5
  181. data/ext/numru/grph2_ulpack.c +9 -5
  182. data/ext/numru/grph2_umpack.c +9 -5
  183. data/ext/numru/grph2_uspack.c +9 -5
  184. data/ext/numru/grph2_uupack.c +9 -5
  185. data/ext/numru/grph2_uvpack.c +9 -5
  186. data/ext/numru/grph2_uwpack.c +9 -5
  187. data/ext/numru/grph2_uxpack.c +9 -5
  188. data/ext/numru/grph2_uypack.c +9 -5
  189. data/ext/numru/grph2_uzpack.c +9 -5
  190. data/ext/numru/init.c +202 -0
  191. data/ext/numru/init.c.default +7 -0
  192. data/ext/numru/math1_blklib.c +9 -5
  193. data/ext/numru/math1_chrlib.c +9 -5
  194. data/ext/numru/math1_clsplib.c +9 -5
  195. data/ext/numru/math1_fnclib.c +9 -5
  196. data/ext/numru/math1_gnmlib.c +9 -5
  197. data/ext/numru/math1_gt2dlib.c +9 -5
  198. data/ext/numru/math1_ifalib.c +9 -5
  199. data/ext/numru/math1_indxlib.c +9 -5
  200. data/ext/numru/math1_intlib.c +9 -5
  201. data/ext/numru/math1_lrllib.c +9 -5
  202. data/ext/numru/math1_maplib.c +9 -5
  203. data/ext/numru/math1_oslib.c +9 -5
  204. data/ext/numru/math1_rfalib.c +9 -5
  205. data/ext/numru/math1_rfblib.c +9 -5
  206. data/ext/numru/math1_sublib.c +9 -5
  207. data/ext/numru/math1_syslib.c +9 -5
  208. data/ext/numru/math1_vialib.c +9 -5
  209. data/ext/numru/math1_viblib.c +9 -5
  210. data/ext/numru/math1_vralib.c +9 -5
  211. data/ext/numru/math1_vrblib.c +9 -5
  212. data/ext/numru/math1_xfclib.c +9 -5
  213. data/ext/numru/math2_fftlib.c +9 -5
  214. data/ext/numru/math2_intrlib.c +9 -5
  215. data/ext/numru/math2_rnmlib.c +9 -5
  216. data/ext/numru/math2_shtlib.c +9 -5
  217. data/ext/numru/math2_vstlib.c +9 -5
  218. data/ext/numru/misc1_chnlib.c +9 -5
  219. data/ext/numru/misc1_datelib.c +9 -5
  220. data/ext/numru/misc1_fmtlib.c +9 -5
  221. data/ext/numru/misc1_misclib.c +9 -5
  222. data/ext/numru/misc1_randlib.c +9 -5
  223. data/ext/numru/misc1_timelib.c +9 -5
  224. data/lib/numru/dcl.rb +6 -5580
  225. data/lib/numru/dcl/dcl.rb +5591 -0
  226. data/lib/numru/dcl/version.rb +5 -0
  227. data/ruby-dcl-bigmem.gemspec +36 -0
  228. data/ruby-dcl.gemspec +10 -9
  229. metadata +17 -93
  230. data/.gitignore +0 -13
  231. data/.rspec +0 -2
  232. data/.travis.yml +0 -3
  233. data/GenWrapper/cproto2init.rb +0 -41
  234. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  235. data/GenWrapper/dcl_rb_footing +0 -29
  236. data/GenWrapper/dcl_rb_heading +0 -123
  237. data/GenWrapper/def.rb +0 -20
  238. data/GenWrapper/elim_ary_size.rb +0 -398
  239. data/GenWrapper/etc/p_header +0 -64
  240. data/GenWrapper/pparse.rb +0 -137
  241. data/GenWrapper/proto/grph1_00 +0 -17
  242. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  243. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  244. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  245. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  246. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  247. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  248. data/GenWrapper/proto/grph2_00 +0 -16
  249. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  250. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  251. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  252. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  253. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  254. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  255. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  256. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  257. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  258. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  259. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  260. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  261. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  262. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  263. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  264. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  265. data/GenWrapper/proto/math1_00 +0 -12
  266. data/GenWrapper/proto/math1_blklib.fp +0 -58
  267. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  268. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  269. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  270. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  271. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  272. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  273. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  274. data/GenWrapper/proto/math1_intlib.fp +0 -46
  275. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  276. data/GenWrapper/proto/math1_maplib.fp +0 -24
  277. data/GenWrapper/proto/math1_oslib.fp +0 -28
  278. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  279. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  280. data/GenWrapper/proto/math1_sublib.fp +0 -60
  281. data/GenWrapper/proto/math1_syslib.fp +0 -767
  282. data/GenWrapper/proto/math1_vialib.fp +0 -339
  283. data/GenWrapper/proto/math1_viblib.fp +0 -264
  284. data/GenWrapper/proto/math1_vralib.fp +0 -339
  285. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  286. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  287. data/GenWrapper/proto/math2_00 +0 -12
  288. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  289. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  290. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  291. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  292. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  293. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  294. data/GenWrapper/proto/misc1_00 +0 -17
  295. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  296. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  297. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  298. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  299. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  300. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  301. data/GenWrapper/proto2c.rb +0 -13
  302. data/GenWrapper/prototype.rb +0 -209
  303. data/GenWrapper/util.rb +0 -9
  304. data/GenWrapper/variable.rb +0 -671
  305. data/ToDo +0 -2
  306. data/bin/console +0 -14
  307. data/bin/setup +0 -7
data/GenWrapper/proto/grph2_uvpack.fp DELETED
@@ -1,246 +0,0 @@
1
- /*
2
- * grph2_uvpack.fp
3
- *
4
- * $Id: grph2_uvpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uvpack/uverb.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UVERB(N,UPX,UPY1,UPY2)
12
- * REAL UPX(*),UPY1(*),UPY2(*)
13
- */
14
- SUBROUTINE UVERB(
15
- INTEGER N
16
- REAL (N) UPX
17
- REAL (N) UPY1
18
- REAL (N) UPY2
19
- )
20
-
21
- /*****************************************************
22
- * grph2/uvpack/uverbz.f
23
- ****************************************************/
24
- /*
25
- * SUBROUTINE UVERBZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
26
- * REAL UPX(*),UPY1(*),UPY2(*)
27
- */
28
- SUBROUTINE UVERBZ(
29
- INTEGER N
30
- REAL (N) UPX
31
- REAL (N) UPY1
32
- REAL (N) UPY2
33
- INTEGER ITYPE
34
- INTEGER INDEX
35
- REAL RSIZE
36
- )
37
-
38
- /*****************************************************
39
- * grph2/uvpack/uvdif.f
40
- ****************************************************/
41
- /*
42
- * SUBROUTINE UVDIF(N,UPX,UPY1,UPY2)
43
- * REAL UPX(*),UPY1(*),UPY2(*)
44
- */
45
- SUBROUTINE UVDIF(
46
- INTEGER N
47
- REAL (N) UPX
48
- REAL (N) UPY1
49
- REAL (N) UPY2
50
- )
51
-
52
- /*****************************************************
53
- * grph2/uvpack/uvdifz.f
54
- ****************************************************/
55
- /*
56
- * SUBROUTINE UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
57
- * REAL UPX(*),UPY1(*),UPY2(*)
58
- */
59
- SUBROUTINE UVDIFZ(
60
- INTEGER N
61
- REAL (N) UPX
62
- REAL (N) UPY1
63
- REAL (N) UPY2
64
- INTEGER ITPAT1
65
- INTEGER ITPAT2
66
- )
67
-
68
- /*****************************************************
69
- * grph2/uvpack/uvbrf.f
70
- ****************************************************/
71
- /*
72
- * SUBROUTINE UVBRF(N,UPX,UPY1,UPY2)
73
- * REAL UPX(*),UPY1(*),UPY2(*)
74
- */
75
- SUBROUTINE UVBRF(
76
- INTEGER N
77
- REAL (N) UPX
78
- REAL (N) UPY1
79
- REAL (N) UPY2
80
- )
81
-
82
- /*****************************************************
83
- * grph2/uvpack/uvbrfz.f
84
- ****************************************************/
85
- /*
86
- * SUBROUTINE UVBRFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
87
- * REAL UPX(*),UPY1(*),UPY2(*)
88
- */
89
- SUBROUTINE UVBRFZ(
90
- INTEGER N
91
- REAL (N) UPX
92
- REAL (N) UPY1
93
- REAL (N) UPY2
94
- INTEGER ITYPE
95
- INTEGER INDEX
96
- REAL RSIZE
97
- )
98
-
99
- /*****************************************************
100
- * grph2/uvpack/uvbra.f
101
- ****************************************************/
102
- /*
103
- * SUBROUTINE UVBRA(N,UPX,UPY1,UPY2)
104
- * REAL UPX(*),UPY1(*),UPY2(*)
105
- */
106
- SUBROUTINE UVBRA(
107
- INTEGER N
108
- REAL (N) UPX
109
- REAL (N) UPY1
110
- REAL (N) UPY2
111
- )
112
-
113
- /*****************************************************
114
- * grph2/uvpack/uvbraz.f
115
- ****************************************************/
116
- /*
117
- * SUBROUTINE UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE)
118
- * REAL UPX(*),UPY1(*),UPY2(*)
119
- */
120
- SUBROUTINE UVBRAZ(
121
- INTEGER N
122
- REAL (N) UPX
123
- REAL (N) UPY1
124
- REAL (N) UPY2
125
- INTEGER ITPAT1
126
- INTEGER ITPAT2
127
- REAL RSIZE
128
- )
129
-
130
- /*****************************************************
131
- * grph2/uvpack/uvbrl.f
132
- ****************************************************/
133
- /*
134
- * SUBROUTINE UVBRL(N,UPX,UPY)
135
- * REAL UPX(*),UPY(*)
136
- */
137
- SUBROUTINE UVBRL(
138
- INTEGER N
139
- REAL (N) UPX
140
- REAL (N) UPY
141
- )
142
-
143
- /*****************************************************
144
- * grph2/uvpack/uvbrlz.f
145
- ****************************************************/
146
- /*
147
- * SUBROUTINE UVBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
148
- * REAL UPX(*),UPY(*)
149
- */
150
- SUBROUTINE UVBRLZ(
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/uvpack/uvbxf.f
161
- ****************************************************/
162
- /*
163
- * SUBROUTINE UVBXF(N,UPX,UPY1,UPY2)
164
- * REAL UPX(*),UPY1(*),UPY2(*)
165
- */
166
- SUBROUTINE UVBXF(
167
- INTEGER N
168
- REAL (N+1) UPX
169
- REAL (N) UPY1
170
- REAL (N) UPY2
171
- )
172
-
173
- /*****************************************************
174
- * grph2/uvpack/uvbxfz.f
175
- ****************************************************/
176
- /*
177
- * SUBROUTINE UVBXFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX)
178
- * REAL UPX(*),UPY1(*),UPY2(*)
179
- */
180
- SUBROUTINE UVBXFZ(
181
- INTEGER N
182
- REAL (N+1) UPX
183
- REAL (N) UPY1
184
- REAL (N) UPY2
185
- INTEGER ITYPE
186
- INTEGER INDEX
187
- )
188
-
189
- /*****************************************************
190
- * grph2/uvpack/uvbxa.f
191
- ****************************************************/
192
- /*
193
- * SUBROUTINE UVBXA(N,UPX,UPY1,UPY2)
194
- * REAL UPX(*),UPY1(*),UPY2(*)
195
- */
196
- SUBROUTINE UVBXA(
197
- INTEGER N
198
- REAL (N+1) UPX
199
- REAL (N) UPY1
200
- REAL (N) UPY2
201
- )
202
-
203
- /*****************************************************
204
- * grph2/uvpack/uvbxaz.f
205
- ****************************************************/
206
- /*
207
- * SUBROUTINE UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
208
- * REAL UPX(*),UPY1(*),UPY2(*)
209
- */
210
- SUBROUTINE UVBXAZ(
211
- INTEGER N
212
- REAL (N+1) UPX
213
- REAL (N) UPY1
214
- REAL (N) UPY2
215
- INTEGER ITPAT1
216
- INTEGER ITPAT2
217
- )
218
-
219
- /*****************************************************
220
- * grph2/uvpack/uvbxl.f
221
- ****************************************************/
222
- /*
223
- * SUBROUTINE UVBXL(N,UPX,UPY)
224
- * REAL UPX(*),UPY(*)
225
- */
226
- SUBROUTINE UVBXL(
227
- INTEGER N
228
- REAL (N+1) UPX
229
- REAL (N) UPY
230
- )
231
-
232
- /*****************************************************
233
- * grph2/uvpack/uvbxlz.f
234
- ****************************************************/
235
- /*
236
- * SUBROUTINE UVBXLZ(N,UPX,UPY,ITYPE,INDEX)
237
- * REAL UPX(*),UPY(*)
238
- */
239
- SUBROUTINE UVBXLZ(
240
- INTEGER N
241
- REAL (N+1) UPX
242
- REAL (N) UPY
243
- INTEGER ITYPE
244
- INTEGER INDEX
245
- )
246
-
data/GenWrapper/proto/grph2_uwpack.fp DELETED
@@ -1,203 +0,0 @@
1
- /*
2
- * grph2_uwpack.fp
3
- *
4
- * $Id: grph2_uwpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uwpack/uwsgxa.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UWSGXA(XP,NX)
12
- * REAL XP(*)
13
- */
14
- SUBROUTINE UWSGXA(
15
- REAL (NX) XP
16
- INTEGER NX
17
- )
18
-
19
- /*
20
- * ENTRY UWQGXA(XP,NX)
21
- * REAL XP(*)
22
- */
23
- SUBROUTINE UWQGXA(
24
- REAL (NX) o XP
25
- INTEGER o NX
26
- )
27
-
28
- /*
29
- * ENTRY UWSGXB(UXMIN,UXMAX,NX)
30
- */
31
- SUBROUTINE UWSGXB(
32
- REAL UXMIN
33
- REAL UXMAX
34
- INTEGER NX
35
- )
36
-
37
- /*
38
- * ENTRY UWQGXB(UXMIN,UXMAX,NX)
39
- */
40
- SUBROUTINE UWQGXB(
41
- REAL o UXMIN
42
- REAL o UXMAX
43
- INTEGER o NX
44
- )
45
-
46
- /*
47
- * ENTRY UWSGXZ(LSETX)
48
- * LOGICAL LSETX
49
- */
50
- SUBROUTINE UWSGXZ(
51
- LOGICAL LSETX
52
- )
53
-
54
- /*
55
- * ENTRY UWQGXZ(LSETX)
56
- * LOGICAL LSETX
57
- */
58
- SUBROUTINE UWQGXZ(
59
- LOGICAL o LSETX
60
- )
61
-
62
- /*****************************************************
63
- * grph2/uwpack/uwsgya.f
64
- ****************************************************/
65
- /*
66
- * SUBROUTINE UWSGYA(YP,NY)
67
- * REAL YP(*)
68
- */
69
- SUBROUTINE UWSGYA(
70
- REAL (NY) YP
71
- INTEGER NY
72
- )
73
-
74
- /*
75
- * ENTRY UWQGYA(YP,NY)
76
- * REAL YP(*)
77
- */
78
- SUBROUTINE UWQGYA(
79
- REAL (NY) o YP
80
- INTEGER o NY
81
- )
82
-
83
- /*
84
- * ENTRY UWSGYB(UYMIN,UYMAX,NY)
85
- */
86
- SUBROUTINE UWSGYB(
87
- REAL UYMIN
88
- REAL UYMAX
89
- INTEGER NY
90
- )
91
-
92
- /*
93
- * ENTRY UWQGYB(UYMIN,UYMAX,NY)
94
- */
95
- SUBROUTINE UWQGYB(
96
- REAL o UYMIN
97
- REAL o UYMAX
98
- INTEGER o NY
99
- )
100
-
101
- /*
102
- * ENTRY UWSGYZ(LSETY)
103
- * LOGICAL LSETY
104
- */
105
- SUBROUTINE UWSGYZ(
106
- LOGICAL LSETY
107
- )
108
-
109
- /*
110
- * ENTRY UWQGYZ(LSETY)
111
- * LOGICAL LSETY
112
- */
113
- SUBROUTINE UWQGYZ(
114
- LOGICAL o LSETY
115
- )
116
-
117
- /*****************************************************
118
- * grph2/uwpack/uwqgxi.f
119
- ****************************************************/
120
- /*
121
- * SUBROUTINE UWQGXI(UX,IUX,FRAC)
122
- */
123
- SUBROUTINE UWQGXI(
124
- REAL UX
125
- INTEGER o IUX
126
- REAL o FRAC
127
- )
128
-
129
- /*
130
- * ENTRY UWIGXI
131
- */
132
- SUBROUTINE UWIGXI(
133
- )
134
-
135
- /*****************************************************
136
- * grph2/uwpack/uwqgyi.f
137
- ****************************************************/
138
- /*
139
- * SUBROUTINE UWQGYI(UY,IUY,FRAC)
140
- */
141
- SUBROUTINE UWQGYI(
142
- REAL UY
143
- INTEGER o IUY
144
- REAL o FRAC
145
- )
146
-
147
- /*
148
- * ENTRY UWIGYI
149
- */
150
- SUBROUTINE UWIGYI(
151
- )
152
-
153
- /*****************************************************
154
- * grph2/uwpack/ruwgx.f
155
- ****************************************************/
156
- /*
157
- * REAL FUNCTION RUWGX(IX)
158
- */
159
- REAL FUNCTION RUWGX(
160
- INTEGER IX
161
- )
162
-
163
- /*****************************************************
164
- * grph2/uwpack/ruwgy.f
165
- ****************************************************/
166
- /*
167
- * REAL FUNCTION RUWGY(IY)
168
- */
169
- REAL FUNCTION RUWGY(
170
- INTEGER IY
171
- )
172
-
173
- /*****************************************************
174
- * grph2/uwpack/iuwgx.f
175
- ****************************************************/
176
- /*
177
- * INTEGER FUNCTION IUWGX(UX)
178
- */
179
- INTEGER FUNCTION IUWGX(
180
- REAL UX
181
- )
182
-
183
- /*****************************************************
184
- * grph2/uwpack/iuwgy.f
185
- ****************************************************/
186
- /*
187
- * INTEGER FUNCTION IUWGY(UY)
188
- */
189
- INTEGER FUNCTION IUWGY(
190
- REAL UY
191
- )
192
-
193
- /*****************************************************
194
- * grph2/uwpack/uwdflt.f
195
- ****************************************************/
196
- /*
197
- * SUBROUTINE UWDFLT(NX,NY)
198
- */
199
- SUBROUTINE UWDFLT(
200
- INTEGER NX
201
- INTEGER NY
202
- )
203
-
data/GenWrapper/proto/grph2_uxpack.fp DELETED
@@ -1,295 +0,0 @@
1
- /*
2
- * grph2_uxpack.fp
3
- *
4
- * $Id: grph2_uxpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uxpack/uxptmz.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UXPTMZ(UX,N,UPY,ROFFX,RTICK,INDEX)
12
- * REAL UX(*)
13
- */
14
- /*
15
- SUBROUTINE UXPTMZ(
16
- REAL (N) UX
17
- INTEGER N
18
- REAL UPY
19
- REAL ROFFX
20
- REAL RTICK
21
- INTEGER INDEX
22
- )
23
- */
24
-
25
- /*****************************************************
26
- * grph2/uxpack/uxplba.f
27
- ****************************************************/
28
- /*
29
- * SUBROUTINE UXPLBA(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX)
30
- * REAL UX(*)
31
- * CHARACTER CH(*)*(*)
32
- */
33
- /*
34
- SUBROUTINE UXPLBA(
35
- REAL (N) UX
36
- CHARACTER*(*) (N) CH
37
- INTEGER NC
38
- INTEGER N
39
- REAL UPY
40
- REAL ROFFX
41
- REAL RSIZE
42
- INTEGER IROTA
43
- INTEGER ICENT
44
- INTEGER INDEX
45
- )
46
- */
47
-
48
- /*****************************************************
49
- * grph2/uxpack/uxplbb.f
50
- ****************************************************/
51
- /*
52
- * SUBROUTINE UXPLBB(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX,
53
- * + RBTWN,LBOUND,LBMSG)
54
- * REAL UX(*)
55
- * CHARACTER CH(*)*(*)
56
- * LOGICAL LBOUND,LBMSG
57
- */
58
- /*
59
- SUBROUTINE UXPLBB(
60
- REAL (N) UX
61
- CHARACTER*(*) (N) CH
62
- INTEGER NC
63
- INTEGER N
64
- REAL UPY
65
- REAL ROFFX
66
- REAL RSIZE
67
- INTEGER IROTA
68
- INTEGER ICENT
69
- INTEGER INDEX
70
- REAL RBTWN
71
- LOGICAL LBOUND
72
- LOGICAL LBMSG
73
- )
74
- */
75
-
76
- /*****************************************************
77
- * grph2/uxpack/uxsaxz.f
78
- ****************************************************/
79
- /*
80
- * SUBROUTINE UXSAXZ(CSIDE,ROFFX)
81
- * CHARACTER CSIDE*1
82
- */
83
- SUBROUTINE UXSAXZ(
84
- CHARACTER*1 CSIDE
85
- REAL ROFFX
86
- )
87
-
88
- /*****************************************************
89
- * grph2/uxpack/uxsaxs.f
90
- ****************************************************/
91
- /*
92
- * SUBROUTINE UXSAXS(CSIDE)
93
- * CHARACTER CSIDE*1
94
- */
95
- SUBROUTINE UXSAXS(
96
- CHARACTER*1 CSIDE
97
- )
98
-
99
- /*****************************************************
100
- * grph2/uxpack/uxsoff.f
101
- ****************************************************/
102
- /*
103
- * SUBROUTINE UXSOFF
104
- */
105
- /*
106
- SUBROUTINE UXSOFF(
107
- )
108
- */
109
-
110
- /*
111
- * ENTRY UXROFF
112
- */
113
- /*
114
- SUBROUTINE UXROFF(
115
- )
116
- */
117
-
118
- /*****************************************************
119
- * grph2/uxpack/uxpaxs.f
120
- ****************************************************/
121
- /*
122
- * SUBROUTINE UXPAXS(CSIDE,ISLCT)
123
- * CHARACTER CSIDE*1
124
- */
125
- SUBROUTINE UXPAXS(
126
- CHARACTER*1 CSIDE
127
- INTEGER ISLCT
128
- )
129
-
130
- /*****************************************************
131
- * grph2/uxpack/uxptmk.f
132
- ****************************************************/
133
- /*
134
- * SUBROUTINE UXPTMK(CSIDE,ISLCT,UX,N)
135
- * CHARACTER CSIDE*1
136
- * REAL UX(*)
137
- */
138
- SUBROUTINE UXPTMK(
139
- CHARACTER*1 CSIDE
140
- INTEGER ISLCT
141
- REAL (N) UX
142
- INTEGER N
143
- )
144
-
145
- /*****************************************************
146
- * grph2/uxpack/uxplbl.f
147
- ****************************************************/
148
- /*
149
- * SUBROUTINE UXPLBL(CSIDE,ISLCT,UX,CH,NC,N)
150
- * CHARACTER CSIDE*1,CH(*)*(*)
151
- * REAL UX(*)
152
- */
153
- SUBROUTINE UXPLBL(
154
- CHARACTER*1 CSIDE
155
- INTEGER ISLCT
156
- REAL (N) UX
157
- CHARACTER*(*) (N) CH
158
- INTEGER NC
159
- INTEGER N
160
- )
161
-
162
- /*****************************************************
163
- * grph2/uxpack/uxpnum.f
164
- ****************************************************/
165
- /*
166
- * SUBROUTINE UXPNUM(CSIDE,ISLCT,UX,N)
167
- * CHARACTER CSIDE*1
168
- * REAL UX(*)
169
- */
170
- SUBROUTINE UXPNUM(
171
- CHARACTER*1 CSIDE
172
- INTEGER ISLCT
173
- REAL (N) UX
174
- INTEGER N
175
- )
176
-
177
- /*****************************************************
178
- * grph2/uxpack/uxpttl.f
179
- ****************************************************/
180
- /*
181
- * SUBROUTINE UXPTTL(CSIDE,ISLCT,CTTL,PX)
182
- * CHARACTER CSIDE*1,CTTL*(*)
183
- */
184
- SUBROUTINE UXPTTL(
185
- CHARACTER*1 CSIDE
186
- INTEGER ISLCT
187
- CHARACTER*(*) CTTL
188
- REAL PX
189
- )
190
-
191
- /*****************************************************
192
- * grph2/uxpack/uxaxlb.f
193
- ****************************************************/
194
- /*
195
- * SUBROUTINE UXAXLB(CSIDE,UX1,N1,UX2,CH,NC,N2)
196
- * CHARACTER CSIDE*1,CH(*)*(*)
197
- * REAL UX1(*),UX2(*)
198
- */
199
- SUBROUTINE UXAXLB(
200
- CHARACTER*1 CSIDE
201
- REAL (N1) UX1
202
- INTEGER N1
203
- REAL (N2) UX2
204
- CHARACTER*(*) (N2) CH
205
- INTEGER NC
206
- INTEGER N2
207
- )
208
-
209
- /*****************************************************
210
- * grph2/uxpack/uxaxnm.f
211
- ****************************************************/
212
- /*
213
- * SUBROUTINE UXAXNM(CSIDE,UX1,N1,UX2,N2)
214
- * CHARACTER CSIDE*1
215
- * REAL UX1(*),UX2(*)
216
- */
217
- SUBROUTINE UXAXNM(
218
- CHARACTER*1 CSIDE
219
- REAL (N1) UX1
220
- INTEGER N1
221
- REAL (N2) UX2
222
- INTEGER N2
223
- )
224
-
225
- /*****************************************************
226
- * grph2/uxpack/uxaxdv.f
227
- ****************************************************/
228
- /*
229
- * SUBROUTINE UXAXDV(CSIDE,DX1,DX2)
230
- * CHARACTER CSIDE*1
231
- */
232
- SUBROUTINE UXAXDV(
233
- CHARACTER*1 CSIDE
234
- REAL DX1
235
- REAL DX2
236
- )
237
-
238
- /*****************************************************
239
- * grph2/uxpack/uxmttl.f
240
- ****************************************************/
241
- /*
242
- * SUBROUTINE UXMTTL(CSIDE,CTTL,PX)
243
- * CHARACTER CSIDE*1,CTTL*(*)
244
- */
245
- SUBROUTINE UXMTTL(
246
- CHARACTER*1 CSIDE
247
- CHARACTER*(*) CTTL
248
- REAL PX
249
- )
250
-
251
- /*****************************************************
252
- * grph2/uxpack/uxsttl.f
253
- ****************************************************/
254
- /*
255
- * SUBROUTINE UXSTTL(CSIDE,CTTL,PX)
256
- * CHARACTER CSIDE*1,CTTL*(*)
257
- */
258
- SUBROUTINE UXSTTL(
259
- CHARACTER*1 CSIDE
260
- CHARACTER*(*) CTTL
261
- REAL PX
262
- )
263
-
264
- /*****************************************************
265
- * grph2/uxpack/luxchk.f
266
- ****************************************************/
267
- /*
268
- * LOGICAL FUNCTION LUXCHK(CSIDE)
269
- * CHARACTER CSIDE*(*)
270
- */
271
- /*
272
- LOGICAL FUNCTION LUXCHK(
273
- CHARACTER*(*) CSIDE
274
- )
275
- */
276
-
277
- /*****************************************************
278
- * grph2/uxpack/uxsfmt.f
279
- ****************************************************/
280
- /*
281
- * SUBROUTINE UXSFMT(CFMT)
282
- * CHARACTER CFMT*(*)
283
- */
284
- SUBROUTINE UXSFMT(
285
- CHARACTER*(*) CFMT
286
- )
287
-
288
- /*
289
- * ENTRY UXQFMT(CFMT)
290
- * CHARACTER CFMT*(*)
291
- */
292
- SUBROUTINE UXQFMT(
293
- CHARACTER*(*) o CFMT
294
- )
295
-