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