Nektar++
Public Member Functions | Protected Attributes | Private Member Functions | List of all members
Nektar::Collections::PhysDeriv_SumFac_Prism Class Referencefinal

Phys deriv operator using sum-factorisation (Prism) More...

Inheritance diagram for Nektar::Collections::PhysDeriv_SumFac_Prism:
[legend]

Public Member Functions

 ~PhysDeriv_SumFac_Prism () final
 
void operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output0, Array< OneD, NekDouble > &output1, Array< OneD, NekDouble > &output2, Array< OneD, NekDouble > &wsp) override final
 Perform operation. More...
 
void operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp) override final
 
virtual void CheckFactors (StdRegions::FactorMap factors, int coll_phys_offset) override
 Check the validity of the supplied factor map. More...
 
- Public Member Functions inherited from Nektar::Collections::Operator
 Operator (std::vector< StdRegions::StdExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
 Constructor. More...
 
virtual COLLECTIONS_EXPORT void operator() (const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output0, Array< OneD, NekDouble > &output1, Array< OneD, NekDouble > &output2, Array< OneD, NekDouble > &wsp=NullNekDouble1DArray)=0
 Perform operation. More...
 
virtual COLLECTIONS_EXPORT void operator() (int dir, const Array< OneD, const NekDouble > &input, Array< OneD, NekDouble > &output, Array< OneD, NekDouble > &wsp=NullNekDouble1DArray)=0
 
virtual COLLECTIONS_EXPORT ~Operator ()
 
virtual COLLECTIONS_EXPORT void CheckFactors (StdRegions::FactorMap factors, int coll_phys_offset)=0
 Check the validity of the supplied factor map. More...
 
unsigned int GetWspSize ()
 Get the size of the required workspace. More...
 
unsigned int GetNumElmt ()
 Get expansion pointer. More...
 
StdRegions::StdExpansionSharedPtr GetExpSharedPtr ()
 Get expansion pointer. More...
 

Protected Attributes

Array< TwoD, const NekDouble > m_derivFac
 
int m_coordim
 
const int m_nquad0
 
const int m_nquad1
 
const int m_nquad2
 
NekDouble * m_Deriv0
 
NekDouble * m_Deriv1
 
NekDouble * m_Deriv2
 
Array< OneD, NekDouble > m_fac0
 
Array< OneD, NekDouble > m_fac1
 
- Protected Attributes inherited from Nektar::Collections::Operator
bool m_isDeformed
 
StdRegions::StdExpansionSharedPtr m_stdExp
 
unsigned int m_numElmt
 
unsigned int m_nqe
 
unsigned int m_wspSize
 

Private Member Functions

 PhysDeriv_SumFac_Prism (vector< StdRegions::StdExpansionSharedPtr > pCollExp, CoalescedGeomDataSharedPtr pGeomData, StdRegions::FactorMap factors)
 

Detailed Description

Phys deriv operator using sum-factorisation (Prism)

Definition at line 1768 of file PhysDeriv.cpp.

Constructor & Destructor Documentation

◆ ~PhysDeriv_SumFac_Prism()

Nektar::Collections::PhysDeriv_SumFac_Prism::~PhysDeriv_SumFac_Prism ( )
inlinefinal

Definition at line 1773 of file PhysDeriv.cpp.

1774 {
1775 }

◆ PhysDeriv_SumFac_Prism()

Nektar::Collections::PhysDeriv_SumFac_Prism::PhysDeriv_SumFac_Prism ( vector< StdRegions::StdExpansionSharedPtr >  pCollExp,
CoalescedGeomDataSharedPtr  pGeomData,
StdRegions::FactorMap  factors 
)
inlineprivate

Definition at line 1966 of file PhysDeriv.cpp.

1969 : Operator(pCollExp, pGeomData, factors),
1970 m_nquad0(m_stdExp->GetNumPoints(0)),
1971 m_nquad1(m_stdExp->GetNumPoints(1)),
1972 m_nquad2(m_stdExp->GetNumPoints(2))
1973 {
1974 LibUtilities::PointsKeyVector PtsKey = m_stdExp->GetPointsKeys();
1975
1976 m_coordim = pCollExp[0]->GetCoordim();
1977
1978 m_derivFac = pGeomData->GetDerivFactors(pCollExp);
1979
1980 const Array<OneD, const NekDouble> &z0 = m_stdExp->GetBasis(0)->GetZ();
1981 const Array<OneD, const NekDouble> &z2 = m_stdExp->GetBasis(2)->GetZ();
1982 m_fac0 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1983 m_fac1 = Array<OneD, NekDouble>(m_nquad0 * m_nquad1 * m_nquad2);
1984 for (int i = 0; i < m_nquad0; ++i)
1985 {
1986 for (int j = 0; j < m_nquad1; ++j)
1987 {
1988 for (int k = 0; k < m_nquad2; ++k)
1989 {
1990 m_fac0[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1991 2.0 / (1 - z2[k]);
1992 m_fac1[i + j * m_nquad0 + k * m_nquad0 * m_nquad1] =
1993 0.5 * (1 + z0[i]);
1994 }
1995 }
1996 }
1997
1998 m_Deriv0 = &((m_stdExp->GetBasis(0)->GetD())->GetPtr())[0];
1999 m_Deriv1 = &((m_stdExp->GetBasis(1)->GetD())->GetPtr())[0];
2000 m_Deriv2 = &((m_stdExp->GetBasis(2)->GetD())->GetPtr())[0];
2001
2002 m_wspSize = 3 * m_nquad0 * m_nquad1 * m_nquad2 * m_numElmt;
2003 }
Nektar::Collections::Operator::m_stdExp
StdRegions::StdExpansionSharedPtr m_stdExp
Definition: Operator.h:165
Nektar::Collections::Operator::Operator
Operator(std::vector< StdRegions::StdExpansionSharedPtr > pCollExp, std::shared_ptr< CoalescedGeomData > GeomData, StdRegions::FactorMap factors)
Constructor.
Definition: Operator.cpp:43
Nektar::Collections::PhysDeriv_SumFac_Prism::m_fac1
Array< OneD, NekDouble > m_fac1
Definition: PhysDeriv.cpp:1963
Nektar::Collections::PhysDeriv_SumFac_Prism::m_derivFac
Array< TwoD, const NekDouble > m_derivFac
Definition: PhysDeriv.cpp:1954
Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad1
const int m_nquad1
Definition: PhysDeriv.cpp:1957
Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad2
const int m_nquad2
Definition: PhysDeriv.cpp:1958
Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv2
NekDouble * m_Deriv2
Definition: PhysDeriv.cpp:1961
Nektar::Collections::PhysDeriv_SumFac_Prism::m_fac0
Array< OneD, NekDouble > m_fac0
Definition: PhysDeriv.cpp:1962
Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv1
NekDouble * m_Deriv1
Definition: PhysDeriv.cpp:1960
Nektar::Collections::PhysDeriv_SumFac_Prism::m_coordim
int m_coordim
Definition: PhysDeriv.cpp:1955
Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad0
const int m_nquad0
Definition: PhysDeriv.cpp:1956
Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv0
NekDouble * m_Deriv0
Definition: PhysDeriv.cpp:1959
Nektar::LibUtilities::PointsKeyVector
std::vector< PointsKey > PointsKeyVector
Definition: Points.h:236
Nektar::VarcoeffHashingTest::factors
StdRegions::ConstFactorMap factors
Definition: TestVarcoeffHashing.cpp:52

References m_coordim, m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, m_nquad0, m_nquad1, m_nquad2, Nektar::Collections::Operator::m_numElmt, Nektar::Collections::Operator::m_stdExp, and Nektar::Collections::Operator::m_wspSize.

Member Function Documentation

◆ CheckFactors()

virtual void Nektar::Collections::PhysDeriv_SumFac_Prism::CheckFactors ( StdRegions::FactorMap  factors,
int  coll_phys_offset 
)
inlineoverridevirtual

Check the validity of the supplied factor map.

Implements Nektar::Collections::Operator.

Definition at line 1946 of file PhysDeriv.cpp.

1948 {
1949 boost::ignore_unused(factors, coll_phys_offset);
1950 ASSERTL0(false, "Not valid for this operator.");
1951 }
ASSERTL0
#define ASSERTL0(condition, msg)
Definition: ErrorUtil.hpp:215

References ASSERTL0, and Nektar::VarcoeffHashingTest::factors.

◆ operator()() [1/2]

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

Perform operation.

Implements Nektar::Collections::Operator.

Definition at line 1777 of file PhysDeriv.cpp.

1782 {
1783
1784 int nPhys = m_stdExp->GetTotPoints();
1785 int ntot = m_numElmt * nPhys;
1786 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
1787 Array<OneD, Array<OneD, NekDouble>> Diff(3);
1788 Array<OneD, Array<OneD, NekDouble>> out(3);
1789 out[0] = output0;
1790 out[1] = output1;
1791 out[2] = output2;
1792
1793 for (int i = 0; i < 3; ++i)
1794 {
1795 Diff[i] = wsp + i * ntot;
1796 }
1797
1798 // dEta0
1799 Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_nquad2 * m_numElmt,
1800 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
1801 &Diff[0][0], m_nquad0);
1802
1803 int cnt = 0;
1804 for (int i = 0; i < m_numElmt; ++i)
1805 {
1806
1807 // dEta 1
1808 for (int j = 0; j < m_nquad2; ++j)
1809 {
1810 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1811 &input[i * nPhys + j * m_nquad0 * m_nquad1],
1812 m_nquad0, m_Deriv1, m_nquad1, 0.0,
1813 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
1814 m_nquad0);
1815 }
1816
1817 // dEta 2
1818 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
1819 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
1820 m_nquad2, 0.0, &Diff[2][i * nPhys],
1821 m_nquad0 * m_nquad1);
1822
1823 // dxi0 = 2/(1-eta_2) d Eta_0
1824 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[0].get() + cnt, 1,
1825 Diff[0].get() + cnt, 1);
1826
1827 // dxi2 = (1+eta0)/(1-eta_2) d Eta_0 + d/dEta2;
1828 Vmath::Vvtvp(nPhys, &m_fac1[0], 1, Diff[0].get() + cnt, 1,
1829 Diff[2].get() + cnt, 1, Diff[2].get() + cnt, 1);
1830 cnt += nPhys;
1831 }
1832
1833 // calculate full derivative
1834 if (m_isDeformed)
1835 {
1836 for (int i = 0; i < m_coordim; ++i)
1837 {
1838 Vmath::Vmul(ntot, m_derivFac[i * 3], 1, Diff[0], 1, out[i], 1);
1839 for (int j = 1; j < 3; ++j)
1840 {
1841 Vmath::Vvtvp(ntot, m_derivFac[i * 3 + j], 1, Diff[j], 1,
1842 out[i], 1, out[i], 1);
1843 }
1844 }
1845 }
1846 else
1847 {
1848 Array<OneD, NekDouble> t;
1849 for (int e = 0; e < m_numElmt; ++e)
1850 {
1851 for (int i = 0; i < m_coordim; ++i)
1852 {
1853 Vmath::Smul(m_nqe, m_derivFac[i * 3][e],
1854 Diff[0] + e * m_nqe, 1, t = out[i] + e * m_nqe,
1855 1);
1856
1857 for (int j = 1; j < 3; ++j)
1858 {
1859 Vmath::Svtvp(m_nqe, m_derivFac[i * 3 + j][e],
1860 Diff[j] + e * m_nqe, 1, out[i] + e * m_nqe,
1861 1, t = out[i] + e * m_nqe, 1);
1862 }
1863 }
1864 }
1865 }
1866 }
Blas::Dgemm
static void Dgemm(const char &transa, const char &transb, const int &m, const int &n, const int &k, const double &alpha, const double *a, const int &lda, const double *b, const int &ldb, const double &beta, double *c, const int &ldc)
BLAS level 3: Matrix-matrix multiply C = A x B where op(A)[m x k], op(B)[k x n], C[m x n] DGEMM perfo...
Definition: Blas.hpp:385
Vmath::Vmul
void Vmul(int n, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
Multiply vector z = x*y.
Definition: Vmath.cpp:207
Vmath::Svtvp
void Svtvp(int n, const T alpha, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
svtvp (scalar times vector plus vector): z = alpha*x + y
Definition: Vmath.cpp:617
Vmath::Vvtvp
void Vvtvp(int n, const T *w, const int incw, const T *x, const int incx, const T *y, const int incy, T *z, const int incz)
vvtvp (vector times vector plus vector): z = w*x + y
Definition: Vmath.cpp:569
Vmath::Smul
void Smul(int n, const T alpha, const T *x, const int incx, T *y, const int incy)
Scalar multiply y = alpha*x.
Definition: Vmath.cpp:245

References Blas::Dgemm(), m_coordim, m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, Nektar::Collections::Operator::m_isDeformed, Nektar::Collections::Operator::m_nqe, m_nquad0, m_nquad1, m_nquad2, Nektar::Collections::Operator::m_numElmt, Nektar::Collections::Operator::m_stdExp, Vmath::Smul(), Vmath::Svtvp(), Vmath::Vmul(), and Vmath::Vvtvp().

◆ operator()() [2/2]

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

Implements Nektar::Collections::Operator.

Definition at line 1868 of file PhysDeriv.cpp.

1871 {
1872 int nPhys = m_stdExp->GetTotPoints();
1873 int ntot = m_numElmt * nPhys;
1874 Array<OneD, NekDouble> tmp0, tmp1, tmp2;
1875 Array<OneD, Array<OneD, NekDouble>> Diff(3);
1876
1877 for (int i = 0; i < 3; ++i)
1878 {
1879 Diff[i] = wsp + i * ntot;
1880 }
1881
1882 // dEta0
1883 Blas::Dgemm('N', 'N', m_nquad0, m_nquad1 * m_nquad2 * m_numElmt,
1884 m_nquad0, 1.0, m_Deriv0, m_nquad0, &input[0], m_nquad0, 0.0,
1885 &Diff[0][0], m_nquad0);
1886
1887 int cnt = 0;
1888 for (int i = 0; i < m_numElmt; ++i)
1889 {
1890
1891 // dEta 1
1892 for (int j = 0; j < m_nquad2; ++j)
1893 {
1894 Blas::Dgemm('N', 'T', m_nquad0, m_nquad1, m_nquad1, 1.0,
1895 &input[i * nPhys + j * m_nquad0 * m_nquad1],
1896 m_nquad0, m_Deriv1, m_nquad1, 0.0,
1897 &Diff[1][i * nPhys + j * m_nquad0 * m_nquad1],
1898 m_nquad0);
1899 }
1900
1901 // dEta 2
1902 Blas::Dgemm('N', 'T', m_nquad0 * m_nquad1, m_nquad2, m_nquad2, 1.0,
1903 &input[i * nPhys], m_nquad0 * m_nquad1, m_Deriv2,
1904 m_nquad2, 0.0, &Diff[2][i * nPhys],
1905 m_nquad0 * m_nquad1);
1906
1907 // dxi0 = 2/(1-eta_2) d Eta_0
1908 Vmath::Vmul(nPhys, &m_fac0[0], 1, Diff[0].get() + cnt, 1,
1909 Diff[0].get() + cnt, 1);
1910
1911 // dxi2 = (1+eta0)/(1-eta_2) d Eta_0 + d/dEta2;
1912 Vmath::Vvtvp(nPhys, &m_fac1[0], 1, Diff[0].get() + cnt, 1,
1913 Diff[2].get() + cnt, 1, Diff[2].get() + cnt, 1);
1914 cnt += nPhys;
1915 }
1916
1917 // calculate full derivative
1918 if (m_isDeformed)
1919 {
1920 // calculate full derivative
1921 Vmath::Vmul(ntot, m_derivFac[dir * 3], 1, Diff[0], 1, output, 1);
1922 for (int j = 1; j < 3; ++j)
1923 {
1924 Vmath::Vvtvp(ntot, m_derivFac[dir * 3 + j], 1, Diff[j], 1,
1925 output, 1, output, 1);
1926 }
1927 }
1928 else
1929 {
1930 Array<OneD, NekDouble> t;
1931 for (int e = 0; e < m_numElmt; ++e)
1932 {
1933 Vmath::Smul(m_nqe, m_derivFac[dir * 3][e], Diff[0] + e * m_nqe,
1934 1, t = output + e * m_nqe, 1);
1935
1936 for (int j = 1; j < 3; ++j)
1937 {
1938 Vmath::Svtvp(m_nqe, m_derivFac[dir * 3 + j][e],
1939 Diff[j] + e * m_nqe, 1, output + e * m_nqe, 1,
1940 t = output + e * m_nqe, 1);
1941 }
1942 }
1943 }
1944 }

References Blas::Dgemm(), m_Deriv0, m_Deriv1, m_Deriv2, m_derivFac, m_fac0, m_fac1, Nektar::Collections::Operator::m_isDeformed, Nektar::Collections::Operator::m_nqe, m_nquad0, m_nquad1, m_nquad2, Nektar::Collections::Operator::m_numElmt, Nektar::Collections::Operator::m_stdExp, Vmath::Smul(), Vmath::Svtvp(), Vmath::Vmul(), and Vmath::Vvtvp().

Member Data Documentation

◆ m_coordim

int Nektar::Collections::PhysDeriv_SumFac_Prism::m_coordim
protected

Definition at line 1955 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_Deriv0

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv0
protected

Definition at line 1959 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_Deriv1

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv1
protected

Definition at line 1960 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_Deriv2

NekDouble* Nektar::Collections::PhysDeriv_SumFac_Prism::m_Deriv2
protected

Definition at line 1961 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_derivFac

Array<TwoD, const NekDouble> Nektar::Collections::PhysDeriv_SumFac_Prism::m_derivFac
protected

Definition at line 1954 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_fac0

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Prism::m_fac0
protected

Definition at line 1962 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_fac1

Array<OneD, NekDouble> Nektar::Collections::PhysDeriv_SumFac_Prism::m_fac1
protected

Definition at line 1963 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_nquad0

const int Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad0
protected

Definition at line 1956 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_nquad1

const int Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad1
protected

Definition at line 1957 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

◆ m_nquad2

const int Nektar::Collections::PhysDeriv_SumFac_Prism::m_nquad2
protected

Definition at line 1958 of file PhysDeriv.cpp.

Referenced by operator()(), and PhysDeriv_SumFac_Prism().

Generated on Wed Jan 31 2024 08:26:54 for Nektar++ by doxygen 1.9.4