Commit 8b4f49df authored by Florian Wittkamp's avatar Florian Wittkamp

fixed some compiler warings

parent 479998ed
......@@ -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 */
......
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment