1 /* fortran wrapper for C function WedgeShapeAndDrv which returns 2 the shape functions and their derivatives for wedge 3 */ 4 #include <FCMangle.h> 5 #define shp6w FortranCInterface_GLOBAL_(shp6w, SHP6W) 6 7 int WedgeShapeAndDrv(int p,double par[3],double N[],double dN[][3]); 8 shp6w(int * p,double par[],double N[],double dN[][3])9void shp6w(int *p, double par[], double N[], double dN[][3]) 10 { 11 WedgeShapeAndDrv(*p,par,N,dN); 12 13 } 14 15 16 17 18 19 20 21 22