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


Ignore:
Timestamp:
Feb 5, 2000, 6:22:55 PM (26 years ago)
Author:
ansari
Message:

Introduction FFTMayer, debug de FFTPack - Reza 5/2/2000

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/NTools/fftpackc.h

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