1 /* fortran wrapper for C function TetShapeAndDrv which returns 2 the shape functions and their derivatives for tets 3 */ 4 5 int TetShapeAndDrv(int p,double par[3],double N[],double dN[][3]); 6 7 #ifdef sun4_5 8 shptri_(int *p, double par[], double N[], double dN[][3]) 9 #elif LINUX 10 shptri_(int *p, double par[], double N[], double dN[][3]) 11 #elif ibm 12 shptri(int *p, double par[], double N[], double dN[][3]) 13 #elif sgi 14 void shptri_(int *p, double par[], double N[], double dN[][3]) 15 #elif decalp 16 void shptri_(int *p, double par[], double N[], double dN[][3]) 17 #elif intel 18 void SHPTRI(int *p, double par[], double N[], double dN[][3]) 19 #endif 20 { 21 TriShapeAndDrv(*p,par,N,dN); 22 23 } 24