_RL prof_w1D(NUM_INTERP_POINTS)
prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
& prof_i1D,prof_j1D,prof_w1D,