136    um = 1. - ipcoord[0] - ipcoord[1];
 
  137    tm = 1. - ipcoord[2];
 
  139    weights[0] = um * tm;
 
  140    weights[1] = ipcoord[0] * tm;
 
  141    weights[2] = ipcoord[1] * tm;
 
  143    weights[3] = um * ipcoord[2];
 
  144    weights[4] = ipcoord[0] * ipcoord[2];
 
  145    weights[5] = ipcoord[1] * ipcoord[2];
 
 
  177    bool inside =  ( -1.E-5 < pcoord[0] &&  pcoord[0] < 1 + 1.E-5 &&
 
  178                     -1.E-5 < pcoord[1] &&  pcoord[1] < 1 + 1.E-5 &&
 
  179                     -1.E-5 < pcoord[2] &&  pcoord[2] < 1 + 1.E-5 &&
 
  180                     -1.E-5 < (pcoord[0]+pcoord[1]) &&  (pcoord[0]+pcoord[1]) < 1 + 1.E-5);