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

Last change on this file since 4083 was 756, checked in by ansari, 26 years ago

Restructuration de Sophya en petits modules - Petites corrections diverses

Reza 2/3/2000
File size: 7.5 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
10 /* typedef int integer;
11 typedef unsigned uinteger;
12 typedef char *address;
13 typedef 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_(int_4 *n, r_4 *c__, r_4 *wsave);
27extern int cfftb1_(int_4 *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
28extern int cfftf_(int_4 *n, r_4 *c__, r_4 *wsave);
29extern int cfftf1_(int_4 *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
30extern int cffti_(int_4 *n, r_4 *wsave);
31extern int cffti1_(int_4 *n, r_4 *wa, int_4 *ifac);
32extern int cosqb_(int_4 *n, r_4 *x, r_4 *wsave);
33extern int cosqb1_(int_4 *n, r_4 *x, r_4 *w, r_4 *xh);
34extern int cosqf_(int_4 *n, r_4 *x, r_4 *wsave);
35extern int cosqf1_(int_4 *n, r_4 *x, r_4 *w, r_4 *xh);
36extern int cosqi_(int_4 *n, r_4 *wsave);
37extern int cost_(int_4 *n, r_4 *x, r_4 *wsave);
38extern int costi_(int_4 *n, r_4 *wsave);
39extern int ezfft1_(int_4 *n, r_4 *wa, int_4 *ifac);
40extern int ezfftb_(int_4 *n, r_4 *r__, r_4 *azero, r_4 *a, r_4 *b, r_4 *wsave);
41extern int ezfftf_(int_4 *n, r_4 *r__, r_4 *azero, r_4 *a, r_4 *b, r_4 *wsave);
42extern int ezffti_(int_4 *n, r_4 *wsave);
43extern int passb_(int_4 *nac, int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
44extern int passb2_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
45extern int passb3_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
46extern int passb4_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
47extern int passb5_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
48extern int passf_(int_4 *nac, int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
49extern int passf2_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
50extern int passf3_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
51extern int passf4_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
52extern int passf5_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
53extern int radb2_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
54extern int radb3_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
55extern int radb4_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
56extern int radb5_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
57extern int radbg_(int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
58extern int radf2_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1);
59extern int radf3_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2);
60extern int radf4_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3);
61extern int radf5_(int_4 *ido, int_4 *l1, r_4 *cc, r_4 *ch, r_4 *wa1, r_4 *wa2, r_4 *wa3, r_4 *wa4);
62extern int radfg_(int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_4 *cc, r_4 *c1, r_4 *c2, r_4 *ch, r_4 *ch2, r_4 *wa);
63extern int rfftb_(int_4 *n, r_4 *r__, r_4 *wsave);
64extern int rfftb1_(int_4 *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
65extern int rfftf_(int_4 *n, r_4 *r__, r_4 *wsave);
66extern int rfftf1_(int_4 *n, r_4 *c__, r_4 *ch, r_4 *wa, int_4 *ifac);
67extern int rffti_(int_4 *n, r_4 *wsave);
68extern int rffti1_(int_4 *n, r_4 *wa, int_4 *ifac);
69extern int sinqb_(int_4 *n, r_4 *x, r_4 *wsave);
70extern int sinqf_(int_4 *n, r_4 *x, r_4 *wsave);
71extern int sinqi_(int_4 *n, r_4 *wsave);
72extern int sint_(int_4 *n, r_4 *x, r_4 *wsave);
73extern int sint1_(int_4 *n, r_4 *war, r_4 *was, r_4 *xh, r_4 *x, int_4 *ifac);
74extern int sinti_(int_4 *n, r_4 *wsave);
75
76/* ---------------------- */
77
78extern int cdfftb_(int_4 *n, r_8 *c__, r_8 *wsave);
79extern int cdfftb1_(int_4 *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
80extern int cdfftf_(int_4 *n, r_8 *c__, r_8 *wsave);
81extern int cdfftf1_(int_4 *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
82extern int cdffti_(int_4 *n, r_8 *wsave);
83extern int cdffti1_(int_4 *n, r_8 *wa, int_8 *ifac);
84extern int dcosqb_(int_4 *n, r_8 *x, r_8 *wsave);
85extern int dcosqb1_(int_4 *n, r_8 *x, r_8 *w, r_8 *xh);
86extern int dcosqf_(int_4 *n, r_8 *x, r_8 *wsave);
87extern int dcosqf1_(int_4 *n, r_8 *x, r_8 *w, r_8 *xh);
88extern int dcosqi_(int_4 *n, r_8 *wsave);
89extern int dcost_(int_4 *n, r_8 *x, r_8 *wsave);
90extern int dcosti_(int_4 *n, r_8 *wsave);
91extern int dezfft1_(int_4 *n, r_8 *wa, int_8 *ifac);
92extern int dezfftb_(int_4 *n, r_8 *r__, r_8 *azero, r_8 *a, r_8 *b, r_8 *wsave);
93extern int dezfftf_(int_4 *n, r_8 *r__, r_8 *azero, r_8 *a, r_8 *b, r_8 *wsave);
94extern int dezffti_(int_4 *n, r_8 *wsave);
95extern int dpassb_(int_4 *nac, int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
96extern int dpassb2_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
97extern int dpassb3_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
98extern int dpassb4_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
99extern int dpassb5_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
100extern int dpassf_(int_4 *nac, int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
101extern int dpassf2_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
102extern int dpassf3_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
103extern int dpassf4_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
104extern int dpassf5_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
105extern int dadb2_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
106extern int dadb3_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
107extern int dadb4_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
108extern int dadb5_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
109extern int dadbg_(int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
110extern int dadf2_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1);
111extern int dadf3_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2);
112extern int dadf4_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3);
113extern int dadf5_(int_4 *ido, int_4 *l1, r_8 *cc, r_8 *ch, r_8 *wa1, r_8 *wa2, r_8 *wa3, r_8 *wa4);
114extern int dadfg_(int_4 *ido, int_4 *ip, int_4 *l1, int_4 *idl1, r_8 *cc, r_8 *c1, r_8 *c2, r_8 *ch, r_8 *ch2, r_8 *wa);
115extern int dfftb_(int_4 *n, r_8 *r__, r_8 *wsave);
116extern int dfftb1_(int_4 *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
117extern int dfftf_(int_4 *n, r_8 *r__, r_8 *wsave);
118extern int dfftf1_(int_4 *n, r_8 *c__, r_8 *ch, r_8 *wa, int_8 *ifac);
119extern int dffti_(int_4 *n, r_8 *wsave);
120extern int dffti1_(int_4 *n, r_8 *wa, int_8 *ifac);
121extern int dsinqb_(int_4 *n, r_8 *x, r_8 *wsave);
122extern int dsinqf_(int_4 *n, r_8 *x, r_8 *wsave);
123extern int dsinqi_(int_4 *n, r_8 *wsave);
124extern int dsint_(int_4 *n, r_8 *x, r_8 *wsave);
125extern int dsint1_(int_4 *n, r_8 *war, r_8 *was, r_8 *xh, r_8 *x, int_8 *ifac);
126extern int dsinti_(int_4 *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.