subroutine baderr (msg)
      integer msg (100)
      call synerr (msg)
      call endst
      end