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_clsplib.fp DELETED
@@ -1,74 +0,0 @@
1
- /*
2
- * math1_clsplib.fp
3
- *
4
- * $Id: math1_clsplib.fp,v 1.3 2012/03/08 05:16:17 koshiro Exp $
5
- */
6
-
7
- #if DCLVER >= 544
8
-
9
- /*****************************************************
10
- * math1/clsplib/clrgsv.f
11
- ****************************************************/
12
- /*
13
- * SUBROUTINE CLRGSV(R,G,B,H,S,V,N,M)
14
- */
15
- SUBROUTINE CLRGSV(
16
- INTEGER (N,M) R
17
- INTEGER (N,M) G
18
- INTEGER (N,M) B
19
- REAL (N,M) o H
20
- REAL (N,M) o S
21
- REAL (N,M) o V
22
- INTEGER N
23
- INTEGER M
24
- )
25
-
26
- /*****************************************************
27
- * math1/clsplib/clsvrg.f
28
- ****************************************************/
29
- /*
30
- * SUBROUTINE CLSVRG(H,S,V,R,G,B,N,M)
31
- */
32
- SUBROUTINE CLSVRG(
33
- REAL (N,M) H
34
- REAL (N,M) S
35
- REAL (N,M) V
36
- INTEGER (N,M) o R
37
- INTEGER (N,M) o G
38
- INTEGER (N,M) o B
39
- INTEGER N
40
- INTEGER M
41
- )
42
-
43
- /*****************************************************
44
- * math1/clsplib/inorml.f
45
- ****************************************************/
46
- /*
47
- * SUBROUTINE INORML(V,W,N,M,X,Y)
48
- */
49
- SUBROUTINE INORML(
50
- INTEGER (N,M) V
51
- REAL (N,M) o W
52
- INTEGER N
53
- INTEGER M
54
- REAL X
55
- REAL Y
56
- )
57
-
58
- /*****************************************************
59
- * math1/clsplib/rnorml.f
60
- ****************************************************/
61
- /*
62
- * SUBROUTINE RNORML(V,W,N,M,X,Y)
63
- */
64
- SUBROUTINE RNORML(
65
- REAL (N,M) V
66
- REAL (N,M) o W
67
- INTEGER N
68
- INTEGER M
69
- REAL X
70
- REAL Y
71
- )
72
-
73
- #endif
74
-
data/GenWrapper/proto/math1_fnclib.fp DELETED
@@ -1,79 +0,0 @@
1
- /*
2
- * math1_fnclib.fp
3
- *
4
- * $Id: math1_fnclib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/fnclib/igus.f
9
- ****************************************************/
10
- /*
11
- * INTEGER FUNCTION IGUS(RX)
12
- */
13
- INTEGER FUNCTION IGUS(
14
- REAL RX
15
- )
16
-
17
- /*****************************************************
18
- * math1/fnclib/imod.f
19
- ****************************************************/
20
- /*
21
- * INTEGER FUNCTION IMOD(IX,ID)
22
- */
23
- INTEGER FUNCTION IMOD(
24
- INTEGER IX
25
- INTEGER ID
26
- )
27
-
28
- /*****************************************************
29
- * math1/fnclib/rmod.f
30
- ****************************************************/
31
- /*
32
- * REAL FUNCTION RMOD(RX,RD)
33
- */
34
- REAL FUNCTION RMOD(
35
- REAL RX
36
- REAL RD
37
- )
38
-
39
- /*****************************************************
40
- * math1/fnclib/rexp.f
41
- ****************************************************/
42
- /*
43
- * REAL FUNCTION REXP(RX,IB,IE)
44
- */
45
- REAL FUNCTION REXP(
46
- REAL RX
47
- INTEGER IB
48
- INTEGER IE
49
- )
50
-
51
- /*****************************************************
52
- * math1/fnclib/rd2r.f
53
- ****************************************************/
54
- /*
55
- * REAL FUNCTION RD2R(X)
56
- */
57
- REAL FUNCTION RD2R(
58
- REAL X
59
- )
60
-
61
- /*****************************************************
62
- * math1/fnclib/rr2d.f
63
- ****************************************************/
64
- /*
65
- * REAL FUNCTION RR2D(X)
66
- */
67
- REAL FUNCTION RR2D(
68
- REAL X
69
- )
70
-
71
- /*****************************************************
72
- * math1/fnclib/rfpi.f
73
- ****************************************************/
74
- /*
75
- * REAL FUNCTION RFPI()
76
- */
77
- REAL FUNCTION RFPI(
78
- )
79
-
data/GenWrapper/proto/math1_gnmlib.fp DELETED
@@ -1,118 +0,0 @@
1
- /*
2
- * math1_gnmlib.fp
3
- *
4
- * $Id: math1_gnmlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/gnmlib/gnsave.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE GNSAVE
12
- */
13
- SUBROUTINE GNSAVE(
14
- )
15
-
16
- /*
17
- * ENTRY GNRSET
18
- */
19
- SUBROUTINE GNRSET(
20
- )
21
-
22
- /*****************************************************
23
- * math1/gnmlib/gnsblk.f
24
- ****************************************************/
25
- /*
26
- * SUBROUTINE GNSBLK(XB,NB)
27
- * REAL XB(*)
28
- */
29
- SUBROUTINE GNSBLK(
30
- REAL (NB) XB
31
- INTEGER NB
32
- )
33
-
34
- /*
35
- * ENTRY GNQBLK(XB,NB)
36
- * REAL XB(*)
37
- */
38
- SUBROUTINE GNQBLK(
39
- REAL (NB) o XB
40
- INTEGER o NB
41
- )
42
-
43
- /*
44
- * ENTRY GNLT(RX,BX,IP)
45
- */
46
- SUBROUTINE GNLT(
47
- REAL RX
48
- REAL o BX
49
- INTEGER o IP
50
- )
51
-
52
- /*
53
- * ENTRY GNLE(RX,BX,IP)
54
- */
55
- SUBROUTINE GNLE(
56
- REAL RX
57
- REAL o BX
58
- INTEGER o IP
59
- )
60
-
61
- /*
62
- * ENTRY GNGT(RX,BX,IP)
63
- */
64
- SUBROUTINE GNGT(
65
- REAL RX
66
- REAL o BX
67
- INTEGER o IP
68
- )
69
-
70
- /*
71
- * ENTRY GNGE(RX,BX,IP)
72
- */
73
- SUBROUTINE GNGE(
74
- REAL RX
75
- REAL o BX
76
- INTEGER o IP
77
- )
78
-
79
- /*****************************************************
80
- * math1/gnmlib/rgnlt.f
81
- ****************************************************/
82
- /*
83
- * REAL FUNCTION RGNLT(RX)
84
- */
85
- REAL FUNCTION RGNLT(
86
- REAL RX
87
- )
88
-
89
- /*****************************************************
90
- * math1/gnmlib/rgnle.f
91
- ****************************************************/
92
- /*
93
- * REAL FUNCTION RGNLE(RX)
94
- */
95
- REAL FUNCTION RGNLE(
96
- REAL RX
97
- )
98
-
99
- /*****************************************************
100
- * math1/gnmlib/rgnge.f
101
- ****************************************************/
102
- /*
103
- * REAL FUNCTION RGNGE(RX)
104
- */
105
- REAL FUNCTION RGNGE(
106
- REAL RX
107
- )
108
-
109
- /*****************************************************
110
- * math1/gnmlib/rgngt.f
111
- ****************************************************/
112
- /*
113
- * REAL FUNCTION RGNGT(RX)
114
- */
115
- REAL FUNCTION RGNGT(
116
- REAL RX
117
- )
118
-
data/GenWrapper/proto/math1_gt2dlib.fp DELETED
@@ -1,144 +0,0 @@
1
- /*
2
- * math1_gt2dlib.fp
3
- *
4
- * T Horinouchi 2004/11/09
5
- */
6
-
7
- #if DCLVER >= 530
8
-
9
- /*****************************************************
10
- * math1/gt2dlib/g2fbli.f:
11
- ****************************************************/
12
- /*
13
- * SUBROUTINE G2FBLI(P,Q, Z00,Z10,Z01,Z11,
14
- * & Z)
15
- */
16
- SUBROUTINE G2FBLI(
17
- REAL P
18
- REAL Q
19
- REAL Z00
20
- REAL Z10
21
- REAL Z01
22
- REAL Z11
23
- REAL o Z
24
- )
25
-
26
- /*****************************************************
27
- * math1/gt2dlib/g2fbl2.f:
28
- ****************************************************/
29
- /*
30
- * SUBROUTINE G2FBL2(P,Q,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
31
- * & X,Y)
32
- */
33
- SUBROUTINE G2FBL2(
34
- REAL P
35
- REAL Q
36
- REAL X00
37
- REAL X10
38
- REAL X01
39
- REAL X11
40
- REAL Y00
41
- REAL Y10
42
- REAL Y01
43
- REAL Y11
44
- REAL o X
45
- REAL o Y
46
- )
47
-
48
- /*****************************************************
49
- * math1/gt2dlib/g2ibl2.f:
50
- ****************************************************/
51
- /*
52
- * SUBROUTINE G2IBL2(X,Y,X00,X10,X01,X11,Y00,Y10,Y01,Y11,
53
- * & P,Q)
54
- */
55
- SUBROUTINE G2IBL2(
56
- REAL X
57
- REAL Y
58
- REAL X00
59
- REAL X10
60
- REAL X01
61
- REAL X11
62
- REAL Y00
63
- REAL Y10
64
- REAL Y01
65
- REAL Y11
66
- REAL o P
67
- REAL o Q
68
- )
69
-
70
- /*****************************************************
71
- * math1/gt2dlib/g2fctr.g:
72
- ****************************************************/
73
- /*
74
- * SUBROUTINE G2FCTR(UX, UY, CX, CY)
75
- */
76
- SUBROUTINE G2FCTR(
77
- REAL UX
78
- REAL UY
79
- REAL o CX
80
- REAL o CY
81
- )
82
-
83
- /*
84
- * ENTRY G2ICTR(CX, CY, UX, UY)
85
- */
86
- SUBROUTINE G2ICTR(
87
- REAL CX
88
- REAL CY
89
- REAL o UX
90
- REAL o UY
91
- )
92
-
93
- /*
94
- * ENTRY G2QCTI(LINI)
95
- */
96
- SUBROUTINE G2QCTI(
97
- LOGICAL o LINI
98
- )
99
-
100
- /*
101
- * ENTRY G2QCTM(CXMINE, CXMAXE, CYMINE, CYMAXE)
102
- */
103
- SUBROUTINE G2QCTM(
104
- REAL o CXMINE
105
- REAL o CXMAXE
106
- REAL o CYMINE
107
- REAL o CYMAXE
108
- )
109
-
110
- /*
111
- * ENTRY G2SCTR(NX, NY, UXA,UYA, CXA,CYA)
112
- * REAL UXA(NX), UYA(NY)
113
- * REAL CXA(NX,NY), CYA(NX,NY)
114
- */
115
- SUBROUTINE G2SCTR(
116
- INTEGER NX
117
- INTEGER NY
118
- REAL (NX) UXA
119
- REAL (NY) UYA
120
- REAL (NX,NY) CXA
121
- REAL (NX,NY) CYA
122
- )
123
-
124
- /*****************************************************
125
- * math1/gt2dlib/lg2inq.f
126
- ****************************************************/
127
- /*
128
- * LOGICAL FUNCTION LG2INQ(CX,CY,
129
- * & CX00,CX10,CX01,CX11,CY00,CY10,CY01,CY11)
130
- */
131
- LOGICAL FUNCTION LG2INQ(
132
- REAL CX
133
- REAL CY
134
- REAL CX00
135
- REAL CX10
136
- REAL CX01
137
- REAL CX11
138
- REAL CY00
139
- REAL CY10
140
- REAL CY01
141
- REAL CY11
142
- )
143
-
144
- #endif
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
-