1 /* fortran wrapper for C function PyrShapeAndDrv which returns 2 the shape functions and their derivatives for pyramid 3 */ 4 #include <FCMangle.h> 5 #define shppyr FortranCInterface_GLOBAL_(shppyr,SHPPYR) 6 7 int PyrShapeAndDrv(int p,double par[3],double N[],double dN[][3]); 8 /* p: the order of the element shape function 9 par[3]: xi[3] 10 N[]: shape function 11 dN[][3]:derivative of shape function 12 */ 13 14 void shppyr(int *p, double par[3], double N[], double dN[][3]) 15 { 16 17 PyrShapeAndDrv(*p,par,N,dN); 18 19 } 20 21 22 23 24 25 26 27 28