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_ifalib.fp ADDED
@@ -0,0 +1,123 @@
1
+ /*
2
+ * math1_ifalib.fp
3
+ *
4
+ * $Id: math1_ifalib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/ifalib/imax.f
9
+ ****************************************************/
10
+ /*
11
+ * INTEGER FUNCTION IMAX(IX,N,JX)
12
+ * INTEGER IX(*)
13
+ */
14
+ INTEGER FUNCTION IMAX(
15
+ INTEGER (JX*(N-1)+1) IX
16
+ INTEGER N
17
+ INTEGER JX
18
+ )
19
+
20
+ /*****************************************************
21
+ * math1/ifalib/imax0.f
22
+ ****************************************************/
23
+ /*
24
+ * INTEGER FUNCTION IMAX0(IX,N,JX)
25
+ * INTEGER IX(*)
26
+ */
27
+ INTEGER FUNCTION IMAX0(
28
+ INTEGER (JX*(N-1)+1) IX
29
+ INTEGER N
30
+ INTEGER JX
31
+ )
32
+
33
+ /*****************************************************
34
+ * math1/ifalib/imax1.f
35
+ ****************************************************/
36
+ /*
37
+ * INTEGER FUNCTION IMAX1(IX,N,JX)
38
+ * INTEGER IX(*)
39
+ */
40
+ INTEGER FUNCTION IMAX1(
41
+ INTEGER (JX*(N-1)+1) IX
42
+ INTEGER N
43
+ INTEGER JX
44
+ )
45
+
46
+ /*****************************************************
47
+ * math1/ifalib/imin.f
48
+ ****************************************************/
49
+ /*
50
+ * INTEGER FUNCTION IMIN(IX,N,JX)
51
+ * INTEGER IX(*)
52
+ */
53
+ INTEGER FUNCTION IMIN(
54
+ INTEGER (JX*(N-1)+1) IX
55
+ INTEGER N
56
+ INTEGER JX
57
+ )
58
+
59
+ /*****************************************************
60
+ * math1/ifalib/imin0.f
61
+ ****************************************************/
62
+ /*
63
+ * INTEGER FUNCTION IMIN0(IX,N,JX)
64
+ * INTEGER IX(*)
65
+ */
66
+ INTEGER FUNCTION IMIN0(
67
+ INTEGER (JX*(N-1)+1) IX
68
+ INTEGER N
69
+ INTEGER JX
70
+ )
71
+
72
+ /*****************************************************
73
+ * math1/ifalib/imin1.f
74
+ ****************************************************/
75
+ /*
76
+ * INTEGER FUNCTION IMIN1(IX,N,JX)
77
+ * INTEGER IX(*)
78
+ */
79
+ INTEGER FUNCTION IMIN1(
80
+ INTEGER (JX*(N-1)+1) IX
81
+ INTEGER N
82
+ INTEGER JX
83
+ )
84
+
85
+ /*****************************************************
86
+ * math1/ifalib/isum.f
87
+ ****************************************************/
88
+ /*
89
+ * INTEGER FUNCTION ISUM(IX,N,JX)
90
+ * INTEGER IX(*)
91
+ */
92
+ INTEGER FUNCTION ISUM(
93
+ INTEGER (JX*(N-1)+1) IX
94
+ INTEGER N
95
+ INTEGER JX
96
+ )
97
+
98
+ /*****************************************************
99
+ * math1/ifalib/isum0.f
100
+ ****************************************************/
101
+ /*
102
+ * INTEGER FUNCTION ISUM0(IX,N,JX)
103
+ * INTEGER IX(*)
104
+ */
105
+ INTEGER FUNCTION ISUM0(
106
+ INTEGER (JX*(N-1)+1) IX
107
+ INTEGER N
108
+ INTEGER JX
109
+ )
110
+
111
+ /*****************************************************
112
+ * math1/ifalib/isum1.f
113
+ ****************************************************/
114
+ /*
115
+ * INTEGER FUNCTION ISUM1(IX,N,JX)
116
+ * INTEGER IX(*)
117
+ */
118
+ INTEGER FUNCTION ISUM1(
119
+ INTEGER (JX*(N-1)+1) IX
120
+ INTEGER N
121
+ INTEGER JX
122
+ )
123
+
data/GenWrapper/proto/math1_indxlib.fp ADDED
@@ -0,0 +1,222 @@
1
+ /*
2
+ * math1_indxlib.fp
3
+ *
4
+ * $Id: math1_indxlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/indxlib/indxcf.f
9
+ ****************************************************/
10
+ /*
11
+ * INTEGER FUNCTION INDXCF(CX,N,JD,CH)
12
+ * CHARACTER CX(*)*1,CH*1
13
+ */
14
+ INTEGER FUNCTION INDXCF(
15
+ CHARACTER*1 (JD*(N-1)+1) CX
16
+ INTEGER N
17
+ INTEGER JD
18
+ CHARACTER*1 CH
19
+ )
20
+
21
+ /*****************************************************
22
+ * math1/indxlib/indxcl.f
23
+ ****************************************************/
24
+ /*
25
+ * INTEGER FUNCTION INDXCL(CX,N,JD,CH)
26
+ * CHARACTER CX(*)*1,CH*1
27
+ */
28
+ INTEGER FUNCTION INDXCL(
29
+ CHARACTER*1 (JD*(N-1)+1) CX
30
+ INTEGER N
31
+ INTEGER JD
32
+ CHARACTER*1 CH
33
+ )
34
+
35
+ /*****************************************************
36
+ * math1/indxlib/indxmf.f
37
+ ****************************************************/
38
+ /* NB: (INDXMF) The size of CX depends on that of CH, which is unknown. */
39
+ /*
40
+ * INTEGER FUNCTION INDXMF(CX,N,JD,CH)
41
+ * CHARACTER CX*(*),CH*(*)
42
+ */
43
+ INTEGER FUNCTION INDXMF(
44
+ CHARACTER*(*) CX
45
+ INTEGER N
46
+ INTEGER JD
47
+ CHARACTER*(*) CH
48
+ )
49
+
50
+ /*****************************************************
51
+ * math1/indxlib/indxml.f
52
+ ****************************************************/
53
+ /* NB: (INDXML) The size of CX depends on that of CH, which is unknown. */
54
+ /*
55
+ * INTEGER FUNCTION INDXML(CX,N,JD,CH)
56
+ * CHARACTER CX*(*),CH*(*)
57
+ */
58
+ INTEGER FUNCTION INDXML(
59
+ CHARACTER*(*) CX
60
+ INTEGER N
61
+ INTEGER JD
62
+ CHARACTER*(*) CH
63
+ )
64
+
65
+ /*****************************************************
66
+ * math1/indxlib/indxnf.f
67
+ ****************************************************/
68
+ /* NB: (INDXNF) The size of CX depends on that of CH, which is unknown. */
69
+ /*
70
+ * INTEGER FUNCTION INDXNF(CX,N,JD,CH)
71
+ * CHARACTER CX*(*),CH*(*)
72
+ */
73
+ INTEGER FUNCTION INDXNF(
74
+ CHARACTER*(*) CX
75
+ INTEGER N
76
+ INTEGER JD
77
+ CHARACTER*(*) CH
78
+ )
79
+
80
+ /*****************************************************
81
+ * math1/indxlib/indxnl.f
82
+ ****************************************************/
83
+ /* NB: (INDXNL) The size of CX depends on that of CH, which is unknown. */
84
+ /*
85
+ * INTEGER FUNCTION INDXNL(CX,N,JD,CH)
86
+ * CHARACTER CX*(*),CH*(*)
87
+ */
88
+ INTEGER FUNCTION INDXNL(
89
+ CHARACTER*(*) CX
90
+ INTEGER N
91
+ INTEGER JD
92
+ CHARACTER*(*) CH
93
+ )
94
+
95
+ /*****************************************************
96
+ * math1/indxlib/indxif.f
97
+ ****************************************************/
98
+ /*
99
+ * INTEGER FUNCTION INDXIF(IX,N,JD,II)
100
+ * INTEGER IX(*)
101
+ */
102
+ INTEGER FUNCTION INDXIF(
103
+ INTEGER (JD*(N-1)+1) IX
104
+ INTEGER N
105
+ INTEGER JD
106
+ INTEGER II
107
+ )
108
+
109
+ /*****************************************************
110
+ * math1/indxlib/indxil.f
111
+ ****************************************************/
112
+ /*
113
+ * INTEGER FUNCTION INDXIL(IX,N,JD,II)
114
+ * INTEGER IX(*)
115
+ */
116
+ INTEGER FUNCTION INDXIL(
117
+ INTEGER (JD*(N-1)+1) IX
118
+ INTEGER N
119
+ INTEGER JD
120
+ INTEGER II
121
+ )
122
+
123
+ /*****************************************************
124
+ * math1/indxlib/indxrf.f
125
+ ****************************************************/
126
+ /*
127
+ * INTEGER FUNCTION INDXRF(RX,N,JD,RR)
128
+ * REAL RX(*)
129
+ */
130
+ INTEGER FUNCTION INDXRF(
131
+ REAL (JD*(N-1)+1) RX
132
+ INTEGER N
133
+ INTEGER JD
134
+ REAL RR
135
+ )
136
+
137
+ /*****************************************************
138
+ * math1/indxlib/indxrl.f
139
+ ****************************************************/
140
+ /*
141
+ * INTEGER FUNCTION INDXRL(RX,N,JD,RR)
142
+ * REAL RX(*)
143
+ */
144
+ INTEGER FUNCTION INDXRL(
145
+ REAL (JD*(N-1)+1) RX
146
+ INTEGER N
147
+ INTEGER JD
148
+ REAL RR
149
+ )
150
+
151
+ /*****************************************************
152
+ * math1/indxlib/nindxc.f
153
+ ****************************************************/
154
+ /*
155
+ * INTEGER FUNCTION NINDXC(CX,N,JD,CH)
156
+ * CHARACTER CX(*)*1,CH*1
157
+ */
158
+ INTEGER FUNCTION NINDXC(
159
+ CHARACTER*1 (JD*(N-1)+1) CX
160
+ INTEGER N
161
+ INTEGER JD
162
+ CHARACTER*1 CH
163
+ )
164
+
165
+ /*****************************************************
166
+ * math1/indxlib/nindxm.f
167
+ ****************************************************/
168
+ /* NB: (NINDXM) The size of CX depends on that of CH, which is unknown. */
169
+ /*
170
+ * INTEGER FUNCTION NINDXM(CX,N,JD,CH)
171
+ * CHARACTER CX*(*),CH*(*)
172
+ */
173
+ INTEGER FUNCTION NINDXM(
174
+ CHARACTER*(*) CX
175
+ INTEGER N
176
+ INTEGER JD
177
+ CHARACTER*(*) CH
178
+ )
179
+
180
+ /*****************************************************
181
+ * math1/indxlib/nindxn.f
182
+ ****************************************************/
183
+ /* NB: (NINDXN) The size of CX depends on that of CH, which is unknown. */
184
+ /*
185
+ * INTEGER FUNCTION NINDXN(CX,N,JD,CH)
186
+ * CHARACTER CX*(*),CH*(*)
187
+ */
188
+ INTEGER FUNCTION NINDXN(
189
+ CHARACTER*(*) CX
190
+ INTEGER N
191
+ INTEGER JD
192
+ CHARACTER*(*) CH
193
+ )
194
+
195
+ /*****************************************************
196
+ * math1/indxlib/nindxi.f
197
+ ****************************************************/
198
+ /*
199
+ * INTEGER FUNCTION NINDXI(IX,N,JD,II)
200
+ * INTEGER IX(*)
201
+ */
202
+ INTEGER FUNCTION NINDXI(
203
+ INTEGER (JD*(N-1)+1) IX
204
+ INTEGER N
205
+ INTEGER JD
206
+ INTEGER II
207
+ )
208
+
209
+ /*****************************************************
210
+ * math1/indxlib/nindxr.f
211
+ ****************************************************/
212
+ /*
213
+ * INTEGER FUNCTION NINDXR(RX,N,JD,RR)
214
+ * REAL RX(*)
215
+ */
216
+ INTEGER FUNCTION NINDXR(
217
+ REAL (JD*(N-1)+1) RX
218
+ INTEGER N
219
+ INTEGER JD
220
+ REAL RR
221
+ )
222
+
data/GenWrapper/proto/math1_intlib.fp ADDED
@@ -0,0 +1,46 @@
1
+ /*
2
+ * math1_intlib.fp
3
+ *
4
+ * $Id: math1_intlib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/intlib/irlt.f
9
+ ****************************************************/
10
+ /*
11
+ * INTEGER FUNCTION IRLT(RX)
12
+ */
13
+ INTEGER FUNCTION IRLT(
14
+ REAL RX
15
+ )
16
+
17
+ /*****************************************************
18
+ * math1/intlib/irge.f
19
+ ****************************************************/
20
+ /*
21
+ * INTEGER FUNCTION IRGE(RX)
22
+ */
23
+ INTEGER FUNCTION IRGE(
24
+ REAL RX
25
+ )
26
+
27
+ /*****************************************************
28
+ * math1/intlib/irle.f
29
+ ****************************************************/
30
+ /*
31
+ * INTEGER FUNCTION IRLE(RX)
32
+ */
33
+ INTEGER FUNCTION IRLE(
34
+ REAL RX
35
+ )
36
+
37
+ /*****************************************************
38
+ * math1/intlib/irgt.f
39
+ ****************************************************/
40
+ /*
41
+ * INTEGER FUNCTION IRGT(RX)
42
+ */
43
+ INTEGER FUNCTION IRGT(
44
+ REAL RX
45
+ )
46
+
data/GenWrapper/proto/math1_lrllib.fp ADDED
@@ -0,0 +1,276 @@
1
+ /*
2
+ * math1_lrllib.fp
3
+ *
4
+ * $Id: math1_lrllib.fp,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
5
+ */
6
+
7
+ /*****************************************************
8
+ * math1/lrllib/lreq.f
9
+ ****************************************************/
10
+ /*
11
+ * LOGICAL FUNCTION LREQ(X,Y)
12
+ */
13
+ LOGICAL FUNCTION LREQ(
14
+ REAL X
15
+ REAL Y
16
+ )
17
+
18
+ /*****************************************************
19
+ * math1/lrllib/lreq0.f
20
+ ****************************************************/
21
+ /*
22
+ * LOGICAL FUNCTION LREQ0(X,Y)
23
+ */
24
+ LOGICAL FUNCTION LREQ0(
25
+ REAL X
26
+ REAL Y
27
+ )
28
+
29
+ /*****************************************************
30
+ * math1/lrllib/lreq1.f
31
+ ****************************************************/
32
+ /*
33
+ * LOGICAL FUNCTION LREQ1(X,Y)
34
+ */
35
+ LOGICAL FUNCTION LREQ1(
36
+ REAL X
37
+ REAL Y
38
+ )
39
+
40
+ /*****************************************************
41
+ * math1/lrllib/lreqa.f
42
+ ****************************************************/
43
+ /*
44
+ * LOGICAL FUNCTION LREQA(X,Y,EPSL)
45
+ */
46
+ LOGICAL FUNCTION LREQA(
47
+ REAL X
48
+ REAL Y
49
+ REAL EPSL
50
+ )
51
+
52
+ /*****************************************************
53
+ * math1/lrllib/lrne.f
54
+ ****************************************************/
55
+ /*
56
+ * LOGICAL FUNCTION LRNE(X,Y)
57
+ */
58
+ LOGICAL FUNCTION LRNE(
59
+ REAL X
60
+ REAL Y
61
+ )
62
+
63
+ /*****************************************************
64
+ * math1/lrllib/lrne0.f
65
+ ****************************************************/
66
+ /*
67
+ * LOGICAL FUNCTION LRNE0(X,Y)
68
+ */
69
+ LOGICAL FUNCTION LRNE0(
70
+ REAL X
71
+ REAL Y
72
+ )
73
+
74
+ /*****************************************************
75
+ * math1/lrllib/lrne1.f
76
+ ****************************************************/
77
+ /*
78
+ * LOGICAL FUNCTION LRNE1(X,Y)
79
+ */
80
+ LOGICAL FUNCTION LRNE1(
81
+ REAL X
82
+ REAL Y
83
+ )
84
+
85
+ /*****************************************************
86
+ * math1/lrllib/lrnea.f
87
+ ****************************************************/
88
+ /*
89
+ * LOGICAL FUNCTION LRNEA(X,Y,EPSL)
90
+ */
91
+ LOGICAL FUNCTION LRNEA(
92
+ REAL X
93
+ REAL Y
94
+ REAL EPSL
95
+ )
96
+
97
+ /*****************************************************
98
+ * math1/lrllib/lrlt.f
99
+ ****************************************************/
100
+ /*
101
+ * LOGICAL FUNCTION LRLT(X,Y)
102
+ */
103
+ LOGICAL FUNCTION LRLT(
104
+ REAL X
105
+ REAL Y
106
+ )
107
+
108
+ /*****************************************************
109
+ * math1/lrllib/lrlt0.f
110
+ ****************************************************/
111
+ /*
112
+ * LOGICAL FUNCTION LRLT0(X,Y)
113
+ */
114
+ LOGICAL FUNCTION LRLT0(
115
+ REAL X
116
+ REAL Y
117
+ )
118
+
119
+ /*****************************************************
120
+ * math1/lrllib/lrlt1.f
121
+ ****************************************************/
122
+ /*
123
+ * LOGICAL FUNCTION LRLT1(X,Y)
124
+ */
125
+ LOGICAL FUNCTION LRLT1(
126
+ REAL X
127
+ REAL Y
128
+ )
129
+
130
+ /*****************************************************
131
+ * math1/lrllib/lrlta.f
132
+ ****************************************************/
133
+ /*
134
+ * LOGICAL FUNCTION LRLTA(X,Y,EPSL)
135
+ */
136
+ LOGICAL FUNCTION LRLTA(
137
+ REAL X
138
+ REAL Y
139
+ REAL EPSL
140
+ )
141
+
142
+ /*****************************************************
143
+ * math1/lrllib/lrgt.f
144
+ ****************************************************/
145
+ /*
146
+ * LOGICAL FUNCTION LRGT(X,Y)
147
+ */
148
+ LOGICAL FUNCTION LRGT(
149
+ REAL X
150
+ REAL Y
151
+ )
152
+
153
+ /*****************************************************
154
+ * math1/lrllib/lrgt0.f
155
+ ****************************************************/
156
+ /*
157
+ * LOGICAL FUNCTION LRGT0(X,Y)
158
+ */
159
+ LOGICAL FUNCTION LRGT0(
160
+ REAL X
161
+ REAL Y
162
+ )
163
+
164
+ /*****************************************************
165
+ * math1/lrllib/lrgt1.f
166
+ ****************************************************/
167
+ /*
168
+ * LOGICAL FUNCTION LRGT1(X,Y)
169
+ */
170
+ LOGICAL FUNCTION LRGT1(
171
+ REAL X
172
+ REAL Y
173
+ )
174
+
175
+ /*****************************************************
176
+ * math1/lrllib/lrgta.f
177
+ ****************************************************/
178
+ /*
179
+ * LOGICAL FUNCTION LRGTA(X,Y,EPSL)
180
+ */
181
+ LOGICAL FUNCTION LRGTA(
182
+ REAL X
183
+ REAL Y
184
+ REAL EPSL
185
+ )
186
+
187
+ /*****************************************************
188
+ * math1/lrllib/lrle.f
189
+ ****************************************************/
190
+ /*
191
+ * LOGICAL FUNCTION LRLE(X,Y)
192
+ */
193
+ LOGICAL FUNCTION LRLE(
194
+ REAL X
195
+ REAL Y
196
+ )
197
+
198
+ /*****************************************************
199
+ * math1/lrllib/lrle0.f
200
+ ****************************************************/
201
+ /*
202
+ * LOGICAL FUNCTION LRLE0(X,Y)
203
+ */
204
+ LOGICAL FUNCTION LRLE0(
205
+ REAL X
206
+ REAL Y
207
+ )
208
+
209
+ /*****************************************************
210
+ * math1/lrllib/lrle1.f
211
+ ****************************************************/
212
+ /*
213
+ * LOGICAL FUNCTION LRLE1(X,Y)
214
+ */
215
+ LOGICAL FUNCTION LRLE1(
216
+ REAL X
217
+ REAL Y
218
+ )
219
+
220
+ /*****************************************************
221
+ * math1/lrllib/lrlea.f
222
+ ****************************************************/
223
+ /*
224
+ * LOGICAL FUNCTION LRLEA(X,Y,EPSL)
225
+ */
226
+ LOGICAL FUNCTION LRLEA(
227
+ REAL X
228
+ REAL Y
229
+ REAL EPSL
230
+ )
231
+
232
+ /*****************************************************
233
+ * math1/lrllib/lrge.f
234
+ ****************************************************/
235
+ /*
236
+ * LOGICAL FUNCTION LRGE(X,Y)
237
+ */
238
+ LOGICAL FUNCTION LRGE(
239
+ REAL X
240
+ REAL Y
241
+ )
242
+
243
+ /*****************************************************
244
+ * math1/lrllib/lrge0.f
245
+ ****************************************************/
246
+ /*
247
+ * LOGICAL FUNCTION LRGE0(X,Y)
248
+ */
249
+ LOGICAL FUNCTION LRGE0(
250
+ REAL X
251
+ REAL Y
252
+ )
253
+
254
+ /*****************************************************
255
+ * math1/lrllib/lrge1.f
256
+ ****************************************************/
257
+ /*
258
+ * LOGICAL FUNCTION LRGE1(X,Y)
259
+ */
260
+ LOGICAL FUNCTION LRGE1(
261
+ REAL X
262
+ REAL Y
263
+ )
264
+
265
+ /*****************************************************
266
+ * math1/lrllib/lrgea.f
267
+ ****************************************************/
268
+ /*
269
+ * LOGICAL FUNCTION LRGEA(X,Y,EPSL)
270
+ */
271
+ LOGICAL FUNCTION LRGEA(
272
+ REAL X
273
+ REAL Y
274
+ REAL EPSL
275
+ )
276
+