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