159599516SKenneth E. Jansen /* fortran wrapper for C function HexShapeAndDrv which returns 259599516SKenneth E. Jansen the shape functions and their derivatives for tets 359599516SKenneth E. Jansen */ 459599516SKenneth E. Jansen #include <FCMangle.h> 559599516SKenneth E. Jansen 659599516SKenneth E. Jansen int HexShapeAndDrv(int p,double par[3],double N[],double dN[][3]); 759599516SKenneth E. Jansen 859599516SKenneth E. Jansen #define shphex FortranCInterface_GLOBAL_(shphex, SHPHEX) 9*f34e7d5cSCameron Smith void shphex(int *p, double par[], double N[], double dN[][3]) 1059599516SKenneth E. Jansen { 1159599516SKenneth E. Jansen 1259599516SKenneth E. Jansen HexShapeAndDrv(*p,par,N,dN); 1359599516SKenneth E. Jansen 1459599516SKenneth E. Jansen } 15