! 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