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


1
2
3
4
5
6
7
8
9
10

subroutine repcod (lab)
      integer lab
      integer labgen
      call outcon (0)
      lab = labgen (3)
      call outcon (lab)
      lab = lab + 1
      call indent (1)
      return
      end