変数に関するもろもろ

2004年08月03日森川靖大

概要

あるファイルの中にある変数一覧を得るためには GTVarSearch サブルーチンをもちいます。

書式

変数探索初期化

subroutine GTVarSearch(urlBase)
    character(len = *), intent(in):: urlBase
end subroutine

まず、探査したいファイルのファイル名 urlBase のみを引数として渡します。

変数探索

subroutine GTVarSearch(url, end)
    character(len = *), intent(out) :: url
    logical,            intent(out) :: end
end subroutine

上記の初期化の後、文字型の url と論理型の end を引数として GTVarSearch に渡します。すると url に変数名が、end に探査終了判定が返ります。

具体的には以下のように呼び出して下さい。このようにすることでファイル filename 内の全ての変数が出力されます。

use gt4f90io
use dc_types, only: string
character(len = string) :: filename, varname
logical                 :: end

call GTVarSearch(filename)
do
    call GTVarSearch(varname, end)
    if (end) exit
    write(*, *) trim(varname)
enddo

同期

subroutine GTVarSync(var, stat)
    type(GT_VARIABLE), intent(inout), optional:: var
    integer, intent(out), optional:: stat
end subroutine

構造体操作

subroutine Add_Member(var, url, link_name)
    type(GT_VARIABLE), intent(inout):: var
    type(VSTRING), intent(in):: url
    character(len = *), intent(in), optional:: link_name
end subroutine

重複のない変数名の生成

type(VSTRING) function GTDataTmpNam(file, base)
    type(VSTRING), intent(in), optional:: file, base
end function