7   double L[3];  in TriShapeAndDrv()  local
11   L[0]=par[0];  in TriShapeAndDrv()
12   L[1]=par[1];  in TriShapeAndDrv()
13   L[2]=1.0e0-par[0]-par[1];  in TriShapeAndDrv()
19     N[i] = L[i];  in TriShapeAndDrv()
34     N[3] = -2.0e0*L[0]*L[1];  in TriShapeAndDrv()
35     N[4] = -2.0e0*L[1]*L[2];  in TriShapeAndDrv()
36     N[5] = -2.0e0*L[0]*L[2];  in TriShapeAndDrv()
37     dN[3][0] = -2.0e0*L[1];  in TriShapeAndDrv()
38     dN[3][1] = -2.0e0*L[0];  in TriShapeAndDrv()
39     dN[4][0] = 2.0e0*L[1];  in TriShapeAndDrv()
40     dN[4][1] = -2.0e0+2.0e0*L[0]+4.0e0*L[1];  in TriShapeAndDrv()
41     dN[5][0] = -2.0e0+4.0e0*L[0]+2.0e0*L[1];  in TriShapeAndDrv()
42     dN[5][1] = 2.0e0*L[0];  in TriShapeAndDrv()