Subroutine ANAttrInquire
subroutine ANAttrInquire
! Uses
use an_types, only: AN_VARIABLE, an_variable_entry
use an_vartable, only: vtable_lookup
use an_generic, only: ANXTypeName
use an_file, only: INQUIRE
use dc_string, only: VSTRING, assignment(=)
use netcdf_f77, only: NF_MAX_NAME, nf_inq_atttype, NF_NOERR
use dc_url, only: GT_PLUS
! Calls
call ANXTypeName
call inquire
! Variables
type (AN_VARIABLE), intent(in) :: var
character (len=*), intent(in) :: attrname
character (len=*), optional, intent(out) :: xtype
type (an_variable_entry) :: ent
integer :: varid
integer :: i_xtype
integer :: stat
character (len=NF_MAX_NAME) :: anam
end subroutine ANAttrInquire
Description of Variables
var
type (AN_VARIABLE), intent(in) :: var
attrname
character (len=*), intent(in) :: attrname
xtype
character (len=*), optional, intent(out) :: xtype
ent
type (an_variable_entry) :: ent
varid
integer :: varid
i_xtype
integer :: i_xtype
stat
integer :: stat
anam
character (len=NF_MAX_NAME) :: anam