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/math1_vialib.fp ADDED
@@ -0,0 +1,339 @@
1
+ /*
2
+ * math1_vialib.fp
3
+ *
4
+ * $Id: math1_vialib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/vialib/vifna.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE VIFNA(IX,IY,N,JX,JY,IFNA)
12
+ * INTEGER IX(*),IY(*)
13
+ */
14
+ SUBROUTINE VIFNA(
15
+ INTEGER (JX*(N-1)+1) IX
16
+ INTEGER (JY*(N-1)+1) o IY
17
+ INTEGER N
18
+ INTEGER JX
19
+ INTEGER JY
20
+ INTEGER IFNA
21
+ )
22
+
23
+ /*****************************************************
24
+ * math1/vialib/vifna0.f
25
+ ****************************************************/
26
+ /*
27
+ * SUBROUTINE VIFNA0(IX,IY,N,JX,JY,IFNA)
28
+ * INTEGER IX(*),IY(*)
29
+ */
30
+ SUBROUTINE VIFNA0(
31
+ INTEGER (JX*(N-1)+1) IX
32
+ INTEGER (JY*(N-1)+1) o IY
33
+ INTEGER N
34
+ INTEGER JX
35
+ INTEGER JY
36
+ INTEGER IFNA
37
+ )
38
+
39
+ /*****************************************************
40
+ * math1/vialib/vifna1.f
41
+ ****************************************************/
42
+ /*
43
+ * SUBROUTINE VIFNA1(IX,IY,N,JX,JY,IFNA)
44
+ * INTEGER IX(*),IY(*)
45
+ */
46
+ SUBROUTINE VIFNA1(
47
+ INTEGER (JX*(N-1)+1) IX
48
+ INTEGER (JY*(N-1)+1) o IY
49
+ INTEGER N
50
+ INTEGER JX
51
+ INTEGER JY
52
+ INTEGER IFNA
53
+ )
54
+
55
+ /*****************************************************
56
+ * math1/vialib/viinc.f
57
+ ****************************************************/
58
+ /*
59
+ * SUBROUTINE VIINC(IX,IY,N,JX,JY,II)
60
+ * INTEGER IX(*),IY(*)
61
+ */
62
+ SUBROUTINE VIINC(
63
+ INTEGER (JX*(N-1)+1) IX
64
+ INTEGER (JY*(N-1)+1) o IY
65
+ INTEGER N
66
+ INTEGER JX
67
+ INTEGER JY
68
+ INTEGER II
69
+ )
70
+
71
+ /*****************************************************
72
+ * math1/vialib/viinc0.f
73
+ ****************************************************/
74
+ /*
75
+ * SUBROUTINE VIINC0(IX,IY,N,JX,JY,II)
76
+ * INTEGER IX(*),IY(*)
77
+ */
78
+ SUBROUTINE VIINC0(
79
+ INTEGER (JX*(N-1)+1) IX
80
+ INTEGER (JY*(N-1)+1) o IY
81
+ INTEGER N
82
+ INTEGER JX
83
+ INTEGER JY
84
+ INTEGER II
85
+ )
86
+
87
+ /*****************************************************
88
+ * math1/vialib/viinc1.f
89
+ ****************************************************/
90
+ /*
91
+ * SUBROUTINE VIINC1(IX,IY,N,JX,JY,II)
92
+ * INTEGER IX(*),IY(*)
93
+ */
94
+ SUBROUTINE VIINC1(
95
+ INTEGER (JX*(N-1)+1) IX
96
+ INTEGER (JY*(N-1)+1) o IY
97
+ INTEGER N
98
+ INTEGER JX
99
+ INTEGER JY
100
+ INTEGER II
101
+ )
102
+
103
+ /*****************************************************
104
+ * math1/vialib/vifct.f
105
+ ****************************************************/
106
+ /*
107
+ * SUBROUTINE VIFCT(IX,IY,N,JX,JY,II)
108
+ * INTEGER IX(*),IY(*)
109
+ */
110
+ SUBROUTINE VIFCT(
111
+ INTEGER (JX*(N-1)+1) IX
112
+ INTEGER (JY*(N-1)+1) o IY
113
+ INTEGER N
114
+ INTEGER JX
115
+ INTEGER JY
116
+ INTEGER II
117
+ )
118
+
119
+ /*****************************************************
120
+ * math1/vialib/vifct0.f
121
+ ****************************************************/
122
+ /*
123
+ * SUBROUTINE VIFCT0(IX,IY,N,JX,JY,II)
124
+ * INTEGER IX(*),IY(*)
125
+ */
126
+ SUBROUTINE VIFCT0(
127
+ INTEGER (JX*(N-1)+1) IX
128
+ INTEGER (JY*(N-1)+1) o IY
129
+ INTEGER N
130
+ INTEGER JX
131
+ INTEGER JY
132
+ INTEGER II
133
+ )
134
+
135
+ /*****************************************************
136
+ * math1/vialib/vifct1.f
137
+ ****************************************************/
138
+ /*
139
+ * SUBROUTINE VIFCT1(IX,IY,N,JX,JY,II)
140
+ * INTEGER IX(*),IY(*)
141
+ */
142
+ SUBROUTINE VIFCT1(
143
+ INTEGER (JX*(N-1)+1) IX
144
+ INTEGER (JY*(N-1)+1) o IY
145
+ INTEGER N
146
+ INTEGER JX
147
+ INTEGER JY
148
+ INTEGER II
149
+ )
150
+
151
+ /*****************************************************
152
+ * math1/vialib/vicon.f
153
+ ****************************************************/
154
+ /*
155
+ * SUBROUTINE VICON(IX,IY,N,JX,JY,II)
156
+ * INTEGER IX(*),IY(*)
157
+ */
158
+ SUBROUTINE VICON(
159
+ INTEGER (JX*(N-1)+1) IX
160
+ INTEGER (JY*(N-1)+1) o IY
161
+ INTEGER N
162
+ INTEGER JX
163
+ INTEGER JY
164
+ INTEGER II
165
+ )
166
+
167
+ /*****************************************************
168
+ * math1/vialib/vicon0.f
169
+ ****************************************************/
170
+ /*
171
+ * SUBROUTINE VICON0(IX,IY,N,JX,JY,II)
172
+ * INTEGER IX(*),IY(*)
173
+ */
174
+ SUBROUTINE VICON0(
175
+ INTEGER (JX*(N-1)+1) IX
176
+ INTEGER (JY*(N-1)+1) o IY
177
+ INTEGER N
178
+ INTEGER JX
179
+ INTEGER JY
180
+ INTEGER II
181
+ )
182
+
183
+ /*****************************************************
184
+ * math1/vialib/vicon1.f
185
+ ****************************************************/
186
+ /*
187
+ * SUBROUTINE VICON1(IX,IY,N,JX,JY,II)
188
+ * INTEGER IX(*),IY(*)
189
+ */
190
+ SUBROUTINE VICON1(
191
+ INTEGER (JX*(N-1)+1) IX
192
+ INTEGER (JY*(N-1)+1) o IY
193
+ INTEGER N
194
+ INTEGER JX
195
+ INTEGER JY
196
+ INTEGER II
197
+ )
198
+
199
+ /*****************************************************
200
+ * math1/vialib/viset.f
201
+ ****************************************************/
202
+ /*
203
+ * SUBROUTINE VISET(IX,IY,N,JX,JY)
204
+ * INTEGER IX(*),IY(*)
205
+ */
206
+ SUBROUTINE VISET(
207
+ INTEGER (JX*(N-1)+1) IX
208
+ INTEGER (JY*(N-1)+1) o IY
209
+ INTEGER N
210
+ INTEGER JX
211
+ INTEGER JY
212
+ )
213
+
214
+ /*****************************************************
215
+ * math1/vialib/iadd.f
216
+ ****************************************************/
217
+ /*
218
+ * SUBROUTINE IADD(IX,N,JX,II)
219
+ * INTEGER IX(*)
220
+ */
221
+ SUBROUTINE IADD(
222
+ INTEGER (JX*(N-1)+1) io IX
223
+ INTEGER N
224
+ INTEGER JX
225
+ INTEGER II
226
+ )
227
+
228
+ /*****************************************************
229
+ * math1/vialib/iadd0.f
230
+ ****************************************************/
231
+ /*
232
+ * SUBROUTINE IADD0(IX,N,JX,II)
233
+ * INTEGER IX(*)
234
+ */
235
+ SUBROUTINE IADD0(
236
+ INTEGER (JX*(N-1)+1) io IX
237
+ INTEGER N
238
+ INTEGER JX
239
+ INTEGER II
240
+ )
241
+
242
+ /*****************************************************
243
+ * math1/vialib/iadd1.f
244
+ ****************************************************/
245
+ /*
246
+ * SUBROUTINE IADD1(IX,N,JX,II)
247
+ * INTEGER IX(*)
248
+ */
249
+ SUBROUTINE IADD1(
250
+ INTEGER (JX*(N-1)+1) io IX
251
+ INTEGER N
252
+ INTEGER JX
253
+ INTEGER II
254
+ )
255
+
256
+ /*****************************************************
257
+ * math1/vialib/imlt.f
258
+ ****************************************************/
259
+ /*
260
+ * SUBROUTINE IMLT(IX,N,JX,II)
261
+ * INTEGER IX(*)
262
+ */
263
+ SUBROUTINE IMLT(
264
+ INTEGER (JX*(N-1)+1) io IX
265
+ INTEGER N
266
+ INTEGER JX
267
+ INTEGER II
268
+ )
269
+
270
+ /*****************************************************
271
+ * math1/vialib/imlt0.f
272
+ ****************************************************/
273
+ /*
274
+ * SUBROUTINE IMLT0(IX,N,JX,II)
275
+ * INTEGER IX(*)
276
+ */
277
+ SUBROUTINE IMLT0(
278
+ INTEGER (JX*(N-1)+1) io IX
279
+ INTEGER N
280
+ INTEGER JX
281
+ INTEGER II
282
+ )
283
+
284
+ /*****************************************************
285
+ * math1/vialib/imlt1.f
286
+ ****************************************************/
287
+ /*
288
+ * SUBROUTINE IMLT1(IX,N,JX,II)
289
+ * INTEGER IX(*)
290
+ */
291
+ SUBROUTINE IMLT1(
292
+ INTEGER (JX*(N-1)+1) io IX
293
+ INTEGER N
294
+ INTEGER JX
295
+ INTEGER II
296
+ )
297
+
298
+ /*****************************************************
299
+ * math1/vialib/iset.f
300
+ ****************************************************/
301
+ /*
302
+ * SUBROUTINE ISET(IX,N,JX,II)
303
+ * INTEGER IX(*)
304
+ */
305
+ SUBROUTINE ISET(
306
+ INTEGER (JX*(N-1)+1) io IX
307
+ INTEGER N
308
+ INTEGER JX
309
+ INTEGER II
310
+ )
311
+
312
+ /*****************************************************
313
+ * math1/vialib/iset0.f
314
+ ****************************************************/
315
+ /*
316
+ * SUBROUTINE ISET0(IX,N,JX,II)
317
+ * INTEGER IX(*)
318
+ */
319
+ SUBROUTINE ISET0(
320
+ INTEGER (JX*(N-1)+1) io IX
321
+ INTEGER N
322
+ INTEGER JX
323
+ INTEGER II
324
+ )
325
+
326
+ /*****************************************************
327
+ * math1/vialib/iset1.f
328
+ ****************************************************/
329
+ /*
330
+ * SUBROUTINE ISET1(IX,N,JX,II)
331
+ * INTEGER IX(*)
332
+ */
333
+ SUBROUTINE ISET1(
334
+ INTEGER (JX*(N-1)+1) io IX
335
+ INTEGER N
336
+ INTEGER JX
337
+ INTEGER II
338
+ )
339
+
data/GenWrapper/proto/math1_viblib.fp ADDED
@@ -0,0 +1,264 @@
1
+ /*
2
+ * math1_viblib.fp
3
+ *
4
+ * $Id: math1_viblib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/viblib/vifnb.f
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE VIFNB(IX,IY,IZ,N,JX,JY,JZ,IFNB)
12
+ * INTEGER IX(*),IY(*),IZ(*)
13
+ */
14
+ SUBROUTINE VIFNB(
15
+ INTEGER (JX*(N-1)+1) IX
16
+ INTEGER (JY*(N-1)+1) IY
17
+ INTEGER (JZ*(N-1)+1) o IZ
18
+ INTEGER N
19
+ INTEGER JX
20
+ INTEGER JY
21
+ INTEGER JZ
22
+ INTEGER IFNB
23
+ )
24
+
25
+ /*****************************************************
26
+ * math1/viblib/vifnb0.f
27
+ ****************************************************/
28
+ /*
29
+ * SUBROUTINE VIFNB0(IX,IY,IZ,N,JX,JY,JZ,IFNB)
30
+ * INTEGER IX(*),IY(*),IZ(*)
31
+ */
32
+ SUBROUTINE VIFNB0(
33
+ INTEGER (JX*(N-1)+1) IX
34
+ INTEGER (JY*(N-1)+1) IY
35
+ INTEGER (JZ*(N-1)+1) o IZ
36
+ INTEGER N
37
+ INTEGER JX
38
+ INTEGER JY
39
+ INTEGER JZ
40
+ INTEGER IFNB
41
+ )
42
+
43
+ /*****************************************************
44
+ * math1/viblib/vifnb1.f
45
+ ****************************************************/
46
+ /*
47
+ * SUBROUTINE VIFNB1(IX,IY,IZ,N,JX,JY,JZ,IFNB)
48
+ * INTEGER IX(*),IY(*),IZ(*)
49
+ */
50
+ SUBROUTINE VIFNB1(
51
+ INTEGER (JX*(N-1)+1) IX
52
+ INTEGER (JY*(N-1)+1) IY
53
+ INTEGER (JZ*(N-1)+1) o IZ
54
+ INTEGER N
55
+ INTEGER JX
56
+ INTEGER JY
57
+ INTEGER JZ
58
+ INTEGER IFNB
59
+ )
60
+
61
+ /*****************************************************
62
+ * math1/viblib/viadd.f
63
+ ****************************************************/
64
+ /*
65
+ * SUBROUTINE VIADD(IX,IY,IZ,N,JX,JY,JZ)
66
+ * INTEGER IX(*),IY(*),IZ(*)
67
+ */
68
+ SUBROUTINE VIADD(
69
+ INTEGER (JX*(N-1)+1) IX
70
+ INTEGER (JY*(N-1)+1) IY
71
+ INTEGER (JZ*(N-1)+1) o IZ
72
+ INTEGER N
73
+ INTEGER JX
74
+ INTEGER JY
75
+ INTEGER JZ
76
+ )
77
+
78
+ /*****************************************************
79
+ * math1/viblib/viadd0.f
80
+ ****************************************************/
81
+ /*
82
+ * SUBROUTINE VIADD0(IX,IY,IZ,N,JX,JY,JZ)
83
+ * INTEGER IX(*),IY(*),IZ(*)
84
+ */
85
+ SUBROUTINE VIADD0(
86
+ INTEGER (JX*(N-1)+1) IX
87
+ INTEGER (JY*(N-1)+1) IY
88
+ INTEGER (JZ*(N-1)+1) o IZ
89
+ INTEGER N
90
+ INTEGER JX
91
+ INTEGER JY
92
+ INTEGER JZ
93
+ )
94
+
95
+ /*****************************************************
96
+ * math1/viblib/viadd1.f
97
+ ****************************************************/
98
+ /*
99
+ * SUBROUTINE VIADD1(IX,IY,IZ,N,JX,JY,JZ)
100
+ * INTEGER IX(*),IY(*),IZ(*)
101
+ */
102
+ SUBROUTINE VIADD1(
103
+ INTEGER (JX*(N-1)+1) IX
104
+ INTEGER (JY*(N-1)+1) IY
105
+ INTEGER (JZ*(N-1)+1) o IZ
106
+ INTEGER N
107
+ INTEGER JX
108
+ INTEGER JY
109
+ INTEGER JZ
110
+ )
111
+
112
+ /*****************************************************
113
+ * math1/viblib/visub.f
114
+ ****************************************************/
115
+ /*
116
+ * SUBROUTINE VISUB(IX,IY,IZ,N,JX,JY,JZ)
117
+ * INTEGER IX(*),IY(*),IZ(*)
118
+ */
119
+ SUBROUTINE VISUB(
120
+ INTEGER (JX*(N-1)+1) IX
121
+ INTEGER (JY*(N-1)+1) IY
122
+ INTEGER (JZ*(N-1)+1) o IZ
123
+ INTEGER N
124
+ INTEGER JX
125
+ INTEGER JY
126
+ INTEGER JZ
127
+ )
128
+
129
+ /*****************************************************
130
+ * math1/viblib/visub0.f
131
+ ****************************************************/
132
+ /*
133
+ * SUBROUTINE VISUB0(IX,IY,IZ,N,JX,JY,JZ)
134
+ * INTEGER IX(*),IY(*),IZ(*)
135
+ */
136
+ SUBROUTINE VISUB0(
137
+ INTEGER (JX*(N-1)+1) IX
138
+ INTEGER (JY*(N-1)+1) IY
139
+ INTEGER (JZ*(N-1)+1) o IZ
140
+ INTEGER N
141
+ INTEGER JX
142
+ INTEGER JY
143
+ INTEGER JZ
144
+ )
145
+
146
+ /*****************************************************
147
+ * math1/viblib/visub1.f
148
+ ****************************************************/
149
+ /*
150
+ * SUBROUTINE VISUB1(IX,IY,IZ,N,JX,JY,JZ)
151
+ * INTEGER IX(*),IY(*),IZ(*)
152
+ */
153
+ SUBROUTINE VISUB1(
154
+ INTEGER (JX*(N-1)+1) IX
155
+ INTEGER (JY*(N-1)+1) IY
156
+ INTEGER (JZ*(N-1)+1) o IZ
157
+ INTEGER N
158
+ INTEGER JX
159
+ INTEGER JY
160
+ INTEGER JZ
161
+ )
162
+
163
+ /*****************************************************
164
+ * math1/viblib/vimlt.f
165
+ ****************************************************/
166
+ /*
167
+ * SUBROUTINE VIMLT(IX,IY,IZ,N,JX,JY,JZ)
168
+ * INTEGER IX(*),IY(*),IZ(*)
169
+ */
170
+ SUBROUTINE VIMLT(
171
+ INTEGER (JX*(N-1)+1) IX
172
+ INTEGER (JY*(N-1)+1) IY
173
+ INTEGER (JZ*(N-1)+1) o IZ
174
+ INTEGER N
175
+ INTEGER JX
176
+ INTEGER JY
177
+ INTEGER JZ
178
+ )
179
+
180
+ /*****************************************************
181
+ * math1/viblib/vimlt0.f
182
+ ****************************************************/
183
+ /*
184
+ * SUBROUTINE VIMLT0(IX,IY,IZ,N,JX,JY,JZ)
185
+ * INTEGER IX(*),IY(*),IZ(*)
186
+ */
187
+ SUBROUTINE VIMLT0(
188
+ INTEGER (JX*(N-1)+1) IX
189
+ INTEGER (JY*(N-1)+1) IY
190
+ INTEGER (JZ*(N-1)+1) o IZ
191
+ INTEGER N
192
+ INTEGER JX
193
+ INTEGER JY
194
+ INTEGER JZ
195
+ )
196
+
197
+ /*****************************************************
198
+ * math1/viblib/vimlt1.f
199
+ ****************************************************/
200
+ /*
201
+ * SUBROUTINE VIMLT1(IX,IY,IZ,N,JX,JY,JZ)
202
+ * INTEGER IX(*),IY(*),IZ(*)
203
+ */
204
+ SUBROUTINE VIMLT1(
205
+ INTEGER (JX*(N-1)+1) IX
206
+ INTEGER (JY*(N-1)+1) IY
207
+ INTEGER (JZ*(N-1)+1) o IZ
208
+ INTEGER N
209
+ INTEGER JX
210
+ INTEGER JY
211
+ INTEGER JZ
212
+ )
213
+
214
+ /*****************************************************
215
+ * math1/viblib/vidiv.f
216
+ ****************************************************/
217
+ /*
218
+ * SUBROUTINE VIDIV(IX,IY,IZ,N,JX,JY,JZ)
219
+ * INTEGER IX(*),IY(*),IZ(*)
220
+ */
221
+ SUBROUTINE VIDIV(
222
+ INTEGER (JX*(N-1)+1) IX
223
+ INTEGER (JY*(N-1)+1) IY
224
+ INTEGER (JZ*(N-1)+1) o IZ
225
+ INTEGER N
226
+ INTEGER JX
227
+ INTEGER JY
228
+ INTEGER JZ
229
+ )
230
+
231
+ /*****************************************************
232
+ * math1/viblib/vidiv0.f
233
+ ****************************************************/
234
+ /*
235
+ * SUBROUTINE VIDIV0(IX,IY,IZ,N,JX,JY,JZ)
236
+ * INTEGER IX(*),IY(*),IZ(*)
237
+ */
238
+ SUBROUTINE VIDIV0(
239
+ INTEGER (JX*(N-1)+1) IX
240
+ INTEGER (JY*(N-1)+1) IY
241
+ INTEGER (JZ*(N-1)+1) o IZ
242
+ INTEGER N
243
+ INTEGER JX
244
+ INTEGER JY
245
+ INTEGER JZ
246
+ )
247
+
248
+ /*****************************************************
249
+ * math1/viblib/vidiv1.f
250
+ ****************************************************/
251
+ /*
252
+ * SUBROUTINE VIDIV1(IX,IY,IZ,N,JX,JY,JZ)
253
+ * INTEGER IX(*),IY(*),IZ(*)
254
+ */
255
+ SUBROUTINE VIDIV1(
256
+ INTEGER (JX*(N-1)+1) IX
257
+ INTEGER (JY*(N-1)+1) IY
258
+ INTEGER (JZ*(N-1)+1) o IZ
259
+ INTEGER N
260
+ INTEGER JX
261
+ INTEGER JY
262
+ INTEGER JZ
263
+ )
264
+