ruby-dcl 1.6.2

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 (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
data/GenWrapper/proto/grph2_uvpack.fp ADDED
@@ -0,0 +1,246 @@
1
+ /*
2
+ * grph2_uvpack.fp
3
+ *
4
+ * $Id: grph2_uvpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * grph2/uvpack/uverb.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE UVERB(N,UPX,UPY1,UPY2)
12
+ * REAL UPX(*),UPY1(*),UPY2(*)
13
+ */
14
+ SUBROUTINE UVERB(
15
+ INTEGER N
16
+ REAL (N) UPX
17
+ REAL (N) UPY1
18
+ REAL (N) UPY2
19
+ )
20
+
21
+ /*****************************************************
22
+ * grph2/uvpack/uverbz.f
23
+ ****************************************************/
24
+ /*
25
+ * SUBROUTINE UVERBZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
26
+ * REAL UPX(*),UPY1(*),UPY2(*)
27
+ */
28
+ SUBROUTINE UVERBZ(
29
+ INTEGER N
30
+ REAL (N) UPX
31
+ REAL (N) UPY1
32
+ REAL (N) UPY2
33
+ INTEGER ITYPE
34
+ INTEGER INDEX
35
+ REAL RSIZE
36
+ )
37
+
38
+ /*****************************************************
39
+ * grph2/uvpack/uvdif.f
40
+ ****************************************************/
41
+ /*
42
+ * SUBROUTINE UVDIF(N,UPX,UPY1,UPY2)
43
+ * REAL UPX(*),UPY1(*),UPY2(*)
44
+ */
45
+ SUBROUTINE UVDIF(
46
+ INTEGER N
47
+ REAL (N) UPX
48
+ REAL (N) UPY1
49
+ REAL (N) UPY2
50
+ )
51
+
52
+ /*****************************************************
53
+ * grph2/uvpack/uvdifz.f
54
+ ****************************************************/
55
+ /*
56
+ * SUBROUTINE UVDIFZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
57
+ * REAL UPX(*),UPY1(*),UPY2(*)
58
+ */
59
+ SUBROUTINE UVDIFZ(
60
+ INTEGER N
61
+ REAL (N) UPX
62
+ REAL (N) UPY1
63
+ REAL (N) UPY2
64
+ INTEGER ITPAT1
65
+ INTEGER ITPAT2
66
+ )
67
+
68
+ /*****************************************************
69
+ * grph2/uvpack/uvbrf.f
70
+ ****************************************************/
71
+ /*
72
+ * SUBROUTINE UVBRF(N,UPX,UPY1,UPY2)
73
+ * REAL UPX(*),UPY1(*),UPY2(*)
74
+ */
75
+ SUBROUTINE UVBRF(
76
+ INTEGER N
77
+ REAL (N) UPX
78
+ REAL (N) UPY1
79
+ REAL (N) UPY2
80
+ )
81
+
82
+ /*****************************************************
83
+ * grph2/uvpack/uvbrfz.f
84
+ ****************************************************/
85
+ /*
86
+ * SUBROUTINE UVBRFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX,RSIZE)
87
+ * REAL UPX(*),UPY1(*),UPY2(*)
88
+ */
89
+ SUBROUTINE UVBRFZ(
90
+ INTEGER N
91
+ REAL (N) UPX
92
+ REAL (N) UPY1
93
+ REAL (N) UPY2
94
+ INTEGER ITYPE
95
+ INTEGER INDEX
96
+ REAL RSIZE
97
+ )
98
+
99
+ /*****************************************************
100
+ * grph2/uvpack/uvbra.f
101
+ ****************************************************/
102
+ /*
103
+ * SUBROUTINE UVBRA(N,UPX,UPY1,UPY2)
104
+ * REAL UPX(*),UPY1(*),UPY2(*)
105
+ */
106
+ SUBROUTINE UVBRA(
107
+ INTEGER N
108
+ REAL (N) UPX
109
+ REAL (N) UPY1
110
+ REAL (N) UPY2
111
+ )
112
+
113
+ /*****************************************************
114
+ * grph2/uvpack/uvbraz.f
115
+ ****************************************************/
116
+ /*
117
+ * SUBROUTINE UVBRAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2,RSIZE)
118
+ * REAL UPX(*),UPY1(*),UPY2(*)
119
+ */
120
+ SUBROUTINE UVBRAZ(
121
+ INTEGER N
122
+ REAL (N) UPX
123
+ REAL (N) UPY1
124
+ REAL (N) UPY2
125
+ INTEGER ITPAT1
126
+ INTEGER ITPAT2
127
+ REAL RSIZE
128
+ )
129
+
130
+ /*****************************************************
131
+ * grph2/uvpack/uvbrl.f
132
+ ****************************************************/
133
+ /*
134
+ * SUBROUTINE UVBRL(N,UPX,UPY)
135
+ * REAL UPX(*),UPY(*)
136
+ */
137
+ SUBROUTINE UVBRL(
138
+ INTEGER N
139
+ REAL (N) UPX
140
+ REAL (N) UPY
141
+ )
142
+
143
+ /*****************************************************
144
+ * grph2/uvpack/uvbrlz.f
145
+ ****************************************************/
146
+ /*
147
+ * SUBROUTINE UVBRLZ(N,UPX,UPY,ITYPE,INDEX,RSIZE)
148
+ * REAL UPX(*),UPY(*)
149
+ */
150
+ SUBROUTINE UVBRLZ(
151
+ INTEGER N
152
+ REAL (N) UPX
153
+ REAL (N) UPY
154
+ INTEGER ITYPE
155
+ INTEGER INDEX
156
+ REAL RSIZE
157
+ )
158
+
159
+ /*****************************************************
160
+ * grph2/uvpack/uvbxf.f
161
+ ****************************************************/
162
+ /*
163
+ * SUBROUTINE UVBXF(N,UPX,UPY1,UPY2)
164
+ * REAL UPX(*),UPY1(*),UPY2(*)
165
+ */
166
+ SUBROUTINE UVBXF(
167
+ INTEGER N
168
+ REAL (N+1) UPX
169
+ REAL (N) UPY1
170
+ REAL (N) UPY2
171
+ )
172
+
173
+ /*****************************************************
174
+ * grph2/uvpack/uvbxfz.f
175
+ ****************************************************/
176
+ /*
177
+ * SUBROUTINE UVBXFZ(N,UPX,UPY1,UPY2,ITYPE,INDEX)
178
+ * REAL UPX(*),UPY1(*),UPY2(*)
179
+ */
180
+ SUBROUTINE UVBXFZ(
181
+ INTEGER N
182
+ REAL (N+1) UPX
183
+ REAL (N) UPY1
184
+ REAL (N) UPY2
185
+ INTEGER ITYPE
186
+ INTEGER INDEX
187
+ )
188
+
189
+ /*****************************************************
190
+ * grph2/uvpack/uvbxa.f
191
+ ****************************************************/
192
+ /*
193
+ * SUBROUTINE UVBXA(N,UPX,UPY1,UPY2)
194
+ * REAL UPX(*),UPY1(*),UPY2(*)
195
+ */
196
+ SUBROUTINE UVBXA(
197
+ INTEGER N
198
+ REAL (N+1) UPX
199
+ REAL (N) UPY1
200
+ REAL (N) UPY2
201
+ )
202
+
203
+ /*****************************************************
204
+ * grph2/uvpack/uvbxaz.f
205
+ ****************************************************/
206
+ /*
207
+ * SUBROUTINE UVBXAZ(N,UPX,UPY1,UPY2,ITPAT1,ITPAT2)
208
+ * REAL UPX(*),UPY1(*),UPY2(*)
209
+ */
210
+ SUBROUTINE UVBXAZ(
211
+ INTEGER N
212
+ REAL (N+1) UPX
213
+ REAL (N) UPY1
214
+ REAL (N) UPY2
215
+ INTEGER ITPAT1
216
+ INTEGER ITPAT2
217
+ )
218
+
219
+ /*****************************************************
220
+ * grph2/uvpack/uvbxl.f
221
+ ****************************************************/
222
+ /*
223
+ * SUBROUTINE UVBXL(N,UPX,UPY)
224
+ * REAL UPX(*),UPY(*)
225
+ */
226
+ SUBROUTINE UVBXL(
227
+ INTEGER N
228
+ REAL (N+1) UPX
229
+ REAL (N) UPY
230
+ )
231
+
232
+ /*****************************************************
233
+ * grph2/uvpack/uvbxlz.f
234
+ ****************************************************/
235
+ /*
236
+ * SUBROUTINE UVBXLZ(N,UPX,UPY,ITYPE,INDEX)
237
+ * REAL UPX(*),UPY(*)
238
+ */
239
+ SUBROUTINE UVBXLZ(
240
+ INTEGER N
241
+ REAL (N+1) UPX
242
+ REAL (N) UPY
243
+ INTEGER ITYPE
244
+ INTEGER INDEX
245
+ )
246
+
data/GenWrapper/proto/grph2_uwpack.fp ADDED
@@ -0,0 +1,203 @@
1
+ /*
2
+ * grph2_uwpack.fp
3
+ *
4
+ * $Id: grph2_uwpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * grph2/uwpack/uwsgxa.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE UWSGXA(XP,NX)
12
+ * REAL XP(*)
13
+ */
14
+ SUBROUTINE UWSGXA(
15
+ REAL (NX) XP
16
+ INTEGER NX
17
+ )
18
+
19
+ /*
20
+ * ENTRY UWQGXA(XP,NX)
21
+ * REAL XP(*)
22
+ */
23
+ SUBROUTINE UWQGXA(
24
+ REAL (NX) o XP
25
+ INTEGER o NX
26
+ )
27
+
28
+ /*
29
+ * ENTRY UWSGXB(UXMIN,UXMAX,NX)
30
+ */
31
+ SUBROUTINE UWSGXB(
32
+ REAL UXMIN
33
+ REAL UXMAX
34
+ INTEGER NX
35
+ )
36
+
37
+ /*
38
+ * ENTRY UWQGXB(UXMIN,UXMAX,NX)
39
+ */
40
+ SUBROUTINE UWQGXB(
41
+ REAL o UXMIN
42
+ REAL o UXMAX
43
+ INTEGER o NX
44
+ )
45
+
46
+ /*
47
+ * ENTRY UWSGXZ(LSETX)
48
+ * LOGICAL LSETX
49
+ */
50
+ SUBROUTINE UWSGXZ(
51
+ LOGICAL LSETX
52
+ )
53
+
54
+ /*
55
+ * ENTRY UWQGXZ(LSETX)
56
+ * LOGICAL LSETX
57
+ */
58
+ SUBROUTINE UWQGXZ(
59
+ LOGICAL o LSETX
60
+ )
61
+
62
+ /*****************************************************
63
+ * grph2/uwpack/uwsgya.f
64
+ ****************************************************/
65
+ /*
66
+ * SUBROUTINE UWSGYA(YP,NY)
67
+ * REAL YP(*)
68
+ */
69
+ SUBROUTINE UWSGYA(
70
+ REAL (NY) YP
71
+ INTEGER NY
72
+ )
73
+
74
+ /*
75
+ * ENTRY UWQGYA(YP,NY)
76
+ * REAL YP(*)
77
+ */
78
+ SUBROUTINE UWQGYA(
79
+ REAL (NY) o YP
80
+ INTEGER o NY
81
+ )
82
+
83
+ /*
84
+ * ENTRY UWSGYB(UYMIN,UYMAX,NY)
85
+ */
86
+ SUBROUTINE UWSGYB(
87
+ REAL UYMIN
88
+ REAL UYMAX
89
+ INTEGER NY
90
+ )
91
+
92
+ /*
93
+ * ENTRY UWQGYB(UYMIN,UYMAX,NY)
94
+ */
95
+ SUBROUTINE UWQGYB(
96
+ REAL o UYMIN
97
+ REAL o UYMAX
98
+ INTEGER o NY
99
+ )
100
+
101
+ /*
102
+ * ENTRY UWSGYZ(LSETY)
103
+ * LOGICAL LSETY
104
+ */
105
+ SUBROUTINE UWSGYZ(
106
+ LOGICAL LSETY
107
+ )
108
+
109
+ /*
110
+ * ENTRY UWQGYZ(LSETY)
111
+ * LOGICAL LSETY
112
+ */
113
+ SUBROUTINE UWQGYZ(
114
+ LOGICAL o LSETY
115
+ )
116
+
117
+ /*****************************************************
118
+ * grph2/uwpack/uwqgxi.f
119
+ ****************************************************/
120
+ /*
121
+ * SUBROUTINE UWQGXI(UX,IUX,FRAC)
122
+ */
123
+ SUBROUTINE UWQGXI(
124
+ REAL UX
125
+ INTEGER o IUX
126
+ REAL o FRAC
127
+ )
128
+
129
+ /*
130
+ * ENTRY UWIGXI
131
+ */
132
+ SUBROUTINE UWIGXI(
133
+ )
134
+
135
+ /*****************************************************
136
+ * grph2/uwpack/uwqgyi.f
137
+ ****************************************************/
138
+ /*
139
+ * SUBROUTINE UWQGYI(UY,IUY,FRAC)
140
+ */
141
+ SUBROUTINE UWQGYI(
142
+ REAL UY
143
+ INTEGER o IUY
144
+ REAL o FRAC
145
+ )
146
+
147
+ /*
148
+ * ENTRY UWIGYI
149
+ */
150
+ SUBROUTINE UWIGYI(
151
+ )
152
+
153
+ /*****************************************************
154
+ * grph2/uwpack/ruwgx.f
155
+ ****************************************************/
156
+ /*
157
+ * REAL FUNCTION RUWGX(IX)
158
+ */
159
+ REAL FUNCTION RUWGX(
160
+ INTEGER IX
161
+ )
162
+
163
+ /*****************************************************
164
+ * grph2/uwpack/ruwgy.f
165
+ ****************************************************/
166
+ /*
167
+ * REAL FUNCTION RUWGY(IY)
168
+ */
169
+ REAL FUNCTION RUWGY(
170
+ INTEGER IY
171
+ )
172
+
173
+ /*****************************************************
174
+ * grph2/uwpack/iuwgx.f
175
+ ****************************************************/
176
+ /*
177
+ * INTEGER FUNCTION IUWGX(UX)
178
+ */
179
+ INTEGER FUNCTION IUWGX(
180
+ REAL UX
181
+ )
182
+
183
+ /*****************************************************
184
+ * grph2/uwpack/iuwgy.f
185
+ ****************************************************/
186
+ /*
187
+ * INTEGER FUNCTION IUWGY(UY)
188
+ */
189
+ INTEGER FUNCTION IUWGY(
190
+ REAL UY
191
+ )
192
+
193
+ /*****************************************************
194
+ * grph2/uwpack/uwdflt.f
195
+ ****************************************************/
196
+ /*
197
+ * SUBROUTINE UWDFLT(NX,NY)
198
+ */
199
+ SUBROUTINE UWDFLT(
200
+ INTEGER NX
201
+ INTEGER NY
202
+ )
203
+
data/GenWrapper/proto/grph2_uxpack.fp ADDED
@@ -0,0 +1,295 @@
1
+ /*
2
+ * grph2_uxpack.fp
3
+ *
4
+ * $Id: grph2_uxpack.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * grph2/uxpack/uxptmz.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE UXPTMZ(UX,N,UPY,ROFFX,RTICK,INDEX)
12
+ * REAL UX(*)
13
+ */
14
+ /*
15
+ SUBROUTINE UXPTMZ(
16
+ REAL (N) UX
17
+ INTEGER N
18
+ REAL UPY
19
+ REAL ROFFX
20
+ REAL RTICK
21
+ INTEGER INDEX
22
+ )
23
+ */
24
+
25
+ /*****************************************************
26
+ * grph2/uxpack/uxplba.f
27
+ ****************************************************/
28
+ /*
29
+ * SUBROUTINE UXPLBA(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX)
30
+ * REAL UX(*)
31
+ * CHARACTER CH(*)*(*)
32
+ */
33
+ /*
34
+ SUBROUTINE UXPLBA(
35
+ REAL (N) UX
36
+ CHARACTER*(*) (N) CH
37
+ INTEGER NC
38
+ INTEGER N
39
+ REAL UPY
40
+ REAL ROFFX
41
+ REAL RSIZE
42
+ INTEGER IROTA
43
+ INTEGER ICENT
44
+ INTEGER INDEX
45
+ )
46
+ */
47
+
48
+ /*****************************************************
49
+ * grph2/uxpack/uxplbb.f
50
+ ****************************************************/
51
+ /*
52
+ * SUBROUTINE UXPLBB(UX,CH,NC,N,UPY,ROFFX,RSIZE,IROTA,ICENT,INDEX,
53
+ * + RBTWN,LBOUND,LBMSG)
54
+ * REAL UX(*)
55
+ * CHARACTER CH(*)*(*)
56
+ * LOGICAL LBOUND,LBMSG
57
+ */
58
+ /*
59
+ SUBROUTINE UXPLBB(
60
+ REAL (N) UX
61
+ CHARACTER*(*) (N) CH
62
+ INTEGER NC
63
+ INTEGER N
64
+ REAL UPY
65
+ REAL ROFFX
66
+ REAL RSIZE
67
+ INTEGER IROTA
68
+ INTEGER ICENT
69
+ INTEGER INDEX
70
+ REAL RBTWN
71
+ LOGICAL LBOUND
72
+ LOGICAL LBMSG
73
+ )
74
+ */
75
+
76
+ /*****************************************************
77
+ * grph2/uxpack/uxsaxz.f
78
+ ****************************************************/
79
+ /*
80
+ * SUBROUTINE UXSAXZ(CSIDE,ROFFX)
81
+ * CHARACTER CSIDE*1
82
+ */
83
+ SUBROUTINE UXSAXZ(
84
+ CHARACTER*1 CSIDE
85
+ REAL ROFFX
86
+ )
87
+
88
+ /*****************************************************
89
+ * grph2/uxpack/uxsaxs.f
90
+ ****************************************************/
91
+ /*
92
+ * SUBROUTINE UXSAXS(CSIDE)
93
+ * CHARACTER CSIDE*1
94
+ */
95
+ SUBROUTINE UXSAXS(
96
+ CHARACTER*1 CSIDE
97
+ )
98
+
99
+ /*****************************************************
100
+ * grph2/uxpack/uxsoff.f
101
+ ****************************************************/
102
+ /*
103
+ * SUBROUTINE UXSOFF
104
+ */
105
+ /*
106
+ SUBROUTINE UXSOFF(
107
+ )
108
+ */
109
+
110
+ /*
111
+ * ENTRY UXROFF
112
+ */
113
+ /*
114
+ SUBROUTINE UXROFF(
115
+ )
116
+ */
117
+
118
+ /*****************************************************
119
+ * grph2/uxpack/uxpaxs.f
120
+ ****************************************************/
121
+ /*
122
+ * SUBROUTINE UXPAXS(CSIDE,ISLCT)
123
+ * CHARACTER CSIDE*1
124
+ */
125
+ SUBROUTINE UXPAXS(
126
+ CHARACTER*1 CSIDE
127
+ INTEGER ISLCT
128
+ )
129
+
130
+ /*****************************************************
131
+ * grph2/uxpack/uxptmk.f
132
+ ****************************************************/
133
+ /*
134
+ * SUBROUTINE UXPTMK(CSIDE,ISLCT,UX,N)
135
+ * CHARACTER CSIDE*1
136
+ * REAL UX(*)
137
+ */
138
+ SUBROUTINE UXPTMK(
139
+ CHARACTER*1 CSIDE
140
+ INTEGER ISLCT
141
+ REAL (N) UX
142
+ INTEGER N
143
+ )
144
+
145
+ /*****************************************************
146
+ * grph2/uxpack/uxplbl.f
147
+ ****************************************************/
148
+ /*
149
+ * SUBROUTINE UXPLBL(CSIDE,ISLCT,UX,CH,NC,N)
150
+ * CHARACTER CSIDE*1,CH(*)*(*)
151
+ * REAL UX(*)
152
+ */
153
+ SUBROUTINE UXPLBL(
154
+ CHARACTER*1 CSIDE
155
+ INTEGER ISLCT
156
+ REAL (N) UX
157
+ CHARACTER*(*) (N) CH
158
+ INTEGER NC
159
+ INTEGER N
160
+ )
161
+
162
+ /*****************************************************
163
+ * grph2/uxpack/uxpnum.f
164
+ ****************************************************/
165
+ /*
166
+ * SUBROUTINE UXPNUM(CSIDE,ISLCT,UX,N)
167
+ * CHARACTER CSIDE*1
168
+ * REAL UX(*)
169
+ */
170
+ SUBROUTINE UXPNUM(
171
+ CHARACTER*1 CSIDE
172
+ INTEGER ISLCT
173
+ REAL (N) UX
174
+ INTEGER N
175
+ )
176
+
177
+ /*****************************************************
178
+ * grph2/uxpack/uxpttl.f
179
+ ****************************************************/
180
+ /*
181
+ * SUBROUTINE UXPTTL(CSIDE,ISLCT,CTTL,PX)
182
+ * CHARACTER CSIDE*1,CTTL*(*)
183
+ */
184
+ SUBROUTINE UXPTTL(
185
+ CHARACTER*1 CSIDE
186
+ INTEGER ISLCT
187
+ CHARACTER*(*) CTTL
188
+ REAL PX
189
+ )
190
+
191
+ /*****************************************************
192
+ * grph2/uxpack/uxaxlb.f
193
+ ****************************************************/
194
+ /*
195
+ * SUBROUTINE UXAXLB(CSIDE,UX1,N1,UX2,CH,NC,N2)
196
+ * CHARACTER CSIDE*1,CH(*)*(*)
197
+ * REAL UX1(*),UX2(*)
198
+ */
199
+ SUBROUTINE UXAXLB(
200
+ CHARACTER*1 CSIDE
201
+ REAL (N1) UX1
202
+ INTEGER N1
203
+ REAL (N2) UX2
204
+ CHARACTER*(*) (N2) CH
205
+ INTEGER NC
206
+ INTEGER N2
207
+ )
208
+
209
+ /*****************************************************
210
+ * grph2/uxpack/uxaxnm.f
211
+ ****************************************************/
212
+ /*
213
+ * SUBROUTINE UXAXNM(CSIDE,UX1,N1,UX2,N2)
214
+ * CHARACTER CSIDE*1
215
+ * REAL UX1(*),UX2(*)
216
+ */
217
+ SUBROUTINE UXAXNM(
218
+ CHARACTER*1 CSIDE
219
+ REAL (N1) UX1
220
+ INTEGER N1
221
+ REAL (N2) UX2
222
+ INTEGER N2
223
+ )
224
+
225
+ /*****************************************************
226
+ * grph2/uxpack/uxaxdv.f
227
+ ****************************************************/
228
+ /*
229
+ * SUBROUTINE UXAXDV(CSIDE,DX1,DX2)
230
+ * CHARACTER CSIDE*1
231
+ */
232
+ SUBROUTINE UXAXDV(
233
+ CHARACTER*1 CSIDE
234
+ REAL DX1
235
+ REAL DX2
236
+ )
237
+
238
+ /*****************************************************
239
+ * grph2/uxpack/uxmttl.f
240
+ ****************************************************/
241
+ /*
242
+ * SUBROUTINE UXMTTL(CSIDE,CTTL,PX)
243
+ * CHARACTER CSIDE*1,CTTL*(*)
244
+ */
245
+ SUBROUTINE UXMTTL(
246
+ CHARACTER*1 CSIDE
247
+ CHARACTER*(*) CTTL
248
+ REAL PX
249
+ )
250
+
251
+ /*****************************************************
252
+ * grph2/uxpack/uxsttl.f
253
+ ****************************************************/
254
+ /*
255
+ * SUBROUTINE UXSTTL(CSIDE,CTTL,PX)
256
+ * CHARACTER CSIDE*1,CTTL*(*)
257
+ */
258
+ SUBROUTINE UXSTTL(
259
+ CHARACTER*1 CSIDE
260
+ CHARACTER*(*) CTTL
261
+ REAL PX
262
+ )
263
+
264
+ /*****************************************************
265
+ * grph2/uxpack/luxchk.f
266
+ ****************************************************/
267
+ /*
268
+ * LOGICAL FUNCTION LUXCHK(CSIDE)
269
+ * CHARACTER CSIDE*(*)
270
+ */
271
+ /*
272
+ LOGICAL FUNCTION LUXCHK(
273
+ CHARACTER*(*) CSIDE
274
+ )
275
+ */
276
+
277
+ /*****************************************************
278
+ * grph2/uxpack/uxsfmt.f
279
+ ****************************************************/
280
+ /*
281
+ * SUBROUTINE UXSFMT(CFMT)
282
+ * CHARACTER CFMT*(*)
283
+ */
284
+ SUBROUTINE UXSFMT(
285
+ CHARACTER*(*) CFMT
286
+ )
287
+
288
+ /*
289
+ * ENTRY UXQFMT(CFMT)
290
+ * CHARACTER CFMT*(*)
291
+ */
292
+ SUBROUTINE UXQFMT(
293
+ CHARACTER*(*) o CFMT
294
+ )
295
+