Nektar::Collections::PhysDeriv_StdMat Class Reference

Phys deriv operator using standard matrix approach. More...

Inheritance diagram for Nektar::Collections::PhysDeriv_StdMat:

Collaboration diagram for Nektar::Collections::PhysDeriv_StdMat:

Public Member Functions
virtual	~PhysDeriv_StdMat ()
virtual void	operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output0, Array< OneD, NekDouble > &output1, Array< OneD, NekDouble > &output2, Array< OneD, NekDouble > &wsp)
	Perform operation. More...
virtual void	operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp)
Public Member Functions inherited from Nektar::Collections::Operator
	Operator (std::vector< StdRegions::StdExpansionSharedPtr > pCollExp, boost::shared_ptr< CoalescedGeomData > GeomData)
	Constructor. More...
virtual COLLECTIONS_EXPORT	~Operator ()
int	GetWspSize ()
	Get the size of the required workspace. More...

Protected Attributes
Array< OneD, DNekMatSharedPtr >	m_derivMat
Array< TwoD, const NekDouble >	m_derivFac
int	m_dim
int	m_coordim
Protected Attributes inherited from Nektar::Collections::Operator
StdRegions::StdExpansionSharedPtr	m_stdExp
unsigned int	m_numElmt
unsigned int	m_wspSize

Private Member Functions
	PhysDeriv_StdMat (vector< StdRegions::StdExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData)

Detailed Description

Phys deriv operator using standard matrix approach.

Definition at line 56 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

virtual Nektar::Collections::PhysDeriv_StdMat::~PhysDeriv_StdMat ( )

inlinevirtual

Definition at line 61 of file PhysDeriv.cpp.

        {
        }

Nektar::Collections::PhysDeriv_StdMat::PhysDeriv_StdMat ( vector< StdRegions::StdExpansionSharedPtr >  pCollExp, CoalescedGeomDataSharedPtr  pGeomData  )

inlineprivate

Definition at line 152 of file PhysDeriv.cpp.

References Vmath::Vcopy(), and Vmath::Zero().

            : Operator(pCollExp, pGeomData)
        {
            int nqtot = 1;
            LibUtilities::PointsKeyVector PtsKey = m_stdExp->GetPointsKeys();
            m_dim = PtsKey.size();
            m_coordim = m_stdExp->GetCoordim();

            for(int i = 0; i < m_dim; ++i)
            {
                nqtot *= PtsKey[i].GetNumPoints();
            }
            // set up a PhysDeriv StdMat.
            m_derivMat = Array<OneD, DNekMatSharedPtr>(m_dim);
            for(int i = 0; i < m_dim; ++i)
            {
                Array<OneD, NekDouble> tmp(nqtot),tmp1(nqtot);
                m_derivMat[i] = MemoryManager<DNekMat>
                                            ::AllocateSharedPtr(nqtot,nqtot);
                for(int j = 0; j < nqtot; ++j)
                {
                    Vmath::Zero(nqtot,tmp,1);
                    tmp[j] = 1.0;
                    m_stdExp->PhysDeriv(i,tmp,tmp1);
                    Vmath::Vcopy(nqtot, &tmp1[0], 1,
                                 &(m_derivMat[i]->GetPtr())[0] + j*nqtot, 1);
                }
            }
            m_derivFac = pGeomData->GetDerivFactors(pCollExp);
            m_wspSize = 3*nqtot*m_numElmt;
        }

Member Function Documentation

virtual void Nektar::Collections::PhysDeriv_StdMat::operator() ( const Array< OneD, const NekDouble > &  input, Array< OneD, NekDouble > &  output0, Array< OneD, NekDouble > &  output1, Array< OneD, NekDouble > &  output2, Array< OneD, NekDouble > &  wsp  )

inlinevirtual

Perform operation.

Implements Nektar::Collections::Operator.

Definition at line 65 of file PhysDeriv.cpp.

References Vmath::Vvtvp(), and Vmath::Zero().

        {
            int nPhys = m_stdExp->GetTotPoints();
            int ntot = m_numElmt*nPhys;
            Array<OneD, NekDouble> tmp0,tmp1,tmp2;
            Array<OneD, Array<OneD, NekDouble> > Diff(3);
            Array<OneD, Array<OneD, NekDouble> > out(3);
            out[0] = output0;  out[1] = output1;    out[2] = output2;

            for(int i = 0; i < m_dim; ++i)
            {
                Diff[i] = wsp + i*ntot;
            }

            // calculate local derivatives
            for(int i = 0; i < m_dim; ++i)
            {
                Blas::Dgemm('N', 'N', m_derivMat[i]->GetRows(), m_numElmt,
                            m_derivMat[i]->GetColumns(), 1.0,
                            m_derivMat[i]->GetRawPtr(),
                            m_derivMat[i]->GetRows(), input.get(), nPhys,
                            0.0, &Diff[i][0],nPhys);
            }

            // calculate full derivative
            for(int i = 0; i < m_coordim; ++i)
            {
                Vmath::Zero(ntot,out[i],1);
                for(int j = 0; j < m_dim; ++j)
                {
                    Vmath::Vvtvp (ntot, m_derivFac[i*m_dim+j], 1,
                                        Diff[j],               1,
                                        out[i],                1,
                                        out[i],                1);
                }
            }
        }

virtual void Nektar::Collections::PhysDeriv_StdMat::operator() ( int  dir, const Array< OneD, const NekDouble > &  input, Array< OneD, NekDouble > &  output, Array< OneD, NekDouble > &  wsp  )

inlinevirtual

Implements Nektar::Collections::Operator.

Definition at line 108 of file PhysDeriv.cpp.

References Vmath::Vvtvp(), and Vmath::Zero().

        {
            int nPhys = m_stdExp->GetTotPoints();
            int ntot = m_numElmt*nPhys;
            Array<OneD, NekDouble> tmp0,tmp1,tmp2;
            Array<OneD, Array<OneD, NekDouble> > Diff(3);

            for(int i = 0; i < m_dim; ++i)
            {
                Diff[i] = wsp + i*ntot;
            }

            // calculate local derivatives
            for(int i = 0; i < m_dim; ++i)
            {
                Blas::Dgemm('N', 'N', m_derivMat[i]->GetRows(), m_numElmt,
                            m_derivMat[i]->GetColumns(), 1.0,
                            m_derivMat[i]->GetRawPtr(),
                            m_derivMat[i]->GetRows(), input.get(), nPhys,
                            0.0, &Diff[i][0],nPhys);
            }

            // calculate full derivative
            Vmath::Zero(ntot,output,1);
            for(int j = 0; j < m_dim; ++j)
            {
                Vmath::Vvtvp (ntot, m_derivFac[dir*m_dim+j], 1,
                                    Diff[j],               1,
                                    output,                1,
                                    output,                1);
            }
        }

Member Data Documentation

int Nektar::Collections::PhysDeriv_StdMat::m_coordim

protected

Definition at line 149 of file PhysDeriv.cpp.

Array<TwoD, const NekDouble> Nektar::Collections::PhysDeriv_StdMat::m_derivFac

protected

Definition at line 147 of file PhysDeriv.cpp.

Array<OneD, DNekMatSharedPtr> Nektar::Collections::PhysDeriv_StdMat::m_derivMat

protected

Definition at line 146 of file PhysDeriv.cpp.

int Nektar::Collections::PhysDeriv_StdMat::m_dim

protected

Definition at line 148 of file PhysDeriv.cpp.