unix/boot/spp/rpp/rppfor/elseif.f


1
2
3
4
5
6
7
8

subroutine elseif (lab)
      integer lab
      call outgo (lab+1)
      call indent (-1)
      call outcon (lab)
      call indent (1)
      return
      end