41 lines
2.4 KiB
Fortran
41 lines
2.4 KiB
Fortran
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
|