!-- ! *** Caution!! *** ! ! This file is generated from "sysdeparg.rb2f90" by Ruby 1.8.2. ! Please do not edit this file directly. ! ! [JAPANESE] ! ! ※※※ 注意!!! ※※※ ! ! このファイルは "sysdeparg.rb2f90" から Ruby 1.8.2 ! によって自動生成されたファイルです. ! このファイルを直接編集しませんようお願い致します. ! ! !++ ! !== SysdepArg - 環境依存性ルーチン (コマンドライン取得) ! ! Authors:: Eizi TOYODA, Yasuhiro MORIKAWA ! Version:: $Id: sysdeparg-common.f90,v 1.1 2006/02/05 08:20:07 morikawa Exp $ ! Tag Name:: $Name: gt4f90io-20070711 $ ! Copyright:: Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved. ! License:: See COPYRIGHT[link:../../COPYRIGHT] ! ! 通常の処理系では iargc, getarg というサービスサブルーチンが ! つけられている (残念ながら、これらは Fortran90/95 の規格には ! 含まれていない)。これを使えない処理系では適宜対処が必要である。 ! 日立コンパイラでは上記サービスサブルーチンの挙動が違うので注意。 ! integer function SysdepArgCount() result(result) ! ! この手続きは、コマンドライン引数の数を返します。 ! ほとんどの処理系では Fortran90/95 規格外の IARGC() ! 関数により実装されます。 ! ! gets the number of commandline arguments. ! Most typically, it is implemented by nonstandard built-in ! function IARGC(). ! implicit none ! ! Selected by Makefile using Ruby ! interface integer function iargc() end function iargc end interface result = iargc() end function SysdepArgCount subroutine SysdepArgGet(idx_given, result) ! ! この手続きはコマンドライン引数のうち、*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(). ! implicit none integer, intent(in):: idx_given character(len = *), intent(out):: result integer:: idx integer:: argc interface integer function SysdepArgCount() end function SysdepArgCount end interface 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, result) endif end subroutine SysdepArgGet !-- ! vi:set readonly sw=4 ts=8: ! !Local Variables: !mode: f90 !buffer-read-only: t !End: ! !++