Subroutine ANVarPutAttrDouble 
subroutine ANVarPutAttrDouble
        ! Uses
    use an_types, only: AN_VARIABLE, an_variable_entry
    use an_vartable, only: vtable_lookup
    use an_file, only: ANFileDefineMode
    use netcdf_f77, only: NF_PUT_ATT_DOUBLE, NF_NOERR, NF_DEL_ATT,         NF_ENOTINDEFINE, NF_DOUBLE, NF_GLOBAL
    use dc_url, only: GT_PLUS
    use dc_error
        ! Calls
    call StoreError
        ! Variables
    type (AN_VARIABLE), intent(in) :: var
    character (len=*), intent(in) :: name
    double precision, intent(in), dimension (:) :: value
    logical, optional, intent(out) :: err
    type (an_variable_entry) :: ent
    integer :: stat
end subroutine ANVarPutAttrDouble
 Description of Variables 
var
type (AN_VARIABLE), intent(in) :: var
name
character (len=*), intent(in) :: name
value
double precision, intent(in), dimension (:) :: value
err
logical, optional, intent(out) :: err
ent
type (an_variable_entry) :: ent
stat
integer :: stat