Subroutine ANVarGetDouble

subroutine ANVarGetDouble

        ! Uses
    use an_types, only: AN_VARIABLE
    use an_vartable, only: AN_VARIABLE_ENTRY, vtable_lookup
    use netcdf_f77, only: nf_noerr, nf_einval, nf_get_varm_Double,                     nf_get_var1_Double
    use dc_types, only: DP
    use dc_trace, only: BeginSub, EndSub, DbgMessage

        ! Calls
    call BeginSub
    call DbgMessage
    call EndSub
    call fake_map_get

        ! Variables
    type (AN_VARIABLE), intent(in) :: var
    integer, intent(in), dimension (:) :: start
    integer, intent(in), dimension (:) :: cnt
    integer, intent(in), dimension (:) :: stride
    integer, intent(in), dimension (:) :: imap
    integer, intent(in) :: siz
    real (kind=DP), intent(out), dimension (siz) :: value
    integer, intent(out) :: iostat
    integer :: nd
    integer :: ipos
    integer :: i
    type (AN_VARIABLE_ENTRY) :: ent
    integer, allocatable, dimension (:) :: istart
    integer, allocatable, dimension (:) :: istride
    integer, allocatable, dimension (:) :: iimap

        ! Subroutines and functions
    subroutine fake_map_get ()

end subroutine ANVarGetDouble

Description of Variables

var

type (AN_VARIABLE), intent(in) :: var

start

integer, intent(in), dimension (:) :: start

cnt

integer, intent(in), dimension (:) :: cnt

stride

integer, intent(in), dimension (:) :: stride

imap

integer, intent(in), dimension (:) :: imap

siz

integer, intent(in) :: siz

value

real (kind=DP), intent(out), dimension (siz) :: value

iostat

integer, intent(out) :: iostat

nd

integer :: nd

ipos

integer :: ipos

i

integer :: i

ent

type (AN_VARIABLE_ENTRY) :: ent

istart

integer, allocatable, dimension (:) :: istart

istride

integer, allocatable, dimension (:) :: istride

iimap

integer, allocatable, dimension (:) :: iimap

Description of Subroutines and Functions

fake_map_get

subroutine fake_map_get ()
    ! Calls: DbgMessage
end subroutine fake_map_get