1 #include <FCMangle.h>
2 int GaussLegendreTri(int,int,double [][3],double[]);
3
4 #define gltri FortranCInterface_GLOBAL_(gltri, GLTRI)
5 void gltri(int *n1, int *n2, double pt[][3], double wt[], int *npt)
6 {
7 *npt = GaussLegendreTri(*n1,*n2,pt,wt);
8 }
9