subroutine error(ierror)
      character*(*) ierror
      include 'maincomo.for'
      write(iolp,101) ierror
 101  format('0ERROR -- ',a)
      qfatal=.true.
      return
      end