buffer1(i+imax*(1-1)) = buffer1(i+imax*(1-1)) + work(1+(i-1)*kmax) * sphi_a(1,1+s_offset_a1)
