subroutine seteru (messg, nmessg, nerr, iopt)
        common /cseter/ iunflo
        integer messg(1)
        data iunflo / 0 /
  c
        if (iopt.ne.0) call seterr (messg, nmessg, nerr, iopt)
        if (iopt.ne.0) return
  c
        if (iunflo.le.0) return
        call seterr (messg, nmessg, nerr, 1)
  c
        return
        end