



      INTEGER      MAXSYM, IQ7342, IQ7343, IQ7369, IQ7370
      PARAMETER    (MAXSYM = 40960)





















































            
      INTEGER SYMSTAT_UNDEF, SYMSTATSYMTR, SYMSTAT_MTRIX,
     +     SYMSTATSPGRP, SYMSTATUSERF, SYMSTATUSERO, SYMSTATFILEF,
     +     SYMSTATFILEO, SYMSTAT_DELETED, SYMSTATTRANS
      
      PARAMETER (SYMSTAT_UNDEF=0)
      PARAMETER (SYMSTATSYMTR=1)
      PARAMETER (SYMSTAT_MTRIX=2)
      PARAMETER (SYMSTATSPGRP=3)
      PARAMETER (SYMSTATUSERF=4)
      PARAMETER (SYMSTATUSERO=5)
      PARAMETER (SYMSTATFILEF=6)
      PARAMETER (SYMSTATFILEO=7)
      PARAMETER (SYMSTAT_DELETED=8)
      PARAMETER (SYMSTATTRANS=9)

      INTEGER      NUMSYM, SYMZ, SPCNUM, MPRIMS, SYMSTS(MAXSYM),
     +             SYMNIN(MAXSYM), SYMNAM(MAXSYM)

      LOGICAL      SYMALT, SYMGCA, NEWCLS, SCLFND, CELFND, SCLREAD,
     +             BIOMT, CELREAD, SYMHAS, FULTRG

      CHARACTER*4  AQ7343
      CHARACTER*12 SPCNAM, SPCNAMB, CLASS, CLASS2, CCLASS
      CHARACTER    BRAVAIS, DUM3(3)

      REAL         SYMSCL(3,3), SYMINV(3,3), SYMTRN(3), CELDIM(6),
     +             SYMICL(3,3), SYMCEL(3,3), CELDIMS(6), SYMAL1(3,3),
     +             SYMAL2(3,3), RCELDIM(6), CCELDIM(6), CELTRR(3,3),
     +             CELTRC(3,3), CELTR(3,3), MPRIME(3,3), SYMIVV(3),
     +             SYMMAT(3,3,MAXSYM), SYMVEC(3,MAXSYM), NEADST

      EQUIVALENCE  (IQ7343,AQ7343)

      COMMON      /WIFSM1/
     +             SYMSCL, SYMINV, SYMTRN, CELDIM, CELDIMS, SYMMAT,
     +             SYMVEC, SYMICL, SYMCEL, SYMAL1, SYMAL2, RCELDIM,
     +             CCELDIM, CELTRR, CELTRC, CELTR, MPRIME, NEADST,
     +             SYMIVV, IQ7342

      COMMON      /WIFSM2/
     +             SYMALT, SYMGCA, NEWCLS, SCLFND, CELFND, SCLREAD,
     +             BIOMT, CELREAD, SYMHAS, FULTRG, IQ7369

      COMMON      /WIFSM3/
     +             SPCNAM, SPCNAMB, CLASS, CLASS2, CCLASS, BRAVAIS,
     +             DUM3, AQ7343

      COMMON      /WIFSM4/
     +             NUMSYM, SYMZ, SPCNUM, MPRIMS, SYMSTS, SYMNIN, 
     +             SYMNAM, IQ7370










