anvartostring.f90

Path: src/anvartostring.f90
Last Update: Wed Jul 20 18:22:22 JST 2005

Methods

ANVarToString  

Included Modules

dc_types dc_string an_vartable an_types

Public Instance methods

ANVarToString(var) result(result)
result :character(string)
var :type(AN_VARIABLE), intent(in)

[Source]

function ANVarToString(var) result(result)

    implicit none
    character(string):: result
    type(AN_VARIABLE), intent(in):: var
    type(an_variable_entry):: ent
    if (vtable_lookup(var, ent) /= 0) then
        result = cprintf("AN_VARIABLE(bad id %d)", i=(/var%id/))
    else
        result = cprintf("AN_VARIABLE(file=%d, var=%d, dim=%d)",  i=(/ent%fileid, ent%varid, ent%dimid/))
    endif
end function

[Validate]