Subroutine ANVarInquire

subroutine ANVarInquire

        ! Uses
    use an_types, only: an_variable, an_variable_entry
    use an_file, only: inquire
    use an_vartable, only: vtable_lookup
    use an_generic, only: ANXTypeName
    use dc_trace, only: beginsub, endsub, DbgMessage
    use netcdf_f77, only: nf_noerr, nf_max_name, nf_inq_vartype,  nf_inq_dimlen, nf_inq_unlimdim

        ! Calls
    call ANXTypeName
    call DbgMessage
    call beginsub
    call endsub
    call inquire
    call local_getname

        ! Variables
    type (an_variable), intent(in) :: var
    integer, optional, intent(out) :: ndims
    integer, optional, intent(out) :: dimlen
    logical, optional, intent(out) :: growable
    character (len=*), optional, intent(out) :: name
    character (len=*), optional, intent(out) :: url
    character (len=*), optional, intent(out) :: xtype
    type (an_variable_entry) :: ent
    integer :: stat
    integer :: length
    integer :: i
    integer :: i_xtype
    integer :: idim_growable
    character (len=*), parameter :: subname = 'anvarinqurie'
    character (len=nf_max_name) :: buffer
    character (len=nf_max_name) :: fbuffer

        ! Subroutines and functions
    subroutine local_getname (ent, varname)

end subroutine ANVarInquire

Description of Variables

type (an_variable), intent(in) :: var

integer, optional, intent(out) :: ndims

integer, optional, intent(out) :: dimlen

logical, optional, intent(out) :: growable

character (len=*), optional, intent(out) :: name

character (len=*), optional, intent(out) :: url

character (len=*), optional, intent(out) :: xtype

type (an_variable_entry) :: ent

integer :: stat

integer :: length

integer :: i

integer :: i_xtype

integer :: idim_growable

character (len=*), parameter :: subname = 'anvarinqurie'

character (len=nf_max_name) :: buffer

character (len=nf_max_name) :: fbuffer

Description of Subroutines and Functions

subroutine local_getname (ent, varname)
    type (an_variable_entry), intent(in) :: ent
    character (len=*), intent(out) :: varname
end subroutine local_getname