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
8b7301b6
Commit
8b7301b6
authored
Feb 08, 2016
by
thomas.forbriger
Browse files
[WP][DOC] (issue7_refract): set section titles in comments
parent
b0b3bac7
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ts/refract/sub/refract_settracevp.f
View file @
8b7301b6
...
...
@@ -135,6 +135,12 @@ c
logical
result
real
vppm
,
ttmin
,
ttmax
,
theoffset
real
realtime
,
plotoffset
c
c
======================================================================
c
c
1.
Operate
on
vertical
coordinates
,
offset
domain
and
world
c
coordinates
in
counts
.
c
-----------------------------------------------------------
c
c
factor
"world coordinates -> normalized device coordinates"
vppm
=
(
tov_vptop
-
tov_vpbot
)/(
tov_rmax
-
tov_rmin
)
...
...
@@ -188,6 +194,13 @@ c check actual world coordinate range versus seismogram range
c
if
(
result
)
then
c
c
c
======================================================================
c
c
2.
Operate
on
horizontak
coordinates
,
time
domain
and
world
c
coordinates
in
seconds
.
c
-----------------------------------------------------------
c
c
now
check
TIME
SCALE
ttmin
=
toffset
(
i
)
ttmax
=
toffset
(
i
)
+
(
nsamples
(
i
)
-1
)
*
dt
(
i
)
...
...
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