















      INTEGER       SUGSLN, MAXSUG, MAXSM2, MAXOSU, MAXNCS
      PARAMETER     (SUGSLN=200)
      PARAMETER     (MAXSUG=100)
      PARAMETER     (MAXSM2=250)
      PARAMETER     (MAXNCS=250)
      PARAMETER     (MAXOSU=7)
      INTEGER       NUMSUG, NUMEPI, NUMSUT, IATCGD, IATZ1,  
     +              IATZ2,  IATN,   IATE,   IATW,   IATT,   IATB, 
     +              NUMNCS, IONRED, SUGREA(MAXAA),  JR(10), JRPNTS
      REAL          DIONZ1, DIONZ2, DIONW,  DIONE,  DIONN,  DIONT, 
     +              DIONB,  IONLOW, IONHGH, SUGTOR(2,8,MAXOSU,2*MAXSUG),
     +              NCSMAT(3,3,MAXNCS), NCSVEC(3,MAXNCS), XYZJR(3,10),
     +              XYZJRS(3,5,250)
      LOGICAL       POLION
      CHARACTER*2   IONTYP, PACTYP
      CHARACTER*4   SUGCHR(MAXSUG), HYBRID(MAXSM2), SUGTOS(2*MAXSUG),
     +              SUGTON(2,4,MAXOSU,2*MAXSUG), SUGBCH(2*MAXSUG)
      CHARACTER*16  SUGEPI(MAXSUG)
      CHARACTER*200 SUGSTR(MAXSUG), SUGEST(MAXSUG)
      EQUIVALENCE   (SUGSTR,ESPACE(250001))
      EQUIVALENCE   (SUGEST,ESPACE(250001+SUGSLN*MAXSUG))
      
      COMMON        /SUGAR1/
     +               SUGCHR, HYBRID, SUGTON, SUGTOS, SUGBCH
      
      COMMON        /SUGAR2/
     +               SUGREA, NUMSUG, NUMEPI, NUMSUT, NUMNCS, IONRED,
     +               JRPNTS
      
      COMMON        /SUGAR3/
     +               SUGTOR
      
      COMMON        /SUGAR4/
     +               SUGEPI
      
      COMMON        /IONS01/ 
     +               IATZ1,  IATZ2,  IATN,   IATE,   IATW,   IATT,
     +               IATB,   IATCGD  
    
      COMMON        /IONS02/ 
     +               DIONZ1, DIONZ2, DIONW,  DIONE,  DIONN,  DIONT, 
     +               DIONB,  IONLOW, IONHGH, JR,     XYZJR,
     +               XYZJRS
      
      COMMON        /IONS03/
     +               IONTYP, PACTYP
      
      COMMON        /IONS04/
     +               POLION
      
      COMMON        /NCS001/
     +               NCSMAT, NCSVEC
