sysdeparg-hitachi.f90

Path: sysdeparg-hitachi.f90
Last Update: Sun Feb 05 17:20:07 JST 2006

SysdepArg - 環境依存性ルーチン (コマンドライン取得)

Authors:Eizi TOYODA, Yasuhiro MORIKAWA
Version:$Id: sysdeparg-hitachi.f90,v 1.1 2006/02/05 08:20:07 morikawa Exp $
Tag Name:$Name: gt4f90io-20061118 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.
License:See COPYRIGHT

通常の処理系では iargc, getarg というサービスサブルーチンが つけられている (残念ながら、これらは Fortran90/95 の規格には 含まれていない)。これを使えない処理系では適宜対処が必要である。 日立コンパイラでは上記サービスサブルーチンの挙動が違うので注意。

Required files

sysdeparg-common.f90  

Methods

SysdepArgCount   SysdepArgCount   SysdepArgGet  

Public Instance methods

SysdepArgCount( result ) result(result)
Function :
result :integer

この手続きは、コマンドライン引数の数を返します。 ほとんどの処理系では Fortran90/95 規格外の IARGC() 関数により実装されます。

gets the number of commandline arguments. Most typically, it is implemented by nonstandard built-in function IARGC().

[Source]

integer function SysdepArgCount() result(result)
  !
  ! この手続きは、コマンドライン引数の数を返します。
  ! ほとんどの処理系では Fortran90/95 規格外の <b>IARGC()</b>
  ! 関数により実装されます。
  !
  ! gets the number of commandline arguments.
  ! Most typically, it is implemented by nonstandard built-in
  ! function <b>IARGC()</b>.
  !
  implicit none
  !
  ! Selected by Makefile using Ruby
  !

  result = iargc() - 1
end function SysdepArgCount
SysdepArgCount( result ) result(result)
Function :
result :integer

この手続きは、コマンドライン引数の数を返します。 ほとんどの処理系では Fortran90/95 規格外の IARGC() 関数により実装されます。

gets the number of commandline arguments. Most typically, it is implemented by nonstandard built-in function IARGC().

Original external subprogram is sysdeparg-common.f90#SysdepArgCount

SysdepArgGet( idx_given, result )
Subroutine :
idx_given :integer, intent(in)
result :character(len = *), intent(out)

この手続きはコマンドライン引数のうち、index (idx_given) 番目の値を value (result) に返します。

index が引数の数よりも大きい場合、value には空文字 が返ります。index が負の場合には、後方からの順番になります。 すなわち、-1 ならば最後の引数が返ります。

ほとんどの処理系では Fortran90/95 規格外の GETARGC() 関数により実装されます。

gets the *index*th (*idx_given*th) commandline argument to value (result).

If index is more than the number of arguments, value will be filled with blank. If index is negative, *index*th argument in reverse is return to value. In other words, if index = -1, the last argument is returned.

Most typically, it is implemented by nonstandard built-in subroutine GETARG().

[Source]

subroutine SysdepArgGet(idx_given, result)
  !
  ! この手続きはコマンドライン引数のうち、*index* (*idx_given*)
  ! 番目の値を *value* (*result*) に返します。
  !
  ! *index* が引数の数よりも大きい場合、*value* には空文字
  ! が返ります。*index* が負の場合には、後方からの順番になります。
  ! すなわち、-1 ならば最後の引数が返ります。
  !
  ! ほとんどの処理系では Fortran90/95 規格外の <b>GETARGC()</b>
  ! 関数により実装されます。
  !
  ! gets the *index*th (*idx_given*th) commandline argument
  ! to *value* (*result*).
  !
  ! If *index* is more than the number of arguments,
  ! *value* will be filled with blank.
  ! If *index* is negative, *index*th argument in reverse
  ! is return to *value*. In other words, if *index* = -1,
  ! the last argument is returned.
  !
  ! Most typically, it is implemented by nonstandard built-in
  ! subroutine <b>GETARG()</b>.
  !
  implicit none
  integer, intent(in):: idx_given
  character(len = *), intent(out):: result
  integer:: idx
  integer:: argc

continue
  argc = SysdepArgCount()
  if (idx_given < 0) then
    idx = argc + 1 + idx_given
  else
    idx = idx_given
  endif
  if (idx > argc) then
    result = ""
  else
  !
  ! Selected by Makefile using Ruby
  !
  call getarg(idx + 1, result)
  endif
end subroutine SysdepArgGet

[Validate]