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

Revision 3172, 3.6 KB checked in by paulf, 13 years ago (diff)

changes for g77

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