Subroutine ANAttrGetDouble
subroutine ANAttrGetDouble
! Uses
use an_types, only: AN_VARIABLE, AN_VARIABLE_ENTRY
use an_vartable, only: vtable_lookup
use netcdf_f77, only: nf_noerr, nf_einval, nf_global, nf_char, nf_enomem, nf_inq_att, nf_get_att_Double
use dc_url, only: gt_plus
use an_generic, only: get_attr
use dc_types, only: STRING, DP
use dc_string
! Calls
call dispose
call get_attr
call split
! Variables
type (AN_VARIABLE), intent(in) :: var
character (len=*), intent(in) :: name
real (kind=DP), intent(out), dimension (:) :: value
integer, intent(out) :: stat
real (kind=DP), optional, intent(in) :: default
real (kind=DP), allocatable, dimension (:) :: rbuffer
character (len=STRING) :: cbuffer
type (STRING_LIST) :: lbuffer
integer :: attrlen
integer :: xtype
integer :: i
integer :: xferend
integer :: iname
integer :: varid
type (AN_VARIABLE_ENTRY) :: ent
end subroutine ANAttrGetDouble
Description of Variables
var
type (AN_VARIABLE), intent(in) :: var
name
character (len=*), intent(in) :: name
value
real (kind=DP), intent(out), dimension (:) :: value
stat
integer, intent(out) :: stat
default
real (kind=DP), optional, intent(in) :: default
rbuffer
real (kind=DP), allocatable, dimension (:) :: rbuffer
cbuffer
character (len=STRING) :: cbuffer
lbuffer
type (STRING_LIST) :: lbuffer
attrlen
integer :: attrlen
xtype
integer :: xtype
i
integer :: i
xferend
integer :: xferend
iname
integer :: iname
varid
integer :: varid
ent
type (AN_VARIABLE_ENTRY) :: ent