ruby-dcl 1.7.1 → 1.8.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 (327) hide show
  1. checksums.yaml +5 -5
  2. data/ChangeLog +1149 -365
  3. data/LICENSE.txt +1 -1
  4. data/Rakefile +7 -11
  5. data/demo/gokuraku/hop/hop.rb +1 -2
  6. data/demo/gokuraku/jump/jump1.rb +1 -2
  7. data/demo/gokuraku/jump/jump2.rb +2 -3
  8. data/demo/gokuraku/layout/lay1.rb +1 -2
  9. data/demo/gokuraku/layout/lay2.rb +1 -2
  10. data/demo/gokuraku/step/step0.rb +1 -2
  11. data/demo/gokuraku/step/step1.rb +1 -2
  12. data/demo/gokuraku/step/step2.rb +1 -2
  13. data/demo/gokuraku/u1d/u1d1.rb +1 -2
  14. data/demo/gokuraku/u1d/u1d2.rb +1 -2
  15. data/demo/gokuraku/u2d/u2d1.rb +1 -2
  16. data/demo/gokuraku/u2d/u2d2.rb +1 -2
  17. data/demo/gokuraku/u2d/u2d3.rb +1 -2
  18. data/demo/gokuraku/u2d/u2d4.rb +1 -2
  19. data/demo/grph1/scpack/scpkt2.rb +1 -2
  20. data/demo/grph1/scpack/scpkt3.rb +1 -2
  21. data/demo/grph1/scpack/scpkt6.rb +1 -2
  22. data/demo/grph1/scpack/scpkt7.rb +1 -2
  23. data/demo/grph1/scpack/scpkt8.rb +1 -2
  24. data/demo/grph1/sgpack/sgfont.rb +2 -3
  25. data/demo/grph1/sgpack/sgfonz.rb +2 -3
  26. data/demo/grph1/sgpack/sgksx1.rb +1 -2
  27. data/demo/grph1/sgpack/sgksx2.rb +1 -2
  28. data/demo/grph1/sgpack/sgksx3.rb +1 -2
  29. data/demo/grph1/sgpack/sglidx.rb +1 -2
  30. data/demo/grph1/sgpack/sgltyp.rb +1 -2
  31. data/demo/grph1/sgpack/sgpk01.rb +1 -2
  32. data/demo/grph1/sgpack/sgpk02.rb +1 -2
  33. data/demo/grph1/sgpack/sgpk03.rb +1 -2
  34. data/demo/grph1/sgpack/sgpk04.rb +1 -2
  35. data/demo/grph1/sgpack/sgpk05.rb +1 -2
  36. data/demo/grph1/sgpack/sgpk06.rb +1 -2
  37. data/demo/grph1/sgpack/sgpk07.rb +9 -8
  38. data/demo/grph1/sgpack/sgpk08.rb +1 -2
  39. data/demo/grph1/sgpack/sgpk09.rb +1 -2
  40. data/demo/grph1/sgpack/sgpk10.rb +1 -2
  41. data/demo/grph1/sgpack/sgtclr.rb +1 -2
  42. data/demo/grph1/sgpack/sgtone.rb +1 -2
  43. data/demo/grph1/sgpack/sgtonz.rb +1 -2
  44. data/demo/grph1/slpack/slpk01.rb +1 -2
  45. data/demo/grph1/slpack/slpk02.rb +1 -2
  46. data/demo/grph1/slpack/slpk03.rb +1 -2
  47. data/demo/grph1/slpack/slpk04.rb +2 -3
  48. data/demo/grph2/grpack/grpk01.rb +1 -2
  49. data/demo/grph2/ucpack/ucpk01.rb +1 -2
  50. data/demo/grph2/ucpack/ucpk02.rb +1 -2
  51. data/demo/grph2/udegpk/u2df01.rb +1 -2
  52. data/demo/grph2/udegpk/u2df02.rb +1 -2
  53. data/demo/grph2/udegpk/u2df03.rb +3 -4
  54. data/demo/grph2/udegpk/u2df04.rb +1 -2
  55. data/demo/grph2/udegpk/u2df05.rb +1 -2
  56. data/demo/grph2/udegpk/u2df06.rb +1 -2
  57. data/demo/grph2/udegpk/u2df07.rb +1 -2
  58. data/demo/grph2/udegpk/u2df08.rb +1 -2
  59. data/demo/grph2/udegpk/u2df09b.rb +0 -1
  60. data/demo/grph2/udegpk/u2df09c.rb +0 -1
  61. data/demo/grph2/udegpk/u2df09e.rb +0 -1
  62. data/demo/grph2/udegpk/u2df09f.rb +0 -1
  63. data/demo/grph2/uipack/uipk01.rb +1 -2
  64. data/demo/grph2/uipack/uipk02.rb +26 -18
  65. data/demo/grph2/uipack/uipk03.rb +50 -0
  66. data/demo/grph2/ulpack/ulpk01.rb +1 -2
  67. data/demo/grph2/ulpack/ulpk01n.rb +1 -2
  68. data/demo/grph2/ulpack/ulpk02.rb +1 -2
  69. data/demo/grph2/ulpack/ulpk02n.rb +1 -2
  70. data/demo/grph2/umpack/test01.rb +1 -2
  71. data/demo/grph2/umpack/test02.rb +1 -2
  72. data/demo/grph2/umpack/test03.rb +1 -2
  73. data/demo/grph2/umpack/test04.rb +2 -3
  74. data/demo/grph2/umpack/test05.rb +1 -2
  75. data/demo/grph2/umpack/test05r.rb +86 -0
  76. data/demo/grph2/umpack/test06.rb +1 -2
  77. data/demo/grph2/umpack/test07.rb +1 -2
  78. data/demo/grph2/umpack/test08.rb +1 -2
  79. data/demo/grph2/umpack/test10.rb +0 -1
  80. data/demo/grph2/umpack/umpk01.rb +1 -2
  81. data/demo/grph2/umpack/umpk02.rb +1 -2
  82. data/demo/grph2/umpack/umpk03.rb +1 -2
  83. data/demo/grph2/umpack/umpk04.rb +1 -2
  84. data/demo/grph2/umpack/umpk05.rb +1 -2
  85. data/demo/grph2/uspack/uspk01.rb +1 -2
  86. data/demo/grph2/uspack/uspk02.rb +1 -2
  87. data/demo/grph2/uspack/uspk03.rb +1 -2
  88. data/demo/grph2/uspack/uspk04.rb +1 -2
  89. data/demo/grph2/uspack/uspk05.rb +1 -2
  90. data/demo/grph2/uspack/uspk06.rb +2 -3
  91. data/demo/grph2/uspack/uspk07.rb +1 -2
  92. data/demo/grph2/uspack/uspk08.rb +2 -3
  93. data/demo/grph2/uspack/uspk09.rb +1 -2
  94. data/demo/grph2/uspack/uspk10.rb +1 -2
  95. data/demo/grph2/uspack/uspk11.rb +1 -2
  96. data/demo/grph2/uspack/uspk12.rb +1 -2
  97. data/demo/grph2/uupack/uupk01.rb +1 -2
  98. data/demo/grph2/uupack/uupk02.rb +1 -2
  99. data/demo/grph2/uupack/uupk03.rb +1 -2
  100. data/demo/grph2/uupack/uupk04.rb +1 -2
  101. data/demo/grph2/uupack/uupk05.rb +1 -2
  102. data/demo/grph2/uupack/uupk06.rb +1 -2
  103. data/demo/grph2/uupack/uupk07.rb +1 -2
  104. data/demo/grph2/uxyzpk/uxyz01.rb +1 -2
  105. data/demo/grph2/uxyzpk/uxyz02.rb +1 -2
  106. data/demo/grph2/uxyzpk/uxyz03.rb +1 -2
  107. data/demo/grph2/uxyzpk/uxyz04.rb +1 -2
  108. data/demo/grph2/uxyzpk/uxyz05.rb +1 -2
  109. data/demo/grph2/uxyzpk/uxyz06.rb +1 -2
  110. data/demo/grph2/uxyzpk/uxyz07.rb +1 -2
  111. data/demo/grph2/uxyzpk/uxyz08.rb +1 -2
  112. data/demo/grph2/uxyzpk/uxyz09.rb +1 -2
  113. data/demo/grph2/uxyzpk/uxyz10.rb +1 -2
  114. data/demo/grph2/ximage/ximg01.rb +2 -3
  115. data/demo/math1/clsplib/cslb01.rb +1 -2
  116. data/demo/math2/fftlib/fftl01.rb +1 -2
  117. data/demo/math2/fftlib/fftl02.rb +1 -2
  118. data/demo/math2/intrlib/intr01.rb +1 -2
  119. data/demo/math2/rnmlib/rnml01.rb +1 -2
  120. data/demo/math2/vstlib/vstl01.rb +1 -2
  121. data/demo/math2/vstlib/vstl02.rb +1 -2
  122. data/demo/misc2/tmpack/tmpk01.rb +46 -0
  123. data/demo/misc2/tmpack/tmpk02.rb +58 -0
  124. data/demo/misc2/tmpack/tmpk03.rb +56 -0
  125. data/demo/rakuraku/color/color1.rb +1 -2
  126. data/demo/rakuraku/color/color2.rb +5 -5
  127. data/demo/rakuraku/color/color3.rb +1 -2
  128. data/demo/rakuraku/kihon/kihon1.rb +1 -2
  129. data/demo/rakuraku/kihon/kihon2.rb +1 -2
  130. data/demo/rakuraku/kihon/kihon3.rb +1 -2
  131. data/demo/rakuraku/kihon/kihon4.rb +1 -2
  132. data/demo/rakuraku/kihon/kihon5.rb +1 -2
  133. data/demo/rakuraku/kihon/kihon6.rb +1 -2
  134. data/demo/rakuraku/kihon/kihon7.rb +10 -5
  135. data/demo/rakuraku/kihon/kihon8.rb +1 -2
  136. data/demo/rakuraku/kihon/kihon9.rb +1 -2
  137. data/demo/rakuraku/kihon/kihona.rb +1 -2
  138. data/demo/rakuraku/kihon/kihonb.rb +12 -11
  139. data/demo/rakuraku/kihon/kihonc.rb +1 -2
  140. data/demo/rakuraku/layout/lay1.rb +1 -2
  141. data/demo/rakuraku/layout/lay2.rb +1 -2
  142. data/demo/rakuraku/layout/lay3.rb +1 -2
  143. data/demo/rakuraku/map3d/map3d1.rb +1 -2
  144. data/demo/rakuraku/map3d/map3d2.rb +1 -2
  145. data/demo/rakuraku/map3d/map3d3.rb +1 -2
  146. data/demo/rakuraku/map3d/map3d4.rb +1 -2
  147. data/demo/rakuraku/map3d/map3d5.rb +1 -2
  148. data/demo/rakuraku/map3d/map3d6.rb +0 -1
  149. data/demo/rakuraku/map3d/map3d7.rb +0 -1
  150. data/demo/rakuraku/miss/miss1.rb +1 -2
  151. data/demo/rakuraku/miss/miss2.rb +1 -2
  152. data/demo/rakuraku/quick/quick1.rb +1 -2
  153. data/demo/rakuraku/quick/quick2.rb +1 -2
  154. data/demo/rakuraku/quick/quick3.rb +1 -2
  155. data/demo/rakuraku/quick/quick4.rb +1 -2
  156. data/demo/rakuraku/quick/quick5.rb +1 -2
  157. data/demo/rakuraku/u2d/u2d1.rb +1 -2
  158. data/demo/rakuraku/u2d/u2d2.rb +1 -2
  159. data/demo/rakuraku/u2d/u2d3.rb +1 -2
  160. data/demo/rakuraku/u2d/u2d4.rb +1 -2
  161. data/demo/rakuraku/u2d/u2d5.rb +1 -2
  162. data/demo/rakuraku/u2d/u2d6.rb +1 -2
  163. data/demo/rakuraku/u2d/u2d7.rb +1 -2
  164. data/demo/rakuraku/uspack/uspac1.rb +2 -3
  165. data/demo/rakuraku/uspack/uspac2.rb +1 -2
  166. data/demo/rakuraku/uspack/uspac3.rb +2 -3
  167. data/demo/rakuraku/uspack/uspac4.rb +1 -2
  168. data/demo/rakuraku/uxyz/uxyz1.rb +1 -2
  169. data/demo/rakuraku/uxyz/uxyz2.rb +1 -2
  170. data/demo/rakuraku/uxyz/uxyz3.rb +1 -2
  171. data/demo/rakuraku/uxyz/uxyz4.rb +1 -2
  172. data/demo/rakuraku/uxyz/uxyz5.rb +1 -2
  173. data/demo/rakuraku/uxyz/uxyz6.rb +1 -2
  174. data/demo/rakuraku/uxyz/uxyz7.rb +1 -2
  175. data/demo/rakuraku/uxyz/uxyz8.rb +1 -2
  176. data/demo/rubydcloriginal/uemrkz1.rb +0 -1
  177. data/ext/numru/dcl_cary2obj.c +29 -24
  178. data/ext/numru/dcl_narrayed_funcs.c +21 -21
  179. data/ext/numru/dcl_obj2cary.c +9 -5
  180. data/ext/numru/dcl_rubydcloriginal.c +14 -5
  181. data/ext/numru/extconf.rb +73 -61
  182. data/ext/numru/grph1_csgi.c +38 -8
  183. data/ext/numru/grph1_scpack.c +49 -46
  184. data/ext/numru/grph1_sgpack.c +167 -164
  185. data/ext/numru/grph1_slpack.c +23 -20
  186. data/ext/numru/grph1_stpack.c +44 -41
  187. data/ext/numru/grph1_swpack.c +155 -92
  188. data/ext/numru/grph2_grpack.c +22 -19
  189. data/ext/numru/grph2_ucpack.c +55 -52
  190. data/ext/numru/grph2_udpack.c +61 -58
  191. data/ext/numru/grph2_uepack.c +60 -57
  192. data/ext/numru/grph2_ugpack.c +49 -46
  193. data/ext/numru/grph2_uhpack.c +25 -22
  194. data/ext/numru/grph2_uipack.c +57 -54
  195. data/ext/numru/grph2_ulpack.c +59 -56
  196. data/ext/numru/grph2_umpack.c +75 -72
  197. data/ext/numru/grph2_uspack.c +97 -94
  198. data/ext/numru/grph2_uupack.c +78 -75
  199. data/ext/numru/grph2_uvpack.c +25 -22
  200. data/ext/numru/grph2_uwpack.c +30 -27
  201. data/ext/numru/grph2_uxpack.c +23 -20
  202. data/ext/numru/grph2_uypack.c +23 -20
  203. data/ext/numru/grph2_uzpack.c +69 -66
  204. data/ext/numru/init.c.default +6 -2
  205. data/ext/numru/math1_blklib.c +13 -10
  206. data/ext/numru/math1_chrlib.c +16 -13
  207. data/ext/numru/math1_clsplib.c +13 -10
  208. data/ext/numru/math1_fnclib.c +16 -13
  209. data/ext/numru/math1_gnmlib.c +21 -18
  210. data/ext/numru/math1_gt2dlib.c +18 -15
  211. data/ext/numru/math1_ifalib.c +18 -15
  212. data/ext/numru/math1_indxlib.c +24 -21
  213. data/ext/numru/math1_intlib.c +13 -10
  214. data/ext/numru/math1_lrllib.c +33 -30
  215. data/ext/numru/math1_maplib.c +14 -11
  216. data/ext/numru/math1_oslib.c +11 -8
  217. data/ext/numru/math1_rfalib.c +39 -36
  218. data/ext/numru/math1_rfblib.c +12 -9
  219. data/ext/numru/math1_sublib.c +13 -10
  220. data/ext/numru/math1_syslib.c +82 -79
  221. data/ext/numru/math1_vialib.c +31 -28
  222. data/ext/numru/math1_viblib.c +24 -21
  223. data/ext/numru/math1_vralib.c +31 -28
  224. data/ext/numru/math1_vrblib.c +24 -21
  225. data/ext/numru/math1_xfclib.c +12 -9
  226. data/ext/numru/math2_fftlib.c +28 -25
  227. data/ext/numru/math2_intrlib.c +11 -8
  228. data/ext/numru/math2_rnmlib.c +12 -9
  229. data/ext/numru/math2_shtlib.c +34 -31
  230. data/ext/numru/math2_vstlib.c +15 -12
  231. data/ext/numru/misc1_chnlib.c +12 -9
  232. data/ext/numru/misc1_datelib.c +36 -33
  233. data/ext/numru/misc1_fmtlib.c +10 -7
  234. data/ext/numru/misc1_misclib.c +11 -8
  235. data/ext/numru/misc1_randlib.c +13 -10
  236. data/ext/numru/misc1_timelib.c +20 -17
  237. data/ext/numru/misc2_tmpack.c +1200 -0
  238. data/lib/numru/dcl/dcl.rb +5676 -0
  239. data/lib/numru/dcl/version.rb +5 -0
  240. data/lib/numru/dcl.rb +6 -5580
  241. data/ruby-dcl.gemspec +13 -9
  242. metadata +25 -99
  243. data/.gitignore +0 -13
  244. data/.rspec +0 -2
  245. data/.travis.yml +0 -3
  246. data/GenWrapper/Makefile +0 -15
  247. data/GenWrapper/cproto2init.rb +0 -41
  248. data/GenWrapper/dcl_narrayed_funcs.rb +0 -181
  249. data/GenWrapper/dcl_rb_footing +0 -29
  250. data/GenWrapper/dcl_rb_heading +0 -123
  251. data/GenWrapper/def.rb +0 -20
  252. data/GenWrapper/elim_ary_size.rb +0 -398
  253. data/GenWrapper/etc/p_header +0 -64
  254. data/GenWrapper/pparse.rb +0 -137
  255. data/GenWrapper/proto/Makefile +0 -36
  256. data/GenWrapper/proto/grph1_00 +0 -17
  257. data/GenWrapper/proto/grph1_csgi.fp +0 -27
  258. data/GenWrapper/proto/grph1_scpack.fp +0 -442
  259. data/GenWrapper/proto/grph1_sgpack.fp +0 -1772
  260. data/GenWrapper/proto/grph1_slpack.fp +0 -316
  261. data/GenWrapper/proto/grph1_stpack.fp +0 -455
  262. data/GenWrapper/proto/grph1_swpack.fp +0 -826
  263. data/GenWrapper/proto/grph2_00 +0 -16
  264. data/GenWrapper/proto/grph2_grpack.fp +0 -139
  265. data/GenWrapper/proto/grph2_ucpack.fp +0 -522
  266. data/GenWrapper/proto/grph2_udpack.fp +0 -692
  267. data/GenWrapper/proto/grph2_uepack.fp +0 -601
  268. data/GenWrapper/proto/grph2_ugpack.fp +0 -436
  269. data/GenWrapper/proto/grph2_uhpack.fp +0 -246
  270. data/GenWrapper/proto/grph2_uipack.fp +0 -508
  271. data/GenWrapper/proto/grph2_ulpack.fp +0 -516
  272. data/GenWrapper/proto/grph2_umpack.fp +0 -676
  273. data/GenWrapper/proto/grph2_uspack.fp +0 -989
  274. data/GenWrapper/proto/grph2_uupack.fp +0 -663
  275. data/GenWrapper/proto/grph2_uvpack.fp +0 -246
  276. data/GenWrapper/proto/grph2_uwpack.fp +0 -203
  277. data/GenWrapper/proto/grph2_uxpack.fp +0 -295
  278. data/GenWrapper/proto/grph2_uypack.fp +0 -295
  279. data/GenWrapper/proto/grph2_uzpack.fp +0 -574
  280. data/GenWrapper/proto/math1_00 +0 -12
  281. data/GenWrapper/proto/math1_blklib.fp +0 -58
  282. data/GenWrapper/proto/math1_chrlib.fp +0 -83
  283. data/GenWrapper/proto/math1_clsplib.fp +0 -74
  284. data/GenWrapper/proto/math1_fnclib.fp +0 -79
  285. data/GenWrapper/proto/math1_gnmlib.fp +0 -118
  286. data/GenWrapper/proto/math1_gt2dlib.fp +0 -144
  287. data/GenWrapper/proto/math1_ifalib.fp +0 -123
  288. data/GenWrapper/proto/math1_indxlib.fp +0 -222
  289. data/GenWrapper/proto/math1_intlib.fp +0 -46
  290. data/GenWrapper/proto/math1_lrllib.fp +0 -276
  291. data/GenWrapper/proto/math1_maplib.fp +0 -24
  292. data/GenWrapper/proto/math1_oslib.fp +0 -28
  293. data/GenWrapper/proto/math1_rfalib.fp +0 -420
  294. data/GenWrapper/proto/math1_rfblib.fp +0 -51
  295. data/GenWrapper/proto/math1_sublib.fp +0 -60
  296. data/GenWrapper/proto/math1_syslib.fp +0 -767
  297. data/GenWrapper/proto/math1_vialib.fp +0 -339
  298. data/GenWrapper/proto/math1_viblib.fp +0 -264
  299. data/GenWrapper/proto/math1_vralib.fp +0 -339
  300. data/GenWrapper/proto/math1_vrblib.fp +0 -264
  301. data/GenWrapper/proto/math1_xfclib.fp +0 -68
  302. data/GenWrapper/proto/math2_00 +0 -12
  303. data/GenWrapper/proto/math2_fftlib.fp +0 -803
  304. data/GenWrapper/proto/math2_intrlib.fp +0 -32
  305. data/GenWrapper/proto/math2_odelib.fp_notused +0 -568
  306. data/GenWrapper/proto/math2_rnmlib.fp +0 -54
  307. data/GenWrapper/proto/math2_shtlib.fp +0 -1292
  308. data/GenWrapper/proto/math2_vstlib.fp +0 -84
  309. data/GenWrapper/proto/misc1_00 +0 -17
  310. data/GenWrapper/proto/misc1_chnlib.fp +0 -47
  311. data/GenWrapper/proto/misc1_datelib.fp +0 -352
  312. data/GenWrapper/proto/misc1_fmtlib.fp +0 -19
  313. data/GenWrapper/proto/misc1_misclib.fp +0 -26
  314. data/GenWrapper/proto/misc1_randlib.fp +0 -50
  315. data/GenWrapper/proto/misc1_timelib.fp +0 -151
  316. data/GenWrapper/proto2c.rb +0 -13
  317. data/GenWrapper/prototype.rb +0 -209
  318. data/GenWrapper/util.rb +0 -9
  319. data/GenWrapper/variable.rb +0 -671
  320. data/README +0 -29
  321. data/ToDo +0 -2
  322. data/bin/console +0 -14
  323. data/bin/setup +0 -7
  324. data/demo/grph2/ximage/MEMO +0 -23
  325. data/obsolete/README +0 -2
  326. data/obsolete/dcl_ext.html +0 -112
  327. data/obsolete/dcl_ext.rb +0 -313
