inner_product.fp

PDE simulator on GPU.

!!FP1.0
#here compute the inner product of vector x and vector y which in 2d Textures
#add all elements together into ONE element
DECLARE TexOffset0 ={0.5,0,0,0};
DECLARE TexOffset1 ={0,0.5,0,0};
DECLARE TexOffset2 ={0.5,0.5,0,0};

#multiply xi and yi
TEX R0, f[TEX0], TEX0, 2D;
TEX R1, f[TEX1], TEX1, 2D;
MUL R0, R0, R1;

#offset the texture coordinates of the multiply product of x and y 
ADD R1, R0, TexOffset0;
ADD R2, R0, TexOffset1;
ADD R3, R0, TexOffset2;

TEX R0, R0, TEX0, 2D;
TEX R1, R1, TEX0, 2D;
TEX R2, R2, TEX0, 2D;
TEX R3, R3, TEX0, 2D;

#sum together
ADD R0, R0, R1;
ADD R0, R2, R0;
ADD R0, R3, R0;

MOV o[COLR], R0;
END