1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)argtst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043986Sbostic character*16 arg, env 1143986Sbostic n = iargc() 1243986Sbostic call getarg(0, arg) 1343986Sbostic write(*,*) "name:", arg 1443986Sbostic if (n .gt. 0) then 1543986Sbostic do 100 i=1, n 1643986Sbostic call getarg(i, arg) 1743986Sbostic call getenv(arg, env) 1843986Sbostic 100 write(*,*) i, arg, env 1943986Sbostic endif 2043986Sbostic end 21