subroutine ANVarAttrCopy(to, attrname, from, stat)
use an_types, only: AN_VARIABLE, an_variable_entry
use an_file, only: ANFileDefineMode, inquire
use an_vartable, only: vtable_lookup
use netcdf_f77
use dc_url, only: GT_PLUS
use dc_error
implicit none
type(AN_VARIABLE), intent(in):: to
character(len = *), intent(in):: attrname
type(AN_VARIABLE), intent(in):: from
integer, intent(out):: stat
character(NF_MAX_NAME):: nc_aname
integer:: id_var_from, id_var_to
logical:: myerr
type(an_variable_entry):: to_ent, from_ent
stat = vtable_lookup(to, to_ent)
if (stat /= NF_NOERR) goto 999
stat = vtable_lookup(from, from_ent)
if (stat /= NF_NOERR) goto 999
stat = ANFileDefineMode(to_ent%fileid)
if (stat /= NF_NOERR) goto 999
call inquire(from, attrname, id_var_from, nc_aname)
call inquire(to, attrname, id_var_to, nc_aname)
stat = nf_copy_att(from_ent%fileid, id_var_from, nc_aname, to_ent%fileid, id_var_to)
999 continue
call StoreError(stat, "ANVarAttrCopy", myerr)
return
end subroutine