traj_cur(k)=tab_coeffs1(1,1)+tab_coeffs1(2,1)+
traj_cur(k)=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)
& +tmp_coeff*traj_cur(kcur+1)
traj_cur_out(kk)=traj_cur(kcur)
_RL traj_cur(nR),mask_cur(nR)
traj_cur(k)=traj_cur(k)+tab_coeffs1(q)*ponderations(q)/pondsSUM