Nektar::Collections::BwdTrans_SumFac_Pyr Class Reference

Backward transform operator using sum-factorisation (Pyr) More...

Inheritance diagram for Nektar::Collections::BwdTrans_SumFac_Pyr:

Public Member Functions
virtual	~BwdTrans_SumFac_Pyr ()
virtual void	operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, 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, std::shared_ptr< CoalescedGeomData > GeomData)
	Constructor. More...
virtual COLLECTIONS_EXPORT	~Operator ()
int	GetWspSize ()
	Get the size of the required workspace. More...

Protected Attributes
const int	m_nquad0
const int	m_nquad1
const int	m_nquad2
const int	m_nmodes0
const int	m_nmodes1
const int	m_nmodes2
Array< OneD, const NekDouble >	m_base0
Array< OneD, const NekDouble >	m_base1
Array< OneD, const NekDouble >	m_base2
bool	m_sortTopVertex
Protected Attributes inherited from Nektar::Collections::Operator
StdRegions::StdExpansionSharedPtr	m_stdExp
unsigned int	m_numElmt
unsigned int	m_wspSize

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

Detailed Description

Backward transform operator using sum-factorisation (Pyr)

Definition at line 1050 of file BwdTrans.cpp.

Constructor & Destructor Documentation

~BwdTrans_SumFac_Pyr()

virtual Nektar::Collections::BwdTrans_SumFac_Pyr::~BwdTrans_SumFac_Pyr ( )

inlinevirtual

Definition at line 1055 of file BwdTrans.cpp.

        {
        }

BwdTrans_SumFac_Pyr()

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

inlineprivate

Definition at line 1177 of file BwdTrans.cpp.

References Nektar::StdRegions::eBwdTrans, Nektar::LibUtilities::eModified_A, Nektar::LibUtilities::ePyramid, Nektar::Collections::eSumFac, and Nektar::Collections::GetOperatorFactory().

            : Operator  (pCollExp, pGeomData),
              m_nquad0  (m_stdExp->GetNumPoints(0)),
              m_nquad1  (m_stdExp->GetNumPoints(1)),
              m_nquad2  (m_stdExp->GetNumPoints(2)),
              m_nmodes0 (m_stdExp->GetBasisNumModes(0)),
              m_nmodes1 (m_stdExp->GetBasisNumModes(1)),
              m_nmodes2 (m_stdExp->GetBasisNumModes(2)),
              m_base0   (m_stdExp->GetBasis(0)->GetBdata()),
              m_base1   (m_stdExp->GetBasis(1)->GetBdata()),
              m_base2   (m_stdExp->GetBasis(2)->GetBdata())
        {
            m_wspSize = m_numElmt*m_nmodes0*m_nquad2*(m_nmodes1 + m_nquad1);

            if(m_stdExp->GetBasis(0)->GetBasisType()
                    == LibUtilities::eModified_A)
            {
                m_sortTopVertex = true;
            }
            else
            {
                m_sortTopVertex = false;
            }

        }

Member Function Documentation

operator()() [1/2]

virtual void Nektar::Collections::BwdTrans_SumFac_Pyr::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 1059 of file BwdTrans.cpp.

