1.4.15 getarg 和 iargc :获取命令行参数
getarg 和 iargc 访问命令行上的参数(在命令行预处理程序扩展后)。
1.4.15.1 getarg :获取命令行参数
该子例程的调用方式如下所示:
call getarg( k , arg ) | |||
k |
INTEGER*4 |
输入 |
参数索引(0=第一个=命令名称) |
arg |
character* n |
输出 |
第 k 个参数 |
n |
INTEGER*4 |
arg 的大小 |
大得足以容纳最长的参数 |
1.4.15.2 iargc :获取命令行参数的数量
该函数的调用方式如下所示:
返回值 |
INTEGER*4 |
输出 |
命令行中参数的数量 |
示例:使用 iargc 和 getarg 获取参数的数量和每个参数:
demo% cat yarg.f
character argv*10
INTEGER*4 i, iargc, n
n = iargc()
do 1 i = 1, n
call getarg( i, argv )
1 write( *, ’( i2, 1x, a )’ ) i, argv
end
demo% f95 yarg.f
demo% a.out *.f
1 first.f
2 yarg.f