#ifndef FFTPACK_H_SEEN #define FFTPACK_H_SEEN #include "machdefs.h" /* #include "f2c.h" -- Remplace par ce qui suit */ typedef int integer; typedef unsigned uinteger; typedef char *address; typedef short int shortint; typedef float real; typedef double doublereal; typedef struct { float r, i; } complex; typedef struct { double r, i; } doublecomplex; /* typedef int_4 logical; typedef short int shortlogical; typedef char logical1; typedef char integer1; */ /* ---------------------- */ extern int cfftb_(integer *n, real *c__, real *wsave); extern int cfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); extern int cfftf_(integer *n, real *c__, real *wsave); extern int cfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); extern int cffti_(integer *n, real *wsave); extern int cffti1_(integer *n, real *wa, integer *ifac); extern int cosqb_(integer *n, real *x, real *wsave); extern int cosqb1_(integer *n, real *x, real *w, real *xh); extern int cosqf_(integer *n, real *x, real *wsave); extern int cosqf1_(integer *n, real *x, real *w, real *xh); extern int cosqi_(integer *n, real *wsave); extern int cost_(integer *n, real *x, real *wsave); extern int costi_(integer *n, real *wsave); extern int ezfft1_(integer *n, real *wa, integer *ifac); extern int ezfftb_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave); extern int ezfftf_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave); extern int ezffti_(integer *n, real *wsave); extern int passb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); extern int passb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); extern int passb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); extern int passb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); extern int passb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); extern int passf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); extern int passf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); extern int passf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); extern int passf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); extern int passf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); extern int radb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); extern int radb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); extern int radb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); extern int radb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); extern int radf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); extern int radf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); extern int radf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); extern int radf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); extern int rfftb_(integer *n, real *r__, real *wsave); extern int rfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); extern int rfftf_(integer *n, real *r__, real *wsave); extern int rfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); extern int rffti_(integer *n, real *wsave); extern int rffti1_(integer *n, real *wa, integer *ifac); extern int sinqb_(integer *n, real *x, real *wsave); extern int sinqf_(integer *n, real *x, real *wsave); extern int sinqi_(integer *n, real *wsave); extern int sint_(integer *n, real *x, real *wsave); extern int sint1_(integer *n, real *war, real *was, real *xh, real *x, integer *ifac); extern int sinti_(integer *n, real *wsave); /* ---------------------- */ extern int cdfftb_(integer *n, double *c__, double *wsave); extern int cdfftb1_(integer *n, double *c__, double *ch, double *wa, integer *ifac); extern int cdfftf_(integer *n, double *c__, double *wsave); extern int cdfftf1_(integer *n, double *c__, double *ch, double *wa, integer *ifac); extern int cdffti_(integer *n, double *wsave); extern int cdffti1_(integer *n, double *wa, integer *ifac); extern int dcosqb_(integer *n, double *x, double *wsave); extern int dcosqb1_(integer *n, double *x, double *w, double *xh); extern int dcosqf_(integer *n, double *x, double *wsave); extern int dcosqf1_(integer *n, double *x, double *w, double *xh); extern int dcosqi_(integer *n, double *wsave); extern int dcost_(integer *n, double *x, double *wsave); extern int dcosti_(integer *n, double *wsave); extern int dezfft1_(integer *n, double *wa, integer *ifac); extern int dezfftb_(integer *n, double *r__, double *azero, double *a, double *b, double *wsave); extern int dezfftf_(integer *n, double *r__, double *azero, double *a, double *b, double *wsave); extern int dezffti_(integer *n, double *wsave); extern int dpassb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, double *cc, double *c1, double *c2, double *ch, double *ch2, double *wa); extern int dpassb2_(integer *ido, integer *l1, double *cc, double *ch, double *wa1); extern int dpassb3_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2); extern int dpassb4_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3); extern int dpassb5_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3, double *wa4); extern int dpassf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, double *cc, double *c1, double *c2, double *ch, double *ch2, double *wa); extern int dpassf2_(integer *ido, integer *l1, double *cc, double *ch, double *wa1); extern int dpassf3_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2); extern int dpassf4_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3); extern int dpassf5_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3, double *wa4); extern int dadb2_(integer *ido, integer *l1, double *cc, double *ch, double *wa1); extern int dadb3_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2); extern int dadb4_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3); extern int dadb5_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3, double *wa4); extern int dadbg_(integer *ido, integer *ip, integer *l1, integer *idl1, double *cc, double *c1, double *c2, double *ch, double *ch2, double *wa); extern int dadf2_(integer *ido, integer *l1, double *cc, double *ch, double *wa1); extern int dadf3_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2); extern int dadf4_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3); extern int dadf5_(integer *ido, integer *l1, double *cc, double *ch, double *wa1, double *wa2, double *wa3, double *wa4); extern int dadfg_(integer *ido, integer *ip, integer *l1, integer *idl1, double *cc, double *c1, double *c2, double *ch, double *ch2, double *wa); extern int dfftb_(integer *n, double *r__, double *wsave); extern int dfftb1_(integer *n, double *c__, double *ch, double *wa, integer *ifac); extern int dfftf_(integer *n, double *r__, double *wsave); extern int dfftf1_(integer *n, double *c__, double *ch, double *wa, integer *ifac); extern int dffti_(integer *n, double *wsave); extern int dffti1_(integer *n, double *wa, integer *ifac); extern int dsinqb_(integer *n, double *x, double *wsave); extern int dsinqf_(integer *n, double *x, double *wsave); extern int dsinqi_(integer *n, double *wsave); extern int dsint_(integer *n, double *x, double *wsave); extern int dsint1_(integer *n, double *war, double *was, double *xh, double *x, integer *ifac); extern int dsinti_(integer *n, double *wsave); /* Rerunning f2c -P may change prototypes or declarations. */ #endif /* FFTPACK_H_SEEN */