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
shppyr(int * p,double par[3],double N[],double dN[][3])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