source: Sophya/trunk/SophyaLib/NTools/fftpackc.h@ 726

Last change on this file since 726 was 717, checked in by ansari, 26 years ago

Introduction FFTMayer, debug de FFTPack - Reza 5/2/2000
File size: 7.8 KB
Line 
1#ifndef FFTPACK_H_SEEN
2#define FFTPACK_H_SEEN
3
4#include "machdefs.h"
5/* #include "f2c.h" -- Remplace par ce qui suit */
6#ifdef __cplusplus
7extern "C" {
8#endif
9
10typedef int integer;
11typedef unsigned uinteger;
12typedef char *address;
13typedef short int shortint;
14 // typedef float real;
15 // typedef double doublereal;
16 //typedef struct { float r, i; } complex;
17 //typedef struct { double r, i; } doublecomplex;
18
19/* typedef int_4 logical;
20typedef short int shortlogical;
21typedef char logical1;
22typedef char integer1; */
23
24/* ---------------------- */
25
26extern int cfftb_(integer *n, r_4 *c__, r_4 *wsave);
27extern int cfftb1_(integer *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
28extern int cfftf_(integer *n, r_4 *c__, r_4 *wsave);
29extern int cfftf1_(integer *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
30extern int cffti_(integer *n, r_4 *wsave);
31extern int cffti1_(integer *n, r_4 *wa, int_4 *ifac);
32extern int cosqb_(integer *n, r_4 *x, r_4 *wsave);
33extern int cosqb1_(integer *n, r_4 *x, r_4 *w, r_4 *xh);
34extern int cosqf_(integer *n, r_4 *x, r_4 *wsave);
35extern int cosqf1_(integer *n, r_4 *x, r_4 *w, r_4 *xh);
36extern int cosqi_(integer *n, r_4 *wsave);
37extern int cost_(integer *n, r_4 *x, r_4 *wsave);
38extern int costi_(integer *n, r_4 *wsave);
39extern int ezfft1_(integer *n, r_4 *wa, int_4 *ifac);
40extern int ezfftb_(integer *n, r_4 *r__, r_4 *azero, r_4 *a, r_4 *b, r_4 *wsave);
41extern int ezfftf_(integer *n, r_4 *r__, r_4 *azero, r_4 *a, r_4 *b, r_4 *wsave);
42extern int ezffti_(integer *n, r_4 *wsave);
43extern int passb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
44extern int passb2_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
45extern int passb3_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
46extern int passb4_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
47extern int passb5_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
48extern int passf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
49extern int passf2_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
50extern int passf3_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
51extern int passf4_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
52extern int passf5_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
53extern int radb2_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
54extern int radb3_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
55extern int radb4_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
56extern int radb5_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
57extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
58extern int radf2_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
59extern int radf3_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
60extern int radf4_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
61extern int radf5_(integer *ido, integer *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
62extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
63extern int rfftb_(integer *n, r_4 *r__, r_4 *wsave);
64extern int rfftb1_(integer *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
65extern int rfftf_(integer *n, r_4 *r__, r_4 *wsave);
66extern int rfftf1_(integer *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
67extern int rffti_(integer *n, r_4 *wsave);
68extern int rffti1_(integer *n, r_4 *wa, int_4 *ifac);
69extern int sinqb_(integer *n, r_4 *x, r_4 *wsave);
70extern int sinqf_(integer *n, r_4 *x, r_4 *wsave);
71extern int sinqi_(integer *n, r_4 *wsave);
72extern int sint_(integer *n, r_4 *x, r_4 *wsave);
73extern int sint1_(integer *n, r_4 *war, r_4 *was, r_4 *xh, r_4 *x, int_4 *ifac);
74extern int sinti_(integer *n, r_4 *wsave);
75
76/* ---------------------- */
77
78extern int cdfftb_(integer *n, r_8 *c__, r_8 *wsave);
79extern int cdfftb1_(integer *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
80extern int cdfftf_(integer *n, r_8 *c__, r_8 *wsave);
81extern int cdfftf1_(integer *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
82extern int cdffti_(integer *n, r_8 *wsave);
83extern int cdffti1_(integer *n, r_8 *wa, int_8 *ifac);
84extern int dcosqb_(integer *n, r_8 *x, r_8 *wsave);
85extern int dcosqb1_(integer *n, r_8 *x, r_8 *w, r_8 *xh);
86extern int dcosqf_(integer *n, r_8 *x, r_8 *wsave);
87extern int dcosqf1_(integer *n, r_8 *x, r_8 *w, r_8 *xh);
88extern int dcosqi_(integer *n, r_8 *wsave);
89extern int dcost_(integer *n, r_8 *x, r_8 *wsave);
90extern int dcosti_(integer *n, r_8 *wsave);
91extern int dezfft1_(integer *n, r_8 *wa, int_8 *ifac);
92extern int dezfftb_(integer *n, r_8 *r__, r_8 *azero, r_8 *a, r_8 *b, r_8 *wsave);
93extern int dezfftf_(integer *n, r_8 *r__, r_8 *azero, r_8 *a, r_8 *b, r_8 *wsave);
94extern int dezffti_(integer *n, r_8 *wsave);
95extern int dpassb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
96extern int dpassb2_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
97extern int dpassb3_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
98extern int dpassb4_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
99extern int dpassb5_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
100extern int dpassf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
101extern int dpassf2_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
102extern int dpassf3_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
103extern int dpassf4_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
104extern int dpassf5_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
105extern int dadb2_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
106extern int dadb3_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
107extern int dadb4_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
108extern int dadb5_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
109extern int dadbg_(integer *ido, integer *ip, integer *l1, integer *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
110extern int dadf2_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
111extern int dadf3_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
112extern int dadf4_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
113extern int dadf5_(integer *ido, integer *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
114extern int dadfg_(integer *ido, integer *ip, integer *l1, integer *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
115extern int dfftb_(integer *n, r_8 *r__, r_8 *wsave);
116extern int dfftb1_(integer *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
117extern int dfftf_(integer *n, r_8 *r__, r_8 *wsave);
118extern int dfftf1_(integer *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
119extern int dffti_(integer *n, r_8 *wsave);
120extern int dffti1_(integer *n, r_8 *wa, int_8 *ifac);
121extern int dsinqb_(integer *n, r_8 *x, r_8 *wsave);
122extern int dsinqf_(integer *n, r_8 *x, r_8 *wsave);
123extern int dsinqi_(integer *n, r_8 *wsave);
124extern int dsint_(integer *n, r_8 *x, r_8 *wsave);
125extern int dsint1_(integer *n, r_8 *war, r_8 *was, r_8 *xh, r_8 *x, int_8 *ifac);
126extern int dsinti_(integer *n, r_8 *wsave);
127
128/* Rerunning f2c -P may change prototypes or declarations. */
129#ifdef __cplusplus
130}
131#endif
132
133#endif /* FFTPACK_H_SEEN */
Note: See TracBrowser for help on using the repository browser.