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
IFOS2D
Commits
f6697382
Commit
f6697382
authored
Jan 14, 2016
by
Florian Wittkamp
Browse files
Taper: Check if EOF is reached
Changed output of L2 to STDOUT if WAVETYPE != 3
parent
0d135133
Changes
2
Expand all
Hide whitespace changes
Inline
Side-by-side
src/denise.c
View file @
f6697382
...
...
@@ -2802,7 +2802,7 @@ int main(int argc, char **argv){
energy_sum_all_shots
=
0
.
0
;
MPI_Allreduce
(
&
energy_all_shots
,
&
energy_sum_all_shots
,
1
,
MPI_FLOAT
,
MPI_SUM
,
MPI_COMM_WORLD
);
if
(
MYID
==
0
)
printf
(
"
\n\n
PSV: L2=%f"
,
L2sum_all_shots
/
energy_sum_all_shots
);
if
(
MYID
==
0
&&
(
WAVETYPE
==
3
)
)
printf
(
"
\n\n
PSV: L2=%f"
,
L2sum_all_shots
/
energy_sum_all_shots
);
}
if
(
WAVETYPE
==
2
||
WAVETYPE
==
3
){
L2sum_SH
=
0
.
0
;
...
...
@@ -2814,7 +2814,7 @@ int main(int argc, char **argv){
energy_sum_all_shots_SH
=
0
.
0
;
MPI_Allreduce
(
&
energy_all_shots_SH
,
&
energy_sum_all_shots_SH
,
1
,
MPI_FLOAT
,
MPI_SUM
,
MPI_COMM_WORLD
);
if
(
MYID
==
0
)
printf
(
"
\n
\n
SH: L2=%f"
,
L2sum_all_shots_SH
/
energy_sum_all_shots_SH
);
if
(
MYID
==
0
&&
(
WAVETYPE
==
3
)
)
printf
(
"
\n
SH: L2=%f"
,
L2sum_all_shots_SH
/
energy_sum_all_shots_SH
);
}
sum_killed_traces
=
0
;
MPI_Allreduce
(
&
killed_traces
,
&
sum_killed_traces
,
1
,
MPI_INT
,
MPI_SUM
,
MPI_COMM_WORLD
);
...
...
@@ -2835,7 +2835,7 @@ int main(int argc, char **argv){
L2t
[
1
]
+=
L2sum_SH
/
energy_sum_SH
;
L2t
[
4
]
+=
L2sum_all_shots_SH
/
energy_sum_all_shots_SH
;
}
if
(
MYID
==
0
)
printf
(
"
\n
\n
Sum: L2=%f"
,
L2t
[
4
]);
if
(
MYID
==
0
&&
(
WAVETYPE
==
3
)
)
printf
(
"
\n
Sum: L2=%f"
,
L2t
[
4
]);
break
;
case
7
:
...
...
src/taper_grad.c
View file @
f6697382
This diff is collapsed.
Click to expand it.
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