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_uypack.fp DELETED
@@ -1,295 +0,0 @@
1
- /*
2
- * grph2_uypack.fp
3
- *
4
- * $Id: grph2_uypack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/uypack/uyptmz.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE UYPTMZ(UY,N,UPX,ROFFY,RTICK,INDEX)
12
- * REAL UY(*)
13
- */
14
- /*
15
- SUBROUTINE UYPTMZ(
16
- REAL (N) UY
17
- INTEGER N
18
- REAL UPX
19
- REAL ROFFY
20
- REAL RTICK
21
- INTEGER INDEX
22
- )
23
- */
24
-
25
- /*****************************************************
26
- * grph2/uypack/uyplba.f
27
- ****************************************************/
28
- /*
29
- * SUBROUTINE UYPLBA(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX)
30
- * REAL UY(*)
31
- * CHARACTER CH(*)*(*)
32
- */
33
- /*
34
- SUBROUTINE UYPLBA(
35
- REAL (N) UY
36
- CHARACTER*(*) (N) CH
37
- INTEGER NC
38
- INTEGER N
39
- REAL UPX
40
- REAL ROFFY
41
- REAL RSIZE
42
- INTEGER IROTA
43
- INTEGER ICENT
44
- INTEGER INDEX
45
- )
46
- */
47
-
48
- /*****************************************************
49
- * grph2/uypack/uyplbb.f
50
- ****************************************************/
51
- /*
52
- * SUBROUTINE UYPLBB(UY,CH,NC,N,UPX,ROFFY,RSIZE,IROTA,ICENT,INDEX,
53
- * + RBTWN,LBOUND,LBMSG)
54
- * REAL UY(*)
55
- * CHARACTER CH(*)*(*)
56
- * LOGICAL LBOUND,LBMSG
57
- */
58
- /*
59
- SUBROUTINE UYPLBB(
60
- REAL (N) UY
61
- CHARACTER*(*) (N) CH
62
- INTEGER NC
63
- INTEGER N
64
- REAL UPX
65
- REAL ROFFY
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/uypack/uysaxz.f
78
- ****************************************************/
79
- /*
80
- * SUBROUTINE UYSAXZ(CSIDE,ROFFY)
81
- * CHARACTER CSIDE*1
82
- */
83
- SUBROUTINE UYSAXZ(
84
- CHARACTER*1 CSIDE
85
- REAL ROFFY
86
- )
87
-
88
- /*****************************************************
89
- * grph2/uypack/uysaxs.f
90
- ****************************************************/
91
- /*
92
- * SUBROUTINE UYSAXS(CSIDE)
93
- * CHARACTER CSIDE*1
94
- */
95
- SUBROUTINE UYSAXS(
96
- CHARACTER*1 CSIDE
97
- )
98
-
99
- /*****************************************************
100
- * grph2/uypack/uysoff.f
101
- ****************************************************/
102
- /*
103
- * SUBROUTINE UYSOFF
104
- */
105
- /*
106
- SUBROUTINE UYSOFF(
107
- )
108
- */
109
-
110
- /*
111
- * ENTRY UYROFF
112
- */
113
- /*
114
- SUBROUTINE UYROFF(
115
- )
116
- */
117
-
118
- /*****************************************************
119
- * grph2/uypack/uypaxs.f
120
- ****************************************************/
121
- /*
122
- * SUBROUTINE UYPAXS(CSIDE,ISLCT)
123
- * CHARACTER CSIDE*1
124
- */
125
- SUBROUTINE UYPAXS(
126
- CHARACTER*1 CSIDE
127
- INTEGER ISLCT
128
- )
129
-
130
- /*****************************************************
131
- * grph2/uypack/uyptmk.f
132
- ****************************************************/
133
- /*
134
- * SUBROUTINE UYPTMK(CSIDE,ISLCT,UY,N)
135
- * CHARACTER CSIDE*1
136
- * REAL UY(*)
137
- */
138
- SUBROUTINE UYPTMK(
139
- CHARACTER*1 CSIDE
140
- INTEGER ISLCT
141
- REAL (N) UY
142
- INTEGER N
143
- )
144
-
145
- /*****************************************************
146
- * grph2/uypack/uyplbl.f
147
- ****************************************************/
148
- /*
149
- * SUBROUTINE UYPLBL(CSIDE,ISLCT,UY,CH,NC,N)
150
- * CHARACTER CSIDE*1,CH(*)*(*)
151
- * REAL UY(*)
152
- */
153
- SUBROUTINE UYPLBL(
154
- CHARACTER*1 CSIDE
155
- INTEGER ISLCT
156
- REAL (N) UY
157
- CHARACTER*(*) (N) CH
158
- INTEGER NC
159
- INTEGER N
160
- )
161
-
162
- /*****************************************************
163
- * grph2/uypack/uypnum.f
164
- ****************************************************/
165
- /*
166
- * SUBROUTINE UYPNUM(CSIDE,ISLCT,UY,N)
167
- * CHARACTER CSIDE*1
168
- * REAL UY(*)
169
- */
170
- SUBROUTINE UYPNUM(
171
- CHARACTER*1 CSIDE
172
- INTEGER ISLCT
173
- REAL (N) UY
174
- INTEGER N
175
- )
176
-
177
- /*****************************************************
178
- * grph2/uypack/uypttl.f
179
- ****************************************************/
180
- /*
181
- * SUBROUTINE UYPTTL(CSIDE,ISLCT,CTTL,PX)
182
- * CHARACTER CSIDE*1,CTTL*(*)
183
- */
184
- SUBROUTINE UYPTTL(
185
- CHARACTER*1 CSIDE
186
- INTEGER ISLCT
187
- CHARACTER*(*) CTTL
188
- REAL PX
189
- )
190
-
191
- /*****************************************************
192
- * grph2/uypack/uyaxlb.f
193
- ****************************************************/
194
- /*
195
- * SUBROUTINE UYAXLB(CSIDE,UY1,N1,UY2,CH,NC,N2)
196
- * CHARACTER CSIDE*1,CH(*)*(*)
197
- * REAL UY1(*),UY2(*)
198
- */
199
- SUBROUTINE UYAXLB(
200
- CHARACTER*1 CSIDE
201
- REAL (N1) UY1
202
- INTEGER N1
203
- REAL (N2) UY2
204
- CHARACTER*(*) (N2) CH
205
- INTEGER NC
206
- INTEGER N2
207
- )
208
-
209
- /*****************************************************
210
- * grph2/uypack/uyaxnm.f
211
- ****************************************************/
212
- /*
213
- * SUBROUTINE UYAXNM(CSIDE,UY1,N1,UY2,N2)
214
- * CHARACTER CSIDE*1
215
- * REAL UY1(*),UY2(*)
216
- */
217
- SUBROUTINE UYAXNM(
218
- CHARACTER*1 CSIDE
219
- REAL (N1) UY1
220
- INTEGER N1
221
- REAL (N2) UY2
222
- INTEGER N2
223
- )
224
-
225
- /*****************************************************
226
- * grph2/uypack/uyaxdv.f
227
- ****************************************************/
228
- /*
229
- * SUBROUTINE UYAXDV(CSIDE,DY1,DY2)
230
- * CHARACTER CSIDE*1
231
- */
232
- SUBROUTINE UYAXDV(
233
- CHARACTER*1 CSIDE
234
- REAL DY1
235
- REAL DY2
236
- )
237
-
238
- /*****************************************************
239
- * grph2/uypack/uymttl.f
240
- ****************************************************/
241
- /*
242
- * SUBROUTINE UYMTTL(CSIDE,CTTL,PX)
243
- * CHARACTER CSIDE*1,CTTL*(*)
244
- */
245
- SUBROUTINE UYMTTL(
246
- CHARACTER*1 CSIDE
247
- CHARACTER*(*) CTTL
248
- REAL PX
249
- )
250
-
251
- /*****************************************************
252
- * grph2/uypack/uysttl.f
253
- ****************************************************/
254
- /*
255
- * SUBROUTINE UYSTTL(CSIDE,CTTL,PX)
256
- * CHARACTER CSIDE*1,CTTL*(*)
257
- */
258
- SUBROUTINE UYSTTL(
259
- CHARACTER*1 CSIDE
260
- CHARACTER*(*) CTTL
261
- REAL PX
262
- )
263
-
264
- /*****************************************************
265
- * grph2/uypack/luychk.f
266
- ****************************************************/
267
- /*
268
- * LOGICAL FUNCTION LUYCHK(CSIDE)
269
- * CHARACTER CSIDE*(*)
270
- */
271
- /*
272
- LOGICAL FUNCTION LUYCHK(
273
- CHARACTER*(*) CSIDE
274
- )
275
- */
276
-
277
- /*****************************************************
278
- * grph2/uypack/uysfmt.f
279
- ****************************************************/
280
- /*
281
- * SUBROUTINE UYSFMT(CFMT)
282
- * CHARACTER CFMT*(*)
283
- */
284
- SUBROUTINE UYSFMT(
285
- CHARACTER*(*) CFMT
286
- )
287
-
288
- /*
289
- * ENTRY UYQFMT(CFMT)
290
- * CHARACTER CFMT*(*)
291
- */
292
- SUBROUTINE UYQFMT(
293
- CHARACTER*(*) o CFMT
294
- )
295
-
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
-