





















      INTEGER     ITPDIS, ITPANG, ITPACC
      PARAMETER   (ITPACC=1)
      PARAMETER   (ITPDIS=7)
      PARAMETER   (ITPANG=50)

      INTEGER     SELECTEDTYPES(1000), SOGIAN, SOGIDS, SOGIAC, SOGUNT,
     +            NUMAMBERTYPES

      REAL        SOGANG, SOGDIS, COUNTS(12,12,12,ITPDIS,ITPANG), 
     +            STPANG, STPDIS, DISWGT(ITPDIS), POLARIZ(1000), 
     +            VDWRADIUS(1000), WELLDEPTH(1000), HOMEGA(1000)

      CHARACTER*1 SOGCHR(4), SOGSPV(3)
      CHARACTER*3 AMBERTYPE(1000)

      COMMON      /SOG1/
     +            SOGANG, SOGDIS, STPANG, STPDIS, DISWGT, POLARIZ, 
     +            VDWRADIUS, WELLDEPTH, HOMEGA

      COMMON      /SOG2/
     +            SOGIAN, SOGIDS, SOGIAC, SOGUNT, SELECTEDTYPES

      COMMON      /SOG3/
     +            SOGCHR, SOGSPV

      COMMON      /SOG4/
     +            NUMAMBERTYPES

      COMMON      /SOG5/
     +            AMBERTYPE

      EQUIVALENCE (COUNTS(1,1,1,1,1),ESPACE(17000001))
