Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
SOFI3D
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
GPIAG-Software
SOFI3D
Commits
8b4f49df
Commit
8b4f49df
authored
Nov 17, 2016
by
Florian Wittkamp
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
fixed some compiler warings
parent
479998ed
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
4 additions
and
45 deletions
+4
-45
src/outseis_glob.c
src/outseis_glob.c
+3
-44
src/update_v_ssg.c
src/update_v_ssg.c
+1
-1
No files found.
src/outseis_glob.c
View file @
8b4f49df
...
...
@@ -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
View file @
8b4f49df
...
...
@@ -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
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment