Lines Matching refs:x2
19 real*8 x1,x2
26 x2 = qref(1*q+i+1);
28 interp(i*P+1)=2.*(x1+x2-1.)*(x1+x2-1./2.);
29 interp(i*P+2)=-4.*x1*(x1+x2-1.);
31 interp(i*P+4)=-4.*x2*(x1+x2-1.);
32 interp(i*P+5)=4.*x1*x2;
33 interp(i*P+6)=2.*x2*(x2-1./2.);
35 grad((i+0)*P+1)=2.*(1.*(x1+x2-1./2.)+(x1+x2-1.)*1.);
36 grad((i+Q)*P+1)=2.*(1.*(x1+x2-1./2.)+(x1+x2-1.)*1.);
37 grad((i+0)*P+2)=-4.*(1.*(x1+x2-1.)+x1*1.);
41 grad((i+0)*P+4)=-4.*(x2*1.);
42 grad((i+Q)*P+4)=-4.*(1.*(x1+x2-1.)+x2*1.);
43 grad((i+0)*P+5)=4.*(1.*x2);
46 grad((i+Q)*P+6)=2.*(1.*(x2-1./2.)+x2*1.);