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