Copyright (C) GFD Dennou Club, 2000. All rights reserved.
外部型表現が存在する処理系に関しては型を示す文字列を、
そうでない処理系に関しては空文字列を返す。
Required files
Methods
Included Modules
gtdata_types
dc_string
gtdata_generic
Public Instance methods
Subroutine : |
|
var : | type(GT_VARIABLE), intent(in)
|
xtype : | type(VSTRING), intent(out)
|
[Source]
subroutine GTVarGetXtype(var, xtype)
use gtdata_types, only: GT_VARIABLE
use dc_string, only: VSTRING
use gtdata_generic, only: get_attr
implicit none
type(GT_VARIABLE), intent(in):: var
type(VSTRING), intent(out):: xtype
call get_attr(var, "__xtype__", xtype, default="")
end subroutine