_RL flt_noise
common /flt_param_n/ flt_noise
namelist //flt_nml flt_int_traj, flt_int_prof, flt_noise
flt_noise = 0.0
uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise
vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise
ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise
u1 = u1 + port_rand_norm()*flt_noise
v1 = v1 + port_rand_norm()*flt_noise
w1 = w1 + port_rand_norm()*flt_noise
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise
w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise