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_ifalib.fp DELETED
@@ -1,123 +0,0 @@
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 DELETED
@@ -1,222 +0,0 @@
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 DELETED
@@ -1,46 +0,0 @@
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 DELETED
@@ -1,276 +0,0 @@
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
-