source: trunk/src/seismic_processing/hyp2000/hybda.for @ 4916

Revision 4916, 3.7 KB checked in by paulf, 8 years ago (diff)

only changed the month of 1.37 hyp2000 release to when it actually was, 06/2012

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1      BLOCK DATA
2C--DATA INITIALIZATION FOR HYPOINV
3      INCLUDE 'common.inc'
4
5C--GENERAL PARAMETERS
6      DATA GREETING
7     2 /'6/2012 VERSION 1.37 (crust models, neg mags, neg depth fix)'/
8      DATA PI,RDEG,LJUNK,LMULT /3.14159,57.2958,2*.FALSE./
9      DATA NSTLET,NETLET,NCOMP,NSLOC,NSLOC2 /4,4*0/
10C      DATA LCOMP1,SUBMOD, CDOMAN,CPVERS /2*.FALSE.,'NC','01'/
11C--FILES AND OUTPUT CONTROLS
12      DATA LBSTA,LBCRU,LMAG,LSUM,LARC,LPRT,LERR,LAPP /10*.FALSE./
13      DATA JCP,JCA,LEJCT,LREP /2*1,2*.TRUE./
14      DATA KPRINT,JST,JST2,JST3 /3,1,0,0/
15      DATA IH71S,IH71T,ISTFMT,LBLANKMAG /1,1,3,.TRUE./
16      DATA NRDMAG, MRDMAG, SWITCH12 /3, 1,3,5,0,0, .FALSE./
17      DATA FORID,IE,IS /'(I10)',2*' '/
18      DATA MAGFIL,SUMFIL,ARCFIL,PRTFIL,STAFIL,ATNFIL,CALFIL,DELFIL,
19     2 PHSFIL,XMCFIL,FMCFIL,CRUFIL,BSTAFL,BCRUFL /11*' ',LM*' ',2*' '/
20      DATA INFILE /5*' '/
21C--MISCELLANEOUS DATA FOR THIS EVENT
22      DATA CP1,CP2,CP3,FULNAM,RUNLAB,LP153 /5*' ',.TRUE./
23C--TERMINATING LOCATION UPON CONVERGENCE
24      DATA ITRLIM,DQUIT,DRQT /20,.04,.001/
25C--ITERATION & DAMPING CONTROLS
26      DATA DXFIX,DZMAX,DZAIR,DAMP,EIGTOL,RBACK,BACFAC,DXMAX,D2FAR
27     2 /7.,30.,.5,.9,.012,.02,.6, 50.,250./
28C--DURATION MAG CONSTANTS
29      DATA FMA1,FMB1,FMZ1,FMD1,FMA2,FMB2,FMZ2,FMD2,FMBRK,FMF1,FMF2
30     2 /-5.2,3.89,.013,.0037,-.905,2.026,.013,.0037,210.,2*0./
31      DATA FMA1B,FMB1B,FMZ1B,FMD1B,FMA2B,FMB2B,FMZ2B,FMD2B,FMBRKB
32     2 /-5.2,3.89,.013,.0037,-.905,2.026,.013,.0037,210./
33      DATA LATEN,FMGN,NOMAGV,VNOMAG /.FALSE.,0.,0,0./
34      DATA MAGSEL,MAGSL2,MLOGA0,LCOWT, LNOFMC,LNOXMC,LMED /3*1,4*.TRUE./
35      DATA DMA0,DMA1,DMA2,DMLI,DMZ,DMGN /-1.03,2.10,0.,.00268,0.,1./
36      DATA NCPF1,NCPF2,COMPF1,COMPF2,LABF1,LABF2 /-1,0,40*'   ',2*' '/
37      DATA NCPX1,NCPX2,COMPX1,COMPX2,LABX1,LABX2 /-1,0,40*'   ',2*' '/
38      DATA DCOFM1,DBRKM1,DCOFM2,DBRKM2,ZCOFM,ZBRKM /6*0/
39      DATA NFCM,CFCM,AFCM /0,10*' ',10*0./
40      DATA NXCM,CXCM,AXCM /0,10*' ',10*0./
41      DATA LXCH /.TRUE./
42      DATA NXTYP1,IXTYP1, NXTYP2,IXTYP2 /0,3*0, 0,3*1/
43      DATA IDUG,CDUG,USEMAR /-1,10*'   ',.FALSE./
44      DATA YLATMX,YLATMN,XLONMX,XLONMN /90.,-90.,180.,-180./
45C--THESE ARE THE CAL FACTORS FOR EACH ATTENUATION SETTING
46C--IT APPEARS THAT: ATTEN = -20 * LOG(CAL) + 27
47C--ALSO G = -LOG (CAL/3.95)
48C--ATTENUATIONS:     0     6     12     18     24   30    36    42
49      DATA CALSV/25.2, 11.65, 5.576, 2.795, 1.4, .702, .352, .176,
50C  GAIN CORRECTION:-.80  -.47   -.15   +.15  +.45  +.75 +1.05 +1.35
51C
52C           48     54    60     66     72      78
53     2 .0885, .044, .0222, .0111, .00557, .00279/
54C          +1.65 +1.95 +2.25  +2.55  +2.85   +3.15
55
56C--MISCELLANEOUS PARAMETERS
57      DATA DISCUT,DISW1,DISW2 /50.,1.,3./
58      DATA DISCU1,DISW11,DISW21 /50.,3.,6./
59      DATA RMSCUT,RMSW1,RMSW2 /.16,1.5,3./
60      DATA SWT,ZTR,DEPFIXA,RDERR,ERCOF,NET,MINSTA,ITRDIS,ITRRES,ITRDI1
61     2 /1.,7.,.FALSE.,.15,1.,0,4,2*4,100/
62      DATA LTBIG,ISTAT /.FALSE.,0/
63      DATA IFDATE,IXDATE,ICDATE /3*0/
64      DATA LKEEP, WTVALS /.TRUE.,1.,.75,.5,.25/
65C--CRUST MODEL PARAMETERS
66      DATA MAXMOD,MODDEF /1,1/
67      DATA NMOD,MODS,WMOD /1,1,0,0,3*0./
68      DATA NNODE /0/
69C--UNKNOWN STATIONS
70      DATA NLUNK,LUNK,SUNK /0,10*' ',MAXUNK*' '/
71C--INTERACTIVE PROCESSING
72      DATA LSTFIL,NCBASE,LSTFOR,IEDFLG /'listfil.',12,'(A12)',1/
73      DATA EXTPHS,EXTARC,EXTSUM,EXTPRT /'.phs','.arc','.sum','.prt'/
74C--P MAGNITUDE PARAMETERS
75      DATA LPMAG,LPPRT,LABP1,LABP2 /2*.FALSE.,2*' '/
76      DATA NCPP1,NCPP2,COMPP1,COMPP2 /-1,0,20*'   '/
77      DATA NCNTMM,CCNTMM,CNT2MM,CNT2MD,CLPRAT /0,10*' ',11*.04,0.4/
78      DATA NPWM,CPWM,WPWM /0,10*' ',10*1./
79      DATA LATYPP,PMA1,PMB1,PMA2,PMB2 /5, 0.,1., 0.,1./
80C--YR 2000
81      DATA L2000,ICENT,IAMPU /.TRUE.,1900,0/
82C--DIGITIZER CODE TABLES
83      DATA NDIG,DIGDEF,DIG1,DIG3 /0,' ',MAXDIG*' ',MAXDIG*'   '/
84      END
Note: See TracBrowser for help on using the repository browser.