















      INTEGER      INDEXL(MAXAT), INDEXG(MAXAT), ID1, SATEMP(100), 
     +             SATIME(100)
      REAL         XCOORL(MAXAT), YCOORL(MAXAT), ZCOORL(MAXAT),
     +             XTCXYZ(3*MAXAT)
      CHARACTER*1000 GROLIN

      COMMON /ANATRA1/ XCOORL, YCOORL, ZCOORL

      COMMON /ANATRA2/ INDEXL, INDEXG

      COMMON /ANATRA3/ ID1

      COMMON /ANATRA4/ GROLIN

      COMMON /ANATRA5/ XTCXYZ

      COMMON /ANATRA6/ SATIME, SATEMP
