Changeset 663 in Sophya for trunk/SophyaLib/NTools/fftpackc.c


Ignore:
Timestamp:
Nov 29, 1999, 1:48:11 PM (26 years ago)
Author:
ansari
Message:

Preparation pour tag V_Oct99 , Reza 29/11/99

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/NTools/fftpackc.c

    r459 r663  
    88/* #include "f2c.h" -- Remplace par ce qui suit */
    99#include "fftpackc.h"
     10#include <math.h>
    1011
    1112/*  ------ File cfftb.f ------ */
    … …  
    2627    iw1 = *n + *n + 1;
    2728    iw2 = iw1 + *n + *n;
    28     cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     29    cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);  /* (int *) ajoute - Reza 29/11/99 */
    2930    return 0;
    3031} /* cfftb_ */
    … …  
    179180    iw1 = *n + *n + 1;
    180181    iw2 = iw1 + *n + *n;
    181     cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     182    cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);   /* (int *) ajoute - Reza 29/11/99 */
    182183    return 0;
    183184} /* cfftf_ */
    … …  
    330331    iw1 = *n + *n + 1;
    331332    iw2 = iw1 + *n + *n;
    332     cffti1_(n, &wsave[iw1], &wsave[iw2]);
     333    cffti1_(n, &wsave[iw1], (int *)&wsave[iw2]);  /*  (int *) ajoute Reza 29/11/99 */
    333334    return 0;
    334335} /* cffti_ */
    … …  
    344345    integer i__1, i__2, i__3;
    345346
    346     /* Builtin functions */
    347     double cos(doublereal), sin(doublereal);
     347    /* Builtin functions */ 
     348/*    double cos(doublereal), sin(doublereal);   commente, remplace par math.h - Reza  29/11/99 */
    348349
    349350    /* Local variables */
    … …  
    645646
    646647    /* Builtin functions */
    647     double cos(doublereal);
     648/*    double cos(doublereal);    commente - Remplace par math.h  Reza 29/11/99 */
    648649
    649650    /* Local variables */
    … …  
    762763
    763764    /* Builtin functions */
    764     double sin(doublereal), cos(doublereal);
     765/*    double sin(doublereal), cos(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    765766
    766767    /* Local variables */
    … …  
    807808
    808809    /* Builtin functions */
    809     double cos(doublereal), sin(doublereal);
     810/*    double cos(doublereal), sin(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    810811
    811812    /* Local variables */
    … …  
    27282729
    27292730    /* Builtin functions */
    2730     double cos(doublereal), sin(doublereal);
     2731/*    double cos(doublereal), sin(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    27312732
    27322733    /* Local variables */
    … …  
    34603461
    34613462    /* Builtin functions */
    3462     double cos(doublereal), sin(doublereal);
     3463/*    double cos(doublereal), sin(doublereal);    */
    34633464
    34643465    /* Local variables */
    … …  
    38073808        return 0;
    38083809    }
    3809     rfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     3810    rfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]);   /* (int *) rajoute Reza 29/11/99 */
    38103811    return 0;
    38113812} /* rfftb_ */
    … …  
    39533954        return 0;
    39543955    }
    3955     rfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     3956    rfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    39563957    return 0;
    39573958} /* rfftf_ */
    … …  
    40924093        return 0;
    40934094    }
    4094     rffti1_(n, &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     4095    rffti1_(n, &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    40954096    return 0;
    40964097} /* rffti_ */
    … …  
    41074108
    41084109    /* Builtin functions */
    4109     double cos(doublereal), sin(doublereal);
     4110/*   double cos(doublereal), sin(doublereal);  Remplace par math.h , Reza 29/11/99 */
    41104111
    41114112    /* Local variables */
    … …  
    43194320    iw2 = iw1 + np1;
    43204321    iw3 = iw2 + np1;
    4321     sint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], &wsave[iw3]);
     4322    sint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], (int *)&wsave[iw3]);  /* (int *) rajoute Reza 29/11/99 */
    43224323    return 0;
    43234324} /* sint_ */
    … …  
    44204421
    44214422    /* Builtin functions */
    4422     double sin(doublereal);
     4423/*    double sin(doublereal);  remplace par math.h , Reza 29/11/99 */
    44234424
    44244425    /* Local variables */
    … …  
    44654466    iw1 = *n + *n + 1;
    44664467    iw2 = iw1 + *n + *n;
    4467     cdfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     4468    cdfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    44684469    return 0;
    44694470} /* cdfftb_ */
    … …  
    46184619    iw1 = *n + *n + 1;
    46194620    iw2 = iw1 + *n + *n;
    4620     cdfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     4621    cdfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    46214622    return 0;
    46224623} /* cdfftf_ */
    … …  
    47694770    iw1 = *n + *n + 1;
    47704771    iw2 = iw1 + *n + *n;
    4771     cdffti1_(n, &wsave[iw1], &wsave[iw2]);
     4772    cdffti1_(n, &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    47724773    return 0;
    47734774} /* cdffti_ */
    … …  
    47844785
    47854786    /* Builtin functions */
    4786     double cos(doublereal), sin(doublereal);
     4787/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    47874788
    47884789    /* Local variables */
    … …  
    50845085
    50855086    /* Builtin functions */
    5086     double cos(doublereal);
     5087/*    double cos(doublereal); remplace par math.h  Reza 29/11/99 */
    50875088
    50885089    /* Local variables */
    … …  
    52015202
    52025203    /* Builtin functions */
    5203     double sin(doublereal), cos(doublereal);
     5204/*    double sin(doublereal), cos(doublereal);  remplace par math.h  Reza 29/11/99 */
    52045205
    52055206    /* Local variables */
    … …  
    52465247
    52475248    /* Builtin functions */
    5248     double cos(doublereal), sin(doublereal);
     5249/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99  */
    52495250
    52505251    /* Local variables */
    … …  
    71677168
    71687169    /* Builtin functions */
    7169     double cos(doublereal), sin(doublereal);
     7170/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    71707171
    71717172    /* Local variables */
    … …  
    78997900
    79007901    /* Builtin functions */
    7901     double cos(doublereal), sin(doublereal);
     7902/*    double cos(doublereal), sin(doublereal);   */
    79027903
    79037904    /* Local variables */
    … …  
    82468247        return 0;
    82478248    }
    8248     dfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8249    dfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    82498250    return 0;
    82508251} /* dfftb_ */
    … …  
    83928393        return 0;
    83938394    }
    8394     dfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8395    dfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]);/* (int *) rajoute Reza 29/11/99 */
    83958396    return 0;
    83968397} /* dfftf_ */
    … …  
    85318532        return 0;
    85328533    }
    8533     dffti1_(n, &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8534    dffti1_(n, &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    85348535    return 0;
    85358536} /* dffti_ */
    … …  
    85468547
    85478548    /* Builtin functions */
    8548     double cos(doublereal), sin(doublereal);
     8549/*    double cos(doublereal), sin(doublereal); remplace par math.h  Reza 29/11/99 */
    85498550
    85508551    /* Local variables */
    … …  
    87588759    iw2 = iw1 + np1;
    87598760    iw3 = iw2 + np1;
    8760     dsint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], &wsave[iw3]);
     8761    dsint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], (int *) &wsave[iw3]); /* (int *) rajoute Reza 29/11/99 */
    87618762    return 0;
    87628763} /* dsint_ */
    … …  
    88598860
    88608861    /* Builtin functions */
    8861     double sin(doublereal);
     8862/*    double sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    88628863
    88638864    /* Local variables */
Note: See TracChangeset for help on using the changeset viewer.