# マニュアルページ iargc.3f

## 名前

         getarg, iargc - コマンド行の k 番目の引数の取得

## 形式

         subroutine getarg ( k, arg )
         character*(*) arg
         function iargc ()

## 機能説明

         call getarg( k , arg ) を実行すると、コマンド行の k 番目の引
         数が arg に格納されます。

         0 番目の引数はコマンド名です。

         関数 iargc は引数の数を返します。これは、コマンド行の最後 の
         引数のインデックスです。

## 使用例

         demo% cat tesargs.f
              character argv*10
              integer i, iargc, m
              m = iargc()
              do i = 1, m
                   call getarg ( i, argv )
                   write( *, '( i2, 1x, a )' ) i, argv
              end do
              end
         demo % a.out first second last
          1 first
          2 second
          3 last
         demo%

## ファイル

         libfui.a

## 関連項目

         execve(2), getenv(3F)