Ebenennormale

void   FNR(double *e0,double *e1,double *e2,double *erg){ //Flaechennormale der Ebene(*e1 ,*e2, *e3)
  double tmp[6];
  VSU(e1,e0,&tmp[0]);
  VSU(e2,e0,&tmp[3]);
  VPR(&tmp[0],&tmp[3],erg);
  return;
}