subroutine error (line)
      integer line (100)
      call remark (line)
      call endst
      end