Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
GPIAG-Software
IFOS2D
Commits
bd30f7a8
Commit
bd30f7a8
authored
Oct 18, 2016
by
thomas.forbriger
Browse files
import_Seitosh [MERGE]: merge recent vendor drop
Merge branch 'vendor_Seitosh' into import_Seitosh
parents
f8fb4695
a6d42ada
Changes
5
Hide whitespace changes
Inline
Side-by-side
contrib/stfinv/parameterhandler.cc
View file @
bd30f7a8
...
...
@@ -29,11 +29,12 @@
*
* REVISIONS and CHANGES
* - 06/05/2011 V1.0 Thomas Forbriger
* - 18/01/2016 V1.1 rename function to secomtospace
*
* ============================================================================
*/
#define STFINV_PARAMETERHANDLER_CC_VERSION \
"STFINV_PARAMETERHANDLER_CC V1.
0
"
"STFINV_PARAMETERHANDLER_CC V1.
1
"
#include <algorithm>
#include <stfinv/parameterhandler.h>
...
...
@@ -50,7 +51,7 @@ std::string stfinv::tools::clipstring(std::string& s, const std::string& delim)
s
.
erase
();
}
return
(
result
);
}
// std::string stfinv::tools::clipstring
^
}
// std::string stfinv::tools::clipstring
()
/*----------------------------------------------------------------------*/
...
...
@@ -71,11 +72,12 @@ stfinv::tools::Tparamap stfinv::tools::makeparamap(const std::string& p,
/*----------------------------------------------------------------------*/
std
::
string
stfinv
::
tools
::
com
ma
tospace
(
std
::
string
s
)
std
::
string
stfinv
::
tools
::
se
comtospace
(
std
::
string
s
)
{
std
::
replace
(
s
.
begin
(),
s
.
end
(),
','
,
' '
);
std
::
replace
(
s
.
begin
(),
s
.
end
(),
';'
,
' '
);
return
(
s
);
}
// std::string stfinv::tools::com
ma
tospace(const std::string& s)
}
// std::string stfinv::tools::
se
comtospace(const std::string& s)
/*----------------------------------------------------------------------*/
...
...
contrib/stfinv/parameterhandler.h
View file @
bd30f7a8
...
...
@@ -29,6 +29,7 @@
*
* REVISIONS and CHANGES
* - 06/05/2011 V1.0 Thomas Forbriger
* - 18/01/2016 V1.1 rename function to secomtospace
*
* ============================================================================
*/
...
...
@@ -37,7 +38,7 @@
#ifndef STFINV_PARAMETERHANDLER_H_VERSION
#define STFINV_PARAMETERHANDLER_H_VERSION \
"STFINV_PARAMETERHANDLER_H V1.
0
"
"STFINV_PARAMETERHANDLER_H V1.
1
"
#include <string>
#include <map>
...
...
@@ -85,13 +86,14 @@ namespace stfinv {
/*----------------------------------------------------------------------*/
/*! replace comma by whitespace
/*! replace comma
s and semicolons
by whitespace
* \ingroup group_tools
*
* \param s input string
* \return input string with all commas replaced by whitespace
* \return input string with all commas replaced by whitespace and
* all semicolons replaced by whitespace
*/
std
::
string
com
ma
tospace
(
std
::
string
s
);
std
::
string
se
comtospace
(
std
::
string
s
);
/*----------------------------------------------------------------------*/
...
...
contrib/stfinv/stfinvfourier.cc
View file @
bd30f7a8
...
...
@@ -255,7 +255,7 @@ namespace stfinv {
// taper definition
// ----------------
{
std
::
istringstream
is
(
stfinv
::
tools
::
com
ma
tospace
(
std
::
istringstream
is
(
stfinv
::
tools
::
se
comtospace
(
this
->
parameter
(
"irtap"
,
"0.,1.,2.,3."
)));
is
>>
Mtt1
>>
Mtt2
>>
Mtt3
>>
Mtt4
;
}
...
...
contrib/stfinv/usage/stfinvany_description_usage.txt
View file @
bd30f7a8
...
...
@@ -19,6 +19,10 @@ remainder may consist of several control parameters being separated by colons
or may come along with a parameter value. The value is separated from the
parameter by an equal sign (=).
Where several values in an argument to a parameter must be separated (like in
the 'irtap' option of the Fourier domain procedures) white space ( ), commas
(,), and semicolons (;) are allowed as field delimiters, at your convenience.
Examples:
- To select Fourier domain least squares and shift the returned source
correction filter wavelet by 0.4s and switch on verbose mode, pass the
...
...
contrib/stfinv/usage/stfinvfourier_description_usage.txt
View file @
bd30f7a8
...
...
@@ -51,4 +51,9 @@ transformed to the Fourier domain again. The values of the taper are:
1 if t2 < t < t3
0.5+0.5*cos(pi*(t-t3)/(t3-t4)) if t3 <= t <= t4
0 if t > t4
Time values are given in the same unit in which the sampling interval is given
in the input time series. I.e. if sampling interval is specified as a fraction
of seconds (which is standard) then all time values passed as parameters are
also given as fractions or multiples of seconds.
# ----- END OF stfinvfourier_description_usage.txt -----
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