refract_preread.f 1.76 KB
Newer Older
1
2
3
4
c this is <refract_preread.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_preread.f,v $)
thomas.forbriger's avatar
thomas.forbriger committed
5
c ($Id: refract_preread.f,v 2.0 2000-05-24 17:20:37 thof Exp $)
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
c read additional files on boot (taper, traveltimes, etc.)
c
c REVISIONS and CHANGES
c    24/05/2000   V1.0   Thomas Forbriger
c
c==============================================================================
c
      subroutine refract_preread
c
c declare parameters
      include 'refract_dim.inc' 
      include 'refract_opt.inc' 
      include 'refract_para.inc' 
      include 'refract_picks.inc' 
      include 'refract_model.inc' 
c
cE
c declare local variables
      character*(*) refract_preread_id
thomas.forbriger's avatar
thomas.forbriger committed
28
      parameter (refract_preread_id='$Id: refract_preread.f,v 2.0 2000-05-24 17:20:37 thof Exp $')
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
c 
      character*80 comment 
c
c------------------------------------------------------------------------------
c go
c model file
      if (opt_Fmodel(1:7).ne.'-NONE- ') then
        call refract_doreadmodel(opt_Fmodel)
      endif
c
c travel time polygon file
      if (opt_Fpicks(1:7).ne.'-NONE- ') then
          call refract_doreadttpicks(opt_Fpicks,1)
      endif
c
c arrival times file
      if (opt_Farrival(1:7).ne.'-NONE- ') then
          call refract_doreadttpicks(opt_Farrival,6)
      endif
c
c taper file
      if (opt_Ftaper(1:7).ne.'-NONE- ') then
        call tf_ttapread(opt_Ftaper,pick_x(1,2), pick_y(1,2), pick_n(2),
     &    pick_max, comment)
        flag_replot=.true.
      endif
c
      return
c the following line prevents the linker from removing the ID string
   99 print *, refract_preread_id
      end
c
c ----- END OF refract_preread.f -----