gtvarsearch.f90

Path: src/gtvarsearch.f90
Last Update: Thu Sep 08 22:21:49 JST 2005

Copyright (C) GFD Dennou Club, 2004. All rights reserved.

Methods

GTVarSearchInit   GTVarSearchNext  

Included Modules

an_generic gtvarsearch dc_trace

Public Instance methods

GTVarSearchInit(urlBase)
urlBase :character(len = *), intent(in) 
 初期化サブルーチン

[Source]

subroutine GTVarSearchInit(urlBase)

    character(len = *), intent(in):: urlBase
    call beginsub('gtvarsearchinit', 'urlbase=<%c>', c1=trim(urlbase))
    call var_search(an, urlBase=urlBase)
    call endsub('gtvarsearchinit')
end subroutine
GTVarSearchNext(url, end)
url :character(len = *), intent(out)
end :logical, intent(out) 
 各変数の探査サブルーチン

[Source]

subroutine GTVarSearchNext(url, end)

    character(len = *), intent(out):: url
    logical, intent(out):: end
    call beginsub('gtvarsearchnext')
    call var_search(an, url=url, end=end)
    call endsub('gtvarsearchnext', 'url=%c end=%y', c1=trim(url), L=(/end/))
end subroutine

[Validate]