1 /* fortran wrapper for C function TetShapeAndDrv which returns 2 the shape functions and their derivatives for tets 3 */ 4 #include <FCMangle.h> 5 6 int TriShapeAndDrv(int p,double par[3],double N[],double dN[][3]); 7 8 #define shptri FortranCInterface_GLOBAL_(shptri, SHPTRI) shptri(int * p,double par[],double N[],double dN[][3])9void shptri(int *p, double par[], double N[], double dN[][3]) 10 { 11 TriShapeAndDrv(*p,par,N,dN); 12 } 13