unix/boot/spp/rpp/ratlibf/docant.f


1
2
3
4
5
6
7
8
9
10
11
12
13

subroutine docant(name)
      integer name(100), prog(30)
      integer length
      integer getarg
      length = getarg(0, prog, 30)
      if (.not.(length .ne. -1))goto 23000
      call putlin(prog, 2)
      call putch(58, 2)
      call putch(32, 2)
23000 continue
      call cant(name)
      return
      end