159599516SKenneth E. Jansen /* fortran wrapper for C function TetShapeAndDrv which returns
259599516SKenneth E. Jansen the shape functions and their derivatives for tets
359599516SKenneth E. Jansen */
4*f34e7d5cSCameron Smith #include <FCMangle.h>
559599516SKenneth E. Jansen
6*f34e7d5cSCameron Smith int TriShapeAndDrv(int p,double par[3],double N[],double dN[][3]);
759599516SKenneth E. Jansen
8*f34e7d5cSCameron Smith #define shptri FortranCInterface_GLOBAL_(shptri, SHPTRI)
shptri(int * p,double par[],double N[],double dN[][3])9*f34e7d5cSCameron Smith void shptri(int *p, double par[], double N[], double dN[][3])
1059599516SKenneth E. Jansen {
1159599516SKenneth E. Jansen TriShapeAndDrv(*p,par,N,dN);
1259599516SKenneth E. Jansen }
13