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