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_xfclib.fp DELETED
@@ -1,68 +0,0 @@
1
- /*
2
- * math1_xfclib.fp
3
- *
4
- * $Id: math1_xfclib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math1/xfclib/jfromc.f
9
- ****************************************************/
10
- /*
11
- * INTEGER FUNCTION JFROMC(CX)
12
- * CHARACTER CX*(*)
13
- */
14
- /*
15
- INTEGER FUNCTION JFROMC(
16
- CHARACTER*(*) CX
17
- )
18
- */
19
-
20
- /*****************************************************
21
- * math1/xfclib/ifromc.f
22
- ****************************************************/
23
- /* NB: (IFROMC) CX size unknown. */
24
- /*
25
- * INTEGER FUNCTION IFROMC(CX)
26
- * CHARACTER CX*(*)
27
- */
28
- INTEGER FUNCTION IFROMC(
29
- CHARACTER*(*) CX
30
- )
31
-
32
- /*****************************************************
33
- * math1/xfclib/lfromc.f
34
- ****************************************************/
35
- /* NB: (LFROMC) CX size unknown. */
36
- /*
37
- * LOGICAL FUNCTION LFROMC(CX)
38
- * CHARACTER CX*(*)
39
- */
40
- LOGICAL FUNCTION LFROMC(
41
- CHARACTER*(*) CX
42
- )
43
-
44
- /*****************************************************
45
- * math1/xfclib/ffromc.f
46
- ****************************************************/
47
- /*
48
- * REAL FUNCTION FFROMC(CX)
49
- * CHARACTER CX*(*)
50
- */
51
- /*
52
- REAL FUNCTION FFROMC(
53
- CHARACTER*(*) CX
54
- )
55
- */
56
-
57
- /*****************************************************
58
- * math1/xfclib/rfromc.f
59
- ****************************************************/
60
- /* NB: (RFROMC) CX size unknown. */
61
- /*
62
- * REAL FUNCTION RFROMC(CX)
63
- * CHARACTER CX*(*)
64
- */
65
- REAL FUNCTION RFROMC(
66
- CHARACTER*(*) CX
67
- )
68
-
data/GenWrapper/proto/math2_00 DELETED
@@ -1,12 +0,0 @@
1
- /*
2
- * math2_00
3
- * log to split math2.f77proto into math2_xxxlib.fp
4
- *
5
- * $Id: math2_00,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
6
- */
7
- -----
8
- /*
9
- * math2.f77proto
10
- * #Id: math2.f77proto,v 1.2 2000/11/05 14:39:34 keiko Exp $
11
- */
12
-
data/GenWrapper/proto/math2_fftlib.fp DELETED
@@ -1,803 +0,0 @@
1
- /*
2
- * math2_fftlib.fp
3
- *
4
- * $Id: math2_fftlib.fp,v 1.1.1.1 2011/02/23 07:21:28 horinout Exp $
5
- */
6
-
7
- /*****************************************************
8
- * math2/fftlib/cfftb.f
9
- ****************************************************/
10
- /*
11
- * SUBROUTINE CFFTB (N,C,WSAVE)
12
- * DIMENSION C(*) ,WSAVE(*)
13
- */
14
- SUBROUTINE CFFTB(
15
- INTEGER N
16
- REAL (2*N) io C
17
- REAL (4*N+15) WSAVE
18
- )
19
-
20
- /*****************************************************
21
- * math2/fftlib/cfftb1.f
22
- ****************************************************/
23
- /*
24
- * SUBROUTINE CFFTB1 (N,C,CH,WA,IFAC)
25
- * DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
26
- */
27
- /*
28
- SUBROUTINE CFFTB1(
29
- INTEGER N
30
- REAL (*) io C
31
- REAL (*) t CH
32
- REAL (*) t WA
33
- INTEGER (*) t IFAC
34
- )
35
- */
36
-
37
- /*****************************************************
38
- * math2/fftlib/cfftf.f
39
- ****************************************************/
40
- /*
41
- * SUBROUTINE CFFTF (N,C,WSAVE)
42
- * DIMENSION C(*) ,WSAVE(*)
43
- */
44
- SUBROUTINE CFFTF(
45
- INTEGER N
46
- REAL (2*N) io C
47
- REAL (4*N+15) WSAVE
48
- )
49
-
50
- /*****************************************************
51
- * math2/fftlib/cfftf1.f
52
- ****************************************************/
53
- /*
54
- * SUBROUTINE CFFTF1 (N,C,CH,WA,IFAC)
55
- * DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
56
- */
57
- /*
58
- SUBROUTINE CFFTF1(
59
- INTEGER N
60
- REAL (*) io C
61
- REAL (*) t CH
62
- REAL (*) t WA
63
- INTEGER (*) t IFAC
64
- )
65
- */
66
-
67
- /*****************************************************
68
- * math2/fftlib/cffti.f
69
- ****************************************************/
70
- /*
71
- * SUBROUTINE CFFTI (N,WSAVE)
72
- * DIMENSION WSAVE(*)
73
- */
74
- SUBROUTINE CFFTI(
75
- INTEGER N
76
- REAL (4*N+15) o WSAVE
77
- )
78
-
79
- /*****************************************************
80
- * math2/fftlib/cffti1.f
81
- ****************************************************/
82
- /*
83
- * SUBROUTINE CFFTI1 (N,WA,IFAC)
84
- * DIMENSION WA(*) ,IFAC(*) ,NTRYH(4)
85
- */
86
- /*
87
- SUBROUTINE CFFTI1(
88
- INTEGER N
89
- REAL (*) o WA
90
- INTEGER (*) o IFAC
91
- )
92
- */
93
-
94
- /*****************************************************
95
- * math2/fftlib/cosqb.f
96
- ****************************************************/
97
- /*
98
- * SUBROUTINE COSQB (N,X,WSAVE)
99
- * DIMENSION X(*) ,WSAVE(*)
100
- */
101
- SUBROUTINE COSQB(
102
- INTEGER N
103
- REAL (N) io X
104
- REAL (3*N+15) WSAVE
105
- )
106
-
107
- /*****************************************************
108
- * math2/fftlib/cosqb1.f
109
- ****************************************************/
110
- /*
111
- * SUBROUTINE COSQB1 (N,X,W,XH)
112
- * DIMENSION X(*) ,W(*) ,XH(*)
113
- */
114
- /*
115
- SUBROUTINE COSQB1(
116
- INTEGER N
117
- REAL io X
118
- REAL (*) t W
119
- REAL (*) t XH
120
- )
121
- */
122
-
123
- /*****************************************************
124
- * math2/fftlib/cosqf.f
125
- ****************************************************/
126
- /*
127
- * SUBROUTINE COSQF (N,X,WSAVE)
128
- * DIMENSION X(*) ,WSAVE(*)
129
- */
130
- SUBROUTINE COSQF(
131
- INTEGER N
132
- REAL (N) io X
133
- REAL (3*N+15) WSAVE
134
- )
135
-
136
- /*****************************************************
137
- * math2/fftlib/cosqf1.f
138
- ****************************************************/
139
- /*
140
- * SUBROUTINE COSQF1 (N,X,W,XH)
141
- * DIMENSION X(*) ,W(*) ,XH(*)
142
- */
143
- /*
144
- SUBROUTINE COSQF1(
145
- INTEGER N
146
- REAL io X
147
- REAL (*) t W
148
- REAL (*) t XH
149
- )
150
- */
151
-
152
- /*****************************************************
153
- * math2/fftlib/cosqi.f
154
- ****************************************************/
155
- /*
156
- * SUBROUTINE COSQI (N,WSAVE)
157
- * DIMENSION WSAVE(*)
158
- */
159
- SUBROUTINE COSQI(
160
- INTEGER N
161
- REAL (3*N+15) o WSAVE
162
- )
163
-
164
- /*****************************************************
165
- * math2/fftlib/cost.f
166
- ****************************************************/
167
- /*
168
- * SUBROUTINE COST (N,X,WSAVE)
169
- * DIMENSION X(*) ,WSAVE(*)
170
- */
171
- SUBROUTINE COST(
172
- INTEGER N
173
- REAL (N) io X
174
- REAL (3*N+15) WSAVE
175
- )
176
-
177
- /*****************************************************
178
- * math2/fftlib/costi.f
179
- ****************************************************/
180
- /*
181
- * SUBROUTINE COSTI (N,WSAVE)
182
- * DIMENSION WSAVE(*)
183
- */
184
- SUBROUTINE COSTI(
185
- INTEGER N
186
- REAL (3*N+15) o WSAVE
187
- )
188
-
189
- /*****************************************************
190
- * math2/fftlib/ezfft1.f
191
- ****************************************************/
192
- /*
193
- * SUBROUTINE EZFFT1 (N,WA,IFAC)
194
- * DIMENSION WA(*) ,IFAC(*) ,NTRYH(4)
195
- */
196
- /*
197
- SUBROUTINE EZFFT1(
198
- INTEGER N
199
- REAL (*) o WA
200
- INTEGER (*) o IFAC
201
- )
202
- */
203
-
204
- /*****************************************************
205
- * math2/fftlib/ezfftb.f
206
- ****************************************************/
207
- /*
208
- * SUBROUTINE EZFFTB (N,R,AZERO,A,B,WSAVE)
209
- * DIMENSION R(*) ,A(*) ,B(*) ,WSAVE(*)
210
- */
211
- SUBROUTINE EZFFTB(
212
- INTEGER N
213
- REAL (N) o R
214
- REAL AZERO
215
- /* REAL A */
216
- REAL (N/2) A
217
- REAL (N/2) B
218
- REAL (3*N+15) WSAVE
219
- )
220
-
221
- /*****************************************************
222
- * math2/fftlib/ezfftf.f
223
- ****************************************************/
224
- /*
225
- * SUBROUTINE EZFFTF (N,R,AZERO,A,B,WSAVE)
226
- * DIMENSION R(*) ,A(*) ,B(*) ,WSAVE(*)
227
- */
228
- SUBROUTINE EZFFTF(
229
- INTEGER N
230
- REAL (N) R
231
- REAL o AZERO
232
- /* REAL o A */
233
- REAL (N/2) o A
234
- REAL (N/2) o B
235
- REAL (3*N+15) WSAVE
236
- )
237
-
238
- /*****************************************************
239
- * math2/fftlib/ezffti.f
240
- ****************************************************/
241
- /*
242
- * SUBROUTINE EZFFTI (N,WSAVE)
243
- * DIMENSION WSAVE(*)
244
- */
245
- SUBROUTINE EZFFTI(
246
- INTEGER N
247
- REAL (3*N+15) o WSAVE
248
- )
249
-
250
- /*****************************************************
251
- * math2/fftlib/passb.f
252
- ****************************************************/
253
- /*
254
- * SUBROUTINE PASSB (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
255
- * DIMENSION CH(IDO,L1,IP) ,CC(IDO,IP,L1) ,
256
- */
257
- /*
258
- SUBROUTINE PASSB(
259
- INTEGER o NAC
260
- INTEGER IDO
261
- INTEGER IP
262
- INTEGER L1
263
- INTEGER IDL1
264
- REAL (IDO,IP,L1) CC
265
- REAL io C1
266
- REAL io C2
267
- REAL (IDO,L1,IP) io CH
268
- REAL io CH2
269
- REAL WA
270
- )
271
- */
272
-
273
- /*****************************************************
274
- * math2/fftlib/passb2.f
275
- ****************************************************/
276
- /*
277
- * SUBROUTINE PASSB2 (IDO,L1,CC,CH,WA1)
278
- * DIMENSION CC(IDO,2,L1) ,CH(IDO,L1,2) ,
279
- */
280
- /*
281
- SUBROUTINE PASSB2(
282
- INTEGER IDO
283
- INTEGER L1
284
- REAL (IDO,2,L1) CC
285
- REAL (IDO,L1,2) o CH
286
- REAL WA1
287
- )
288
- */
289
-
290
- /*****************************************************
291
- * math2/fftlib/passb3.f
292
- ****************************************************/
293
- /*
294
- * SUBROUTINE PASSB3 (IDO,L1,CC,CH,WA1,WA2)
295
- * DIMENSION CC(IDO,3,L1) ,CH(IDO,L1,3) ,
296
- */
297
- /*
298
- SUBROUTINE PASSB3(
299
- INTEGER IDO
300
- INTEGER L1
301
- REAL (IDO,3,L1) CC
302
- REAL (IDO,L1,3) o CH
303
- REAL WA1
304
- REAL WA2
305
- )
306
- */
307
-
308
- /*****************************************************
309
- * math2/fftlib/passb4.f
310
- ****************************************************/
311
- /*
312
- * SUBROUTINE PASSB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
313
- * DIMENSION CC(IDO,4,L1) ,CH(IDO,L1,4) ,
314
- */
315
- /*
316
- SUBROUTINE PASSB4(
317
- INTEGER IDO
318
- INTEGER L1
319
- REAL (IDO,4,L1) CC
320
- REAL (IDO,L1,4) o CH
321
- REAL WA1
322
- REAL WA2
323
- REAL WA3
324
- )
325
- */
326
-
327
- /*****************************************************
328
- * math2/fftlib/passb5.f
329
- ****************************************************/
330
- /*
331
- * SUBROUTINE PASSB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
332
- * DIMENSION CC(IDO,5,L1) ,CH(IDO,L1,5) ,
333
- */
334
- /*
335
- SUBROUTINE PASSB5(
336
- INTEGER IDO
337
- INTEGER L1
338
- REAL (IDO,5,L1) CC
339
- REAL (IDO,L1,5) o CH
340
- REAL WA1
341
- REAL WA2
342
- REAL WA3
343
- REAL WA4
344
- )
345
- */
346
-
347
- /*****************************************************
348
- * math2/fftlib/passf.f
349
- ****************************************************/
350
- /*
351
- * SUBROUTINE PASSF (NAC,IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
352
- * DIMENSION CH(IDO,L1,IP) ,CC(IDO,IP,L1) ,
353
- */
354
- /*
355
- SUBROUTINE PASSF(
356
- INTEGER o NAC
357
- INTEGER IDO
358
- INTEGER IP
359
- INTEGER L1
360
- INTEGER IDL1
361
- REAL (IDO,IP,L1) CC
362
- REAL io C1
363
- REAL io C2
364
- REAL (IDO,L1,IP) io CH
365
- REAL io CH2
366
- REAL WA
367
- )
368
- */
369
-
370
- /*****************************************************
371
- * math2/fftlib/passf2.f
372
- ****************************************************/
373
- /*
374
- * SUBROUTINE PASSF2 (IDO,L1,CC,CH,WA1)
375
- * DIMENSION CC(IDO,2,L1) ,CH(IDO,L1,2) ,
376
- */
377
- /*
378
- SUBROUTINE PASSF2(
379
- INTEGER IDO
380
- INTEGER L1
381
- REAL (IDO,2,L1) CC
382
- REAL (IDO,L1,2) o CH
383
- REAL WA1
384
- )
385
- */
386
-
387
- /*****************************************************
388
- * math2/fftlib/radb2.f
389
- ****************************************************/
390
- /*
391
- * SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
392
- * DIMENSION CC(IDO,2,L1) ,CH(IDO,L1,2) ,
393
- */
394
- /*
395
- SUBROUTINE RADB2(
396
- INTEGER IDO
397
- INTEGER L1
398
- REAL (IDO,2,L1) CC
399
- REAL (IDO,L1,2) o CH
400
- REAL WA1
401
- )
402
- */
403
-
404
- /*****************************************************
405
- * math2/fftlib/passf3.f
406
- ****************************************************/
407
- /*
408
- * SUBROUTINE PASSF3 (IDO,L1,CC,CH,WA1,WA2)
409
- * DIMENSION CC(IDO,3,L1) ,CH(IDO,L1,3) ,
410
- */
411
- /*
412
- SUBROUTINE PASSF3(
413
- INTEGER IDO
414
- INTEGER L1
415
- REAL (IDO,3,L1) CC
416
- REAL (IDO,L1,3) o CH
417
- REAL WA1
418
- REAL WA2
419
- )
420
- */
421
-
422
- /*****************************************************
423
- * math2/fftlib/passf4.f
424
- ****************************************************/
425
- /*
426
- * SUBROUTINE PASSF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
427
- * DIMENSION CC(IDO,4,L1) ,CH(IDO,L1,4) ,
428
- */
429
- /*
430
- SUBROUTINE PASSF4(
431
- INTEGER IDO
432
- INTEGER L1
433
- REAL (IDO,4,L1) CC
434
- REAL (IDO,L1,4) o CH
435
- REAL WA1
436
- REAL WA2
437
- REAL WA3
438
- )
439
- */
440
-
441
- /*****************************************************
442
- * math2/fftlib/passf5.f
443
- ****************************************************/
444
- /*
445
- * SUBROUTINE PASSF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
446
- * DIMENSION CC(IDO,5,L1) ,CH(IDO,L1,5) ,
447
- */
448
- /*
449
- SUBROUTINE PASSF5(
450
- INTEGER IDO
451
- INTEGER L1
452
- REAL (IDO,5,L1) CC
453
- REAL (IDO,L1,5) o CH
454
- REAL WA1
455
- REAL WA2
456
- REAL WA3
457
- REAL WA4
458
- )
459
- */
460
-
461
- /*****************************************************
462
- * math2/fftlib/radb3.f
463
- ****************************************************/
464
- /*
465
- * SUBROUTINE RADB3 (IDO,L1,CC,CH,WA1,WA2)
466
- * DIMENSION CC(IDO,3,L1) ,CH(IDO,L1,3) ,
467
- */
468
- /*
469
- SUBROUTINE RADB3(
470
- INTEGER IDO
471
- INTEGER L1
472
- REAL (IDO,3,L1) CC
473
- REAL (IDO,L1,3) o CH
474
- REAL WA1
475
- REAL WA2
476
- )
477
- */
478
-
479
- /*****************************************************
480
- * math2/fftlib/radb4.f
481
- ****************************************************/
482
- /*
483
- * SUBROUTINE RADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
484
- * DIMENSION CC(IDO,4,L1) ,CH(IDO,L1,4) ,
485
- */
486
- /*
487
- SUBROUTINE RADB4(
488
- INTEGER IDO
489
- INTEGER L1
490
- REAL (IDO,4,L1) CC
491
- REAL (IDO,L1,4) o CH
492
- REAL WA1
493
- REAL WA2
494
- REAL WA3
495
- )
496
- */
497
-
498
- /*****************************************************
499
- * math2/fftlib/radb5.f
500
- ****************************************************/
501
- /*
502
- * SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
503
- * DIMENSION CC(IDO,5,L1) ,CH(IDO,L1,5) ,
504
- */
505
- /*
506
- SUBROUTINE RADB5(
507
- INTEGER IDO
508
- INTEGER L1
509
- REAL (IDO,5,L1) CC
510
- REAL (IDO,L1,5) o CH
511
- REAL WA1
512
- REAL WA2
513
- REAL WA3
514
- REAL WA4
515
- )
516
- */
517
-
518
- /*****************************************************
519
- * math2/fftlib/radbg.f
520
- ****************************************************/
521
- /*
522
- * SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
523
- * DIMENSION CH(IDO,L1,IP) ,CC(IDO,IP,L1) ,
524
- */
525
- /*
526
- SUBROUTINE RADBG(
527
- INTEGER IDO
528
- INTEGER IP
529
- INTEGER L1
530
- INTEGER IDL1
531
- REAL (IDO,IP,L1) CC
532
- REAL io C1
533
- REAL io C2
534
- REAL (IDO,L1,IP) io CH
535
- REAL io CH2
536
- REAL WA
537
- )
538
- */
539
-
540
- /*****************************************************
541
- * math2/fftlib/radf2.f
542
- ****************************************************/
543
- /*
544
- * SUBROUTINE RADF2 (IDO,L1,CC,CH,WA1)
545
- * DIMENSION CH(IDO,2,L1) ,CC(IDO,L1,2) ,
546
- */
547
- /*
548
- SUBROUTINE RADF2(
549
- INTEGER IDO
550
- INTEGER L1
551
- REAL (IDO,L1,2) CC
552
- REAL (IDO,2,L1) o CH
553
- REAL WA1
554
- )
555
- */
556
-
557
- /*****************************************************
558
- * math2/fftlib/radf3.f
559
- ****************************************************/
560
- /*
561
- * SUBROUTINE RADF3 (IDO,L1,CC,CH,WA1,WA2)
562
- * DIMENSION CH(IDO,3,L1) ,CC(IDO,L1,3) ,
563
- */
564
- /*
565
- SUBROUTINE RADF3(
566
- INTEGER IDO
567
- INTEGER L1
568
- REAL (IDO,L1,3) CC
569
- REAL (IDO,3,L1) o CH
570
- REAL WA1
571
- REAL WA2
572
- )
573
- */
574
-
575
- /*****************************************************
576
- * math2/fftlib/radf4.f
577
- ****************************************************/
578
- /*
579
- * SUBROUTINE RADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
580
- * DIMENSION CC(IDO,L1,4) ,CH(IDO,4,L1) ,
581
- */
582
- /*
583
- SUBROUTINE RADF4(
584
- INTEGER IDO
585
- INTEGER L1
586
- REAL (IDO,L1,4) CC
587
- REAL (IDO,4,L1) o CH
588
- REAL WA1
589
- REAL WA2
590
- REAL WA3
591
- )
592
- */
593
-
594
- /*****************************************************
595
- * math2/fftlib/radf5.f
596
- ****************************************************/
597
- /*
598
- * SUBROUTINE RADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
599
- * DIMENSION CC(IDO,L1,5) ,CH(IDO,5,L1) ,
600
- */
601
- /*
602
- SUBROUTINE RADF5(
603
- INTEGER IDO
604
- INTEGER L1
605
- REAL (IDO,L1,5) CC
606
- REAL (IDO,5,L1) o CH
607
- REAL WA1
608
- REAL WA2
609
- REAL WA3
610
- REAL WA4
611
- )
612
- */
613
-
614
- /*****************************************************
615
- * math2/fftlib/radfg.f
616
- ****************************************************/
617
- /*
618
- * SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
619
- * DIMENSION CH(IDO,L1,IP) ,CC(IDO,IP,L1) ,
620
- */
621
- /*
622
- SUBROUTINE RADFG(
623
- INTEGER IDO
624
- INTEGER IP
625
- INTEGER L1
626
- INTEGER IDL1
627
- REAL (IDO,IP,L1) CC
628
- REAL io C1
629
- REAL io C2
630
- REAL (IDO,L1,IP) io CH
631
- REAL io CH2
632
- REAL WA
633
- )
634
- */
635
-
636
- /*****************************************************
637
- * math2/fftlib/rfftb.f
638
- ****************************************************/
639
- /*
640
- * SUBROUTINE RFFTB (N,R,WSAVE)
641
- * DIMENSION R(*) ,WSAVE(*)
642
- */
643
- SUBROUTINE RFFTB(
644
- INTEGER N
645
- REAL (N) io R
646
- REAL (2*N+15) WSAVE
647
- )
648
-
649
- /*****************************************************
650
- * math2/fftlib/rfftb1.f
651
- ****************************************************/
652
- /*
653
- * SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC)
654
- * DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
655
- */
656
- /*
657
- SUBROUTINE RFFTB1(
658
- INTEGER N
659
- REAL (*) io C
660
- REAL (*) t CH
661
- REAL (*) t WA
662
- INTEGER (*) t IFAC
663
- )
664
- */
665
-
666
- /*****************************************************
667
- * math2/fftlib/rfftf.f
668
- ****************************************************/
669
- /*
670
- * SUBROUTINE RFFTF (N,R,WSAVE)
671
- * DIMENSION R(*) ,WSAVE(*)
672
- */
673
- SUBROUTINE RFFTF(
674
- INTEGER N
675
- REAL (N) io R
676
- REAL (2*N+15) WSAVE
677
- )
678
-
679
- /*****************************************************
680
- * math2/fftlib/rfftf1.f
681
- ****************************************************/
682
- /*
683
- * SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC)
684
- * DIMENSION CH(*) ,C(*) ,WA(*) ,IFAC(*)
685
- */
686
- /*
687
- SUBROUTINE RFFTF1(
688
- INTEGER N
689
- REAL (*) io C
690
- REAL (*) t CH
691
- REAL (*) t WA
692
- INTEGER (*) t IFAC
693
- )
694
- */
695
-
696
- /*****************************************************
697
- * math2/fftlib/rffti.f
698
- ****************************************************/
699
- /*
700
- * SUBROUTINE RFFTI (N,WSAVE)
701
- * DIMENSION WSAVE(*)
702
- */
703
- SUBROUTINE RFFTI(
704
- INTEGER N
705
- REAL (2*N+15) o WSAVE
706
- )
707
-
708
- /*****************************************************
709
- * math2/fftlib/rffti1.f
710
- ****************************************************/
711
- /*
712
- * SUBROUTINE RFFTI1 (N,WA,IFAC)
713
- * DIMENSION WA(*) ,IFAC(*) ,NTRYH(4)
714
- */
715
- /*
716
- SUBROUTINE RFFTI1(
717
- INTEGER N
718
- REAL (*) o WA
719
- INTEGER (*) o IFAC
720
- )
721
- */
722
-
723
- /*****************************************************
724
- * math2/fftlib/sinqb.f
725
- ****************************************************/
726
- /*
727
- * SUBROUTINE SINQB (N,X,WSAVE)
728
- * DIMENSION X(*) ,WSAVE(*)
729
- */
730
- SUBROUTINE SINQB(
731
- INTEGER N
732
- REAL (N) io X
733
- REAL (3*N+15) WSAVE
734
- )
735
-
736
- /*****************************************************
737
- * math2/fftlib/sinqf.f
738
- ****************************************************/
739
- /*
740
- * SUBROUTINE SINQF (N,X,WSAVE)
741
- * DIMENSION X(*) ,WSAVE(*)
742
- */
743
- SUBROUTINE SINQF(
744
- INTEGER N
745
- REAL (N) io X
746
- REAL (3*N+15) WSAVE
747
- )
748
-
749
- /*****************************************************
750
- * math2/fftlib/sinqi.f
751
- ****************************************************/
752
- /*
753
- * SUBROUTINE SINQI (N,WSAVE)
754
- * DIMENSION WSAVE(*)
755
- */
756
- SUBROUTINE SINQI(
757
- INTEGER N
758
- REAL (3*N+15) o WSAVE
759
- )
760
-
761
- /*****************************************************
762
- * math2/fftlib/sint.f
763
- ****************************************************/
764
- /*
765
- * SUBROUTINE SINT (N,X,WSAVE)
766
- * DIMENSION X(*) ,WSAVE(*)
767
- */
768
- SUBROUTINE SINT(
769
- INTEGER N
770
- REAL (N) io X
771
- REAL (2*N+N/2+15) WSAVE
772
- )
773
-
774
- /*****************************************************
775
- * math2/fftlib/sint1.f
776
- ****************************************************/
777
- /*
778
- * SUBROUTINE SINT1(N,WAR,WAS,XH,X,IFAC)
779
- * DIMENSION WAR(*),WAS(*),X(*),XH(*),IFAC(*)
780
- */
781
- /*
782
- SUBROUTINE SINT1(
783
- INTEGER N
784
- REAL (*) io WAR
785
- REAL (*) t WAS
786
- REAL (*) t XH
787
- REAL t X
788
- INTEGER (*) t IFAC
789
- )
790
- */
791
-
792
- /*****************************************************
793
- * math2/fftlib/sinti.f
794
- ****************************************************/
795
- /*
796
- * SUBROUTINE SINTI (N,WSAVE)
797
- * DIMENSION WSAVE(*)
798
- */
799
- SUBROUTINE SINTI(
800
- INTEGER N
801
- REAL (2*N+N/2+15) o WSAVE
802
- )
803
-