Lines Matching refs:grad

9       subroutine buildmats(qref,qweight,interp,grad)
18       real*8 grad(d*p*q)
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.);
40         grad((i+Q)*P+3)=2.*0.;
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);
44         grad((i+Q)*P+5)=4.*(x1*1.);
45         grad((i+0)*P+6)=2.*0.;
46         grad((i+Q)*P+6)=2.*(1.*(x2-1./2.)+x2*1.);