


















      INTEGER      SPCSOL, SOLAT

      PARAMETER    (SOLAT=256000)


      REAL         SURTRA, CPKTRA, SURSHI, CPKSHI, CPKSCL,
     +             BNDTHI, BNDDSH, SURP3,  SURP4,  CPKP3, 
     +             CPKP4

      LOGICAL      ISOLID, SOLDON(SOLAT)

      COMMON      /SOLID1/
     +             SURTRA, CPKTRA, SURSHI, CPKSHI, CPKSCL,
     +             BNDTHI, BNDDSH, SURP3,  SURP4,  CPKP3, 
     +             CPKP4

      COMMON      /SOLID2/
     +             ISOLID, SOLDON

      COMMON      /SOLID3/
     +             SPCSOL
