1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)argtst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*16 arg, env 11 n = iargc() 12 call getarg(0, arg) 13 write(*,*) "name:", arg 14 if (n .gt. 0) then 15 do 100 i=1, n 16 call getarg(i, arg) 17 call getenv(arg, env) 18 100 write(*,*) i, arg, env 19 endif 20 end 21