| Path: | gtvargetxtype.f90 |
| Last Update: | Tue Sep 23 18:56:25 +0900 2008 |
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