      INTEGER ENVFIL, PRTFIL, GRNFIL, RTSFIL
      COMPLEX CI
      PARAMETER ( ENVFIL = 5, PRTFIL = 6, GRNFIL = 20, RTSFIL = 35,
     &   MXN = 1700,  MXNK = 4001,  MXMED = 50, MXIT = 1000000,
     &   MXNTOUT = 1001, MAXNRD = 101, MAXNSD = 11, MXNRR = 501,
     &   CI = ( 0.0, 1.0 ), PI = 3.1415926535898D0 )

      REAL*8 DEPTH, RHO, SIGMA
      COMPLEX CPT, CST, CPB, CSB
      COMMON /SHARE/ CPT, CST,  CPB, CSB,
     &   C2R( MXN ), C2I( MXN ), Z( MXN ),
     &   RHO( MXN ), RHOT, RHOB, LOC( MXMED ),
     &   DEPTH( MXMED ), N( MXMED ), H( MXMED ), CMIN, CLOW, CHIGH,
     &   OMEGA2, NMEDIA, NSIG, TOUT( MXNTOUT ), NTOUT, DELTAK,
     &   SD( MAXNSD ), ISD( MAXNSD ), WS( MAXNSD ), NSD,
     &   RD( MAXNRD ), IRD( MAXNRD ), WR( MAXNRD ), NRD,
     &   RR( MXNRR ), NRR, RK( MXNK ), NKPTS, NKCORE, SIGMA( MXMED ),
     &   NTOT1, DELT, CROSST, CMAX, TSTART, V, TMULT,
     &   ALPHA, BETA, FMIN, FMAX

      CHARACTER MATER( MXMED )*8, TOPOPT*8, BOTOPT*8, PULSE*4, TITLE*80
      COMMON /SHARE1/ MATER, TOPOPT, BOTOPT, PULSE, TITLE
