BandArpackppSOE.h

//----------------------------------------------------------------------------
//  XC program; finite element analysis code
//  for structural analysis and design.
//
//  Copyright (C)  Luis Claudio Pérez Tato
//
//  This program derives from OpenSees <http://opensees.berkeley.edu>
//  developed by the  «Pacific earthquake engineering research center».
//
//  Except for the restrictions that may arise from the copyright
//  of the original program (see copyright_opensees.txt)
//  XC is free software: you can redistribute it and/or modify
//  it under the terms of the GNU General Public License as published by
//  the Free Software Foundation, either version 3 of the License, or 
//  (at your option) any later version.
//
//  This software is distributed in the hope that it will be useful, but 
//  WITHOUT ANY WARRANTY; without even the implied warranty of
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//  GNU General Public License for more details. 
//
//
// You should have received a copy of the GNU General Public License 
// along with this program.
// If not, see <http://www.gnu.org/licenses/>.
//----------------------------------------------------------------------------
//BandArpackppSOE.h

#ifndef BandArpackppSOE_h
#define BandArpackppSOE_h

#include <solution/system_of_eqn/eigenSOE/ArpackSOE.h>
#include "xc_basic/src/matrices/matdispZ.h"

typedef matdispZ<double> msp_double;

namespace XC {
class BandArpackppSolver;

//
class BandArpackppSOE : public ArpackSOE
  {
  private:
    msp_double A;
    msp_double M;
    
    int addToMatrix(msp_double &,const Matrix &, const ID &,const double &);
  protected:
    bool setSolver(EigenSolver *);

    friend class SoluMethod;
    friend class FEM_ObjectBroker;
    BandArpackppSOE(SoluMethod *,const double &shift = -1.0);
    SystemOfEqn *getCopy(void) const;
  public:
    virtual int setSize(Graph &theGraph);
    
    virtual int addA(const Matrix &, const ID &, double fact = 1.0);
    virtual int addM(const Matrix &, const ID &, double fact = 1.0);    
   
    virtual void zeroA(void);
    virtual void zeroM(void);
    virtual void identityM(void);

    inline const msp_double &getA(void) const
      { return A; }
    inline const msp_double &getM(void) const
      { return M; }
    
    int sendSelf(CommParameters &);
    int recvSelf(const CommParameters &);    

    friend class BandArpackppSolver;
  };
inline SystemOfEqn *BandArpackppSOE::getCopy(void) const
  { return new BandArpackppSOE(*this); }
} // end of XC namespace

#endif