data/GenWrapper/proto/math1_rfalib.fp DELETED
@@ -1,420 +0,0 @@
1
- /*
2
- * math1_rfalib.fp
3
- *
4
- * $Id: math1_rfalib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/rfalib/rmax.f
9
- ****************************************************/
10
- /*
11
- * REAL FUNCTION RMAX(RX,N,JX)
12
- * REAL RX(*)
13
- */
14
- REAL FUNCTION RMAX(
15
- REAL (JX*(N-1)+1) RX
16
- INTEGER N
17
- INTEGER JX
18
- )
19
-
20
- /*****************************************************
21
- * math1/rfalib/rmax0.f
22
- ****************************************************/
23
- /*
24
- * REAL FUNCTION RMAX0(RX,N,JX)
25
- * REAL RX(*)
26
- */
27
- REAL FUNCTION RMAX0(
28
- REAL (JX*(N-1)+1) RX
29
- INTEGER N
30
- INTEGER JX
31
- )
32
-
33
- /*****************************************************
34
- * math1/rfalib/rmax1.f
35
- ****************************************************/
36
- /*
37
- * REAL FUNCTION RMAX1(RX,N,JX)
38
- * REAL RX(*)
39
- */
40
- REAL FUNCTION RMAX1(
41
- REAL (JX*(N-1)+1) RX
42
- INTEGER N
43
- INTEGER JX
44
- )
45
-
46
- /*****************************************************
47
- * math1/rfalib/rmin.f
48
- ****************************************************/
49
- /*
50
- * REAL FUNCTION RMIN(RX,N,JX)
51
- * REAL RX(*)
52
- */
53
- REAL FUNCTION RMIN(
54
- REAL (JX*(N-1)+1) RX
55
- INTEGER N
56
- INTEGER JX
57
- )
58
-
59
- /*****************************************************
60
- * math1/rfalib/rmin0.f
61
- ****************************************************/
62
- /*
63
- * REAL FUNCTION RMIN0(RX,N,JX)
64
- * REAL RX(*)
65
- */
66
- REAL FUNCTION RMIN0(
67
- REAL (JX*(N-1)+1) RX
68
- INTEGER N
69
- INTEGER JX
70
- )
71
-
72
- /*****************************************************
73
- * math1/rfalib/rmin1.f
74
- ****************************************************/
75
- /*
76
- * REAL FUNCTION RMIN1(RX,N,JX)
77
- * REAL RX(*)
78
- */
79
- REAL FUNCTION RMIN1(
80
- REAL (JX*(N-1)+1) RX
81
- INTEGER N
82
- INTEGER JX
83
- )
84
-
85
- /*****************************************************
86
- * math1/rfalib/rsum.f
87
- ****************************************************/
88
- /*
89
- * REAL FUNCTION RSUM(RX,N,JX)
90
- * REAL RX(*)
91
- */
92
- REAL FUNCTION RSUM(
93
- REAL (JX*(N-1)+1) RX
94
- INTEGER N
95
- INTEGER JX
96
- )
97
-
98
- /*****************************************************
99
- * math1/rfalib/rsum0.f
100
- ****************************************************/
101
- /*
102
- * REAL FUNCTION RSUM0(RX,N,JX)
103
- * REAL RX(*)
104
- */
105
- REAL FUNCTION RSUM0(
106
- REAL (JX*(N-1)+1) RX
107
- INTEGER N
108
- INTEGER JX
109
- )
110
-
111
- /*****************************************************
112
- * math1/rfalib/rsum1.f
113
- ****************************************************/
114
- /*
115
- * REAL FUNCTION RSUM1(RX,N,JX)
116
- * REAL RX(*)
117
- */
118
- REAL FUNCTION RSUM1(
119
- REAL (JX*(N-1)+1) RX
120
- INTEGER N
121
- INTEGER JX
122
- )
123
-
124
- /*****************************************************
125
- * math1/rfalib/rave.f
126
- ****************************************************/
127
- /*
128
- * REAL FUNCTION RAVE(RX,N,JX)
129
- * REAL RX(*)
130
- */
131
- REAL FUNCTION RAVE(
132
- REAL (JX*(N-1)+1) RX
133
- INTEGER N
134
- INTEGER JX
135
- )
136
-
137
- /*****************************************************
138
- * math1/rfalib/rave0.f
139
- ****************************************************/
140
- /*
141
- * REAL FUNCTION RAVE0(RX,N,JX)
142
- * REAL RX(*)
143
- */
144
- REAL FUNCTION RAVE0(
145
- REAL (JX*(N-1)+1) RX
146
- INTEGER N
147
- INTEGER JX
148
- )
149
-
150
- /*****************************************************
151
- * math1/rfalib/rave1.f
152
- ****************************************************/
153
- /*
154
- * REAL FUNCTION RAVE1(RX,N,JX)
155
- * REAL RX(*)
156
- */
157
- REAL FUNCTION RAVE1(
158
- REAL (JX*(N-1)+1) RX
159
- INTEGER N
160
- INTEGER JX
161
- )
162
-
163
- /*****************************************************
164
- * math1/rfalib/rvar.f
165
- ****************************************************/
166
- /*
167
- * REAL FUNCTION RVAR(RX,N,JX)
168
- * REAL RX(*)
169
- */
170
- REAL FUNCTION RVAR(
171
- REAL (JX*(N-1)+1) RX
172
- INTEGER N
173
- INTEGER JX
174
- )
175
-
176
- /*****************************************************
177
- * math1/rfalib/rvar0.f
178
- ****************************************************/
179
- /*
180
- * REAL FUNCTION RVAR0(RX,N,JX)
181
- * REAL RX(*)
182
- */
183
- REAL FUNCTION RVAR0(
184
- REAL (JX*(N-1)+1) RX
185
- INTEGER N
186
- INTEGER JX
187
- )
188
-
189
- /*****************************************************
190
- * math1/rfalib/rvar1.f
191
- ****************************************************/
192
- /*
193
- * REAL FUNCTION RVAR1(RX,N,JX)
194
- * REAL RX(*)
195
- */
196
- REAL FUNCTION RVAR1(
197
- REAL (JX*(N-1)+1) RX
198
- INTEGER N
199
- INTEGER JX
200
- )
201
-
202
- /*****************************************************
203
- * math1/rfalib/rstd.f
204
- ****************************************************/
205
- /*
206
- * REAL FUNCTION RSTD(RX,N,JX)
207
- * REAL RX(*)
208
- */
209
- REAL FUNCTION RSTD(
210
- REAL (JX*(N-1)+1) RX
211
- INTEGER N
212
- INTEGER JX
213
- )
214
-
215
- /*****************************************************
216
- * math1/rfalib/rstd0.f
217
- ****************************************************/
218
- /*
219
- * REAL FUNCTION RSTD0(RX,N,JX)
220
- * REAL RX(*)
221
- */
222
- REAL FUNCTION RSTD0(
223
- REAL (JX*(N-1)+1) RX
224
- INTEGER N
225
- INTEGER JX
226
- )
227
-
228
- /*****************************************************
229
- * math1/rfalib/rstd1.f
230
- ****************************************************/
231
- /*
232
- * REAL FUNCTION RSTD1(RX,N,JX)
233
- * REAL RX(*)
234
- */
235
- REAL FUNCTION RSTD1(
236
- REAL (JX*(N-1)+1) RX
237
- INTEGER N
238
- INTEGER JX
239
- )
240
-
241
- /*****************************************************
242
- * math1/rfalib/rrms.f
243
- ****************************************************/
244
- /*
245
- * REAL FUNCTION RRMS(RX,N,JX)
246
- * REAL RX(*)
247
- */
248
- REAL FUNCTION RRMS(
249
- REAL (JX*(N-1)+1) RX
250
- INTEGER N
251
- INTEGER JX
252
- )
253
-
254
- /*****************************************************
255
- * math1/rfalib/rrms0.f
256
- ****************************************************/
257
- /*
258
- * REAL FUNCTION RRMS0(RX,N,JX)
259
- * REAL RX(*)
260
- */
261
- REAL FUNCTION RRMS0(
262
- REAL (JX*(N-1)+1) RX
263
- INTEGER N
264
- INTEGER JX
265
- )
266
-
267
- /*****************************************************
268
- * math1/rfalib/rrms1.f
269
- ****************************************************/
270
- /*
271
- * REAL FUNCTION RRMS1(RX,N,JX)
272
- * REAL RX(*)
273
- */
274
- REAL FUNCTION RRMS1(
275
- REAL (JX*(N-1)+1) RX
276
- INTEGER N
277
- INTEGER JX
278
- )
279
-
280
- /*****************************************************
281
- * math1/rfalib/ramp.f
282
- ****************************************************/
283
- /*
284
- * REAL FUNCTION RAMP(RX,N,JX)
285
- * REAL RX(*)
286
- */
287
- REAL FUNCTION RAMP(
288
- REAL (JX*(N-1)+1) RX
289
- INTEGER N
290
- INTEGER JX
291
- )
292
-
293
- /*****************************************************
294
- * math1/rfalib/ramp0.f
295
- ****************************************************/
296
- /*
297
- * REAL FUNCTION RAMP0(RX,N,JX)
298
- * REAL RX(*)
299
- */
300
- REAL FUNCTION RAMP0(
301
- REAL (JX*(N-1)+1) RX
302
- INTEGER N
303
- INTEGER JX
304
- )
305
-
306
- /*****************************************************
307
- * math1/rfalib/ramp1.f
308
- ****************************************************/
309
- /*
310
- * REAL FUNCTION RAMP1(RX,N,JX)
311
- * REAL RX(*)
312
- */
313
- REAL FUNCTION RAMP1(
314
- REAL (JX*(N-1)+1) RX
315
- INTEGER N
316
- INTEGER JX
317
- )
318
-
319
- /*****************************************************
320
- * math1/rfalib/rvmax.f
321
- ****************************************************/
322
- /* NB: (RVMAX) RX size is given as NS(1)*NS(2)*...*NS(ND) */
323
- /*
324
- * REAL FUNCTION RVMAX(RX,NS,NP,NQ,ND)
325
- * REAL RX(*)
326
- * INTEGER NS(*),NP(*),NQ(*)
327
- */
328
- REAL FUNCTION RVMAX(
329
- REAL (*) RX
330
- INTEGER (ND) NS
331
- INTEGER (ND) NP
332
- INTEGER (ND) NQ
333
- INTEGER ND
334
- )
335
-
336
- /*****************************************************
337
- * math1/rfalib/rvmax0.f
338
- ****************************************************/
339
- /* NB: (RVMAX0) RX size is given as NS(1)*NS(2)*...*NS(ND) */
340
- /*
341
- * REAL FUNCTION RVMAX0(RX,NS,NP,NQ,ND)
342
- * REAL RX(*)
343
- * INTEGER NS(*),NP(*),NQ(*)
344
- */
345
- REAL FUNCTION RVMAX0(
346
- REAL (*) RX
347
- INTEGER (ND) NS
348
- INTEGER (ND) NP
349
- INTEGER (ND) NQ
350
- INTEGER ND
351
- )
352
-
353
- /*****************************************************
354
- * math1/rfalib/rvmin.f
355
- ****************************************************/
356
- /* NB: (MVMIN) RX size is given as NS(1)*NS(2)*...*NS(ND) */
357
- /*
358
- * REAL FUNCTION RVMIN(RX,NS,NP,NQ,ND)
359
- * REAL RX(*)
360
- * INTEGER NS(*),NP(*),NQ(*)
361
- */
362
- REAL FUNCTION RVMIN(
363
- REAL (*) RX
364
- INTEGER (ND) NS
365
- INTEGER (ND) NP
366
- INTEGER (ND) NQ
367
- INTEGER ND
368
- )
369
-
370
- /*****************************************************
371
- * math1/rfalib/rvmax1.f
372
- ****************************************************/
373
- /* NB: (RVMAX1) RX size is given as NS(1)*NS(2)*...*NS(ND) */
374
- /*
375
- * REAL FUNCTION RVMAX1(RX,NS,NP,NQ,ND)
376
- * REAL RX(*)
377
- * INTEGER NS(*),NP(*),NQ(*)
378
- */
379
- REAL FUNCTION RVMAX1(
380
- REAL (*) RX
381
- INTEGER (ND) NS
382
- INTEGER (ND) NP
383
- INTEGER (ND) NQ
384
- INTEGER ND
385
- )
386
-
387
- /*****************************************************
388
- * math1/rfalib/rvmin1.f
389
- ****************************************************/
390
- /* NB: (RVMIN1) RX size is given as NS(1)*NS(2)*...*NS(ND) */
391
- /*
392
- * REAL FUNCTION RVMIN1(RX,NS,NP,NQ,ND)
393
- * REAL RX(*)
394
- * INTEGER NS(*),NP(*),NQ(*)
395
- */
396
- REAL FUNCTION RVMIN1(
397
- REAL (*) RX
398
- INTEGER (ND) NS
399
- INTEGER (ND) NP
400
- INTEGER (ND) NQ
401
- INTEGER ND
402
- )
403
-
404
- /*****************************************************
405
- * math1/rfalib/rvmin0.f
406
- ****************************************************/
407
- /* NB: (RVMIN0) RX size is given as NS(1)*NS(2)*...*NS(ND) */
408
- /*
409
- * REAL FUNCTION RVMIN0(RX,NS,NP,NQ,ND)
410
- * REAL RX(*)
411
- * INTEGER NS(*),NP(*),NQ(*)
412
- */
413
- REAL FUNCTION RVMIN0(
414
- REAL (*) RX
415
- INTEGER (ND) NS
416
- INTEGER (ND) NP
417
- INTEGER (ND) NQ
418
- INTEGER ND
419
- )
420
-
data/GenWrapper/proto/math1_rfblib.fp DELETED
@@ -1,51 +0,0 @@
1
- /*
2
- * math1_rfblib.fp
3
- *
4
- * $Id: math1_rfblib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/rfblib/rprd.f
9
- ****************************************************/
10
- /*
11
- * REAL FUNCTION RPRD(RX,RY,N,JX,JY)
12
- * REAL RX(*),RY(*)
13
- */
14
- REAL FUNCTION RPRD(
15
- REAL (JX*(N-1)+1) RX
16
- REAL (JY*(N-1)+1) RY
17
- INTEGER N
18
- INTEGER JX
19
- INTEGER JY
20
- )
21
-
22
- /*****************************************************
23
- * math1/rfblib/rcov.f
24
- ****************************************************/
25
- /*
26
- * REAL FUNCTION RCOV(RX,RY,N,JX,JY)
27
- * REAL RX(*),RY(*)
28
- */
29
- REAL FUNCTION RCOV(
30
- REAL (JX*(N-1)+1) RX
31
- REAL (JY*(N-1)+1) RY
32
- INTEGER N
33
- INTEGER JX
34
- INTEGER JY
35
- )
36
-
37
- /*****************************************************
38
- * math1/rfblib/rcor.f
39
- ****************************************************/
40
- /*
41
- * REAL FUNCTION RCOR(RX,RY,N,JX,JY)
42
- * REAL RX(*),RY(*)
43
- */
44
- REAL FUNCTION RCOR(
45
- REAL (JX*(N-1)+1) RX
46
- REAL (JX*(N-1)+1) RY
47
- INTEGER N
48
- INTEGER JX
49
- INTEGER JY
50
- )
51
-
data/GenWrapper/proto/math1_sublib.fp DELETED
@@ -1,60 +0,0 @@
1
- /*
2
- * math1_sublib.fp
3
- *
4
- * $Id: math1_sublib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/sublib/vignn.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE VIGNN(IX,N,JX)
12
- * INTEGER IX(*)
13
- */
14
- SUBROUTINE VIGNN(
15
- INTEGER (JX*(N-1)+1) o IX
16
- INTEGER N
17
- INTEGER JX
18
- )
19
-
20
- /*****************************************************
21
- * math1/sublib/vrgnn.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE VRGNN(RX,N,JX)
25
- * REAL RX(*)
26
- */
27
- SUBROUTINE VRGNN(
28
- REAL (JX*(N-1)+1) o RX
29
- INTEGER N
30
- INTEGER JX
31
- )
32
-
33
- /*****************************************************
34
- * math1/sublib/dxfloc.f
35
- ****************************************************/
36
- /*
37
- * SUBROUTINE DXFLOC(ND,NS,NP,NCP)
38
- * INTEGER NS(*),NP(*)
39
- */
40
- SUBROUTINE DXFLOC(
41
- INTEGER ND
42
- INTEGER (ND) NS
43
- INTEGER (ND) NP
44
- INTEGER o NCP
45
- )
46
-
47
- /*****************************************************
48
- * math1/sublib/dxiloc.f
49
- ****************************************************/
50
- /*
51
- * SUBROUTINE DXILOC(ND,NS,NP,NCP)
52
- * INTEGER NS(*),NP(*)
53
- */
54
- SUBROUTINE DXILOC(
55
- INTEGER ND
56
- INTEGER (ND) NS
57
- INTEGER (ND) o NP
58
- INTEGER NCP
59
- )
60
-