| Path: | gtdata/gtvargetxtype.f90 |
| Last Update: | Fri Mar 20 18:09:51 +0900 2009 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved. 外部型表現が存在する処理系に関しては型を示す文字列を、 そうでない処理系に関しては空文字列を返す。
| Subroutine : | |
| var : | type(GT_VARIABLE), intent(in) |
| xtype : | type(VSTRING), intent(out) |
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