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