ruby-dcl 1.6.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (319) hide show
  1. data/ChangeLog +321 -0
  2. data/GenWrapper/Makefile +14 -0
  3. data/GenWrapper/cproto2init.rb +41 -0
  4. data/GenWrapper/dcl_narrayed_funcs.rb +181 -0
  5. data/GenWrapper/dcl_rb_footing +29 -0
  6. data/GenWrapper/dcl_rb_heading +129 -0
  7. data/GenWrapper/def.rb +20 -0
  8. data/GenWrapper/elim_ary_size.rb +398 -0
  9. data/GenWrapper/etc/Mk_proto +375 -0
  10. data/GenWrapper/etc/dcl_gen +13 -0
  11. data/GenWrapper/etc/p_header +63 -0
  12. data/GenWrapper/etc/p_init +410 -0
  13. data/GenWrapper/pparse.rb +137 -0
  14. data/GenWrapper/proto/Makefile +35 -0
  15. data/GenWrapper/proto/grph1_00 +17 -0
  16. data/GenWrapper/proto/grph1_csgi.fp +27 -0
  17. data/GenWrapper/proto/grph1_scpack.fp +442 -0
  18. data/GenWrapper/proto/grph1_sgpack.fp +1406 -0
  19. data/GenWrapper/proto/grph1_slpack.fp +316 -0
  20. data/GenWrapper/proto/grph1_stpack.fp +411 -0
  21. data/GenWrapper/proto/grph1_swpack.fp +746 -0
  22. data/GenWrapper/proto/grph2_00 +16 -0
  23. data/GenWrapper/proto/grph2_grpack.fp +139 -0
  24. data/GenWrapper/proto/grph2_ucpack.fp +522 -0
  25. data/GenWrapper/proto/grph2_udpack.fp +692 -0
  26. data/GenWrapper/proto/grph2_uepack.fp +601 -0
  27. data/GenWrapper/proto/grph2_ugpack.fp +436 -0
  28. data/GenWrapper/proto/grph2_uhpack.fp +246 -0
  29. data/GenWrapper/proto/grph2_ulpack.fp +516 -0
  30. data/GenWrapper/proto/grph2_umpack.fp +676 -0
  31. data/GenWrapper/proto/grph2_uspack.fp +989 -0
  32. data/GenWrapper/proto/grph2_uupack.fp +663 -0
  33. data/GenWrapper/proto/grph2_uvpack.fp +246 -0
  34. data/GenWrapper/proto/grph2_uwpack.fp +203 -0
  35. data/GenWrapper/proto/grph2_uxpack.fp +295 -0
  36. data/GenWrapper/proto/grph2_uypack.fp +295 -0
  37. data/GenWrapper/proto/grph2_uzpack.fp +574 -0
  38. data/GenWrapper/proto/math1_00 +12 -0
  39. data/GenWrapper/proto/math1_blklib.fp +58 -0
  40. data/GenWrapper/proto/math1_chrlib.fp +83 -0
  41. data/GenWrapper/proto/math1_fnclib.fp +79 -0
  42. data/GenWrapper/proto/math1_gnmlib.fp +118 -0
  43. data/GenWrapper/proto/math1_gt2dlib.fp +144 -0
  44. data/GenWrapper/proto/math1_ifalib.fp +123 -0
  45. data/GenWrapper/proto/math1_indxlib.fp +222 -0
  46. data/GenWrapper/proto/math1_intlib.fp +46 -0
  47. data/GenWrapper/proto/math1_lrllib.fp +276 -0
  48. data/GenWrapper/proto/math1_maplib.fp +24 -0
  49. data/GenWrapper/proto/math1_oslib.fp +28 -0
  50. data/GenWrapper/proto/math1_rfalib.fp +420 -0
  51. data/GenWrapper/proto/math1_rfblib.fp +51 -0
  52. data/GenWrapper/proto/math1_sublib.fp +60 -0
  53. data/GenWrapper/proto/math1_syslib.fp +767 -0
  54. data/GenWrapper/proto/math1_vialib.fp +339 -0
  55. data/GenWrapper/proto/math1_viblib.fp +264 -0
  56. data/GenWrapper/proto/math1_vralib.fp +339 -0
  57. data/GenWrapper/proto/math1_vrblib.fp +264 -0
  58. data/GenWrapper/proto/math1_xfclib.fp +68 -0
  59. data/GenWrapper/proto/math2_00 +12 -0
  60. data/GenWrapper/proto/math2_fftlib.fp +803 -0
  61. data/GenWrapper/proto/math2_intrlib.fp +32 -0
  62. data/GenWrapper/proto/math2_odelib.fp_notused +568 -0
  63. data/GenWrapper/proto/math2_rnmlib.fp +54 -0
  64. data/GenWrapper/proto/math2_shtlib.fp +1292 -0
  65. data/GenWrapper/proto/math2_shtlib.fp_old +1294 -0
  66. data/GenWrapper/proto/math2_vstlib.fp +84 -0
  67. data/GenWrapper/proto/misc1_00 +17 -0
  68. data/GenWrapper/proto/misc1_chnlib.fp +47 -0
  69. data/GenWrapper/proto/misc1_datelib.fp +352 -0
  70. data/GenWrapper/proto/misc1_fmtlib.fp +19 -0
  71. data/GenWrapper/proto/misc1_misclib.fp +26 -0
  72. data/GenWrapper/proto/misc1_randlib.fp +36 -0
  73. data/GenWrapper/proto/misc1_timelib.fp +151 -0
  74. data/GenWrapper/proto2c.rb +13 -0
  75. data/GenWrapper/prototype.rb +209 -0
  76. data/GenWrapper/util.rb +9 -0
  77. data/GenWrapper/variable.rb +671 -0
  78. data/README +29 -0
  79. data/Rakefile +44 -0
  80. data/ToDo +2 -0
  81. data/dcl_cary2obj.c +354 -0
  82. data/dcl_narrayed_funcs.c +518 -0
  83. data/dcl_obj2cary.c +512 -0
  84. data/dcl_rubydcloriginal.c +129 -0
  85. data/demo/gokuraku/hop/hop.rb +26 -0
  86. data/demo/gokuraku/jump/jump1.rb +64 -0
  87. data/demo/gokuraku/jump/jump2.rb +50 -0
  88. data/demo/gokuraku/layout/lay1.rb +46 -0
  89. data/demo/gokuraku/layout/lay2.rb +44 -0
  90. data/demo/gokuraku/step/step0.rb +34 -0
  91. data/demo/gokuraku/step/step1.rb +84 -0
  92. data/demo/gokuraku/step/step2.rb +62 -0
  93. data/demo/gokuraku/u1d/u1d1.rb +37 -0
  94. data/demo/gokuraku/u1d/u1d2.rb +50 -0
  95. data/demo/gokuraku/u2d/u2d1.rb +46 -0
  96. data/demo/gokuraku/u2d/u2d2.rb +49 -0
  97. data/demo/gokuraku/u2d/u2d3.rb +45 -0
  98. data/demo/gokuraku/u2d/u2d4.rb +61 -0
  99. data/demo/grph1/scpack/scpkt2.rb +40 -0
  100. data/demo/grph1/scpack/scpkt3.rb +102 -0
  101. data/demo/grph1/scpack/scpkt6.rb +84 -0
  102. data/demo/grph1/scpack/scpkt7.rb +59 -0
  103. data/demo/grph1/scpack/scpkt8.rb +60 -0
  104. data/demo/grph1/scpack/t810630.dat +296 -0
  105. data/demo/grph1/scpack/t811231.dat +296 -0
  106. data/demo/grph1/sgpack/sgfont.rb +52 -0
  107. data/demo/grph1/sgpack/sgfonz.rb +53 -0
  108. data/demo/grph1/sgpack/sgksx1.rb +44 -0
  109. data/demo/grph1/sgpack/sgksx2.rb +90 -0
  110. data/demo/grph1/sgpack/sgksx3.rb +75 -0
  111. data/demo/grph1/sgpack/sglidx.rb +40 -0
  112. data/demo/grph1/sgpack/sgltyp.rb +48 -0
  113. data/demo/grph1/sgpack/sgpk01.rb +39 -0
  114. data/demo/grph1/sgpack/sgpk02.rb +79 -0
  115. data/demo/grph1/sgpack/sgpk03.rb +107 -0
  116. data/demo/grph1/sgpack/sgpk04.rb +86 -0
  117. data/demo/grph1/sgpack/sgpk05.rb +66 -0
  118. data/demo/grph1/sgpack/sgpk06.rb +91 -0
  119. data/demo/grph1/sgpack/sgpk07.rb +66 -0
  120. data/demo/grph1/sgpack/sgpk08.rb +67 -0
  121. data/demo/grph1/sgpack/sgpk09.rb +61 -0
  122. data/demo/grph1/sgpack/sgpk10.rb +58 -0
  123. data/demo/grph1/sgpack/sgtclr.rb +59 -0
  124. data/demo/grph1/sgpack/sgtone.rb +70 -0
  125. data/demo/grph1/sgpack/sgtonz.rb +66 -0
  126. data/demo/grph1/slpack/slpk01.rb +37 -0
  127. data/demo/grph1/slpack/slpk02.rb +29 -0
  128. data/demo/grph1/slpack/slpk03.rb +36 -0
  129. data/demo/grph1/slpack/slpk04.rb +36 -0
  130. data/demo/grph2/g2pack/g2pk01.rb +78 -0
  131. data/demo/grph2/g2pack/g2pk02.rb +75 -0
  132. data/demo/grph2/grpack/grpk01.rb +65 -0
  133. data/demo/grph2/ucpack/ucpk01.rb +95 -0
  134. data/demo/grph2/ucpack/ucpk02.rb +95 -0
  135. data/demo/grph2/udegpk/u2df01.rb +50 -0
  136. data/demo/grph2/udegpk/u2df02.rb +76 -0
  137. data/demo/grph2/udegpk/u2df03.rb +80 -0
  138. data/demo/grph2/udegpk/u2df04.rb +52 -0
  139. data/demo/grph2/udegpk/u2df05.rb +70 -0
  140. data/demo/grph2/udegpk/u2df06.rb +59 -0
  141. data/demo/grph2/udegpk/u2df07.rb +68 -0
  142. data/demo/grph2/udegpk/u2df08.rb +91 -0
  143. data/demo/grph2/udegpk/u2df09b.rb +88 -0
  144. data/demo/grph2/udegpk/u2df09c.rb +89 -0
  145. data/demo/grph2/udegpk/u2df09e.rb +88 -0
  146. data/demo/grph2/udegpk/u2df09f.rb +89 -0
  147. data/demo/grph2/ulpack/ulpk01.rb +111 -0
  148. data/demo/grph2/ulpack/ulpk01n.rb +111 -0
  149. data/demo/grph2/ulpack/ulpk02.rb +111 -0
  150. data/demo/grph2/ulpack/ulpk02n.rb +111 -0
  151. data/demo/grph2/umpack/t811231.dat +296 -0
  152. data/demo/grph2/umpack/test01.rb +69 -0
  153. data/demo/grph2/umpack/test02.rb +64 -0
  154. data/demo/grph2/umpack/test03.rb +84 -0
  155. data/demo/grph2/umpack/test04.rb +54 -0
  156. data/demo/grph2/umpack/test05.rb +85 -0
  157. data/demo/grph2/umpack/test06.rb +44 -0
  158. data/demo/grph2/umpack/test07.rb +43 -0
  159. data/demo/grph2/umpack/test08.rb +37 -0
  160. data/demo/grph2/umpack/test09.rb +86 -0
  161. data/demo/grph2/umpack/test10.rb +52 -0
  162. data/demo/grph2/umpack/umpk01.rb +65 -0
  163. data/demo/grph2/umpack/umpk02.rb +54 -0
  164. data/demo/grph2/umpack/umpk03.rb +46 -0
  165. data/demo/grph2/umpack/umpk04.rb +65 -0
  166. data/demo/grph2/umpack/umpk05.rb +84 -0
  167. data/demo/grph2/uspack/uspk01.rb +39 -0
  168. data/demo/grph2/uspack/uspk02.rb +47 -0
  169. data/demo/grph2/uspack/uspk03.rb +38 -0
  170. data/demo/grph2/uspack/uspk04.rb +64 -0
  171. data/demo/grph2/uspack/uspk05.rb +68 -0
  172. data/demo/grph2/uspack/uspk06.rb +43 -0
  173. data/demo/grph2/uspack/uspk07.rb +62 -0
  174. data/demo/grph2/uspack/uspk08.rb +46 -0
  175. data/demo/grph2/uspack/uspk09.rb +89 -0
  176. data/demo/grph2/uspack/uspk10.rb +48 -0
  177. data/demo/grph2/uspack/uspk11.rb +71 -0
  178. data/demo/grph2/uspack/uspk12.rb +51 -0
  179. data/demo/grph2/uupack/uupk01.rb +50 -0
  180. data/demo/grph2/uupack/uupk02.rb +74 -0
  181. data/demo/grph2/uupack/uupk03.rb +56 -0
  182. data/demo/grph2/uupack/uupk04.rb +84 -0
  183. data/demo/grph2/uupack/uupk05.rb +74 -0
  184. data/demo/grph2/uupack/uupk06.rb +77 -0
  185. data/demo/grph2/uupack/uupk07.rb +88 -0
  186. data/demo/grph2/uxyzpk/uxyz01.rb +38 -0
  187. data/demo/grph2/uxyzpk/uxyz02.rb +36 -0
  188. data/demo/grph2/uxyzpk/uxyz03.rb +37 -0
  189. data/demo/grph2/uxyzpk/uxyz04.rb +54 -0
  190. data/demo/grph2/uxyzpk/uxyz05.rb +41 -0
  191. data/demo/grph2/uxyzpk/uxyz06.rb +42 -0
  192. data/demo/grph2/uxyzpk/uxyz07.rb +38 -0
  193. data/demo/grph2/uxyzpk/uxyz08.rb +60 -0
  194. data/demo/grph2/uxyzpk/uxyz09.rb +52 -0
  195. data/demo/grph2/uxyzpk/uxyz10.rb +57 -0
  196. data/demo/grph2/ximage/MEMO +23 -0
  197. data/demo/grph2/ximage/tomsclm.dat +1344 -0
  198. data/demo/grph2/ximage/ximg01.rb +145 -0
  199. data/demo/math1/gt2dlib/gt2d01.rb +33 -0
  200. data/demo/math2/fftlib/fftl01.rb +28 -0
  201. data/demo/math2/fftlib/fftl02.rb +224 -0
  202. data/demo/math2/intrlib/intr01.rb +22 -0
  203. data/demo/math2/rnmlib/rnml01.rb +21 -0
  204. data/demo/math2/vstlib/vstl01.rb +29 -0
  205. data/demo/math2/vstlib/vstl02.rb +38 -0
  206. data/demo/rakuraku/color/color1.rb +61 -0
  207. data/demo/rakuraku/color/color2.rb +57 -0
  208. data/demo/rakuraku/color/color3.rb +81 -0
  209. data/demo/rakuraku/kihon/kihon1.rb +39 -0
  210. data/demo/rakuraku/kihon/kihon2.rb +56 -0
  211. data/demo/rakuraku/kihon/kihon3.rb +57 -0
  212. data/demo/rakuraku/kihon/kihon4.rb +70 -0
  213. data/demo/rakuraku/kihon/kihon5.rb +56 -0
  214. data/demo/rakuraku/kihon/kihon6.rb +40 -0
  215. data/demo/rakuraku/kihon/kihon7.rb +98 -0
  216. data/demo/rakuraku/kihon/kihon8.rb +93 -0
  217. data/demo/rakuraku/kihon/kihon9.rb +77 -0
  218. data/demo/rakuraku/kihon/kihona.rb +123 -0
  219. data/demo/rakuraku/kihon/kihonb.rb +73 -0
  220. data/demo/rakuraku/kihon/kihonc.rb +110 -0
  221. data/demo/rakuraku/layout/lay1.rb +29 -0
  222. data/demo/rakuraku/layout/lay2.rb +28 -0
  223. data/demo/rakuraku/layout/lay3.rb +29 -0
  224. data/demo/rakuraku/map3d/map3d1.rb +68 -0
  225. data/demo/rakuraku/map3d/map3d2.rb +67 -0
  226. data/demo/rakuraku/map3d/map3d3.rb +66 -0
  227. data/demo/rakuraku/map3d/map3d4.rb +107 -0
  228. data/demo/rakuraku/map3d/map3d5.rb +118 -0
  229. data/demo/rakuraku/map3d/map3d6.rb +96 -0
  230. data/demo/rakuraku/map3d/map3d7.rb +98 -0
  231. data/demo/rakuraku/miss/miss1.rb +76 -0
  232. data/demo/rakuraku/miss/miss2.rb +60 -0
  233. data/demo/rakuraku/quick/quick1.rb +35 -0
  234. data/demo/rakuraku/quick/quick2.rb +33 -0
  235. data/demo/rakuraku/quick/quick3.rb +46 -0
  236. data/demo/rakuraku/quick/quick4.rb +47 -0
  237. data/demo/rakuraku/quick/quick5.rb +46 -0
  238. data/demo/rakuraku/u2d/u2d1.rb +50 -0
  239. data/demo/rakuraku/u2d/u2d2.rb +51 -0
  240. data/demo/rakuraku/u2d/u2d3.rb +70 -0
  241. data/demo/rakuraku/u2d/u2d4.rb +59 -0
  242. data/demo/rakuraku/u2d/u2d5.rb +61 -0
  243. data/demo/rakuraku/u2d/u2d6.rb +57 -0
  244. data/demo/rakuraku/u2d/u2d7.rb +103 -0
  245. data/demo/rakuraku/uspack/uspac1.rb +35 -0
  246. data/demo/rakuraku/uspack/uspac2.rb +66 -0
  247. data/demo/rakuraku/uspack/uspac3.rb +37 -0
  248. data/demo/rakuraku/uspack/uspac4.rb +49 -0
  249. data/demo/rakuraku/uxyz/uxyz1.rb +37 -0
  250. data/demo/rakuraku/uxyz/uxyz2.rb +35 -0
  251. data/demo/rakuraku/uxyz/uxyz3.rb +38 -0
  252. data/demo/rakuraku/uxyz/uxyz4.rb +36 -0
  253. data/demo/rakuraku/uxyz/uxyz5.rb +57 -0
  254. data/demo/rakuraku/uxyz/uxyz6.rb +43 -0
  255. data/demo/rakuraku/uxyz/uxyz7.rb +39 -0
  256. data/demo/rakuraku/uxyz/uxyz8.rb +56 -0
  257. data/demo/rubydcloriginal/uemrkz1.rb +37 -0
  258. data/dummy.c +9 -0
  259. data/extconf.rb +133 -0
  260. data/grph1_csgi.c +119 -0
  261. data/grph1_scpack.c +1388 -0
  262. data/grph1_sgpack.c +3876 -0
  263. data/grph1_slpack.c +432 -0
  264. data/grph1_stpack.c +1044 -0
  265. data/grph1_swpack.c +1922 -0
  266. data/grph1_zgpack.c.org +141 -0
  267. data/grph2_grpack.c +368 -0
  268. data/grph2_ucpack.c +1232 -0
  269. data/grph2_udpack.c +1404 -0
  270. data/grph2_uepack.c +1443 -0
  271. data/grph2_ugpack.c +1073 -0
  272. data/grph2_uhpack.c +943 -0
  273. data/grph2_ulpack.c +1304 -0
  274. data/grph2_umpack.c +1540 -0
  275. data/grph2_uspack.c +2481 -0
  276. data/grph2_uupack.c +1689 -0
  277. data/grph2_uvpack.c +943 -0
  278. data/grph2_uwpack.c +552 -0
  279. data/grph2_uxpack.c +555 -0
  280. data/grph2_uypack.c +555 -0
  281. data/grph2_uzpack.c +1455 -0
  282. data/init.c.default +187 -0
  283. data/init.c.gtk +189 -0
  284. data/lib/dcl.rb +5084 -0
  285. data/math1_blklib.c +227 -0
  286. data/math1_chrlib.c +239 -0
  287. data/math1_fnclib.c +254 -0
  288. data/math1_gnmlib.c +356 -0
  289. data/math1_gt2dlib.c +514 -0
  290. data/math1_ifalib.c +427 -0
  291. data/math1_indxlib.c +709 -0
  292. data/math1_intlib.c +167 -0
  293. data/math1_lrllib.c +817 -0
  294. data/math1_maplib.c +172 -0
  295. data/math1_oslib.c +111 -0
  296. data/math1_rfalib.c +1417 -0
  297. data/math1_rfblib.c +232 -0
  298. data/math1_sublib.c +221 -0
  299. data/math1_syslib.c +2025 -0
  300. data/math1_vialib.c +1156 -0
  301. data/math1_viblib.c +1027 -0
  302. data/math1_vralib.c +1156 -0
  303. data/math1_vrblib.c +1027 -0
  304. data/math1_xfclib.c +142 -0
  305. data/math2_fftlib.c +833 -0
  306. data/math2_intrlib.c +138 -0
  307. data/math2_rnmlib.c +226 -0
  308. data/math2_shtlib.c +1568 -0
  309. data/math2_vstlib.c +366 -0
  310. data/misc1_chnlib.c +179 -0
  311. data/misc1_datelib.c +953 -0
  312. data/misc1_fmtlib.c +99 -0
  313. data/misc1_misclib.c +118 -0
  314. data/misc1_randlib.c +142 -0
  315. data/misc1_timelib.c +380 -0
  316. data/obsolete/README +2 -0
  317. data/obsolete/dcl_ext.html +112 -0
  318. data/obsolete/dcl_ext.rb +313 -0
  319. metadata +433 -0
@@ -0,0 +1,16 @@
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
+
@@ -0,0 +1,139 @@
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
@@ -0,0 +1,522 @@
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
+