compilation

Author: sfomel

user/jsun/cfft2omp.c

@@ -179,7 +179,7 @@ void icfft2(sf_complex *out /* [n1*n2] */,
   }
 }
 
-void cfft2_finalize()
+void cfft2_finalize(void)
 /*< clean up fft >*/
 {
   /* make sure everything is back to its pristine state */

user/jsun/cfft2w.c

@@ -202,7 +202,7 @@ void icfft2(sf_complex *out /* [n1*n2] */,
     }
 }
 
-void cfft2_finalize()
+void cfft2_finalize(void)
 /*< clean up fftw >*/
 {
 /* make sure everything is back to its pristine state */

user/jsun/cfft3w.c

@@ -260,7 +260,7 @@ void icfft3(sf_complex *out /* [n1*n2*n3] */,
     }
 }
 
-void cfft3_finalize()
+void cfft3_finalize(void)
 /*< clean up fftw >*/
 {
 #ifdef SF_HAS_FFTW

user/jsun/timer.c

@@ -22,7 +22,7 @@
 
 double gtod_secbase = 0.0E0;
 
-double gtod_timer()
+double gtod_timer(void)
 /*< get time >*/
 {
    struct timeval tv;

user/jsun/waveutils.c

@@ -540,7 +540,7 @@ int rcvill2(float **sill, sf_complex **rcd, geopar geop)
     /* pointers */
     sf_complex **lt, **rt;
 
-    int it,iz,im,ik,ix,i,j,wfit;     /* index variables */
+    int it,iz,im,ik,ix,i,j;     /* index variables */
     int nk, nz2, nx2, nzx2;
     sf_complex c;
     sf_complex *cwave, *cwavem;
@@ -591,7 +591,7 @@ int rcvill2(float **sill, sf_complex **rcd, geopar geop)
 
     /* step backward in time (PSPI) */
     /*Main loop*/
-    wfit = (int)(nt-1)/snpint;
+    /* wfit = (int)(nt-1)/snpint; */
     for (it = nt-1; it>=0; it--) {
       if  (verb) sf_warning("Backward receiver it=%d/%d;", it, nt-1);
 #ifdef _OPENMP
@@ -617,7 +617,7 @@ int rcvill2(float **sill, sf_complex **rcd, geopar geop)
 	    sill[ix][iz] += pow(hypotf(crealf(curr[j]),cimagf(curr[j])),2);
 	  }
 	}
-	wfit--;
+	/* wfit--; */
       }
 
       /*matrix multiplication*/

user/tariq/omputil.c

@@ -8,7 +8,7 @@
 
 
 /*------------------------------------------------------------*/
-int omp_init()
+int omp_init(void)
 /*< init OMP parameters >*/
 {
     int ompnth;