Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Seitosh
Seitosh
Commits
9cebce57
Commit
9cebce57
authored
Nov 22, 2016
by
thomas.forbriger
Browse files
ts/wf [WP]: let programs explicitly express type conversion
parent
a5316401
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ts/wf/autocorr.cc
View file @
9cebce57
...
...
@@ -177,7 +177,8 @@ int main(int iargc, char* argv[])
sff
::
INFO
info
;
is
>>
info
;
if
(
opt
.
verbose
)
{
cout
<<
data
.
header
.
line
()
<<
endl
;
}
Tts
result
(
ts
::
correlate
(
data
,
data
));
Tts
result
;
result
=
ts
::
correlate
(
data
,
data
);
result
/=
Tts
::
Tvalue
(
data
.
size
());
result
.
header
=
data
.
header
;
result
.
header
.
auxid
=
"corr"
;
...
...
src/ts/wf/noisymize.cc
View file @
9cebce57
...
...
@@ -368,21 +368,20 @@ int main(int iargc, char* argv[])
if
(
opt
.
verbose
)
{
cout
<<
"prepare output data"
<<
endl
;
}
typedef
ts
::
sff
::
SFFTimeSeries
<
Tseries
>
Tsffseries
;
Tsffseries
Zoutdata
(
Zseries
),
Routdata
(
Rseries
);
Tsffseries
::
Theader
Zheader
(
Zindata
[
0
].
header
);
Tsffseries
::
Theader
Rheader
(
Rindata
[
0
].
header
);
sff
::
WID2
wid2line
=
Zheader
.
wid2
();
wid2line
.
nsamples
=
Z
outdata
.
size
();
wid2line
.
nsamples
=
Z
series
.
size
();
wid2line
.
channel
=
"Z"
;
Zheader
.
wid2
(
wid2line
);
Zoutdata
.
header
=
Zheader
;
Tsffseries
Zoutdata
(
Zseries
,
Zheader
);
;
wid2line
=
Rheader
.
wid2
();
wid2line
.
nsamples
=
R
outdata
.
size
();
wid2line
.
nsamples
=
R
series
.
size
();
wid2line
.
channel
=
"R"
;
Rheader
.
wid2
(
wid2line
);
Routdata
.
header
=
Rheader
;
Tsffseries
Routdata
(
Rseries
,
Rheader
);
;
{
if
(
opt
.
verbose
)
{
cout
<<
"open output file "
<<
filename
.
Zout
<<
endl
;
}
...
...
src/ts/wf/soutifu.cc
View file @
9cebce57
...
...
@@ -313,9 +313,9 @@ int main(int iargc, char* argv[])
// create a time series to be used in the output of convolved synthetics
// based on the input synthetics; copy trace header
Tfile
::
Ttracevector
::
Ttimeseries
cstseries
(
rdtseries
.
shape
());
cstseries
.
settraceindex
(
sdtseries
.
traceindex
())
;
cs
tseries
.
header
=
sdtseries
.
header
;
Tfile
::
Ttracevector
::
Ttimeseries
cstseries
(
Tfile
::
Ttracevector
::
Ttimeseries
::
Tseries
(
sdtseries
.
shape
())
,
sd
tseries
.
header
,
sdtseries
.
traceindex
())
;
// place reference in a waveform triple
stfinv
::
WaveformTriple
tracetriple
;
...
...
@@ -386,7 +386,9 @@ int main(int iargc, char* argv[])
// catch values for stf waveform
if
(
itrace
==
0
)
{
Tfile
::
Ttracevector
::
Ttimeseries
stftseries
(
tracetriple
.
data
.
shape
());
Tfile
::
Ttracevector
::
Ttimeseries
stftseries
;
stftseries
=
Tfile
::
Ttracevector
::
Ttimeseries
::
Tseries
(
tracetriple
.
data
.
shape
());
stfwaveform
.
sampling
.
dt
=
tracetriple
.
header
.
sampling
.
dt
;
stfwaveform
.
sampling
.
n
=
tracetriple
.
header
.
sampling
.
n
;
...
...
@@ -437,9 +439,9 @@ int main(int iargc, char* argv[])
// create a time series to be used in the output of convolved synthetics
// based on the input synthetics; copy trace header
Tfile
::
Ttracevector
::
Ttimeseries
cstseries
(
sdtseries
.
shape
());
cstseries
.
settraceindex
(
sdtseries
.
traceindex
())
;
cs
tseries
.
header
=
sdtseries
.
header
;
Tfile
::
Ttracevector
::
Ttimeseries
cstseries
(
Tfile
::
Ttracevector
::
Ttimeseries
::
Tseries
(
sdtseries
.
shape
())
,
sd
tseries
.
header
,
sdtseries
.
traceindex
())
;
// place reference in a waveform triple
stfinv
::
WaveformPair
tracepair
;
...
...
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