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) 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