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

Last change on this file since 633 was 459, checked in by ansari, 26 years ago

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