itkFEMLinearSystemWrapperItpack.h

Go to the documentation of this file.

/*=========================================================================

  Program:   Insight Segmentation & Registration Toolkit
  Module:    $RCSfile: itkFEMLinearSystemWrapperItpack.h,v $
  Language:  C++
  Date:      $Date: 2002/06/03 18:34:03 $
  Version:   $Revision: 1.6 $

  Copyright (c) 2002 Insight Consortium. All rights reserved.
  See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.

     This software is distributed WITHOUT ANY WARRANTY; without even 
     the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR 
     PURPOSE.  See the above copyright notices for more information.

=========================================================================*/

#ifndef __itkFEMLinearSystemWrapperItpack_h
#define __itkFEMLinearSystemWrapperItpack_h

#include "itpack_f2c.h"
#include "itpack.h"
#include "itkFEMSolution.h"
#include "itkFEMLinearSystemWrapper.h"
#include "itkFEMItpackSparseMatrix.h"
#include <vector>


namespace itk {
namespace fem {

class LinearSystemWrapperItpack : public LinearSystemWrapper
{
public:
 
  typedef LinearSystemWrapperItpack Self;

  typedef LinearSystemWrapper Superclass;

  typedef itpack::integer integer;
  
  typedef itpack::doublereal doublereal;

  typedef ItpackSparseMatrix MatrixRepresentation;

  typedef std::vector<MatrixRepresentation> MatrixHolder;

  /* auto pointer to vector of matrices typedef */
  /* typedef std::auto_ptr<MatrixHolder> MatrixArrayPtr; */

  /* typedef std::auto_ptr<doublereal> VectorRepresentation; */
  typedef doublereal* VectorRepresentation;

  typedef std::vector<VectorRepresentation> VectorHolder;

  /* auto pointer to vector of vectors typedef */
  /* typedef std::auto_ptr<VectorHolder> VectorArrayPtr; */

  /* pointer to array of unsigned int typedef */
  /* typedef std::auto_ptr<unsigned int> UnsignedIntegerArrayPtr; */

  /* -----------------------------------------------------------------
   * 
   * Routines for setting/reporting itpack parameters 
   *
   * ----------------------------------------------------------------- 
   */

  void SetMaximumNumberIterations(integer i) {   m_IPARM[0] = i; }

  integer  GetMaximumNumberIterations() { return m_IPARM[0]; }

  //void SetErrorReportingLevel(integer i) {   m_IPARM[1] = i; }

  integer  GetErrorReportingLevel() { return m_IPARM[1]; }

  void SetCommunicationSwitch(integer i) {   m_IPARM[2] = i; }

  integer  GetCommunicationSwitch() { return m_IPARM[2]; }

  //void SetOutputNumber(integer i) {   m_IPARM[3] = i; }

  integer  GetOutputNumber() { return m_IPARM[3]; }

  void SetSymmetricMatrixFlag(integer i) {   m_IPARM[4] = i; }

  integer  GetSymmetricMatrixFlag() { return m_IPARM[4]; }

  void SetAdaptiveSwitch(integer i) {   m_IPARM[5] = i; }

  integer  GetAdaptiveSwitch() { return m_IPARM[5]; }

  void SetAdaptiveCaseSwitch(integer i) {   m_IPARM[6] = i; }

  integer  GetAdaptiveCaseSwitch() { return m_IPARM[6]; }

  void SetWorkspaceUsed(integer i) {   m_IPARM[7] = i; }

  integer  GetWorkspaceUsed() { return m_IPARM[7]; }

  void SetRedBlackOrderingSwitch(integer i) {   m_IPARM[8] = i; }

  integer  GetRedBlackOrderingSwitch() { return m_IPARM[8]; }

  void SetRemoveSwitch(integer i) {   m_IPARM[9] = i; }

  integer  GetRemoveSwitch() { return m_IPARM[9]; }

  void SetTimingSwitch(integer i) {   m_IPARM[10] = i; }

  integer  GetTimingSwitch() { return m_IPARM[10]; }

  void SetErrorAnalysisSwitch(integer i) {   m_IPARM[11] = i; }

  integer  GetErrorAnalysisSwitch() { return m_IPARM[11]; }

  void   SetAccuracy(doublereal i) {   m_RPARM[0] = i; }

  doublereal GetAccuracy()    { return m_RPARM[0]; }

  void   SetLargestJacobiEigenvalueEstimate(doublereal i) {   m_RPARM[1] = i; }

  doublereal GetLargestJacobiEigenvalueEstimate()    { return m_RPARM[1]; }

  void   SetSmallestJacobiEigenvalueEstimate(doublereal i) {   m_RPARM[2] = i; }

  doublereal GetSmallestJacobiEigenvalueEstimate()    { return m_RPARM[2]; }

  void   SetDampingFactor(doublereal i) {   m_RPARM[3] = i; }

  doublereal GetDampingFactor()    { return m_RPARM[3]; }

  void   SetOverrelaxationParameter(doublereal i) {   m_RPARM[4] = i; }

  doublereal GetOverrelaxationParameter()    { return m_RPARM[4]; }

  void   SetEstimatedSpectralRadiusSSOR(doublereal i) {   m_RPARM[5] = i; }

  doublereal GetEstimatedSpectralRadiusSSOR()    { return m_RPARM[5]; }

  void   SetEstimatedSpectralRadiusLU(doublereal i) {   m_RPARM[6] = i; }

  doublereal GetEstimatedSpectralRadiusLU()    { return m_RPARM[6]; }

  void   SetTolerance(doublereal i) {   m_RPARM[7] = i; }

