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