xref: /phasta/phSolver/common/shphex.c (revision 7acde132a6def0fe2daaec0d1a712dff0e5c6636)

/* fortran wrapper for C function HexShapeAndDrv which returns
   the shape functions and their derivatives for tets
   */
#include <FCMangle.h>

int HexShapeAndDrv(int p,double par[3],double N[],double dN[][3]);

#define shphex FortranCInterface_GLOBAL_(shphex, SHPHEX)
void shphex(int *p, double par[], double N[], double dN[][3])
{

  HexShapeAndDrv(*p,par,N,dN);

}