stable3d.cpp

Go to the documentation of this file.

// Copyright (c) 2010, Lawrence Livermore National Security, LLC. Produced at
// the Lawrence Livermore National Laboratory. LLNL-CODE-443211. All Rights
// reserved. See file COPYRIGHT for details.
//
// This file is part of the MFEM library. For more information and source code
// availability see http://mfem.googlecode.com.
//
// MFEM is free software; you can redistribute it and/or modify it under the
// terms of the GNU Lesser General Public License (as published by the Free
// Software Foundation) version 2.1 dated February 1999.


#include "error.hpp"
#include "stable3d.hpp"

using namespace std;

STable3D::STable3D (int nr)
{
   int i;

   Size = nr;
   Rows = new STable3DNode *[nr];
   for (i = 0; i < nr; i++)
      Rows[i] = NULL;
   NElem = 0;
}

inline void Sort3 (int &r, int &c, int &f)
{
   int t;

   if (r > c)
      if (c > f)
      {
         t = r;  r = f;  f = t;  //  (r,c,f) --> (f,c,r)
      }
      else
         if (r > f)
         {
            t = r;  r = c;  c = f;  f = t;  //  (r,c,f) --> (c,f,r)
         }
         else
         {
            t = r;  r = c;  c = t;  //  (r,c,f) --> (c,r,f)
         }
   else
      if (c > f)
      {
         if (r > f)
         {
            t = f;  f = c;  c = r;  r = t;  //  (r,c,f) --> (f,r,c)
         }
         else
         {
            t = c;  c = f;  f = t;  //  (r,c,f) --> (r,f,c)
         }
      }
}

int STable3D::Push (int r, int c, int f)
{
   STable3DNode *node;

#ifdef MFEM_DEBUG
   if (r == c || c == f || f == r)
   {
      cerr << "STable3D::Push : r = " << r << ", c = " << c << ", f = "
           << f << endl;
      mfem_error();
   }
#endif

   Sort3 (r, c, f);

   for (node = Rows[r]; node != NULL; node = node->Prev)
   {
      if (node->Column == c)
         if (node->Floor == f)
            return node->Number;
   }

#ifdef MFEM_USE_MEMALLOC
   node = NodesMem.Alloc ();
#else
   node = new STable3DNode;
#endif
   node->Column = c;
   node->Floor  = f;
   node->Number = NElem;
   node->Prev   = Rows[r];
   Rows[r] = node;

   NElem++;
   return (NElem-1);
}

int STable3D::operator() (int r, int c, int f) const
{
   STable3DNode *node;

   Sort3 (r, c, f);

   for (node = Rows[r]; node != NULL; node = node->Prev)
   {
      if (node->Column == c)
         if (node->Floor == f)
            return node->Number;
   }

   cerr << "STable3D::operator(): (r,c,f) = (" << r << "," << c << ","
        << f << ")" << endl;
   mfem_error();

   return 0;
}

int STable3D::Index (int r, int c, int f) const
{
   STable3DNode *node;

   Sort3 (r, c, f);

   for (node = Rows[r]; node != NULL; node = node->Prev)
   {
      if (node->Column == c)
         if (node->Floor == f)
            return node->Number;
   }

   return -1;
}

int STable3D::Push4 (int r, int c, int f, int t)
{
#ifdef MFEM_DEBUG
   if (r == c || r == f || r == t || c == f || c == t || f == t)
   {
      cerr << "STable3D::Push4 : r = " << r << ", c = " << c << ", f = "
           << f << ", t = " << t << endl;
      mfem_error();
   }
#endif

   int i = 0;
   int max = r;

   if (max < c) max = c, i = 1;
   if (max < f) max = f, i = 2;
   if (max < t) max = t, i = 3;

   switch(i) {
   case 0:
      return Push (c,f,t);
   case 1:
      return Push (r,f,t);
   case 2:
      return Push (r,c,t);
   case 3:
      return Push (r,c,f);
   }

   return -1;
}

int STable3D::operator() (int r, int c, int f, int t) const
{
   int i = 0;
   int max = r;

   if (max < c) max = c, i = 1;
   if (max < f) max = f, i = 2;
   if (max < t) max = t, i = 3;

   switch(i) {
   case 0:
      return (*this)(c,f,t);
   case 1:
      return (*this)(r,f,t);
   case 2:
      return (*this)(r,c,t);
   case 3:
      return (*this)(r,c,f);
   }

   return -1;
}

STable3D::~STable3D ()
{
#ifdef MFEM_USE_MEMALLOC
   // NodesMem.Clear();  // this is done implicitly
#else
   for (int i = 0; i < Size; i++)
   {
      STable3DNode *aux, *node_p = Rows[i];
      while (node_p != NULL)
      {
         aux = node_p;
         node_p = node_p->Prev;
         delete aux;
      }
   }
#endif
   delete [] Rows;
}