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


Ignore:
Timestamp:
Mar 2, 2000, 5:22:08 PM (26 years ago)
Author:
ansari
Message:

Restructuration de Sophya en petits modules - Petites corrections diverses

Reza 2/3/2000

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/NTools/fftpackc.h

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