C-----------------------------------------------------------------------
C  Space group routine error message printing
C-----------------------------------------------------------------------
      SUBROUTINE SGERRS (SGP,IER,LPTX)
      CHARACTER COUT*132
      COMMON /IOUASC/ COUT(20)
      DIMENSION SGP(10)
      CHARACTER*52 ERRMSG(25),ERR1(12),ERR2(13)
      EQUIVALENCE (ERRMSG(1),ERR1(1)),(ERRMSG(13),ERR2(1))
      DATA ERR1 /'Either a 5-axis anywhere or a 3-axis in field 4     ',
     $           'Less than 2 operator fields were found              ',
     $           'Lattice operator was not a P, A, B, C, I, F or R    ',
     $           'Rhombohedral lattice without a 3-axis               ',
     $           'Minus sign does not precede 1, 2, 3, 4 or 6         ',
     $           'Lattice subroutine found an error                   ',
     $           '1st operator in a field was a space. Impossible     ',
     $           'Index for COMPUTED GO TO is out of range            ',
     $           'An a-glide mirror normal to a                       ',
     $           'A b-glide mirror normal  to b                       ',
     $           'A c-glide mirror normal  to c                       ',
     $           'd-glide in a primitive lattice                      '/
      DATA ERR2 /'A 4-axis not in the 2nd operator field              ',
     $           'A 6-axis not in the 2nd operator field              ',
     $           'More than 24 matrices needed to define the group    ',
     $           'More than 24 matrices needed to define the group    ',
     $           'Improper construction of a rotation operator        ',
     $           'No mirror following a /                             ',
     $           'A translation conflict between operators            ',
     $           'The 2bar operator is not allowed                    ',
     $           '3 fields are legal only in r lattices and m3 cubic  ',
     $           'Syntax error. Expected I-43d at this point          ',
     $           '                                                    ',
     $           'A or B centered tetragonal?  Impossible!!!!!        ',
     $           'No delimiter blanks in symbol.  Try again.          '/
      WRITE (COUT,10000) IER,SGP,ERRMSG(IER+1)
      CALL GWRITE (LPTX,' ')
      RETURN
10000 FORMAT (' Error no.',I3,' in processing space group symbol ',
     $        10A1/1X,A52)
      END
