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