text: int GaussLegendreTet(int,int,int,double [][4],double[]);
  
  #ifdef sun4_5
  gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  #ifdef LINUX
  gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  #ifdef ibm
  gltet(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  #ifdef sgi
  void gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  #ifdef decalp
  void gltet_(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  #ifdef intel
  void GLTET(int *n1, int *n2,int *n3, double pt[][4], double wt[], int *npt)
  #endif
  { 
    *npt = GaussLegendreTet(*n1,*n2,*n3,pt,wt);
  }
  