      subroutine spsymc (sp,ispa)                                       SPSY001
c ----------------------------------------------------------------      SPSY002
c     check against list of all allowed Hermann Mauguin Symbols         SPSY003
c ----------------------------------------------------------------      SPSY004
      character*10 sp,s(230)                                            SPSY005
                                                                        SPSY006
      data (s(i),i=1,74)/                                               SPSY007
c --- tri and mono -- 1,15                                              SPSY008
     &'P 1','P -1','P 2','P 21','C 2','P M','P C','C M','C C','P 2/M',  SPSY009
     &'P 21/M','C 2/M','P 2/C','P 21/C','C 2/C',                        SPSY010
c --- ortho -- 16,74                                                    SPSY011
     &'P 2 2 2','P 2 2 21','P 21 21 2','P 21 21 21','C 2 2 21',         SPSY012
     &'C 2 2 2','F 2 2 2','I 2 2 2','I 21 21 21','P M M 2','P M C 21',  SPSY013
     &'P C C 2','P M A 2','P C A 21','P N C 2','P M N 21','P B A 2',    SPSY014
     &'P N A 21','P N N 2','C M M 2','C M C 21','C C C 2','A M M 2',    SPSY015
     &'A B M 2','A M A 2','A B A 2','F M M 2','F D D 2','I M M 2',      SPSY016
     &'I B A 2','I M A 2','P M M M','P N N N','P C C M','P B A N',      SPSY017
     &'P M M A','P N N A','P M N A','P C C A','P B A M','P C C N',      SPSY018
     &'P B C M','P N N M','P M M N','P B C N','P B C A','P N M A',      SPSY019
     &'C M C M','C M C A','C M M M','C C C M','C M M A','C C C A',      SPSY020
     &'F M M M','F D D D','I M M M','I B A M','I B C A','I M M A'/      SPSY021
c --- tetra -- 75,142 (split because stupid VAX compiler complains      SPSY022
c                      about too many continuation lines)               SPSY023
       data (s(i),i=75,142) /                                           SPSY024
     &'P 4','P 41','P 42','P 43','I 4','I 41','P -4','I -4','P 4/M',    SPSY025
     &'P 42/M','P 4/N','P 42/N','I 4/M','I 41/A','P 4 2 2','P 4 21 2',  SPSY026
     &'P 41 2 2','P 41 21 2','P 42 2 2','P 42 21 2','P 43 2 2',         SPSY027
     &'P 43 21 2','I 4 2 2','I 41 2 2','P 4 M M','P 4 B M','P 42 C M',  SPSY028
     &'P 42 N M','P 4 C C','P 4 N C','P 42 M C','P 42 B C','I 4 M M',   SPSY029
     &'I 4 C M','I 41 M D','I 41 C D','P -4 2 M','P -4 2 C','P -4 21 M',SPSY030
     &'P -4 21 C','P -4 M 2','P -4 C 2','P -4 B 2','P -4 N 2',          SPSY031
     &'I -4 M 2','I -4 C 2','I -4 2 M','I -4 2 D','P 4/M M M',          SPSY032
     &'P 4/M C C','P 4/N B M','P 4/N N C','P 4/M B M','P 4/M N C',      SPSY033
     &'P 4/N M M','P 4/N C C','P 42/M M C','P 42/M C M','P 42/N B C',   SPSY034
     &'P 42/N N M','P 42/M B C','P 42/M N M','P 42/N M C','P 42/N C M', SPSY035
     &'I 4/M M M','I 4/M C M','I 41/A M D','I 41/A C D'/                SPSY036
c --- trigonal -- 143, 167 (split again since SUN compilier complains)  SPSY037
       data (s(i),i=143,230) /                                          SPSY038
     &'P 3','P 31','P 32','R 3','P -3','R -3','P 3 1 2','P 3 2 1',      SPSY039
     &'P 31 1 2','P 31 2 1','P 32 1 2','P 32 2 1','R 3 2','P 3 M 1',    SPSY040
     &'P 3 1 M','P 3 C 1','P 3 1 C','R 3 M','R 3 C','P -3 1 M',         SPSY041
     &'P -3 1 C','P -3 M 1','P -3 C 1','R -3 M','R -3 C',               SPSY042
c --- hexagonal --  168, 194                                            SPSY043
     &'P 6','P 61','P 65','P 62','P 64','P 63','P -6','P 6/M','P 63/M', SPSY044
     &'P 6 2 2','P 61 2 2','P 65 2 2','P 62 2 2','P 64 2 2','P 63 2 2', SPSY045
     &'P 6 M M','P 6 C C','P 63 C M','P 63 M C','P -6 M 2','P -6 C 2',  SPSY046
     &'P -6 2 M','P -6 2 C','P 6/M M M','P 6/M C C','P 63/M C M',       SPSY047
     &'P 63/M M C',                                                     SPSY048
c --- cubic -- 195,230                                                  SPSY049
     &'P 2 3','F 2 3','I 2 3','P 21 3','I 21 3','P M 3','P N 3','F M 3',SPSY050
     &'F D 3','I M 3','P A 3','I A 3','P 4 3 2','P 42 3 2','F 4 3 2',   SPSY051
     &'F 41 3 2','I 4 3 2','P 43 3 2','P 41 3 2','I 41 3 2','P -4 3 M', SPSY052
     &'F -4 3 M','I -4 3 M','P -4 3 N','F -4 3 C','I -4 3 D','P M 3 M', SPSY053
     &'P N 3 N','P M 3 N','P N 3 M','F M 3 M','F M 3 C','F D 3 M',      SPSY054
     &'F D 3 C','I M 3 M','I A 3 D'/                                    SPSY055
                                                                        SPSY056
      ispa=0                                                            SPSY057
      do 0001 i=1,230                                                   SPSY058
         if (sp.eq.s(i)) then                                           SPSY059
            ispa=i                                                      SPSY060
            return                                                      SPSY061
         end if                                                         SPSY062
 0001 continue                                                          SPSY063
      end                                                               SPSY064
