1 int GaussLegendreTet(int,int,int,double [][4],double[]); 2 3 #ifdef sun4_5 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