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_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
-
data/GenWrapper/proto/math1_maplib.fp DELETED
@@ -1,24 +0,0 @@
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 DELETED
@@ -1,28 +0,0 @@
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
-