refract_para.inc 3.45 KB
Newer Older
1
2
c this is <refract_para.inc>
c------------------------------------------------------------------------------
thomas.forbriger's avatar
thomas.forbriger committed
3
c $Id: refract_para.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
c
c 20/01/98 by Thomas Forbriger (IfG Stuttgart)
c
c some parameters for refract.f
c
c REVISIONS and CHANGES
c    20/01/98   V1.0   Thomas Forbriger
c
c==============================================================================
c
c plot scaling parameters
c -----------------------
c
c clipping in meters
      real plpar_clip
c remove average from traces?
      logical plpar_remav
c offset dependend scaling
      real plpar_expo
c scaling mode
c   1: scale traces individually
c   2: scale all traces to first trace as reference
c   3: scale all traces to first trace of input dataset as reference
      integer plpar_mode
c amplitude scaling for reference trace (meter)
      real plpar_amp
c minimum offset step to be taken as two different positions
      real plpar_minoff
c 
c control modes
c -------------
c
c scale mode (which parameter is affected by <+> and <->)
c 1: amplitude
c 2: clipping
c 3: exponent
      integer plpar_pmmode
c 
c pick modes
c 1: travel times
c 2: taper 1
c 3: taper 1
c 4: taper 1
c 5: taper 1
      integer plpar_pickmode
c
c look and feel parameters
c ------------------------
c
c use colors
      logical plflag_color, plflag_picol
c color cycle to use
      integer plpar_colcyc
c use different line styles
      logical plflag_linestyle
c style cycle to use
      integer plpar_lscyc 
c plot grid
      logical plflag_grid
c 
c use different styles for seismograms
      logical plflag_seistyle
c use different styles for travel times
      logical plflag_ttstyle
c
c use variable area
      logical plflag_vara
c invert trace sign
      logical plflag_invers
c plot these nice bubbles
      logical plflag_bubbles
c 
c use offset scales according to earth radius 
      real plpar_radius
c 
c misc flags
c ----------
c
c verbosity flags
      logical debug, verbose
c 
c traveltime reduction
c --------------------
c
      logical plflag_reduce
c reduction velocity in km/s
      real plpar_vred
c
c switch different modes
c ----------------------
c
c mode flags
      logical flag_pick, flag_replot
c 
c switch elements on/off
c ----------------------
c
      logical elem_modbox, elem_filenames, elem_version
      logical elem_annot, elem_scales, elem_data, elem_syntt
      logical elem_picks
c plot subscales
      logical plflag_subscale
c 
c strings to hold
c ---------------
c
c last warning message
      character*100 plstring_lastwarn
c
c common blocks
      common /refract_plpar/ plpar_amp, plpar_expo, plpar_minoff,
     &                       plpar_clip, plpar_mode, plpar_remav,
     &                       plflag_color, plflag_linestyle,
     &                       plpar_colcyc, plpar_lscyc, 
     &                       plflag_vara, plflag_invers, plflag_bubbles,
     &                       plpar_pmmode, plflag_grid, plflag_picol,
     &                       plflag_seistyle, plflag_ttstyle, plpar_radius
      common /refract_elem/ elem_modbox, elem_filenames, elem_version,
     &                      elem_annot, elem_scales, elem_data,
     &                      elem_syntt, elem_picks, plflag_subscale
      common /refract_verb/ debug, verbose
      common /refract_flags/ flag_pick, flag_replot
      common /refract_reduce/ plflag_reduce, plpar_vred
      common /refract_pick/ plpar_pickmode
      common /refract_holdstring/ plstring_lastwarn
c
c ----- END OF refract_para.inc -----