SUBROUTINE ERROR(A,B,N)
      USE prec
      IMPLICIT REAL(q) (A-H,O-Z)
! Prints some message and stops execution ... . This routine is needed
! for compatibility with packages SYMLIB and LATTLIB (J. Furthmueller)
      CHARACTER*(*) A,B
      WRITE(*,1) A,B,N
    1 FORMAT(//' VERY BAD NEWS! internal error in subroutine',A,':'/,A,I8)
      STOP
      END

      SUBROUTINE WARN(A,B,N)
      USE prec
      IMPLICIT REAL(q) (A-H,O-Z)
      CHARACTER*(*) A,B
      WRITE(*,1) A,B,N
    1 FORMAT(//' VERY BAD NEWS! internal error in subroutine',A,':'/,A,I8)
      END