1*59599516SKenneth E. Jansen int GaussLegendreTet(int,int,int,double [][4],double[]);
2*59599516SKenneth E. Jansen
3*59599516SKenneth E. Jansen #ifdef sun4_5
gltet_(int * n1,int * n2,int * n3,double pt[][4],double wt[],int * npt)4*59599516SKenneth E. Jansen gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
5*59599516SKenneth E. Jansen #endif
6*59599516SKenneth E. Jansen #ifdef LINUX
7*59599516SKenneth E. Jansen gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
8*59599516SKenneth E. Jansen #endif
9*59599516SKenneth E. Jansen #ifdef ibm
10*59599516SKenneth E. Jansen gltet(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
11*59599516SKenneth E. Jansen #endif
12*59599516SKenneth E. Jansen #ifdef sgi
13*59599516SKenneth E. Jansen void gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
14*59599516SKenneth E. Jansen #endif
15*59599516SKenneth E. Jansen #ifdef decalp
16*59599516SKenneth E. Jansen void gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
17*59599516SKenneth E. Jansen #endif
18*59599516SKenneth E. Jansen #ifdef intel
19*59599516SKenneth E. Jansen void GLTET(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
20*59599516SKenneth E. Jansen #endif
21*59599516SKenneth E. Jansen {
22*59599516SKenneth E. Jansen *npt = GaussLegendreTet(*n1,*n2,*n3,pt,wt);
23*59599516SKenneth E. Jansen }
24