integer index_var
index_var = 1 +
active_var(index_var) = active_data_t(index_t)
& active_var(index_var)
active_var(index_var) = 0. _d 0
active_data_t(index_t) = active_var(index_var)
active_var(index_var) = active_var(index_var) +