gtvargetxtype.f90

Go to the documentation of this file.

! 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