Path: | gtvargetxtype.f90 |
Last Update: | Wed Jul 20 18:22:24 JST 2005 |
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