Subroutine ANVarPutDouble

subroutine ANVarPutDouble

        ! Uses
    use dc_types, only: DP
    use an_types, only: AN_VARIABLE
    use an_vartable, only: an_variable_entry, vtable_lookup
    use netcdf_f77, only: nf_noerr, nf_einval, nf_put_varm_Double
    use an_file, only: anfiledatamode
    use dc_trace, only: BeginSub, EndSub, DbgMessage

        ! Calls
    call BeginSub
    call DbgMessage
    call EndSub

        ! Variables
    type (AN_VARIABLE), intent(in) :: var
    integer, intent(in), dimension (:) :: start
    integer, intent(in), dimension (:) :: count
    integer, intent(in), dimension (:) :: stride
    integer, intent(in), dimension (:) :: imap
    integer, intent(in) :: siz
    real (kind=DP), intent(in), dimension (siz) :: value
    integer, intent(out) :: iostat
    integer :: ndims
    type (an_variable_entry) :: ent
    character (len=*), parameter :: subname = "ANVarPutDouble"

end subroutine ANVarPutDouble

Description of Variables

var

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

start

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

count

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

stride

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

imap

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

siz

integer, intent(in) :: siz

value

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

iostat

integer, intent(out) :: iostat

ndims

integer :: ndims

ent

type (an_variable_entry) :: ent

subname

character (len=*), parameter :: subname = "ANVarPutDouble"