gtvargetxtype.f90

Path: gtvargetxtype.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

Copyright (C) GFD Dennou Club, 2000. All rights reserved. 外部型表現が存在する処理系に関しては型を示す文字列を、 そうでない処理系に関しては空文字列を返す。

Methods

Included Modules

gtdata_types dc_string gtdata_generic

Public Instance methods

Subroutine :
var :type(GT_VARIABLE), intent(in)
xtype :type(VSTRING), intent(out)

[Source]

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

[Validate]