fixed some compiler warings

src/outseis_glob.c

@@ -32,55 +32,14 @@ void  outseis_glob(FILE *fp, FILE *fpdata, float **section,
                    int nsrc, int ns, int seis_form[6], int ishot, int comp){
     
     /* declaration of extern variables */
-    extern int NDT,NDTSHIFT, SOFI3DVERS;
-    extern float  DX, DY, DZ, TIME, DT, REFREC[4];
-    extern char * FILEINP[STRING_SIZE];
-    
-    extern int ASCIIEBCDIC,LITTLEBIG,IEEEIBM;
-    
-    /* declaration of extern functions from rwsegy.c */
-    
-    extern int DDN_wsegytxth(FILE * outstream, int asciiebcdic, char * kindofdata, char * infilename, int ns, float dt, int ndt);
-    extern int DDN_wsegybinh(FILE * outstream, int lbendian, int ieeeibm, int meterfeet, int ns,
-                             float dt, int ndt, int ntrpr, int nart);
-    extern int DDN_wbindata(FILE * outstream, int outlen, float * indata, int inlen, int first,
-                            int step, int padding, int lbendian, int ieeeibm, int meterfeet);
-    extern int DDN_wtxtdata(FILE * outstream, int outlen, float * indata, int inlen, int first, int step, int padding, int asciiebcdic, int meterfeet, char * dataformat, char * dataseperator, char * dataendmark);
-    extern int DDN_wtraceh(FILE * outstream, int lbendian, int ieeeibm, int meterfeet, int susegy,
-                           int ns, float dt, float dtshift, float srctime, int traceno, int globrecno, int shotno,
-                           int recno, int comp, int trid, int ntraces, int **recpos, int **recpos_loc, float ** srcpos,
-                           int nsrc, float xcoo, float ycoo);
+
     
     /* declaration of local variables */
-    int i,j, * pint;
-    segy tr;
-    int tracl ;
-    float xr, yr, zr, y, z, scalefac, tfloat;
+    int i,j;
     //float x;
-    float XS=0.0, YS=0.0, ZS=0.0;
-    const float scale=3.0;
-    char kindofdata[STRING_SIZE];
-    char * infilename;
-    float indatap[ns];
     float temp_float;
-    infilename=(char *)FILEINP;
-    
-    strncpy(kindofdata,"synthetic seismograms modeled by SOFI3D",STRING_SIZE);
-    if (SOFI3DVERS==33)
-        strncat(kindofdata," (3D isotropic elastic)",STRING_SIZE-sizeof("synthetic seismograms modeled by SOFI3D"));
-    else if (SOFI3DVERS==32)
-        strncat(kindofdata," (3D isotropic acoustic)",STRING_SIZE-sizeof("synthetic seismograms modeled by SOFI3D"));
-    kindofdata[STRING_SIZE-1]='\0';
-    
-    
-    /* if there are more than one source position/coordinate specified
-     * in SOURCE_FILE, only the first position is written into trace header fields,
-     * in case of RUN_MULTIPLE_SHOTS is activated the individual shot position is used */
-    XS=srcpos[1][ishot];
-    YS=srcpos[2][ishot];
-    ZS=srcpos[3][ishot];
+
     
-    scalefac=pow(10.0,scale);
     
     
     for(i=1;i<=ntr;i++){ /* Loop over global receivers */

src/update_v_ssg.c

@@ -35,7 +35,7 @@ double update_v(int nx1, int nx2, int ny1, int ny2, int nz1, int nz2,
 
 	extern float DT, DX, DY, DZ, SOURCE_ALPHA, SOURCE_BETA;
 	double time=0.0, time1=0.0, time2=0.0;
-	extern int MYID, FDORDER, FDORDER_TIME, LOG, ABS_TYPE, FDCOEFF; /* variable "FW" removed, not in use */
+	extern int MYID, FDORDER, FDORDER_TIME, LOG, FDCOEFF; /* variable "FW" removed, not in use */
 	extern FILE *FP;
 	extern int OUTNTIMESTEPINFO;