55   double r,s;  in F_edgeBlendTriDrv()  local
58   r = L[0] ; s = L[1] ;  in F_edgeBlendTriDrv()
63       drv[0] = -2.0*s;  in F_edgeBlendTriDrv()
67       drv[0] = 2.0*s;  in F_edgeBlendTriDrv()
68       drv[1] = -2.0+2.0*r+4.0*s;  in F_edgeBlendTriDrv()
71       drv[0] = 4.0*r-2.0+2.0*s;  in F_edgeBlendTriDrv()
96   double r=L[0],s=L[1],t=L[2];  in R_edgeBlendTetDrv()  local
101       drv[0] = -2.0*s;  in R_edgeBlendTetDrv()
106       drv[0] = -2.0+4.0*r+2.0*s+2.0*t;  in R_edgeBlendTetDrv()
113       drv[2] = -2.0*s;  in R_edgeBlendTetDrv()
116       drv[0] = 2.0*s;  in R_edgeBlendTetDrv()
117       drv[1] = -2.0+2.0*r+4.0*s+2.0*t;  in R_edgeBlendTetDrv()
118       drv[2] = 2.0*s;  in R_edgeBlendTetDrv()
128       drv[2] = -2.0+2.0*r+2.0*s+4.0*t;  in R_edgeBlendTetDrv()