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