ruby-dcl 1.7.1 → 1.8.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (307) hide show
  1. checksums.yaml +4 -4
  2. data/{ChangeLog → .ChangeLog.until20150318} +0 -0
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -1
  6. data/demo/gokuraku/jump/jump1.rb +1 -1
  7. data/demo/gokuraku/jump/jump2.rb +1 -1
  8. data/demo/gokuraku/layout/lay1.rb +1 -1
  9. data/demo/gokuraku/layout/lay2.rb +1 -1
  10. data/demo/gokuraku/step/step0.rb +1 -1
  11. data/demo/gokuraku/step/step1.rb +1 -1
  12. data/demo/gokuraku/step/step2.rb +1 -1
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -1
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -1
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -1
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -1
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -1
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -1
  19. data/demo/grph1/scpack/scpkt2.rb +1 -1
  20. data/demo/grph1/scpack/scpkt3.rb +1 -1
  21. data/demo/grph1/scpack/scpkt6.rb +1 -1
  22. data/demo/grph1/scpack/scpkt7.rb +1 -1
  23. data/demo/grph1/scpack/scpkt8.rb +1 -1
  24. data/demo/grph1/sgpack/sgfont.rb +1 -1
  25. data/demo/grph1/sgpack/sgfonz.rb +1 -1
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -1
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -1
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -1
  29. data/demo/grph1/sgpack/sglidx.rb +1 -1
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -1
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -1
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -1
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -1
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -1
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -1
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -1
  37. data/demo/grph1/sgpack/sgpk07.rb +1 -1
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -1
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -1
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -1
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -1
  42. data/demo/grph1/sgpack/sgtone.rb +1 -1
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -1
  44. data/demo/grph1/slpack/slpk01.rb +1 -1
  45. data/demo/grph1/slpack/slpk02.rb +1 -1
  46. data/demo/grph1/slpack/slpk03.rb +1 -1
  47. data/demo/grph1/slpack/slpk04.rb +1 -1
  48. data/demo/grph2/grpack/grpk01.rb +1 -1
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -1
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -1
  51. data/demo/grph2/udegpk/u2df01.rb +1 -1
  52. data/demo/grph2/udegpk/u2df02.rb +1 -1
  53. data/demo/grph2/udegpk/u2df03.rb +1 -1
  54. data/demo/grph2/udegpk/u2df04.rb +1 -1
  55. data/demo/grph2/udegpk/u2df05.rb +1 -1
  56. data/demo/grph2/udegpk/u2df06.rb +1 -1
  57. data/demo/grph2/udegpk/u2df07.rb +1 -1
  58. data/demo/grph2/udegpk/u2df08.rb +1 -1
  59. data/demo/grph2/uipack/uipk01.rb +1 -1
  60. data/demo/grph2/uipack/uipk02.rb +1 -1
  61. data/demo/grph2/ulpack/ulpk01.rb +1 -1
  62. data/demo/grph2/ulpack/ulpk01n.rb +1 -1
  63. data/demo/grph2/ulpack/ulpk02.rb +1 -1
  64. data/demo/grph2/ulpack/ulpk02n.rb +1 -1
  65. data/demo/grph2/umpack/test01.rb +1 -1
  66. data/demo/grph2/umpack/test02.rb +1 -1
  67. data/demo/grph2/umpack/test03.rb +1 -1
  68. data/demo/grph2/umpack/test04.rb +1 -1
  69. data/demo/grph2/umpack/test05.rb +1 -1
  70. data/demo/grph2/umpack/test06.rb +1 -1
  71. data/demo/grph2/umpack/test07.rb +1 -1
  72. data/demo/grph2/umpack/test08.rb +1 -1
  73. data/demo/grph2/umpack/umpk01.rb +1 -1
  74. data/demo/grph2/umpack/umpk02.rb +1 -1
  75. data/demo/grph2/umpack/umpk03.rb +1 -1
  76. data/demo/grph2/umpack/umpk04.rb +1 -1
  77. data/demo/grph2/umpack/umpk05.rb +1 -1
  78. data/demo/grph2/uspack/uspk01.rb +1 -1
  79. data/demo/grph2/uspack/uspk02.rb +1 -1
  80. data/demo/grph2/uspack/uspk03.rb +1 -1
  81. data/demo/grph2/uspack/uspk04.rb +1 -1
  82. data/demo/grph2/uspack/uspk05.rb +1 -1
  83. data/demo/grph2/uspack/uspk06.rb +1 -1
  84. data/demo/grph2/uspack/uspk07.rb +1 -1
  85. data/demo/grph2/uspack/uspk08.rb +1 -1
  86. data/demo/grph2/uspack/uspk09.rb +1 -1
  87. data/demo/grph2/uspack/uspk10.rb +1 -1
  88. data/demo/grph2/uspack/uspk11.rb +1 -1
  89. data/demo/grph2/uspack/uspk12.rb +1 -1
  90. data/demo/grph2/uupack/uupk01.rb +1 -1
  91. data/demo/grph2/uupack/uupk02.rb +1 -1
  92. data/demo/grph2/uupack/uupk03.rb +1 -1
  93. data/demo/grph2/uupack/uupk04.rb +1 -1
  94. data/demo/grph2/uupack/uupk05.rb +1 -1
  95. data/demo/grph2/uupack/uupk06.rb +1 -1
  96. data/demo/grph2/uupack/uupk07.rb +1 -1
  97. data/demo/grph2/uxyzpk/uxyz01.rb +1 -1
  98. data/demo/grph2/uxyzpk/uxyz02.rb +1 -1
  99. data/demo/grph2/uxyzpk/uxyz03.rb +1 -1
  100. data/demo/grph2/uxyzpk/uxyz04.rb +1 -1
  101. data/demo/grph2/uxyzpk/uxyz05.rb +1 -1
  102. data/demo/grph2/uxyzpk/uxyz06.rb +1 -1
  103. data/demo/grph2/uxyzpk/uxyz07.rb +1 -1
  104. data/demo/grph2/uxyzpk/uxyz08.rb +1 -1
  105. data/demo/grph2/uxyzpk/uxyz09.rb +1 -1
  106. data/demo/grph2/uxyzpk/uxyz10.rb +1 -1
  107. data/demo/grph2/ximage/ximg01.rb +1 -1
  108. data/demo/math1/clsplib/cslb01.rb +1 -1
  109. data/demo/math2/fftlib/fftl01.rb +1 -1
  110. data/demo/math2/fftlib/fftl02.rb +1 -1
  111. data/demo/math2/intrlib/intr01.rb +1 -1
  112. data/demo/math2/rnmlib/rnml01.rb +1 -1
  113. data/demo/math2/vstlib/vstl01.rb +1 -1
  114. data/demo/math2/vstlib/vstl02.rb +1 -1
  115. data/demo/rakuraku/color/color1.rb +1 -1
  116. data/demo/rakuraku/color/color2.rb +1 -1
  117. data/demo/rakuraku/color/color3.rb +1 -1
  118. data/demo/rakuraku/kihon/kihon1.rb +1 -1
  119. data/demo/rakuraku/kihon/kihon2.rb +1 -1
  120. data/demo/rakuraku/kihon/kihon3.rb +1 -1
  121. data/demo/rakuraku/kihon/kihon4.rb +1 -1
  122. data/demo/rakuraku/kihon/kihon5.rb +1 -1
  123. data/demo/rakuraku/kihon/kihon6.rb +1 -1
  124. data/demo/rakuraku/kihon/kihon7.rb +1 -1
  125. data/demo/rakuraku/kihon/kihon8.rb +1 -1
  126. data/demo/rakuraku/kihon/kihon9.rb +1 -1
  127. data/demo/rakuraku/kihon/kihona.rb +1 -1
  128. data/demo/rakuraku/kihon/kihonb.rb +1 -1
  129. data/demo/rakuraku/kihon/kihonc.rb +1 -1
  130. data/demo/rakuraku/layout/lay1.rb +1 -1
  131. data/demo/rakuraku/layout/lay2.rb +1 -1
  132. data/demo/rakuraku/layout/lay3.rb +1 -1
  133. data/demo/rakuraku/map3d/map3d1.rb +1 -1
  134. data/demo/rakuraku/map3d/map3d2.rb +1 -1
  135. data/demo/rakuraku/map3d/map3d3.rb +1 -1
  136. data/demo/rakuraku/map3d/map3d4.rb +1 -1
  137. data/demo/rakuraku/map3d/map3d5.rb +1 -1
  138. data/demo/rakuraku/miss/miss1.rb +1 -1
  139. data/demo/rakuraku/miss/miss2.rb +1 -1
  140. data/demo/rakuraku/quick/quick1.rb +1 -1
  141. data/demo/rakuraku/quick/quick2.rb +1 -1
  142. data/demo/rakuraku/quick/quick3.rb +1 -1
  143. data/demo/rakuraku/quick/quick4.rb +1 -1
  144. data/demo/rakuraku/quick/quick5.rb +1 -1
  145. data/demo/rakuraku/u2d/u2d1.rb +1 -1
  146. data/demo/rakuraku/u2d/u2d2.rb +1 -1
  147. data/demo/rakuraku/u2d/u2d3.rb +1 -1
  148. data/demo/rakuraku/u2d/u2d4.rb +1 -1
  149. data/demo/rakuraku/u2d/u2d5.rb +1 -1
  150. data/demo/rakuraku/u2d/u2d6.rb +1 -1
  151. data/demo/rakuraku/u2d/u2d7.rb +1 -1
  152. data/demo/rakuraku/uspack/uspac1.rb +1 -1
  153. data/demo/rakuraku/uspack/uspac2.rb +1 -1
  154. data/demo/rakuraku/uspack/uspac3.rb +1 -1
  155. data/demo/rakuraku/uspack/uspac4.rb +1 -1
  156. data/demo/rakuraku/uxyz/uxyz1.rb +1 -1
  157. data/demo/rakuraku/uxyz/uxyz2.rb +1 -1
  158. data/demo/rakuraku/uxyz/uxyz3.rb +1 -1
  159. data/demo/rakuraku/uxyz/uxyz4.rb +1 -1
  160. data/demo/rakuraku/uxyz/uxyz5.rb +1 -1
  161. data/demo/rakuraku/uxyz/uxyz6.rb +1 -1
  162. data/demo/rakuraku/uxyz/uxyz7.rb +1 -1
  163. data/demo/rakuraku/uxyz/uxyz8.rb +1 -1
  164. data/ext/numru/dcl_cary2obj.c +28 -23
  165. data/ext/numru/dcl_obj2cary.c +8 -4
  166. data/ext/numru/dcl_rubydcloriginal.c +14 -4
  167. data/ext/numru/extconf.rb +9 -51
  168. data/ext/numru/grph1_csgi.c +9 -5
  169. data/ext/numru/grph1_scpack.c +9 -5
  170. data/ext/numru/grph1_sgpack.c +9 -5
  171. data/ext/numru/grph1_slpack.c +9 -5
  172. data/ext/numru/grph1_stpack.c +9 -5
  173. data/ext/numru/grph1_swpack.c +69 -5
  174. data/ext/numru/grph2_grpack.c +9 -5
  175. data/ext/numru/grph2_ucpack.c +9 -5
  176. data/ext/numru/grph2_udpack.c +9 -5
  177. data/ext/numru/grph2_uepack.c +9 -5
  178. data/ext/numru/grph2_ugpack.c +9 -5
  179. data/ext/numru/grph2_uhpack.c +9 -5
  180. data/ext/numru/grph2_uipack.c +9 -5
  181. data/ext/numru/grph2_ulpack.c +9 -5
  182. data/ext/numru/grph2_umpack.c +9 -5
  183. data/ext/numru/grph2_uspack.c +9 -5
  184. data/ext/numru/grph2_uupack.c +9 -5
  185. data/ext/numru/grph2_uvpack.c +9 -5
  186. data/ext/numru/grph2_uwpack.c +9 -5
  187. data/ext/numru/grph2_uxpack.c +9 -5
  188. data/ext/numru/grph2_uypack.c +9 -5
  189. data/ext/numru/grph2_uzpack.c +9 -5
  190. data/ext/numru/init.c +202 -0
  191. data/ext/numru/init.c.default +7 -0
  192. data/ext/numru/math1_blklib.c +9 -5
  193. data/ext/numru/math1_chrlib.c +9 -5
  194. data/ext/numru/math1_clsplib.c +9 -5
  195. data/ext/numru/math1_fnclib.c +9 -5
  196. data/ext/numru/math1_gnmlib.c +9 -5
  197. data/ext/numru/math1_gt2dlib.c +9 -5
  198. data/ext/numru/math1_ifalib.c +9 -5
  199. data/ext/numru/math1_indxlib.c +9 -5
  200. data/ext/numru/math1_intlib.c +9 -5
  201. data/ext/numru/math1_lrllib.c +9 -5
  202. data/ext/numru/math1_maplib.c +9 -5
  203. data/ext/numru/math1_oslib.c +9 -5
  204. data/ext/numru/math1_rfalib.c +9 -5
  205. data/ext/numru/math1_rfblib.c +9 -5
  206. data/ext/numru/math1_sublib.c +9 -5
  207. data/ext/numru/math1_syslib.c +9 -5
  208. data/ext/numru/math1_vialib.c +9 -5
  209. data/ext/numru/math1_viblib.c +9 -5
  210. data/ext/numru/math1_vralib.c +9 -5
  211. data/ext/numru/math1_vrblib.c +9 -5
  212. data/ext/numru/math1_xfclib.c +9 -5
  213. data/ext/numru/math2_fftlib.c +9 -5
  214. data/ext/numru/math2_intrlib.c +9 -5
  215. data/ext/numru/math2_rnmlib.c +9 -5
  216. data/ext/numru/math2_shtlib.c +9 -5
  217. data/ext/numru/math2_vstlib.c +9 -5
  218. data/ext/numru/misc1_chnlib.c +9 -5
  219. data/ext/numru/misc1_datelib.c +9 -5
  220. data/ext/numru/misc1_fmtlib.c +9 -5
  221. data/ext/numru/misc1_misclib.c +9 -5
  222. data/ext/numru/misc1_randlib.c +9 -5
  223. data/ext/numru/misc1_timelib.c +9 -5
  224. data/lib/numru/dcl.rb +6 -5580
  225. data/lib/numru/dcl/dcl.rb +5591 -0
  226. data/lib/numru/dcl/version.rb +5 -0
  227. data/ruby-dcl-bigmem.gemspec +36 -0
  228. data/ruby-dcl.gemspec +10 -9
  229. metadata +17 -93
  230. data/.gitignore +0 -13
  231. data/.rspec +0 -2
  232. data/.travis.yml +0 -3
  233. data/GenWrapper/cproto2init.rb +0 -41
  234. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  235. data/GenWrapper/dcl_rb_footing +0 -29
  236. data/GenWrapper/dcl_rb_heading +0 -123
  237. data/GenWrapper/def.rb +0 -20
  238. data/GenWrapper/elim_ary_size.rb +0 -398
  239. data/GenWrapper/etc/p_header +0 -64
  240. data/GenWrapper/pparse.rb +0 -137
  241. data/GenWrapper/proto/grph1_00 +0 -17
  242. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  243. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  244. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  245. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  246. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  247. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  248. data/GenWrapper/proto/grph2_00 +0 -16
  249. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  250. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  251. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  252. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  253. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  254. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  255. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  256. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  257. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  258. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  259. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  260. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  261. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  262. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  263. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  264. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  265. data/GenWrapper/proto/math1_00 +0 -12
  266. data/GenWrapper/proto/math1_blklib.fp +0 -58
  267. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  268. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  269. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  270. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  271. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  272. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  273. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  274. data/GenWrapper/proto/math1_intlib.fp +0 -46
  275. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  276. data/GenWrapper/proto/math1_maplib.fp +0 -24
  277. data/GenWrapper/proto/math1_oslib.fp +0 -28
  278. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  279. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  280. data/GenWrapper/proto/math1_sublib.fp +0 -60
  281. data/GenWrapper/proto/math1_syslib.fp +0 -767
  282. data/GenWrapper/proto/math1_vialib.fp +0 -339
  283. data/GenWrapper/proto/math1_viblib.fp +0 -264
  284. data/GenWrapper/proto/math1_vralib.fp +0 -339
  285. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  286. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  287. data/GenWrapper/proto/math2_00 +0 -12
  288. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  289. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  290. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  291. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  292. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  293. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  294. data/GenWrapper/proto/misc1_00 +0 -17
  295. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  296. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  297. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  298. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  299. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  300. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  301. data/GenWrapper/proto2c.rb +0 -13
  302. data/GenWrapper/prototype.rb +0 -209
  303. data/GenWrapper/util.rb +0 -9
  304. data/GenWrapper/variable.rb +0 -671
  305. data/ToDo +0 -2
  306. data/bin/console +0 -14
  307. data/bin/setup +0 -7
data/GenWrapper/proto/math1_vralib.fp DELETED
@@ -1,339 +0,0 @@
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 DELETED
@@ -1,264 +0,0 @@
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
-