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

Timestamp:

Mar 2, 2000, 3:54:40 PM (26 years ago)

Author:

ansari

Message:

Correction de cast (int *) en (int_4 *)
Ca ne devrait pas exister!
Dominique Yvon

File:

• trunk/SophyaLib/NTools/fftpackc.c (modified) (4 diffs)

trunk/SophyaLib/NTools/fftpackc.c

@@ -27 +27 @@
     iw1 = *n + *n + 1;
     iw2 = iw1 + *n + *n;
-    cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);  /* (int *) ajoute - Reza 29/11/99 */
+    cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int_4 *)&wsave[iw2]);  /* (int *) ajoute - Reza 29/11/99 */
     return 0;
 } /* cfftb_ */
@@ -180 +180 @@
     iw1 = *n + *n + 1;
     iw2 = iw1 + *n + *n;
-    cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);   /* (int *) ajoute - Reza 29/11/99 */
+    cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int_4 *)&wsave[iw2]);   /* (int *) ajoute - Reza 29/11/99 */
     return 0;
 } /* cfftf_ */
@@ -331 +331 @@
     iw1 = *n + *n + 1;
     iw2 = iw1 + *n + *n;
-    cffti1_(n, &wsave[iw1], (int *)&wsave[iw2]);  /*  (int *) ajoute Reza 29/11/99 */
+    cffti1_(n, &wsave[iw1], (int_4 *)&wsave[iw2]);  /*  (int *) ajoute Reza 29/11/99 */
     return 0;
 } /* cffti_ */
@@ -1041 +1041 @@
         return 0;
     }
-    ezfft1_(n, &wsave[(*n << 1) + 1], (integer*)&wsave[*n * 3 + 1]);
+    ezfft1_(n, &wsave[(*n << 1) + 1], (int_4*)&wsave[*n * 3 + 1]);
     return 0;
 } /* ezffti_ */