1:         character*16 arg, env
   2:         n = iargc()
   3:         call getarg(0, arg)
   4:         write(*,*) "name:", arg
   5:         if (n .gt. 0) then
   6:           do 100 i=1, n
   7:           call getarg(i, arg)
   8:           call getenv(arg, env)
   9:   100     write(*,*) i, arg, env
  10:         endif
  11:         end
Last modified: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 463
Valid CSS Valid XHTML 1.0 Strict