





































      INTEGER      MAXSUP, MAXFRG, MAXCAD
      PARAMETER    (MAXSUP=25)
      PARAMETER    (MAXFRG=1000)
      PARAMETER    (MAXCAD=1000)

      INTEGER      LENGTH(MAXAA),ISET1(MAXAA),ISET2(MAXAA),
     +             ISET3(MAXAA),ISET5(MAXAA),
     +             IDONE(4,MAXFRG),IRNG1(MAXAA),IRNG2(MAXAA),
     +             IRNG3(MAXAA),IRNG4(MAXAA)
      REAL         CACA1(10,MAXAA),CACA2(10,MAXAA),
     +             XYZ1(3,MAXAA),XYZ2(3,MAXAA),
     +             XYZ3(3,MAXAA),XYZ4(3,MAXAA),
     +             QDONE(MAXFRG),RMSUPS(3,3,MAXFRG),TVSUPS(3,MAXFRG),
     +             XRNG1(3,MAXAA),XRNG2(3,MAXAA),DIFTMP(MAXAA),
     +             XRNG3(3,MAXAA),XRNG4(3,MAXAA),
     +             CAD1(MAXCAD,MAXCAD), CAD2(MAXCAD,MAXCAD)



      INTEGER      INDSUP(MAXSUP), NUMSUP, SUPUNT, IQ7340, IQ7341 
      REAL         SUPMAT(3,3), SUPVEC(3)
      LOGICAL      SUPDON
      CHARACTER*4  AQ7341
      CHARACTER*80 SUPNAM(MAXSUP)
      EQUIVALENCE  (IQ7341,AQ7341)

      COMMON       /MUTSP1/
     +             SUPMAT, SUPVEC, NUMSUP, INDSUP, SUPUNT, IQ7340

      COMMON       /MUTSP2/
     +             SUPNAM, AQ7341

      COMMON       /MUTSP3/
     +             SUPDON

      EQUIVALENCE  (CACA1(1,1),ESPACE(300001+MAXAA)),
     +             (CACA2(1,1),ESPACE(300001+10*MAXAA)),
     +             (LENGTH(1),ESPACE(300001+20*MAXAA)),
     +             (XYZ1(1,1),ESPACE(300001+21*MAXAA)),
     +             (XYZ2(1,1),ESPACE(300001+24*MAXAA)),
     +             (XYZ3(1,1),ESPACE(300001+27*MAXAA)),
     +             (XYZ4(1,1),ESPACE(300001+30*MAXAA)),
     +             (IDONE(1,1),ESPACE(300001+33*MAXAA)),
     +             (QDONE(1),ESPACE(300001+37*MAXAA))
      EQUIVALENCE  (ISET2(1),ESPACE(300001+39*MAXAA)),
     +             (ISET3(1),ESPACE(300001+40*MAXAA)),
     +             (ISET5(1),ESPACE(300001+41*MAXAA)),
     +             (RMSUPS(1,1,1),ESPACE(300001+42*MAXAA)),
     +             (TVSUPS(1,1),ESPACE(300001+51*MAXAA)),
     +             (IRNG1(1),ESPACE(300001+54*MAXAA)),
     +             (IRNG2(1),ESPACE(300001+55*MAXAA)),
     +             (XRNG1(1,1),ESPACE(300001+56*MAXAA)),
     +             (XRNG2(1,1),ESPACE(300001+59*MAXAA)),
     +             (DIFTMP(1),ESPACE(300001+62*MAXAA)),
     +             (ISET1(1),ESPACE(300001+63*MAXAA)),
     +             (IRNG3(1),ESPACE(300001+64*MAXAA)),
     +             (XRNG3(1,1),ESPACE(300001+65*MAXAA)),
     +             (IRNG4(1),ESPACE(300001+68*MAXAA)),
     +             (XRNG4(1,1),ESPACE(300001+69*MAXAA)),
     +             (CAD1(1,1),ESPACE(300001+72*MAXAA)),
     +             (CAD2(1,1),ESPACE(300001+72*MAXAA+MAXCAD**2))