References ASSERTL1, Blas::Daxpy(), Blas::Dgemm(), and Vmath::Zero().

        {
            boost::ignore_unused(output1, output2);

            ASSERTL1(wsp.num_elements() == m_wspSize,
                    "Incorrect workspace size");

            // Assign second half of workspace for 2nd DGEMM operation.
            int totmodes  = m_stdExp->GetNcoeffs();

            Array<OneD, NekDouble> wsp2
                    = wsp + m_nmodes0*m_nmodes1*m_nquad2*m_numElmt;

            Vmath::Zero(m_nmodes0*m_nmodes1*m_nquad2*m_numElmt, wsp, 1);
            int i     = 0;
            int j     = 0;
            int mode  = 0;
            int mode1 = 0;
            int cnt   = 0;
            for (i = 0; i < m_nmodes0; ++i)
            {
                for (j = 0; j < m_nmodes1; ++j, ++cnt)
                {
                    int ijmax = max(i,j);
                    Blas::Dgemm('N', 'N', m_nquad2, m_numElmt, m_nmodes2-ijmax,
                                1.0,  m_base2.get()+mode*m_nquad2, m_nquad2,
                                input.get()+mode1, totmodes, 0.0,
                                wsp.get() + cnt*m_nquad2*m_numElmt, m_nquad2);
                    mode  += m_nmodes2-ijmax;
                    mode1 += m_nmodes2-ijmax;
                }

                //increment mode in case order1!=order2
                for(j = m_nmodes1; j < m_nmodes2-i; ++j)
                {
                    int ijmax = max(i,j);
                    mode += m_nmodes2-ijmax;
                }
            }

            // vertex mode - currently (1+c)/2 x (1-b)/2 x (1-a)/2
            // component is evaluated
            if(m_sortTopVertex)
            {
                for(i = 0; i < m_numElmt; ++i)
                {
                    // top singular vertex
                    // (1+c)/2 x (1+b)/2 x (1-a)/2 component
                    Blas::Daxpy(m_nquad2, input[1+i*totmodes],
                                m_base2.get() + m_nquad2, 1,
                                &wsp[m_nquad2*m_numElmt] + i*m_nquad2, 1);

                    // top singular vertex
                    // (1+c)/2 x (1-b)/2 x (1+a)/2 component
                    Blas::Daxpy(m_nquad2, input[1+i*totmodes],
                                m_base2.get() + m_nquad2, 1,
                                &wsp[m_nmodes1*m_nquad2*m_numElmt]
                                + i*m_nquad2, 1);

                    // top singular vertex
                    // (1+c)/2 x (1+b)/2 x (1+a)/2 component
                    Blas::Daxpy(m_nquad2, input[1+i*totmodes],
                                m_base2.get() + m_nquad2, 1,
                                &wsp[(m_nmodes1+1)*m_nquad2*m_numElmt]
                                + i*m_nquad2, 1);

                }
            }

            // Perform summation over '1' direction
            mode = 0;
            for(i = 0; i < m_nmodes0; ++i)
            {
                Blas::Dgemm('N', 'T', m_nquad1, m_nquad2*m_numElmt, m_nmodes1,
                            1.0, m_base1.get(), m_nquad1,
                            wsp.get() + mode*m_nquad2*m_numElmt,
                            m_nquad2*m_numElmt,
                            0.0, wsp2.get() + i*m_nquad1*m_nquad2*m_numElmt,
                            m_nquad1);
                mode += m_nmodes1;
            }

            // Perform summation over '0' direction
            Blas::Dgemm('N', 'T', m_nquad0, m_nquad1*m_nquad2*m_numElmt,
                        m_nmodes0, 1.0, m_base0.get(),  m_nquad0,
                        wsp2.get(), m_nquad1*m_nquad2*m_numElmt,
                        0.0, output.get(), m_nquad0);
        }

operator()() [2/2]

virtual void Nektar::Collections::BwdTrans_SumFac_Pyr::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 1153 of file BwdTrans.cpp.

References ASSERTL0.

        {
            boost::ignore_unused(dir, input, output, wsp);
            ASSERTL0(false, "Not valid for this operator.");
        }

Member Data Documentation

m_base0

Array<OneD, const NekDouble> Nektar::Collections::BwdTrans_SumFac_Pyr::m_base0

protected

Definition at line 1171 of file BwdTrans.cpp.

m_base1

Array<OneD, const NekDouble> Nektar::Collections::BwdTrans_SumFac_Pyr::m_base1

protected

Definition at line 1172 of file BwdTrans.cpp.

m_base2

Array<OneD, const NekDouble> Nektar::Collections::BwdTrans_SumFac_Pyr::m_base2

protected

Definition at line 1173 of file BwdTrans.cpp.

m_nmodes0

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nmodes0

protected

Definition at line 1168 of file BwdTrans.cpp.

m_nmodes1

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nmodes1

protected

Definition at line 1169 of file BwdTrans.cpp.

m_nmodes2

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nmodes2

protected

Definition at line 1170 of file BwdTrans.cpp.

m_nquad0

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nquad0

protected

Definition at line 1165 of file BwdTrans.cpp.

m_nquad1

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nquad1

protected

Definition at line 1166 of file BwdTrans.cpp.

m_nquad2

const int Nektar::Collections::BwdTrans_SumFac_Pyr::m_nquad2

protected

Definition at line 1167 of file BwdTrans.cpp.

m_sortTopVertex

bool Nektar::Collections::BwdTrans_SumFac_Pyr::m_sortTopVertex

protected

Definition at line 1174 of file BwdTrans.cpp.