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_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
-