Subroutine ANVarGetAttrLogical
subroutine ANVarGetAttrLogical
! Uses
use an_types, only: AN_VARIABLE, an_variable_entry
use an_vartable, only: vtable_lookup
use an_generic, only: get_attr
use an_file, only: inquire
use dc_types, only: string
use netcdf_f77
use dc_error
use dc_string
! Calls
call get_attr
call inquire
! Variables
type (AN_VARIABLE), intent(in) :: var
character (len=*), intent(in) :: name
logical, intent(out) :: value
logical, optional, intent(in) :: default
type (an_variable_entry) :: ent
character (len=STRING) :: cbuffer
character (len=7) :: c_default
character (len=NF_MAX_NAME) :: aname
real, allocatable, dimension (:) :: rbuf
integer :: stat
integer :: xtype
integer :: attrlen
integer :: varid
end subroutine ANVarGetAttrLogical
Description of Variables
var
type (AN_VARIABLE), intent(in) :: var
name
character (len=*), intent(in) :: name
value
logical, intent(out) :: value
default
logical, optional, intent(in) :: default
ent
type (an_variable_entry) :: ent
cbuffer
character (len=STRING) :: cbuffer
c_default
character (len=7) :: c_default
aname
character (len=NF_MAX_NAME) :: aname
rbuf
real, allocatable, dimension (:) :: rbuf
stat
integer :: stat
xtype
integer :: xtype
attrlen
integer :: attrlen
varid
integer :: varid