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

! 螟夜Κ蝙玖｡ｨ迴ｾ縺悟ｭ伜惠縺吶ｋ蜃ｦ逅�ｳｻ縺ｫ髢｢縺励※縺ｯ蝙九ｒ遉ｺ縺呎枚蟄怜�繧偵�
! 縺昴≧縺ｧ縺ｪ縺��逅�ｳｻ縺ｫ髢｢縺励※縺ｯ遨ｺ譁�ｭ怜�繧定ｿ斐☆縲�

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