















      INTEGER      MAXCONIAT, MAXCONIAA
      PARAMETER    (MAXCONIAT=15000)
      PARAMETER    (MAXCONIAA=3*MAXAA)

      INTEGER      CONIAT(MAXCONIAT), CONSYMAT(MAXCONIAT), NUMCONIAT,
     +             CONIAA(MAXCONIAA), CONSYMAA(MAXCONIAA), NUMCONIAA,
     +             CONIATNOW

      REAL         CONDSTAT(MAXCONIAT)

      COMMON       /CON_I/ 
     +             CONIAT, CONSYMAT, NUMCONIAT, CONIAA, CONSYMAA, 
     +             NUMCONIAA, CONIATNOW

      COMMON       /CON_R/ 
     +             CONDSTAT
