gtvargetxtype.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetxtype (var, xtype)

Function/Subroutine Documentation

gtvargetxtype()

subroutine gtvargetxtype	(	type(gt_variable), intent(in)	var,
		type(vstring), intent(out)	xtype
	)

Definition at line 6 of file gtvargetxtype.f90.

    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="")