gt4f90io リファレンスマニュアル - 手続名のリスト
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