traj_cur_out(kk)=0
traj_cur_out(kk)=traj_cur(1)
traj_cur_out(kk)=traj_cur(nr)
traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur)
traj_cur_out(kk)=traj_cur(kcur)
O traj_cur_out,
_RL traj_cur_out, weights_cur
_RL traj_cur_out(NLEVELMAX)