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