subroutine setdiv0 call errset(71,.true.,.false.,.false.,.false.,15) call errset(73,.true.,.false.,.false.,.false.,15) return end