Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
GPIAG-Software
IFOS3D
Commits
7da515eb
Commit
7da515eb
authored
Apr 05, 2016
by
Tilman Steinweg
Browse files
small output correction
corrected the text output of the seismograms (didn't match with actual file output)
parent
c7906f60
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/saveseis.c
View file @
7da515eb
...
...
@@ -78,42 +78,42 @@ int **recpos, int **recpos_loc, int ntr, float ** srcpos, int ishot,int ns, in
switch
(
SEISMO
){
case
1
:
/* particle velocities only */
fprintf
(
fp
,
"
\n
PE %d is writing %d seismogramtraces (vx) to
\t
%s
_vx.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
"
\n
PE %d is writing %d seismogramtraces (vx) to
\t
%s
\n
"
,
MYID
,
ntr
,
vxf
);
outseis
(
fp
,
fopen
(
vxf
,
"w"
),
1
,
sectionvx
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vy) to
\t
%s
_vy.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vy) to
\t
%s
\n
"
,
MYID
,
ntr
,
vyf
);
outseis
(
fp
,
fopen
(
vyf
,
"w"
),
2
,
sectionvy
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vz) to
\t
%s
_vz.%s.%d
\n
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vz) to
\t
%s
\n
"
,
MYID
,
ntr
,
vzf
);
outseis
(
fp
,
fopen
(
vzf
,
"w"
),
3
,
sectionvz
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
break
;
case
2
:
/* pressure only */
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (p)
to
\t
%s
.%p.%d
\n
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (p) to
\t
%s
\n
"
,
MYID
,
ntr
,
pf
);
outseis
(
fp
,
fopen
(
pf
,
"w"
),
0
,
sectionp
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
break
;
case
3
:
/* curl and div only */
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (div) to
\t
%s
_div.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (div)
to
\t
%s
\n
"
,
MYID
,
ntr
,
divf
);
outseis
(
fp
,
fopen
(
divf
,
"w"
),
0
,
sectiondiv
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (curl) to
\t
%s
_rot.%s.%d
\n\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (curl)
to
\t
%s
\n
"
,
MYID
,
ntr
,
curlf
);
outseis
(
fp
,
fopen
(
curlf
,
"w"
),
0
,
sectioncurl
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
break
;
case
4
:
/* everything */
fprintf
(
fp
,
"
\n
PE %d is writing %d seismogramtraces (vx) to
\t
%s
_vx.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
"
\n
PE %d is writing %d seismogramtraces (vx) to
\t
%s
\n
"
,
MYID
,
ntr
,
vxf
);
outseis
(
fp
,
fopen
(
vxf
,
"w"
),
1
,
sectionvx
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vy) to
\t
%s
_vy.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vy) to
\t
%s
\n
"
,
MYID
,
ntr
,
vyf
);
outseis
(
fp
,
fopen
(
vyf
,
"w"
),
2
,
sectionvy
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vz) to
\t
%s
_vz.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (vz) to
\t
%s
\n
"
,
MYID
,
ntr
,
vzf
);
outseis
(
fp
,
fopen
(
vzf
,
"w"
),
3
,
sectionvz
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (p) to
\t
%s
_p.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (p) to
\t
%s
\n
"
,
MYID
,
ntr
,
pf
);
outseis
(
fp
,
fopen
(
pf
,
"w"
),
0
,
sectionp
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (div) to
\t
%s
_div.%s.%d
\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (div) to
\t
%s
\n
"
,
MYID
,
ntr
,
divf
);
outseis
(
fp
,
fopen
(
divf
,
"w"
),
0
,
sectiondiv
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (curl) to
\t
%s
_rot.%s.%d
\n\n
"
,
MYID
,
ntr
,
seisfile
,
file_ext
,
MYID
);
fprintf
(
fp
,
" PE %d is writing %d seismogramtraces (curl) to
\t
%s
\n
"
,
MYID
,
ntr
,
curlf
);
outseis
(
fp
,
fopen
(
curlf
,
"w"
),
0
,
sectioncurl
,
recpos
,
recpos_loc
,
ntr
,
srcpos1
,
nsrc
,
ns
,
SEIS_FORMAT
);
break
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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