getarg 和 iargc：获取命令行参数

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 ：获取命令行参数的数量

该函数的调用方式如下所示：

m = 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