/************************************************************************ * elseif -generate code for an else * ************************************************************************/ subroutine elseif(lab) integer lab call outgo(lab+1) call outcon(lab) return end