* Global::getGeo optimized by precalculation

* added ifdef OPENMP to delete warning during compilation

AMDiS/src/Assembler.cc

@@ -680,8 +680,6 @@ namespace AMDiS {
 
   void Pre0::calculateElementMatrix(const ElInfo *elInfo, ElementMatrix *mat)
   {
-    double *c = GET_MEMORY(double, 1);
-
     if (firstCall) {
       q00 = Q00PsiPhi::provideQ00PsiPhi(owner->getRowFESpace()->getBasisFcts(), 
 					owner->getColFESpace()->getBasisFcts(), 
@@ -691,20 +689,22 @@ namespace AMDiS {
       firstCall = false;
     }
 
-    c[0] = 0.0;
+    //    c[0] = 0.0;
+    double c = 0.0;
     int myRank = omp_get_thread_num();
+    int size = static_cast<int>(terms[myRank].size());
 
-    for (int i = 0; i < static_cast<int>( terms[myRank].size()); i++) {
-      (static_cast<ZeroOrderTerm*>((terms[myRank][i])))->getC(elInfo, 1, c);
+    for (int i = 0; i < size; i++) {
+      (static_cast<ZeroOrderTerm*>((terms[myRank][i])))->getC(elInfo, 1, &c);
     }
 
-    c[0] *= elInfo->getDet();
+    c *= elInfo->getDet();
 
     if (symmetric) {
       for (int i = 0; i < nRow; i++) {
-	(*mat)[i][i] += c[0] * q00->getValue(i,i);
+	(*mat)[i][i] += c * q00->getValue(i,i);
 	for (int j = i + 1; j < nCol; j++) {
-	  double val = c[0] * q00->getValue(i, j);
+	  double val = c * q00->getValue(i, j);
 	  (*mat)[i][j] += val;
 	  (*mat)[j][i] += val;
 	}
@@ -712,16 +712,12 @@ namespace AMDiS {
     } else {
       for (int i = 0; i < nRow; i++)
 	for (int j = 0; j < nCol; j++)
-	  (*mat)[i][j] += c[0]*q00->getValue(i,j);
+	  (*mat)[i][j] += c * q00->getValue(i, j);
     }
-
-    FREE_MEMORY(c, double, 1);
   }
 
   void Pre0::calculateElementVector(const ElInfo *elInfo, ElementVector *vec)
   {
-    double *c = GET_MEMORY(double, 1);
-
     if (firstCall) {
       q00 = Q00PsiPhi::provideQ00PsiPhi(owner->getRowFESpace()->getBasisFcts(), 
 					owner->getColFESpace()->getBasisFcts(), 
@@ -734,17 +730,15 @@ namespace AMDiS {
     ::std::vector<OperatorTerm*>::iterator termIt;
 
     int myRank = omp_get_thread_num();
-    c[0] = 0.0;
+    double c = 0.0;
     for (termIt = terms[myRank].begin(); termIt != terms[myRank].end(); ++termIt) {
-      (static_cast<ZeroOrderTerm*>( *termIt))->getC(elInfo, 1, c);
+      (static_cast<ZeroOrderTerm*>( *termIt))->getC(elInfo, 1, &c);
     }
 
-    c[0] *= elInfo->getDet();
+    c *= elInfo->getDet();
 
     for (int i = 0; i < nRow; i++)
-      (*vec)[i] += c[0] * q0->getValue(i);
-
-    FREE_MEMORY(c, double, 1);
+      (*vec)[i] += c * q0->getValue(i);
   }
 
   Stand10::Stand10(Operator *op, Assembler *assembler, Quadrature *quad) 

AMDiS/src/DOFMatrix.cc

@@ -35,7 +35,7 @@ namespace AMDiS {
   {
     TEST_EXIT(rowFESpace)("no rowFESpace\n");
   
-    if(!colFESpace) {
+    if (!colFESpace) {
       colFESpace = rowFESpace;
     }
 
@@ -57,7 +57,7 @@ namespace AMDiS {
   {
     FUNCNAME("DOFMatrix::~DOFMatrix()");
 
-    if(rowFESpace && rowFESpace->getAdmin()) {
+    if (rowFESpace && rowFESpace->getAdmin()) {
       (const_cast<DOFAdmin*>(rowFESpace->getAdmin()))->removeDOFIndexed(this);
     }  
   }

AMDiS/src/ElInfo1d.cc

@@ -33,11 +33,7 @@ namespace AMDiS {
       for (int i = 0; i < vertices; i++) {
 	coord_[i] = mel->coord[i];
       }
-      }
-
-    //   if(fillFlag_.isSet(Mesh::FILL_DET) || fillFlag_.isSet(Mesh::FILL_GRD_LAMBDA)) {
-    //     det = elGrdLambda(*Lambda);
-    //   }
+    }
 
     if (fillFlag_.isSet(Mesh::FILL_NEIGH) || fillFlag_.isSet(Mesh::FILL_OPP_COORDS)) {
       WorldVector<double> oppC;
@@ -221,10 +217,6 @@ namespace AMDiS {
       }
     }
 
-    //   if(fillFlag_.isSet(Mesh::FILL_DET) || fillFlag_.isSet(Mesh::FILL_GRD_LAMBDA)) {
-    //     det = calcGrdLambda(*Lambda);
-    //   }
-
     if (fillFlag_.isSet(Mesh::FILL_NEIGH) || fillFlag_.isSet(Mesh::FILL_OPP_COORDS)) {
       WorldVector<double> oppC;
       

AMDiS/src/ElInfo3d.cc

@@ -348,7 +348,6 @@ namespace AMDiS {
   {
     FUNCNAME("ElInfo3d::fillElInfo()");
 
-    int el_type_local = 0;      /* el_type in {0,1,2} */
     int ochild = 0;             /* index of other child = 1-ichild */
     int *cv = NULL;             /* cv = child_vertex[el_type][ichild] */
     const int (*cvg)[4] = NULL;     /* cvg = child_vertex[el_type] */
@@ -370,12 +369,12 @@ namespace AMDiS {
     fillFlag_ = fillFlag__local;
     parent_  = el_old;
     level_ = elinfo_old->level_ + 1;
-    el_type = (( dynamic_cast<ElInfo3d*>(const_cast<ElInfo*>( elinfo_old)))->el_type + 1) % 3;
+    int el_type_local = ( dynamic_cast<ElInfo3d*>(const_cast<ElInfo*>( elinfo_old)))->getType();
+    el_type = (el_type_local + 1) % 3;
 
     TEST_EXIT_DBG(element_)("missing child %d?\n", ichild);
 
     if (fillFlag__local.isAnySet()) {
-      el_type_local = ( dynamic_cast<ElInfo3d*>(const_cast<ElInfo*>( elinfo_old)))->getType();
       cvg = Tetrahedron::childVertex[el_type_local];
       cv = const_cast<int*>( cvg[ichild]);
       ochild = 1 - ichild;

AMDiS/src/ElInfo3d.h

@@ -81,13 +81,6 @@ namespace AMDiS {
      */
     double getNormal(int side, WorldVector<double> &normal) const;
 
-    /** \brief
-     * 3-dimensional realisation of ElInfo's getElementNormal method.
-     */
-    //double getElementNormal( WorldVector<double> &normal) const;
-
-
-
     /** \brief
      * update ElInfo after refinement (of some neighbours). Only in 3d!
      */

AMDiS/src/FileWriter.cc

@@ -10,6 +10,7 @@
 #include "Flag.h"
 #include "ElInfo.h"
 #include "Mesh.h"
+#include "OpenMP.h"
 
 namespace AMDiS {
 
@@ -150,6 +151,10 @@ namespace AMDiS {
     GET_PARAMETER(0, name + "->index decimals", "%d", &indexDecimals);
     GET_PARAMETER(0, name + "->write every i-th timestep", "%d", &tsModulo);
     GET_PARAMETER(0, name + "->delay", "%d", &delayWriting_);
+
+    TEST_EXIT(!delayWriting_ || amdisHaveOpenMP)
+      ("Delayed writing only possible with OpenMP support!\n");
+
   }
 
   void FileWriter::writeFiles(AdaptInfo *adaptInfo,

AMDiS/src/Global.cc

@@ -13,14 +13,18 @@ namespace AMDiS {
 
   const char *funcName = NULL;
   const char *Msg::oldFuncName = NULL;
-  ::std::ostream* Msg::out=NULL;
-  ::std::ostream* Msg::error=NULL;
+  ::std::ostream* Msg::out = NULL;
+  ::std::ostream* Msg::error = NULL;
   int Global::dimOfWorld = 0;
+  ::std::vector< ::std::vector< int > > Global::geoIndexTable;
   int Msg::msgInfo = 10;
   bool Msg::msgWait = true;
 
   Element *Global::referenceElement[4] = 
-    { NULL, NEW Line(NULL), NEW Triangle(NULL), NEW Tetrahedron(NULL) };
+    { NULL, 
+      NEW Line(NULL), 
+      NEW Triangle(NULL), 
+      NEW Tetrahedron(NULL) };
 
   void Msg::wait(bool w)
   {
@@ -55,99 +59,87 @@ namespace AMDiS {
 
   void Msg::open_file(const char *filename, OPENMODE type)
   {
-    FUNCNAME("Msg::open_file");
+    FUNCNAME("Msg::open_file()");
     ::std::ofstream *fp;
 
  
-    if (filename  &&  (fp = new ::std::ofstream(filename, type)))
-      {
-	if (out  &&  *out != ::std::cout  &&  *out != ::std::cerr)
-	  {
-	    dynamic_cast< ::std::ofstream*>(out)->close();
-	    delete out;
-	  }
-
-	out = fp;
-      }
-    else
-      {
-	if (filename)
-	  ERROR("can not open %s;\n", filename);
-	else
-	  ERROR("no filename specified;\n");
-	ERROR("use previous stream for messages furthermore\n");
+    if (filename  &&  (fp = new ::std::ofstream(filename, type))) {
+      if (out && *out != ::std::cout && *out != ::std::cerr) {
+	dynamic_cast< ::std::ofstream*>(out)->close();
+	delete out;
       }
+      
+      out = fp;
+    } else {
+      if (filename)
+	ERROR("can not open %s;\n", filename);
+      else
+	ERROR("no filename specified;\n");
+    
+      ERROR("use previous stream for messages furthermore\n");
+    }
     return;
   }
 
   void Msg::change_error_out(::std::ofstream *fp)
   {
-    FUNCNAME("Msg::change_error_out");
-    if (fp)
-      {
-	if (error  &&  *error != ::std::cout  &&  *error != ::std::cerr)
-	  {
-	    dynamic_cast< ::std::ofstream*>(error)->close();
-	    delete error;
-	  }
-    
-	error = fp;
-      }
-    else
-      {
-	ERROR("file pointer is pointer to nil;\n");
-	ERROR("use previous stream for errors furthermore\n");
+    FUNCNAME("Msg::change_error_out()");
+
+    if (fp) {
+      if (error  &&  *error != ::std::cout  &&  *error != ::std::cerr) {
+	dynamic_cast< ::std::ofstream*>(error)->close();
+	delete error;
       }
+      
+      error = fp;
+    } else {
+      ERROR("file pointer is pointer to nil;\n");
+      ERROR("use previous stream for errors furthermore\n");
+    }
 
     return;
   }
 
   void Msg::open_error_file(const char *filename, OPENMODE type)
   {
-    FUNCNAME("Msg::open_error_file");
+    FUNCNAME("Msg::open_error_file()");
     ::std::ofstream *fp;
 
-    if (filename  &&  (fp = new ::std::ofstream(filename, type)))
-      {
-	if (error  &&  *error != ::std::cout  &&  *error != ::std::cerr)
-	  {
-	    dynamic_cast< ::std::ofstream*>(error)->close();
-	    delete error;
-	  }
-
-	error = fp;
-      }
-    else
-      {
-	if (filename)
-	  ERROR("can not open %s;\n", filename);
-	else
-	  ERROR("no filename specified;\n");
-	ERROR("use previous stream for errors furthermore\n");
+    if (filename  &&  (fp = new ::std::ofstream(filename, type))) {
+      if (error  &&  *error != ::std::cout  &&  *error != ::std::cerr) {
+	dynamic_cast< ::std::ofstream*>(error)->close();
+	delete error;
       }
+
+      error = fp;
+    } else {
+      if (filename)
+	ERROR("can not open %s;\n", filename);
+      else
+	ERROR("no filename specified;\n");
+      ERROR("use previous stream for errors furthermore\n");
+    }
+
     return;
   }
 
   const char *generate_filename(const char * path, const char * fn, int ntime)
   {
-    static char  name[256];
-    char         *cp;
+    static char name[256];
+    char *cp;
   
-    if (path == NULL || path[0] == '\0')
-      {
-	sprintf(name, "./%s", fn);
-      }
-    else
-      {
-	const char* ccp = path;
-	while (*ccp)
-	  ccp++;
-	ccp--;
-	if (*ccp == '/')
-	  sprintf(name, "%s%s", path, fn);
-	else
-	  sprintf(name, "%s/%s", path, fn);
-      }
+    if (path == NULL || path[0] == '\0') {
+      sprintf(name, "./%s", fn);
+    } else {
+      const char* ccp = path;
+      while (*ccp)
+	ccp++;
+      ccp--;
+      if (*ccp == '/')
+	sprintf(name, "%s%s", path, fn);
+      else
+	sprintf(name, "%s/%s", path, fn);
+    }
     cp = name;
     while (*cp)
       cp++;
@@ -159,7 +151,8 @@ namespace AMDiS {
 
   void Msg::print_funcname(const char *funcName)
   {
-    if (!out) out = &::std::cout;
+    if (!out) 
+      out = &::std::cout;
 
     if (funcName &&  oldFuncName != funcName) {
       (*out)<< funcName << ":" << ::std::endl;
@@ -176,29 +169,32 @@ namespace AMDiS {
   {
     static int old_line = -1;
 
-    if (!error) error = &::std::cerr;
+    if (!error) 
+      error = &::std::cerr;
 
     if (funcName &&  oldFuncName != funcName) {
       (*error)<<funcName<< ": ";
     }
     else if (!funcName) {
-      if (line-old_line > 5) (*error)<< "*unknown function*";
+      if (line-old_line > 5) 
+	(*error) << "*unknown function*";
     }
     if (oldFuncName != funcName) {
-      (*error)<<"ERROR in "<<file<<", line "<<line<<"\n";
+      (*error) << "ERROR in " << file << ", line " << line << "\n";
       oldFuncName = funcName;
     } else if (line - old_line > 5)
-      (*error)<< "ERROR in "<<file<<", line "<<line<<"\n";
+      (*error) << "ERROR in " << file << ", line " << line << "\n";
 
     old_line = line;
   }
 
   void Msg::print_error_exit(const char *format, ...)
   {
-    va_list   arg;
-    char      buff[255];
+    va_list arg;
+    char buff[255];
 
-    if (!error) error = &::std::cerr;
+    if (!error) 
+      error = &::std::cerr;
 
     va_start(arg, format);
     vsprintf(buff, format, arg);
@@ -210,11 +206,12 @@ namespace AMDiS {
 
   void Msg::print_error(const char *format, ...)
   {
-    va_list   arg;
-    char      buff[255];
+    va_list arg;
+    char buff[255];
 
 
-    if (!error) error = &::std::cerr;
+    if (!error) 
+      error = &::std::cerr;
 
     va_start(arg, format);
     vsprintf(buff, format, arg);
@@ -228,31 +225,33 @@ namespace AMDiS {
 				const char *file, 
 				int line)
   {
-    static int        old_line = -1;
+    static int old_line = -1;
 
-    if (!out) out = &::std::cout;
+    if (!out) 
+      out = &::std::cout;
 
     if (funcName  &&  oldFuncName != funcName) {
-      (*out)<<funcName<<": ";
+      (*out) << funcName << ": ";
     }
     else if (!funcName){
-      (*out)<< "*unknown function*";
+      (*out) << "*unknown function*";
     }
     if (oldFuncName != funcName) {
-      (*out)<<"WARNING in "<<file<<", line "<<line<<"\n";
+      (*out) << "WARNING in " << file << ", line " << line << "\n";
       oldFuncName = funcName;
     } else if (line - old_line > 5)
-      (*out)<<"WARNING in "<<file<<", line "<<line<<"\n";
+      (*out) << "WARNING in " << file << ", line " << line << "\n";
 
     old_line = line;
   }
 
   void Msg::print_warn(const char *format, ...)
   {
-    va_list   arg;
-    char      buff[255];
+    va_list arg;
+    char buff[255];
 
-    if (!out) out = &::std::cout;
+    if (!out) 
+      out = &::std::cout;
 
     va_start(arg, format);