V10/cmd/pfort/ERROR1.f

      SUBROUTINE ERROR1(MESS, LMESS)
C
      INTEGER MESS(20), LMESS
      INTEGER ZERO(1)
C
      DATA ZERO(1) /0/
C
      CALL ERROR2(MESS, LMESS, ZERO(1), ZERO(1), 1, 1)
C
      RETURN
C
      END