refract_pgparameters.f 3.9 KB
Newer Older
1
2
c this is <refract_pgparameters.f>
c------------------------------------------------------------------------------
thomas.forbriger's avatar
thomas.forbriger committed
3
c $Id: refract_pgparameters.f,v 2.3 2010-03-05 14:40:13 tforb Exp $
4
5
6
7
8
c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c plot parameter settings
c
thomas.forbriger's avatar
thomas.forbriger committed
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version. 
c 
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
c GNU General Public License for more details.
c 
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
c ----
c
25
26
c REVISIONS and CHANGES
c    04/07/98   V1.0   Thomas Forbriger
thomas.forbriger's avatar
thomas.forbriger committed
27
c    29/07/00   V1.1   introduced opt_Tannotate
28
29
30
31
32
33
c
c==============================================================================
c
      subroutine refract_pgparameters
c
      include 'refract_para.inc'
thomas.forbriger's avatar
thomas.forbriger committed
34
      include 'refract_opt.inc'
35
36
37
38
39
c
      character*200 parastring
      character*20 numstring
      integer nchar, mm, pp, nc
      real oldch, newch
thomas.forbriger's avatar
thomas.forbriger committed
40
      integer tfstr_trimlen
41
42
c 
      if (debug) print *,'DEBUG: entered pgparameters'
thomas.forbriger's avatar
thomas.forbriger committed
43
44
c
      if (opt_Tannotate.eq.'NSP') then
45
c 
thomas.forbriger's avatar
thomas.forbriger committed
46
47
48
49
        nchar=0
        call refract_sub_pgpara(parastring, nchar, 'mode: ',6)
        call pgnumb(plpar_mode, 0, 0, numstring, nc)
        call refract_sub_pgpara(parastring, nchar, numstring, nc)
50
c 
thomas.forbriger's avatar
thomas.forbriger committed
51
52
53
54
55
56
        call refract_sub_pgpara(parastring, nchar, '   ',3)
        call refract_sub_pgpara(parastring, nchar, 'exp: ',5)
        mm=int(plpar_expo*1.e3)
        pp=-3
        call pgnumb(mm, pp, 0, numstring, nc)
        call refract_sub_pgpara(parastring, nchar, numstring, nc)
57
c 
thomas.forbriger's avatar
thomas.forbriger committed
58
59
60
61
62
63
64
        call refract_sub_pgpara(parastring, nchar, '   ',3)
        call refract_sub_pgpara(parastring, nchar, 'clip: ',6)
        mm=int(plpar_clip*1.e3)
        pp=-3
        call pgnumb(mm, pp, 0, numstring, nc)
        call refract_sub_pgpara(parastring, nchar, numstring, nc)
        call refract_sub_pgpara(parastring, nchar, 'm',1)
65
66
c 
        call refract_sub_pgpara(parastring, nchar, '   ',3)
thomas.forbriger's avatar
thomas.forbriger committed
67
68
        call refract_sub_pgpara(parastring, nchar, 'amp: ',5)
        mm=int(plpar_amp*1.e3)
69
70
71
        pp=-3
        call pgnumb(mm, pp, 0, numstring, nc)
        call refract_sub_pgpara(parastring, nchar, numstring, nc)
thomas.forbriger's avatar
thomas.forbriger committed
72
        call refract_sub_pgpara(parastring, nchar, 'm',1)
73
c 
thomas.forbriger's avatar
thomas.forbriger committed
74
75
        if (plflag_reduce) then
          call refract_sub_pgpara(parastring, nchar, '   ',3)
thomas.forbriger's avatar
thomas.forbriger committed
76
          call refract_sub_pgpara(parastring, nchar, 'v\dred\u: ',10)
thomas.forbriger's avatar
thomas.forbriger committed
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
          mm=int(plpar_vred*1.e3)
          pp=-3
          call pgnumb(mm, pp, 0, numstring, nc)
          call refract_sub_pgpara(parastring, nchar, numstring, nc)
          call refract_sub_pgpara(parastring, nchar, 'km/s',4)
        endif
c 
        if (plpar_remav)
     &    call refract_sub_pgpara(parastring, nchar, '   avg',6)
        if (plflag_invers)
     &    call refract_sub_pgpara(parastring, nchar, '   inv',6)
c
      else
        parastring=opt_Tannotate
        nchar=tfstr_trimlen(parastring)
      endif
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
c 
      call pgqch(oldch)
      newch=oldch*0.8
      call pgsch(newch)
      call pgframeact
      call pgmtxt('T', 1., 0.5, 0.5, parastring(1:nchar))
      call pgsch(oldch)
c 
      return
      end
c
c----------------------------------------------------------------------
c
      subroutine refract_sub_pgpara(ps, pc, is, ic)
c
      character ps*(200), is*(*)
      integer pc, ic
c 
      integer e1,e2,en
c
      e1=pc+1
      e2=pc+ic
      e1=min(200,e1)
      e2=min(200,e2)
      en=e2-e1+1
      ps(e1:e2)=is(1:en)
      pc=e2
c
      return
      end
c
c ----- END OF refract_pgparameters.f -----