





      LOGICAL          USEANI
      INTEGER          ANITYP
      REAL             ANISOU(6,MAXAT)

      COMMON /ANISOU1/ 
     +                 USEANI

      COMMON /ANISOU2/ 
     +                 ANITYP

      COMMON /ANISOU3/ 
     +                 ANISOU
