fortran90でコマンドラインから値を読み込む

Fortran90でコマンドラインから引数を読み込むやり方を調べてみました。 C-Fortran Interfaceの”Command Line Arguments”をfortran90化にしたものです。

  character arg*80 
! find out how many command line arguments there are   
  nargs = iargc() 
  ! one at a time, get an argument and write it out 
  do  i = 1,nargs 
     call getarg( i, arg ) 
     print '(a)', arg 
  end do
end program