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
96cf5173
Commit
96cf5173
authored
Dec 11, 2019
by
thomas.forbriger
Browse files
grepg [WP]: introduce variables to set world coordinate boundaries
parent
02805753
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/green/grepg/grepg.f
View file @
96cf5173
...
...
@@ -115,7 +115,8 @@ c V2.41 03/11/11 resolved a fatal error when addressing the data array
c for scaling gabor matrix values
c V2.42 06/02/17 support colored dispersion curve on white
c background (implemented in grepg_dopicks.f)
c V2.43 11/12/19 reorganize usage information
c V2.43 11/12/19 - reorganize usage information
c - introduce boundaries for world coordinates
c
c======================================================================
program grepg
...
...
@@ -179,7 +180,7 @@ c cursor routine
real pickdx
c commandline
integer maxopt, lastarg, iargc
parameter(maxopt=5
1
)
parameter(maxopt=5
3
)
character*3 optid(maxopt)
character*200 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
...
...
@@ -198,6 +199,8 @@ c commandline
real phaseshift,grayify, rgb_red, rgb_green, rgb_blue
real rgbb_red, rgbb_green, rgbb_blue, maxilim
real par_wedgeheight, wedgewidth
c boundary values for world coordinates
real xlbound, xubound, ylbound, yubound
integer setlinewidth, avglength, npolytrend, npolymode
character*200 gmtxyzfile, pickfile, titlestring, subtitlestring
character*200 xlabelstring, ylabelstring, wedgestring, phasestring
...
...
@@ -221,16 +224,16 @@ c here are the keys to our commandline options
& '
-
R
','
-
P
','
-
L
','
-
S
','
-
m
','
-
G
','
-
H
','
-
F
','
-
v
','
-
N
','
-
T
','
-
W
',
& '
-
X
','
-
Y
','
-
n
','
-
A
','
-
M
','
-
C
','
-
B
','
-
a
','
-
O
','
-
f
','
-
t
','
-
Q
',
& '
-
K
','
-
b
','
-
x
','
-
y
','
-
h
','
-
e
','
-
E
','
-
Fc
','
-
Ah
','
-
Ta
','
-
FC
',
& '
-
Fl
','
-
Pr
','
-
Ww
','
-
ff
', '
-
st
'/
& '
-
Fl
','
-
Pr
','
-
Ww
','
-
ff
', '
-
st
'
, '
-
Xb
', '
-
Yb
'
/
data opthasarg/.TRUE.,2*.FALSE.,.TRUE.,.FALSE.,.TRUE.,.FALSE.,.TRUE.,
& 7*.FALSE.,4*.TRUE.,.FALSE.,2*.TRUE.,.FALSE.,5*.TRUE.,.FALSE.,
& 5*.TRUE.,.FALSE.,4*.TRUE.,.FALSE.,.TRUE.,.FALSE.,5*.TRUE.,
& .FALSE.,2*.TRUE.,.false./
& .FALSE.,2*.TRUE.,.false.
,2*.true.
/
data optarg/'
x11
',2*'
-
','
1.
,
1.
','
-
','
2.5
','
-
','
1
',7*'
-
','
0.
',
& '
xyz
.
out
','
1.
',2*'
-
','
5.
,
4.
','
title
','
-
','
xlabel
','
ylabel
',
& '
-1.
','
amplitude
','
0.
','
-
','
phase
()
','
0.
,
10.
','
20
,
10
,
2
','
9
',
& '
6
,
1
','
-
','
4.
,
0.3
','
3
',2*'
0.
,
0.
,
0.
','
-
','
0.
','
-
','
0.
,
0.
,
0.
,
1
',
& '
1.
','
NSP
','
5
','
4
','
-
','
3.
','
nil
','
-
'/
& '
1.
','
NSP
','
5
','
4
','
-
','
3.
','
nil
','
-
'
,'
0.
,
1.e20
','
0.
,
1.e20
'
/
c======================================================================
c give basic information
...
...
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