Fortran Tip集

前へ   上へ   次へ

17 コマンドライン引数を取得する方法

Fortran 2003 から導入された組込み手続 command_argument_count と get_command_argument を用いてコマンドライン引数を取得する例を以下に示します。

[ get-command-argument.f90 ] - コマンドライン引数を取得するサンプル

program arguments
  implicit none
  integer :: i, length, status
  character(:), allocatable :: arg
  intrinsic :: command_argument_count, get_command_argument
  !
  ! コマンドライン引数を全て表示する.
  !
  do i = 0, command_argument_count()
    call get_command_argument(i, length = length, status = status)
    if (status == 0) then
      !
      ! 引数の文字長で "arg" をアロケートする.
      !
      allocate (character(length) :: arg)
      call get_command_argument(i, arg, status = status)
      if (status == 0) then
        !
        ! 取得した引数を表示する.
        !
        if (i == 0) then
          print *, 'Command = "', arg, '"'
        else
          print *, 'Argument', i, '= "', arg, '"'
        end if
      end if
      deallocate (arg)
    end if
    !
    ! エラーの場合はエラーメッセージを表示する.
    !
    if (status /= 0) print *, 'Error', status, 'on argument', i
  end do
end program



前へ   上へ   次へ
関連情報
ご案内
© 鬮ォ�エ鬲�シ夲スス�ス�ス�・鬮ォ�エ陝キ�「�ス�ス�ス�ャ鬩幢ス「隴乗��ス�ケ隴∵コス�、�シ�ス�ケ隴趣ス「�ス�ス�ス�シ鬩幢ス「隴趣ス「�ス�ス�ス�。鬩幢ス「隴趣ス「�ス�ス�ス�ェ鬩幢ス「�ス�ァ�ス�ス�ス�ォ鬩幢ス「隴趣ス「�ス�ス�ス�ォ鬩幢ス「�ス�ァ�ス�ス�ス�「鬩幢ス「隴趣ス「�ス�ス�ス�ォ鬩幢ス「�ス�ァ�ス�ス�ス�エ鬩幢ス「隴趣ス「�ス�ス�ス�ェ鬩幢ス「�ス�ァ�ス�ス�ス�コ鬩幢ス「隴趣ス「�ス�ソ�ス�ス鬩幢ス「�ス�ァ�ス�ス�ス�コ鬩幢ス「�ス�ァ�ス�ス�ス�ー鬩幢ス「隴趣ス「�ス�ス�ス�ォ鬩幢ス「隴趣ス「�ス�ス�ス�シ鬩幢ス「隴手歓�サ�ク�ス�ス�ス�ス�ス�ス�ス�ェ鬮ッ貅キ蠎奇ソス�ク髣鯉スィ�ス�ス�ス�シ髯樊コ假ス托ソス�ス�ス�、�ス�ス�ス�セ 2024
Privacy Policy  /  Trademarks