      BLOCK DATA
C
C     BLOCK DATA 7 - APRIL 1981
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      COMMON/ACFILT/ACPARM(20),IACFLT(20)
C
      COMMON/CONDMP/IDPHLD
C
      COMMON/CRASTR/VRASTR(36)
C
      COMMON/CSECBD/VSB(46)
C
      COMMON/DPCONS/DPPARM(200),IDPCS(50)
C
      COMMON/DPCSIC/DPIC(50),DPUP(50),DPDN(50)
C
      COMMON/GPCONS/GPPARM(200),IGPCS(50)
C
      COMMON/GPINCS/GPICS(50),GPUP(50),GPDN(50)
C
      COMMON/ISECBD/IVSB(10)
C
C
      COMMON/SECICS/VSBIC(18),SBUP(2),SBDN(2)
C
      COMMON/SBINTF/VSBK(12)
C
      DATA ACPARM/20*0.0D0/
      DATA IACFLT/20*0/
C
      DATA IDPHLD/0/
C
      DATA VRASTR/36*0.0D0/
C
      DATA VSB/46*0.0D0/
C
      DATA DPPARM/200*0.0D0/
      DATA IDPCS/50*0/
C
      DATA DPIC/50*0.0D0/
      DATA DPUP/50*1.0D-3/
      DATA DPDN/50*1.0D-5/
C
      DATA GPPARM/200*0.0D0/
      DATA IGPCS/50*0/
C
      DATA GPICS/50*0.0D0/
      DATA GPUP/50*1.0D-3/
      DATA GPDN/50*1.0D-5/
C
      DATA IVSB/10*0/
C
C
      DATA VSBIC/18*0.0D0/
      DATA SBUP/2*1.0D-3/
      DATA SBDN/2*1.0D-5/
C
      DATA VSBK/12*0.0D0/
C
      END
