jacobimethodtonewvalue.fp

PDE simulator on GPU.

!!FP1.0
#Date:2004/2/11 for JocobiMethod FOR DIFFUSE
DECLARE TexPARA = {0,0,0,0};
#Velocity or Density or pressure
TEX R0, f[WPOS], TEX0, RECT;
#(L+U)*X
TEX R1, f[WPOS], TEX1, RECT;
MUL R1, R1, TexPARA.xxzz;

SUB R0, R0, R1;
MUL R0, R0, TexPARA.yyww;

#Import the boundary condition
TEX R1, f[WPOS], TEX2, RECT;
MUL o[COLR], R1, R0;

END