buffer1(i+imax*(3-1)) = buffer1(i+imax*(3-1)) + work(1+(i-1)*kmax) * sphi_a(1,3+s_offset_a1)
buffer1(i+imax*(5-1)) = buffer1(i+imax*(5-1)) + work(1+(i-1)*kmax) * sphi_a(1,5+s_offset_a1)
buffer1(i+imax*(1-1)) = buffer1(i+imax*(1-1)) + work(2+(i-1)*kmax) * sphi_a(2,1+s_offset_a1)
buffer1(i+imax*(4-1)) = buffer1(i+imax*(4-1)) + work(3+(i-1)*kmax) * sphi_a(3,4+s_offset_a1)
buffer1(i+imax*(3-1)) = buffer1(i+imax*(3-1)) + work(4+(i-1)*kmax) * sphi_a(4,3+s_offset_a1)
buffer1(i+imax*(5-1)) = buffer1(i+imax*(5-1)) + work(4+(i-1)*kmax) * sphi_a(4,5+s_offset_a1)
buffer1(i+imax*(2-1)) = buffer1(i+imax*(2-1)) + work(5+(i-1)*kmax) * sphi_a(5,2+s_offset_a1)
buffer1(i+imax*(3-1)) = buffer1(i+imax*(3-1)) + work(6+(i-1)*kmax) * sphi_a(6,3+s_offset_a1)
