Changeset 710 in Sophya for trunk/SophyaLib/NTools/fftpackc.h


Ignore:
Timestamp:
Jan 21, 2000, 6:00:45 PM (26 years ago)
Author:
ansari
Message:

Introduction FFTServerInterface et FFTPackServer - Reza 21/01/2000

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/NTools/fftpackc.h

    r459 r710  
    44#include "machdefs.h"
    55/* #include "f2c.h" -- Remplace par ce qui suit */
     6#ifdef __cplusplus
     7extern "C" {
     8#endif
    69
    710typedef int integer;
    … …  
    912typedef char *address;
    1013typedef short int shortint;
    11 typedef float real;
    12 typedef double doublereal;
    13 typedef struct { float r, i; } complex;
    14 typedef struct { double r, i; } doublecomplex;
     14  // typedef float real;
     15  // typedef double doublereal;
     16  //typedef struct { float r, i; } complex;
     17  //typedef struct { double r, i; } doublecomplex;
    1518
    1619/* typedef int_4 logical;
    … …  
    2124/* ---------------------- */
    2225
    23 extern int cfftb_(integer *n, real *c__, real *wsave);
    24 extern int cfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
    25 extern int cfftf_(integer *n, real *c__, real *wsave);
    26 extern int cfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
    27 extern int cffti_(integer *n, real *wsave);
    28 extern int cffti1_(integer *n, real *wa, integer *ifac);
    29 extern int cosqb_(integer *n, real *x, real *wsave);
    30 extern int cosqb1_(integer *n, real *x, real *w, real *xh);
    31 extern int cosqf_(integer *n, real *x, real *wsave);
    32 extern int cosqf1_(integer *n, real *x, real *w, real *xh);
    33 extern int cosqi_(integer *n, real *wsave);
    34 extern int cost_(integer *n, real *x, real *wsave);
    35 extern int costi_(integer *n, real *wsave);
    36 extern int ezfft1_(integer *n, real *wa, integer *ifac);
    37 extern int ezfftb_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
    38 extern int ezfftf_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
    39 extern int ezffti_(integer *n, real *wsave);
    40 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);
    41 extern int passb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
    42 extern int passb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
    43 extern int passb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
    44 extern int passb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
    45 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);
    46 extern int passf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
    47 extern int passf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
    48 extern int passf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
    49 extern int passf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
    50 extern int radb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
    51 extern int radb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
    52 extern int radb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
    53 extern int radb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
    54 extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
    55 extern int radf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
    56 extern int radf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
    57 extern int radf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
    58 extern int radf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
    59 extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
    60 extern int rfftb_(integer *n, real *r__, real *wsave);
    61 extern int rfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
    62 extern int rfftf_(integer *n, real *r__, real *wsave);
    63 extern int rfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
    64 extern int rffti_(integer *n, real *wsave);
    65 extern int rffti1_(integer *n, real *wa, integer *ifac);
    66 extern int sinqb_(integer *n, real *x, real *wsave);
    67 extern int sinqf_(integer *n, real *x, real *wsave);
    68 extern int sinqi_(integer *n, real *wsave);
    69 extern int sint_(integer *n, real *x, real *wsave);
    70 extern int sint1_(integer *n, real *war, real *was, real *xh, real *x, integer *ifac);
    71 extern int sinti_(integer *n, real *wsave);
     26extern int cfftb_(integer *n, float *c__, float *wsave);
     27extern int cfftb1_(integer *n, float *c__, float *ch, float *wa, integer *ifac);
     28extern int cfftf_(integer *n, float *c__, float *wsave);
     29extern int cfftf1_(integer *n, float *c__, float *ch, float *wa, integer *ifac);
     30extern int cffti_(integer *n, float *wsave);
     31extern int cffti1_(integer *n, float *wa, integer *ifac);
     32extern int cosqb_(integer *n, float *x, float *wsave);
     33extern int cosqb1_(integer *n, float *x, float *w, float *xh);
     34extern int cosqf_(integer *n, float *x, float *wsave);
     35extern int cosqf1_(integer *n, float *x, float *w, float *xh);
     36extern int cosqi_(integer *n, float *wsave);
     37extern int cost_(integer *n, float *x, float *wsave);
     38extern int costi_(integer *n, float *wsave);
     39extern int ezfft1_(integer *n, float *wa, integer *ifac);
     40extern int ezfftb_(integer *n, float *r__, float *azero, float *a, float *b, float *wsave);
     41extern int ezfftf_(integer *n, float *r__, float *azero, float *a, float *b, float *wsave);
     42extern int ezffti_(integer *n, float *wsave);
     43extern int passb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, float *cc, float *c1, float *c2, float *ch, float *ch2, float *wa);
     44extern int passb2_(integer *ido, integer *l1, float *cc, float *ch, float *wa1);
     45extern int passb3_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2);
     46extern int passb4_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3);
     47extern int passb5_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3, float *wa4);
     48extern int passf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, float *cc, float *c1, float *c2, float *ch, float *ch2, float *wa);
     49extern int passf2_(integer *ido, integer *l1, float *cc, float *ch, float *wa1);
     50extern int passf3_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2);
     51extern int passf4_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3);
     52extern int passf5_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3, float *wa4);
     53extern int radb2_(integer *ido, integer *l1, float *cc, float *ch, float *wa1);
     54extern int radb3_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2);
     55extern int radb4_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3);
     56extern int radb5_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3, float *wa4);
     57extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, float *cc, float *c1, float *c2, float *ch, float *ch2, float *wa);
     58extern int radf2_(integer *ido, integer *l1, float *cc, float *ch, float *wa1);
     59extern int radf3_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2);
     60extern int radf4_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3);
     61extern int radf5_(integer *ido, integer *l1, float *cc, float *ch, float *wa1, float *wa2, float *wa3, float *wa4);
     62extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, float *cc, float *c1, float *c2, float *ch, float *ch2, float *wa);
     63extern int rfftb_(integer *n, float *r__, float *wsave);
     64extern int rfftb1_(integer *n, float *c__, float *ch, float *wa, integer *ifac);
     65extern int rfftf_(integer *n, float *r__, float *wsave);
     66extern int rfftf1_(integer *n, float *c__, float *ch, float *wa, integer *ifac);
     67extern int rffti_(integer *n, float *wsave);
     68extern int rffti1_(integer *n, float *wa, integer *ifac);
     69extern int sinqb_(integer *n, float *x, float *wsave);
     70extern int sinqf_(integer *n, float *x, float *wsave);
     71extern int sinqi_(integer *n, float *wsave);
     72extern int sint_(integer *n, float *x, float *wsave);
     73extern int sint1_(integer *n, float *war, float *was, float *xh, float *x, integer *ifac);
     74extern int sinti_(integer *n, float *wsave);
    7275
    7376/* ---------------------- */
    … …  
    124127
    125128/* Rerunning f2c -P may change prototypes or declarations. */
     129#ifdef __cplusplus
     130}
     131#endif
    126132
    127133#endif /*  FFTPACK_H_SEEN */
Note: See TracChangeset for help on using the changeset viewer.