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