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
@@ -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
-
@@ -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
@@ -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
-