cleanup

Author: sfomel

system/generic/predicates.c

@@ -495,7 +495,7 @@ REAL *e;
 /*                                                                           */
 /*****************************************************************************/
 
-double doublerand()
+double doublerand(void)
 {
   double result;
   double expo;
@@ -521,7 +521,7 @@ double doublerand()
 /*                                                                           */
 /*****************************************************************************/
 
-double narrowdoublerand()
+double narrowdoublerand(void)
 {
   double result;
   double expo;
@@ -546,7 +546,7 @@ double narrowdoublerand()
 /*                                                                           */
 /*****************************************************************************/
 
-double uniformdoublerand()
+double uniformdoublerand(void)
 {
   double result;
   long a, b;
@@ -564,7 +564,7 @@ double uniformdoublerand()
 /*                                                                           */
 /*****************************************************************************/
 
-float floatrand()
+float floatrand(void)
 {
   float result;
   float expo;
@@ -589,7 +589,7 @@ float floatrand()
 /*                                                                           */
 /*****************************************************************************/
 
-float narrowfloatrand()
+float narrowfloatrand(void)
 {
   float result;
   float expo;
@@ -613,7 +613,7 @@ float narrowfloatrand()
 /*                                                                           */
 /*****************************************************************************/
 
-float uniformfloatrand()
+float uniformfloatrand(void)
 {
   float result;
   long a;
@@ -643,7 +643,7 @@ float uniformfloatrand()
 /*****************************************************************************/
 
 
-void exactinit()
+void exactinit(void)
 {
   REAL half;
   REAL check, lastcheck;

system/seismic/ctoeplitz.c

@@ -106,7 +106,7 @@ void ctoeplitz_solve (const sf_complex *r /* top row of the matrix */,
     }
 }
 
-void ctoeplitz_close()
+void ctoeplitz_close(void)
 /*< free allocated storage >*/
 {
     free (a);

system/seismic/fft2.c

@@ -155,7 +155,7 @@ void sft2_init(float o1, float d1,
 }
 
 /*------------------------------------------------------------*/
-void sft2_close()
+void sft2_close(void)
 /*< close shift >*/
 {
     free(shf1);

system/seismic/radon.c

@@ -37,7 +37,7 @@ void radon_init (int nx_in                            /* number of offsets */,
     czero = sf_cmplx(0.,0.);
 }
 
-void radon_close () 
+void radon_close (void) 
 /*< free allocated storage >*/
 {
     free (c0);

system/seismic/rweone.c

@@ -559,7 +559,7 @@ void rweone_thr(
     }
 }
 
-void rweone_tap_init()
+void rweone_tap_init(void)
 /*< initialize taper >*/
 {
     int itap,jtap;
@@ -632,7 +632,7 @@ void rweone_fft(
 }
 
 
-void rweone_mrs_init()
+void rweone_mrs_init(void)
 /*< init MRS >*/
 {
     int ig;

user/chen/wavmod.c

@@ -124,7 +124,7 @@ void wavmod_shot(sf_file dat, sf_file wfl, int ns, int *ps, float **ws)
 	sf_floatwrite(data[0], ntj*ng, dat);
 }
 
-void wavmod_close()
+void wavmod_close(void)
 /*< release memory >*/
 {
 	free(data[0]);

user/chengjb/Mtti2devectorlrsvd_double.cc

@@ -664,12 +664,12 @@ int main(int argc, char* argv[])
             memset(datapznumber,0,10);
             memset(datasznumber,0,10);
 
-            sprintf(dataznumber,"dataz%d",it/1);
-            sprintf(dataxnumber,"datax%d",it/1);
-            sprintf(datapxnumber,"datapx%d",it/1);
-            sprintf(datasxnumber,"datasx%d",it/1);
-            sprintf(datapznumber,"datapz%d",it/1);
-            sprintf(datasznumber,"datasz%d",it/1);
+            snprintf(dataznumber,10,"dataz%d",it/1);
+            snprintf(dataxnumber,10,"datax%d",it/1);
+            snprintf(datapxnumber,10,"datapx%d",it/1);
+            snprintf(datasxnumber,10,"datasx%d",it/1);
+            snprintf(datapznumber,10,"datapz%d",it/1);
+            snprintf(datasznumber,10,"datasz%d",it/1);
 
             fp1 = fopen(dataxnumber,"wb");
             fp2 = fopen(dataznumber,"wb");

user/dirack/vfsacrsnh_lib.c

@@ -38,7 +38,7 @@
 /*< Signal function >*/
 /*^*/
 
-float getRandomNumberBetween0and1(){
+float getRandomNumberBetween0and1(void){
 /*< Function to get a random number between 0 and 1 >*/
 
 	return (float)(rand()%1000)/1000;

user/hpcss/Mrtm.c

@@ -63,7 +63,6 @@ int main(int argc, char ** argv) {
     int ix, iz, it;        /* counters */
     int isrc;              /* source counter */
     int isx;               /* source location, in units of dx */
-    int imf;               /* movie frame counter */
     int nxz;               /* number of spatial grid points */
     int nz;                /* local storage for number of depth points */
     int ioff;              /* array offset */
@@ -169,7 +168,7 @@ int main(int argc, char ** argv) {
 	/* receiver wavefield initialization */
 	fzeros(rp0,nxz);
 	fzeros(rp1,nxz);
-	imf = 0;
+	/* imf = 0; */
 
 	/* compute receiver wavefield backward in time and image by
 	   crosscorrelation at zero time, space lag */
@@ -247,7 +246,7 @@ int main(int argc, char ** argv) {
 	    /* write receiver movie snap to file if necessary */
 	    if (NULL != ri.rmfile) {
 		sf_floatwrite(rp1,nxz,ri.rmfile);
-		imf++;
+		/* imf++; */
 	    }
 
 	    /* next t */

user/hpcss/Mwave.c

@@ -60,14 +60,11 @@ int main(int argc, char ** argv) {
     float * tmp;     /* used to swap p1 and p0 */
 
     int ix, it;      /* counters */
-    int isrc;        /* source counter */
-    int imf;         /* movie frame counter */
     int isx;         /* source location, in units of dx */
     int nxz;         /* number of spatial grid points */
     /* int nz;          local number of gridpoints */
     int ntr;         /* number of traces */
     int nsam;        /* number of trace samples */
-    int nsrc;        /* number of shots */
     float rz,rx,s;   /* precomputed coefficients */
     float vmax,vmin; /* max, min velocity values */
     /* float two;        two */
@@ -80,7 +77,7 @@ int main(int argc, char ** argv) {
     getinputs(true,&wi);
 
     /* compute number of shots */
-    nsrc = (wi.isxend-wi.isxbeg)/(wi.iskip); nsrc++;
+    /*    nsrc = (wi.isxend-wi.isxbeg)/(wi.iskip); nsrc++; */
 
     /* compute number of spatial grid points */
     nxz=wi.nx * wi.nz;
@@ -120,7 +117,7 @@ int main(int argc, char ** argv) {
       nz=wi.nz; */
 
     /* shot loop */
-    isrc=0;
+    /* isrc=0; */
     isx=wi.isxbeg;
     while (isx <= wi.isxend) {
 
@@ -130,7 +127,7 @@ int main(int argc, char ** argv) {
 	fzeros(tr,nsam);
 
 	/* initialize movie frame counter */
-	imf=0;
+	/* imf=0; */
 
 	/* time loop */
 	for (it=0;it<wi.nt;it++) {
@@ -155,7 +152,7 @@ int main(int argc, char ** argv) {
 	    /* write movie snap to file if necessary */
 	    if (NULL != wi.mfile && wi.nm && !(it%wi.nm)) {
 		sf_floatwrite(p1,nxz,wi.mfile);
-		imf++;
+		/* imf++; */
 	    }
 
 	    /* next t */
@@ -166,7 +163,7 @@ int main(int argc, char ** argv) {
 	    sf_floatwrite(tr,nsam,wi.tfile);
 
 	isx += wi.iskip;
-	isrc++;
+	/* isrc++; */
     }