  doublereal GetTolerance()    { return m_RPARM[7]; }

  void   SetTimeToConvergence(doublereal i) {   m_RPARM[8] = i; }

  doublereal GetTimeToConvergence()    { return m_RPARM[8]; }

  void   SetTimeForCall(doublereal i) {   m_RPARM[9] = i; }

  doublereal GetTimeForCall()    { return m_RPARM[9]; }

  void   SetDigitsInError(doublereal i) {   m_RPARM[10] = i; }

  doublereal GetDigitsInError()    { return m_RPARM[10]; }

  void   SetDigitsInResidual(doublereal i) {   m_RPARM[11] = i; }

  doublereal GetDigitsInResidual()    { return m_RPARM[11]; }

  void JacobianConjugateGradient() { m_Method = 0; }

  void JacobianSemiIterative() { m_Method = 1; }

  void SuccessiveOverrelaxation() { m_Method = 2; }

  void SymmetricSuccessiveOverrelaxationConjugateGradient() { m_Method = 3; }

  void SymmetricSuccessiveOverrelaxationSuccessiveOverrelaxation() { m_Method = 4; }

  void ReducedSystemConjugateGradient() { m_Method = 5; }

  void ReducedSystemSemiIteration() { m_Method = 6; }


  /* -----------------------------------------------------------------
   * 
   * Redefine methods defined in LinearSystemWrapper 
   *
   * ----------------------------------------------------------------- 
   */

  virtual void SetMaximumNonZeroValuesInMatrix(unsigned int maxNonZeroValues) {m_MaximumNonZeroValues = maxNonZeroValues;}


  void ScaleMatrix(Float scale, unsigned int matrixIndex);


  /* -----------------------------------------------------------------
   * 
   * Functions required by LinearSystemWrapper 
   *
   * ----------------------------------------------------------------- 
   */

  LinearSystemWrapperItpack();
  
  ~LinearSystemWrapperItpack();


  /* memory management routines */
  virtual void  InitializeMatrix(unsigned int matrixIndex);  

  virtual bool  IsMatrixInitialized(unsigned int matrixIndex);

  virtual void  DestroyMatrix(unsigned int matrixIndex);

  virtual void  InitializeVector(unsigned int vectorIndex);

  virtual bool  IsVectorInitialized(unsigned int vectorIndex);

  virtual void  DestroyVector(unsigned int vectorIndex);

  virtual void  InitializeSolution(unsigned int solutionIndex);

  virtual bool  IsSolutionInitialized(unsigned int solutionIndex);

  virtual void  DestroySolution(unsigned int solutionIndex);

  /* assembly & solving routines */
  virtual Float GetMatrixValue(unsigned int i, unsigned int j, unsigned int matrixIndex) const;

  virtual void  SetMatrixValue(unsigned int i, unsigned int j, Float value, unsigned int matrixIndex);

  virtual void  AddMatrixValue(unsigned int i, unsigned int j, Float value, unsigned int matrixIndex);

  virtual void GetColumnsOfNonZeroMatrixElementsInRow( unsigned int row, ColumnArray& cols, unsigned int matrixIndex );

  virtual Float GetVectorValue(unsigned int i, unsigned int vectorIndex) const;

  virtual void  SetVectorValue(unsigned int i, Float value, unsigned int vectorIndex);

  virtual void  AddVectorValue(unsigned int i, Float value, unsigned int vectorIndex);

  virtual Float GetSolutionValue(unsigned int i, unsigned int solutionIndex) const;

  virtual void  SetSolutionValue(unsigned int i, Float value, unsigned int solutionIndex);

  virtual void  AddSolutionValue(unsigned int i, Float value, unsigned int solutionIndex);

  virtual void  Solve(void);


  /* matrix & vector manipulation routines */
  virtual void  SwapMatrices(unsigned int matrixIndex1, unsigned int matrixIndex2);

  virtual void  SwapVectors(unsigned int vectorIndex1, unsigned int vectorIndex2);

  virtual void  SwapSolutions(unsigned int solutionIndex1, unsigned int solutionIndex2);

  virtual void  CopySolution2Vector(unsigned solutionIndex, unsigned int vectorIndex);

  virtual void  CopyVector2Solution(unsigned int vectorIndex, unsigned int solutionIndex);

  virtual void  MultiplyMatrixMatrix(unsigned int resultMatrixIndex, unsigned int leftMatrixIndex, unsigned int rightMatrixIndex);

  virtual void  MultiplyMatrixVector(unsigned int resultVectorIndex, unsigned int matrixIndex, unsigned int vectorIndex);

private:

  MatrixHolder *m_Matrices;

  VectorHolder *m_Vectors;

  VectorHolder *m_Solutions;

  //UnsignedIntegerArrayPtr m_MaximumNonZeroValues;
  unsigned int m_MaximumNonZeroValues;

  int (*m_Methods[7])(integer *, integer *, integer *, doublereal *, doublereal *, doublereal *, integer *, integer *, doublereal *, 
       integer *, doublereal *, integer *);

  integer m_Method;

  integer m_IPARM[12];

  doublereal m_RPARM[12];

};

class FEMExceptionItpackSolver : public FEMException
{
public:
  FEMExceptionItpackSolver(const char *file, unsigned int lineNumber, std::string location, itpack::integer errorCode);
 
  virtual ~FEMExceptionItpackSolver() throw() {}
  
  itkTypeMacro(FEMExceptionItpackSolver,FEMException);
  
};



}} // end namespace itk::fem

#endif // #ifndef __itkFEMLinearSystemWrapperItpack_h

---