source: trunk/src/seismic_processing/hyp2000/common.inc @ 2768

Revision 2768, 30.2 KB checked in by dietz, 14 years ago (diff)

Incorporated changes from Fred Klein's hyp2000 v1.1 release.
These changes include the option to fix the origin time and
a bunch of little tweaks to make the g77 compiler happy.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1C--COMMON BLOCK INCLUDE FILE FOR HYPOINVERSE
2      LOGICAL LSUM,LARC,LPRT,LERR,LEJCT,LREP,DONE,LCUSP,LPRALL
3      LOGICAL LAPP,LJUNK,LMULT,LTBIG,LMAG,LBSTA,LBCRU,SUBMOD,LP153
4      LOGICAL L2000,HYPOFIX,ALLFIX
5
6C--SHORT INTEGER AND LOGICAL DECLARATIONS
7      INCLUDE 'integer.for'     !SUN & VAX VERSION. USES *2 LENGTHS
8
9C--GENERAL PARAMETERS
10      CHARACTER CM*3,INST*132,CTEMP*1,IE*1,IS*1,TERM*80
11C      CHARACTER CPADD*2
12      CHARACTER RUNLAB*1,CP1*1,CP2*1,CP3*1,FIXCHR*1, CDOMAN*2,CPVERS*2
13      COMMON /D/ SUBMOD         !F=NORMAL PROGRAM, T=SUBROUTINE VERSION
14C      COMMON /C/ CPADD         !DUMMY PADDING IF NEEDED
15      COMMON /C/ CM             !CURRENT COMMAND NAME
16      COMMON /C/ INST           !CURRENT COMMAND PARAMETERS OR PHASE CARD
17      COMMON /C/ CTEMP          !CHARACTER TEMPORARY
18      COMMON /C/ TERM           !TERMINATOR (INSTRUCTION) CARD
19      COMMON /C/ IS             !CHARACTER TEMPORARY, 'S' FOR SOUTH LAT
20      COMMON /C/ IE             !CHARACTER TEMPORARY, 'E' FOR EAST LON
21      COMMON /D/ PI             !PI
22      COMMON /D/ RDEG           !DEGREES PER RADIAN
23      COMMON /D/ INP            !COMMAND INPUT UNIT NUMBER
24      COMMON /D/ ISTAT          !A STATUS FLAG SET BY HYCMD FOR HYP
25      COMMON /D/ ISTAT2         !A STATUS FLAG SET BY HYOPEN FOR HYP
26      COMMON /D/ IRES           !STATUS FLAG FROM HYPOINV & CUSP SUBROUTINES
27      COMMON /D/ IPADD          !DUMMY PADDING
28      COMMON /D/ LTBIG          !BIG EVENT FLAG (HYPHS TO HYLST)
29      COMMON /C/ RUNLAB         !1-LETTER LABEL FOR ENTIRE RUN (LAB)
30      COMMON /D/ LP153          !T=PASS COL 153 THRU, F=RUNLAB (LAB)
31      COMMON /C/ CP1            !PASS THRU LABEL, IE AUTHORITY
32      COMMON /C/ CP2            !PASS THRU LABEL, IE VERSION
33      COMMON /C/ CP3            !PASS THRU LABEL, IE REVISION
34      COMMON /D/ HYPOFIX        !INDIVIDUAL FLAG TO FIX ONE HYPOCENTER
35      COMMON /D/ ALLFIX         !INDIVIDUAL FLAG TO FIX ONE HYPO & ORIGIN
36      COMMON /C/ FIXCHR         !CHARACTER USED TO SIGNAL HYPOCENTER FIX
37      COMMON /C/ CDOMAN         !CODE FOR PROCESSING DOMAIN (IE NC) (VER)
38      COMMON /C/ CPVERS         !CODE FOR PROCESSING VERSION (IE 01) (VER)
39     
40C--FILES AND OUTPUT CONTROLS
41C--DEFINING COMMAND NAMES ARE IN PARENTHESES
42      CHARACTER*60 STAFIL,INFILE,PHSFIL,SUMFIL,ARCFIL,PRTFIL,DELFIL
43      CHARACTER*60 ATNFIL,FMCFIL,XMCFIL,MAGFIL,BSTAFL,BCRUFL,TERMIN
44      CHARACTER*60 CALFIL
45      CHARACTER FORID*30
46      COMMON /C/ SUMFIL         !HYPOINVERSE SUMMARY OUTPUT FILENAME (SUM)
47      COMMON /C/ ARCFIL         !ARCHIVE OUTPUT FILENAME (ARC)
48      COMMON /C/ PRTFIL         !PRINT OUTPUT FILENAME (PRT)
49      COMMON /D/ LSUM           !TRUE TO OUTPUT SUMMARY DATA (SUM)
50      COMMON /D/ IH71S          !SUMMARY FORMAT 1=HI 2=H71 (H71)
51      COMMON /D/ IH71T          !TERMINATOR FORMAT 1=HI 2=H71 3=HDR TRIAL (H71)
52      COMMON /D/ LARC           !TRUE TO OUTPUT ARCHIVE DATA (ARC)
53      COMMON /D/ LPRT           !TRUE TO OUTPUT A PRINTOUT FILE (PRT)
54      COMMON /D/ LMAG           !TRUE TO OUTPUT MAGNITUDE DATA FILE (MFL)
55      COMMON /D/ LERR           !TRUE TO OUTPUT ERROR MESSAGES TO TERMINAL (ERF)
56      COMMON /D/ LCUSP          !TRUE IF READING FROM CUSP MEM FILES (COP)
57      COMMON /C/ FORID          !CUSP ID READING FORMAT (FID)
58      COMMON /C/ STAFIL         !STATION INPUT FILENAME (STA)
59      COMMON /C/ BSTAFL         !BINARY STATION SNAPSHOT (WST,RST)
60      COMMON /D/ LBSTA          !T IF BINARY STATIONS, F IF ASCII (RST,STA,DEL)
61      COMMON /C/ BCRUFL         !BINARY CRUST MODELS SNAPSHOT (WCR,RCR)
62      COMMON /D/ LBCRU          !T IF BINARY CRUST MODELS, F IF ASCII (RCR,CRT)
63      COMMON /C/ DELFIL         !STATION DELAY FILENAME (DEL)
64      COMMON /C/ ATNFIL         !STATION ATTENUATION FILENAME (ATE)
65      COMMON /C/ CALFIL         !STATION CAL FACTOR FILENAME (CAL)
66      COMMON /C/ FMCFIL         !STATION FMAG CORRECTION FILENAME (FMC)
67      COMMON /C/ XMCFIL         !STATION XMAG CORRECTION FILENAME (XMC)
68      COMMON /C/ PHSFIL         !PHASE DATA INPUT FILENAME (PHS)
69      COMMON /C/ MAGFIL         !MAGNITUDE DATA OUTPUT FILE (MFL)
70      COMMON /C/ INFILE(0:4)    !COMMAND INPUT FILENAME (@)
71      COMMON /D/ ISTFMT         !STATION FORMAT NO. 1=HI 2=H71 3=HI2 (STF)
72      COMMON /D/ JCP            !PHASE DATA FORMAT CODE (COP)
73      COMMON /D/ JCPO           !1=MODIFY CUSP MEM FILES, 0=NO (COP)
74      COMMON /D/ JCA            !ARCHIVE DATA FORMAT CODE (CAR)
75C               THE CODES ARE: 1=FULL 2=CONDENSED 3=CONDENSED PICKER STYLE
76      COMMON /D/ JST    !0=PRINT EVENTS ONLY, 1=ADD PARAMS & FILES TO START
77C               OF PRINTOUT, 2=ADD STA LIST & CRUST MODELS (LST)
78      COMMON /D/ JST2           !STATION LIST QUANTITY CONTROL 0,1,2 (LST)
79      COMMON /D/ JST3           !CRUST LIST QUANTITY CONTROL 0,1 (LST)
80      COMMON /D/ KPRINT         !CONTROLS AMOUNT OF PRINTOUT (KPR)
81      COMMON /D/ LEJCT    !TRUE TO PAGE EJECT PRINTOUT BEFORE EACH EVENT (TOP)
82      COMMON /D/ LREP  !TRUE TO REPORT EACH EVENT ON TERMINAL AS LOCATED (REP)
83      COMMON /D/ LPRALL         !TRUE TO PRINT UNWEIGHTED STATIONS (REP)
84      COMMON /D/ LAPP(3) !INDICATES WHETHER OUTPUT FILES ARE APPENDED TO (APP)
85C               1=PRINT FILE 2=SUMMARY 3=ARCHIVE
86      COMMON /C/ TERMIN         !THE CURRENT TERMINAL DEVICE CODE
87      COMMON /D/ L2000          !T=SUPPORT YR2000 FORMATS, F=OLD FORMATS
88      COMMON /D/ ICENT          !DEFAULT CENTURY OLD PHASE FORMAT
89      COMMON /D/ IAMPU          !DEFAULT AMP UNITS CODE
90
91C--HYPOINVERSE CRUSTAL MODELS ********************************************
92C--DATA PRESENT FOR EACH OF THE LH=LM MODELS
93C--LH IS THE MAX NO. OF LAYER MODELS WHICH MUST = LM, THE MAX NO. OF MODELS
94      PARAMETER (NLYR=20,LH=36)
95      CHARACTER MODNAM*30
96      COMMON /MC/ MODNAM(LH)    !MODEL NAME OR LABEL
97      COMMON /M/ LAY(LH)        !NUMBER OF LAYERS OR V-D POINTS
98      COMMON /M/ D(NLYR,LH)     !DEPTH TO LAYER TOP OR VELOCITY POINT
99      COMMON /M/ VEL(NLYR,LH)   !LAYER OR POINT VELOCITY
100      COMMON /M/ THK(NLYR,LH)   !THICKNESS OF HOMOGENEOUS LAYER
101      COMMON /M/ VSQ(NLYR,LH)   !SQUARED VELOCITY OF HOMOGENEOUS LAYER
102      COMMON /M/ MODTYP(LH)     !MDL TYPE (-1=UNDEF, 0=GRAD, 1=HOMO LAYER)
103
104C--DATA USED ONLY FOR LINEAR GRADIENT TRAVEL TIME TABLES
105      PARAMETER (LN=36)         !THE NUMBER OF LINEAR-GRAD MODELS ALLOWED
106      LOGICAL GD1,GD2,GZ1,GZ2
107      COMMON /M/ REDV(LN)       !ONE OVER THE REDUCING VELOCITY
108      COMMON /M/ NZ(LN)         !NUMBER OF DEPTH GRID POINTS
109      COMMON /M/ NZ1(LN),DZ1(LN),NZ2(LN),DZ2(LN)        !DEPTH GRID PARAMS
110      COMMON /M/ ND(LN)         !NUMBER OF DISTANCE GRID POINTS
111      COMMON /M/ ND1(LN),DD1(LN),ND2(LN),DD2(LN)        !DIST GRID PARAMS
112      COMMON /M/ GD1(LN),GD2(LN),GZ1(LN),GZ2(LN)        !GRID FLAGS
113
114C--DECLARE ARRAY STORAGE FOR TRAVEL TIME TABLE. THE ARRAY KT HOLDS
115C  CONDENSED TRAVEL TIMES TO 28 DEPTH & 42 DISTANCE POINTS.
116C  KDHR HOLDS THE DISTANCES AT WHICH HORIZONTAL RAYS EMERGE.
117      COMMON /M/ KDHR(LN,28), KT(LN,28,42)
118
119C--PARAMETERS FOR MULTIPLE CRUSTAL MODELS
120C--LM IS THE MAXIMUM NUMBER OF MODELS OF EITHER GRADIENT OR LAYER TYPE.
121C  LM MUST = LH (MAX NO. OF LAYER MODELS). LN (MAX NO. OF GRADIENT MODELS)
122C  MAY BE LESS THAN OR = LM.  LH & LN ARE PARAMETERS IN HYPCOMC.
123      PARAMETER (LM=36) !MAX NUMBER OF CRUST MODELS
124      CHARACTER CRODE*3, CRUFIL*60
125      COMMON /D/ MOD            !CURRENT CRUST MODEL NUMBER
126      COMMON /C/ CRUFIL(LM)     !CRUST MODEL INPUT FILENAMES (CRT,CRH)
127      COMMON /C/ CRODE(LM)      !CRUST MODEL CODE FROM NAME
128      COMMON /D/ MODALT(LM)     !=0 NO ALTERNATE MOD, =N USE MODEL N W/SOME STAS
129      COMMON /D/ LMULT          !T TO PROCESS W/ REGION-DEPENDENT MODELS (MUL)
130      COMMON /D/ MODDEF         !DEFAULT MODEL FOR UNLISTED REGIONS (MUL)
131      COMMON /D/ MAXMOD         !HIGHEST MODEL NUMBER DEFINED (CRT,CRH)
132      COMMON /D/ NMOD           !NO. OF POS WEIGHTED MODELS FOR AN EVENT (1-3)
133      COMMON /D/ MODS (3)       !MODEL NUMBERS FOR THIS EVENT
134      COMMON /D/ WMOD (3)       !WEIGHTS OF EACH MODEL
135
136      PARAMETER (NODMAX=124)    !MAX NO. OF GEOGRAPHIC NODES FOR DEFINING MODELS
137      COMMON /D/ NNODE          !NUMBER OF NODES CURRENTLY DEFINED (NOD)
138      COMMON /D/ HLAT(NODMAX)   !NODE CIRCLE CENTER LAT (NOD)
139      COMMON /D/ HLON(NODMAX)   !NODE CIRCLE CENTER LON (NOD)
140      COMMON /D/ RAD1(NODMAX)   !NODE CIRCLE INNER RADIUS (NOD)
141      COMMON /D/ RAD2(NODMAX)   !NODE CIRCLE OUTER RADIUS
142      COMMON /D/ DRAD(NODMAX)   !NODE CIRCLE TRANSITION WIDTH (NOD)
143      COMMON /D/ MODH(NODMAX)   !MODEL NO. FOR THIS NODE (NOD)
144      COMMON /D/ HDIS(NODMAX)   !EPICENTRAL DIST FROM NODE
145
146C--DATA FOR ALL AVAILABLE STATIONS STORED AS LOOKUP TABLE (SUBSCRIPT J)
147C  USE 2-BYTE INTEGERS WHERE POSSIBLE
148      CHARACTER STANAM*5,STRMK*1,JCOMP1*1,JCOMP3*3,JNET*2,JSLOC*2
149      CHARACTER JCOMPA*3,JSLOC2*2
150      LOGICAL LLOC2
151C     INTEGER*4 JCEXP,JFEXP,JXEXP       !LONGER LENGTH REQUIRED
152      PARAMETER (MAXSTA=9000)   !MAX NO. OF STATIONS STORED IN LOOKUP TABLE
153      COMMON /D/ JSTA           !NUMBER OF STATIONS ACTUALLY READ INTO TABLE
154C                                 JSTA <= MAXSTA
155      COMMON /C/ STANAM (MAXSTA)        !5-LETTER STATION NAME
156      COMMON /C/ JNET   (MAXSTA)        !2-LETTER SEISMIC NET CODE
157      COMMON /C/ JCOMP1 (MAXSTA)        !1-LETTER COMPONENT CODE
158      COMMON /C/ JCOMP3 (MAXSTA)        !3-LETTER COMPONENT CODE
159      COMMON /C/ JCOMPA (MAXSTA)        !ALTERNATIVE 3-LETTER COMPONENT CODE
160      COMMON /C/ JSLOC  (MAXSTA)        !2-LETTER LOCATION CODE
161      COMMON /C/ JSLOC2 (MAXSTA)        !EQUIVALENT LOCATION CODE ('  '='--')
162      COMMON /D/ LLOC2                  !T IF 2ND LOCATION CODE MATCHED
163      COMMON /D/ JLATD (MAXSTA)         !LATITUDE (DEG)
164      COMMON /D/ JLATM (MAXSTA)         !LATITUDE (IN .01 MIN)
165      COMMON /D/ JLOND (MAXSTA)         !LONGITUDE (DEG)
166      COMMON /D/ JLONM (MAXSTA)         !LONGITUDE (IN .01 MIN)
167      COMMON /D/ JPER (MAXSTA)          !STANDARD PERIOD (PERIOD IN SEC * 10)
168      COMMON /D/ JTYPE (MAXSTA)         !RESPONSE TYPE 0=WA 1,3=L4C 4=HS1 ETC
169      COMMON /D/ JCAL (MAXSTA)          !STATION CAL FACTOR *1000
170      COMMON /D/ JCEXP (MAXSTA)         !CAL EXPIRATION DATE (IN YMDH)
171      COMMON /D/ JLMOD (MAXSTA)         !T TO USE ALTERNATE MODEL FOR THIS STA
172      COMMON /D/ JFCOR (MAXSTA)         !DUR MAG CORRECTION *100
173      COMMON /D/ JFEXP (MAXSTA)         !FCOR EXPIRATION DATE (IN YMDH)
174      COMMON /D/ JXCOR (MAXSTA)         !AMP MAG CORRECTION *100
175      COMMON /D/ JXEXP (MAXSTA)         !XCOR EXPIRATION DATE (IN YMDH)
176      COMMON /D/ JPSWT (MAXSTA)         !P & S STATION WEIGHTS
177      COMMON /D/ JXWT (MAXSTA)          !AMPLITUDE MAGNITUDE WEIGHT *10
178      COMMON /D/ JFWT (MAXSTA)          !DURATION MAGNITUDE WEIGHT *10
179      COMMON /D/ JFGWT (MAXSTA)         !DURATION GAIN CORRECTION WEIGHT *1
180      COMMON /D/ JPD (LM,MAXSTA)        !P DELAYS IN .01 SEC
181      COMMON /C/ STRMK (MAXSTA)         !1-LETTER STATION REMARK
182C--THE FOLLOWING 4 VARIABLES DEPEND ON COMP TYPE
183      COMMON /D/ JFM1 (MAXSTA)          !USE THIS STATION FOR 1ST DUR MAG
184      COMMON /D/ JFM2 (MAXSTA)          !USE THIS STATION FOR 2ND DUR MAG
185      COMMON /D/ JXM1 (MAXSTA)          !USE THIS STATION FOR 1ST AMP MAG
186      COMMON /D/ JXM2 (MAXSTA)          !USE THIS STATION FOR 2ND AMP MAG
187      COMMON /D/ JPM1 (MAXSTA)          !USE THIS STATION FOR 1ST P AMP MAG
188      COMMON /D/ JPM2 (MAXSTA)          !USE THIS STATION FOR 2ND P AMP MAG
189
190C************** DATA FOR A PARTICULAR EVENT *********************
191C--DATA PRESENT FOR EACH STATION REPORTING AN EVENT (SUBSCRIPT K)
192C  USE 2-BYTE INTEGERS WHERE POSSIBLE
193      PARAMETER (MAXPHS=1500)   !MAX NO. OF STATIONS FOR EACH EVENT
194      CHARACTER KPRK*3,KSRK*2,KRMK*1,KSOU*1,KDEV*3,KRMK6*6,PARMK*1
195C      CHARACTER KPSWT*1
196      CHARACTER KSHAD*104       !A MAX LENGTH OF 104 IS TESTED IN HYPHS
197      COMMON /D/ KSTA           !NO. OF STATIONS (PHASE CARDS) FOR THIS EVENT
198C                                 KSTA <= MAXPHS
199      COMMON /D/ KINDX (MAXPHS)         !POINTER TO STATION IN LOOKUP TABLE
200      COMMON /D/ KP (MAXPHS)            !P TIME IN .01"
201      COMMON /D/ KS (MAXPHS)            !S TIME IN .01"
202      COMMON /D/ DIS (MAXPHS)           !DISTANCE TO EPICENTER IN KM
203      COMMON /D/ KAZEM (MAXPHS)         !CONDENSED AZIMUTH & EMERGENCE ANGLE
204      COMMON /D/ KWT (MAXPHS)           !CONDENSED ASSIGNED P & S WEIGHT CODES
205      COMMON /D/ KFWT (MAXPHS)          !ASSIGNED DUR MAGNITUDE WEIGHT CODE
206      COMMON /D/ KXWT (MAXPHS)          !ASSIGNED AMP MAGNITUDE WEIGHT CODE
207      COMMON /D/ KPAWT (MAXPHS)         !ASSIGNED P AMP MAG WEIGHT CODE
208      COMMON /D/ PAWT (MAXPHS)          !P AMP MAGNITUDE WEIGHT
209      COMMON /D/ KFMP (MAXPHS)          !CODA DURATION IN SECONDS
210      COMMON /D/ KXMAG (MAXPHS)         !CALCULATED AMP MAG FOR THIS STA *100
211      COMMON /D/ KFMAG (MAXPHS)         !CALCULATED DUR MAG FOR THIS STA *100
212      COMMON /D/ KPMAG (MAXPHS)         !CALCULATED P MAG FOR THIS STA *100
213      COMMON /D/ AMPK (MAXPHS)          !MAX PEAK-TO-PEAK AMP IN MM OR COUNTS
214      COMMON /D/ KAMPU (MAXPHS)         !AMP UNITS CODE 0=PP-MM 1=0-P 2=COUNTS
215      COMMON /D/ KAMPTYP (MAXPHS)       !AMP TYP 0=? 1=WA 2=VEL 3=ACCEL 4=NOUSE
216      COMMON /D/ KIMTYP (MAXPHS)        !INST TYP 0=NOMAG 1=ML 2=MX
217      COMMON /D/ KPAMP (MAXPHS)         !PP P AMP IN COUNTS, 1ST 3 PEAKS
218      COMMON /D/ KPER (MAXPHS)          !PERIOD AT AMP READING IN .01 SEC.
219      COMMON /D/ KCAL (MAXPHS)          !CAL FACTOR FOR THIS AMP ONLY IN .01
220      COMMON /C/ KPRK (MAXPHS)          !P REMARK INCL FIRST MOTION
221      COMMON /C/ KSRK (MAXPHS)          !S REMARK
222      COMMON /C/ PARMK (MAXPHS)         !P AMPLITUDE DESCRIPTOR
223      COMMON /D/ PNORM (MAXPHS)         !PMAG L1 NORM FOR STA TB MINIMIZED
224      COMMON /D/ PNORM2 (MAXPHS)        !PMAG2 L1 NORM FOR STA TB MINIMIZED
225      COMMON /C/ KRMK (MAXPHS)          !ANY 1 LETTER STATION REMARK
226      COMMON /C/ KRMK6 (MAXPHS)         !ORIGINAL 6-LETTER REMARK
227C      COMMON /C/ KPSWT (MAXPHS)        !STATION WEIGHT-OUT CODE NO LONGER USED
228      COMMON /C/ KSHAD (MAXPHS)         !OPTIONAL SHADOW PHASE RECORD
229      COMMON /D/ KLSHA (MAXPHS)         !LENGTH OF KSHAD
230      COMMON /C/ KSOU (MAXPHS)          !1-LETTER DATA SOURCE CODE
231      COMMON /C/ KDEV (MAXPHS)          !3-LETTER DIGITIZER DEVICE CODE
232
233C--DATA PRESENT FOR EACH PHASE (P OR S) REPORTED FOR THIS EVENT (SUBSCRIPT IM)
234      PARAMETER (MMAX=1200)             !MAX NO. OF PHASES (P OR S) PER EVENT
235      COMMON /D/ M                      !NO. OF ARRIVAL TIMES FOR THIS EVENT
236      COMMON /D/ IND (MMAX)             !POINTER TO STATION IN TABLE & S FLAG
237      COMMON /D/ A(MMAX,5)              !TRAVEL TIMES & DERIVATIVES
238      COMMON /D/ R (MMAX)               !CURRENT TRAVEL TIME RESIDUAL
239      COMMON /D/ W (MMAX)               !COMPUTED WEIGHT OF READING
240      COMMON /D/ IMPORT (MMAX)          !COMPUTED IMPORTANCE OF READING IN .001
241      COMMON /D/ MTCAL (MMAX)           !CALC TT IN .01. MULT S TIMES BY POS
242C--THESE VALUES ARE PASSED BY THE ARRAY A.
243C 1 AIN !ANGLE OF EMERGENCE AT THE SOURCE, MEASURED IN DEGREES FROM NADIR.
244C 2 T           !TRAVEL TIME
245C 3 DTDR        !TT DERIVATIVE WRT DISTANCE
246C 4 DTDZ        !TT DERIVATIVE WRT DEPTH
247
248C--HYPOCENTER DATA FOR THIS EVENT
249      COMMON /D/ KYEAR                  !TWO DIGIT YEAR
250      COMMON /D/ KYEAR2                 !4 DIGIT YEAR
251      COMMON /D/ KMONTH                 !MONTH
252      COMMON /D/ KDAY                   !DAY
253      COMMON /D/ KHOUR                  !HOUR
254      COMMON /D/ KMIN                   !MINUTE
255      COMMON /D/ T1                     !CURRENT (OR TRIAL) ORIGIN TIME, SEC
256      COMMON /D/ Z1                     !CURRENT (OR TRIAL) DEPTH
257      COMMON /D/ CLAT                   !CURRENT (OR TRIAL) LAT, DECIMAL DEGREES
258      COMMON /D/ CLON                   !CURRENT (OR TRIAL) LON, DECIMAL DEG, POS WEST
259      COMMON /D/ LAT                    !EVENT LAT, DEG
260      COMMON /D/ XLTM                   !EVENT LAT, MIN
261      COMMON /D/ LON                    !EVENT LON, DEG
262      COMMON /D/ XLNM                   !EVENT LON, MIN
263
264C--ERROR DATA FOR THIS EVENT
265      COMMON /D/ ERH                    !HORIZONTAL LOCATION ERROR
266      COMMON /D/ ERZ                    !DEPTH ERROR
267      COMMON /D/ SERR(3)                !MAGNITUDES OF 3 STD. ERRORS
268      COMMON /D/ IAZ(3)                 !AZIMUTHS OF 3 STD. ERRORS
269      COMMON /D/ IDIP(3)                !DIPS OF 3 STD. ERRORS
270
271C--FIRST MAGNITUDE DATA FOR EVENT
272      CHARACTER BMTYP*1,BMTYPX*1
273      COMMON /D/ FMAG                   !MEDIAN DURATION MAG
274      COMMON /D/ XMAG                   !MEDIAN AMPLITUDE MAG
275C      COMMON /D/ MFMAG                 !TOTAL OF DURATION MAG WEIGHTS *100
276      COMMON /D/ NFMAG                  !NUMBER OF DURATION MAGS W/ WEIGHTS>0
277C      COMMON /D/ MXMAG                 !TOTAL OF AMPLITUDE MAG WEIGHTS *100
278      COMMON /D/ NXMAG                  !NUMBER OF AMPLITUDE MAGS W/ WEIGHTS>0
279      COMMON /D/ FMMAD                  !MEDIAN ABSOL DIFFERENCE OF DURATION MAGS
280      COMMON /D/ XMMAD                  !MEDIAN ABSOL DIFFERENCE OF AMPLITUDE MAGS
281      COMMON /D/ BMAG                   !PASS THRU (BERKELEY) MAGNITUDE
282C      COMMON /D/ MBMAG                 !TOTAL OF PASS THRU MAG WEIGHTS *100
283      COMMON /D/ NBMAG                  !NUMBER OF PASS THRU MAGS W/ WEIGHTS>0
284      COMMON /C/ BMTYP                  !PASS THRU MAGNITUDE LABEL CODE
285      COMMON /D/ BMAGX                  !PASS THRU X-MAGNITUDE
286C      COMMON /D/ MBMAGX                !NUMBER OF PASS THRU XMAG READINGS *100
287      COMMON /D/ NBMAGX                 !NUMBER OF PASS THRU XMAG READINGS
288      COMMON /C/ BMTYPX                 !PASS THRU X-MAGNITUDE LABEL CODE
289
290C--SECOND MAGNITUDE DATA FOR EVENT
291      COMMON /D/ FMAG2          !MEDIAN DURATION MAG
292      COMMON /D/ XMAG2          !MEDIAN AMPLITUDE MAG
293C      COMMON /D/ MFMAG2        !TOTAL OF DURATION MAG WEIGHTS *100
294      COMMON /D/ NFMAG2         !NUMBER OF DURATION MAGS W/ WEIGHTS>0
295C      COMMON /D/ MXMAG2        !TOTAL OF AMPLITUDE MAG WEIGHTS *100
296      COMMON /D/ NXMAG2         !NUMBER OF AMPLITUDE MAGS W/ WEIGHTS>0
297      COMMON /D/ FMMAD2         !MEDIAN ABSOL DIFFERENCE OF DURATION MAGS
298      COMMON /D/ XMMAD2         !MEDIAN ABSOL DIFFERENCE OF AMPLITUDE MAGS
299
300C--MISCELLANEOUS DATA FOR THIS EVENT
301      CHARACTER REMK*3,RMK1*1,RMK2*1,FULNAM*25,SHADO*92,SHAD1*92
302      CHARACTER*1 SOUCOD,FMSOU,XMSOU,FMSOU2,XMSOU2
303      COMMON /D/ RMS            !RMS RESIDUAL AFTER RESIDUAL WEIGHTING
304      COMMON /D/ RMSWT          !RMS RESIDUAL BEFORE RESIDUAL WEIGHTING
305      COMMON /C/ REMK           !3-LETTER REMARK BASED ON LOCATION
306      COMMON /C/ RMK1           !FIRST 1-LETTER AUXILIARY REMARK
307      COMMON /C/ RMK2           !SECOND 1-LETTER AUXILIARY REMARK
308      COMMON /C/ FULNAM         !FULL 25-LETTER REGION NAME
309      COMMON /D/ DONE           !FLAG SET WHEN EVENT IS LOCATED
310      COMMON /D/ V(4,4)         !EIGENVECTOR MATRIX
311      COMMON /D/ EIGVAL(4)      !EIGENVALUES
312      COMMON /D/ COVAR(4,4)     !COVARIANCE MATRIX
313      COMMON /D/ IDNO           !EVENT ID NO. INPUT FOR EVENT
314      COMMON /D/ MEMDSK         !0=GET CUSP EVENT FROM MEMORY 1=DISK (LOC)
315      COMMON /D/ INUM           !EVENT NO. WITHIN THIS LOCATION RUN
316      COMMON /D/ LENSHA         !LENGTH OF OPTIONAL REC AFTER TERMINATOR CARD
317      COMMON /C/ SHADO          !OPTIONAL RECORD AFTER TERMINATOR CARD
318
319      PARAMETER (MSHA=4)        !MAX NUMBER OF SHADOW RECS AFTER HEADER
320      COMMON /D/ NSHA1          !ACTUAL NUMBER OF SHADOW RECS AFTER HEADER
321      COMMON /D/ LSHA1 (MSHA)   !LENGTH OF OPTIONAL REC AFTER ARCHIVE HEADER
322      COMMON /C/ SHAD1 (MSHA)   !OPTIONAL RECORD AFTER ARCHIVE HEADER
323      COMMON /D/ ITR            !CURRENT ITERATION NUMBER
324      COMMON /D/ DMIN           !DISTANCE TO CLOSEST STATION
325      COMMON /D/ KEND           !PROGRAM TERMINATION FLAG
326      COMMON /D/ MAXGAP         !MAXIMUM AZIMUTHAL GAP
327      COMMON /D/ NFRM           !NUMBER OF FIRST MOTIONS
328      COMMON /D/ NWR            !NUMBER OF WEIGHTED READINGS (P & S)
329      COMMON /D/ NWS            !NUMBER OF WEIGHTED S READINGS
330      COMMON /D/ NVR            !NUMBER OF VALID READINGS (>0 ASSIGNED WEIGHTS)
331      COMMON /D/ RR             !LENGTH OF ADJUSTMENT VECTOR IN KM
332      COMMON /C/ SOUCOD         !MOST COMMON PHASE SOURCE CODE
333      COMMON /C/ FMSOU          !MOST COMMON 1ST FMAG SOURCE CODE
334      COMMON /C/ XMSOU          !MOST COMMON 1ST XMAG SOURCE CODE
335      COMMON /C/ FMSOU2         !MOST COMMON 2ND FMAG SOURCE CODE
336      COMMON /C/ XMSOU2         !MOST COMMON 2ND XMAG SOURCE CODE
337
338C***************** PARAMETERS WHICH APPLY TO ALL EVENTS ******************
339C--THE DEFINING COMMANDS ARE GIVEN IN PARENTHESES
340
341CC--STATION DELAY PARAMETERS (DLY) [MADE OBSOLETE BY MULTIPLE MODEL OPTION]
342C       COMMON /D/ KDLY !DELAY MODEL CONTROL: 1=MODEL 1, 2=MODEL 2, 3=LINE
343CC                       SEPARATES 2 MODELS, 4=CIRCLE SEPS. 2 MODELS.
344C       COMMON /D/ DLYBAL       !FACTOR WHICH BALENCES BETWEEN 2 DELAY MODELS
345CC                        (0 FOR MOD1, 1 FOR MOD2)
346C       COMMON /D/ DLYAZ        !AZIMUTH OF LINE OR RADIUS OF CIRCLE WHICH
347CC                        SEPARATES THE 2 DELAY MODELS
348C       COMMON /D/ DLYWD        !WIDTH OF TRANSITION ZONE BETWEEN MODELS
349C       COMMON /D/ DLYLON       !LON OF CIRCLE CENTER OR POINT ON LINE
350C       COMMON /D/ DLYLAT       !LAT OF CIRCLE CENTER OR POINT ON LINE
351CC                         BOTH IN DECIMAL DEGREES, POS N & W
352
353C--TERMINATING LOCATION UPON CONVERGENCE (CON)
354      COMMON /D/ ITRLIM         !MAXIMUM NUMBER OF ITERATIONS
355      COMMON /D/ DQUIT          !STOP WHEN HYPO ADJUSTMENT IS < THIS
356      COMMON /D/ DRQT           !STOP WHEN CHANGE IN RMS < THIS
357      COMMON /D/ MINSTA         !MIN NO. OF PHASE CARDS TO ATTEMPT LOC (MIN)
358
359C--ITERATION & DAMPING CONTROLS (DAM)
360      COMMON /D/ DXFIX          !KEEP DEPTH FIXED UNTIL ADJUST IS < THIS
361      COMMON /D/ DZMAX          !DAMP DEPTH ADJUST IF > THIS
362      COMMON /D/ DXMAX          !DAMP DISTANCE ADJUST IF > THIS
363      COMMON /D/ D2FAR          !STOP WHEN STA-DIST(2) > THIS
364      COMMON /D/ DZAIR          !FRACTION OF DEPTH ADJ. IF QUAKE GOES INTO AIR
365      COMMON /D/ DAMP           !DAMPING FACTOR FOR ALL HYPO ADJUSTMENTS
366      COMMON /D/ EIGTOL         !MIN EIGENVALUE REQUIRED FOR ADJUSTMENT
367      COMMON /D/ RBACK          !LIMIT ON RMS INCREASE FOR ONE ITERATION
368      COMMON /D/ BACFAC         !FRACTION OF STEP TO MOVE BACK IF
369C                                 INCREASE IN RMS > RBACK
370
371C--DURATION MAG CONSTANTS
372      LOGICAL LATEN,LCOWT, LNOFMC,LNOXMC
373      CHARACTER CLA0*3, CDUG*3
374C     INTEGER*4 ICDATE,IFDATE,IXDATE    !LONGER LENGTH REQUIRED
375      COMMON /D/ LATEN          !TRUE TO CONVERT STA ATTEN TO CAL FACTOR (ATN)
376      COMMON /D/ FMA1,FMB1,FMZ1,FMD1,FMF1       !LOW DUR MAG CONSTANTS (DUR)
377      COMMON /D/ FMA2,FMB2,FMZ2,FMD2,FMF2       !HIGH DUR MAG CONSTANTS (DUR)
378      COMMON /D/ FMBRK          !DURATION SEPARATING LO & HI CONSTANTS (DUR)
379      COMMON /D/ FMGN           !COEFF OF GAIN CORR TO OLD FMAGS (DUR)
380      COMMON /D/ IDUG           !NUMBER OF GAIN CORR COMPS, -1=ALL (DUG)
381      COMMON /C/ CDUG(10)       !COMPONENTS TO CORRECT (DUG)
382      COMMON /D/ DCOFM1         !COEFF OF ADDL LINEAR DIST TERM (DU2)
383      COMMON /D/ DBRKM1         !START DIST OF ADDL LINEAR DIST TERM (DU2)
384      COMMON /D/ DCOFM2         !COEFF OF ADDL LINEAR DIST TERM (DU2)
385      COMMON /D/ DBRKM2         !START DIST OF ADDL LINEAR DIST TERM (DU2)
386      COMMON /D/ ZCOFM          !COEFF OF ADDL LINEAR DEPTH TERM (DU2)
387      COMMON /D/ ZBRKM          !START DEPTH OF ADDL LINEAR DEPTH TERM (DU2)
388      COMMON /D/ FMA1B,FMB1B,FMZ1B,FMD1B,FMF1B  !LOW 2nd DUR MAG (DUB)
389      COMMON /D/ FMA2B,FMB2B,FMZ2B,FMD2B,FMF2B  !HIGH 2nd DUR MAG (DUB)
390      COMMON /D/ FMBRKB         !2ND DURATION SEPARATING LO & HI CONSTS (DUB)
391      COMMON /D/ FMGNB          !COEFF OF GAIN CORR FOR 2nd FMAGS (DUB)
392      COMMON /D/ MAGSEL         !FMAG1: 1=CODA MAGS 2=TAU MAGS 3=2nd CODA (MAG)
393      COMMON /D/ MAGSL2         !FMAG2: 1=CODA MAGS 2=TAU MAGS 3=2nd CODA (MAG)
394      COMMON /D/ LCOWT          !T=USE CODA WEIGHTS F=IGNORE CODA WEIGHTS (MAG)
395      COMMON /D/ MLOGA0         !1=USE EATON LOGA0 RELATION 2=BAKUN & JOYNER(MAG
396C                               !3=RICHTER 4=BKY'S NORDQUIST (MAG)
397      COMMON /D/ NLA0           !NUMBER OF COMPONENTS W/ UNIQUE LOGA0 REL.(LA0)
398      COMMON /C/ CLA0(20)       !COMPONENT CODES FOR UNIQUE LOGA0 (LA0)
399      COMMON /D/ MLA0(20)       !LOGA0 # (LIKE MLOGA0) FOR UNIQUE LOGA0S (LA0)
400      COMMON /D/ DMA0           !CONSTANT IN TAU MAG (TAU)
401      COMMON /D/ DMA1           !COEFF. OF LOG(TAU) IN TAU MAG (TAU)
402      COMMON /D/ DMA2           !COEFF. OF LOG(TAU)**2 IN TAU MAG (TAU)
403      COMMON /D/ DMLI           !COEFF. OF TAU IN TAU MAG (TAU)
404      COMMON /D/ DMZ            !COEFF. OF DEPTH IN TAU MAG (TAU)
405      COMMON /D/ DMGN           !COEFF. OF GAIN/ATTEN IN TAU MAG (TAU)
406
407C--DURATION & AMPLITUDE MAGNITUDE CORRECTIONS
408      CHARACTER CFCM*3,CXCM*3
409      COMMON /D/ ICDATE         !INITIAL DATE FOR EXTRACTING ATTENS (ATE)
410      COMMON /D/ IFDATE         !INITIAL DATE FOR EXTRACTING FMCORS (FMC)
411      COMMON /D/ IXDATE         !INITIAL DATE FOR EXTRACTING XMCORS (XMC)
412      COMMON /D/ LNOFMC         !T TO USE STA W/ NO CORR, F TO OMIT (FMC)
413      COMMON /D/ LNOXMC         !T TO USE STA W/ NO CORR, F TO OMIT (XMC)
414      COMMON /D/ CALSV(0:13)    !CAL FACTORS FOR EACH ATTENUATION SETTING
415      COMMON /D/ NFCM           !# OF COMPONENTS TO CORRECT FMAGS (FCM)
416      COMMON /C/ CFCM(10)       !3-LETTER COMPONENTS TO CORRECT (FCM)
417      COMMON /D/ AFCM(10)       !FMAG CORRECTION FOR COMPONENT (FCM)
418      COMMON /D/ NXCM           !# OF COMPONENTS TO CORRECT XMAGS (XCM)
419      COMMON /C/ CXCM(10)       !3-LETTER COMPONENTS TO CORRECT (XCM)
420      COMMON /D/ AXCM(10)       !XMAG CORRECTION FOR COMPONENT (XCM)
421
422C--SELECTING WHICH COMPONENTS TO USE FOR THE 4 MAGNITUDES
423C--ALSO SELECT WHICH INSTRUMENT TYPES TO USE WITH THE 2 AMP MAGS
424      CHARACTER*3 COMPF1,COMPF2,COMPX1,COMPX2
425      CHARACTER*1 LABF1,LABF2,LABX1,LABX2
426      COMMON /D/ NCPF1          !NUMBER OF COMPONENTS TO SELECT FOR FMAG1 (FC1)
427      COMMON /C/ COMPF1(20)     !COMPONENTS TO USE FOR FMAG1 (FC1)
428      COMMON /C/ LABF1          !LABEL CODE TO IDENTIFY FMAG1 (FC1)
429      COMMON /D/ NCPF2          !NUMBER OF COMPONENTS TO SELECT FOR FMAG2 (FC2)
430      COMMON /C/ COMPF2(20)     !COMPONENTS TO USE FOR FMAG2 (FC2)
431      COMMON /C/ LABF2          !LABEL CODE TO IDENTIFY FMAG2 (FC2)
432      COMMON /D/ NCPX1          !NUMBER OF COMPONENTS TO SELECT FOR XMAG1 (XC1)
433      COMMON /C/ COMPX1(20)     !COMPONENTS TO USE FOR XMAG1 (XC1)
434      COMMON /C/ LABX1          !LABEL CODE TO IDENTIFY XMAG1 (XC1)
435      COMMON /D/ NCPX2          !NUMBER OF COMPONENTS TO SELECT FOR XMAG2 (XC2)
436      COMMON /C/ COMPX2(20)     !COMPONENTS TO USE FOR XMAG2 (XC2)
437      COMMON /C/ LABX2          !LABEL CODE TO IDENTIFY XMAG2 (XC2)
438      COMMON /D/ MAG1TYPX       !TYPE OF MAG FOR XMAG1 1=ML 2=MX (XMT)
439      COMMON /D/ MAG2TYPX       !TYPE OF MAG FOR XMAG2 1=ML 2=MX (XMT)
440
441C--SELECTING WHICH INSTRUMENT TYPES TO USE FOR THE 2 AMP MAGS
442      LOGICAL LXCH
443      COMMON /D/ LXCH           !T FOR COMPONENT CHOICE, F INST TYPE CHOICE(XCH)
444      COMMON /D/ NXTYP1         !NUMBER OF INST TYPES FOR XMAG1 (XTY)
445      COMMON /D/ IXTYP1(3)      !INST TYPES FOR XMAG1 (XTY)
446      COMMON /D/ NXTYP2         !NUMBER OF INST TYPES FOR XMAG2 (XTY)
447      COMMON /D/ IXTYP2(3)      !INST TYPES FOR XMAG2 (XTY)
448
449C--PREFERRED EVENT MAGNITUDES
450C--MAG NUMBER TAGS: 1=FMAG 2=XMAG 3=PASS-THRU-MAG 4=XMAG2 5=FMAG2
451      CHARACTER LABPR*1
452      COMMON /D/ NMAGS          !NUMBER OF PREFERRED MAGNITUDES (PRE)
453      COMMON /D/ MPREF(10)      !PREFERENCE ORDER OF MAG NUMBER TAGS (PRE)
454      COMMON /D/ MNPREF(10)     !MINIMUM NUMBER OF READINGS TO USE (PRE)
455      COMMON /D/ AMPREF(10)     !MIN MAG TO SELECT PREFERRED MAG (PRE)
456      COMMON /D/ AXPREF(10)     !MAX MAG TO SELECT PREFERRED MAG (PRE)
457      COMMON /D/ PMAG           !PREFERRED MAG
458C      COMMON /D/ MPMAG         !TOTAL WEIGHTS OF PREFERRED MAG *100
459      COMMON /D/ NPMAG          !NUMBER OF PREFERRED MAGS W/ WEIGHTS>0
460      COMMON /C/ LABPR          !LABEL CODE OF PREFERRED MAG
461      COMMON /D/ PMMAD          !MEDIAN-ABS-DIFF OF PREFERRED MAG
462
463C--MISCELLANEOUS PARAMETERS
464      LOGICAL LCOMP1, LKEEP
465      COMMON /D/ ITRDIS         !ITERATION TO BEGIN DISTANCE WEIGHTING (DIS)
466      COMMON /D/ DISCUT,DISW1,DISW2     !DIST. WEIGHT PARAMETERS (DIS)
467      COMMON /D/ ITRDI1,DISCU1,DISW11,DISW21    !DIST. WEIGHT PARAMETERS (DI1)
468      COMMON /D/ ITRRES         !ITERATION TO BEGIN RESIDUAL WEIGHTING (RMS)
469      COMMON /D/ RMSCUT,RMSW1,RMSW2     !RMS WEIGHTING PARAMS. (RMS)
470      COMMON /D/ LJUNK          !T TO KILL DIS & RES WEIGHTING WHEN M<4 (JUN)
471      COMMON /D/ SWT            !MULTIPLY ALL S WEIGHTS BY THIS (SWT)
472      COMMON /D/ POS            !VP/VS VELOCITY RATIO (POS)
473      COMMON /D/ ZTR            !TRIAL DEPTH (ZTR)
474      COMMON /D/ RDERR          !ESTIMATED READING ERROR IN SECS (ERR)
475      COMMON /D/ ERCOF          !WEIGHTING FACTOR OF RMS IN ERROR CALCS (ERC)
476      COMMON /D/ NET    !NET FOR ASSIGNING 3-LET. NAMES BASED ON LOCATION (NET)
477      COMMON /D/ NSTLET !NUMBER OF STATION SITE LETTERS TO TEST (LET)
478      COMMON /D/ NETLET !NUMBER OF STATION NET LETTERS TO TEST (LET)
479      COMMON /D/ NCOMP  !NUMBER OF COMPONENT LETTERS TO TEST (LET)
480      COMMON /D/ NSLOC  !# OF LOCATION CODE LETS TO TEST IN PHASE FILE (LET)
481      COMMON /D/ NSLOC2 !# OF LOCATION CODE LETS TO TEST IN OTHER FILES (LET)
482      COMMON /D/ LCOMP1 !T= 1 LETTER COMPONENT, F=OTHERWISE (LES)
483      COMMON /D/ LKEEP  !T=WRITE UNKNOWN STAS TO ARC FILE (KEP)
484      COMMON /D/ WTVALS(4)      !NUMERICAL WEIGHTS FOR CODES 0-3 (WET)
485
486C--PHASE & SHADOW DATA FOR UNKNOWN STATIONS. COMM BETWEEN HYPHS AND HYLST.
487      PARAMETER (MAXUNK=40)
488      CHARACTER PUNK*132,SUNK*132,LUNK*5
489      COMMON /UNK/ NLUNK        !NUMBER OF UNK STAS IN "NO COMPLAIN" LIST (UNK)
490      COMMON /UNC/ LUNK(10)     !LIST OF STAS TO NOT COMPLAIN WHEN UNKNOWN (UNK)
491      COMMON /UNK/ NUNK !NUMBER OF UNKNOWN STATIONS THIS EVENT
492      COMMON /UNC/ PUNK(MAXUNK)  !PHASE RECORDS OF UNKNOWN STATIONS
493      COMMON /UNK/ NPUNK(MAXUNK) !LENGTH OF PHASE RECORDS
494      COMMON /UNC/ SUNK(MAXUNK)  !SHADOW RECORDS OF UNKNOWN STATIONS
495      COMMON /UNK/ NSUNK(MAXUNK) !LENGTH OF SHADOW RECORDS
496
497C--INTERACTIVE PROCESSING OF SINGLE-EVENT FILES (PRO COMMAND)
498      CHARACTER LSTFIL*40,LSTFOR*40
499      CHARACTER*8 EXTPHS,EXTARC,EXTSUM,EXTPRT
500      COMMON /C/ LSTFIL         !FILE FOR READING BASE EVENT NAMES (BAS)
501      COMMON /D/ NCBASE         !NUMBER OF CHARACTERS IN BASE NAME (BAS)
502      COMMON /C/ LSTFOR         !FORMAT FOR READING EVENT FILE (BAS)
503      COMMON /C/ EXTPHS         !PHASE FILENAME EXTENSION (BAS)
504      COMMON /C/ EXTARC         !ARCHIVE FILENAME EXTENSION (BAS)
505      COMMON /C/ EXTSUM         !SUMMARY FILENAME EXTENSION (BAS)
506      COMMON /C/ EXTPRT         !PRINTOUT FILENAME EXTENSION (BAS)
507      COMMON /D/ IEDFLG         !EDITOR FLAG 1=EDT 2=ANY ED (BAS)
508
509C--TRANSLATION ARRAYS FROM 3-LETTER DIGITIZERS TO 1-LETTER DATA SOURCE CODES
510      CHARACTER DIG3*3, DIG1*1, DIGDEF*1
511      PARAMETER (MAXDIG=50)
512      COMMON /C/ DIG3(MAXDIG)   !3-LETTER DIGITIZER CODES IN MEM FILE (DIG)
513      COMMON /C/ DIG1(MAXDIG)   !CORRESPONDING 1-LETTER DATA SOURCE CODES (DIG)
514      COMMON /C/ DIGDEF         !DEFAULT DATA SOURCE CODE (DID)
515      COMMON /D/ NDIG           !NUMBER OF DATA SOURCE CODES (DID)
516
517C--P AMPLITUDE MAGNITUDE PARAMETERS
518      LOGICAL LPMAG,LPPRT
519      CHARACTER CPWM*3,PSOUR*1,PSOUR2*1, COMPP1*3,COMPP2*3, CCNTMM*1
520      CHARACTER LABP1*1,LABP2*1
521      COMMON /D/ LPMAG          !T= COMPUTE PMAG, MUST HAVE SHADOW INPUT (PMA)
522      COMMON /D/ LPPRT          !T= ADD PMAG STA. LINES TO PRINT OUTPUT (PMA)
523      COMMON /D/ CNT2MD         !DEVEL. MM PER COUNT (P AMPS) RTP=.04 (PMA)
524      COMMON /D/ CLPRAT         !RATIO OF PMCLIP/PMUSED FOR CLIPPED MAG (PMA)
525      COMMON /D/ LATYPP         !LOGA0 FORMULA # FOR PMAGS (PMA)
526      COMMON /D/ NPWM           !NUMBER OF COMPONENTS WITH PAMAG WEIGHTS (PAC)
527      COMMON /C/ CPWM(10)       !COMPONENTS WITH DEFINED WEIGHTS (PAC)
528      COMMON /D/ WPWM(10)       !WEIGHTS FOR EACH COMPONENT (PAC)
529
530C--P AMP MAGNITUDE COMPONENT AND DATA SOURCE DEPENDENT PARAMETERS
531      COMMON /C/ LABP1          !LABEL OF PRIMARY P AMP MAGNITUDE (PC1)
532      COMMON /D/ PMA1           !COEFFICIENT IN PMAG = PMA1 +PMB1*LOGA (PC1)
533      COMMON /D/ PMB1           !COEFFICIENT IN PMAG = PMA1 +PMB1*LOGA (PC1)
534      COMMON /D/ NCPP1          !NUMBER OF COMPONENTS TO USE FOR PAMAG (PC1)
535      COMMON /C/ COMPP1(10)     !COMPONENT CODES FOR PRIMARY P MAG (PC1)
536      COMMON /C/ LABP2          !LABEL OF SECONDARY P AMP MAGNITUDE (PC2)
537      COMMON /D/ PMA2           !COEFFICIENT IN PMAG = PMA2 +PMB2*LOGA (PC1)
538      COMMON /D/ PMB2           !COEFFICIENT IN PMAG = PMA2 +PMB2*LOGA (PC1)
539      COMMON /D/ NCPP2          !NUMBER OF COMPONENTS TO USE FOR PAMAG2 (PC2)
540      COMMON /C/ COMPP2(10)     !COMPONENT CODES FOR SECONDARY P MAG (PC2)
541      COMMON /D/ NCNTMM         !NUMBER OF SOURCE SPECIFIC CONV FACTORS (PMC)
542      COMMON /C/ CCNTMM(10)     !DATA SOURCE CODES (PMC)
543      COMMON /D/ CNT2MM(10)     !COUNTS TO MM CONVERSION FOR SOURCE (PMC)
544
545C--PRIMARY P AMPLITUDE MAGNITUDE
546      COMMON /D/ PAMAG          !PRIMARY P AMPLITUDE MAGNITUDE FOR EVENT
547      COMMON /D/ PAMAD          !MEDIAN ABSOLUTE DIFFERENCE OF PMAG
548      COMMON /D/ PMUSED         !TOTAL OF WEIGHTS OF STATIONS USED IN PMAG
549      COMMON /D/ PMCLIP         !TOT OF WEIGHTS OF CLIPPED STAS USED IN PMAG
550      COMMON /D/ MINPM          !PMAG CLIP FLAG =1 OF PMAG IS A MIN, =0 OK
551      COMMON /D/ PNORMN         !L1 NORM FOR EVENT P MAG
552      COMMON /C/ PSOUR          !PRINCIPAL DATA SOURCE FOR P MAGS
553
554C--SECONDARY P AMPLITUDE MAGNITUDE (IE LOW GAIN)
555      COMMON /D/ PAMAG2         !SECONDARY P AMPLITUDE MAGNITUDE FOR EVENT
556      COMMON /D/ PAMAD2         !MEDIAN ABSOLUTE DIFFERENCE OF PMAG
557      COMMON /D/ PMUSD2         !TOTAL OF WEIGHTS OF STATIONS USED IN PMAG
558      COMMON /D/ PMCLP2         !TOT OF WEIGHTS OF CLIPPED STAS USED IN PMAG
559      COMMON /D/ MINPM2         !PMAG CLIP FLAG =1 OF PMAG IS A MIN, =0 OK
560      COMMON /D/ PNRMN2         !L1 NORM FOR EVENT P MAG
561      COMMON /C/ PSOUR2         !PRINCIPAL DATA SOURCE FOR P MAGS
Note: See TracBrowser for help on using the repository browser.