18   int i,j,k,index=0;  in GaussLegendreTet()  local
28         brickToTet(pt1[i],pt2[j],pt3[k],&GLrstw[index][0],  in GaussLegendreTet()
29                    &GLrstw[index][1],&GLrstw[index][2],&dJ);  in GaussLegendreTet()
30         GLrstw[index][3] = 1.0e0-GLrstw[index][0]-GLrstw[index][1]  in GaussLegendreTet()
31                                 -GLrstw[index][2];  in GaussLegendreTet()
32         GLwt[index++] = dJ*wt1[i]*wt2[j]*wt3[k]*six;  in GaussLegendreTet()
36   return index;  in GaussLegendreTet()
40   int i,j,index=0;  in GaussLegendreTri()  local
48       quadToTri(pt1[i],pt2[j],&GLr[index][0],&GLr[index][1],&dJ);  in GaussLegendreTri()
49       GLr[index][2] = 1.0e0-GLr[index][0]-GLr[index][1];  in GaussLegendreTri()
50       GLwt[index++] = dJ*wt1[i]*wt2[j]*two;  in GaussLegendreTri()
53   return index;  in GaussLegendreTri()