1
2
3
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
|
C Last change: BCM 23 Mar 2005 10:26 am
SUBROUTINE initst
IMPLICIT NONE
c ------------------------------------------------------------------
c Initial variables used to store SEATS diagnostics to NULL value
c ------------------------------------------------------------------
INCLUDE 'srslen.prm'
INCLUDE 'notset.prm'
INCLUDE 'seatlg.cmn'
INCLUDE 'seatmd.cmn'
INCLUDE 'stcfcm.cmn'
c ------------------------------------------------------------------
Havetr = .false.
Havesf = .false.
Haveir = .false.
Havesa = .false.
Havecy = .false.
Havftr = .false.
Havfsf = .false.
Havfir = .false.
Havfsa = .false.
Havfcy = .false.
Hvfttr = .false.
Hvftsf = .false.
Hvftor = .false.
Hvftsa = .false.
Hvftcy = .false.
Hseftr = .false.
Hsefsf = .false.
Hsefor = .false.
Hsefsa = .false.
Hsefcy = .false.
Hsrftr = .false.
Hsrfsf = .false.
Hsrfsa = .false.
Hsrfcy = .false.
Hvstsa = .false.
Hvstir = .false.
Hvstft = .false.
Hvstfs = .false.
Hvstfo = .false.
Hvstfa = .false.
Hvstfc = .false.
Ntcnum = NOTSET
Ntcden = NOTSET
Nsnum = NOTSET
Nsden = NOTSET
Nsanum = NOTSET
Nsaden = NOTSET
Ntrnum = NOTSET
Ntrden = NOTSET
Ntcwkf = NOTSET
Nsawkf = NOTSET
Nswkf = NOTSET
Ntrwkf = NOTSET
Nirwkf = NOTSET
Tcvar = DNOTST
Svar = DNOTST
Savar = DNOTST
Trvar = DNOTST
Irrvar = DNOTST
c ------------------------------------------------------------------
RETURN
END
|
