refract_pgpara.inc 2.1 KB
Newer Older
1
2
c this is <refract_pgpara.inc>
c------------------------------------------------------------------------------
thomas.forbriger's avatar
thomas.forbriger committed
3
c $Id: refract_pgpara.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
4
5
6
7
8
9
10
c
c 01/05/98 by Thomas Forbriger (IfG Stuttgart)
c
c pure pgplot style settings
c
c REVISIONS and CHANGES
c    01/05/98   V1.0   Thomas Forbriger
11
12
13
14
c    24/05/00   V1.1   - file specific style settings
c                      - axis labels
c                      - line width and character height
c                      - fg and bg RGB
15
16
17
18
c
c==============================================================================
c
      integer pg_maindevice
19
20
21
22
23
24
25
26
27
28
29
30
c
c file specific settings
c pg_file_ls will indicate whether these values are used 
c  line style
      integer pg_file_ls(maxfiles)
c  line width
      integer pg_file_lw(maxfiles)
c  line color index
      integer pg_file_ci(maxfiles)
c  line color rgb values
c  negative values means: unused
      real pg_file_rgb(3,maxfiles)
31
32
33
34
35
36
c 
c plotting parameters for file names
      real pg_nam_maxheight, pg_nam_rest
      real pg_nam_relwidth(maxfiles)
      real pg_nam_ch, pg_nam_xsep, pg_nam_ysep, pg_nam_scale
c 
37
38
39
40
41
42
43
44
45
46
47
48
c standard line width
      integer pg_std_lw
c 
c standard character height
      real pg_std_ch
c 
c RGB values
      real pg_std_fgrgb(3), pg_std_bgrgb(3)
c 
c line width for synthetic travel time curves
      integer pg_syntt_lw
c 
49
c program title
50
51
52
53
54
      character*100 pg_title
c
c axis labels
      character*100 pg_xlabel
      character*100 pg_ylabel
55
56
57
58
59
60
61
62
63
c
c actual pmmode
      character*20 pg_pmmode
c
c actual pickmode
      character*20 pg_pickmode
c
c common blocks
      common /refr_pgpara/ pg_maindevice
64
65
      common /refr_pgstrings/ pg_title, pg_xlabel, pg_ylabel,
     &                        pg_pmmode, pg_pickmode
66
67
      common /refr_pgnam/ pg_nam_relwidth, pg_nam_maxheight, pg_nam_rest,
     &                    pg_nam_ch, pg_nam_xsep, pg_nam_ysep, pg_nam_scale
68
      common /refr_pgfile/ pg_file_ls, pg_file_lw, pg_file_ci, pg_file_rgb
69
70
      common /refr_pgstd/ pg_std_lw, pg_std_ch, pg_std_fgrgb, pg_std_bgrgb
      common /refr_pgsettings/ pg_syntt_lw
71
72
c
c ----- END OF refract_pgpara.inc -----