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/math1_vralib.fp ADDED
@@ -0,0 +1,339 @@
1
+ /*
2
+ * math1_vralib.fp
3
+ *
4
+ * $Id: math1_vralib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/vralib/vrfna.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE VRFNA(RX,RY,N,JX,JY,RFNA)
12
+ * REAL RX(*),RY(*)
13
+ */
14
+ SUBROUTINE VRFNA(
15
+ REAL (JX*(N-1)+1) RX
16
+ REAL (JY*(N-1)+1) o RY
17
+ INTEGER N
18
+ INTEGER JX
19
+ INTEGER JY
20
+ REAL RFNA
21
+ )
22
+
23
+ /*****************************************************
24
+ * math1/vralib/vrfna0.f
25
+ ****************************************************/
26
+ /*
27
+ * SUBROUTINE VRFNA0(RX,RY,N,JX,JY,RFNA)
28
+ * REAL RX(*),RY(*)
29
+ */
30
+ SUBROUTINE VRFNA0(
31
+ REAL (JX*(N-1)+1) RX
32
+ REAL (JY*(N-1)+1) o RY
33
+ INTEGER N
34
+ INTEGER JX
35
+ INTEGER JY
36
+ REAL RFNA
37
+ )
38
+
39
+ /*****************************************************
40
+ * math1/vralib/vrfna1.f
41
+ ****************************************************/
42
+ /*
43
+ * SUBROUTINE VRFNA1(RX,RY,N,JX,JY,RFNA)
44
+ * REAL RX(*),RY(*)
45
+ */
46
+ SUBROUTINE VRFNA1(
47
+ REAL (JX*(N-1)+1) RX
48
+ REAL (JY*(N-1)+1) o RY
49
+ INTEGER N
50
+ INTEGER JX
51
+ INTEGER JY
52
+ REAL RFNA
53
+ )
54
+
55
+ /*****************************************************
56
+ * math1/vralib/vrinc.f
57
+ ****************************************************/
58
+ /*
59
+ * SUBROUTINE VRINC(RX,RY,N,JX,JY,RR)
60
+ * REAL RX(*),RY(*)
61
+ */
62
+ SUBROUTINE VRINC(
63
+ REAL (JX*(N-1)+1) RX
64
+ REAL (JY*(N-1)+1) o RY
65
+ INTEGER N
66
+ INTEGER JX
67
+ INTEGER JY
68
+ REAL RR
69
+ )
70
+
71
+ /*****************************************************
72
+ * math1/vralib/vrinc0.f
73
+ ****************************************************/
74
+ /*
75
+ * SUBROUTINE VRINC0(RX,RY,N,JX,JY,RR)
76
+ * REAL RX(*),RY(*)
77
+ */
78
+ SUBROUTINE VRINC0(
79
+ REAL (JX*(N-1)+1) RX
80
+ REAL (JY*(N-1)+1) o RY
81
+ INTEGER N
82
+ INTEGER JX
83
+ INTEGER JY
84
+ REAL RR
85
+ )
86
+
87
+ /*****************************************************
88
+ * math1/vralib/vrinc1.f
89
+ ****************************************************/
90
+ /*
91
+ * SUBROUTINE VRINC1(RX,RY,N,JX,JY,RR)
92
+ * REAL RX(*),RY(*)
93
+ */
94
+ SUBROUTINE VRINC1(
95
+ REAL (JX*(N-1)+1) RX
96
+ REAL (JY*(N-1)+1) o RY
97
+ INTEGER N
98
+ INTEGER JX
99
+ INTEGER JY
100
+ REAL RR
101
+ )
102
+
103
+ /*****************************************************
104
+ * math1/vralib/vrfct.f
105
+ ****************************************************/
106
+ /*
107
+ * SUBROUTINE VRFCT(RX,RY,N,JX,JY,RR)
108
+ * REAL RX(*),RY(*)
109
+ */
110
+ SUBROUTINE VRFCT(
111
+ REAL (JX*(N-1)+1) RX
112
+ REAL (JY*(N-1)+1) o RY
113
+ INTEGER N
114
+ INTEGER JX
115
+ INTEGER JY
116
+ REAL RR
117
+ )
118
+
119
+ /*****************************************************
120
+ * math1/vralib/vrfct0.f
121
+ ****************************************************/
122
+ /*
123
+ * SUBROUTINE VRFCT0(RX,RY,N,JX,JY,RR)
124
+ * REAL RX(*),RY(*)
125
+ */
126
+ SUBROUTINE VRFCT0(
127
+ REAL (JX*(N-1)+1) RX
128
+ REAL (JY*(N-1)+1) o RY
129
+ INTEGER N
130
+ INTEGER JX
131
+ INTEGER JY
132
+ REAL RR
133
+ )
134
+
135
+ /*****************************************************
136
+ * math1/vralib/vrfct1.f
137
+ ****************************************************/
138
+ /*
139
+ * SUBROUTINE VRFCT1(RX,RY,N,JX,JY,RR)
140
+ * REAL RX(*),RY(*)
141
+ */
142
+ SUBROUTINE VRFCT1(
143
+ REAL (JX*(N-1)+1) RX
144
+ REAL (JY*(N-1)+1) o RY
145
+ INTEGER N
146
+ INTEGER JX
147
+ INTEGER JY
148
+ REAL RR
149
+ )
150
+
151
+ /*****************************************************
152
+ * math1/vralib/vrcon.f
153
+ ****************************************************/
154
+ /*
155
+ * SUBROUTINE VRCON(RX,RY,N,JX,JY,RR)
156
+ * REAL RX(*),RY(*)
157
+ */
158
+ SUBROUTINE VRCON(
159
+ REAL (JX*(N-1)+1) RX
160
+ REAL (JY*(N-1)+1) o RY
161
+ INTEGER N
162
+ INTEGER JX
163
+ INTEGER JY
164
+ REAL RR
165
+ )
166
+
167
+ /*****************************************************
168
+ * math1/vralib/vrcon0.f
169
+ ****************************************************/
170
+ /*
171
+ * SUBROUTINE VRCON0(RX,RY,N,JX,JY,RR)
172
+ * REAL RX(*),RY(*)
173
+ */
174
+ SUBROUTINE VRCON0(
175
+ REAL (JX*(N-1)+1) RX
176
+ REAL (JY*(N-1)+1) o RY
177
+ INTEGER N
178
+ INTEGER JX
179
+ INTEGER JY
180
+ REAL RR
181
+ )
182
+
183
+ /*****************************************************
184
+ * math1/vralib/vrcon1.f
185
+ ****************************************************/
186
+ /*
187
+ * SUBROUTINE VRCON1(RX,RY,N,JX,JY,RR)
188
+ * REAL RX(*),RY(*)
189
+ */
190
+ SUBROUTINE VRCON1(
191
+ REAL (JX*(N-1)+1) RX
192
+ REAL (JY*(N-1)+1) o RY
193
+ INTEGER N
194
+ INTEGER JX
195
+ INTEGER JY
196
+ REAL RR
197
+ )
198
+
199
+ /*****************************************************
200
+ * math1/vralib/vrset.f
201
+ ****************************************************/
202
+ /*
203
+ * SUBROUTINE VRSET(RX,RY,N,JX,JY)
204
+ * REAL RX(*),RY(*)
205
+ */
206
+ SUBROUTINE VRSET(
207
+ REAL (JX*(N-1)+1) RX
208
+ REAL (JY*(N-1)+1) o RY
209
+ INTEGER N
210
+ INTEGER JX
211
+ INTEGER JY
212
+ )
213
+
214
+ /*****************************************************
215
+ * math1/vralib/radd.f
216
+ ****************************************************/
217
+ /*
218
+ * SUBROUTINE RADD(RX,N,JX,RR)
219
+ * REAL RX(*)
220
+ */
221
+ SUBROUTINE RADD(
222
+ REAL (JX*(N-1)+1) io RX
223
+ INTEGER N
224
+ INTEGER JX
225
+ REAL RR
226
+ )
227
+
228
+ /*****************************************************
229
+ * math1/vralib/radd0.f
230
+ ****************************************************/
231
+ /*
232
+ * SUBROUTINE RADD0(RX,N,JX,RR)
233
+ * REAL RX(*)
234
+ */
235
+ SUBROUTINE RADD0(
236
+ REAL (JX*(N-1)+1) io RX
237
+ INTEGER N
238
+ INTEGER JX
239
+ REAL RR
240
+ )
241
+
242
+ /*****************************************************
243
+ * math1/vralib/radd1.f
244
+ ****************************************************/
245
+ /*
246
+ * SUBROUTINE RADD1(RX,N,JX,RR)
247
+ * REAL RX(*)
248
+ */
249
+ SUBROUTINE RADD1(
250
+ REAL (JX*(N-1)+1) io RX
251
+ INTEGER N
252
+ INTEGER JX
253
+ REAL RR
254
+ )
255
+
256
+ /*****************************************************
257
+ * math1/vralib/rmlt.f
258
+ ****************************************************/
259
+ /*
260
+ * SUBROUTINE RMLT(RX,N,JX,RR)
261
+ * REAL RX(*)
262
+ */
263
+ SUBROUTINE RMLT(
264
+ REAL (JX*(N-1)+1) io RX
265
+ INTEGER N
266
+ INTEGER JX
267
+ REAL RR
268
+ )
269
+
270
+ /*****************************************************
271
+ * math1/vralib/rmlt0.f
272
+ ****************************************************/
273
+ /*
274
+ * SUBROUTINE RMLT0(RX,N,JX,RR)
275
+ * REAL RX(*)
276
+ */
277
+ SUBROUTINE RMLT0(
278
+ REAL (JX*(N-1)+1) io RX
279
+ INTEGER N
280
+ INTEGER JX
281
+ REAL RR
282
+ )
283
+
284
+ /*****************************************************
285
+ * math1/vralib/rmlt1.f
286
+ ****************************************************/
287
+ /*
288
+ * SUBROUTINE RMLT1(RX,N,JX,RR)
289
+ * REAL RX(*)
290
+ */
291
+ SUBROUTINE RMLT1(
292
+ REAL (JX*(N-1)+1) io RX
293
+ INTEGER N
294
+ INTEGER JX
295
+ REAL RR
296
+ )
297
+
298
+ /*****************************************************
299
+ * math1/vralib/rset.f
300
+ ****************************************************/
301
+ /*
302
+ * SUBROUTINE RSET(RX,N,JX,RR)
303
+ * REAL RX(*)
304
+ */
305
+ SUBROUTINE RSET(
306
+ REAL (JX*(N-1)+1) io RX
307
+ INTEGER N
308
+ INTEGER JX
309
+ REAL RR
310
+ )
311
+
312
+ /*****************************************************
313
+ * math1/vralib/rset0.f
314
+ ****************************************************/
315
+ /*
316
+ * SUBROUTINE RSET0(RX,N,JX,RR)
317
+ * REAL RX(*)
318
+ */
319
+ SUBROUTINE RSET0(
320
+ REAL (JX*(N-1)+1) io RX
321
+ INTEGER N
322
+ INTEGER JX
323
+ REAL RR
324
+ )
325
+
326
+ /*****************************************************
327
+ * math1/vralib/rset1.f
328
+ ****************************************************/
329
+ /*
330
+ * SUBROUTINE RSET1(RX,N,JX,RR)
331
+ * REAL RX(*)
332
+ */
333
+ SUBROUTINE RSET1(
334
+ REAL (JX*(N-1)+1) io RX
335
+ INTEGER N
336
+ INTEGER JX
337
+ REAL RR
338
+ )
339
+
data/GenWrapper/proto/math1_vrblib.fp ADDED
@@ -0,0 +1,264 @@
1
+ /*
2
+ * math1_vrblib.fp
3
+ *
4
+ * $Id: math1_vrblib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/vrblib/vrfnb.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE VRFNB(RX,RY,RZ,N,JX,JY,JZ,RFNB)
12
+ * REAL RX(*),RY(*),RZ(*)
13
+ */
14
+ SUBROUTINE VRFNB(
15
+ REAL (JX*(N-1)+1) RX
16
+ REAL (JY*(N-1)+1) RY
17
+ REAL (JZ*(N-1)+1) o RZ
18
+ INTEGER N
19
+ INTEGER JX
20
+ INTEGER JY
21
+ INTEGER JZ
22
+ REAL RFNB
23
+ )
24
+
25
+ /*****************************************************
26
+ * math1/vrblib/vrfnb0.f
27
+ ****************************************************/
28
+ /*
29
+ * SUBROUTINE VRFNB0(RX,RY,RZ,N,JX,JY,JZ,RFNB)
30
+ * REAL RX(*),RY(*),RZ(*)
31
+ */
32
+ SUBROUTINE VRFNB0(
33
+ REAL (JX*(N-1)+1) RX
34
+ REAL (JY*(N-1)+1) RY
35
+ REAL (JZ*(N-1)+1) o RZ
36
+ INTEGER N
37
+ INTEGER JX
38
+ INTEGER JY
39
+ INTEGER JZ
40
+ REAL RFNB
41
+ )
42
+
43
+ /*****************************************************
44
+ * math1/vrblib/vrfnb1.f
45
+ ****************************************************/
46
+ /*
47
+ * SUBROUTINE VRFNB1(RX,RY,RZ,N,JX,JY,JZ,RFNB)
48
+ * REAL RX(*),RY(*),RZ(*)
49
+ */
50
+ SUBROUTINE VRFNB1(
51
+ REAL (JX*(N-1)+1) RX
52
+ REAL (JY*(N-1)+1) RY
53
+ REAL (JZ*(N-1)+1) o RZ
54
+ INTEGER N
55
+ INTEGER JX
56
+ INTEGER JY
57
+ INTEGER JZ
58
+ REAL RFNB
59
+ )
60
+
61
+ /*****************************************************
62
+ * math1/vrblib/vradd.f
63
+ ****************************************************/
64
+ /*
65
+ * SUBROUTINE VRADD(RX,RY,RZ,N,JX,JY,JZ)
66
+ * REAL RX(*),RY(*),RZ(*)
67
+ */
68
+ SUBROUTINE VRADD(
69
+ REAL (JX*(N-1)+1) RX
70
+ REAL (JY*(N-1)+1) RY
71
+ REAL (JZ*(N-1)+1) o RZ
72
+ INTEGER N
73
+ INTEGER JX
74
+ INTEGER JY
75
+ INTEGER JZ
76
+ )
77
+
78
+ /*****************************************************
79
+ * math1/vrblib/vradd0.f
80
+ ****************************************************/
81
+ /*
82
+ * SUBROUTINE VRADD0(RX,RY,RZ,N,JX,JY,JZ)
83
+ * REAL RX(*),RY(*),RZ(*)
84
+ */
85
+ SUBROUTINE VRADD0(
86
+ REAL (JX*(N-1)+1) RX
87
+ REAL (JY*(N-1)+1) RY
88
+ REAL (JZ*(N-1)+1) o RZ
89
+ INTEGER N
90
+ INTEGER JX
91
+ INTEGER JY
92
+ INTEGER JZ
93
+ )
94
+
95
+ /*****************************************************
96
+ * math1/vrblib/vradd1.f
97
+ ****************************************************/
98
+ /*
99
+ * SUBROUTINE VRADD1(RX,RY,RZ,N,JX,JY,JZ)
100
+ * REAL RX(*),RY(*),RZ(*)
101
+ */
102
+ SUBROUTINE VRADD1(
103
+ REAL (JX*(N-1)+1) RX
104
+ REAL (JY*(N-1)+1) RY
105
+ REAL (JZ*(N-1)+1) o RZ
106
+ INTEGER N
107
+ INTEGER JX
108
+ INTEGER JY
109
+ INTEGER JZ
110
+ )
111
+
112
+ /*****************************************************
113
+ * math1/vrblib/vrsub.f
114
+ ****************************************************/
115
+ /*
116
+ * SUBROUTINE VRSUB(RX,RY,RZ,N,JX,JY,JZ)
117
+ * REAL RX(*),RY(*),RZ(*)
118
+ */
119
+ SUBROUTINE VRSUB(
120
+ REAL (JX*(N-1)+1) RX
121
+ REAL (JY*(N-1)+1) RY
122
+ REAL (JZ*(N-1)+1) o RZ
123
+ INTEGER N
124
+ INTEGER JX
125
+ INTEGER JY
126
+ INTEGER JZ
127
+ )
128
+
129
+ /*****************************************************
130
+ * math1/vrblib/vrsub0.f
131
+ ****************************************************/
132
+ /*
133
+ * SUBROUTINE VRSUB0(RX,RY,RZ,N,JX,JY,JZ)
134
+ * REAL RX(*),RY(*),RZ(*)
135
+ */
136
+ SUBROUTINE VRSUB0(
137
+ REAL (JX*(N-1)+1) RX
138
+ REAL (JY*(N-1)+1) RY
139
+ REAL (JZ*(N-1)+1) o RZ
140
+ INTEGER N
141
+ INTEGER JX
142
+ INTEGER JY
143
+ INTEGER JZ
144
+ )
145
+
146
+ /*****************************************************
147
+ * math1/vrblib/vrsub1.f
148
+ ****************************************************/
149
+ /*
150
+ * SUBROUTINE VRSUB1(RX,RY,RZ,N,JX,JY,JZ)
151
+ * REAL RX(*),RY(*),RZ(*)
152
+ */
153
+ SUBROUTINE VRSUB1(
154
+ REAL (JX*(N-1)+1) RX
155
+ REAL (JY*(N-1)+1) RY
156
+ REAL (JZ*(N-1)+1) o RZ
157
+ INTEGER N
158
+ INTEGER JX
159
+ INTEGER JY
160
+ INTEGER JZ
161
+ )
162
+
163
+ /*****************************************************
164
+ * math1/vrblib/vrmlt.f
165
+ ****************************************************/
166
+ /*
167
+ * SUBROUTINE VRMLT(RX,RY,RZ,N,JX,JY,JZ)
168
+ * REAL RX(*),RY(*),RZ(*)
169
+ */
170
+ SUBROUTINE VRMLT(
171
+ REAL (JX*(N-1)+1) RX
172
+ REAL (JY*(N-1)+1) RY
173
+ REAL (JZ*(N-1)+1) o RZ
174
+ INTEGER N
175
+ INTEGER JX
176
+ INTEGER JY
177
+ INTEGER JZ
178
+ )
179
+
180
+ /*****************************************************
181
+ * math1/vrblib/vrmlt0.f
182
+ ****************************************************/
183
+ /*
184
+ * SUBROUTINE VRMLT0(RX,RY,RZ,N,JX,JY,JZ)
185
+ * REAL RX(*),RY(*),RZ(*)
186
+ */
187
+ SUBROUTINE VRMLT0(
188
+ REAL (JX*(N-1)+1) RX
189
+ REAL (JY*(N-1)+1) RY
190
+ REAL (JZ*(N-1)+1) o RZ
191
+ INTEGER N
192
+ INTEGER JX
193
+ INTEGER JY
194
+ INTEGER JZ
195
+ )
196
+
197
+ /*****************************************************
198
+ * math1/vrblib/vrmlt1.f
199
+ ****************************************************/
200
+ /*
201
+ * SUBROUTINE VRMLT1(RX,RY,RZ,N,JX,JY,JZ)
202
+ * REAL RX(*),RY(*),RZ(*)
203
+ */
204
+ SUBROUTINE VRMLT1(
205
+ REAL (JX*(N-1)+1) RX
206
+ REAL (JY*(N-1)+1) RY
207
+ REAL (JZ*(N-1)+1) o RZ
208
+ INTEGER N
209
+ INTEGER JX
210
+ INTEGER JY
211
+ INTEGER JZ
212
+ )
213
+
214
+ /*****************************************************
215
+ * math1/vrblib/vrdiv.f
216
+ ****************************************************/
217
+ /*
218
+ * SUBROUTINE VRDIV(RX,RY,RZ,N,JX,JY,JZ)
219
+ * REAL RX(*),RY(*),RZ(*)
220
+ */
221
+ SUBROUTINE VRDIV(
222
+ REAL (JX*(N-1)+1) RX
223
+ REAL (JY*(N-1)+1) RY
224
+ REAL (JZ*(N-1)+1) o RZ
225
+ INTEGER N
226
+ INTEGER JX
227
+ INTEGER JY
228
+ INTEGER JZ
229
+ )
230
+
231
+ /*****************************************************
232
+ * math1/vrblib/vrdiv0.f
233
+ ****************************************************/
234
+ /*
235
+ * SUBROUTINE VRDIV0(RX,RY,RZ,N,JX,JY,JZ)
236
+ * REAL RX(*),RY(*),RZ(*)
237
+ */
238
+ SUBROUTINE VRDIV0(
239
+ REAL (JX*(N-1)+1) RX
240
+ REAL (JY*(N-1)+1) RY
241
+ REAL (JZ*(N-1)+1) o RZ
242
+ INTEGER N
243
+ INTEGER JX
244
+ INTEGER JY
245
+ INTEGER JZ
246
+ )
247
+
248
+ /*****************************************************
249
+ * math1/vrblib/vrdiv1.f
250
+ ****************************************************/
251
+ /*
252
+ * SUBROUTINE VRDIV1(RX,RY,RZ,N,JX,JY,JZ)
253
+ * REAL RX(*),RY(*),RZ(*)
254
+ */
255
+ SUBROUTINE VRDIV1(
256
+ REAL (JX*(N-1)+1) RX
257
+ REAL (JY*(N-1)+1) RY
258
+ REAL (JZ*(N-1)+1) o RZ
259
+ INTEGER N
260
+ INTEGER JX
261
+ INTEGER JY
262
+ INTEGER JZ
263
+ )
264
+