67 double Line_eB(double xi1)  in Line_eB()  argument
70     return 0.5*(xi1*xi1 - 1);  in Line_eB()
73 double dLEBdxi1(double xi1){  return xi1; }  in dLEBdxi1()  argument
74 double dLEBdxi2(double xi1){return 0;}  in dLEBdxi2()  argument
75 double dLEBdxi3(double xi1){return 0;}  in dLEBdxi3()  argument
80 double Quad_eB(double xi1, double xi2, int sign)  in Quad_eB()  argument
83     return 0.25*(xi1*xi1 - 1)*(1+sign*xi2);  in Quad_eB()
86 double dQEBdxi1(double xi1, double xi2, int sign)  in dQEBdxi1()  argument
87 { return 0.5*xi1*(1+sign*xi2); }  in dQEBdxi1()
89 double dQEBdxi2(double xi1, double xi2, int sign)  in dQEBdxi2()  argument
90 { return 0.25*sign*(xi1*xi1 - 1); }  in dQEBdxi2()
92 double dQEBdxi3(double xi1, double xi2, int sign)  in dQEBdxi3()  argument
98 double Quad_fB(double xi1, double xi2)  in Quad_fB()  argument
100     return 0.25*(xi1*xi1 - 1)*(xi2*xi2 - 1);  in Quad_fB()
103 double dQFBdxi1(double xi1, double xi2)  in dQFBdxi1()  argument
104 { return 0.5*xi1*(xi2*xi2 - 1); }  in dQFBdxi1()
106 double dQFBdxi2(double xi1, double xi2)  in dQFBdxi2()  argument
107 { return 0.5*xi2*(xi1*xi1 - 1); }  in dQFBdxi2()
109 double dQFBdxi3(double xi1, double xi2)  in dQFBdxi3()  argument
292 int mesh_edge(double xi1, int gOrd[3], int p,double* entfn,double** edrv)  in mesh_edge()  argument
312             entfn[i] = phi(i+2, xi1);  in mesh_edge()
313             edrv[i][gOrd[0]] = phiDrv(i+2,xi1);  in mesh_edge()
330     double xi1 = xi[0];  in quad_face()  local
364                         entfn[mc] = phi(a1,xi1)*phi(a2,xi2);  in quad_face()
365                         edrv[mc][gOrd[0]] = phiDrv(a1, xi1)*phi(a2, xi2);  in quad_face()
366                         edrv[mc][gOrd[1]] = phi(a1, xi1)*phiDrv(a2, xi2);  in quad_face()
382     double xi1 = xi[0];  in hex_regn()  local
401                             entfn[mc]=phi(a1,xi1)*phi(a2,xi2)*phi(a3,xi3);    in hex_regn()
403                             edrv[mc][0]=phiDrv(a1,xi1)*phi(a2,xi2)*phi(a3,xi3);  in hex_regn()
405                             edrv[mc][1]=phi(a1,xi1)*phiDrv(a2,xi2)*phi(a3,xi3);  in hex_regn()
407                             edrv[mc++][2]=phi(a1,xi1)*phi(a2,xi2)*phiDrv(a3,xi3);  in hex_regn()