! 指定された変数のすべての属性を複写する。

subroutine gtvarcopyattrall(to, from, err)
    use gtdata_types, only: gt_variable
    use gtdata_generic, only: attr_rewind, attr_next, gtvarcopyattr
    use dc_error, only: dumperror
    use dc_trace, only: beginsub, endsub, DbgMessage
    use dc_types, only: string
    type(gt_variable), intent(inout):: to
    type(gt_variable), intent(inout):: from
    logical, intent(out):: err
    character(len = *), parameter:: subnam = "gtvarcopyattrall"
    character(len = STRING):: aname
    logical:: end
    err = .false.
    call beginsub(subnam)
    call attr_rewind(from)
    do
        call attr_next(from, aname, end)
        if (end) exit
        call DbgMessage("attr=%c", c1=aname)
        call gtvarcopyattr(to=to, attrname=aname, from=from, err=err)
        if (err) exit
    enddo
    call endsub(subnam)
end subroutine