* maximum number of isomers that can be selected for a given molecule 
      INTEGER miso
      PARAMETER (miso=2000)

* maximum number of criteria used to discriminate isomers
      INTEGER mcri
      PARAMETER (mcri=21)

      INTEGER         diccri(mni,mcri)
      COMMON /isodata/ diccri