PSI sics-cvs-psi_pre-ansto

difrac/sgerrs.f

@@ -0,0 +1,40 @@
+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