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
0a798408
Commit
0a798408
authored
Dec 07, 2015
by
thomas.forbriger
Browse files
[WP][FIX] (issue7 refract): fix typos
This version compiles.
parent
a980a38d
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ts/refract/refract.f
View file @
0a798408
...
...
@@ -116,7 +116,7 @@ c read input data files
print
*
,
'DEBUG: nfiles '
,
nfiles
endif
call
setscale
call
setrefrange
call
refract_
setrefrange
c
call
mpcfactors
call
setfullrange
...
...
src/ts/refract/sub/refract_setrefrange.f
View file @
0a798408
...
...
@@ -76,8 +76,8 @@ c selected range
c
if
(
verbose
)
then
print
*
,
'offset range to which amplitude scaling is referred:'
print
*
,
' '
,
plpar_avgrefxmin
'
, m to '
print
*
,
plpar_avgrefxmax
'
, m'
print
*
,
' '
,
plpar_avgrefxmin
,
'
m to '
print
*
,
plpar_avgrefxmax
,
'
m'
endif
endif
c
...
...
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