ruby-dcl 1.7.1 → 1.8.0

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 (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_00 DELETED
@@ -1,16 +0,0 @@
1
- /*
2
- * grph2_00
3
- * log to split grph2.f77proto into grph2_xxpack.fp
4
- *
5
- * $Id: grph2_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * grph2.f77proto
10
- * #Id: grph2.f77proto,v 1.2 2000/11/05 14:39:33 keiko Exp $
11
- */
12
-
13
- /*
14
- * Packages deleted: none
15
- */
16
-
data/GenWrapper/proto/grph2_grpack.fp DELETED
@@ -1,139 +0,0 @@
1
- /*
2
- * grph2_grpack.fp
3
- *
4
- * $Id: grph2_grpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/grpack/gropn.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE GROPN(IWS)
12
- */
13
- SUBROUTINE GROPN(
14
- INTEGER IWS
15
- )
16
-
17
- /*
18
- * ENTRY GRFRM
19
- */
20
- SUBROUTINE GRFRM(
21
- )
22
-
23
- /*
24
- * ENTRY GRFIG
25
- */
26
- SUBROUTINE GRFIG(
27
- )
28
-
29
- /*
30
- * ENTRY GRCLS
31
- */
32
- SUBROUTINE GRCLS(
33
- )
34
-
35
- /*****************************************************
36
- * grph2/grpack/grinit.f
37
- ****************************************************/
38
- /*
39
- * SUBROUTINE GRINIT
40
- */
41
- SUBROUTINE GRINIT(
42
- )
43
-
44
- /*****************************************************
45
- * grph2/grpack/grsvpt.f
46
- ****************************************************/
47
- /*
48
- * SUBROUTINE GRSVPT(VXMIN, VXMAX, VYMIN, VYMAX)
49
- */
50
- SUBROUTINE GRSVPT(
51
- REAL VXMIN
52
- REAL VXMAX
53
- REAL VYMIN
54
- REAL VYMAX
55
- )
56
-
57
- /*****************************************************
58
- * grph2/grpack/grswnd.f
59
- ****************************************************/
60
- /*
61
- * SUBROUTINE GRSWND(UXMIN, UXMAX, UYMIN, UYMAX)
62
- */
63
- SUBROUTINE GRSWND(
64
- REAL UXMIN
65
- REAL UXMAX
66
- REAL UYMIN
67
- REAL UYMAX
68
- )
69
-
70
- /*****************************************************
71
- * grph2/grpack/grssim.f
72
- ****************************************************/
73
- /*
74
- * SUBROUTINE GRSSIM(SIMFAC, VXOFF, VYOFF)
75
- */
76
- SUBROUTINE GRSSIM(
77
- REAL SIMFAC
78
- REAL VXOFF
79
- REAL VYOFF
80
- )
81
-
82
- /*****************************************************
83
- * grph2/grpack/grsmpl.f
84
- ****************************************************/
85
- /*
86
- * SUBROUTINE GRSMPL(PLX, PLY, PLROT)
87
- */
88
- SUBROUTINE GRSMPL(
89
- REAL PLX
90
- REAL PLY
91
- REAL PLROT
92
- )
93
-
94
- /*****************************************************
95
- * grph2/grpack/grstxy.f
96
- ****************************************************/
97
- /*
98
- * SUBROUTINE GRSTXY(TXMIN, TXMAX, TYMIN, TYMAX)
99
- */
100
- SUBROUTINE GRSTXY(
101
- REAL TXMIN
102
- REAL TXMAX
103
- REAL TYMIN
104
- REAL TYMAX
105
- )
106
-
107
- /*****************************************************
108
- * grph2/grpack/grstrn.f
109
- ****************************************************/
110
- /*
111
- * SUBROUTINE GRSTRN(ITR)
112
- */
113
- SUBROUTINE GRSTRN(
114
- INTEGER ITR
115
- )
116
-
117
- /*****************************************************
118
- * grph2/grpack/grstrf.f
119
- ****************************************************/
120
- /*
121
- * SUBROUTINE GRSTRF
122
- */
123
- SUBROUTINE GRSTRF(
124
- )
125
-
126
- /*****************************************************
127
- * grph2/grpack/grscwd.f
128
- ****************************************************/
129
- /*
130
- * SUBROUTINE GRSCWD(CXMIN,CXMAX,CYMIN,CYMAX)
131
- */
132
- #if DCLVER >= 530
133
- SUBROUTINE GRSCWD(
134
- REAL CXMIN
135
- REAL CXMAX
136
- REAL CYMIN
137
- REAL CYMAX
138
- )
139
- #endif
data/GenWrapper/proto/grph2_ucpack.fp DELETED
@@ -1,522 +0,0 @@
1
- /*
2
- * grph2_ucpack.fp
3
- *
4
- * $Id: grph2_ucpack.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * grph2/ucpack/nucchr.f
9
- ****************************************************/
10
- /*
11
- * INTEGER FUNCTION NUCCHR(CS,ND)
12
- * CHARACTER CS*(*)
13
- */
14
- /*
15
- INTEGER FUNCTION NUCCHR(
16
- CHARACTER*(*) CS
17
- INTEGER ND
18
- )
19
- */
20
-
21
- /*****************************************************
22
- * grph2/ucpack/nucday.f
23
- ****************************************************/
24
- /*
25
- * INTEGER FUNCTION NUCDAY(CS,ND)
26
- * CHARACTER CS*(*)
27
- */
28
- /*
29
- INTEGER FUNCTION NUCDAY(
30
- CHARACTER*(*) CS
31
- INTEGER ND
32
- )
33
- */
34
-
35
- /*****************************************************
36
- * grph2/ucpack/ucpget.f
37
- ****************************************************/
38
- /*
39
- * SUBROUTINE UCPGET(CP, IPARA)
40
- * CHARACTER CP*(*)
41
- */
42
- /* SUBROUTINE UCPGET(
43
- * CHARACTER*(*) CP
44
- * INTEGER o IPARA
45
- * )
46
- */
47
-
48
- /*
49
- * ENTRY UCPSET(CP, IPARA)
50
- * CHARACTER CP*(*)
51
- */
52
- /* SUBROUTINE UCPSET(
53
- * CHARACTER*(*) CP
54
- * INTEGER IPARA
55
- * )
56
- */
57
-
58
- /*
59
- * ENTRY UCPSTX(CP, IPARA)
60
- * CHARACTER CP*(*)
61
- */
62
- /* SUBROUTINE UCPSTX(
63
- * CHARACTER*(*) CP
64
- * INTEGER IPARA
65
- * )
66
- */
67
-
68
- /*****************************************************
69
- * grph2/ucpack/ucpqnp.f
70
- ****************************************************/
71
- /*
72
- * SUBROUTINE UCPQNP(NCP)
73
- */
74
- SUBROUTINE UCPQNP(
75
- INTEGER o NCP
76
- )
77
-
78
- /*
79
- * ENTRY UCPQID(CP, IDX)
80
- * CHARACTER CP*(*)
81
- */
82
- SUBROUTINE UCPQID(
83
- CHARACTER*(*) CP
84
- INTEGER o IDX
85
- )
86
-
87
- /*
88
- * ENTRY UCPQCP(IDX, CP)
89
- * CHARACTER CP*(*)
90
- */
91
- SUBROUTINE UCPQCP(
92
- INTEGER IDX
93
- CHARACTER*(*) o CP
94
- )
95
-
96
- /*
97
- * ENTRY UCPQCL(IDX, CP)
98
- * CHARACTER CP*(*)
99
- */
100
- SUBROUTINE UCPQCL(
101
- INTEGER IDX
102
- CHARACTER*(*) o CP
103
- )
104
-
105
- /*
106
- * ENTRY UCPQIT(IDX, ITP)
107
- */
108
- SUBROUTINE UCPQIT(
109
- INTEGER IDX
110
- INTEGER o ITP
111
- )
112
-
113
- /*
114
- * ENTRY UCPQVL(IDX, IPARA)
115
- */
116
- SUBROUTINE UCPQVL(
117
- INTEGER IDX
118
- INTEGER o IPARA
119
- )
120
-
121
- /*
122
- * ENTRY UCPSVL(IDX, IPARA)
123
- */
124
- SUBROUTINE UCPSVL(
125
- INTEGER IDX
126
- INTEGER IPARA
127
- )
128
-
129
- /*
130
- * ENTRY UCPQIN(CP, IN)
131
- * CHARACTER CP*(*)
132
- */
133
- SUBROUTINE UCPQIN(
134
- CHARACTER*(*) CP
135
- INTEGER o IN
136
- )
137
-
138
- /*****************************************************
139
- * grph2/ucpack/ucxacl.f
140
- ****************************************************/
141
- /*
142
- * SUBROUTINE UCXACL(CSIDE,JD0,ND)
143
- * CHARACTER CSIDE*1
144
- */
145
- SUBROUTINE UCXACL(
146
- CHARACTER*1 CSIDE
147
- INTEGER JD0
148
- INTEGER ND
149
- )
150
-
151
- /*****************************************************
152
- * grph2/ucpack/ucxady.f
153
- ****************************************************/
154
- /*
155
- * SUBROUTINE UCXADY(CSIDE,JD0,ND)
156
- * CHARACTER CSIDE*1
157
- */
158
- SUBROUTINE UCXADY(
159
- CHARACTER*1 CSIDE
160
- INTEGER JD0
161
- INTEGER ND
162
- )
163
-
164
- /*****************************************************
165
- * grph2/ucpack/ucxamn.f
166
- ****************************************************/
167
- /*
168
- * SUBROUTINE UCXAMN(CSIDE,JD0,ND)
169
- * CHARACTER CSIDE*1
170
- */
171
- SUBROUTINE UCXAMN(
172
- CHARACTER*1 CSIDE
173
- INTEGER JD0
174
- INTEGER ND
175
- )
176
-
177
- /*****************************************************
178
- * grph2/ucpack/ucxayr.f
179
- ****************************************************/
180
- /*
181
- * SUBROUTINE UCXAYR(CSIDE,JD0,ND)
182
- * CHARACTER CSIDE*1
183
- */
184
- SUBROUTINE UCXAYR(
185
- CHARACTER*1 CSIDE
186
- INTEGER JD0
187
- INTEGER ND
188
- )
189
-
190
- /*****************************************************
191
- * grph2/ucpack/ucyacl.f
192
- ****************************************************/
193
- /*
194
- * SUBROUTINE UCYACL(CSIDE,JD0,ND)
195
- * CHARACTER CSIDE*1
196
- */
197
- SUBROUTINE UCYACL(
198
- CHARACTER*1 CSIDE
199
- INTEGER JD0
200
- INTEGER ND
201
- )
202
-
203
- /*****************************************************
204
- * grph2/ucpack/ucyady.f
205
- ****************************************************/
206
- /*
207
- * SUBROUTINE UCYADY(CSIDE,JD0,ND)
208
- * CHARACTER CSIDE*1
209
- */
210
- SUBROUTINE UCYADY(
211
- CHARACTER*1 CSIDE
212
- INTEGER JD0
213
- INTEGER ND
214
- )
215
-
216
- /*****************************************************
217
- * grph2/ucpack/ucyamn.f
218
- ****************************************************/
219
- /*
220
- * SUBROUTINE UCYAMN(CSIDE,JD0,ND)
221
- * CHARACTER CSIDE*1
222
- */
223
- SUBROUTINE UCYAMN(
224
- CHARACTER*1 CSIDE
225
- INTEGER JD0
226
- INTEGER ND
227
- )
228
-
229
- /*****************************************************
230
- * grph2/ucpack/ucyayr.f
231
- ****************************************************/
232
- /*
233
- * SUBROUTINE UCYAYR(CSIDE,JD0,ND)
234
- * CHARACTER CSIDE*1
235
- */
236
- SUBROUTINE UCYAYR(
237
- CHARACTER*1 CSIDE
238
- INTEGER JD0
239
- INTEGER ND
240
- )
241
-
242
- /*****************************************************
243
- * grph2/ucpack/uciget.f
244
- ****************************************************/
245
- /*
246
- * SUBROUTINE UCIGET(CP, IPARA)
247
- * CHARACTER CP*(*)
248
- */
249
- SUBROUTINE UCIGET(
250
- CHARACTER*(*) CP
251
- INTEGER o IPARA
252
- )
253
-
254
- /*
255
- * ENTRY UCISET(CP, IPARA)
256
- * CHARACTER CP*(*)
257
- */
258
- SUBROUTINE UCISET(
259
- CHARACTER*(*) CP
260
- INTEGER IPARA
261
- )
262
-
263
- /*
264
- * ENTRY UCISTX(CP, IPARA)
265
- * CHARACTER CP*(*)
266
- */
267
- SUBROUTINE UCISTX(
268
- CHARACTER*(*) CP
269
- INTEGER IPARA
270
- )
271
-
272
- /*****************************************************
273
- * grph2/ucpack/uciqnp.f
274
- ****************************************************/
275
- /*
276
- * SUBROUTINE UCIQNP(NCP)
277
- */
278
- SUBROUTINE UCIQNP(
279
- INTEGER o NCP
280
- )
281
-
282
- /*
283
- * ENTRY UCIQID(CP, IDX)
284
- * CHARACTER CP*(*)
285
- */
286
- SUBROUTINE UCIQID(
287
- CHARACTER*(*) CP
288
- INTEGER o IDX
289
- )
290
-
291
- /*
292
- * ENTRY UCIQCP(IDX, CP)
293
- * CHARACTER CP*(*)
294
- */
295
- SUBROUTINE UCIQCP(
296
- INTEGER IDX
297
- CHARACTER*(*) o CP
298
- )
299
-
300
- /*
301
- * ENTRY UCIQCL(IDX, CP)
302
- * CHARACTER CP*(*)
303
- */
304
- SUBROUTINE UCIQCL(
305
- INTEGER IDX
306
- CHARACTER*(*) o CP
307
- )
308
-
309
- /*
310
- * ENTRY UCIQVL(IDX, IPARA)
311
- */
312
- SUBROUTINE UCIQVL(
313
- INTEGER IDX
314
- INTEGER o IPARA
315
- )
316
-
317
- /*
318
- * ENTRY UCISVL(IDX, IPARA)
319
- */
320
- SUBROUTINE UCISVL(
321
- INTEGER IDX
322
- INTEGER IPARA
323
- )
324
-
325
- /*
326
- * ENTRY UCIQIN(CP, IN)
327
- * CHARACTER CP*(*)
328
- */
329
- SUBROUTINE UCIQIN(
330
- CHARACTER*(*) CP
331
- INTEGER o IN
332
- )
333
-
334
- /*****************************************************
335
- * grph2/ucpack/uclget.f
336
- ****************************************************/
337
- /*
338
- * SUBROUTINE UCLGET(CP, LPARA)
339
- * CHARACTER CP*(*)
340
- * LOGICAL LPARA
341
- */
342
- SUBROUTINE UCLGET(
343
- CHARACTER*(*) CP
344
- LOGICAL o LPARA
345
- )
346
-
347
- /*
348
- * ENTRY UCLSET(CP, LPARA)
349
- * CHARACTER CP*(*)
350
- * LOGICAL LPARA
351
- */
352
- SUBROUTINE UCLSET(
353
- CHARACTER*(*) CP
354
- LOGICAL LPARA
355
- )
356
-
357
- /*
358
- * ENTRY UCLSTX(CP, LPARA)
359
- * CHARACTER CP*(*)
360
- * LOGICAL LPARA
361
- */
362
- SUBROUTINE UCLSTX(
363
- CHARACTER*(*) CP
364
- LOGICAL LPARA
365
- )
366
-
367
- /*****************************************************
368
- * grph2/ucpack/uclqnp.f
369
- ****************************************************/
370
- /*
371
- * SUBROUTINE UCLQNP(NCP)
372
- */
373
- SUBROUTINE UCLQNP(
374
- INTEGER o NCP
375
- )
376
-
377
- /*
378
- * ENTRY UCLQID(CP, IDX)
379
- * CHARACTER CP*(*)
380
- */
381
- SUBROUTINE UCLQID(
382
- CHARACTER*(*) CP
383
- INTEGER o IDX
384
- )
385
-
386
- /*
387
- * ENTRY UCLQCP(IDX, CP)
388
- * CHARACTER CP*(*)
389
- */
390
- SUBROUTINE UCLQCP(
391
- INTEGER IDX
392
- CHARACTER*(*) o CP
393
- )
394
-
395
- /*
396
- * ENTRY UCLQCL(IDX, CP)
397
- * CHARACTER CP*(*)
398
- */
399
- SUBROUTINE UCLQCL(
400
- INTEGER IDX
401
- CHARACTER*(*) o CP
402
- )
403
-
404
- /*
405
- * ENTRY UCLQVL(IDX, LPARA)
406
- * LOGICAL LPARA
407
- */
408
- SUBROUTINE UCLQVL(
409
- INTEGER IDX
410
- LOGICAL o LPARA
411
- )
412
-
413
- /*
414
- * ENTRY UCLSVL(IDX, LPARA)
415
- * LOGICAL LPARA
416
- */
417
- SUBROUTINE UCLSVL(
418
- INTEGER IDX
419
- LOGICAL LPARA
420
- )
421
-
422
- /*
423
- * ENTRY UCLQIN(CP, IN)
424
- * CHARACTER CP*(*)
425
- */
426
- SUBROUTINE UCLQIN(
427
- CHARACTER*(*) CP
428
- INTEGER o IN
429
- )
430
-
431
- /*****************************************************
432
- * grph2/ucpack/ucrget.f
433
- ****************************************************/
434
- /*
435
- * SUBROUTINE UCRGET(CP, RPARA)
436
- * CHARACTER CP*(*)
437
- */
438
- SUBROUTINE UCRGET(
439
- CHARACTER*(*) CP
440
- REAL o RPARA
441
- )
442
-
443
- /*
444
- * ENTRY UCRSET(CP, RPARA)
445
- * CHARACTER CP*(*)
446
- */
447
- SUBROUTINE UCRSET(
448
- CHARACTER*(*) CP
449
- REAL RPARA
450
- )
451
-
452
- /*
453
- * ENTRY UCRSTX(CP, RPARA)
454
- * CHARACTER CP*(*)
455
- */
456
- SUBROUTINE UCRSTX(
457
- CHARACTER*(*) CP
458
- REAL RPARA
459
- )
460
-
461
- /*****************************************************
462
- * grph2/ucpack/ucrqnp.f
463
- ****************************************************/
464
- /*
465
- * SUBROUTINE UCRQNP(NCP)
466
- */
467
- SUBROUTINE UCRQNP(
468
- INTEGER o NCP
469
- )
470
-
471
- /*
472
- * ENTRY UCRQID(CP, IDX)
473
- * CHARACTER CP*(*)
474
- */
475
- SUBROUTINE UCRQID(
476
- CHARACTER*(*) CP
477
- INTEGER o IDX
478
- )
479
-
480
- /*
481
- * ENTRY UCRQCP(IDX, CP)
482
- * CHARACTER CP*(*)
483
- */
484
- SUBROUTINE UCRQCP(
485
- INTEGER IDX
486
- CHARACTER*(*) o CP
487
- )
488
-
489
- /*
490
- * ENTRY UCRQCL(IDX, CP)
491
- * CHARACTER CP*(*)
492
- */
493
- SUBROUTINE UCRQCL(
494
- INTEGER IDX
495
- CHARACTER*(*) o CP
496
- )
497
-
498
- /*
499
- * ENTRY UCRQVL(IDX, RPARA)
500
- */
501
- SUBROUTINE UCRQVL(
502
- INTEGER IDX
503
- REAL o RPARA
504
- )
505
-
506
- /*
507
- * ENTRY UCRSVL(IDX, RPARA)
508
- */
509
- SUBROUTINE UCRSVL(
510
- INTEGER IDX
511
- REAL RPARA
512
- )
513
-
514
- /*
515
- * ENTRY UCRQIN(CP, IN)
516
- * CHARACTER CP*(*)
517
- */
518
- SUBROUTINE UCRQIN(
519
- CHARACTER*(*) CP
520
- INTEGER o IN
521
- )
522
-