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