ruby-dcl 1.7.1 → 1.8.0

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 (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_00 DELETED
@@ -1,12 +0,0 @@
1
- /*
2
- * math1_00
3
- * log to split math1.f77proto into math1_xxxlib.fp
4
- *
5
- * $Id: math1_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * math1.f77proto
10
- * #Id: math1.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
11
- */
12
-
data/GenWrapper/proto/math1_blklib.fp DELETED
@@ -1,58 +0,0 @@
1
- /*
2
- * math1_blklib.fp
3
- *
4
- * $Id: math1_blklib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/blklib/iblklt.f
9
- ****************************************************/
10
- /*
11
- * INTEGER FUNCTION IBLKLT(RX,N,RR)
12
- * REAL RX(*)
13
- */
14
- INTEGER FUNCTION IBLKLT(
15
- REAL (N) RX
16
- INTEGER N
17
- REAL RR
18
- )
19
-
20
- /*****************************************************
21
- * math1/blklib/iblkle.f
22
- ****************************************************/
23
- /*
24
- * INTEGER FUNCTION IBLKLE(RX,N,RR)
25
- * REAL RX(*)
26
- */
27
- INTEGER FUNCTION IBLKLE(
28
- REAL (N) RX
29
- INTEGER N
30
- REAL RR
31
- )
32
-
33
- /*****************************************************
34
- * math1/blklib/iblkgt.f
35
- ****************************************************/
36
- /*
37
- * INTEGER FUNCTION IBLKGT(RX,N,RR)
38
- * REAL RX(*)
39
- */
40
- INTEGER FUNCTION IBLKGT(
41
- REAL (N) RX
42
- INTEGER N
43
- REAL RR
44
- )
45
-
46
- /*****************************************************
47
- * math1/blklib/iblkge.f
48
- ****************************************************/
49
- /*
50
- * INTEGER FUNCTION IBLKGE(RX,N,RR)
51
- * REAL RX(*)
52
- */
53
- INTEGER FUNCTION IBLKGE(
54
- REAL (N) RX
55
- INTEGER N
56
- REAL RR
57
- )
58
-
data/GenWrapper/proto/math1_chrlib.fp DELETED
@@ -1,83 +0,0 @@
1
- /*
2
- * math1_chrlib.fp
3
- *
4
- * $Id: math1_chrlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/chrlib/cladj.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE CLADJ(CHR)
12
- * CHARACTER CHR*(*)
13
- */
14
- SUBROUTINE CLADJ(
15
- CHARACTER*(*) io CHR
16
- )
17
-
18
- /*****************************************************
19
- * math1/chrlib/lenb.f
20
- ****************************************************/
21
- /*
22
- * INTEGER FUNCTION LENB(C)
23
- * CHARACTER C*(*)
24
- */
25
- INTEGER FUNCTION LENB(
26
- CHARACTER*(*) C
27
- )
28
-
29
- /*****************************************************
30
- * math1/chrlib/lenc.f
31
- ****************************************************/
32
- /*
33
- * INTEGER FUNCTION LENC(C)
34
- * CHARACTER C*(*)
35
- */
36
- INTEGER FUNCTION LENC(
37
- CHARACTER*(*) C
38
- )
39
-
40
- /*****************************************************
41
- * math1/chrlib/leny.f
42
- ****************************************************/
43
- /*
44
- * INTEGER FUNCTION LENY(C)
45
- * CHARACTER C*(*)
46
- */
47
- INTEGER FUNCTION LENY(
48
- CHARACTER*(*) C
49
- )
50
-
51
- /*****************************************************
52
- * math1/chrlib/lenz.f
53
- ****************************************************/
54
- /*
55
- * INTEGER FUNCTION LENZ(C)
56
- * CHARACTER C*(*)
57
- */
58
- INTEGER FUNCTION LENZ(
59
- CHARACTER*(*) C
60
- )
61
-
62
- /*****************************************************
63
- * math1/chrlib/cradj.f
64
- ****************************************************/
65
- /*
66
- * SUBROUTINE CRADJ(CHR)
67
- * CHARACTER CHR*(*)
68
- */
69
- SUBROUTINE CRADJ(
70
- CHARACTER*(*) io CHR
71
- )
72
-
73
- /*****************************************************
74
- * math1/chrlib/crvrs.f
75
- ****************************************************/
76
- /*
77
- * SUBROUTINE CRVRS(CHR)
78
- * CHARACTER CHR*(*)
79
- */
80
- SUBROUTINE CRVRS(
81
- CHARACTER*(*) io CHR
82
- )
83
-
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