Subroutine ANAttrGetChar
subroutine ANAttrGetChar
! Uses
use an_types, only: AN_VARIABLE, an_variable_entry
use an_vartable, only: vtable_lookup
use netcdf_f77
use dc_url, only: GT_PLUS
use dc_string, only: toChar
use dc_trace, only: beginsub, endsub
use dc_error
! Calls
call beginsub
call endsub
! Variables
type (AN_VARIABLE), intent(in) :: var
character (len=*), intent(in) :: name
character (len=*), intent(out) :: value
character (len=*), intent(in) :: default
integer, intent(out) :: stat
type (an_variable_entry) :: ent
character (len=64) :: buffer
double precision, allocatable, dimension (:) :: dbuf
integer, allocatable, dimension (:) :: ibuf
character, allocatable, dimension (:) :: cbuf
integer :: xtype
integer :: attrlen
integer :: i
integer :: iname
integer :: varid
character (len=*), parameter :: subname = "anattrgetchar"
end subroutine ANAttrGetChar
Description of Variables
var
type (AN_VARIABLE), intent(in) :: var
name
character (len=*), intent(in) :: name
value
character (len=*), intent(out) :: value
default
character (len=*), intent(in) :: default
stat
integer, intent(out) :: stat
ent
type (an_variable_entry) :: ent
buffer
character (len=64) :: buffer
dbuf
double precision, allocatable, dimension (:) :: dbuf
ibuf
integer, allocatable, dimension (:) :: ibuf
cbuf
character, allocatable, dimension (:) :: cbuf
xtype
integer :: xtype
attrlen
integer :: attrlen
i
integer :: i
iname
integer :: iname
varid
integer :: varid
subname
character (len=*), parameter :: subname = "anattrgetchar"