refract_seipar.inc 1.35 KB
Newer Older
1
2
c this is <refract_seipar.inc>
c------------------------------------------------------------------------------
thomas.forbriger's avatar
thomas.forbriger committed
3
c $Id: refract_seipar.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
c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c
c parameters for seismogram viewports
c
c REVISIONS and CHANGES
c    30/04/98   V1.0   Thomas Forbriger
c
c==============================================================================
c
c parameters for the total seismogram viewport
c
c world coordinates
      real tov_rmin, tov_rmax, tov_tmin, tov_tmax
c viewport
      real tov_vpbot, tov_vptop, tov_vpleft, tov_vpright
c
c parameters for a single trace viewport
c
c world coordinates 
      real trv_vmax, trv_vmin, trv_tmin, trv_tmax
c viewport in world coordinates of the total viewport
      real trv_rbot, trv_rtop, trv_tleft, trv_tright
c viewport
      real trv_vpbot, trv_vptop, trv_vpleft, trv_vpright
c scaling factor for each trace (meters per count)
      real trv_mpc(maxtraces)
c
c
c common blocks
      common /refract_tov/tov_rmin, tov_rmax, tov_tmin, tov_tmax,
     &                 tov_vpbot, tov_vptop, tov_vpleft, tov_vpright 
      common /refract_trv/ trv_mpc, trv_rbot, trv_rtop, trv_tleft, trv_tright,
     &                 trv_vpbot, trv_vptop, trv_vpleft, trv_vpright,
     &                 trv_vmax, trv_vmin, trv_tmin, trv_tmax 
c
c ----- END OF refract_seipar.inc -----