Module an_vartable

module an_vartable

        ! Uses
    use an_types, only: an_variable, an_variable_entry, an_variable_search
    use dc_error
    use netcdf_f77
    use dc_trace, only: DbgMessage

        ! Variables
    type (an_variable_entry), private, save, target, allocatable, dimension (:) :: antab
    integer, private, parameter :: antab_init_size = 16

        ! Subroutines and functions
    public integer function vtable_add (var, entry)
    public integer function vtable_delete (var)
    public integer function vtable_lookup (var, entry)
    public integer function vtable_set_attrid (var, attrid)

end module an_vartable

Description of Variables

type (an_variable_entry), private, save, target, allocatable, dimension (:) :: antab

integer, private, parameter :: antab_init_size = 16

Description of Subroutines and Functions

public function vtable_add (var, entry) result (result)
    type (an_variable), intent(out) :: var
    type (an_variable_search), intent(in) :: entry
    integer :: result
    ! Calls: DbgMessage, internal_build_dimids
end function vtable_add

public function vtable_delete (var) result (result)
    type (an_variable), intent(in) :: var
    integer :: result
    ! Calls: DbgMessage
end function vtable_delete

public function vtable_lookup (var, entry) result (result)
    type (an_variable), intent(in) :: var
    type (an_variable_entry), intent(out) :: entry
    integer :: result
end function vtable_lookup

public function vtable_set_attrid (var, attrid) result (result)
    type (an_variable), intent(in) :: var
    integer, intent(in) :: attrid
    integer :: result
end function vtable_set_attrid