Lines Matching refs:x1
19 real*8 x1,x2
25 x1 = qref(0*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.);
30 interp(i*P+3)=2.*x1*(x1-1./2.);
31 interp(i*P+4)=-4.*x2*(x1+x2-1.);
32 interp(i*P+5)=4.*x1*x2;
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.);
38 grad((i+Q)*P+2)=-4.*(x1*1.);
39 grad((i+0)*P+3)=2.*(1.*(x1-1./2.)+x1*1.);
42 grad((i+Q)*P+4)=-4.*(1.*(x1+x2-1.)+x2*1.);
44 grad((i+Q)*P+5)=4.*(x1*1.);