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_maplib.fp ADDED
@@ -0,0 +1,24 @@
1
+ /* math1/maplib :
2
+ * Wrappers of the other subroutines are defined in ../dcl_narrayed_funcs.rb
3
+ */
4
+
5
+ SUBROUTINE MPSCON(
6
+ REAL YLAT0
7
+ )
8
+
9
+ SUBROUTINE MPSCOA(
10
+ REAL YLAT1
11
+ )
12
+
13
+ SUBROUTINE MPSCOC(
14
+ REAL YLAT1
15
+ REAL YLAT2
16
+ )
17
+
18
+ SUBROUTINE MPSBON(
19
+ REAL YLAT1
20
+ )
21
+
22
+ SUBROUTINE MPSOTG(
23
+ REAL RSAT
24
+ )
data/GenWrapper/proto/math1_oslib.fp ADDED
@@ -0,0 +1,28 @@
1
+ /*
2
+ * math1_oslib.fp
3
+ *
4
+ * $Id: math1_oslib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/oslib/osqarn.f.dummy
9
+ ****************************************************/
10
+ /*
11
+ * SUBROUTINE OSQARN(N)
12
+ */
13
+ SUBROUTINE OSQARN(
14
+ INTEGER o N
15
+ )
16
+
17
+ /*****************************************************
18
+ * math1/oslib/osgarg.f.dummy
19
+ ****************************************************/
20
+ /*
21
+ * SUBROUTINE OSGARG(N, CHR)
22
+ * CHARACTER CHAR*(*)
23
+ */
24
+ SUBROUTINE OSGARG(
25
+ INTEGER N
26
+ CHARACTER*(*) o CHR
27
+ )
28
+
data/GenWrapper/proto/math1_rfalib.fp ADDED
@@ -0,0 +1,420 @@
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
+