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